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 PRINT#1,"$50:";TAB(8);
80 FORI=&H50 TO&H5F
90 A=PEEK(I)
100 IFA<16THENPRINT#1,"0";
110 PRINT#1,HEX$(A)+CHR$(32);
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 IFA<16THENPRINT#1,"0";
190 PRINT#1,HEX$(A)+CHR$(32);
200 NEXTJ
210 PRINT#1,CHR$(10)+CHR$(13);
220 NEXTI
230 CLOSE#1
240 END