100 POKE 55,0:POKE 56,160:CLR:N$="AB":GOTO220
110 :
120 SYS 52496,FR,FC,TR,TC,AD,FU,CO,RV
130 AD=AD+(TR-FR+1)*(TC-FC+1)*2:N=N+1
140 IF AD>52495THENPRINT"WINDOWS ABORT!":END
150 FR(N)=FR:FC(N)=FC:TR(N)=TR:TC(N)=TC
160 RETURN
170 :
180 FR=FR(N):FC=FC(N):TR=TR(N):TC=TC(N)
190 AD=AD-(TR-FR+1)*(TC-FC+1)*2:N=N-1
200 SYS 52496,FR,FC,TR,TC,AD,8,1,1
210 RETURN
220 DE=PEEK(186):IFDE<8THENDE=8
230 DIM LA(12),LW$(7),MM$(4),L$(12)
240 DIM LA$(106),LB(106),LC(106),LP(106),PI(21)
250 L$(1)="[197]ACH ":L$(2)="[199]RAM ":L$(3)="[207]UNCE":L$(4)="[208]OUND":L$(5)="[212]SP  "
260 L$(6)="[212]BL  ":L$(7)="[207]UNCE":L$(8)="[195]UP  ":L$(9)="[208]INT ":L$(10)="[209]UART"
270 L$(11)="[199]AL  ":L$(12)="     "
280 A3$=CHR$(125):A6$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
290 LA(1)=0.:LA(2)=31.:LA(3)=59.:LA(4)=90.:LA(5)=120.:LA(6)=151.
300 LA(7)=181.:LA(8)=212.:LA(9)=243.:LA(10)=273.:LA(11)=304.:LA(12)=334.
310 LW$(0)="[211][213][206]":LW$(1)="[205][207][206]":LW$(2)="[212][213][197]":LW$(3)="[215][197][196]":LW$(4)="[212][200][210]"
320 LW$(5)="[198][210][201]":LW$(6)="[211][193][212]"
330 MM$(1)="[194][203][198][193][211][212]":MM$(2)="[204][213][206][195][200] ":MM$(3)="[196][201][206][206][197][210]":MM$(4)="[211][206][193][195][203] "
340 SS$="                               ":ZC=0:Z$=CHR$(0):LM=66
350 FORX=900TO933:READY:POKEX,Y:NEXT
360 GOSUB610
370 GOSUB1770:IFGA=1 THEN 390
380 IFGA=2THEN 2450
390 GOSUB690:IFBT=0THEN 370
400 YY=22:XX=0:GOSUB600:PRINT"F1 = [208]AGE  <[210][212][206]> = [211]ELECT  _ = [197]SCAPE"
410 GOTO 2140
420 DATA 160,2,177,45,153,137,0,200,192,6,208,246,162
430 DATA 1,32,198,255,32,228,255,164,142,145,140,200
440 DATA 132,142,196,139,208,242,76,204,255
450 FR=21:FC=09:TR=23:TC=29:FU=7 :CO=0 :RV=02:GOSUB120
460 YY=23:XX=10:GOSUB600
470 PRINT" [193]NY [203]EY [195]ONTINUES";
480 POKE198,0:WAIT198,15:GETA$:GOSUB180:RETURN
490 IF ZC=1THEN RETURN
500 FR=18:FC=08:TR=22:TC=32:FU=7 :CO=2 :RV=12:GOSUB120:YY=21:XX=09:GOSUB600
510 PRINT"[152]   [204]OADING [196]IRECTORY ":GOSUB1080:GOSUB180:RETURN
520 GOSUB590:PRINT"[147]NEW":PRINT"LOAD"CHR$(34)F$CHR$(34)","DE
530 PRINT"?C[200](144)C[200](142):RUN"
540 POKE198,3:POKE631,13:POKE632,13:POKE633,13:POKE56,160:END
550 INPUT#15,E,E$,A,B:IFE<20 ORRE=73 THEN RETURN
560 IF E=50THENRETURN
570 PRINT "[147]  [196][201][211][203] [208][210][207][194][204][197][205]: [195]AN'T [195]ONTINUE!":GOSUB450
580 GOSUB590:END
590 CLOSE3:CLOSE15:OPEN15,DE,15,"I0":CLOSE15:RETURN
600 POKE 214,YY:POKE211,XX:PRINT"[145]";:RETURN
610 REM HSKPNG
620 POKE53281,1:POKE53280,1
630 DIM DP$(53),DC$(53):DP=1:DP$(1)=CHR$(255):DC=1:DC$(1)=CHR$(255)
640 DIM FR(20),FC(20),TR(20),TC(20)
650 AD=49920
660 REMPOKE 147,0:SYS57812"WINDOWS.O",DE,1:SYS62631:POKE53281,1
670 YY=10:XX=10:GOSUB600
680 RETURN:POKE147,0:SYS57812"CAL.RD.O",DE,1:SYS62631:RETURN
690 PRINT"[147]":POKE53280,1:FR=07:FC=10:TR=15:TC=30:FU=7 :CO=0 :RV=02:GOSUB120
700 YY=9:XX=13:GOSUB600:PRINT"[193][206][193][204][217][218][197] & [208][210][201][206][212]":YY=10:GOSUB600
710 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":YY=11:XX=16:GOSUB600:PRINT"[197]NTER [206]AME":XX=15
720 A7$="":A5$="A":AL=8:A2$="":YY=13:GOSUB750:PN$=LEFT$(A1$+"........",8)
730 GOSUB500:GOSUB180:IFBT=0THEN RETURN
740 GOSUB1430:RETURN
750 REM GET ROUTINE
760 A1$=""
770 GOSUB970
780 GET A$:IF A$="" THEN 780
790 A=ASC(A$):IF A=20 THENGOSUB1000:GOTO860.
800 IF A=13THEN 880
810 IF A5$="A"THEN 1020
820 IF A$="."ORA$="," THEN850
830 IF A$ = "-" AND LEN(A1$) = 0 THEN 850
840 IF A < 48 OR A > 60 THEN 780
850 IFLEN(A1$)<AL THEN A1$=A1$+A$
860 GOSUB870:GOTO 780
870 GOSUB970:RETURN
880 DV=0:L =LEN(A1$):A = 0:AT = 0:P = 0:AN = 1
890 IF A5$="A"THEN RETURN
900 FOR I=1 TO L:A$ = MID$(A1$,I,1)
910 IF A$="-" THEN AN=-1:GOTO 960
920 IFA$=","THEN 960
930 IF A$="."THENDV=1:GOTO 960
940 IF DV=0 THEN A=VAL(A$):AT = AT*10 + A
950 IF DV=1 THEN P=P+1:A=VAL(A$):AT = AT + A/(10^P)
960 NEXT:AT=AT*AN:RETURN
970 A4$=LEFT$(A6$,AL)
980 GOSUB600:PRINTA7$;A2$;" "; A3$;A1$" ";SPC(AL-LEN(A1$));"[157]"A3$
990 PRINT A7$;SPC(XX+    LEN(A2$)+1);CHR$(173);A4$;CHR$(189);"[145][145]":RETURN
1000 L=LEN(A1$):IFL=0THEN RETURN
1010 L=L-1:A1$=MID$(A1$,1,L):RETURN
1020 IF A> 31 AND A <94 THEN 850
1030 IF A> 159 AND A <221 THEN 850
1040 GOTO 780
1050 MM=INT(MC/100000000):MC=MC-MM*100000000:MT=INT(MC/10000):MF=MC-MT*10000
1060 MD=INT(MU/10000000):MU=MU-MD*10000000:MX=INT(MU/100):MQ=MU-MX*100
1070 RETURN
1080 REM GET DIRECTORY
1090 N$="AZ":FORX=1TO6:N$=N$+N$:NEXT:N$=MID$(N$,2):N$=N$+N$
1100 DP=1:DP$(1)=CHR$(255):DC=1:DC$(1)=CHR$(255)
1110 CLOSE15:OPEN15,DE,15,"I0":GOSUB550:OPEN1,DE,2,"$":GOSUB550:BT=0
1120 SYS900:GOSUB550
1130 SYS900:FORX=1TO254STEP32:A=ASC(MID$(N$,X,1))
1140 IF A<>129 THEN 1180
1150 A=ASC(MID$(N$,X+3,1)):IFA<>037 THEN 1180
1160 A=ASC(MID$(N$,X+4,1)):IF A=33 THEN 1240*
1170 IFA=36 THEN 1260*
1180 NEXT:IFST=0 THEN 1130
1190 IFBT=0 THEN 1210
1200 CLOSE1:CLOSE15:RETURN
1210 FR=10:FC=8:TR=15:TC=33:FU=7:CO=.:RV=5:GOSUB120:PRINT""
1220 YY=14:XX=10:GOSUB600:PRINT"[206]AME [206]OT IN [196]IRECTORY!"
1230 GOSUB 450:GOSUB180:GOTO1200
1240 A1$=MID$(N$,X+5,8):IFA1$<>PN$THEN1180
1250 BT=1:A1$=MID$(N$,X+13,6):GOSUB1350:GOTO1180
1260 A1$=MID$(N$,X+5,8):IFA1$<>PN$THEN1180
1270 BT=1:A1$=MID$(N$,X+13,6):GOSUB1390:GOTO1180
1280 A$="   [208][204][193][206]  ":IF CX=1THENA$="[195][207][206][211][213][205][208][212][201][207][206]"
1290 PRINT#4,SPC(3);A$;" FOR ";PN$;SPC(30);"[196][193][212][197]: ";N$
1300 PRINT#4,SPC(15);" [215][197][201][199][200][212]: ";WA/10;SPC(22);" -- [195][193][204][207][210][201][197][211] --"
1310 A$="[198][193][212]    [212][207][212]"
1320 PRINT#4,SPC(5);". . . . [197][206][212][210][217] . . . . . . . ."SPC(9);"[209][213][193][206][212][201][212][217]"SPC(6)A$
1330 GOSUB2430:GC=4:RETURN
1340 FOR GA=1TO(66-GC):PRINT#4,:NEXT:GOSUB1280:RETURN
1350 K=0
1360 K=K+1:IFA1$>DP$(K)THEN 1360
1370 DP=DP+1:FORJ=DPTOKSTEP-1:DP$(J)=DP$(J-1):NEXT
1380 DP$(K)=A1$:RETURN
1390 K=0
1400 K=K+1:IFA1$>DC$(K)THEN 1400
1410 DC=DC+1:FORJ=DCTOKSTEP-1:DC$(J)=DC$(J-1):NEXT
1420 DC$(K)=A1$:RETURN
1430 FR=3:FC=7:TR=20:TC=17:FU=7:CO=.:RV=6:GOSUB120:PRINT""
1440 FR=3:FC=24:TR=20:TC=34:FU=7:CO=.:RV=6:GOSUB120
1450 YY=1:XX=12:GOSUB600:IFGA=1THEN PRINT"[211]ELECT [201]TEM TO [208]RINT."
1460 IF GA=2 THEN PRINT"[207]RDER FOR [193]NALYSIS!"
1470 YY=5:XX=10:GOSUB600:PRINT"[208][204][193][206] ";SPC(12);"[193][195][212][213][193][204]"
1480 YY=7:GOSUB600
1490 GOSUB1560:GOSUB1570:PP=1:CP=1:GOSUB1580:GOSUB1660:RETURN
1500 FR=10:FC=08:TR=15:TC=33:FU=7:CO=.:RV=4:GOSUB120:PRINT"[156]"
1510 YY=13:XX=10:GOSUB600:PRINT"  [208][210][201][206][212][197][210] [213][206][193][214][193][201][204][193][194][204][197]!"
1520 GOSUB 450:GOSUB180:RETURN
1530 FR=10:FC=08:TR=15:TC=33:FU=7:CO=.:RV=4:GOSUB120:PRINT"[156]"
1540 YY=13:XX=10:GOSUB600:PRINT" [193][204][201][199][206] [212][207] [212][207][208] [207][198] [198][207][210][205]!"
1550 GOSUB 450:GOSUB180:RETURN
1560 YY=6:XX=0:GOSUB600:FORJ=1TO14:PRINTTAB(10);"      ":NEXT:RETURN
1570 YY=6:XX=0:GOSUB600:FORJ=1TO14:PRINTTAB(27);"      ":NEXT:RETURN
1580 YY=6:XX=0:GOSUB600:PS=PP
1590 IFPP>DPTHEN 1640
1600 IF (PP-PS)>12 THEN 1630
1610 IF DP$(PP)=CHR$(255) THEN 1640
1620 PRINTTAB(10);"";DP$(PP):PP=PP+1:GOTO1590
1630 PRINT TAB(11);"[205][207][210][197]":BP=12:RETURN
1640 IF PS=PP AND DP>1 THEN PP=1:GOTO1580
1650 PRINT TAB(11);"[197][206][196]":BP=PP-PS-1:RETURN
1660 YY=6:XX=0:GOSUB600:CS=CP
1670 IFCP>DCTHEN 1720
1680 IF (CP-CS)>12 THEN 1710
1690 IF DC$(CP)=CHR$(255) THEN 1720
1700 PRINTTAB(27);"";DC$(CP):CP=CP+1:GOTO1670
1710 PRINT TAB(28);"[205][207][210][197]":BC=12:RETURN
1720 IF CS=CP AND DC>1 THEN CP=1:GOTO1660
1730 PRINT TAB(28);"[197][206][196]":BC=CP-CS-1:RETURN
1740 IFA$="[139]" OR A$="[134]" ORA$="[135]" OR A$="[136]" THENRETURN
1750 IF A$="_"THEN RETURN
1760 GOTO 1920
1770 GOSUB5000:PRINT"":FR=10:FC=7:TR=20:TC=33:FU=7:CO=.:RV=2:GOSUB120:PRINT""
1780 YY=12:XX=0:GOSUB600:PRINT TAB(13);"[193][206][193][204][217][218][197] & [208][210][201][206][212]"
1790 PRINT TAB(13);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1800 PRINT TAB(17);"[207][208][212][201][207][206][211]"
1810 PRINT TAB(09);"1. [208]RINT [197]NTRY":PRINTTAB(09);"2. [208]LAN/[193]CTUAL [193]NALYSIS"
1820 PRINTTAB(09);"3. [210]ETURN TO [205]AIN [205]ENU"
1830 PRINTTAB(09);"4. [197]XIT TO [204][207][193][196][211][212][193][210]"
1840 POKE198,0:WAIT198,15:GETA$:IF A$<"1"ORA$>"4" THEN 1840
1850 GOSUB180:IF A$="1"THEN GA=1:RETURN
1860 IF A$="2"THEN GA=2:RETURN
1870 IF A$="3" THEN F$="CAL.TRACK":GOTO520
1880 IF A$="4" THEN F$="HELLO CONNECT":DE=8:GOTO520
1890 CY=0:IF CX=1 THEN GOSUB1570:GOSUB1660:GOTO 1910
1900 GOSUB1560:GOSUB1580:GOTO1910
1910 GOSUB2110
1920 POKE198,0:WAIT198,15:GETA$:IF A$="[145]" THEN CY=CY-1:GOTO2010
1930 IF A$="" THEN CY=CY+1:GOTO2010
1940 IF A$="" THEN CX=CX+1:GOTO2010
1950 IF A$="[157]" THEN CX=CX-1:GOTO2010
1960 IF A$="_"THEN RETURN
1970 IF GA=1 AND ASC(A$)=13 THEN RETURN
1980 IF A$="[133]"THEN 1890
1990 IF GA=2 THEN 1740
2000 GOTO1920
2010 IF CX>1 THEN CX=0
2020 IF CX<0 THEN CX=1
2030 IF CX=1 THEN 2070
2040 IF CY>BP THEN CY=0
2050 IF CY<0  THEN CY=BP
2060 GOTO 1910
2070 IF CY>BC THEN CY=0
2080 IF CY<0 THEN CY=BC
2090 GOTO 1910
2100 GOSUB 180:GOSUB180:GOTO370
2110 YY=6+HY:XX=9+(17*HX):GOSUB600:PRINT" "
2120 YY=6+CY:XX=9+(17*CX):GOSUB600:PRINT">"
2130 HY=CY:HX=CX:RETURN
2140 PRINT"":HX=0:HY=0:CX=0:CY=0:GOSUB1910:IF A$="_" THEN 2100
2150 IF CX=1THEN 2170
2160 P=PS+CY:N$=DP$(P):A$="%!":GOTO2180
2170 P=CS+CY:N$=DC$(P):A$="%$"
2180 A1$=A$+PN$+N$:CLOSE15:OPEN15,DE,15,"I0":PRINT#15,"R0:"+A1$+"="+A1$
2190 INPUT#15,ER:CLOSE15:IFER<>63 THEN 570
2200 OPEN15,DE,15:OPEN3,DE,3,A1$+",S,R":GOSUB550:I=0:INPUT#3,WA,WB
2210 I=I+1:INPUT#3,LA$(I):INPUT#3,LB(I):INPUT#3,LC(I)
2220 IF LEFT$(LA$(I),1)<>CHR$(255) THEN 2210
2230 IH=I:GOSUB550:CLOSE3:CLOSE15
2240 REM
2250 CLOSE4:OPEN4,4,7:CLOSE4:IF ST<>0 THEN GOSUB 1500:GOTO2250
2260 CLOSE4:OPEN4,4,7:PRINT#4,:GOSUB1530
2270 I=0:MC=LB(1):MU=LC(1):GOSUB1050:FD=MD:FM=MM:GOSUB1280
2280 I=I+1:MC=LB(I):MU=LC(I):GOSUB1050:IF MD<>FD THEN GOSUB2360:GOSUB2430
2290 IF MM<>FM THEN GOSUB2390:GOSUB2430
2300 IF LEFT$(LA$(I),1)=CHR$(255)THENPOKE186,DE:GOTO100
2310 IF GC>58 THEN GOSUB1340
2320 M1$=RIGHT$("     "+STR$(MF),5):M2$=RIGHT$("     "+STR$(MT),5)
2330 M3$=RIGHT$("     "+STR$(MX/1000),5):L=LEN(LA$(I))
2340 PRINT#4,SPC(6);LA$(I);SPC(35-L);M3$;" ";L$(MQ);"   ";M1$;"  "M2$
2350 GC=GC+1:M1=M1+MF:M2=M2+MT:GOTO2280
2360 GOSUB2390:M1$=RIGHT$("     "+STR$(MA),6):M2$=RIGHT$("      "+STR$(MB),6)
2370 PRINT#4,SPC(54);M1$;" ";M2$:GC=GC+1
2380 MA=0:MB=0:FD=MD:RETURN
2390 MA=MA+M1:MB=MB+M2:M1$=RIGHT$("      "+STR$(M1),6)
2400 M2$=RIGHT$("      "+STR$(M2),6)
2410 PRINT#4,SPC(54);M1$;" ";M2$:FM=MM:M1=0:M2=0:GC=GC+1
2420 RETURN
2430 IF MM=0ORMM=9  THEN RETURN
2440 PRINT#4," ":PRINT#4,LW$(MD);"  ";MM$(MM):GC=GC+2:RETURN
2450 GOSUB690:IFBT=0THEN 370
2460 YY=22:XX=0:GOSUB600:PRINT"       F1 = [208]AGE     F3 = [199]RAB/[208]LACE"
2470 PRINT "       F5 = [201]NSERT   F6 = [196]ELETE"
2480 PRINT "       _  = [197]SCAPE   F7 = [211]TART"
2490 HX=0:HY=0:CX=0:CY=0:HN=0:HN$=""
2500 GOSUB1910:P=PS+CY:IFCX=1THEN P=CS+CY
2510 IF A$="_"THEN GOSUB180:GOSUB180:GOTO100
2520 IF A$="[134]"THEN2580
2530 IF HN<>0 THEN GOSUB2920:IFHN<>0THEN 2500
2540 IF A$="[139]"THEN GOSUB2830:GOTO2500
2550 IF A$="[135]" THEN GOSUB 2860  :GOTO2500
2560 IF A$="[136]" THEN GOTO3070
2570 PRINT "MALFUNCTION":END
2580 IF HN<>0THEN 2610
2590 HN=CX+1:IFCX=0 THEN N$=DP$(P):GOTO2650
2600 N$=DC$(P):GOTO2670
2610 IF(CX+1)<>HNTHEN GOSUB 2890 :GOTO2500
2620 GOSUB2740:GOSUB180:IFHN=1THEN DP$(P)=N$:GOSUB2790
2630 IFHN=2 THEN DC$(P)=N$:GOSUB2820
2640 HN=0:GOTO2500
2650 IF LEFT$(N$,1)<>CHR$(255) THEN GOSUB2690:GOSUB2800:GOSUB2790:GOTO2500
2660 HN=0:GOTO2500
2670 IF LEFT$(N$,1)<>CHR$(255) THEN GOSUB2690:GOSUB2800:GOSUB2820:GOTO2500
2680 HN=0:GOTO2500
2690 IFHN=2 THEN 2720
2700 DP=DP-1:IFDP<1THENDP=1:RETURN
2710 CY=0:FORJ=P TO DP:DP$(J)=DP$(J+1):NEXT:RETURN
2720 DC=DC-1:IFDC<1THEN DC=1:RETURN
2730 CY=0:FORJ=P TO DC:DC$(J)=DC$(J+1):NEXT:RETURN
2740 IFHN=2 THEN 2770
2750 DP=DP+1:IFDP>53THENDP=53:GOSUB2950:P=0:RETURN
2760 FORJ=DPTOPSTEP-1:DP$(J)=DP$(J-1):NEXT:RETURN
2770 DC=DC+1:IFDC>53THENDP=53:GOSUB2950:P=0:RETURN
2780 FORJ=DCTOPSTEP-1:DC$(J)=DC$(J-1):NEXT:RETURN
2790 GOSUB1560:PP=PS:GOSUB1580:RETURN
2800 FR=1:FC=13:TR=3:TC=27:FU=7:CO=.:RV=0:GOSUB120
2810 YY=3:XX=14:GOSUB600:PRINT"[199][210][193][194]= ";N$:RETURN
2820 GOSUB1570:CP=CS:GOSUB1660:RETURN
2830 HN=CX+1:GOSUB2690:IFHN=1 THEN GOSUB2790
2840 IF HN=2THEN GOSUB2820
2850 HN=0:RETURN
2860 HN=CX+1:GOSUB2740:N$="000000":IFHN=1THEN DP$(P)=N$:GOSUB2790
2870 IF HN=2 THEN DC$(P)=N$:GOSUB2820
2880 HN=0:RETURN
2890 FR=12:FC=12:TR=17:TC=29:FU=7:CO=.:RV=8:GOSUB120
2900 YY=15:XX=15:GOSUB600:PRINT"[129][208]LACE [195]OLUMN"
2910 PRINTTAB(14);"[206]OT [197]QUAL [199][210][193][194]":GOSUB450:GOSUB180:PRINT"":GOTO2500
2920 FR=12:FC=11:TR=17:TC=29:FU=7:CO=.:RV=8:GOSUB120
2930 YY=15:XX=13:GOSUB600:PRINT"[129][199][210][193][194] IN [208]ROCESS"
2940 GOSUB450:GOSUB180:PRINT"":GOTO2500
2950 FR=12:FC=12:TR=17:TC=29:FU=7:CO=.:RV=8:GOSUB120
2960 YY=15:XX=15:GOSUB600:PRINT"[129]    [204]IMIT"
2970 PRINTTAB(14);"  [197]XCEEDED!   ":GOSUB450:GOSUB180:PRINT"":RETURN
2980 REM: GET FLS
2990 OPEN3,DE,3,A1$+",S,R":GOSUB550:INPUT#3,WA,WB
3000 WC=VAL(N$)*1000+INT((WA+5)/10)
3010 INPUT#3,LA$:INPUT#3,LB:INPUT#3,LC:MC=LB:MU=LC
3020 IF LEFT$(LA$,1)=CHR$(255)THEN 3060
3030 GOSUB1050:P=(FX-1)*112+MD*16+(MM-1)*4:IF FD=1THEN P=(FX-1)*28+MD*4
3040 P=P+2*FP:FA(P)=FA(P)+MF:FA(P+1)=FA(P+1)+MT
3050 GOTO3010
3060 CLOSE3:RETURN
3070 FR=12:FC=12:TR=17:TC=29:FU=7:CO=.:RV=8:GOSUB120:YY=14:XX=15:
3080 GOSUB600:DIM FA(2915)
3090 PRINT"[129][193]NALYSIS BY:":PRINT TAB(15);" ([205])EAL":PRINT TAB(15);" ([196])AY"
3100 POKE198,0:WAIT198,15:GETA$:IFA$<>"M"AND A$<>"D" THEN 3100
3110 FD=0:IFA$="D"THENFD=1
3120 FL=26+(-26*(FD=1)):FX=0:XL=DP:IFDC>DPTHEN XL=DC
3130 IF FL>XL THEN FL=XL
3140 GOSUB4050:CLOSE15:OPEN15,DE,15,"I0":GOSUB550
3150 FX=FX+1:IFFX>FLTHEN CLOSE15:GOTO3350
3160 N$=DP$(FX)+CHR$(0):IF LEFT$(N$,1)=CHR$(255) THEN 3210
3170 IF LEFT$(N$,1)=CHR$(0) THEN 3210
3180 IF LEFT$(N$,4)="0000"THEN 3210
3190 HZ$="  [208][204][193][206] ":GOSUB4080
3200 FP=0:A1$="%!"+PN$+DP$(FX):GOSUB2980:LB((FX-1)*2)=WC
3210 N$=DC$(FX)+CHR$(0):IF LEFT$(N$,1)=CHR$(255) THEN 3150
3220 IF LEFT$(N$,1)=CHR$(0)THEN 3150
3230 IF LEFT$(N$,4)="0000" THEN 3150
3240 HZ$="[193][195][212][213][193][204] ":GOSUB4080
3250 FP=1:A1$="%$"+PN$+DC$(FX):GOSUB2980:LB((FX-1)*2+1)=WC:GOTO3150
3260 FX=INT(P/112):PX=P-FX*112:MD=INT(PX/16):PX=PX-MD*16
3270 MM=INT(PX/4):PX=PX-MM*4:RETURN
3280 FX=INT(P/28):PX=P-FX*28:MD=INT(PX/4):PX=PX-MD*4:RETURN
3290 PRINT"[144][147][215][197][197][203] [211][212][193][210][212]     [208][204][193][206]/[193][195][212][213][193][204] - [214][193][210][201][193][206][195][197] -"
3300 PRINT"  [196][193][217] [205][197][193][204]     [211]-[198][193][212] [212][207][212][193][204] [211]-[198][193][212] [212][207][212][193][204]"
3310 RETURN
3320 PRINT#4,"[196][193][212][197]   [196][193][217] [205][197][193][204]   -- [208][204][193][206] --- - [193][195][212][213][193][204] --  [214][193][210][201][193][206][195][197]      [215][197][201][199][200][212] "
3330 PRINT#4,TAB(18);"[211]-[198][193][212] [212][207][212][193][204] [211]-[198][193][212] [212][207][212][193][204] [211]-[198][193][212] [212][207][212][193][204]    [212][193][210][199][197][212]  [193][195][212][213][193][204]"
3340 RETURN
3350 FL=(FL-1)*-112*(FD=0)+(FL-1)*-28*(FD=1)
3360 GOSUB180:GOSUB180:GOSUB180:PRINT"[147]"
3370 FR=12:FC=12:TR=18:TC=29:FU=7:CO=.:RV=6:GOSUB120:YY=14:XX=14:GOSUB600
3380 PRINT"  [207][213][212][208][213][212] [212][207]:":PRINTTAB(14);"  ([211])CREEN"
3390 PRINTTAB(15);" ([208])RINTER":PRINTTAB(15);" ([194])OTH":PRINTTAB(15);" ([205])ENU"
3400 POKE198,0:WAIT198,15:GETA$:IFA$="S"OR A$="P"OR A$="B"ORA$="M"THEN 3420
3410 GOTO3400
3420 IF A$="M"THEN POKE186,DE:RUN
3430 OS=1:IFA$="P"THENOS=2
3440 IF A$="B" THEN OS=3
3450 YY=15:XX=0:GOSUB600:FORJ=1TO4:PRINTTAB(14);"           ":NEXT
3460 YY=16:XX=16:GOSUB600:IFOS=1 THEN PRINT" [211][195][210][197][197][206] "
3470 IF OS=2 THEN PRINT" [208][210][201][206][212][197][210]"
3480 IF OS=3THEN PRINT" [194][207][212][200]"
3490 IF OS=1 THEN 3520
3500 CLOSE4:OPEN4,4,7:CLOSE4:IFST<>0THEN GOSUB1500:GOTO3500
3510 CLOSE4:OPEN4,4,7:PRINT#4,:GOSUB1530
3520 LC=0:P=0:SC=0:IFFD=0 THENGOSUB3260:GOSUB3880
3530 FX=0:GOSUB3960:HM$=KD$:IF FD=1 THEN GOSUB3280
3540 HN$=LW$(MD):IF FD=0 THEN HO$=MM$(GM+1)
3550 GF=FX:GD=MD:GM=MM:FORI=1TO8:LC(I)=0:NEXT
3560 IF OS=1 OR OS=3 THEN GOSUB3290:GOSUB4010:SC=3
3570 IF OS=2 OR OS=3 THEN GOSUB3320:PC=2
3580 IF FD=1 THEN HO$="      ":GOTO3680
3590 IF FX=GF THEN3630
3600 GOSUB3770:GOSUB3930:GM=MM:HO$=MM$(GM+1):GD=MD:HN$=LW$(MD):GF=FX
3610 IF P>FL-1THEN 3950
3620 GOSUB3960:GOSUB4010
3630 IF MD=GD THEN 3650
3640 GOSUB3770:GOSUB3930:GM=MM:HO$=MM$(GM+1):GD=MD:HN$=LW$(MD)
3650 IF MM<>GM THEN GOSUB3770:GM=MM:HO$=MM$(GM+1)
3660 GOSUB3760:P=P+1:IF P>FL-1 THEN 3950
3670 GOSUB 3260:GOTO3590
3680 IF FX=GF THEN3720
3690 GOSUB3770:GOSUB3930:GM=MM:HO$="      ":GD=MD:HN$=LW$(MD):GF=FX
3700 GOSUB3910:IFP>FL-1THEN 3950
3710 GOSUB3960:GOSUB4010
3720 IF MD=GD THEN 3740
3730 GOSUB3770:GD=MD:HN$=LW$(MD)
3740 GOSUB3760:P=P+1:IF P>FL-1THEN 3950
3750 GOSUB 3280:GOTO3680
3760 LC(PX)=LC(PX)+FA(P):RETURN
3770 FORI=0 TO 3:LC(4+I)=LC(4+I)+LC(I):NEXT
3780 HA$=RIGHT$("      "+STR$(LC(0)),6):HB$=RIGHT$("      "+STR$(LC(1)),6)
3790 HC$=RIGHT$("      "+STR$(LC(2)),6):HD$=RIGHT$("      "+STR$(LC(3)),6)
3800 HE$=RIGHT$("      "+STR$(LC(0)-LC(2)),6)
3810 HF$=RIGHT$("      "+STR$(LC(1)-LC(3)),6)
3820 IF OS=2 THEN GOTO3850
3830 PRINT"  ";HN$;" ";HO$;" [208]";HA$;HB$:PRINTTAB(13);"[193]";HC$;HD$;HE$;HF$
3840 SC=SC+2:IF SC>21 THEN GOSUB3910
3850 IF OS=1 THEN 3880
3860 PRINT#4,HM$;" ";HN$;" ";HO$;HA$;HB$;HC$;HD$;HE$;HF$;SPC(7);HI$;SPC(5);HJ$
3870 PC=PC+1:IF PC>LM-6 THEN GOSUB4090
3880 FOR I=0 TO 3:LC(I)=0:NEXT:HM$="      ":HN$="   ":HO$="      "
3890 HI$="   ":HJ$="   ":RETURN
3900 HM$=STR$(INT((LB((INT(FX/2))*2))/1000)):RETURN
3910 PRINT TAB(17);"[208][193][199][197][146]";:POKE198,0:WAIT198,15:GETA$:GOSUB3290:SC=3:RETURN
3920 FORI=PCTOLM:PRINT#4,CHR$(32):NEXT:GOSUB3320:PC=0:RETURN
3930 FOR  I=0TO3:LC(I)=LC(I+4):NEXT:HO$="*[212][207][212][193][204]":GOSUB3770
3940 FORI=0TO8:LC(I)=0:NEXT:RETURN
3950 GOSUB3770:GOSUB3930:GOSUB3910:GOTO3370
3960 WC=LB((INT(FX))*2):WD=LB((INT(FX))*2+1)
3970 K1=INT(WC/1000):K2=INT(WD/1000):IFK1=0 THEN K1=K2
3980 WC=WC-(K1*1000):WD=WD-(K2*1000)
3990 KD$=RIGHT$("      "+STR$(K1),6):WC$=RIGHT$("   "+STR$(WC),3)
4000 WD$=RIGHT$("   "+STR$(WD),3):HM$=KD$:HI$=WC$:HJ$=WD$:RETURN
4010 IF SC>3 THEN PRINT
4020 PRINT "";KD$;SPC(5);"[215][197][201][199][200][212]: [208][204][206]/[193][195][212]";SPC(3);WC$;" / ";WD$
4030 SC=SC+2:IF SC>21 THEN GOSUB3910
4040 RETURN
4050 YY=15:XX=15:GOSUB600:IFFD=0THEN PRINT"[129]    [205][197][193][204][160][160][160]"
4060 IF FD=1 THEN PRINT "[129]    [196][193][217]    "
4070 FORJ=1TO2:PRINTTAB(14);"           ":NEXT:RETURN
4080 YY=17:XX=14:GOSUB600:PRINT"[129]";HZ$;N$:RETURN
4090 FOR IJ=PC TOLM:PRINT#4:NEXT:PC=2:GOSUB3320:RETURN
5000 PRINT"[147][150][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
5010 FORI=1TO3:PRINT"[129]                                        ";:NEXT
5020 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
5030 PRINT"[129]"TAB(5)"[195][160][193] [204] [207] [210] [201] [197] [160] [208][160][210][160][201][160][206] [212][160][197][160][210]"
5040 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN