ZXTape! 2` Number 7Prime Software1983English Educational?NoneOriginalTZXed by Guy BearmanNUMBER7 // 1V"d"16384@,6912 W "NUMBER7" Ud @U||>B~<<~B<|~@<B<BBf@@B@BBB@@BBDbBBBZ|B~<<@$BB~~B<?????????????????????????????????>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>??>============================>??>=<<<<<<<<<<<<<<<<<<<<<<<<<<=>??>=<;;;;;;;;;;;;;;;;;;;;;;;;<=>??>=<;::::::::::::::::::::::;<=>??>=<;:99999999999999999999:;<=>??>=<;:98888888888888888889:;<=>??>=<;:98899999999999999889:;<=>??>=<;:98::::::::::::::::89:;<=>??>=<;:98::::::::::::::::89:;<=>??>=<;:98:::::::::::::::889:;<=>??>=<;:98888888888888888889:;<=>??>=<;:9888888888889:;<=>??>=<;:98888888888888888889:;<=>??>=<;:99999999999999999999:;<=>??>=<;::::::::::::::::::::::;<=>??>=<;;;;;;;;;;;;;;;;;;;;;;;;<=>??>=<<<<<<<<<<<<<<<<<<<<<<<<<<=>??>============================>??>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>?????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888NUMBER7 #R&P%R%:5:h=0:a(40():  8400 P#0:0,14;"MENU" Q 1 V)2,1;"1. One sum at a time" W04,1;"2. Set of sums with answers" X36,1;"3. Set of sums without answers" y,8,1;"4. Put in your own sums" ~410 ,1;"5. JAWS (10 sums right to win)" 12 ,1;"6. Finish" $"Type 1,2,3,4,5 or 6 (& ENTER) ";o !o>6o<11160 :s=502:hc=0:0:man=18:f=0 Do=6:21,0;"Press RUN and ENTER to continue": !o=1o=51190  "How many? (1-40 & ENTER) ";h "h>40(h<11180 2*o,0;">" hc=hc+1 o=41300 15,6;"CARRY"  3 &17,1;"1. Without carry" #19,1;"2. With carry" $21,1;"3. With either"  "Type 1,2 or 3 (& ENTER) ";c !c>3c<11260 !c*2+15,0;">" $0:15,25;"SIGN" &2:17,22;"1. add" (18,22;"2. take" 219,22;"3. times" <20,22;"4. share" F "Type 1,2,3 or 4 (& ENTER) ";r P!r>4r<11350F Z#16+r,20;">":0 d 100d n0o=5o=1:s=100d:1500 x"Speed? 1-10 (10 is fast) ";s z"s<1s>10 1400x } 0 's=1051-(s*100d)::1 r=23000 r=34000 r=45000  addition o=58420 4 1 > 8100 C1,17;hc R 8000@ f 8200 z 7170  0 0,6;"Tens Units"  0:o=42900T n1=(*90Z) n1t=(n1/10 ) n1u=n1-(n1t*10 ) n2=(*(100d-n1)) n2t=(n2/10 ) n2u=n2-(n2t*10 ) c=32300 2c=2n1u=0n1=n1+1:2220 *c=2(n1u+n2u)<10 2240 )c=1(n1u+n2u)>9 2240 t1d=10 :t1a=10 n1t=02330 a=160:u=143 9000(#+(n1t*100d) 0,6;"Tens Units"  7010b a=192:u=143 $9000(#+(n1u*100d) &u1d=10 :u1a=13 ) 7030v .n2t=02380L 8a=160:u=111o B9000(#+(n2t*100d) Dt2d=21:t2a=10 G 7050 La=192:u=111o V9000(#+(n2u*100d) Xu2d=21:u2a=13 [ 7070 ^2o=5hc=hc+1:85004!:2000 `o32410j bs::a(hc)=n1+n2 c!hc=hc+1:hch2000 dYz=011 :y=12:0.25~,z:y:z:2,12 :hc=1 ee=01616 fHd=019:d,e;hc;")";a(hc):hc=hc+1:hc>h2409i hd:e i.:"Press ENTER to continue";k$::1100L j220,17;"Add units (";n1u;"+";n2u;")" ls oo>12500 t"Press ENTER to continue";k$ 7110 u=n1u+n2u &uc=(u/10 ):ur=u-(uc*10 ) a=192:u=79O 9000(#+(ur*100d) 61:uc=116,22;"1":0 2220,17;"Add tens (";n1t;"+";n2t;") " 40uc=121,17;"and the carry" 7o>12630F <"Press ENTER to continue";k$ Fs:7200  U"uc=160<:7260\ d&20,17;" " n%21,17;" " tt=n1t+n2t+uc tt=02800 a=160:u=79O 9000(#+(100d*tt) 'z=(*10 +1):2760 +z o=12850" hc=hc+1 hc>hs::1100L s::2000 "17,0;"Can you think of some sentences using these numbers and:":20,0;"add sum total bigger altogether and plus more greater increase":"More of the same? (y or n)";m$ 6,:m$="y"m$="Y"hc=hc+1:2000 ; hc=0 @:1100L U!"Type in top number.(0-99) ";n1 Wn1>99c2900T ^n1t=(n1/10 ) hn1u=n1-(n1t*10 ) r"Type in bottom number.";n2 un2+n1>99c2930r n2t=(n2/10 ) n2u=n2-(n2t*10 ) 2300  subtraction o=58420  1 & 8100 +1,17;hc : 8000@ N 8200 b 7350 g 0 l0,6;"Tens Units" {o=43900< n1=(*80P+20) n1t=(n1/10 ) n1u=n1-(n1t*10 ) n2=(*n1) n2t=(n2/10 ) n2u=n2-(n2t*10 ) c=33300 2c=2n1u=9 n1=n1-1:3220 c=2n1un2u3240 c=1n1u9000(#+(n2u*100d) @u2d=21:u2a=13 F2o=5hc=hc+1:85004!:3000 Ho33410R Is: J a(hc)=n1-n2 K!hc=hc+1:hch3000 LYz=011 :y=12:0.25~,z:y:z:2,12 :hc=1 Me=01616 NHd=020:d,e;hc;")";a(hc):hc=hc+1:hc>h3409Q Od Pe Q::"Press ENTER to continue";k$:hc=0::1100L R.19,17;"Take units ";n1u;"-";n2u Ws:o>13500 \"Press ENTER to continue";k$ n1un2u3550 `100d:20,17;"You can't! ":100d:21,17;"Change a ten " 100d:7300 ]n1u=n1u+10 :n1t=n1t-1:z=2021:y=1731:z,y;" ":y:z n1:a=160:u=143:a+3,u-3:26,-26:4,23;n1t:100d aa=192:a+3,u-3:26,-26:4,26;n1u:100d:0 3410R 7380 a=192:u=79O "9000(#+((n1u-n2u)*100d) /19,17;"Take tens ";n1t;"-";n2t s:o>13630. $"Press ENTER to continue";k$ 8 7410 L&20,17;" " a=160:u=79O 5(n1t-n2t)09000(#+(100d*(n1t-n2t)) o=13850  hc=hc+1 #hc>hs::hc=0:1100L s::3000 !"More of the same? (y or n)";m$  *m$="y"m$="Y"hc=hc+1:3000 # hc=0 (:1100L A!"Type in top number.(0-99) ";n1 Bn1>99c3905A Fn1t=(n1/10 ) Pn1u=n1-(n1t*10 ) Z"Type in bottom number.";n2 dn2>n13930Z nn2t=(n2/10 ) xn2u=n2-(n2t*10 )  3300  multiplication o=58420  1  8100 1,17;hc " 8000@ 6 8200 J 7500L O 0 co=44900$ rn1=(*4+2) n2=(*(100d/n1)) n2<10 4240 n2t=(n2/10 ) n2u=n2-(n2t*10 ) c=34300 'c=2n1*n2u<10 4220| &c=1n1*n2u>9 4240 a=192:u=111o 9000(#+(100d*n1) z=0n1-1 11 ,(n2t+2)*z;"" z o=54330 119,17;n1;" times table":200 (19,17;n1;" children " a=160:u=143 n2t=04360 9000(#+(n2t*100d)  7550~ a=192:u=143 9000(#+(n2u*100d)  7580 2o=5hc=hc+1:85004!:4000 +#20,17;"Each has ";n2 -Q200:19,17;" ":20,17;" " 0o34410: 1s: 2 a(hc)=n1*n2 3!hc=hc+1:hch4000 4Yz=011 :y=12:0.25~,z:y:z:2,12 :hc=1 5e=01616 6Hd=019:d,e;hc;")";a(hc):hc=hc+1:hc>h44099 7d 8e 9::"Press ENTER to continue";k$:hc=0::1100L :(19,17;"Units ";n2u;"x";n1 ?s:o>14500 D"Press ENTER to continue";k$  0,5;"Tens Units"  7600 a=192:u=79O )9000(#+(100d*(ut-ct*10 )) 51:ct>016,22;ct:0 (19,17;"Tens ";n2t;"x";n1 ;ut>9 20,17;"and the carry":200 s:o>14630  "Press ENTER to continue";k$  7640 4 7670 a=160:u=79O 9000(#+(100d*tt) o=14850 hc=hc+1 #hc>hs::hc=0:1100L s::4000 17,19;"SENTENCES":18,17;"times multiply":19,17;"product lots of":20,17;"groups of ":21,17;"sets of" !"More of the same? (y or n)";m$  *m$="y"m$="Y"hc=hc+1:4000  hc=0 :1100L )#"Type in bottom number.(2-5) ";n1 *$n1>5 n1<24905) B"Type in top number. ";n2 Ln2*n1>99c4930B Vn2t=(n2/10 ) `n2u=n2-(n2t*10 ) j 4300  division o=58420  1  8100 1,17;hc  8000@  8250: 7 0 Ko=45900  Zn1=(*4+2) xn2=(*80P+20) n2t=(n2/10 ) n2u=n2-(n2t*10 )  x=0 c=35300 z=04*n1n1 c=2n2t=z5220d c=1z=n2tx=x+10 c=1z=n2ux=x+1 z "c=1x11 5240x a=128:u=111o 9000(#+(n1*100d) z=0n1-1 %11 ,((n2t/n1)+2)*z;"" z o=55330 119,17;n1;" times table":200 &19,17;n1;" children "  0,5;"Tens Units" a=160:u=111o 9000(#+(100d*n2t)  7700  a=192 9000(#+(100d*n2u)  77302  2o=5hc=hc+1:85004!:5000  20,17;"share ";n2 Q200:19,17;" ":20,17;" " o35410" s: 7ans=(n2/n1):rem=n2-(n1*ans):a(hc)=10 *ans+rem !hc=hc+1:hch5000 Yz=011 :y=12:0.25~,z:y:z:2,12 :hc=1 e=01616 }d=019:ans=(a(hc)/10 ):rem=a(hc)-10 *ans:d,e;hc;")";ans;"r";rem:hc=hc+1:hc>h5409! d  e !::"Press ENTER to continue";k$:hc=0::1100L ")19,17;"Share ";n2t;" tens" 's:o>15500| ,"Press ENTER to continue";k$ |,n2tts19,17;"Change tens ":200 ,tl=0ct=0:ut=n2u:5600 o>15560 "Press ENTER to continue";k$  7800x L1:a=192:u=111o:a+3,u-3:26,-26 8,26;ut:0 )19,17;"Share ";ut;" units" s:o>15610 "Press ENTER to continue";k$  ue=(ut/n1)  us=ue*n1  ur=ut-us  7850 a=192:u=143 9000(#+(100d*ue) a=224:u=143 0,1:7,29;"r";ur:0 :%19,17;" " o=15850 hc=hc+1 #hc>hs::hc=0:1100L s::5000 E17,19;"SENTENCES":19,17;"share divide " !"More of the same? (y or n)";m$  *m$="y"m$="Y"hc=hc+1:5000  hc=0 :1100L !"Type number sharing.(2-5) ";n1 $n1>5 n1<25905 *!"Type number to be shared. ";n2 4n2>99c5930* >n2t=(n2/10 ) Hn2u=n2-(n2t*10 ) R 5300 bX2:q=1n1t:p=09 :(t1d-p),(t1a-q+1);"":p:q:0 l v>2:q=1n1u:(u1d-q+1),u1a;"":q:0  X2:q=1n2t:p=09 :(t2d-p),(t2a-q+1);"":p:q:0  >2:q=1n2u:(u2d-q+1),u2a;"":q:0  502: q=1n2u 3n1u+q=11 u1a=u1a+1:u1d=u1d+10 (u2d-n2u+q),u2a;" " 02:(u1d-n1u-q+1),u1a;"":0  502:q  a=128:u=111o  )a+16,u-3:0,-26 (a+3,u-16:26,0  *q=1n2t 44p=09 :(t2d-p),(t2a-q+1);" ":p >J2:p=09 :(t1d-p),(t1a-n1t-q+1);"":p:0 H 502:q R \2p=09 :(10 -p),13 ;" ":p fI2:p=09 :(10 -p),(t1a-n1t-n2t);"":p:0 p 1z=110 :0+z,11 -n1t;" " On1u+z<11 2:11 -n1u-z,13 ;"":502:z:0: A2:21-(n1u+z),14;"":502:z:0:  - sign a=128:u=111o (a+3,u-16:26,0  z=1n2u Bn1u-z+111 20-n1u+z,14;" ":7400 10 -n1u+z,13 ;" " ;2:22-z,13 ;"":502:z:0: z=1n2t 7y=110 :11 -y,10 -n1t+z;" ":y E2:y=110 :22-y,11 -z;"":y:0 z: Va=128:u=111o `)a+3,u-3:26,-26 j)a+3,u-29:26,26 t ~y=0n2t-1 z=0n1-1 L2:x=110 :22-x,(n2t+2)*z+y;"":x:0 z y  y=1n2u P2:z=0n1-1:22-y,z*(n2t+2)+n2t;"":z:0 y  ut=0:ct=0 y=n2u1-1 z=n1-10-1 %22-y,z*(n2t+2)+n2t;" " >2:10 +(ct*10 )-ut,15-ct;"":0 ut=ut+1 x=10 40(10 ut=xct=ct+1 x z  502 y   tt=0  y=n2t-10-1 z=n1-10-1 w2:x=110 :22-x,(n2t+2)*z+y;" ":11 -x,9 -tt;"":x:tt=tt+1:0 z  502 y: z=1ct p2:y=110 :11 -y,16-z;" ":11 -y,9 -tt;"":y:tt=tt+1:0 502:z: z=1n2t E2:y=110 :11 -y,10 -z;"":y:0 z: 2z=1n2u 7#2:11 -z,15;"" <z:0: H v=0 Kz=n15*n1n1 P&z>n2tts=z-n1:te=ts/n1:7770Z Uz Zy=0te-1 _z=0n1-1 e v=v+1 f6x=110 :11 -x,9 +v-n2t;" ":x gK2:x=110 :22-x,(te+2)*z+y;"":x:0 iz n 502 sy: xct=0:ut=n2u zz=1tl }y=110 y,9 -tl+z;" " >2:10 +(ct*10 )-ut,15-ct;"":0 ut=ut+1 x=10 40(10 ut=xct=ct+1 x y  502 z: y=0ue-1 z=0n1-1 x=10 40(10 ut=xct=ct-1 x ;11 +(ct*10 )-ut,15-ct;" ":ut=ut-1 52:21-y,(te+2)*z+te;"":0 z  502 y: Ja=160:u=175 T'a+5,u-3:22,0 ^)a+16,u-3:0,-26 h a=192 ra+5,u-3 |0,-14 22,0, 0,14 0,-24  u=175:a=128 g=03 a+(g*32 ),u 0,-128 a,u-(g*32 ) 127,0 g #a+127,u:0,-128 -127,0  u=175:a=128 e=13 -a+32 ,u-(94^+e):64@,0 &.a+32 ,u-(126~+e):64@,0 0e 5 <u=175:a=128 ?e=13 D-a+32 ,u-(62>+e):64@,0 N9a+(30+e),u-64@:0,-32 ,-/4 Xe: <z=156160:n=07:r:z+n,r:n:z s24,36$,24,255,24,36$,36$,102f,3,132,72H,480,3,132,72H,480,480,568,28,28,30,30,62>,62>,12 ,28,568,568,120x,120x,124|,124|,0,126~,126~,126~,126~,126~,126~,0  \f=0:4:z=13:18+z,16;" ":z:0 &152,23:79O,0 ;1:z=1928:21,z;"":z:0 ! "18,man;" ":.5,man !@y=1927:.06|u\,-y/2:20,y;" ":y ! Iy=2719-1:.06|u\,-y/2:20,y;" ":y !*Df=117,20;"Bad luck!":200::1100L !/ !4r=48506:! !5"Type in your answer. ";a !6r=1an1+n28530R! !7r=2an1-n28530R! !8r=3an1*n28530R! !9 8510>! !:#"Type answer (not remainder) ";a1 !;"Type remainder ";a2 !<n2a1*n1+a28530R! !>:17,20;"Correct":100d:man=man+1 !Cman<28: !Fman=28:z=18:18,man;" ":y=2419-1:.05|L,y:y:18,man;" ":17,man;" ":2:17,man;" ":z !HN18,man;" ":17,19;"Well done!":200::1100L !Ry=1820:y,man+1;"":y-1,man+1;" ":f=1:152,23:79O,0:.5,100d-(3*y):y:8470! #(S1:a+16,u-3:0,-26,:0,26,:0: #=1:a+16,u-3:0,-26:0: #1:a+7,u-9 :18,0,-/1.5@:-2,-6,-/4:-14,-13 :16,0:0: $T1:a+9 ,u-9 :14,0,-/1.2:-10 ,-6,-/1.8ffff:10 ,-8,-/1.8ffff:-14,0,-/1.2:0: ${1:a+20,u-3:-14,-19:20,0:a+20,u-16:0,-12 :0: %q1:a+23,u-3:-15,0:0,-10 :0,-13 ,-/0.68.z:0: %r1:a+19,u-3:-12 ,-16,/3:18,0,:-18,0,:0: %P1:a+6,u-3:20,0:-16,-26:0: &H1:a+16,u-3:0,-10 ,/.9ffff:0,-15,-/.9ffff:0,15,-/.9ffff:0,10 ,/.9ffff:0: &h1:a+24,u-12 :-16,0,:16,0,:-4,-16:0: &8:1:10 ,10 ;"Stop the tape":0 '"Press ENTER to continue";k$ ' :1 h  ros2afcuoa $22 xd 111 1  1 1 22 22 K(]