5 REM 6180=LS
10 CLR:MT=51730:SR=51828:ML=52000:DIMEP$(20):FORZ=1TO20:EP$(Z)="     ":NEXTZ:GOTO50
20 XP=3:FOR Z=1 TO 6:YP=6+Z:GOSUB30:PRINTCHR$(MC)"";MC$(Z):NEXTZ:RETURN
30 POKE781,YP:POKE782,XP:POKE783,0:SYS65520:RETURN
40 SYSSR,1,6,12,33,12000:RETURN
50 PRINT"[147]":GOSUB2830:GOSUB2760
60 V=53248:POKEV+21,255:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,55:POKE2044,56
70 POKE 2045,57:POKE2046,58:POKE53275,3
80 POKEV+39,7:POKEV+40,4:POKEV+41,8
90 SYSMT,0,164,105:SYSMT,1,164,151:POKE 53271,255:POKE53277,255
100 SYSMT,2,148,169:SYSMT,3,164,191:SYSMT,4,115,193:SYSMT,5,64,170
110 SYSMT,6,90,90:POKE 53288,14:POKE 53289,3:POKE 53290,10:POKE 53291,10
120 DEFFNMI(O)=VAL(MID$(TI$,4,1)):DEFFNSE(O)=VAL(RIGHT$(TI$,2))
130 GOTO2140
140 GOSUB1520:ONVAL(MID$(FU$,INT(RND(0)*LEN(FU$))+1,1))GOSUB590,750,150:RETURN
150 GOSUB2760:FS=13
160 GOSUB2000:YN=6:XN=19:U1=135:U2=3:U3=0:U4=11:U5=10
170 IFVAL(N1$)>9THENN1$=RIGHT$(N1$,LEN(N1$)-1)
180 IFVAL(N2$)>9THENN2$=RIGHT$(N2$,LEN(N2$)-1)
190 P1=VAL(MID$(N2$,2,1)):P2=VAL(MID$(N1$,2,1)):N3$=STR$(P1*P2):WP=1:CM=1
200 IF LEN(N3$)<3 THEN C1=0:CH=0:GOTO 220
210 C1=VAL(LEFT$(N3$,2)):CH=C1:IFVAL(N1$)<=9THENC1=0:GOTO230
220 N3$=RIGHT$(N3$,1)
230 IFWG=1THENS1=3:S2=3:GOSUB1000:UV$=N3$:CH=C1:GOSUB4560:GOSUB4600:GOSUB4410
240 P1=VAL(MID$(N2$,2,1)):P2=VAL(MID$(N1$,1,1)):H$=STR$(P2*P1+CH):WP=2
250 IFWG=1ANDVAL(N1$)>9THENGOSUB3980:GOSUB4420
260 H$=H$+N3$:N3$=H$:IFVAL(N3$)>99THENN3$=RIGHT$(N3$,LEN(N3$)-1)
270 IFWG=1THENGOTO290
280 YN=6:XN=19:UV$=N3$:U1=133:U2=3:U3=2:U4=11:U5=10:CM=3:GOSUB1200
290 IFVAL(N2$)<=9THENGOSUB4590:RETURN
300 GOSUB4590:P1=VAL(MID$(N2$,1,1)):P2=VAL(MID$(N1$,2,1)):N4$=STR$(P1*P2):WP=1
310 IF LEN(N4$)<3 THEN C1=.:CH=.:GOTO 330
320 C1=VAL(LEFT$(N4$,2)):CH=C1
330 N4$=RIGHT$(N4$,1):IFWG=1THENGOSUB4000:GOSUB4410
340 P2=VAL(MID$(N1$,1,1)):H$=STR$(P2*P1+CH):WP=2:IFWG=1THENGOSUB4020:GOSUB4420
350 H$=H$+N4$:N4$=H$:IFVAL(N4$)>99THENN4$=RIGHT$(N4$,LEN(N4$)-1)
360 IFWG=1THENYP=17:XP=16:GOSUB30:PRINT"[195][195][195][195][195][195][195][195]":GOTO380
370 UV$=N4$:U1=194:CM=3:GOSUB1200
380 GOSUB4590:LN=LEN(N3$):N5$=MID$(N3$,LN,1)
390 CH=.:WP=.:IFWG=1THENP1=VAL(N5$):P2=.:CH=C1:C1=.:GOSUB4040:GOSUB4410
400 P1=VAL(MID$(N3$,LN-1,1)):P2=VAL(MID$(N4$,LN,1)):H$=STR$(P1+P2):WP=1
410 IFLEN(H$)<3THENC1=.:GOTO430
420 C1=1
430 H$=RIGHT$(H$,1):N5$=H$+N5$
440 IFWG=1THENCH=C1:YN=12:XN=17:S1=2:S2=3:GOSUB4060:GOSUB4410:C1=CH
450 P1=VAL(MID$(N3$,LN-2,1)):P2=VAL(MID$(N4$,LN-1,1)):H$=STR$(P1+P2+C1):C5=C1:C1=.:WP=3
460 IFVAL(H$)<=9THENC2=.:GOTO480
470 C2=1
480 H$=RIGHT$(H$,1):IFWG=1THENS1=1:S2=2:N5$=H$+N5$:OH$=H$:GOSUB4080:GOSUB4420:GOSUB4590
490 GOSUB4630:IFWG<>1THENN5$=H$+N5$:OH$=H$
500 CH=.:C1=.:P1=VAL(MID$(N4$,LN-2,1)):P2=.:H$=STR$(P1+C2):WP=2:IFTW=1THENRETURN
510 IFWG=1THENN5$=H$+N5$:GOTO540
520 N5$=H$+N5$:YP=17:XP=16:GOSUB30:PRINT"[195][195][195][195][195][195][195][195]":YN=12:XN=17:UV$=RIGHT$(N5$,3)
530 UV$=" "+UV$:CN=1:U2=13:U3=1:U4=15:U5=15:CM=3:C1=C5:GOSUB1200:GOSUB4590:IFTW=1THENRETURN
540 IFC2=1ANDVAL(N4$)>99THENGOSUB4660:CH=C2:C2=0
550 IFWG=1ANDVAL(N4$)>99THENC2=CH:CH=.:GOSUB1160:C2=.
560 U1=1:U2=14:CM=1:IFLEFT$(N5$,2)=" 0"THENGOSUB2870:RETURN
570 UV$=LEFT$(N5$,2):UV$=RIGHT$(UV$,1):IFWG=1THENGOSUB4560:GOSUB4420:GOSUB4580:GOSUB2870:RETURN
580 GOSUB1200:GOSUB2870:GOSUB4580:RETURN
590 GOSUB2760:FS=10
600 GOSUB2000:YN=6:XN=19:U1=135:U2=3:U3=0:U4=11:U5=10:CM=3
610 IF VAL(N1$)<10THEN N1$=" "+N1$
620 IF VAL(N2$)<10THEN N2$=" "+N2$
630 P2=VAL(MID$(N1$,3,1)):P1=VAL(MID$(N2$,3,1)):H$=STR$(P2+P1):WP=1
640 IF VAL(H$)<=9THENC1=.:CH=.:GOTO660
650 C1=VAL(LEFT$(H$,2)):CH=C1
660 H$=RIGHT$(H$,LEN(H$)-(2-ABS(VAL(H$)<=9)))
670 N3$=H$:IFVAL(N1$)<=9THENC1=.:IFCH=1THENCH=-1
680 CM=1:IFWG=1THENS1=3:S2=3:GOSUB1000:UV$=N3$:GOSUB4560:GOSUB4600:GOSUB4410
690 IFWG=1ANDVAL(N1$)<=9THEN1620
700 P1=VAL(MID$(N2$,2,1)):P2=VAL(MID$(N1$,2,1)):H$=STR$(P1+P2+ABS(CH))
710 N3$=H$+N3$:IFWG=1THEN1640
720 YN=6:XN=19:UV$=N3$:U1=133:U2=3:U3=2:U4=11:U5=10:CM=3
730 GOSUB1200:GOSUB4590
740 RETURN
750 FS=11:GOSUB2760:GOSUB2000:YN=6:XN=19:U1=133:U2=3:U3=2:U4=11:U5=10:CM=3
760 D1=0:IFVAL(N1$)<10THENN1$=" "+N1$
770 IFVAL(N2$)<10THENN2$=" "+N2$
780 IFVAL(MID$(N1$,3,1))<VAL(MID$(N2$,3,1))THEN800
790 GOTO920
800 P1=VAL(MID$(N1$,2,1)):H$=STR$(P1-1)
810 N1$=H$+MID$(N1$,3,1):C3=VAL(H$):AC=1:IFWG=1THENGOSUB1860:GOSUB3860
820 P1=VAL(MID$(N1$,3,1)):C$=STR$(1)+MID$(N1$,3,1)
830 C2=VAL(C$):IFWG=1THENGOSUB1880:GOSUB4200
840 P2=C2:P1=VAL(MID$(N2$,3)):N3$=STR$(P2-P1)
850 IFWG=1THENU1=135:S1=0:S2=3:CM=1:GOSUB1900:GOSUB1000:UV$=N3$:GOSUB4560:GOSUB4600:GOSUB3850
860 P2=VAL(MID$(N1$,2,1)):P1=VAL(MID$(N2$,2,1)):H$=STR$(P2-P1)
870 N3$=RIGHT$(N3$,LEN(N3$)-1)
880 N3$=H$+N3$
890 IFWG=1THENU1=134:S1=0:S2=2:CM=1:GOSUB1900:GOSUB1000:UV$=H$:GOSUB4560:GOSUB4600:GOSUB3850
900 IF WG=1 THEN GOSUB4390:RETURN
910 UV$=N3$:GOSUB3850:GOTO990
920 P2=VAL(MID$(N1$,3,1)):P1=VAL(MID$(N2$,3,1)):N3$=STR$(P2-P1)
930 N3$=RIGHT$(N3$,LEN(N3$)-1)
940 IFWG=1THENU1=135:S1=3:S2=3:CM=1:GOSUB1900:GOSUB1000:UV$=N3$:GOSUB4560:GOSUB4600:GOSUB3850
950 P2=VAL(MID$(N1$,2,1)):P1=VAL(MID$(N2$,2,1)):H$=STR$(P2-P1)
960 N3$=H$+N3$:IFVAL(N1$)<=9 THEN 980
970 IFWG=1THENU1=134:S1=2:S2=2:CM=1:GOSUB1900:GOSUB1000:UV$=H$:GOSUB4560:GOSUB4600:GOSUB3850
980 IFWG=1THENRETURN
990 UV$=N3$:GOSUB3860:GOSUB4390:RETURN
1000 IFFS=10THENGOSUB1770
1010 IFFS=13THENGOSUB1660
1020 FORX=1TO2:IFS1>0THENPOKE164,0:POKE165,14:POKE166,66+S1:POKE 167,3:SYSML
1030 POKE164,0:POKE165,14:POKE166,87+S2:POKE167,3:SYSML
1040 FORZ=1TOFT:NEXTZ:IFS1>0THENPOKE164,9*P2:POKE165,11:POKE166,66+S1:POKE167,3:SYSML
1050 IF VAL(N2$)<=9ANDS2=2THEN1070
1060 IFS2>0THENPOKE164,9*P1:POKE165,11:POKE166,87+S2:POKE167,3:SYSML
1070 FORZ=1TOFT:NEXTZ,X:FV=1:RETURN
1080 GOSUB1770:FORX=1TO2:POKE164,0:POKE165,14:POKE166,133+3:POKE167,3:SYSML:FORZ=1TOFT:NEXTZ
1090 POKE164,9*VAL(MID$(N3$,3,3)):POKE165,11:POKE166,133+3:POKE167,3:SYSML
1100 FORZ=1TOFT:NEXTZ:NEXTX:FV=2:RETURN
1110 VL$=MID$(N3$,S1,1):FORX=1TO2:POKE164,0:POKE165,14:POKE166,133+S1:POKE167,3:SYSML
1120 POKE164,0:POKE165,14:POKE166,194+S2:POKE167,3:SYSML:FORZ=1TOFT:NEXTZ
1130 IF VL$<>" "THENPOKE164,9*VAL(VL$):POKE165,11:POKE166,133+S1:POKE167,3:SYSML
1140 POKE164,9*VAL(MID$(N4$,S2,1)):POKE165,11:POKE166,194+S2:POKE167,3:SYSML
1150 FORZ=1TOFT:NEXTZ:NEXTX:FV=3:RETURN
1160 IF C2=1ANDVAL(N4$)<100THEN FV=4:RETURN
1170 GOSUB1770:FORX=1TO2:POKE164,0:POKE165,14:POKE166,195:POKE167,3:SYSML:FORZ=1TOFT:NEXTZ
1180 POKE164,9*VAL(LEFT$(N4$,1)):POKE165,11:POKE166,195:POKE167,3:SYSML
1190 FORZ=1TOFT:NEXTZ,X:FV=4:RETURN
1200 HA$="":XP=XN+1:YP=YN:GOSUB5900:PRINT" ":IF LEN(UV$)=4THENUV$=RIGHT$(UV$,LEN(UV$)-1)
1210 IFCM=U3ANDC1<>0THENXP=XN+I:YP=YN:GOSUB5900:PRINT" ":CF=I
1220 GOSUB1350:IFTW=ITHENRETURN
1230 IN=IN-48:IFCM=U3ANDC1<>0ANDIN=C1THENGOSUB4350:C1=0:GOTO1210
1240 IFIN<>VAL(MID$(UV$,CM,1))THENSYSSR,1,6,12,33,3000:GOSUB1330:GOTO1210
1250 SYSSR,1,9,12,17,11000:POKE164,9*IN:POKE165,U4
1260 HA$=MID$(UV$,CM,4)
1270 IFVAL(UV$)<100THENHA$=" "+MID$(UV$,CM,4)
1280 POKE166,U1+CM:POKE167,U2:SYSML:CM=CM-1
1290 IFHA$=UV$ORCM=0THENRETURN
1300 IFU2=14ANDVAL(HA$)=VAL(UV$)THENRETURN
1310 IFVAL(N3$)<10ANDVAL(N1$)<10ANDCM=2THENRETURN
1320 GOTO1210
1330 T2$=STR$(VAL(TI$)+2):T2$=LEFT$(TI$,6-LEN(T2$)+1)+RIGHT$(T2$,LEN(T2$)-1):TI$=T2$
1340 T2$="000000":RETURN
1350 IFCF=1THEN1370
1360 POKE164,188:POKE165,U5:POKE166,U1+CM:POKE 167,U2:SYSML
1370 GOSUB5920:PRINT""MID$(TI$,4,1)":"RIGHT$(TI$,2):IFFNMI(O)>=L1ANDFNSE(O)>=L2THEN1420
1380 GETIN$:IFIN$=""THEN1350
1390 IFIN$="[136]"THENGOSUB2830:GOSUB2760:GOTO2320
1391 IFIN$="Q"THEN6180
1400 IN=ASC(IN$):IFIN<48ORIN>58THEN1350
1410 CF=0:RETURN
1420 N1$="":N2$="":N3$="   ":N4$="":N5$="":UV$="":C3=0:TW=1:PP=PP-1:RETURN
1430 FOR Z=M1+1TOM2+1STEP3:SYSSR,0,9,12,17,MU(Z)*4+4
1440 SYSSR,1,9,12,17,MU(Z+1)*4+4:SYSSR,2,9,12,17,MU(Z+2)*4+4
1450 FOR X=1TO22:NEXTX:NEXTZ
1460 RETURN
1470 FOR Z=20 TO 5STEP-1:SYSSR,0,9,12,33,Z*200:NEXT:FORZ=1TO100:NEXT:RETURN
1480 FOR Z=M1+1 TO M2+1 STEP 3:SYSSR,0,9,12,17,MU(Z)*4+4
1490 SYSSR,1,9,12,17,MU(Z+1)*4+4:SYSSR,2,9,12,17,MU(Z+2)*4+4
1500 FOR X=1TO15:NEXTX:NEXTZ
1510 RETURN
1520 REM FUNCTION SPEC
1530 IF EP=1 THEN 1580
1540 N1=INT(RND(0)*(R2-R1)+R1):N2=INT(RND(0)*(R4-R3)+R3)
1550 N1$=STR$(N1):N2$=STR$(N2)
1560 N3$=N1$:IF VAL(N2$)>VAL(N1$) THEN N1$=N2$:N2$=N3$
1570 RETURN
1580 TP=INT(RND(0)*NE-1)+2:N1$=STR$(FP(TP)):N2$=STR$(LP(TP)):FU$=STR$(MP(TP))
1590 FU$=RIGHT$(FU$,1)
1600 N3$=N1$:IF VAL(N2$)>VAL(N1$) THEN N1$=N2$:N2$=N3$
1610 RETURN
1620 IFCH=-1THENUV$="1":CM=1:U1=134:GOSUB4560:GOTO1650
1630 RETURN
1640 C2=CH:WP=2:GOSUB4170
1650 GOSUB4420:GOSUB4590:RETURN
1660 REM PRINT OUT STUFF
1670 GOSUB1760
1680 YP=7:XP=3+ABS(P2*P1<10):GOSUB30:P$=STR$(P2)+STR$(P1)
1690 P$=MID$(P$,3,3)+"X"+MID$(P$,2,1)+"="+STR$(P2*P1):P$=RIGHT$(P$,LEN(P$)-1)
1700 PRINT""P$
1710 IFC1>0ANDWP=1THENYP=9:GOSUB30:PRINT"[155]CARRY[159]";C1
1720 IFCH>0ANDWP=2THENXP=3:YP=8:GOSUB30:PRINT"[155]ADD[159] +";CH
1730 IFCH>0ANDWP=2THENXP=7:YP=9:GOSUB30:PRINT"[195][195][195]":GOSUB1750
1740 RETURN
1750 XP=7+ABS((P2*P1+CH)<10):YP=10:GOSUB30:PRINT""P2*P1+CH:RETURN
1760 XP=3:FORYP=7TO12:GOSUB30:PRINT"[159]        ":NEXT:RETURN
1770 GOSUB1760
1780 YP=7:XP=3+ABS((P2+P1)<10):GOSUB30:P$=STR$(P2)+STR$(P1)
1790 P$=MID$(P$,3,3)+"+"+MID$(P$,2,1)+"=[159]"+STR$(P2+P1):P$=RIGHT$(P$,LEN(P$)-1)
1800 PRINT""P$
1810 IFCH>0ANDWP=1THENYP=9:GOSUB30:PRINT"[155]CARRY[159] 1":GOTO1850
1820 IFC2>0ANDWP=2THENXP=3:YP=8:GOSUB30:PRINT"[155]ADD[159] + 1":GOSUB1940
1830 IFCH>0ANDWP=3THENXP=3:YP=8:GOSUB30:PRINT"[155]ADD[159] + 1":GOSUB1940:GOTO1850
1840 IFC2>0ANDWP=3THENYP=9:GOSUB30:PRINT"[155]CARRY[159] 1"
1850 RETURN
1860 GOSUB1760:XP=3:YP=7:GOSUB30:PRINT"[159]BORROW 1":YP=9:GOSUB30:PRINT" FROM"P1
1870 YP=11:GOSUB30:PRINT""P1"[157]-1="P1-1:RETURN
1880 GOSUB1760:XP=3:YP=7:GOSUB30:PRINT"[159]RENAME"P1:YP=9:GOSUB30
1890 PRINT"AS "P1;"[157][157][157]1":RETURN
1900 GOSUB1760:YP=7:XP=3+ABS(P2<10):GOSUB30:P$=STR$(P1)+STR$(P2)
1910 P$=MID$(P$,3,4+(P2>9))+"-"+MID$(P$,2,1)+"=[159]"+STR$(P2-P1):P$=RIGHT$(P$,LEN(P$)-1)
1920 PRINT""P$
1930 RETURN
1940 XP=7:YP=9:GOSUB30:PRINT"[195][195][195]":YP=10:XP=7+ABS((P2+P1+1)<10):GOSUB30
1950 PRINT""P2+P1+1:IF FS<>13THENRETURN
1960 IF P2+P1+1>9THENXP=3:YP=11:GOSUB30:PRINT"--------"
1970 IF P2+P1+1>9 THENYP=12:GOSUB30:PRINT"[155]CARRY[159] 1"
1980 RETURN
1990 CM=LEN(N3$)-1:U1=U1-(CM-1):RETURN
2000 A$=N1$:FORZ=LEN(A$)TO2STEP-1
2010 POKE164,9*VAL(MID$(A$,Z,1)):POKE166,(69-LEN(A$))+Z:SYSML:NEXT:A$=N2$
2020 FORZ=LEN(A$)TO2STEP-1:POKE164,9*VAL(MID$(A$,Z,1))
2030 POKE166,(90-LEN(A$))+Z:SYSML:NEXT
2040 POKE164,9*FS:POKE166,91:SYSML
2050 YP=11:XP=16:GOSUB30:PRINT"[195][195][195][195][195][195][195][195]":RETURN
2060 A$=N3$:A$=RIGHT$(A$,LEN(A$)-1):FORZ=LEN(A$)TO1STEP-1
2070 POKE164,9*VAL(MID$(A$,Z,1)):POKE166,133+Z:SYSML:NEXT:RETURN
2080 GOTO 1950
2090 S1=3:S2=3:GOSUB1000
2100 POKE164,CD:POKE165,11:POKE166,128:POKE167,3:POKE168,NC:POKE170,NS
2110 SYSML:RETURN
2120 REM
2130 GOTO 2320
2140 S$="SECONDS:  [157][157]":D$="":YD(0)=274:YD(1)=266:SG(0)=3
2150 SG(1)=1:SG(3)=2:AA$="[156][212]O:  [157][157]"
2160 DIMMN$(30),FP(20),MP(20),LP(20):I=1
2170 GOSUB5460:GOSUB3700:GOTO 2120
2180 MC$(2)="1) [211]HOW [205]E":MC$(3)="2) [211]NIGGLE [195]HALLENGE"
2190 MC$(4)="3) [211]NIGGLE [205]ANIA":MC=28:RETURN
2200 MC$(3)="(*) [197]NTER [208]ROBLEMS":MC$(5)="   1)=[217]ES  2)=[206]O":MC=31:RETURN
2210 MC=30:MC$(1)="1) [193]DDITION       +":MC$(2)="2) [211]UBTRACTION    -"
2220 MC$(3)="3) [205]ULTIPLICATION X":MC$(4)="4) [193]LL [212]HREE  + - X)"
2230 MC$(5)="5) [195]HOOSE [217]OUR [207]WN":RETURN
2240 MC$(1)="1) [198]IRST [210]ANGE 0-10":MC$(2)="2)             0-20"
2250 MC$(3)="3)             0-50":MC$(4)="4)             0-99"
2260 MC$(5)="5) [195]HOOSE [217]OUR [207]WN":MC=28:RETURN
2270 MC$(2)="1) 1 [205]INUTE   1:00":MC$(3)="2) 2 [205]INUTES  2:00"
2280 MC$(4)="3) [195]HOOSE [217]OUR [207]WN":RETURN
2290 MC$(1)="1) [211]ECOND [210]ANGE 0-10":MC$(2)="2)              0-20"
2300 MC$(3)="3)              0-50":MC$(4)="4)              0-99"
2310 MC$(5)="5) [195]HOOSE [217]OUR [207]WN":MC=156:RETURN
2320 GOSUB2180:GOSUB6050
2330 WG=1:LN=1:C1=49:C2=51:GOSUB4690
2340 WG=VAL(AN$)
2350 GOSUB2200:GOSUB6050:LN=1:C1=49:C2=50:GOSUB4690
2360 EP=VAL(AN$):IFEP=1THEN GOSUB5210:GOTO2380
2370 REM
2380 IFWG=1ANDEP=1THENGOTO2610
2390 IFEP=1THENGOTO2510
2400 GOSUB2210:GOSUB6050:C1=49:C2=53:GOSUB4690
2410 FU=VAL(AN$):IFFU<>5THEN2430
2420 GOSUB2650:XP=26:YP=13:GOSUB30:PRINT">";:LN=3:C2=51:GOSUB4690
2430 FU$=" "+AN$
2440 IF EP=1THEN2350
2450 GOSUB2240:GOSUB6050:LN=I:C2=53:GOSUB4690
2460 RV=VAL(AN$):IFRV<>5THEN2500
2470 XP=27:YP=8:GOSUB30:PRINT"[198]ROM:  [157][157]";:LN=2:C1=48:C2=57:GOSUB4690
2480 R1=VAL(AN$):YP=10:GOSUB30:PRINT"  [212]O:  [157][157]";:GOSUB4690
2490 R2=VAL(AN$):LE=5
2500 IFWG=1ANDEL=6THEN2450
2510 IF WG=1THEN2540
2520 GOTO 2670
2530 IFEP=1THEN2610
2540 IFWG=1ANDEP=1THENGOTO2350
2550 IFEP=1THENGOTO2500
2560 GOSUB2290:GOSUB6050:LN=I:C1=49:C2=53:GOSUB4690
2570 RG=VAL(AN$):IFRG<>5THEN2600
2580 XP=27:YP=8:GOSUB30:PRINT"[156][198]ROM:  [157][157]";:LN=2:C1=48:C2=57:GOSUB4690
2590 R3=VAL(AN$):PRINT:PRINTAA$;:GOSUB4690
2600 R4=VAL(AN$):FT=5
2610 PRINT"[147]":POKE53281,11:POKE53265,27:GOSUB2920:POKE53269,255:GOSUB5070:ONWGGOTO3450,2940,3230
2620 REM
2630 GOTO 2500
2640 C1=49:C2=57:RETURN
2650 PRINT"[145][145][145][145][145][145][145]";TAB(26);"  1) +";"[157][157][157][157][157][157]  2) -";TAB(26);"[157][157][157][157][157][157]  3) X";
2660 RETURN
2670 GOSUB2270:GOSUB6050:LN=I:C1=48:C1=49:C2=51:GOSUB4690
2680 T1=VAL(AN$):C1=48:C2=57:IFT1<>3THEN2530
2690 LN=1:XP=26:YP=9:GOSUB30:PRINT"[205]INUTES: [157]";:GOSUB4690
2700 L1=VAL(AN$):PRINT""TAB(26)S$;:LN=2:GOSUB4690
2710 L2=VAL(AN$):IFL2>59THENPRINT"[145][145][145]":GOTO2700
2720 GOTO2530
2730 PRINTTAB(26);"1-[217]  2-[206] >";:RETURN
2740 PRINTTAB(28)">";:RETURN
2750 PRINTTAB(26);"[195]HOOSE >";:RETURN
2760 T2$=TI$:POKE834,0:POKE164,65:POKE165,3:POKE166,66:POKE167,3:POKE168,63:POKE170,O
2770 SYSML:POKE896,O:POKE164,128:POKE166,129:SYSML:POKE960,O:POKE164,192:POKE166,193
2780 SYSML:POKE168,64:POKE2176,O:POKE164,128:POKE165,8:POKE166,129:POKE167,8
2790 SYSML:POKE168,64:POKE3520,O:POKE164,192:POKE165,13:POKE166,193:POKE167,13
2800 SYSML:POKE170,0:POKE3585,0:POKE164,1:POKE165,14:POKE166,0:POKE167,14
2810 SYSML:POKE164,192:POKE165,11:POKE166,66:POKE167,3:POKE168,8:POKE170,2
2820 TI$=T2$:RETURN
2830 POKE168,63:POKE170,0:POKE3648,0:POKE164,64:POKE165,14:POKE166,65:POKE167,14:SYSML
2840 POKE168,63:POKE170,0:POKE3712,0:POKE164,128:POKE165,14:POKE166,129:POKE167,14
2850 SYSML
2860 POKE164,192:POKE165,11:POKE166,66:POKE167,3:POKE168,8:POKE170,2:RETURN
2870 YP=17:XP=16:GOSUB30:PRINT"         ":RETURN
2880 POKE832,0:POKE164,65:POKE165,3:POKE166,66:POKE167,3:POKE168,8:POKE170,2
2890 SYSML
2900 POKE832,255:POKE164,65:POKE165,3:POKE166,66:POKE167,3:POKE168,8:POKE170,2
2910 SYSML:GOTO2880
2920 POKE 250,0:POKE3119,250:POKE 4626,11:POKE 4600,11
2930 RETURN
2940 REM SNIGGLE CHALLENGE
2950 POKE168,8:POKE170,2:TW=0:SYSMT,5,64,170:POKE53292,6:POKE4626,11
2960 PP=0:NP=INT(RND(0)*(3*L1)+(4+(L2/6)))
2970 PRINT"[147]";CHR$(14):POKE53281,11:GOSUB 2980:GOTO 2990
2980 RETURN
2990 YP=17:XP=11:GOSUB30:PRINT"[158][208]RESS '[198]7' [212]O [208]LAY"
3000 YP=19:XP=5:GOSUB30:PRINT"[153][208]RESS '[198]5' [212]O [195]HANGE [195]HALLENGE"
3010 YP=21:XP=6:GOSUB30:PRINT"[208]RESS '[198]3' [212]O [210]ETURN [212]O [205]ENU"
3020 YP=9:XP=9:GOSUB30:PRINT"[195]AN [217]OU [196]O";NP;"[208]ROBLEMS"
3030 YP=11:XP=9:GOSUB30:PRINT"[194]EFORE [212]IME [210]UNS [207]UT ?"
3040 FOR ZZ=1TO4:GOSUB3110:NEXT
3050 GETIN$:IFIN$=""THEN3050
3060 IF IN$="Q"THEN6180
3070 IF IN$="[136]"THEN3120
3080 IF IN$="[135]"THEN2940
3090 IF IN$="[134]"THENGOTO2320
3100 GOTO3050
3110 M1=(INT(RND(0)*18)+1)*4:M2=M1+4:GOSUB1430:RETURN
3120 SYSMT,6,YD(ABS(NP<10)),122:POKE53293,1:B=1
3130 GOSUB5580:TI$="000000"
3140 YP=7:XP=28:GOSUB30:PRINT"CAN YOU DO":YP=12:GOSUB30:PRINT"PROBLEMS ?":BP=NP:GOSUB3510
3150 GOSUB140:PP=PP+1:RP=PP:GOSUB3550
3160 IF TW=1 AND PP<>NP THEN 3190
3170 IF PP=NP THEN 3210
3180 GOTO 3150
3190 XP=29:YP=15:GOSUB30:PRINT"NOT THIS":YP=17:XP=31:GOSUB30:PRINT"TIME"
3200 GOSUB1470:FORZ=1TO1500:NEXT:GOSUB2830:GOSUB2760:GOTO2940
3210 YP=15:XP=31:FORZ=1TO4:FORX=1TO55:NEXTX:GOSUB30:PRINT"YES!":FORX=1TO55:NEXTX
3220 GOSUB30:PRINT"YES!":NEXTZ:M1=75:M2=123:GOSUB1480:GOSUB2830:GOSUB2760:GOTO2940
3230 GOSUB5580:TI$="000000":SYSMT,6,64,170:SYSMT,5,272,170:POKE53293,6
3240 BP=0:B=1:POKE4626,6:YP=7:XP=15:GOSUB30:PRINT"   BLUE[157][157][157][157][157]PLAYER":POKE53292,2
3250 GOSUB3470:GOSUB5690:TI$="000000":POKE4626,11
3260 GOSUB140
3270 IF TW=1THENGOSUB2760:GOSUB1470:GOTO3290
3280 BP=BP+1:GOSUB3510:GOTO3260
3290 RP=0:B=0:TW=0:GOSUB5690:POKE4626,2:YP=9:XP=15:GOSUB30:PRINT"RED PLAYER"
3300 GOSUB3470:GOSUB5690:TI$="000000":POKE4626,11
3310 GOSUB140
3320 IFTW=1THENGOSUB1470:GOTO3350
3330 RP=RP+1:GOSUB3550:GOTO3310
3340 GOTO3340
3350 GOSUB2760:GOSUB5690:IFBP>RPTHENYP=9:XP=15:GOSUB30:PRINT"BLUE WINS!":GOTO3370
3360 GOTO3390
3370 POKE4626,6:POKE53280,6
3380 FORZ=1TO97:POKE53293,Z:NEXT:M1=24:M2=60:GOSUB1430:GOTO3610
3390 IFRP>BPTHENYP=9:XP=15:GOSUB30:PRINT"RED  WINS!":GOTO3410
3400 GOTO3430
3410 POKE4626,2:POKE53280,2
3420 FORZ=1TO97:POKE53292,Z:NEXT::M1=44:M2=72:GOSUB1430:GOTO3610
3430 YP=9:XP=15:GOSUB30:PRINT"TIE  GAME!"
3440 FORZ=1TO97:POKE53292,Z:POKE53293,Z:NEXT:M1=28:M2=88:GOSUB1430:GOTO3610
3450 GOSUB5580
3460 GOSUB140:M1=(INT(RND(0)*7)+1)*4:M2=M1+4:GOSUB1430:GOTO3460
3470 YP=12:XP=15:GOSUB30:PRINT"PRESS 'F7'":YP=14:GOSUB30:PRINT"WHEN READY"
3480 GETIN$:IFIN$=""THEN3480
3490 IFIN$="[136]"THENRETURN
3500 GOTO 3480
3510 IF BP>=99 THEN BP=99:RETURN
3520 A$=STR$(BP):FORZ=LEN(A$)TO2STEP-1
3530 POKE164,9*VAL(MID$(A$,Z,1)):POKE165,15:POKE166,(129-LEN(A$))+Z:POKE167,14
3540 SYSML:NEXT:RETURN
3550 IF RP>=99 THEN RP=99:RETURN
3560 A$=STR$(RP):FORZ=LEN(A$)TO2STEP-1
3570 POKE164,9*VAL(MID$(A$,Z,1)):POKE165,15:POKE166,(65-LEN(A$))+Z:POKE167,14
3580 SYSML:NEXT:RETURN
3590 M1=152:M2=200:GOSUB1480
3600 GOTO 3600
3610 YP=10:XP=15:GOSUB30:PRINT"[185][185][185][185][185][185][185][185][185][185]":YP=11:GOSUB30:PRINT"[159]PRESS 'F7'"
3620 YP=12:GOSUB30:PRINT"          ":YP=13:GOSUB30:PRINT"FOR REPLAY"
3630 YP=14:GOSUB30:PRINT"[195][195][195][195][195][195][195][195][195][195]":YP=15:GOSUB30:PRINT"[153]PRESS 'F5'"
3640 YP=16:GOSUB30:PRINT"[153]          ":YP=17:GOSUB30:PRINT"[153] FOR MENU "
3650 YP=18:GOSUB30:PRINT"[184][184][184][184][184][184][184][184][184][184]"
3660 GETIN$:IFIN$=""THEN3660
3670 IF IN$="[136]"THENRP=0:BP=0:TW=0:GOSUB2830:GOTO3230
3671 IFIN$="Q"THEN6180
3680 IF IN$="[135]"THENRP=0:BP=0:TW=0:GOSUB2830:GOTO2320
3690 GOTO3660
3700 FORZ=52000 TO 52064:POKEZ-49951,PEEK(Z):NEXT
3710 POKE 164,97:POKE165,203:POKE166,0:POKE167,11:POKE168,133:POKE170,0:SYSML
3720 POKE164,231:POKE165,203:POKE166,234:POKE167,11:POKE168,161:SYSML
3730 POKE 3121,248:POKE 3122,17
3740 POKE 164,137:POKE165,204:POKE166,134:POKE167,11:POKE168,95:SYSML
3750 POKE 164,233:POKE165,204:POKE166,196:POKE167,9:POKE168,246:SYSML
3760 FORZ=2816TO2933:POKEZ+1024,PEEK(Z):NEXT
3770 FORZ=4096TO4160:POKEZ,0:NEXT
3780 FORZ=3584TO3712:POKEZ,0:NEXT
3790 FOR Z=2748 TO 2756:POKEZ,255:NEXT
3800 FOR Z=4028 TO 4036:POKEZ,255:NEXT:POKE2940,0
3810 RETURN
3820 SYSSR,1,6,12,33,3000:RETURN
3830 SYSSR,1,6,12,33,3000:GOSUB4370:RETURN
3840 IF U2=13 AND RIGHT$(HA$,3)=UV$ THEN RETURN
3850 UV$=RIGHT$(UV$,1)
3860 HA$="":IFLEN(N3$)=4THENN3$=RIGHT$(N3$,LEN(N3$)-1):IFWG=1THEN3880
3870 REM
3880 IF C3<>0ORAC=1THENAC=0:CF=1:GOSUB4100:RETURN
3890 IF C3<>0ORAC=1THENAC=0:CF=1:GOSUB4100:GOTO3870
3900 ONWGGOSUB4280,1350,1350
3910 IN=IN-48:IFC3<>0THENGOSUB4110:GOTO3870
3920 IFIN<>VAL(MID$(UV$,CM,1))THENSYSSR,1,6,12,33,3000:IFTW=1THENRETURN
3930 IFIN<>VAL(MID$(UV$,CM,1))THENGOSUB1330:GOTO3870
3940 SYSSR,1,9,12,17,11000:POKE164,9*IN:POKE165,11
3950 HA$=STR$(IN)+HA$:POKE166,U1+CM:SYSML:CM=CM-1
3960 IFVAL(HA$)=VAL(UV$)ORCM=0THENRETURN
3970 GOTO3870
3980 UV$=H$:CM=1+ABS(LEN(UV$)=3):S1=2:S2=3:GOSUB1000:U1=134+(CM>1):GOSUB4560
3990 RETURN
4000 S1=3:S2=2:UV$=N4$:U1=196:CH=C1:CM=1:GOSUB1000:GOSUB4560
4010 RETURN
4020 UV$=H$:CM=1+ABS(LEN(UV$)=3):S1=2:S2=2:GOSUB1000:U1=195+(CM>1):GOSUB4560
4030 RETURN
4040 UV$=N5$:CN=1:U2=13:U3=1:U4=15:U5=15:CM=1:U1=196:GOSUB1080:GOSUB4560
4050 RETURN
4060 UV$=LEFT$(N5$,1):CN=1:U2=13:U3=0:U4=15:U5=15:CM=1:U1=195
4070 GOSUB1770:GOSUB1110:GOSUB 4560:RETURN
4080 UV$=RIGHT$(OH$,1):CN=1:U2=13:U3=0:U4=15:U5=15:CM=1:U1=194
4090 GOSUB1770:GOSUB1110:GOSUB4560:RETURN
4100 YP=6:XP=20:GOSUB30:PRINT" [146]"
4110 ONWGGOSUB4280,1350,1350
4120 IFTW=1THENRETURN
4130 IF C3>0ANDC3<>IN-48 THEN CF=1:GOSUB3830:GOTO4110
4140 IFC3=IN-48THEN4160
4150 GOSUB3830:CF=1:GOTO4110
4160 GOSUB40:YP=6:XP=19:GOSUB30:PRINTC3:GOTO4190
4170 UV$=H$:CM=1+ABS(LEN(UV$)=3):S1=2:S2=2:GOSUB1000:U1=134+(CM>1):GOSUB4560
4180 RETURN
4190 XP=20:YP=7:GOSUB5890:PRINT"[144]//":XP=19:YP=8:GOSUB5900:PRINT"//":NC=0:IFWG=1THENRETURN
4200 YP=6:XP=22+NC:GOSUB30:PRINT" [146]":CF=1:IFTW=1THENRETURN
4210 ONWGGOSUB4280,1350,1350:IN=IN-48:IFIN<>VAL(MID$(C$,2+NC,1))THENGOSUB3830:GOTO4200
4220 GOSUB40
4230 YP=6:XP=22+NC:GOSUB30:PRINTMID$(C$,2+NC,1)
4240 NC=NC+1:IFNC=2THENC3=0:GOTO4260
4250 GOTO 4200
4260 XP=22:YP=7:GOSUB5890:PRINT"[144]//":XP=21:YP=8:GOSUB5900:PRINT"//":RETURN
4270 REM INPUT ROUTINE
4280 IFCF=1THEN4300
4290 POKE164,188:POKE165,U5:POKE166,U1+CM:POKE 167,U2:SYSML
4300 GETIN$:IFIN$=""THEN4280
4310 IFIN$="[136]"THENGOSUB2760:GOTO2320
4320 IN=ASC(IN$):IFIN=32THENONFVGOSUB1000,1080,1110,1160
4330 IFIN<48ORIN>58THEN4280
4340 CF=0:RETURN
4350 GOSUB40:XP=XN:GOSUB5900:SYS65520:PRINTC1
4360 RETURN
4370 T2$=STR$(VAL(TI$)+2):T2$=LEFT$(TI$,6-LEN(T2$)+1)+RIGHT$(T2$,LEN(T2$)-1):TI$=T2$
4380 T2$="000000":RETURN
4390 REM CLEAR OUT FOR SUBTRACTION
4400 FORZ=6TO9:XP=19:YP=Z:GOSUB30:PRINT"     ":NEXT:RETURN
4410 HA$="":XP=XN+1:YP=YN:GOSUB5900:PRINT" "
4420 IF CM=U3ANDC1<>0 THEN XP=XN+1:YP=YNN:GOSUB5900:PRINT" ":CF=1
4430 GOSUB4280
4440 IN=IN-48:IF CM=U3ANDC1<>0ANDIN=C1THENGOSUB4540:C1=0:GOTO 4510
4450 IF CM=0 AND C1>0 THEN GOSUB3820:CF=1:GOTO4430
4460 IF IN<>CA(CM)THENSYSSR,1,6,12,33,3000:GOTO4420
4470 SYSSR,1,5,12,17,10000:POKE164,9*IN:POKE165,U4
4480 HA$=MID$(UV$,1)
4490 IF VAL(UV$)<100 THEN HA$=" "+MID$(UV$,CM,4)
4500 POKE 166,U1+CM:POKE 167,U2:SYSML:CM=CM-1
4510 IF RIGHT$(HA$,1)=UV$ANDC1=0ORCM=0ANDC1=0THENRETURN
4520 IF U2=14 AND VAL(HA$)=VAL(UV$)THENRETURN
4530 GOTO4420
4540 GOSUB40:XP=XN:GOSUB5900:SYS65520:PRINTC1
4550 RETURN
4560 IF LEN(UV$)=1THENCA(1)=VAL(UV$):RETURN
4570 FOR Z=2TOLEN(UV$):CA(Z-1)=VAL(MID$(UV$,Z,1)):NEXT:RETURN
4580 XN=15:YN=14
4590 XP=XN+1:YP=YN:GOSUB5900:PRINT" ":RETURN
4600 IFVAL(N1$)<=9THENCM=1+ABS(VAL(N3$)>9):U1=U1-(ABS(VAL(N3$)>9))
4610 RETURN
4620 IFVAL(N1$)<=9THENCM=LEN(N3$)-1:U1=U1-(CM-1)
4630 IF UF=1THENC2=1
4640 RETURN
4650 GOSUB40:YP=13:XP=19:GOSUB30:PRINTC1:RETURN
4660 YN=14:XN=16:YP=14:XP=16:GOSUB30:PRINT" ":CF=1
4670 GOSUB 4280:IF IN-48<>C2 THEN 4670
4680 GOSUB40:POKE781,14:POKE782,15:SYS65520:PRINTC2:RETURN
4690 AN$="":PS=0
4700 GETIN$:PRINT" [157]"CHR$(MC)" [157]";:IFIN$=""THEN4700
4710 IN=ASC(IN$)
4720 IFIN=13ANDAN$<>""THENPRINT"":SYSSR,I,9,12,17,11000+(EL*200):RETURN
4730 IF IN$="[140]"THEN5940
4740 IF IN$="[136]"THEN2320
4750 IFIN=20THEN4800
4760 IFIN<C1ORIN>C2THENGOTO4830
4770 PS=PS+I:IFPS>LNTHENPS=LN:GOTO4830
4780 AN$=AN$+CHR$(IN)
4790 PRINT""CHR$(MC);CHR$(IN)"";:GOTO4700
4800 PS=PS-I:IFPS<OTHENPS=O:GOTO4830
4810 AN$=LEFT$(AN$,LEN(AN$)-I)+A1$
4820 PRINT""CHR$(MC)"[157] [157]";:GOTO4700
4830 SYSSR,I,7,11,17,IN*100:GOTO4700
4840 PH=0:PC=0:CC=0:I=1:LN=5:AN$="":PS=0
4850 GETIN$:PRINT" [157] [157]";:IFIN$=""THEN4850
4860 IN=ASC(IN$)
4870 IFIN=13ANDEP$(NE)<>"     "ANDPS=0 THENEC=1:RETURN
4880 IFIN=13ANDAN$<>""ANDPS>=3THENSYSSR,I,9,12,17,11000+(EL*200):RETURN
4890 IF IN$="[136]"THENRETURN
4900 IFIN=32THENRETURN
4910 IFIN=20THEN4980
4920 IFPC=1ANDIN=42ORPC=1ANDIN=43ORPC=1ANDIN=45THENPC=0:PH=CC:CC=0:GOTO4950
4930 IFIN>47ANDIN<58THENPC=ABS(PH=0):GOTO5050
4940 GOTO 5040
4950 PS=PS+I:IFPS>LNTHENPS=LN:GOTO5040
4960 AN$=AN$+CHR$(IN)
4970 PRINT""CHR$(MC);CHR$(IN);:GOTO4850
4980 PS=PS-I:IFPS<OTHENPS=O:GOTO5040
4990 CC=CC-1
5000 IF PS=0 THEN PC=0:CC=0
5010 IF PH>0ANDCC<0THENCC=PH:PH=0:PC=1
5020 AN$=LEFT$(AN$,LEN(AN$)-I)+A1$
5030 PRINT""CHR$(MC)"[157] [157]";:GOTO4850
5040 SYSSR,I,7,11,17,IN*100:GOTO4850
5050 CC=CC+1:IFCC>2THENCC=2:GOTO5040
5060 GOTO 4950
5070 IFFU<4THENFU$=STR$(FU)
5080 IFFU=4THENFU$=" 123"
5090 FU$=RIGHT$(FU$,LEN(FU$)-1)
5100 IFRV<>5THENR2=9
5110 IFRV=2THENR2=20
5120 IFRV=3THENR2=50
5130 IFRV=4THENR2=99
5140 IFT1=ITHENL1=1:L2=.
5150 IFT1=2THENL1=2:L2=.
5160 IFRG<>5THENR3=.:R4=9
5170 IFRG=2THENR4=20
5180 IFRG=3THENR4=50
5190 IFRG=4THENR4=99
5200 RETURN
5210 REM ENTER PROBLEMS
5220 EC=0:NE=NE+1
5230 YP=9:XP=26:GOSUB30:PRINT"[208]ROBLEM"NE"[157]  ":IFEP$(NE)<>"     "THENPRINT""
5240 XP=26:YP=13:GOSUB30:PRINT""EP$(NE)"  [157][157]"
5250 YP=11:GOSUB30:PRINT">     [157][157][157][157][157]";
5260 GOSUB4840:IF EC=1 THEN 5220
5270 IFIN=32THENNE=NE-1:GOSUB5320:GOTO5230
5280 IFIN$="[136]"THENNE=NE-1:GOSUB5340:RETURN
5290 EP$=AN$:EP$(NE)=EP$:GOSUB5370
5300 IFNE=20THENNE=0:GOSUB5360:RETURN
5310 GOTO5220
5320 IFNE=0THENNE=1
5330 RETURN
5340 IFNE<1THENEP=2
5350 RETURN
5360 XP=0:GOSUB30:PRINTMN$(5):XP=26:GOSUB30:PRINT"           ":RETURN
5370 Z=0
5380 Z=Z+1
5390 IF EP<>1 THEN RETURN
5400 IF ASC(MID$(EP$,Z,1))<48ORASC(MID$(EP$,Z,1))>58 THEN 5420
5410 GOTO 5380
5420 FP(NE)=VAL(MID$(EP$,1,Z-1))
5430 MP(NE)=SG(ASC(MID$(EP$,Z,1))-42)
5440 LP(NE)=VAL(MID$(EP$,Z+1,Z+1))
5450 RETURN
5460 DIMMU(135):FOR Z=1 TO 135:READMU(Z):NEXT:RETURN
5470 DATA 0,0,803,0,0,1204,0,1204,803,0,0,803,1012,0,0,0,803,1012
5480 DATA0,0,803,0,0,1204,0,1204,803,0,1012,803,1012,0,0
5490 DATA 0,803,1204,0,803,1072,803,1204,1607,803,1072,1351
5500 DATA 803,1607,0,803,1072,0,803,1012,0,803,1072,0,803,1204,1607
5510 DATA 803,1351,1072,803,1607,1204,1204,0,0,803,1204,0,1607,0,0
5520 DATA 803,0,0,803,1351,1072,0,1607,0,0,1012,2025
5530 DATA 1072,0,2145,1607,2703,0,803,3215,0,602,803,1607
5540 DATA 803,1607,0,1204,1012,0,536,1204,1607,803,1204,1607
5550 DATA 0,0,0
5560 DATA 803,1204,1607,0,0,0,803,1204,1607,1204,1607,0,0,0,0
5570 DATA 536,1204,1607,803,1204,1607
5580 TB$(1)="[158][213][195][195][195][195][201][144][205][158]":TB$(2)="[221]TIME[158][221][144] [158]"
5590 TB$(2)="[221]TIME[158][221][144] [158]":TB$(3)="[221]    [158][221][144] [158]":TB$(4)="[221]    [158][221][144] [158]"
5600 TB$(5)="[202][195][195][195][195][203][144] [146]"
5610 HB$(1)="[158][213][195][195][195][195][195][195][195][195][201][144][205]":HB$(2)="[158][221][159]        [158][221][144] "
5620 HB$(3)="[158][202][195][195][195][195][195][195][195][195][203][144] ":HB$(4)="[144][205]         [205]"
5630 SB$(1)="[150][213][195][195][195][195][195][195][201][144][205][150]":SB$(2)="[221][155]      [150][221][144] [150]"
5640 SB$(3)="[150][202][195][195][195][195][195][195][203][144] "
5650 FB$(1)="[154][213][195][195][195][195][195][195][201][144][205][154]":FB$(2)="[221][155]      [154][221][144] [154]"
5660 FB$(3)="[154][202][195][195][195][195][195][195][203][144] "
5670 POKE53280,0:GOSUB5850:GOSUB5690:IFWG=1THEN5810
5680 GOTO5730
5690 XP=14:YP=4:GOSUB30:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][144][205]"
5700 FOR Z=5 TO 19:YP=Z:GOSUB30:PRINT"[166][146]          [166][144] [146]":NEXT
5710 YP=20:GOSUB30:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][144] "
5720 YP=21:GOSUB30:PRINT"[144][205]           [205]":RETURN
5730 XP=4:FORZ=6TO11:YP=Z:GOSUB30:PRINTTB$(Z-5):NEXT:YP=11:GOSUB30:PRINT"[144][205]     [205]"
5740 IF WG<>3THEN5760
5750 XP=30:FORZ=6TO11:YP=Z:GOSUB30:PRINTTB$(Z-5):NEXT:YP=11:GOSUB30:PRINT"[144][205]     [205]"
5760 XP=3:YP=13:GOSUB30:PRINTFB$(1):FORZ=14TO17:YP=Z:GOSUB30:PRINTFB$(2):NEXT
5770 YP=18:GOSUB30:PRINTFB$(3):YP=19:GOSUB30:PRINT"[144][205]       [205]":IFWG<>3THEN5830
5780 XP=29:YP=13:GOSUB30:PRINTSB$(1):FORZ=14TO17:YP=Z:GOSUB30:PRINTSB$(2):NEXT
5790 YP=18:GOSUB30:PRINTSB$(3)
5800 YP=19:GOSUB30:PRINT"[144][205]       [205]":GOTO5830
5810 XP=2:YP=6:GOSUB30:PRINTHB$(1):FORZ=7TO12:YP=Z:GOSUB30:PRINTHB$(2):NEXT
5820 YP=13:GOSUB30:PRINTHB$(3):YP=14:GOSUB30:PRINTHB$(4)
5830 PRINT""
5840 RETURN
5850 POKE53281,11:PRINT"[147]                                        ";CHR$(142);
5860 FORZ=1TO23:PRINT"                                        ";
5870 NEXT:PRINT"[146]        PRESS 'F7' TO QUIT GAME        ";
5880 RETURN
5890 FOR Z=5TO10:SYSSR,1,3,10,129,Z*3000:NEXT
5900 IFVAL(N3$)<100ANDU2=13THENYP=YN+2
5910 GOSUB30:RETURN
5920 IFB=1THENPOKE781,9:POKE782,5:POKE783,0:SYS65520:RETURN
5930 POKE781,9:POKE782,31:POKE783,0:SYS65520:RETURN
5940 PRINT"[147]":POKE 53281,1
5950 PRINT"[144]     PRESS 'F1' TO RETURN TO MENU
5960 [153]:[153]"          PRESS 'F7' TO QUIT
5970 GETIN$
5980 IF IN$="" THEN 5970
5990 IF IN$="[133]" THEN 2320
6000 IF IN$="[136]" THEN POKE53258,0:POKE53259,0:GOTO6020
6010 GOTO5970
6020 PRINT"[147]":POKE53281,2:PRINT:PRINT:PRINT"POKE 44,8:";
6030 PRINT"LOAD"CHR$(34)"SNIGGLE BOOT"CHR$(34)",8":PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
6040 PRINTCHR$(19):POKE 198,2:POKE 631,13:POKE 632,13:END
6050 PRINT"[147]":POKE53281,1:PRINTCHR$(14)
6060 PRINTSPC(11)"[211]NIGGLE [195]AMP [205]ENU":PRINTSPC(11)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6070 PRINT:PRINT:PRINT"  ";CHR$(MC);"                     [146]              "
6080 FORZ=1TO8:PRINT"  "CHR$(MC)"                     [144] [146] "CHR$(MC)"            [144] "
6090 NEXT:PRINT"    [144]                   [144] [146]             [144] "
6100 GOSUB 20
6110 PRINT"     [208]RESS [211]HIFT [193]ND '[198]7' [212]O [210]E-BOOT":PRINT
6120 PRINTTAB(9)"[208]RESS '[209]' FOR [204][207][193][196][211][212][193][210]":PRINT
6130 PRINT"   [208]RESS [144][198]7 TO RETURN TO START OF MENU";CHR$(MC):YP=14:GOSUB30:PRINT" >";
6140 MC$(1)="":MC$(2)="":MC$(3)="":MC$(4)="":MC$(5)=""
6150 RETURN
6160 XP=27:FOR Z=1 TO 4:YP=6+Z:GOSUB30:PRINTCHR$(MC)"";MC$(Z):NEXTZ
6170 YP=14:GOSUB30:PRINT" >";
6180 CLOSE15: OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
6190 IF ER<>63 THEN PRINT"[147]":END
6200 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
6210 PRINT"[158]LOAD"Q$A$Q$",8"
6220 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END