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 FORI=&H8000 TO&HFFE0 STEP32
80 PRINT#1,"$"+HEX$(I)+":";TAB(8);
90 FORJ=0TO31
100 A=PEEK(I+J)
110 A=A MOD128
120 IFA>32ANDA<127THENPRINT#1,CHR$(A);ELSEGOSUB180
130 NEXTJ
140 PRINT#1,CHR$(10)+CHR$(13);
150 NEXTI
160 CLOSE#1
170 END
180 A=A MOD32
190 A$=CHR$(27)+"K"+CHR$(6)+CHR$(0)
200 M=64866+A*6
210 N=M+5
220 FORO=MTON
230 A$=A$+CHR$(PEEK(O))
240 NEXTO
250 PRINT#1,A$;
260 RETURN
