100 DIM KW$(255),HX$(255),CD$(255),OP$(255),AR(255)
110 BL=8:BK=0:POKE53281,BK:POKE53280,PEEK(BK)
120 PRINT"[147]  [208]LEASE WAIT ONE MOMENT..."
130 FORX=0TO255:READHX$(X),OP$(X),AR(X):NEXT
140 FORX=128TO202:READKW$(X):NEXT
150 FORX=0TO160:READCD$(X):NEXT:GOSUB 4420
160 FORX=32TO95:KW$(X)=CD$(X):NEXT:KW$(255)="[255]"
180 OF$=F$:PRINT"[147][155]               [204]IXTER":PRINT:PRINT:PRINT
190 INPUT"[197]NTER [198]ILENAME--";F$
200 IFF$=""ORF$="."THENPRINT"[207].[203]. [210]EADY.":END
209 IFF$="$"THEN300
210 IFOF$=F$THEN 240
220 PRINT"[215]HAT IS ITS FILETYPE ([211]/[208])";
230 GETT$:IFT$<>"[208]"ANDT$<>"[211]"ANDT$<>"S"ANDT$<>"P"THEN 230
240 IFT$="[208]"ORT$="[211]"THENT$=CHR$(ASC(T$)-128)
250 PRINT"[147] [206]OW OPENING FILE->";CHR$(34);F$;",";T$;CHR$(34);"[155]"
260 BL=8
270 PRINT"[201]S THIS ALL CORRECT? ([217]/[206])";
280 GETA$:IFA$<>"[217]"ANDA$<>"Y"ANDA$<>"[206]"ANDA$<>"N"THEN 280
290 IFA$="[206]"ORA$="N"THENF$="":GOTO 180
300 PRINT"[147] [211]END OUTPUT TO THE [211][146]CREEN OR [208][146]RINTER"
310 GETA$:IFA$<>"[211]"ANDA$<>"S"ANDA$<>"[208]"ANDA$<>"P"THEN 310
320 IFA$="S"ORA$="[211]"THENDV=3:WD=40:GOTO 340
330 DV=4:BL=16
340 OPEN15,8,15
341 IFF$="$"THENOPEN8,8,0,"$0":GOTO360
350 OPEN8,8,8,F$+","+T$+",R"
360 OPEN1,DV,7
370 GET#8,LO$,HI$:HI=ASC(HI$+CHR$(0)):LO=ASC(LO$+CHR$(0))
380 SA=LO+256*HI
390 GOSUB 4490
400 PRINT#1,:PRINT#1,"[198]ILENAME:=>";F$:PRINT#1,
410 PRINT#1," [211]TARTING [193]DDRESS= #"SA" =$"HX$(HI)HX$(LO)
420 PRINT:PRINT:PRINT
430 PRINT"[211]ELECT [196]UMP TYPE":PRINT"1> [200]EX [196]UMP":PRINT"2> [193][211][195][201][201] [196]UMP":PRINT"3> [196]ISASSEMBLY"
440 PRINT"4> [194]ASIC [204][201][211][212]"
450 GETA$:IFVAL(A$)>4ORVAL(A$)<1THEN 450
460 PC=0
470 PRINT"[147]"
480 IFA$="2"THEN 780
500 IFA$="3"THEN 880
510 IFA$="4"THEN 1441
570 TM=BL*(INT((SA+PC)/BL)):IFTM=SA+PCTHEN 610
580 PRINT#1,CHR$(13);:H=INT((TM)/256):L=TM-(256*H)
590 PRINT#1,HX$(H)HX$(L)"->";
600 FORNM=1TO(SA+PC)-TM:PRINT#1,"-- ";:NEXT
610 GET#8,A$:VL=ASC(A$+CHR$(0))
620 IFST<>0THEN4450
630 IF(SA+PC)/BL<>INT((SA+PC)/BL)THEN 690
640 GETK$:IFK$<>" "THEN 670
650 GETK$:IFK$<>CHR$(13)ANDK$<>"+"ANDK$<>"Q"THEN 650
660 IFK$="Q"THEN 4450
661 IFK$="+"THENGOSUB7000
670 PRINT#1,CHR$(13);:H=INT((SA+PC)/256):L=SA+PC-(256*H)
680 PRINT#1,HX$(H)HX$(L)"->";
690 PRINT#1,HX$(VL)" ";:PC=PC+1
700 GOTO 610
710 PC=PC-1:PRINT#1,CHR$(13);:H=INT((SA+PC)/256):L=SA+PC-(256*H)
720 PRINT#1," [197]NDING ADDRESS = #"SA+PC" =$"HX$(H)HX$(L):GOTO 4450
780 GET#8,A$:VL=ASC(A$+CHR$(0))
790 IFST<>0THEN4450
830 PRINT#1,CD$(VL);:PC=PC+1
840 GETK$:IFK$<>" "THEN 870
850 GETK$:IFK$<>CHR$(13)ANDK$<>"+"ANDK$<>"Q"THEN 850
860 IFK$="Q"THEN 4450
861 IFK$="+"THENGOSUB7000
870 GOTO 780
880 PRINT:PRINT:PRINT"[196]O YOU WISH TO CHANGE [211]TARTING":PRINT"ADDRESS ([217]/[206])?"
890 GETA$:IFA$<>"[217]"ANDA$<>"Y"ANDA$<>"[206]"ANDA$<>"N"THEN 890
900 IFA$="N"ORA$="[206]"THEN1000
910 PRINT:PRINT:PRINT:PRINT"[197]NTER THE [206][197][215] STARTING ADDRESS IN"
920 PRINT"DECIMAL."
930 INPUT"#=";S$
940 IFS$=""THEN1000
950 SA=VAL(S$)
1000 REM***************************
1010 PRINT#1,CHR$(13);CHR$(13);"[211]TARTING [193]DDRESS =#";
1020 PRINT#1,SA;" = $"HX$(INT(SA/256));HX$(SA-(INT(SA/256)*256))
1030 PRINT#1,CHR$(13)
1040 PC=0
1050 GET#8,A$
1060 IFST<>0THEN4450
1080 PRINT#1,CHR$(13);:H=INT((SA+PC)/256):L=SA+PC-(256*H)
1090 PRINT#1,HX$(H)HX$(L)"- ";
1100 VL=ASC(A$+CHR$(0))
1110 IFAR(VL)=1THENGET#8,A$:B1=ASC(A$+CHR$(0)):IFST<>0THEN4450
1120 IFAR(VL)<>2THEN 1150
1130 GET#8,A$:B1=ASC(A$+CHR$(0)):IFST<>0THEN4450
1140 GET#8,A$:B2=ASC(A$+CHR$(0)):IFST<>0THEN4450
1150 PRINT#1,HX$(VL);" ";:IFAR(VL)=0THENPRINT#1,"          ";
1160 IFAR(VL)=1THENPRINT#1,HX$(B1);"        ";
1170 IFAR(VL)=2THENPRINT#1,HX$(B1);" ";HX$(B2);"     ";
1180 O$=OP$(VL):IFMID$(O$,1,1)="[194]"ANDMID$(O$,1,3)<>"[194][201][212]"THEN 1250
1190 FORX=1TOLEN(O$)
1200 IFMID$(O$,X,1)<>"1"ANDMID$(O$,X,1)<>"2"THENPRINT#1,MID$(O$,X,1);
1210 IFMID$(O$,X,1)="1"THENPRINT#1,HX$(B1);
1220 IFMID$(O$,X,1)="2"THENPRINT#1,HX$(B2);
1230 NEXT
1240 GOTO 1310
1250 IFB1>127THENB1=-(256-B1)
1260 FORX=1TOLEN(O$)
1270 IFMID$(O$,X,1)<>"0"THENPRINT#1,MID$(O$,X,1);:GOTO 1300
1280 PP=PC+SA+B1+2
1290 PRINT#1,HX$(INT(PP/256));HX$(PP-(INT(PP/256)*256));
1300 NEXT
1310 PC=PC+AR(VL)+1:B1=0:B2=0
1320 GETK$:IFK$<>" "THEN 1350
1330 GETK$:IFK$<>CHR$(13)ANDK$<>"+"ANDK$<>"Q"THEN 1330
1340 IFK$="Q"THEN 4450
1341 IFK$="+"THENGOSUB7000
1350 GOTO 1050
1360 STOP:     PC=PC-1:PRINT#1,CHR$(13)
1370 PRINT#1,CHR$(13)"[197]NDING [193]DDRESS =#"PC+SA" =$"HX$(INT(SA+PC)/256);
1380 PRINT#1,HX$((SA+PC)-256*(INT((SA+PC)/256)))CHR$(13)
1390 GOTO 4450
1441 CD$(0)=""
1480 PRINT:PRINT
1490 GET#8,P1$,P2$,L1$,L2$:IFST<>0THEN4450
1500 LI=256*(ASC(L2$+CHR$(0)))+ASC(L1$+CHR$(0)):QM=0
1510 PRINT#1,MID$(STR$(LI),2,LEN(STR$(LI))-1)" ";
1520 GET#8,A$:IFST<>0THEN4450
1530 VL=ASC(A$+CHR$(0)):IFVL=0THENPRINT#1,CHR$(13);:QM=0:GOTO 1490
1550 IFVL=34THENQM=ABS(QM=0)
1580 PRINT#1,CD$(VL*ABS(QM=1));KW$(VL*ABS(QM=0));
1590 GETG$:IFG$<>" "THEN 1630
1600 GETG$:IFG$<>CHR$(13)ANDG$<>"Q"THEN 1600
1610 IFG$<>"Q"THEN 1630
1620 GOTO 4450
1630 GOTO 1520
1640 GOTO 4450
1650 GOSUB 4490:CLOSE1:CLOSE8:CLOSE15:END
1660 DATA"00","[194][210][203]",0
1670 DATA"01","[207][210][193] ($1,[216])",1
1680 DATA"02","???",0
1690 DATA"03","???",0
1700 DATA"04","???",0
1710 DATA"05","[207][210][193] $1",1
1720 DATA"06","[193][211][204] $1",1
1730 DATA"07","???",0
1740 DATA"08","[208][200][208]",0
1750 DATA"09","[207][210][193] #$1",1
1760 DATA"0[193]","[193][211][204]",0
1770 DATA"0[194]","???",0
1780 DATA"0[195]","???",0
1790 DATA"0[196]","[207][210][193] $21",2
1800 DATA"0[197]","[193][211][204] $21",2
1810 DATA"0[198]","???",0
1820 DATA"10","[194][208][204] $0",1
1830 DATA"11","[207][210][193] ($1),[217]",1
1840 DATA"12","???",0
1850 DATA"13","???",0
1860 DATA"14","???",0
1870 DATA"15","[207][210][193] $1,[216]",1
1880 DATA"16","[193][211][204] $1,[216]",1
1890 DATA"17","???",0
1900 DATA"18","[195][204][195]",0
1910 DATA"19","[207][210][193] $21,[217]",2
1920 DATA"1[193]","???",0
1930 DATA"1[194]","???",0
1940 DATA"1[195]","???",0
1950 DATA"1[196]","[207][210][193] $21,[216]",2
1960 DATA"1[197]","[193][211][204] $21,[216]",2
1970 DATA"1[198]","???",0
1980 DATA"20","[202][211][210] $21",2
1990 DATA"21","[193][206][196] ($1,[216])",1
2000 DATA"22","???",0
2010 DATA"23","???",0
2020 DATA"24","[194][201][212] $1",1
2030 DATA"25","[193][206][196] $1",1
2040 DATA"26","[210][207][204] $1",1
2050 DATA"27","???",0
2060 DATA"28","[208][204][208]",0
2070 DATA"29","[193][206][196] #$1",1
2080 DATA"2[193]","[210][207][204]",0
2090 DATA"2[194]","???",0
2100 DATA"2[195]","[194][201][212] $21",2
2110 DATA"2[196]","[193][206][196] $21",2
2120 DATA"2[197]","[210][207][204] $21",2
2130 DATA"2[198]","???",0
2140 DATA"30","[194][205][201] $0",1
2150 DATA"31","[193][206][196] ($1),[217]",1
2160 DATA"32","???",0
2170 DATA"33","???",0
2180 DATA"34","???",0
2190 DATA"35","[193][206][196] $1,[216]",1
2200 DATA"36","[210][207][204] $1,[216]",1
2210 DATA"37","???",0
2220 DATA"38","[211][197][195]",0
2230 DATA"39","[193][206][196] $21,[217]",2
2240 DATA"3[193]","???",0
2250 DATA"3[194]","???",0
2260 DATA"3[195]","???",0
2270 DATA"3[196]","[193][206][196] $21,[216]",2
2280 DATA"3[197]","[210][207][204] $21,[216]",2
2290 DATA"3[198]","???",0
2300 DATA"40","[210][212][201]",0
2310 DATA"41","[197][207][210] ($1,[216])",1
2320 DATA"42","???",0
2330 DATA"43","???",0
2340 DATA"44","???",0
2350 DATA"45","[197][207][210] $1",1
2360 DATA"46","[204][211][210] $1",1
2370 DATA"47","???",0
2380 DATA"48","[208][200][193]",0
2390 DATA"49","[197][207][210] #$1",1
2400 DATA"4[193]","[204][211][210]",0
2410 DATA"4[194]","???",0
2420 DATA"4[195]","[202][205][208] $21",2
2430 DATA"4[196]","[197][207][210] $21",2
2440 DATA"4[197]","[204][211][210] $21",2
2450 DATA"4[198]","???",0
2460 DATA"50","[194][214][195] $0",1
2470 DATA"51","[197][207][210] ($1),[217]",1
2480 DATA"52","???",0
2490 DATA"53","???",0
2500 DATA"54","???",0
2510 DATA"55","[197][207][210] $1,[216]",1
2520 DATA"56","[204][211][210][160]$1,[216]",1
2530 DATA"57","???",0
2540 DATA"58","[195][204][201]",0
2550 DATA"59","[197][207][210] $21,[217]",2
2560 DATA"5[193]","???",0
2570 DATA"5[194]","???",0
2580 DATA"5[195]","???",0
2590 DATA"5[196]","[197][207][210] $21,[216]",2
2600 DATA"5[197]","[204][211][210] $21,[216]",2
2610 DATA"5[198]","???",0
2620 DATA"60","[210][212][211]",0
2630 DATA"61","[193][196][195] ($1,[216])",1
2640 DATA"62","[193][196][195] $1",1
2650 DATA"63","???",0
2660 DATA"64","???",0
2670 DATA"65","[193][196][195] $1",1
2680 DATA"66","[210][207][210] $1",1
2690 DATA"67","???",0
2700 DATA"68","[208][204][193]",0
2710 DATA"69","[193][196][195] #$1",1
2720 DATA"6[193]","[210][207][210]",0
2730 DATA"6[194]","???",0
2740 DATA"6[195]","[202][205][208] (21)",2
2750 DATA"6[196]","[193][196][195] $21",2
2760 DATA"6[197]","[210][207][210] $21",2
2770 DATA"6[198]","???",0
2780 DATA"70","[194][214][211] $0",1
2790 DATA"71","[193][196][195] ($1),[217]",1
2800 DATA"72","???",0
2810 DATA"73","???",0
2820 DATA"74","???",0
2830 DATA"75","[193][196][195] $1,[216]",1
2840 DATA"76","[210][207][210] $1,[216]",1
2850 DATA"77","???",0
2860 DATA"78","[211][197][201]",0
2870 DATA"79","[193][196][195] $21,[217]",2
2880 DATA"7[193]","???",0
2890 DATA"7[194]","???",0
2900 DATA"7[195]","???",0
2910 DATA"7[196]","[193][196][195] $21,[216]",2
2920 DATA"7[197]","[210][207][210] $21,[216]",2
2930 DATA"7[198]","???",0
2940 DATA"80","???",0
2950 DATA"81","[211][212][193] ($1,[216])",1
2960 DATA"82","???",0
2970 DATA"83","???",0
2980 DATA"84","[211][212][217] $1",1
2990 DATA"85","[211][212][193] $1",1
3000 DATA"86","[211][212][216] $1",1
3010 DATA"87","???",0
3020 DATA"88","[196][197][217]",0
3030 DATA"89","???",0
3040 DATA"8[193]","[212][216][193]",0
3050 DATA"8[194]","???",0
3060 DATA"8[195]","[211][212][217] $21",2
3070 DATA"8[196]","[211][212][193] $21",2
3080 DATA"8[197]","[211][212][216] $21",2
3090 DATA"8[198]","???",0
3100 DATA"90","[194][195][195] $0",1
3110 DATA"91","[211][212][193] ($1),[217]",1
3120 DATA"92","???",0
3130 DATA"93","???",0
3140 DATA"94","[211][212][217] $1,[216]",1
3150 DATA"95","[211][212][193] $1,[216]",1
3160 DATA"96","[211][212][216] $1,[216]",1
3170 DATA"97","???",0
3180 DATA"98","[212][217][193]",0
3190 DATA"99","[211][212][193] $21,[217]",2
3200 DATA"9[193]","[212][216][211]",0
3210 DATA"9[194]","???",0
3220 DATA"9[195]","???",0
3230 DATA"9[196]","[211][212][193] $21,[216]",2
3240 DATA"9[197]","???",0
3250 DATA"9[198]","???",0
3260 DATA"[193]0","[204][196][217] #$1",1
3270 DATA"[193]1","[204][196][193] ($1,[216])",1
3280 DATA"[193]2","[204][196][216] #$1",1
3290 DATA"[193]3","???",0
3300 DATA"[193]4","[204][196][217] $1",1
3310 DATA"[193]5","[204][196][193] $1",1
3320 DATA"[193]6","[204][196][216] $1",1
3330 DATA"[193]7","???",0
3340 DATA"[193]8","[212][193][217]",0
3350 DATA"[193]9","[204][196][193] #$1",1
3360 DATA"[193][193]","[212][193][216]",0
3370 DATA"[193][194]","???",0
3380 DATA"[193][195]","[204][196][217] $21",2
3390 DATA"[193][196]","[204][196][193] $21",2
3400 DATA"[193][197]","[204][196][216] $21",2
3410 DATA"[193][198]","???",0
3420 DATA"[194]0","[194][195][211] $0",1
3430 DATA"[194]1","[204][196][193] ($1),[217]",1
3440 DATA"[194]2","???",0
3450 DATA"[194]3","???",0
3460 DATA"[194]4","[204][196][217] $1,[216]",1
3470 DATA"[194]5","[204][196][193] $1,[216]",1
3480 DATA"[194]6","[204][196][216] $1,[217]",1
3490 DATA"[194]7","???",0
3500 DATA"[194]8","[195][204][214]",0
3510 DATA"[194]9","[204][196][193] $21,[217]",2
3520 DATA"[194][193]","[212][211][216]",0
3530 DATA"[194][194]","???",0
3540 DATA"[194][195]","[204][196][217] $21,[216]",2
3550 DATA"[194][196]","[204][196][193] $21,[216]",2
3560 DATA"[194][197]","[204][196][216] $21,[217]",2
3570 DATA"[194][198]","???",0
3580 DATA"[195]0","[195][208][217] #$1",1
3590 DATA"[195]1","[195][205][208] ($1,[216])",1
3600 DATA"[195]2","???",0
3610 DATA"[195]3","???",0
3620 DATA"[195]4","[195][208][217] $1",1
3630 DATA"[195]5","[195][205][208] $1",1
3640 DATA"[195]6","[196][197][195] $1",1
3650 DATA"[195]7","???",0
3660 DATA"[195]8","[201][206][217]",0
3670 DATA"[195]9","[195][205][208] #$1",1
3680 DATA"[195][193]","[196][197][216]",0
3690 DATA"[195][194]","???",0
3700 DATA"[195][195]","[195][208][217] $21",2
3710 DATA"[195][196]","[195][205][208] $21",2
3720 DATA"[195][197]","[196][197][195] $21",2
3730 DATA"[195][198]","???",0
3740 DATA"[196]0","[194][206][197] $0",1
3750 DATA"[196]1","[195][205][208] ($1),[217]",1
3760 DATA"[196]2","???",0
3770 DATA"[196]3","???",0
3780 DATA"[196]4","???",0
3790 DATA"[196]5","[195][205][208] $1,[216]",1
3800 DATA"[196]6","[196][197][195] $1,[216]",1
3810 DATA"[196]7","???",0
3820 DATA"[196]8","[195][204][196]",0
3830 DATA"[196]9","[195][205][208] $21,[217]",2
3840 DATA"[196][193]","???",0
3850 DATA"[196][194]","???",0
3860 DATA"[196][195]","???",0
3870 DATA"[196][196]","[195][205][208] $21,[216]",2
3880 DATA"[196][197]","[196][197][195] $21,[216]",2
3890 DATA"[196][198]","???",0
3900 DATA"[197]0","[195][208][216] #$1",1
3910 DATA"[197]1","[211][194][195] ($1,[216])",1
3920 DATA"[197]2","???",0
3930 DATA"[197]3","???",0
3940 DATA"[197]4","[195][208][216] $1",1
3950 DATA"[197]5","[211][194][195] $1",1
3960 DATA"[197]6","[201][206][195] $1",1
3970 DATA"[197]7","???",0
3980 DATA"[197]8","[201][206][216]",0
3990 DATA"[197]9","[211][194][195] #$1",1
4000 DATA"[197][193]","[206][207][208]",0
4010 DATA"[197][194]","???",0
4020 DATA"[197][195]","[195][208][216] $21",2
4030 DATA"[197][196]","[211][194][195] $21",2
4040 DATA"[197][197]","[201][206][195] $21",2
4050 DATA"[197][198]","???",0
4060 DATA"[198]0","[194][197][209] $0",1
4070 DATA"[198]1","[211][194][195] ($1),[217]",1
4080 DATA"[198]2","???",0
4090 DATA"[198]3","???",0
4100 DATA"[198]4","???",0
4110 DATA"[198]5","[211][194][195] $1,[216]",1
4120 DATA"[198]6","[201][206][195] $1,[216]",1
4130 DATA"[198]7","???",0
4140 DATA"[198]8","[211][197][196]",0
4150 DATA"[198]9","[211][194][195] $21,[217]",2
4160 DATA"[198][193]","???",0
4170 DATA"[198][194]","???",0
4180 DATA"[198][195]","???",0
4190 DATA"[198][196]","[211][194][195] $21,[216]",2
4200 DATA"[198][197]","[201][206][195] $21,[216]",2
4210 DATA"[198][198]","???",0
4220 DATA"[197][206][196]","[198][207][210]","[206][197][216][212]","[196][193][212][193]","[201][206][208][213][212]#","[201][206][208][213][212]","[196][201][205]","[210][197][193][196]","[204][197][212]","[199][207][212][207]"
4230 DATA"[210][213][206]","[201][198]","[210][197][211][212][207][210][197]","[199][207][211][213][194]","[210][197][212][213][210][206]","[210][197][205]","[211][212][207][208]","[207][206]","[215][193][201][212]","[204][207][193][196]"
4240 DATA"[211][193][214][197]","[214][197][210][201][198][217]","[196][197][198]","[208][207][203][197]","[208][210][201][206][212]#","[208][210][201][206][212]","[195][207][206][212]","[204][201][211][212]","[195][204][210]"
4250 DATA"[195][205][196]","[211][217][211]","[207][208][197][206]","[195][204][207][211][197]","[199][197][212]","[206][197][215]","[212][193][194](","[212][207]","[198][206]","[211][208][195](","[212][200][197][206]"
4260 DATA"[206][207][212]","[211][212][197][208]","+","-","*","/","^","[193][206][196]","[207][210]",">","=","<","[211][199][206]","[201][206][212]"
4270 DATA"[193][194][211]","[213][211][210]","[198][210][197]","[208][207][211]","[211][209][210]","[210][206][196]","[204][207][199]","[197][216][208]","[195][207][211]","[211][201][206]"
4280 DATA"[212][193][206]","[193][212][206]","[208][197][197][203]","[204][197][206]","[211][212][210]$","[214][193][204]","[193][211][195]","[195][200][210]$","[204][197][198][212]$"
4290 DATA"[210][201][199][200][212]$","[205][201][196]$"
4300 DATA".",".",".",".",".","<WHITE>",".",".","<DISABLE[195]=>","<ENABLE[195]=>","."
4310 DATA.,.,"<[195]/[210]>",<LOWERCASE>,.,.,<DOWN>,<RVSON>,<HOME>,"<[196][197][204]>"
4320 DATA".",".",".",".",".",".",".","<RED>","<RIGHT>","<GREEN>","<BLUE>"
4330 DATA" ","!","'","#","$","%","&","'","(",")","*","+",",","-",".","/"
4340 DATA0,1,2,3,4,5,6,7,8,9,":",";","<","=",">","?","@"
4350 DATA"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"
4360 DATA"Q","R","S","T","U","V","W","X","Y","Z","[","\","]","^","_","-"
4370 DATA"[193]","[194]","[195]","[196]","[197]","[198]","[199]","[200]","[201]","[202]","[203]","[204]","[205]","[206]","[207]","[208]"
4380 DATA"[209]","[210]","[211]","[212]","[213]","[214]","[215]","[216]","[217]","[218]"
4390 DATA.,.,.,.,.,.,<ORANGE>,.,.,.,.,.,.,.,.,.,.,.,"<[211][195][210]>","<[213][195]>",.
4400 DATA<BLACK>,<UP>,<RVSOFF>,"<[195][204][210]>","<[196][197][204]>",<BROWN>,<L RED>,<GRAY1>,<GRAY2>
4410 DATA<L GRN>,<L BLU>,<GRAY3>,<PURPLE>,<LEFT>,<YELLOW>,<CYAN>," "
4420 FORX=161TO191:CD$(X)=".":NEXT:FORX=192TO223:CD$(X)=CD$(X-96):NEXT
4430 FORX=224TO254:CD$(X)=CD$(X-64):NEXT:CD$(255)="<PI>":CD$(126)="<PI>"
4440 CD$(13)=CHR$(13):CD$(34)=CHR$(34):RETURN
4450 PRINT:PRINT"  [197]ND OF [198]ILE, PRESS ANY KEY":CLOSE1:CLOSE8:CLOSE15
4451 CD$(0)="."
4460 POKE198,0:GETA$
4470 GETA$:IFA$=""ORA$="[133]"THEN 4470
4480 GOTO 180
4490 INPUT#15,ER,ER$,TR,SC
4500 IFER<>0THENPRINT"[196]ISK [197]RROR[146][155]":PRINTER"--"ER$" AT "TR","SC:CLOSE1:CLOSE8:CLOSE15:END
4510 RETURN
4520 IFST=64ORST<>0THEN 4450
4530 RETURN
7000 CLOSE1:IFDV=4THENDV=3:OPEN1,DV,1:RETURN
7001 DV=4:OPEN1,DV,1:RETURN