10 WIDTH"COM0:",255 20 OPEN"O",#1,"COM0:" 30 PRINT#1,CHR$(27)+"N"+CHR$(6) 40 PRINT#1,CHR$(27)+"2" 50 PRINT#1,CHR$(18) 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 A=A MOD128 120 IFA>32ANDA<127THENPRINT#1,CHR$(A);ELSEGOSUB180 130 NEXTJ 140 PRINT#1,CHR$(10)+CHR$(13); 150 NEXTI 160 CLOSE#1 170 END 180 A=A MOD32 190 A$=CHR$(27)+"K"+CHR$(6)+CHR$(0) 200 M=64866+A*6 210 N=M+5 220 FORO=MTON 230 A$=A$+CHR$(PEEK(O)) 240 NEXTO 250 PRINT#1,A$; 260 RETURN