10 MEMSET
20 WIDTH"COM0:",255
30 DIMA$(192)
40 DEFINTI-L
50 FORI=0TO191:READA$(I):NEXTI
60 OPEN"O",#1,"COM0:"
70 PRINT#1,CHR$(27)+CHR$(78)+CHR$(1)
80 J=PEEK(2624)*256+PEEK(2625)-14:PRINT#1,J;"Bytes"
90 FORI=2626TO2633:PRINT#1,CHR$(PEEK(I));:NEXTI
100 '
110 C$=CHR$(27)+CHR$(75)+CHR$(6)+CHR$(0)+CHR$(255)+CHR$(129)+CHR$(129)+CHR$(129)+CHR$(129)+CHR$(255)
120 K=0:L=0:I=2638
130 L=0:PRINT#1,CHR$(13)
140 J=PEEK(I)*256:I=I+1:J=PEEK(I)+J:PRINT#1,J;
150 I=I+1:J=PEEK(I)
160 IFJ=0THEN260
170 IFJ=255THENK=128:PRINT#1,C$;:GOTO150
180 IFJ<128THENPRINT#1,CHR$(J);:IFJ=34THENL=1-L
190 IFJ>127THEN:IFL=1THEN220ELSEPRINT#1,A$(J-128+K);
200 K=0:GOTO150
210 '
220 J=J MOD32:B$="":M=64866+J*6:N=M+5
230 FORO=M TON:B$=B$+CHR$(PEEK(O)):NEXTO
240 PRINT#1,CHR$(27)+CHR$(75)+CHR$(6)+CHR$(0)+B$;
250 GOTO200
260 I=I+1:J=PEEK(I):I=I+1:J=PEEK(I)+J
270 IFJ=0THENPRINT#1,CHR$(7):CLOSE#1:END
280 I=I+1:GOTO130
290 '
300 DATA "END","FOR","NEXT","DATA","DIM","READ","LET","GO","RUN","IF","RESTORE","RETURN","REM","'","STOP","ELSE"
310 DATA "TRON","TROFF","SWAP","DEFSTR","DEFINT","DEFSNG","DEFDBL","DEFFIL","ON","LPRINT","LLIST","RENUM","ERROR","RESUME","AUTO","DELETE"
320 DATA "DEF","POKE","PRINT","CONT","LIST","CLEAR","OPTION","RANDOMIZE","WHILE","WEND","NEW","ERASE","LOADM","LOAD?","SAVEM","SAVE"
330 DATA "LOAD","MERGE","OPEN","CLOSE","LINE","SCROLL","SOUND","MON","FILES","MOTOR","PUT","GET","LOCATES","LOCATE","CLS","KEY"
340 DATA "WIDTH","PSET","PRESET","COPY","EXEC","WIND","GCLS","SCREEN","COLOR","LOGIN","TITLE","STAT","PCOPY","MEMSET","BASE","TAB("
350 DATA "TO","SUB","FN","SPC(","USING","USR","ERL","ERR","OFF","ALL","THEN","NOT","STEP","+","-","*"
360 DATA "/","^","AND","OR","XOR","EQV","IMP","MOD","\",">","=","<","!","!","!","!"
370 DATA "!","!","!","!","!","!","!","!","!","!","!","!","!","!","!","SGN"
380 DATA "SGN","INT","ABS","FRE","POS","SQR","LOG","EXP","COS","SIN","TAN","ATN","PEEK","LEN","STR$","VAL"
390 DATA "ASC","CHR$","EOF","LOF","CINT","CSNG","CDBL","FIX","SPACE$","HEX$","OCT$","LEFT$","RIGHT$","MID$","INSTR","VARTPR"
400 DATA "STRING$","RND","TIME","DATE","DAY","INKEY$","INPUT","CSRLIN","POINT","TAPCNT","!","!","!","!","!","!"
410 DATA"!","!","!","!","!","!","!","!","!","!","!","!","!","!","!","!"
