10 WIDTH"COM0:",255
20 OPEN"O",#1,"COM0:"
30 PRINT#1,CHR$(27)+"O"
40 PRINT#1,CHR$(27)++"A"+CHR$(8)
50 PRINT#1,CHR$(18)
60 PRINT#1,CHR$(10)+CHR$(11)+CHR$(12)+CHR$(13);
70 A$=CHR$(27)+"K"+CHR$(48)+CHR$(0)
80 FORI=&H50 TO&H80
90 A=PEEK(I)
100 A$=A$+CHR$(A)
110 NEXTI
120 PRINT#1,A$;
130 FORI=&H80 TO&H7FC0 STEP64
140 A$=CHR$(27)+"K"+CHR$(64)+CHR$(0)
150 FORJ=0TO63
160 A=PEEK(I+J)
170 A$=A$+CHR$(A)
180 NEXTJ
190 PRINT#1,A$;
200 NEXTI
210 CLOSE#1
220 END