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 &HFFFF
80 IFI MOD256=0THENPRINT#1,CHR$(10)+CHR$(10)+CHR$(13)+"$"+HEX$(I)+":"+CHR$(10)+CHR$(10)+CHR$(13);
90 A=PEEK(I)
100 PRINT#1,A;
110 NEXTI
120 CLOSE#1
130 END
