ZXTape! 2CStudy Maths - side 2Scisoft83ROM+CotL-DS from orig. tapefactors a'Jc] factors  1983  question=2000:questiondone=3000 :comment=4000:intro=6000p:setup=8000@:title=9000(#:enter=9100#:yesno=9400$ +23658j\,8:236099\,502 dtitle nintro q(5):a(5) q=15 setup #question:done(64@+noofchoice)2005 2guess=z$-64@:f(guess)=02005 {"":tries=tries+1:n=49 :8+guess,n;" ";f(guess):soundm=15:.02{# =,0:m n q(q)/f(guess)ɺ(q(q)/f(guess)).8L,2:.8L,1:1.6L,0:8+guess,12 ;"":f(guess)=0:n=1150:n:8+guess,5;" ";:bcol=(2+*6):bcol;0,4;"";1,4;"":2000 47000X:7100:7200 :7300:7400:(7500L+(100ddone/2=(done/2))):7700:7800x: >'done=done+1:f(guess)=0:  questiondone Za(q)=tries-done:"":enter:n=112 :8+n,0;" ";:n t8,0;"Well done !"'"You found all the"'"factors in"'tries;" tries."''"Here they all are"'"in pairs..." "n=1q(q)^.5+.1}L =(q(q)/n)=q(q)/nn;2;"x ";q(q)/n;6;" =";q(q) n:enter   comment k:0,10 ;:z$="Factors":v=32000}:4,0;"** ";n$;" **"''"Your scores are :-" 8,0;"For question":n=15:8+2*n,0;n;" you took ";a(n);" balloon"+("s"a(n)1):a(n)m=1a(n):8+2*n,21+m;(4+*4);"";9 +2*n,21+m;"":m  n:enter  oinstructions p7:1::7::0,10 ;:z$="Factors":v=32000}:5,0;"Please type in your name"'"then press ENTER" zn$:10 ,0;"Hello there ";n$;12 ,0;"Do you want to see the"'"instructions for factors ?"'"press Y or N" yesno:i$="Y"6100 X:5,0;"Before we start the game do you want sound ? press Y or N" -yesno:sound=0:i$="Y"sound=1  enter: a7:1::7::0,3;:z$="Instructions for Factors":v=32000}: '5,0;"In this program the computer will give you a number between 1 and 50 and a list of numbers."''"You have to say which of the numbers in the list are factors of the first number."''"Remember the FACTORS of a numberare all the numbers that go intoit without a REMAINDER."  enter: Wmove the balloon Xn=05:bcol;n,n+4;" ";n+1,n+4;" ";n+1,n+5;"";n+2,n+5;"":sound.2~L,12 +n bsound4 ln: n=65+guess:bcol;n,10 ;" ";n+1,10 ;" ";n+1,10 ;"";n+2,10 ;"":sound.2~L,12 +n sound4 n:  n=5+guess6-1:n+1,10 ;" ";n+2,10 ;" ";n+3,10 ;" ";n,10 ;bcol;"";n+1,10 ;"";n+2,10 ;7;f(guess):sound.2~L,12 +n *sound4 4n: yn=10 24:6,n;bcol;" ";7,n;" ";8,n;" ";7;f(guess):sound.2~L,12 +n sound4 n: down=17-((done)/2):n=8down-1:n,25;" ";n+1,25;f(guess):sound.2~L,20-n sound4 n: Lzn=downdown+1:n,25+(down-n);" ";n+1,25+(down-n-1);f(guess):sound.2~L,20-n Vsound4 `n: vn=downdown+1:n,25+n-down;" ";n+1,25+n+1-down;f(guess):sound.2~L,20-n sound4 n: an=2410 -1:bcol;6,n;" ";7,n;" ":sound.2~L,12 +n sound4 (n: xn=60-1:bcol;n+1,n+5;" ";n+2,n+5;" ";n,n+4;"";n+1,n+4;"":sound.2~L,12 +n sound4 n: ? setup @1:7:1::0,10 ;:z$="Factors":v=32000}:n=1419:n,22;" ";:n:;20,22;"";21,19;"factor bucket";1,20;"Question ";q JLbcol=(2+*5):0,4;bcol;"";1,4;"" TG#1;1,0;1;"Choosing a number....Please wait" Dq(q)=(4+*47/):n=1q:q(n)=q(q)nq8100 n f(20):noofans=0 n=1q(q) 9(q(q)/n)=q(q)/nnoofans=noofans+1:f(noofans)=n n @nowrong=(3+*noofans):nowrong>6nowrong=6 ?noofans+nowrong>12 nowrong=nowrong-1:8170 noofchoice=noofans+nowrong n=noofans+1noofchoice Istore=(1+*502):m=120:f(m)=store8200 m:f(n)=store:n  shuffle xn=1noofchoice:sa=(1+*noofchoice):sb=(1+*noofchoice):store=f(sa):f(sa)=f(sb):f(sb)=store:n &:right=0:more=1:tries=0:done=0 l"":3,9 ;"What are the";4,9 ;"factors of";:n=352:n,22;"*******"(4+(q(q))):n:4,22;"* ";q(q);" *" vFn=1noofchoice:8+n,1;(64@+n);") ";f(n):n  #(|1:7:1::5,10 ;:z$="Factors":v=32000}:16,8;" Scisoft 1983":enter: # enter #9#1;1,4;"Press ENTER to continue" #""9110# #13 9120# #"":.1}L,12 : $ yesno $""9400$ $!i$=:i$"Y"i$"N"9410$ $ '31999|:7:1:0:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": 'X"factors"9998':"factors"32000},200:"factors""a",22*8 uestiouestiondon ommenntrpetu@itl(#nte#esn$ZFactorsvfactors }M3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookefactors X?<~~<<$B~~~B$$BUUUUUUUժժUUUBfZBBBBbRJFB"9")z$"G"5020 2.1}L,6:"":z$="G"finished=1: fx=z$:z$;","; ""5035 *z$=:(z$<"0"z$>"9")z$"G"5040 ..1}L,6:z$="G"finished=1: ffy=z$:z$;")";18,0;" "; 65100+(100da$(fx+1,fy+1)" ") n=1200:n:  miss E13 -fy,fx+2;5;" ":fired=fired+1:update: Ohit Zn=18:m=10-1:13 -fy,fx+2;2;5;1;m;a$(fx+1,fy+1):.007ye`A,*502:m:n dfired=fired+1:ship=a(fx+1,fy+1):a(fx+1,fy+1)=0:#1;0,2;"a HIT !!!"; n ship0s(ship)=s(ship)-1:s(ship)=0ssunk=1+(ship>2)+(ship>5):#1;1,0;"you've sunk a ";("battleship"ssunk=1);("cruiser"ssunk=2);("destroyer"ssunk=3):d(ssunk)=d(ssunk)+1  update: n osetscreen pp1:1:7::0,7;7;1;" ";1,7;" ";0,8;:z$="BATTLESHIPS":v=32000}:4,14;"shots fired";7,14;"ships sunk";9 ,14;"battleships";11 ,14;"cruisers";13 ,14;"destroyers";15,14;"press G to give up" zb15,2;"0123456789":n=09 :n+4,0;9 -n;" ":n S0,43+:255,0:0,154:255,0:update b20,0;1;" Please wait while the computer "'" hides the ships "  W Xn=19 bUud=1+(*2):dx=1:dy=0:ud=2dx=0:dy=1 lRlen=s(n):x=1+(*(10 -(lendx))):y=1+(*(10 -(lendy))) v2m=1len:a$(x+dx*m,y+dy*m)" "7010b m tm=1len:a$(x+m*dx,y+m*dy)=""(1+3*(ud-1)+(m>1)+(m=len)):a(x+m*dx,y+m*dy)=n:m n  ?instructions @7:3,8;:z$="Battleships":v=32000} JC10 ,0;"Type in your name, then"'" press ENTER" T1n$:23658j\,8:N=120:N ^T15,0;"Hello ";n$''"Do you want Instructions ?"'"Press Y or N" h!z$=:z$"Y"z$"N"8040h rz$="N"8300l r:0,8;"Battleships"''''"When you start this game the"'"computer will show you a ten by"'"ten grid." ''"Hidden somewhere on the grid are";12 ,8;"2 Battleships";13 ,8;"3 Cruisers";14,8;"4 Destroyers" H17,0;"The object of the game is to"'"sink all the ships." enter :0,8;"Battleships"''''"To fire you type in the"'"co-ordinates of the square you"'"want to fire at."''"First the X co-ordinate (across)then the Y co-ordinate (up)." >''"The computer will tell you if"'"you have hit anything !!" l enter: #' #(6:0:6:0:0:0::3,10 ;:z$="Battleships":v=32000}:15,9 ;" Scisoft 1983":enter: #121,5;"Press Enter to continue" #""9110# # z$=:z$13 9120# #C.1}L,12 :21,5;" ": #Jn=1821:n,0;" ";:n: $T}4,28;1;fired;9 ,28;d(1);11 ,28;d(2);13 ,28;d(3): ' 2^16-7962 '31999|:7:1:7::5,5;1;"STILL LOADING";8,5;"LEAVE TAPE RUNNING"'':"":"": 'a"battleship"9998':"battleship"32000},200:"battleship""a",22*8  i 0   inisheirepdatT$lea#nte#itl(#nst@etuXetscreepetmovvZGbattleship}wI_3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.CookebattleshipXw<~~<??~@|@@@>BB<DHpHDB@@@@@~BfZBBBBbRJFB