10 POKE650,128:GOSUB2870:DIMMU(236):FORZ=1TO236:READMU(Z):NEXT
20 GOTO2130
30 FORPV=ITO.STEP-I:ONFNJO(PV)GOTO50,50,100,120,120,120,100,100,100,100:GOTO50
40 SYSMT,PV+I,XP(PV),YV(PV)
50 IFFNTR(PV)=16THENGOSUB870:A$=STR$(P3(WA(PV))):GOTO880
60 NEXT:GOTO30
70 GOSUB2950
80 MT=51730:SYSMT,3,0,0:GOSUB2690:GOSUB1040
90 GOSUB1040:N1=INT(RND(0)*(R2-R1)+R1):N2=INT(RND(0)*(R4-R3)+R3):GOSUB1980:GOSUB2360:GOTO1070
100 XP(PV)=XP(PV)+XS:WA(PV)=WA(PV)+I:IFXP(PV)>XHTHENXP(PV)=XL:WA(PV)=I
110 SYSSR,PV,5,12,17,SN(PV):GOTO40
120 XP(PV)=XP(PV)-XS:WA(PV)=WA(PV)-I:IFXP(PV)<XLTHENXP(PV)=XH:WA(PV)=PN
130 SYSSR,PV,5,12,17,SN(PV):GOTO40
140 GOSUB2760
150 POKE53275,6:IFSM<=999THENPN=9:GOTO170
160 PN=7
170 V=53248:POKEV+21,31:POKE2040,13:POKE2041,14:POKE2042,14:POKE2043,15
180 POKE2044,34:POKEV,149:POKEV+I,123:POKE53277,31:POKE53271,31
190 POKEV+39,7:POKEV+40,4:POKEV+41,8
200 FORLP=ITO2:SYSMT,LP,O,O:NEXT
210 FORZ=ITOPN:PO(Z)=SM+INT(RND(O)*38)-19:IFSM<=19THEN260
220 GOSUB400:IFRP<2THENPO(Z)=SM-10
230 IFRP>8ANDRP<11THENPO(Z)=SM
240 IFRP>8ANDRP<11THENPO(Z)=SM
250 IFRP>17THENPO(Z)=SM+10
260 POKE198,0:PO(Z)=ABS(PO(Z)):GETKEY$:IF KEY$="[136]"THENPRINT"[147]":GOSUB2870:GOTO20
270 IFSM>=I9ANDPO(Z)<=I9THENPO(Z)=11+INT(RND(O)*8)+I
280 IFSM<=I9ANDPO(Z)>=I9THENPO(Z)=I9-INT(RND(O)*8)
290 IFSM<=99ANDPO(Z)>=100THENGOSUB400:PO(Z)=PO(Z)-RP:GOTO290
300 IFSM>=100ANDPO(Z)<=99THENGOSUB400:PO(Z)=PO(Z)+RP:GOTO300
310 IFSM<=999ANDPO(Z)>999THENGOSUB400:PO(Z)=PO(Z)-RP:GOTO310
320 IFSM>999ANDPO(Z)<1000THENGOSUB400:PO(Z)=PO(Z)+RP:GOTO320
330 NEXTZ:FORZ=ITOPN:GOSUB410
340 P1(Z)=PO(R):GOSUB410:P2(Z)=PO(R):NEXTZ
350 GOSUB410:P1(R)=SM:GOSUB410:P2(R)=SM:XP=104:CD=134:NC=12:NS=2:TV=10:XH=232
360 IFSM>I9THENTV=6:CD=146:XP=80:XH=273
370 IFSM>99THENXP=48:XH=305:TV=2:CD=158:NC=35:NS=O
380 IFSM>999THENCD=194:XH=290
390 WA=I:GOTO440
400 RP=INT(RND(O)*19)+I:RETURN
410 R=INT(RND(O)*PN)+I:RETURN
420 POKE164,CD:POKE165,11:POKE166,128:POKE167,3:POKE168,NC:POKE170,NS
430 SYSML  :RETURN
440 PRINT"[159]";"[144]                                        [146]"
450 PRINT"";"[144]                                        [146]"
460 YP=5:XO=TV:GOSUB3610:FORZ=ITOPN:PRINT"[144]"P1(Z)"[157]";:NEXT:PRINT"[146]"
470 PRINTTAB(TV);:FORZ=ITOPN:PRINT"[144]"P2(Z)"[157]";:NEXT:PRINT"[146]";
480 A$=STR$(N1):FORZ=LEN(A$)TO2STEP-I
490 POKE164,9*VAL(MID$(A$,Z,I)):POKE166,(69-LEN(A$))+Z:SYSML:NEXT
500 A$=STR$(N2):FORZ=LEN(A$)TO2STEP-I:POKE164,9*VAL(MID$(A$,Z,I))
510 POKE166,(90-LEN(A$))+Z:SYSML:NEXT
520 POKE164,9*FS:POKE166,91:SYSML
530 GOSUB420:A$=STR$(SM):XL=XP:XS=(LEN(A$)*8)
540 IFSG=2THENGOSUB2860:GOSUB2820:XP(O)=XP:XP(I)=XP:WA(O)=I:WA(I)=I:GOTO600
550 GOTO670
560 XP=XP+XS:WA=WA+I:IFXP>XHTHENXP=XL:WA=I
570 SYSSR,I,8,12,17,SN(PV):GOTO620
580 XP=XP-XS:WA=WA-I:IFXP<XLTHENXP=XH:WA=PN
590 SYSSR,I,8,12,17,SN(PV):GOTO620
600 SYSMT,I,XP(O),YV(O):SYSMT,2,XP(I),YV(I):GOTO30
610 ONFNJO(PV)GOTO630,630,560,580,580,580,560,560,560,560:GOTO630
620 SYSMT,PV+I,XP,YV(PV)
630 IFFNTR(PV)=16THENA$=STR$(P3(WA)):GOTO880
640 PRINT"[145]"TAB(3)MID$(TI$,4,I)":"RIGHT$(TI$,2)
650 IFFNMI(O)=L3ANDFNSE(O)=L4THENGOSUB1170:GOSUB1020:GOTO90
660 GOTO610
670 PRINT"":TI$="000001":SS=O
680 TR=(FNTR(O)=O)-(FNTR(I)=O):IFVAL(RIGHT$(TI$,2))>SSTHENSYSSR,I,6,12,17,6000
690 SS=FNSE(O):PRINT"[145][156]"TAB(3)MID$(TI$,4,I)":"RIGHT$(TI$,2)
700 IFFNMI(O)=L1ANDFNSE(O)=L2THENGOSUB1170:GOTO90
710 IFTR=OTHENGOTO680
720 IFTR=ITHENGOSUB760
730 IFTR=-ITHENGOSUB800
740 PRINT"":TI$="000001":SYSMT,PV+I,XP,YV(PV):FORLP=9TO16
750 POKEPC(PV),LP:SYSSR,I,8,12,65,LP*650,1950:NEXT:POKE53288,3:POKE53289,5:GOTO610
760 FORZ=ITOPN:P3(Z)=P1(Z)
770 POKE198,0:GET KEY$:IF KEY$="[136]" THEN GOSUB2870:GOTO20
780 NEXT:PV=0
790 RETURN
800 FORZ=ITOPN:P3(Z)=P2(Z)
810 POKE198,0:GET KEY$:IF KEY$="[136]" THEN GOSUB2870:GOTO20
820 NEXT:PV=I
830 RETURN
840 IFPV=OTHENGOSUB760
850 IFPV=ITHENGOSUB800
860 RETURN
870 SYSSR,I,9,12,17,12000:SYSSR,2,8,12,17,18000:GOSUB840:RETURN
880 POKE164,192:POKE165,11:POKE166,66:POKE167,3:POKE168,8:POKE170,2
890 FOR Z=2TOLEN(A$)
900 POKE164,9*VAL(MID$(A$,Z,I)):POKE166,(194-LEN(A$))+Z:SYSML:NEXT
910 IFLEN(A$)=5THENPOKE167,8:POKE164,9*VAL(MID$(A$,2,I)):POKE166,130:POKE170,2:SYSML
920 SYSMT,4,0,0:FORLP=ITO43STEP8
930 POKE2041,15:POKE2042,34:SYSMT,I,109+LP,156:SYSMT,2,60+LP,156
940 SYSSR,I,8,12,17,10000+(LP*100):NEXT
950 IFSG=1THENIFP3(WA)=SMTHENGOSUB980:GOSUB1040:GOTO90
960 IFSG=2THENIFP3(WA(PV))=SMTHENGOSUB980:GOSUB1040:GOTO90
970 GOSUB1010:GOSUB1040:GOTO90
980 GOSUB2860:GOSUB2820:GOSUB2860:GOSUB2820:GOSUB2860:GOSUB2820
990 SC(PV)=SC(PV)+I
1000 FORLP=1TO4:POKE53288,CC(LP):POKE53289,CC(LP):FORZ=1TO3:NEXTZ,LP:RETURN
1010 POKEV+40,O:POKEV+41,O:SYSSR,I,11,12,65,900,50000:SYSSR,2,11,12,65,500,56000
1020 MS(PV)=MS(PV)+I
1030 GOSUB1150:RETURN
1040 PRINT"   BLUE  :"SC(O)TAB(28)"MISSED:"MS(O)"[146]"
1050 PRINT"   RED   :"SC(I):XO=28:YP=22:GOSUB3610
1060 PRINT"MISSED:"MS(I):RETURN
1070 IFPC=NPTHEN2160
1080 PC=PC+I:GOTO140
1090 PRINT"":FORZ=1TO11:PRINT"                                        ";:NEXT:POKE53281,2
1100 PRINT"         SCORE:                         "
1110 IFMS(O)>SC(O)THENMS(O)=SC(O)
1120 IFMS(I)>SC(I)THENMS(I)=SC(I)
1130 POKE53287,I:POKE53289,3:RETURN
1140 DY. G  2  _22   2_  2_    2 02226
1150 SM$=STR$(SM):XO=32:YP=12:GOSUB3610:PRINT""MID$(SM$,2,LEN(SM$))
1160 FORLP=ITO700 :NEXTLP:GOSUB3610:PRINT"    ":RETURN
1170 PRINT"[153]"
1180 FORLP=ITO9:SYSSR,I,11,12,17,8000:PRINTTAB(13)"[144][145]OUT OF TIME!":FORZ=ITO40:NEXT
1190 SYSSR,2,10,12,17,5000:PRINTTAB(13)"[145][146]OUT OF TIME!":FORZ=ITO40:NEXTZ,LP
1200 PRINTTAB(13)"[145][144]            ":GOTO1150
1210 REM INPUT ROUTINE
1220 AN$="":PS=O
1230 GETIN$:PRINT"[146] [157] [157]";CHR$(MC);:IFIN$=""THEN1230
1240 IN=ASC(IN$)
1250 IFIN=13ANDAN$<>""THENPRINT:SYSSR,1,9,12,17,10000:RETURN
1260 IFIN=20THEN1330
1270 IF IN$="[140]" THEN 3620
1280 IF IN$="[136]" THEN 1380
1290 IFIN<C1ORIN>C2THENGOTO1360
1300 PS=PS+I:IFPS>LNTHENPS=LN:GOTO1360
1310 AN$=AN$+CHR$(IN)
1320 PRINT""CHR$(MC);CHR$(IN);:GOTO1230
1330 PS=PS-I:IFPS<OTHENPS=O:GOTO1360
1340 AN$=LEFT$(AN$,LEN(AN$)-I)+A1$
1350 PRINT"[157] [157]";:GOTO1230
1360 SYSSR,I,7,11,17,IN*100:GOTO1230
1370 REM INPUT ROUTINE ENDS
1380 GOSUB2360:SG=I:GOSUB 1660:GOSUB3210:LN=I:C1=49:C2=50:GOSUB1210
1390 SG=VAL(AN$)
1400 GOSUB1680:GOSUB3210:C2=54:GOSUB1210
1410 FU=VAL(AN$):IFFU<>6THEN1440
1420 MC$(1)="(1) +":MC$(2)="(2) -":MC$(4)="(4) /":MC$(3)="(3) X"
1430 GOSUB3310:LN=4:C2=52:GOSUB1210:FU$=AN$
1440 GOSUB1710:GOSUB3210:LN=I:C1=49:C2=53:GOSUB1210:RV=VAL(AN$):IFRV<>5THEN1470
1450 XO=27:YP=8:GOSUB3610:PRINT"[156]FROM:";:LN=2:C1=48:C2=57:GOSUB1210
1460 R1=VAL(AN$):XO=29:YP=10:GOSUB3610:PRINT"[156]TO:";:GOSUB1210:R2=VAL(AN$)
1470 GOSUB1740:GOSUB3210:LN=I:C1=49:C2=52:GOSUB1210
1480 T1=VAL(AN$):C1=48:C2=57:IFT1<>4THEN1520
1490 LN=1:XO=26:YP=8:GOSUB3610:PRINT"[129]MINUTES:";:GOSUB1210:YP=10
1500 L1=VAL(AN$):GOSUB3610:PRINT"[129]SECONDS:";:LN=2:GOSUB1210
1510 L2=VAL(AN$):GOSUB3610:PRINT"[129]          ":IFL2>59THEN1500
1520 GOSUB1770:GOSUB3210:LN=I:C1=49:C2=54:GOSUB1210
1530 NP=VAL(AN$):NV=O:IFNP<>6THEN1570
1540 XO=25:YP=9:GOSUB3610:PRINT"HOW MANY:";:LN=2:C1=48:C2=57:GOSUB1210
1550 NV=I:NP=VAL(AN$):GOSUB1640
1560 IF NP=0 THEN 1520
1570 N=I:GOSUB1800:GOSUB3210:LN=1:C1=49:C2=53:GOSUB1210
1580 RG=VAL(AN$):IFRG<>5THEN1620
1590 XO=27:YP=8:GOSUB3610:PRINT"FROM:";:LN=2:C1=48:C2=57:GOSUB1210
1600 R3=VAL(AN$):XO=29:YP=10:GOSUB3610:PRINT"TO:";:GOSUB1210
1610 R4=VAL(AN$):GOSUB1640
1620 GOSUB1830:GOTO70
1630 PRINTTAB(26);"CHOOSE >";:RETURN
1640 RETURN
1650 PRINT""TAB(28)">";:RETURN
1660 REM
1670 MC$(3)=" (1) SNIGGLEFRITZ":MC$(4)=" (2) SNIGGLE RACE":MC=28:RETURN
1680 MC$(1)="(1) ADDITION +":MC$(2)="(2)SUBTRACTION -"
1690 MC$(3)="(3) MULTIPLICATION X":MC$(4)="(4) DIVISION /"
1700 MC$(5)="(5) ALL FOUR + - X /":MC$(6)="(6) CHOOSE YOUR OWN":MC=30:RETURN
1710 MC$(1)="(1) 1ST RANGE (0-9)":MC$(2)="(2)           (0-20)"
1720 MC$(3)="(3)           (0-50)":MC$(4)="(4)           (0-99)"
1730 MC$(5)="(5) CHOOSE YOUR OWN":MC=156:RETURN
1740 MC$(2)="(1) WORK TIME (0:05)":MC$(3)="(2)           (0:10)"
1750 MC$(4)= "(3)           (0:15)":MC$(5)="(4) CHOOSE YOUR OWN"
1760 MC=129:RETURN
1770 MC$(1)="(1) 5 PROBLEMS":MC$(2)="(2) 10 PROBLEMS"
1780 MC$(3)="(3) 15 PROBLEMS":MC$(4)="(4) 20 PROBLEMS"
1790 MC$(5)="(5) 25 PROBLEMS":MC$(6)="(6) CHOOSE YOUR OWN":MC=151:RETURN
1800 MC$(1)="(1) 2ND RANGE (0-9)":MC$(2)="(2)           (0-20)"
1810 MC$(3)="(3)           (0-50)":MC$(4)="(4)           (0-99)"
1820 MC$(5)="(5) CHOOSE YOUR OWN":MC=31:RETURN
1830 IFFU<5THENFU$=STR$(FU)
1840 IFFU=5THENFU$="1234"
1850 IFRV<>5THENR1=O:R2=9
1860 IFRV=2THENR2=20
1870 IFRV=3THENR2=50
1880 IFRV=4THENR2=99
1890 IFT1<>4THENL1=O:L2=5
1900 IFT1=2THENL2=10
1910 IFT1=3THENL2=15
1920 IFNP<6ANDNV=OTHENNP=NP*5
1930 IFRG<>5THENR3=O:R4=9
1940 IFRG=2THENR4=20
1950 IFRG=3THENR4=50
1960 IFRG=4THENR4=99
1970 L3=O:L4=5:RETURN
1980 RF=INT(RND(O)*4)+I
1990 FORZ=ITOLEN(FU$):IFRF=VAL(MID$(FU$,Z,1))THENONRFGOTO2010,2020,2030,2040:RETURN
2000 NEXT:GOTO 1980
2010 SM=N1+N2:FS=10:RETURN
2020 GOSUB2080:SM=N1-N2:FS=11:RETURN
2030 SM=N1*N2:FS=13:RETURN
2040 GOSUB2050:GOSUB2100:SM=N1*N2:N1=SM:SM=SM/N2:FS=12:RETURN
2050 IFN1=OTHENN1=N1+INT(RND(O)*8)+I
2060 IFN2=OTHENN2=N2+INT(RND(O)*8)+I
2070 RETURN
2080 IFN1<N2THENN3=N1:N4=N2:N2=N3:N1=N4
2090 RETURN
2100 IFN2>9THENN2=INT(RND(O)*8)+I
2110 RETURN
2120 SYSMT,O,149,123:RETURN
2130 POKE53280,11:GOSUB2690:GOTO1380
2140 IFMS(O)>SC(O)THENMS(O)=SC(O)
2150 IFMS(I)>SC(I)THENMS(I)=SC(I)
2160 GOSUB2360:PRINT"[147]":SYSMT,2,149,137:SYSMT,O,149,137:SYSMT,I,O,O:POKE2042,14
2170 IFMS(O)>SC(O)THENMS(O)=SC(O)
2180 IFMS(I)>SC(I)THENMS(I)=SC(I)
2190 GOSUB3330:PV=O:W=69:FOR LP=ITOSC(O):GOSUB2310:SYSSR,1,8,12,65,LP*200,2000:NEXTLP
2200 FORLP=SC(O)TOSC(O)-MS(O)STEP-I:GOSUB2310:SYSSR,1,8,12,65,LP*200,2000:NEXTLP
2210 FORZ=137TO62STEP-I:SYSMT,O,149,Z:NEXT
2220 POKE164,192:POKE165,11:POKE166,66:POKE167,3:POKE168,8:POKE170,2
2230 PV=I:W=130:FOR LP=ITOSC(I):GOSUB2310:SYSSR,I,8,12,65,LP*200,2000:NEXTLP
2240 FORLP=SC(I)TOSC(I)-MS(I)STEP-I:GOSUB2310
2250 SYSSR,I,8,12,65,LP*200,2000:NEXTLP:FORZ=137TO217:SYSMT,2,149,Z:NEXT
2260 IFSC(O)-MS(O)>SC(I)-MS(I)THENPV=O:GOSUB2290:GOTO2410
2270 IFSC(O)-MS(O)<SC(I)-MS(I)THENPV=I:GOSUB2290:GOTO2410
2280 PV=O:GOSUB2290:PV=I:GOSUB2290:GOTO2410
2290 POKE53281,6+(PV=1)*4:FORLP=9TO46:SYSSR,I,8,12,65,LP*650,1950:POKE53280,LP
2300 NEXT:RETURN
2310 A$=STR$(LP)
2320 FORZ=LEN(A$)TO2STEP-I
2330 IFLP>9THENEP=I
2340 IFLP<10ANDEP=ITHENGOSUB2650:EP=O
2350 POKE164,9*VAL(MID$(A$,Z,I)):POKE166,(W-LEN(A$))+Z:SYSML:NEXTZ:RETURN
2360 POKE834,O:POKE164,65:POKE165,3:POKE166,66:POKE167,3:POKE168,63:POKE170,O
2370 SYSML:POKE896,O:POKE164,128:POKE166,129:SYSML:POKE960,O:POKE164,192:POKE166,193
2380 SYSML:POKE168,64:POKE2176,O:POKE164,128:POKE165,8:POKE166,129:POKE167,8
2390 SYSML:POKE164,192:POKE165,11:POKE166,66:POKE167,3:POKE168,8:POKE170,2
2400 RETURN
2410 POKE53281,1:PRINT"[147]          PRESS 'F7' TO REPLAY"
2420 PRINT"         PRESS 'F1' FOR OPTIONS"
2430 FORZ=1TO236STEP4
2440 SYSSR,1,9,12,17,MU(Z)*4+4:SYSSR,2,9,12,65,MU(Z+1)*4+4,MU(Z+1)*4+4
2450 SYSSR,3,9,12,17,MU(Z+2)*4+4
2460 FOR LP=1TOMU(Z+3)
2470 POKE198,0:GETA$:IFA$="[136]"THEN2490
2480 NEXTLP,Z
2490 POKE198,0:GETA$:IF A$="[133]" THEN 1380
2500 IF A$="[136]" THEN 70
2510 GOTO 2490
2520 DATA 0,0,803,5,0,0,1204,5,0,1204,803,5,0,0,803,5,1012,0,0,5,0,803,1012,5
2530 DATA0,0,803,5,0,0,1204,5,0,1204,803,5,0,1012,803,5,1012,0,0,5
2540 DATA803,1012,1204,5,0,0,803,5,0,803,1351,5,0,0,803,5,0,803,1607,5,0,0,803,5
2550 DATA 0,803,1204,5,0,803,1072,5,803,1204,1607,5,803,1072,1351,5
2560 DATA 803,1607,0,5,803,1072,0,5,803,1012,0,5,803,1072,0,5,803,1204,1607,5
2570 DATA 803,1351,1072,5,803,1607,1204,5,1204,0,0,5,803,1204,0,5,1607,0,0,5
2580 DATA 803,0,0,5,803,1351,1072,5,0,1607,0,5,0,1012,2025,5
2590 DATA 1072,0,2145,5,1607,2703,0,5,803,3215,0,5,602,803,1607,5
2600 DATA 803,1607,0,5,1204,1012,0,5,536,1204,1607,5,803,1204,1607,5
2610 DATA 803,1607,0,5,1204,1012,0,5,536,1204,1607,5,803,1204,1607,5
2620 DATA 803,1607,0,5,1204,1012,0,5,536,1204,1607,5,803,1204,1607,10,0,0,0,5
2630 DATA 803,1204,1607,10,0,0,0,5,803,1204,1607,10,1204,1607,0,5,0,0,0,5
2640 DATA 536,1204,1607,5,803,1204,1607,20
2650 IFPV=0THENPOKE834,O:POKE164,65:POKE165,3:POKE166,66:POKE167,3:POKE168,63:POKE170,0:SYSML
2660 IFPV=ITHENPOKE896,O:POKE164,128:POKE165,3:POKE166,129:POKE167,3:POKE168,63:POKE170,O
2670 IFPV=ITHENSYSML
2680 POKE165,11:POKE 168,8:POKE 170,2:RETURN
2690 PC=0:I9=9:I=1:O=0:SV(O)=56321:SV(I)=56320:MS(O)=O:MS(I)=O:SC(O)=O:SC(I)=O
2700 PC(O)=53288:PC(I)=53289:YV(O)=81:YV(I)=193:SN(O)=6000:SN(I)=4000:SR=51828
2710 TV(O)=56320:TV(I)=56321:CX(1)=50:CY(1)=125:CX(2)=170:CY(2)=101:ET=O:ER=O
2720 CX(3)=286:CY(3)=125:CC(1)=1:CC(2)=15:CC(3)=12:CC(4)=11:KP=O
2730 S$="  SECONDS":D$=""
2740 A$="TO:":RESTORE:RETURN
2750 RETURN
2760 DEFFNJO(PV)=15-(PEEK(TV(1-PV))AND15):DEFFNTR(PV)=31-(PEEK(TV(1-PV))AND31)
2770 DEFFNMI(O)=VAL(MID$(TI$,4,1)):DEFFNSE(O)=VAL(RIGHT$(TI$,2))
2780 M1(0)=4:M1(1)=10:M1(2)=11:M1(3)=17
2790 M1(4)=18:M1(5)=20:M1(6)=23:M1(7)=34
2800 M1(8)=35:M1(9)=43:M1(10)=53
2810 RETURN
2820 FORZ=M1(R)*4TOM1(R)*4+4STEP4
2830 IF MU(Z+3)>5 THENDL=5
2840 SYSSR,1,9,12,17,MU(Z)*4+4:SYSSR,2,9,12,17,MU(Z+1)*4+4
2850 SYSSR,3,9,12,17,MU(Z+2)*4+4:FORLP=1TODL*3:NEXTLP,Z:RETURN
2860 R=INT(RND(0)*11):RETURN
2870 ML=52000
2880 POKE 164,97:POKE165,203:POKE166,0:POKE167,11:POKE168,133:POKE170,0:SYSML
2890 POKE 164,231:POKE165,203:POKE166,234:POKE167,11:POKE168,161:SYSML
2900 POKE 164,137:POKE165,204:POKE166,134:POKE167,11:POKE168,95:SYSML
2910 POKE 164,233:POKE165,204:POKE166,196:POKE167,9:POKE168,246:SYSML
2920 RETURN
2930 MC$(1)="                  ":MC$(2)=MC$(1):MC$(3)=MC$(2):MC$(4)=MC$(3)
2940 MC$(5)=MC$(4):MC$(6)=MC$(5):RETURN
2950 POKE53280,1:POKE53281,1:PRINTCHR$(142)"[147]";
2960 PRINT"          *** SNIGGLEFRITZ ***[160][160][160]       ";
2970 PRINT"           [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160]      ";
2980 PRINT"                                 [160]      ";
2990 PRINT"                                        ";
3000 PRINT"[146][144][160]    [160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]      [160]";
3010 PRINT"[160][160][160][160]                                    ";
3020 PRINT"[146][160][160] [160][160] [160]                          [160][144][160][160]"
3030 PRINT"  [160] [160]  [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160][160][160]  ";
3040 PRINT"[144]   [160] [160]                                  ";
3050 PRINT" [160] [213][192][192][192][192][201]                     [213][192][192][192][192][192][192][201]  ";
3060 PRINT   "[160][160] [221]TIME[144][221] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][221][150]ANSWER[144][221]  ";
3070 PRINT" [160] [221][156]    [144][221][160]                    [202][201][150]    [144][213][203]  ";
3080 PRINT" [160] [221][156]0:00[144][221]                      [221]    [144][221]   ";
3090 PRINT" [160] [202][192][192][192][192][203][160]    [146][156][183][183][183][183][183][183][183][183][183][183][144]      [160][202][192][192][192][192][203]   ";
3100 PRINT" [160]       [160][160]   [146]              [160]    [160][160]     ";
3110 PRINT" [160]                              [160][160]      ";
3120 PRINT" [160]                             [160]        ";
3130 PRINT"  [160]                          [160][160]         ";
3140 PRINT"[146][144][160]                            [160][160]  [144][160]"
3150 PRINT"[160]                                [160][160][160][160]   ";
3160 PRINT"                                        ";
3170 PRINT"                                        ";
3180 PRINT"                                        ";
3190 PRINT"           PRESS 'F7' TO QUIT          ";
3200 RETURN
3210 PRINT"[147]":POKE 53281,1:PRINT:PRINT"              [144]SNIGGLE MENU"
3220 PRINT"             [183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINT:PRINT
3230 PRINT"  ";CHR$(MC);"                     [146]              "
3240 FORZ=1TO8:PRINT"  "CHR$(MC)"                     [144] [146] "CHR$(MC)"            [144] "
3250 NEXT:PRINT"    [144]                   [144] [146]             [144] "
3260 PRINT:PRINT"      PRESS SHIFT AND 'F7' TO QUIT"
3270 PRINT:PRINT"  PRESS [144]F7 TO RETURN TO START OF MENU"
3280 XO=3:FOR Z=1 TO 6:YP=6+Z:GOSUB3610:PRINTCHR$(MC)"";MC$(Z):NEXTZ
3290 YP=14:GOSUB3610:PRINT" >";
3300 GOSUB2930:RETURN
3310 XO=27:FOR Z=1 TO 4:YP=6+Z:GOSUB3610:PRINTCHR$(MC)"";MC$(Z):NEXTZ
3320 YP=14:GOSUB3610:PRINT" >";:RETURN
3330 POKE53280,14:POKE53281,15:PRINTCHR$(142)"[147]";
3340 PRINT"[146]                   [160]    [160]"
3350 PRINT"       [154][160]          [146]  [154][160][160][160] [160][146][160][160]            [154][160]";
3360 PRINT" [160][160][160][160][160][160] [160][160][160]BLUE -[160][146] [154][160]    [160][146][160] [160]           [154][160]";
3370 PRINT"[160]  [160][160] [160]  [160]   [160]   [160][146] [154][160][160][160][160][160][160][146][160]"
3380 PRINT" [154][160] n[183][183][183][183][183]m[160]  [160]   [160]      [160][146][160][160] [154][160]"
3390 PRINT" [160] m [160]1 [154][160]n [160] [160]    [160] [146] [154][160] "
3400 PRINT" [154][160][160][160]m [160] [154]n[160][160]  [160][160][160][160][160]  [146]   "
3410 PRINT"  [154][160]  [144][160] [160][146]  [154][160] [160]u```i [160][146]   "
3420 PRINT"[154][160][160][160][160][144]     [146][154][160][160][160] }[154][160][160] }  [146] [160][160][146][160][154][160][160][160][160][160][160][160][160][160][160][160][160]"
3430 PRINT"[160]u``[177][177][177][177][177]````[177]``i[160][160]   [160][160] [146] [154][160][160][160] [160]    [160]"
3440 PRINT"[160]}[158]SNIGGLE[160]      [146]} [146]    [154][160][160] [146][150]```i      [154][160]"
3450 PRINT"[160][221][159][160][160][160]COUNTING[160][160][160][146][221] [146]  [154]  [160]  [146] [154][160][160][150][221][209] [144][160] [160][160][154][160][160][160]"
3460 PRINT"[160]}[153]   [160]   MACHINE[146]} [146]     [154][160][160][146][154][160][150]      [146] [144][176]```[174][154][160]"
3470 PRINT"[160]j``[178]```````````k [160][160][160][160]   [146] [150] [146][187][187][187][187][150][160][146][144]`[179]vvv[144]}"
3480 PRINT"[154][160]  u[177]i [154][160]    [160][160][160] [160]q  [146]  [160][146][154][160] [160][150] [146][187][187][187][187][150][160][146] [144]}vvv[144]}"
3490 PRINT"[154][160]  }[154] [146]}  [154][160] [160][160][160][160][160][160][160] [160][160][146][160][160][160][146][154][160] [160][150][160][160][160] [160][160][146][154][160][144][173]```[189][160]"
3500 PRINT"[154][160]  j`k [154][160] [160]       [160][160] [146]   [146] [154][160] [160][160][166][166][154][160]"
3510 PRINT"[160]     [160] [160][160]       [160][160] [146]   [146]  [154][160]  [166][166]"
3520 PRINT"[154][160]      [160][160][160][160][160][160][160][160][160][160][160][160] [146]   [146] [154][160][160]  [166][166][166][166][166][166]q   [154][160]"
3530 PRINT"[160]                [160][160]    8 [160][146][154][160]  [160]     [160]"
3540 PRINT"[160]                 [146][154][160]      [146]   [154][160]     [160]"
3550 PRINT"[160][160][160][160][160][160][160]     RED - [146]       [146]   [154][160]"
3560 PRINT"      [160]           [146][154][160]      [146]   [154][160]"
3570 PRINT"      [160]          [160]       [146][154][160]  [160]"
3580 PRINT"      [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
3590 RETURN
3600 PRINT"  ";CHR$(MC);"                     [144] [146]               [144] "
3610 POKE 781,YP:POKE 782,XO:POKE 783,0:SYS 65520:RETURN
3620 PRINT"[147]":POKE 53281,1
3630 PRINT"[144]     PRESS 'F1' TO RETURN TO MENU
3640 [153]:[153]"          PRESS 'F7' TO QUIT
3650 GETIN$
3660 IF IN$="" THEN 3650
3670 IF IN$="[133]" THEN 20
3680 IF IN$="[136]" THEN POKE53258,0:POKE53259,0:GOTO3700
3690 GOTO3650
3700 REM
3710 REM
3720 REM
3730 POKE44,8:POKE2048,0
3740 A$="SNIGGLE BOOT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
3750 PRINT"[158]LOAD"Q$A$Q$",8"
3760 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END