numberfun1N"NUMBERFUN1" }NUMBERFUN1 A 0:0:0:: q$="y"x G12 ,10 ;1;4A;"PLEASE WAIT";0;0 "" \1:i=010 :i,0;" ":i:0 (?4:1:12 ,10 ;" LOADING ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" QnA NUMBERFUN1logo @@ ???????????????????????????????|file Z+&T*\+ Numberfun   Spectrum(48K)   FISHER-MARRIOTT    1983  )0:0::0:4000 count=0 dm$=" 0  0  0  0  0  0  " *c$="" *a$=" " s$="*+ox*." :n1=0:n2=1:f=1:s=0:n4=0  90Z 7,3;"Numberfun";5,21;"You have";8,21;"20 bombs";13 ,2;"Addition &";15,2;"subtraction";13 ,22;"SPACE";15,21;"to start" +100d:count19count=-1 " "200:28  30 " "300,:25 count=0:f=0:5::7;0;"Please type";2,4;"1 for addition";4,4;"2 for subtraction";6,4;"3 for a mixture."  =""31 i$=:i$<"1"i$>"3"31 ""n8=0:n=i$-480:n5=n $7;0;2*n,1;">>>";11 ,0;"Please ENTER the highest number"''"to be used (it can be anything" &n9=0:8,0;0,0;"from 5-100): ";8;8;8;0;7;l$:l$=""38& 'fr=1̱l$:n9=n9l$(r)<"0"l$(r)>"9":r:n9=0l$5ưl$100dl1=l$:41) (n8=1:11 ,0;" ";13 ,0;"Sorry. You must type a number ":38& ) 13 ,0;" "n8=1;15,0;"from 5-100):"n8=0;15,0;"OK. "n8=1;15,12 -8*n8;l1;19,0;"Press X if wrong";21,7;"Any other key if right" *>""42* +i$=:i$=""43+ ,i$="x"i$="X"30 - n3=5+(*3)+(*n) 0 l=0 4""524 7h:7;1;21,1;"Press any key to drop the bomb" 8>""568 9=""579 : 90Z l1a1=l1 Ma1<0a1=0 N+m$(68)=(" "a1<10 )+a1 Op$=""+m$(83S)+" " Pwi=15:19,0;"";c$(32 );20,0;p$;21,0;"";a$(32 ) Q>a$=a$(35#)+a$(34"):c$=c$(35#)+c$(34") RXi=2i=3i=4m$=""+m$(90Z):p$=m$(80P-i)+" ":84T S7m$=m$(87W)+m$(86V):p$=""+m$(84T) Ti:count203000 U20:=""76L V0199:m$(45-47/)=a300, W112p,23:40(,0,-/2:13 ,4;" "m>9 s<10 ;:7:1:1:ss9 );""icount;" "i=count:i g drop bomb i=518 zi,16;"";i-1,16;"";i-2,16;"";i-3,15;" ":.01z# =,557 8fi=17ưm$(45-47/)n1*n2i=18 i:count=count+1: ,O1000:i=1418+3*f:i,14;"";19:i:f .s=s+m:14,24;"";s;" ":i=1502:i:18,0;"";31;" ";c$(233!);p$(8);21,0;"";a$(233!) 0100d:60< 11000:s=s+m:14,24;"";s;" ":i=1502:i:count<2018,0;"";31;" ";c$(233!);p$(8);21,0;"";a$(233!) explosion 15,16;" ";16,16;" ";17,16;" ";18,16;" ";1:1:20,15;(""+m$(45-47/)f):i=02:7-i-3*(i=2):j=-1.5@4.5:132,0:-4**j,*60<:.01z# =,16+6*i:132,0:4**j,*60<:.01z# =,0:j:i:0:0: delays i=1250:i i=1250:i: Q:7:0:0,7;:n=0"Mixed questions":1505 n+" x table" Qt$="a"2,7;"Type the answer,";3,7;"and press ENTER." 2n1=n:j=010 :n1>01510 +n=(*10 )+1:n4=n1508 n4=n wp=6+j:p1=20-(n*j):p,7;(" "j<10 );j;" x "+(" "n<10 );n;" = ":t$="b"1560 p,p1;" ":p2=p1:n$="" ""1514 p,p2;"? " i$=:i$=""1518  i$=13 n$""1530 i$=12 1512 i$<"0"i$>"9"1512 -p,p2;i$:n$=n$+i$:n$>(n*j)1512 p2=p2+1:1514  p,p2;" "  i=1 !n$(i)<"0"n$(i)>"9"1512 (i=i+1:i=n$+11536  1532 n$=n*j1562 4p,5-(j/10 );">>>":1512 p,p1;n*j:t$="b"1003 j:n=n1:45- i 0j=1502:""200:206 j reward 250:7::1:i=59 :i,5;20:i:7,7;"Well done":150:i=11 20:i,15;27:i:13 ,16;"Get ready";15,16;"for your";17,16;s;" stars":300,  )r1=0:0:0:0: Ąk=1s-502*(s100d):٥*5+3;*21,*31;s$((*8)+1):k:s100d3040 k=125 6p=(*704)+22528X:p=03014 Ǐp,73I-p:p=p-22528X:q=(p/32 ):٥*5+2;q,p-32 *q;s$((*7)+1):.01z# =,502-*10 :k Dk=115:q=(*5)*4:x=(*8)*4 *r=(*6)+2:r1r3022 3020 lb=>.5:r1=r:b;q,x+1;" ";q+1,x;" ";q+2,x;" ";q+3,x+1;" " (r:3050 +20*(>.5):k Rk=120:q=(*5)*4:x=(*8)*4:b=>.6 *r=(*6)+2:r1=r3033 Ur1=r:y=03:z=03:p=22528X+x+z+32 *q+32 *y "r;q,x;s$((*8)+1) p,64@*b+r z:y:k dk=22528X23232Z:k,7:k:9 :10 ,10 ;"End of game":1002 :15,0;"Do you want to play again? (y/n)" =""3044 ="y"Ŧ="Y"0: 8="n"Ŧ="N":11 ,9 ;"Program ended": 3042 five-points (15+8*x,174-8*q a-8,-28:22,16:-28,0:22,-16:-8,28 Oi=15+8*x:p=i:j=174-8*q163-8*q-1 "é(p,j)p=p-1:3053 p,j:2*(i-p),0:j Op=i-14:j=162-8*q152-8*q-1:p=p-1 "é(p,j)p=p+1:3056 p,j:2*(i-p),0:j <p-1,j:6,0:p+6,j:6,0 Lp-1,j-1:5,0:p+7,j-1:5,0 Lp-1,j-2:3,0:p+9 ,j-2:3,0 Mp-1,j-3:2,0:p+10 ,j-3:2,0  six-points -x=15+8*x:q=159-8*q r=(*8)+5 Wp=-r+2r-2:x,q+r:p,-3*r/2:x,q-r:-p,3*r/2:p: 412 ,2;"" 5;14,2;"";15,2;"";16,2;"";17,2;"" h19,2;"ONE";21,4;" 1982 FISHER-MARRIOTT" )1,-24:1002:11 1:2:i=12:j=010 :128,0:-5**j,*502:128,0:5**j,*502:j:i::5000 pc=22723X22730X:c,63?:c+32 ,63?:c:c=16384@+19516384@+202:b=70-1:c+512*b-2016*(b>3),(c+b*256):c+256*(2*b+1)-2016*(b>3),(c+b*256):b:c zAc=22723X22730X:c,58::c+32 ,58::c: &)"file"9902&:" ""a",168: &"":4000 ' "":"" ounM[ 0  0  0  0  0  0  C#A# S*+ox*.fsꀀo XTت~<<<<<<<<U|7/?7 `а`???8??>~>>ZZ