ZXTape! 2 Simple Arithmetic - Side B Camel MicrosUnknown1983English Educational4.95 ROM LoaderOriginal Release3TZXed by Andrew Barker Loaned from J.A. Waddington 0KippersKIPPERS , Y#v, O1300:4:1:7::z$=" " m$(8,8):g(8,8):n(3,2):m(20,2):c(8,8):t(64@,2):p(4,2):k(8,8) Vlv=1:scy=300,:nt=1:osy=scy:my=0:scm=scy:osm=scm:myt=my 36800:nrh=0:sty=0:stm=0 o"Enter your name ";y$:"How many games per turn ?";tn:tn<01;"ILLEGAL":5000::15 tp=0:t$="":tc=tn 'y$>12 y$=y$(112 ) #Sz1=0:z2=0:z3=0:i=0:i1=0:z4=0:oi=0 ( lv=1 -/my=my=0:myt=my:2000:3000 2nnr=4:1000:nc=0:nu=0:15,14;scy;:lv>118,14;scm; 7Msty=sty+scy-osy:stm=stm+scm-osm:osm=scm:osy=scy:lv=1myt=0 :^4000:n$=a$:myt021,25;a$;:100d:21,25;" "; <a$(1)="t"80P A"4500:er<0557 DWk(b1+1,b2-3)0a$="ALREADY USED":a=21:6300:557 Edk(b1+1,b2-3)=1:lv>1myt=0i1=b1+1:i2=b2-3:4075 FHb2,13 +b1*2;1;g(b1+1,b2-3);:5000 Hcb2,13 +b1*2;0;g(b1+1,b2-3);:nu=nu+1:nu=64@200 K@ad=-5:1800:3100 :myt=myt=0:557 P"4500:er<0557 U5b1=b1+1:b2=b2-3:j=0:7000X ZBi=1nt:b1=n(i,1)b2=n(i,2)j=i:i=nt+1 _!i:b1=b1-1:b2=b2+3 d@j=0ad=-15:1800:myt=myt=0:557 i4200h:1800 n7n(j,1)=0:n(j,2)=0:j=0 s5i=1nt:n(i,1)0j=1:i=nt xi ymlv>13,1;"KIPPERS";:4,1;"FOUND";::nr+1,1;n$;:nr=nr+1 }&j0myt=myt=0:557 +myt0a$="MACHINE WINS":130 a$="YOU WIN" Na=1:6300:myt=myt=0:tc=tc-1:tc1145 )a$="END OF TURN":a=1:6300 @scy=300,:lv=1:scm=scy:sty=0:stm=0: <osy=scy:osm=scm:"Next players name ";y$:tc=tn:45- %scytpscmtp4300:45- /a$="**HIGHEST SCORE**":a=1:6300 /myt=0t$="Computer":tp=scm:160 t$=y$:tp=scy 4300:45- H:1,2;1;"All squares used - game over":5000 11 ,i;i;:i 1,0;1;"SETTING UP GAME";:i=1nt:n(i,1)=(7.99{*)+1:n(i,2)=(7.99{*)+1 k=1i-1:k8n(k,1)=n(k,1)-2 k:i Ii=18:k=18:j=(*2.99?\():k(i,k)=0 8j1=1:nt>1j1=(*(nt-.01z# =))+1 j<21040 .b1=(n(j1,1)-i):b2=(n(j1,2)-k) b1=b2g(i,k)=b1:1050  j=(*1.99~Q) 2j=0g(i,k)=(n(j1,1)-i):1050 g(i,k)=(n(j1,2)-k) k:i nrh=01055 ^i=1nrh:g((*7.99{+1),(*7.99{+1))=(*6.99_{)+1:i  ad=0 $Fi=18:k=18:c(i,k)=0:k(i,k)=0 ),k:i:numt=0:1,0;z$;: : myt=01830&  )scm=scm+ad:a$="Machines score updated" 618,14;" ";:18,14;scm; #ad0a=1:6300  &%scy=scy+ad:a$="Your score updated" +B15,14;" ";:15,14;scy;:1815 /:0,8;"*** KIPPERS ***":1 &0,154:255,0 &0,175:255,0 ;0,-158:-255,0:0,158 %0,68D:255,0 '87W,154:0,-86V &103g,18:0,502 5159,18:0,502:a$="ABCDEFGH" lv12050 -3,2;a$;:12 ,2;a$; 7i=411 :lv=1i,0;i-3; -i,11 ;6;0;i-3;:i  (a$="A B C D E F G H":6:0 /3,13 ;a$;:12 ,13 ;a$; Vi=411 :i,12 ;z$(116);i-3;:i:1:7 !14,1;"BEST SCORE"; 14,14;"YOURS";  17,13 ;"COMPTR"; %714,23;"_LEVEL_";:15,26;lv; &.16,4;tp;:18,2;t$; * 0: (i=18:m$(i)=" ":i oi=0: Hz1=b1+1:z2=b2-3:z3=g(z1,z2):oi=oi+1:lv1 !8z4=z1+z3:z4<9 j=18:3300 :j &8z4=z1-z3:z4>0j=18:3300 :j +8z4=z2+z3:z4<9 j=18:3350 :j 08z4=z2-z3:z4>0j=18:3350 :j 5 3400H :1k=18:3+k,2;m$(k);:k ? (a$="a":oi=1a$="*":3310 m$(j,z4)"*" m$(j,z4)=a$: (a$="a":oi=1a$="*":3360 m$(z4,j)"*" m$(z4,j)=a$: Hoi=1 M.l=18:m=18:a$=" " Rm$(m,l)="a"a$="*" W m$(m,l)=a$ \m:l: $myt0lv14030 I20,0;"Select a square (eg a1), or":"try a guess (eg ta1)" "Your turn ";a$ (a$)<2a$="k9" 20,0;z$:z$  .1;21,0;"Computers turn"; lv>241506  6000p i214060 Fa$="t"+(m(1,1)+96`)+(480+m(1,2))  Bi1=(*11.99? =):i2=(*11.99? =):i1<3i1=2 i1>8i1=9 i2<3i2=2 i2>8i2=9 i1=i1-1:i2=i2-1 k(i1,i2)=04070 6i1=i1+1:i1>8i1=1:i2=i2+1 i2>8i2=1  4065 0a$=(96`+i1)+(480+i2):4075:  z3=g(i1,i2) Ez4=i1+z3:z4<9 j=18:c(z4,j)=c(z4,j)+1:j Ez5=i1-z3:z5>0j=18:c(z5,j)=c(z5,j)+1:j "z6=i2+z3:z6>84110 *j=18:j=z4j=z54105  c(j,z6)=c(j,z6)+1  j "z6=i2-z3:z6<14130" *j=18:j=z4j=z54125 c(j,z6)=c(j,z6)+1 j " 6 ; 6000p @&i=1+(nu>7)+(nu>11 ) Ei2>14190^ FLlv=3c(m(1,1),m(1,2))>nu-24050 GLlv=4c(m(1,1),m(1,2))nu-44050 J#i3=:i3502lv=2:sty=0:nrh=0:nt=1:44000  Msty>80Psty=0:lv=3:nrh=12 :nt=1:44000 Msty<-80Psty=0:lv=1:nrh=0:nt=1:44000  Msty<-90Zsty=0:lv=2:nrh=0:nt=1:44000 Nsty>120xsty=0:lv=4:nrh=12 :nt=2:44000  Osty<-100dsty=0:lv=3:nrh=12 :nt=1:44000  08a=1:a$="LEVEL CHANGE":6300:5000: '(a$)>2a$=a$(23) 0a$(2)<"1"a$(2)>"8"er=-1: b1=(a$)-97a 'b2=3+(a$(2)):er=0 ;b2<4b2>11 b1<0b1>7er=-1  n=1100d:n -1,0;z$;:20,0;z$; 21,0;z$;: p>mx=0:i2=0:j=18:k=18 zPc(j,k)>mxmx=c(j,k):i2=1:m(i2,1)=j:m(i2,2)=k:6030 Hc(j,k)=mxi2<20i2=i2+1:m(i2,1)=j:m(i2,2)=k k:j  a,0;1;a$; 5000: yp(1,1)=0.5:p(1,2)=.86\(:p(2,1)=0.50:p(2,2)=.85Y <p(3,1)=.5:p(3,2)=.8L: Xc(b1,b2)=0:l=1nt:b1=n(l,1)b2=n(l,2)k=18:c(k,b2)=0:c(b1,k)=0:k:l=nt bl: Z E E#E@-\(YLEcscMsMyr t-tYga$ p umedaX M ~ TComputerNa1AMachines score updated