ZXTape! 0Created with Ramsoft MakeTZXadd BROSE SOFTWARE Oct.1982 "5" "0":ڰ"0":ٰ"0":32434~:ٰ"7";"14","13";"Please";"15","14";"wait":ٰ"0":"0","0";:23613=\+"256"*23614>\,"0":23613=\+"1"+"256"*23614>\,"0":"m/c""32440":"gr""a":"sc":"7" "6"  "2000" "a(6):b$(3,16) b$(1)="units column?" b$(2)="tens column?" b$(3)="hundreds column?" c="0":s="550" H$n$(1,19):n$(1) Qڰ"7":"1": T:۰"1":"1","9";" Which level? ":0 W"5","5";"ADDING:-" Z"8","3";"1. units?" ]""10","3";"2. tens and units?" `+"12","3";"3. hundreds,tens and units?" c"15","6";"Press 1,2 or 3" f="""102" il$= j"""106" ll$<"1"l$>"3""102" pl=l$ ,k=(*3)+4:k:ܰ"1":ٰ"0":k: n$(1)  " Add ",,,,"Level ";l,,,, !"Try these again, ";n$(1) s="550" r="8" "550" i="1"̰"20" %i,11 ;" " i t="20"  i="1"̰"6" a(i)=(*9 )+1  i  3l=3a(3)+a(6)>8"260"  6l=1a(1)+a(4)>9 260  6l=2a(2)+a(5)>8260 "1","1";" ADD " h="0"̰"3"Ͱ"3" k=1+hl+h  j=31-5*k+5*h i=5*h/3+3 690+10 *a(k)  $l=1990+10 *a(k) "k ,h /Ci=28-4*l29:12 ,i;"_";17,i;"_":i 8,i=8:j=24-4*l:790 A@0,26;"units":l>10,20;"tens" G)l=30,11 ;"hundreds" J k="1"l M@"20","11";"What shall I enter in";"21","11";"the ";b$(k) P"800" Y8i=14:j=31-5*k:690+10 *q `!l=1990+10 *q b"890" hAq=a(k)+a(k+3)+cq=a(k)+a(k+3)+c-10 400 k"850":"795" pRl=1i,29;" ";i+1,29;" ";i+2,29;" " }"333" "870" l="2"k="2""480" l="1"k="3""480" H"20","11";"What shall I carry";"21","11";"forward? " "800"  18,27-5*k;q 0q=((a(k)+a(k+3)+c)/10 )470 "850" "18,27-5*k;" " "412"  "870":c=q  "20":k s=s+t s<"530"s="530" (s+350^*(t=-20)) t="20""506"  i="1"̰"4"Ͱ"3":d$="" l>2d$=a(i+2)  l>1d$=d$+a(i+1)  d$=d$+a(i)  ,d$,:i  d$="---" !,d$(1l),,,,d$(1l) &"21","11";" " &"20","11";"More? y or n " ="""512" q$= q$="n"530  #c=0:s=530211  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) p=9 :0  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;" "  k=(*3)+4:k:k:  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;" "  i+0,j;"  " i+1,j;"" i+2,j;"  "  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:   GI,29;" ";I+1,29;" * ";I+2,29;" "  GI,29;" * ";I+1,29;" * ";I+2,29;" "  GI,29;" * ";I+1,29;" * ";I+2,29;" * "  GI,29;"** ";I+1,29;"** ";I+2,29;" "  GI,29;" * ";I+1,29;"***";I+2,29;" * "  GI,29;"** ";I+1,29;"** ";I+2,29;"** "  $GI,29;"** ";I+1,29;"***";I+2,29;"** " % .GI,29;"***";I+1,29;"***";I+2,29;"** " / 8GI,29;"***";I+1,29;"***";I+2,29;"***" 9 &6:6:1:2: !1,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 ~R# 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 subtract zz|"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(6):b$(3,16) Yb$(1)="units column?":b$(2)="tens column?":b$(3)="hundreds column?" 6c="0":s="550":n$(1,19):n$(1) T;ڰ"7":"1"::۰"1":"1","9";" WHICH LEVEL? ":۰"0" ]S"3","0";"Subtracting:-";"5","0";"1. units?";"7","0";"2. tens and units?" cG"9","0";"3. hundreds,tens and units?";"12","0";"Press 1,2 or 3" f="""102" il$= j"""106" ll$<"1"l$>"3""102" 5l=l$:ink=(*"3")+"4":ink:ܰ"1":ٰ"0":ink: 3n$(1)::" Subtract ",,,,"level ";l,,,, !"Try these again, ";n$(1) :s="550":r="8":"550" 3i="1"̰"20":i,"11";" ":i :c(3):t="20":i="1"̰"6":a(i)=(*"9")+"1":i  (l="1"a(1)a(4)"270"  a(l)-a(l+3)<"2""260"  l="3"a(2)="1""260" "0","0";" Subtract " h="0"̰"3"Ͱ"3" k=1+hl+h  j=31-5*k+5*h i=5*h/3+3 690+10 *a(k)  !l="1"990+10 *a(k) "k:h /:i=28-4*l̰"29":"12",i;"-";"17",i;"-":i 8&i="8":j=24-4*l:"790" A1"0","26";"units":l>"1""0","20";"tens" G l="3""0","11";"hundreds" Kk="1"l:l=k"372" MI"20","11";"Do I need to borrow 1";"21","11";"y or n ? " P="""336" Sq$=:d$="y" V<a(k+3)c(k)a(k+3)a(k)*(c(k)=0)d$="n" Wq$d$"850":"333" X"870" Yd$="n""372" Zc(k)="0""352" [c(k)=c(k)+"10":"355" `c(k)=a(k)+"10" c c(k+1)=a(k+1)-"1" fj="29"-"5"*k:"680" i&"2",j+2+(c(k)<10 );c(k) lj=j-"5":"680" r6"2",j+2+(c(k+1)<10 );c(k+1) t@"20","11";"What shall I enter in";"21","11";"the ";b$(k) z7"800":i="14":j="31"-"5"*k:690+10 *q l="1"990+10 *q 9"890":q=a(k)*(c(k)=0)+c(k)-a(k+3)"400" "850":"795" @l="1"i,"29";" ";i+"1","29";" ";i+"2","29";" " "372" "870":"20":k s=s+t:s<"530"s="530" .(s+350^*(t=-20)):t="20""506" :i="1"̰"4"Ͱ"3":d$="" l>"2"d$=a(i+2) l>"1"d$=d$+a(i+1) d$=d$+a(i):,d$,:i +d$="---":,d$(1l),,,,d$(1l) K"21","11";" ";"20","11";"More? y or n " ="""512" q$=:q$="n""530"  c="0":s="530""211"  "215" i:۰"1":ٰ"1":"1","9";" ";"2","9";" See you soon ";"3","9";" ":۰"0" 7v$=n$(1):z="19"̰"1"Ͱ"-1":v$(z)" ""533" v$=v$(z):z ,ٰ"0":"5",((32 -(v$))/2);v$ 3"11","12";" Press ";"13","12";"any key" """537" ="""538"  G"14","4";" ";"15","2";" ";"16","3";" ";"17","4";" "  5"30","45":"20","0",/4:"-20","0",-: #%"16","3";" ";"17","4";" " $E"30","40":"20","0",-/4:"-20","0",2*/3: &ذ"40","60","30" ,""40","30":"-10","-15",".3" /"-10","-15","-.3": :"j="1"̰"6":r+6,"3";"_" D("10":r+6,"3";"O":"15":j: N%j="1"̰"6":r+6,"3";"O _" O+"10":r+6,"3";"O O":"15":j: b?j="1"̰"100":r+7,"4";" ";r+7,"4";"":j g)"20","11";" Lift-off next time " hz="1"̰"3":װ".1",z*5:װ".1",z*5:װ".1",z*5:װ".25"*(1+(z=3)),(z+1)*5:z*5:z: w*"20","11";"** Are you ready ? **" xuz="2"̰"4":װ".1",z*5:װ".1",z*5:װ".1",z*5:װ".25"*(1+(z=4)),(z+1)*5:z z)s="530":p$="Goodbye":z="20":y="0" 6p="1"̰"32":32435~,8:fred=32440~ p>p$"649" p<"5" "21","1"+p;p$(p) p>"4""21","9"-p;p$(p) "670" zǰ"0""670" &y="0"z,"1";"-";z+"1","2";" " )y="1"z,"2";"|";z-1,"1";" " #y=y+1-((y=1)*2) y="0"z=z-2 p:"0","1";" " "ink=(*"3")+"4":ink:ink:: #"1",j+"5";"/";"2",j+"4";"/"  "5",j+"1";"/";"6",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;" ":  i+"0",j;" " i+"1",j;" " i+"2",j;" ": 9i+"0",j;" ";i+"1",j;"";i+"2",j;" ": .i,j;" ";i+"1",j;" ";i+"2",j;" ":  ="""800" &q$=:q$<"0"q$>"9""800" '"""807" ) q=q$: R&"20","11";"No no, try again " S%"890":װ".5","-10":װ"1.5","-20" U"547":"20":t="-20": f*"20","11";"Yes, well done  " gU"890":"543":װ".2","2":װ".2","2":װ".2","4":װ".2","4":װ".5","9":"50": p s="550": zA"21","11";" ";"21","11";n$(1): Dj="1"̰"3":r+"6","3";"O":"10":r+"6","3";" ":"20":j: Jj="1"̰"4":r+"6","3";"O O":"10":r+"6","3";"O ":"20":j: Jj="1"̰"6":r+"7","4";"":"10":r+"7","4";" ":"20":j:  :I,"29";" ";I+"1","29";" * ";I+"2","29";" ": :I,"29";" * ";I+"1","29";" * ";I+"2","29";" ": :I,"29";" * ";I+"1","29";" * ";I+"2","29";" * ": :I,"29";"** ";I+"1","29";"** ";I+"2","29";" ": :I,"29";" * ";I+"1","29";"***";I+"2","29";" * ": :I,"29";"** ";I+"1","29";"** ";I+"2","29";"** ": $:I,"29";"** ";I+"1","29";"***";I+"2","29";"** ": .:I,"29";"***";I+"1","29";"***";I+"2","29";"** ": 8:I,"29";"***";I+"1","29";"***";I+"2","29";"***": 4"6":ڰ"6":ܰ"1":ٰ"2"::"0","12";" Hello" L"128","88":"25","25":"30","-30",-:"-30","-30",-:"-25","25" >"25","-25":"-30","-30",-:"-30","30",-:"25","25" >"-25","-25":"-30","30",-:"30","30",-:"25","-25" >"-25","25":"30","30",-:"30","-30",-:"-25","-25" Cذ"123","83","7":ٰ"0":"20","6";" What  is your name?": m/c ~ 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