start tok64 d64-5OnbO8
10 PRINT"{clear}":POKE53281,1:POKE53280,5:READp1$,p2,p3$,p4:GOTO710
12 READp1$,p2,p3$,p4:b=54272
15 FORi=bTOb+24:POKEi,0:NEXT:vo=b+24:ad=b+5:sr=ad+1:hf=b+1:lf=b:POKEad,20
16 POKEsr,200:so=b+4:GOTO130
20 POKEso,32:RETURN
30 POKEhf,50:POKElf,40:POKEso,33:FORm=1TOc:NEXT:GOTO20
40 f=INT(RND(1)*9):RETURN
50 POKEso,33:FORl=99TO255:POKEhf,l:POKElf,50:NEXT:GOSUB20:GOTO1050
60 POKEso,33:POKEhf,60:POKElf,50:FORm=1TO400:NEXT:GOTO20
70 PRINTm$;"{space*8}{reverse on}{blue}press return to change":RETURN
80 PRINTm$;"{space*13}{reverse on}{blue}enter digit{reverse off}{space*8}":RETURN
90 IFf>5THENl=126:IFf>9THENl=108:m=1:IFf>30THENl=90:m=0:IFf>50THENl=108:m=1
100 IFf>99THENf=0
110 POKEe,l:POKEe+1,l:GOTO430
120 PRINT"{home}":PRINTTAB(l);m$;o$;:POKEvo,15:GOSUB30:POKEvo,o:PRINTn$:RETURN
130 POKE649,1:m$=" N{cm t*2}M {down}{left*6} MZZN {down}{left*6} {cm f}L{sh @}{cm d} {down}{left*6} {sh pound}{cm q}{cm w}{cm asterisk} {down}{left*6}{space*2}OP"
140 m$=m$+"{space*2}{down}{left*6} {reverse on}{sh pound}{space*2}{cm asterisk}{reverse off} "
150 n$="{left*6} {W*4} ":o$="{down}{left*6} {Z*4} "
160 PRINT"{clear}{down*9}{reverse on}{green} m=menu{-*23}del=erase {reverse off}{home}"
165 POKE214,23:PRINT:POKE211,15
170 l8=48:POKE143,PEEK(162):GOTO1050
180 POKE651,255:PRINT"{home}":r=54272:s=1561:y=p2:e=1106:rw=16:wr=rw-4:POKEvo,15
190 IFp2=3THENrw=17:wr=rw-5
200 IFp1$="-"ORp2=1ORp2>3THENy=2
210 POKE214,rw:PRINT:POKE211,17:PRINT"{space*7}"
220 FORi=p2TO1STEP-1:a(i)=0:s(i)=0:FORk=1TOy:GOSUB30:GOSUB40
230 a(i)=a(i)+f:s(i)=s(i)-f
240 m=(k*40)+i:POKEr+s+m,0:POKEs+m,f+48:IFk=1THENl1=f
250 NEXT:IFp1$="-"THENGOSUB660:GOTO270
260 l=a(i):n=9:GOTO280
270 s(i)=s(i)+2*l1:l=s(i):n=0
280 GOSUB580:a(i)=l
290 NEXTi
300 FORk=1TOy:FORi=1TOp2
310 m=k*40+i:IFPEEK(s+m)>48THEN340
320 IFi=p2THENv=1
330 POKEs+m,32:NEXT
340 NEXTk:IFv=1THENv=0:GOTO180
350 a=0:u=-1:FORi=p2TO1STEP-1:u=u+1:IFp1$="-"THENa=a+s(i)*10^u:GOTO370
360 a=a+a(i)*10^u
370 NEXT
380 a=INT(a):l2=0:IFa<0THEN180
390 FORi=2TOy:POKE214,wr+i:PRINT:POKE211,17:PRINT"{black}"p1$:NEXT
400 POKE160,0:POKE161,0:POKE162,0
410 FORk=0TOp2:POKE214,rw-1:PRINT:POKE211,17+k:PRINT"C":NEXT
420 u=LEN(STR$(a))-2:i=0:l1=0:FORk=p2TOp2-uSTEP-1
430 FORm=15TO17:POKEm+e+r+280,0:POKEm+e+280,ASC(MID$(ti$,m-11))+128:NEXT
440 IFti$="{0*3}400"THENGOSUB60:GOTO550
450 GETa$:IFa$=""THENl=124:f=f+1:GOTO90
460 IFASC(a$)=20THENPOKE214,rw:PRINT:POKE211,17:PRINT"{space*7}":GOTO420
470 IFa$="m"THEN710
480 IFa$<"0"ORa$>"9"THEN440
490 PRINT"{down}":l1=INT(l1+VAL(a$)*10^i):i=i+1
500 POKE214,rw:PRINT:POKE211,17+k:PRINTa$:NEXT
510 IFl1=aTHENGOTO50
520 IFl1<>aTHENGOSUB60
530 l2=l2+1:IFl2>2THEN550
540 GOTO410
550 v=0:an$=STR$(a):l=LEN(an$):IFl>p2+1THENv=1
560 IFl-1<p2THENv=l-1-p2
570 POKE214,rw:PRINT:POKE211,18-v:PRINT"{reverse on}";MID$(an$,2,8):FORk=1TO3500:NEXT:GOTO180
580 IFp3$="n"ANDp1$="+"THEN610
590 GOSUB40:x=1:IFl<n+fTHEN630
600 RETURN
610 IFl>nTHENx=-1:GOTO630
620 RETURN
630 l=0:FORk=1TOy:m=(k*40)+i:f=PEEK(s+m)+x:IFf<48THENf=48
640 IFf>57THENf=57
650 POKEs+m,f:l=l+(f-48):NEXT:GOTO580
660 IFp3$="n"THEN690
670 IFi=1ORf>=l1THENRETURN
680 GOTO700
690 IFf<l1THENRETURN
700 POKEs+m,l1+48:POKEs+m-40,f+48:s(i)=(-f)-l1:l1=f:RETURN
710 m$="{home}{down*16}"
720 PRINT"{clear}{black}{down*3}{right*8}operation (+/-){.*4} ";p1$
730 PRINT"{down}{right*8}# digits (max=6){.*3}";p2
740 PRINT"{down}{right*8}carry/borrow{.*7} ";p3$
750 PRINT"{down}{right*8}# problems (max=9).";p4
760 PRINT"{down}{right*8}{space*4}{E*14}
770 GOSUB70:PRINT"{down*3} {right*8}{space*4}{blue}{reverse on}(b to begin)";
780 PRINT"{green}{home}{right*8}select:use crsr(up/dn){black}"
790 m=1152
800 IFm1=1392THENm=1152
810 FORi=mTOm+20:x=PEEK(i):POKEi,x+128:NEXT
820 GETa$:IFa$=""THEN820
830 IFVAL(a$)<10ANDVAL(a$)>0THEN950
840 IFa$="+"ORa$="-"ORa$="y"ORa$="n"ORPEEK(197)=1THENa$="1":GOTO950
850 IFa$="{down}"THEN900
860 IFa$="{up}"THEN940
870 IFa$<>"b"THEN820
880 PRINT"{white}{clear}{down*3}1040 data";p1$;",";p2;",";p3$;",";p4:PRINT"run12";"{home}"
890 :POKE198,3:POKE631,13:POKE632,13:POKE633,13:END
900 m2=m2-1:k=80
910 m=m+k:FORi=m-kTOm-k+20:x=PEEK(i):POKEi,x-128:NEXT:IFm>1392THENm=1152
920 IFm<1152THENm=1392
930 ON(m-1064)/80GOSUB70,80,70,80:GOTO800
940 m2=m2-1:k=-80:GOTO910
950 ON(m-1152)/80GOTO980,1000,1030:IFp1$="+"THENp1$="-":GOTO970
960 p1$="+"
970 POKEm+20,ASC(p1$)+128:GOTO820
980 IFVAL(a$)>6THENa$="6"
990 p2=VAL(a$):POKEm+20,p2+176:GOTO820
1000 IFp3$="n"THENp3$="y":GOTO1020
1010 p3$="n"
1020 POKEm+20,64+ASC(p3$):GOTO820
1030 p4=VAL(a$):POKEm+20,p4+176:GOTO820
1040 DATA-, 2 ,n, 2
1050 c=0:PRINT"{home}{black}":FORl=0TO34:GOSUB120:NEXT
1060 FORl=33TO0STEP-1:GOSUB120:NEXT:PRINT"{blue}":c=40
1070 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
1080 l8=l8+1:IFl8-48>p4THEN1120
1090 m=53247+8*l8:PRINT"{home}";
1100 FORm1=mTOm+7:x=PEEK(m1):FORl=1TO7:c=32:x=x*2:IFx>255THENx=x-256:c=209
1110 PRINTTAB(30)"{black}"CHR$(c);:NEXT:PRINT"{left*7}{down}";:NEXT
1120 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
1130 IFl8-48>p4THEN1150
1140 GOTO180
1150 PRINT"{clear}":POKE214,12:PRINT:POKE211,4
1155 PRINT"{reverse on}{black}how about another game (y/n)?{reverse off}"
1160 GETz$:IFz$=""OR(z$<>"y"ANDz$<>"n")THEN1160
1170 IFz$="y"THENRESTORE:CLR:GOTO10
1180 END
stop tok64
(bastext 1.0)