ZXTape! 0Created with Ramsoft MakeTZXmultiply ZZ"\A.Cowley B.Sc.Nov.1982  5 ڰ"0":ٰ"0":"0":32434~:ٰ"7";"14","13";"Please";"15","14";"wait":"0","0";:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:"m/c"32440~:"gr""a":"sc":"7"  6  2000 "a(5):b$(4,17) b$(1)="units column?" b$(2)="tens column?" b$(3)="hundreds column?" !b$(4)="thousands column?"  s=550& Fn$(1,19) Hn$(1) Qڰ"7":"1": T91:1,9 ;" Which level? ":0 W"3,0;"Multiplying:-" Z5,0;"1. units?" ]'7,0;"2. tens and units?" `09 ,0;"3. hundreds,tens and units?" c$12 ,0;"Press 1,2 or 3" f=""102f il$= j""106j ll$<"1"l$>"3"102f pl=l$ 8ink=(*3)+4:ink:1:0:ink: n$(1)  $" Multiply ",,,,"Level ";l,,,, !"Try these again, ";n$(1)  s=550& r=8 550& c(5):i=020 %i,11 ;" " i t=20 i=15 a(i)=(*9 )+1  i  a(5)=1260  7l=1a(1)*a(5)>25260  &i=l+14:a(i)=0:i #0,0;" Multiply "  k=1l j=32 -4*k  i=3 690+10 *a(k) "k &6i=8:j=28:690+10 *a(5) /Ci=28-4*l29:12 ,i;"-";17,i;"-":i 8,i=8:j=23-4*l:790 A0,27;"units" JOi=13:c(i+1)=(((a(i)*a(5)+c(i))/10 ))*(il):i V8c(2)0l>10,22;"tens" Y;l=3c(3)00,19;"hds tns" h.c(4)00,14;"thds" t k=1l wL20,11 ;"What shall I enter in";21,11 ;"the ";b$(k) z 800  }Ci=14:j=32 -4*k:690+10 *q:890z Qq=a(5)*a(k)+c(k)-(((a(5)*a(k)+c(k))/10 ))*10 400 !850R:795:375w  870f %k=lc(k+1)=0480 klk=k+1 k>lc(k)=0480 k=l+1375w k=l+2486 T20,11 ;"What shall I carry";21,11 ;"forward? "  800   18,28-4*k;q q=c(k+1)470  850R "18,28-4*k;" "  412  870f  20:k s=s+t s<530s=530 (s+350^*(t=-20)) t=20509  :d$="" l>2d$=a(3) l>1d$=d$+a(2) d$=d$+a(1) ,d$, d$="" l>2d$=" " l>1d$=d$+" " d$=d$+a(5) ,d$, +d$="---":,d$(1l),,,,d$(1l) ,21,11 ;" " ,20,11 ;"More? y or n " =""516 q$= q$="n"530  s=530210  215 :1:1:1,9 ;" ";2,9 ;" See you soon ";3,9 ;" ":0 Cv$=n$(1):z=191-1:v$(z)" "533 v$=v$(z):z 20:5,((32 -(v$))/2);v$ ?11 ,12 ;" Press ";13 ,12 ;"any key" """537" ="""538"  _14,4;" ";15,2;" ";16,3;" ";17,4;" "  E30,45-:20,0,/4:-20,0,- ! #116,3;" ";17,4;" " $U30,40(:20,0,-/4:-20,0,2*/3 % &40(,60<,30 )40(,30 ,-10 ,-15,.3 /-10 ,-15,-.3 9 :+j=16:r+6,3;"_" D/10 :r+6,3;"O":15:j E N.j=16:r+6,3;"O _" O210 :r+6,3;"O O":15:j P bKj=1100d:r+7,4;" ";r+7,4;"":j g/20,11 ;" Lift-off next time " hz=13:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=3)),(z+1)*5:z*5:z i w020,11 ;"** Are you ready ? **" xz=24:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=4)),(z+1)*5:z y s=530 zp$="Goodbye" {z=20:y=0 }p=132 (32435~,8:fred=32440~ p>p$649 &p<521,1+p;p$(p) &p>421,9 -p;p$(p)  670 z0670 2y=0z,1;"-";z+1,2;" " 2y=1z,2;"|";z-1,1;" " #y=y+1-((y=1)*2) y=0z=z-2 p 0,1;" " &ink=(*3)+4:ink:ink:  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;"  " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;"  "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "    i+0,j;" " i+1,j;" " i+2,j;" "  \j*8,110n:24,-24:j*8+24,110n:-24,-24  4i,j;" ";i+1,j;" ";i+2,j;" ":  =""800  #q$= &q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"No no, try again " S4890z:.5,-10 :1.5@,-20 U$547#:20:t=-20: f020,11 ;"Yes, well done  " g|890z:543:.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :502: ps=550&: zM21,11 ;" ";21,11 ;n$(1): Wj=13:r+6,3;"O":10 :r+6,3;" ":20 j: ]j=14:r+6,3;"O O":10 :r+6,3;"O ":20 j: ]j=16:r+7,4;"":10 :r+7,4;" ":20 j:   (6:6:1:2: !0,12 ;" Hello " j128,88X:25,25:30,-30,-:-30,-30,-:-25,25 V25,-25:-30,-30,-:-30,30,-:25,25 V-25,-25:-30,30,-:30,30,-:25,-25 V-25,25:30,30,-:30,-30,-:-25,-25 123{,83S,7  0 .20,6;" What  is your name?"  m/c ~5f H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 gr X ?`??x?sc @g#???P|<<~<<~B<|~||>B<|H<|>BB~><BB@@@B@BBB@?>BBfBBDHBBBf@BBB<|BBB`@4BB>BB~><?? P0/d?, @?p @?p@? :?@|@?@@?@B8888@D88H@0?8:@@BD@D?@T0$ @ @  ?0?@|x<8xT<r@ ?@ @@@@D@~TD!@? @@ <::>::::::::::::::::::::::::::::>>:>>::::::::8::::::::::::::::::>>:>>::::::::8:::::::::::::::::::::::::::::::888::::::::::::::::::>>::::::::8::88:::::::::::::::::>>:::::8??????8:::::::::::::::::::::::::8????:8:????????::::::::::::::::::::888::::::::::::::::::::::::::::88888::?????????::::::::::99:::888888::::99:::::999:::8:::88::::::::::::::999999999999::::88;;;;;;;;;;:::::999999999999::88;;;;;;;;;;;;8888888888888888888888888888888888888888888888888888888888888888S divide A.Cowley B.Sc.Nov.1982  5 ڰ"0":ٰ"0":"0":32434~:ٰ"7";"14","13";"Please";"15","14";"wait":"0","0";:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:"m/c"32440~:"gr""a":"sc":"7"  6  2000 "a(5):b$(3,16)  b$(1)="hundreds column?" b$(2)="tens column?" b$(3)="units column?"  s=550& Fn$(1,19) Hn$(1) Qڰ"7":"1": T91:1,9 ;" Which level? ":0 W3,0;"Dividing:-" Z5,0;"1. units?" ]'7,0;"2. tens and units?" `09 ,0;"3. hundreds,tens and units?" c$12 ,0;"Press 1,2 or 3" f=""102f il$= j""106j ll$<"1"l$>"3"102f pl=l$ 8ink=(*3)+4:ink:1:0:ink: n$(1)  "" Divide ",,,,"Level ";l,,,, !"Try these again, ";n$(1)  s=550& r=8 550& c(4):i=020 %i,11 ;" " i t=20 i=14 a(i)=(*10 )  i  a(4)<2260  Da(l+2*(l=1)-2*(l=3))12,10 +4*l;"tens" G(l=32,19;"hds tns" q y=0 tk=4-l3 wL20,11 ;"What shall I enter in";21,11 ;"the ";b$(k) z 800  }Bi=5:j=20+4*y:690+10 *q:890z 1q=((a(k)+10 *c(k))/a(4))400 !850R:795:375w  870f )20,11 ;"What is left over?"  800  k3430 #18,11 ;"Remainder ";q  433 *q09 ,4*y+23;q Qc(k+1)=(10 *c(k)+a(k))-((10 *c(k)+a(k))/a(4))*a(4) q=c(k+1)470  850R 89 ,4*y+23;" ";18,21;" "  406  870f 20:y=y+1:k s=s+t s<530s=530 (s+350^*(t=-20)) t=20509  :d$="____" ," ";d$(1l+1) d$="" l>2d$=a(1) l>1d$=d$+a(2) d$=d$+a(3) ,a(4);")";d$  ,21,11 ;" " ,20,11 ;"More? y or n " =""516 q$= q$="n"530  s=530210  215 :1:1:1,9 ;" ";2,9 ;" See you soon ";3,9 ;" ":0 Cv$=n$(1):z=191-1:v$(z)" "533 v$=v$(z):z 20:5,((32 -(v$))/2);v$ ?11 ,12 ;" Press ";13 ,12 ;"any key" """537" ="""538"  _14,4;" ";15,2;" ";16,3;" ";17,4;" "  E30,45-:20,0,/4:-20,0,- ! #116,3;" ";17,4;" " $U30,40(:20,0,-/4:-20,0,2*/3 % &40(,60<,30 )40(,30 ,-10 ,-15,.3 /-10 ,-15,-.3 9 :+j=16:r+6,3;"_" D/10 :r+6,3;"O":15:j E N.j=16:r+6,3;"O _" O210 :r+6,3;"O O":15:j P bKj=1100d:r+7,4;" ";r+7,4;"":j g/20,11 ;" Lift-off next time " hz=13:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=3)),(z+1)*5:z*5:z i w020,11 ;"** Are you ready ? **" xz=24:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=4)),(z+1)*5:z y s=530 zp$="Goodbye" {z=20:y=0 }p=132 (32435~,8:fred=32440~ p>p$649 &p<521,1+p;p$(p) &p>421,9 -p;p$(p)  670 z0670 2y=0z,1;"-";z+1,2;" " 2y=1z,2;"|";z-1,1;" " #y=y+1-((y=1)*2) y=0z=z-2 p 0,1;" " &ink=(*3)+4:ink:ink:  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;"  " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;"  "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "    i+0,j;" " i+1,j;" " i+2,j;" "  :130,70F:0,34",2*/3: 4i,j;" ";i+1,j;" ";i+2,j;" ":  =""800  #q$= &q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"No no, try again " S4890z:.5,-10 :1.5@,-20 U$547#:20:t=-20: f020,11 ;"Yes, well done  " g|890z:543:.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :502: ps=550&: zM21,11 ;" ";21,11 ;n$(1): Wj=13:r+6,3;"O":10 :r+6,3;" ":20 j: ]j=14:r+6,3;"O O":10 :r+6,3;"O ":20 j: ]j=16:r+7,4;"":10 :r+7,4;" ":20 j:   &6:6:1:2: !0,12 ;" Hello " j128,88X:25,25:30,-30,-:-30,-30,-:-25,25 V25,-25:-30,-30,-:-30,30,-:25,25 V-25,-25:-30,30,-:30,30,-:25,-25 V-25,25:30,30,-:30,-30,-:-25,-25 123{,83S,7  0 .20,6;" What  is your name?"  m/c ~T H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 gr X X?`??x?sc @gd???P|<<~<<~B<|~||>B<|H<|>BB~><BB@@@B@BBB@?>BBfBBDHBBBf@BBB<|BBB`@4BB>BB~><?? P0/d?, @?p @?p@? :?@|@?@@?@B8888@D88H@0?8:@@BD@D?@T0$ @ @  ?0?@|x<8xT<r@ ?@ @@@@D@~TD!@? @@ <::>::::::::::::::::::::::::::::>>:>>::::::::8::::::::::::::::::>>:>>::::::::8:::::::::::::::::::::::::::::::888::::::::::::::::::>>::::::::8::88:::::::::::::::::>>:::::8??????8:::::::::::::::::::::::::8????:8:????????::::::::::::::::::::888::::::::::::::::::::::::::::88888::?????????::::::::::99:::888888::::99:::::999:::8:::88::::::::::::::999999999999::::88;;;;;;;;;;:::::999999999999::88;;;;;;;;;;;;8888888888888888888888888888888888888888888888888888888888888888S