10 WIDTH"COM0:",120
20 OPEN"O",#1,"COM0:"
30 PRINT#1,CHR$(27)+"N"+CHR$(6)
40 PRINT#1,CHR$(27)+"2"
50 PRINT#1,CHR$(15)
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 IFA<16THENPRINT#1,"0";
120 PRINT#1,HEX$(A)+CHR$(32);
130 NEXTJ
140 PRINT#1,CHR$(10)+CHR$(13);
150 NEXTI
160 CLOSE#1
170 END
