10 WIDTH"COM0:",255
20 OPEN"O",#1,"COM0:"
30 PRINT#1,CHR$(27)+"N"+CHR$(6)
40 PRINT#1,CHR$(27)+"2"
50 PRINT#1,CHR$(18)
60 PRINT#1,CHR$(10)+CHR$(11)+CHR$(12)+CHR$(13);
70 PRINT#1,"$50:";TAB(8);
80 FORI=&H50 TO&H5F
90 A=PEEK(I)
100 A=A MOD128
110 IFA>32ANDA<127THENPRINT#1,CHR$(A);ELSEGOSUB250
120 NEXTI
130 PRINT#1,CHR$(10)+CHR$(13);
140 FORI=&H60 TO&H7FE0 STEP32
150 PRINT#1,"$"+HEX$(I)+":";TAB(8);
160 FORJ=0TO31
170 A=PEEK(I+J)
180 A=A MOD128
190 IFA>32ANDA<127THENPRINT#1,CHR$(A);ELSEGOSUB250
200 NEXTJ
210 PRINT#1,CHR$(10)+CHR$(13);
220 NEXTI
230 CLOSE#1
240 END
250 A=A MOD32
260 A$=CHR$(27)+"K"+CHR$(6)+CHR$(0)
270 M=64866+A*6
280 N=M+5
290 FORO=MTON
300 A$=A$+CHR$(PEEK(O))
310 NEXTO
320 PRINT#1,A$;
330 RETURN
