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 FORI=&H8000 TO&HFFC0 STEP64
80 A$=CHR$(27)+"K"+CHR$(64)+CHR$(0)
90 FORJ=0TO63
100 A=PEEK(I+J)
110 A$=A$+CHR$(A)
120 NEXTJ
130 PRINT#1,A$;
140 NEXTI
150 CLOSE#1
160 END
