ZXTape! 0Created with Ramsoft MakeTZX mult  "MULT" OMULT  7  N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";: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" Z&  QnAMULT>Flogo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file /& .w/Kn$()=n$(z1):n(i$))=(n$(z-(z-1))i$)z1:j$(32 )  8000@ title=8600! k$="" start=0 date=0 (&0:6:6::8 Fstartyc=12 :xc=6:yc1=1:pc=5:lbox:yc,xc;"Same Person?":lyn::start=qy:70F+10 *qn+20*qy P 110n: d 1000 nxx=16:yc=14:xc=4:yc1=3:pc=1:9 :lbox:yc,xc;"Please ENTER your name":yc=yc+2:len=15:yc=1:xc=1:pc=4:yc1=3:title:yc=xx:yc1=3:xc=4:lnm xn$ start=1  6 t=0:b$=" " l(4):b(4) $a$="":d$=" " %k$="":i=1̱n$: &n$(i)=" "1065) ' k$=k$+n$(i) (i .A:yc=2:xc=1:yc1=1:pc=4:lbox:2,11 -k$/2;"HELLO ,";k$:6,9 ;"Which level?:"::yc=7:yc1=10 :pc=5:xc=1:lbox:8,4;5;"Multiplying:-";10 ,1;"1. a two digit number by a";11 ,4;"two digit number" 813 ,1;"2. a three digit number by a";14,4;"three digit number";17,5;"Choose 1 or 2" B'2910^ :q$"1"q$"2"1090B C-q$="1"1:;10 ,1;"" D-q$="2"1:;13 ,1;"" E 0 Ll=q$ V^:yc=20:yc1=1:pc=7:lbox:20,5;7;"Instructions?(Y/N)" `'2910^ :q$"y"q$"n"1120` jI$=q$:I$="n"a$="y" tI$="y":yc=10 :yc1=3:xc=1:pc=5:lbox:10 ,2;"This is an example of how to";12 ,1;"carry out LONG MULTIPLICATION.":lcurs ~u=0:v=0 Pb(4)=(*(87W+801!*(L=2)))+13 +98b*(L=2) I=13 b(I)=(*9 )+1 I AL=110 *b(2)+b(1)>b(4)1160 7L=2b(3)>b(4)/100d1160   n=0 $0,0;"Multiply:- " ,2,11 +n+(L=1);b(4) y3,9 +n+(L=1);"X";3,12 +n;b(2);b(1):L=23,11 +n;b(3) 4,10 +n;"____" Pa=b(4)*(b(1)+10 *b(2)+100d*b(3)*(L=2))  a$="y"1680  75K  i=1 ( 2660d 2 I=I+1 <#I<3+(L=2)1320( F'8+(L=2),15+n;"Add" P7+(L=2),10 +n;"____";7+(L=2),10 +n-(a>9999');"_";7+(L=2),10 +n-2*(a>99999CO);"_";7+(L=2),10 +n-3*(a>999999t#);"_" Za8+(L=2),11 +n-(a>999)-(a>9999')-(a>99999CO)-(a>999999t#);a d'11 ,7+n;" = Correct Ans " nI$"y"1430 xI$=" " lcurs :a$="y":1160 Q15,1;"So far you have ";:1:" ";u;" ";:0:" correct" I17,13 ;"and ";:1:" ";v;" ";:0:" incorrect."  20,7;"More?(Y/N)" =""1460 !a$=:a$"y"a$"n"1460 b$="h"d$=" "  2250 )i=(*4)+4:i:i:9 : a$"n"1160 (2,6;"*** CERTIFICATE ***" 5,8;"Name: ";N$ '7,5;"Program: Long Mult"  9 ,5;"Correct: ";u "#11 ,3;"Incorrect: ";v ,u+v=01600@ 6713 ,2;"Percentage: ";(100d*u/(u+v)) @50,0;"" J615,0;"" Ti=114 ^ i,0;"";i,31;"" hi r |lcurs :yc=10 :xc=2:yc1=5:pc=4:lbox:10 ,4;"1.To Return to main menu";12 ,4;"2.To finish" +14,8;"Press 1 or 2 " ="1"30 ="2"1675  1672 s18,0;" If you answer 'YES' to the following question this program will be erased from memory" &#1;" ARE YOU SURE?(Y/N)"  ="y" ="n"1670  1677 a$="" i=13+(L=2) z$="" @4+i+(i=4(L=1i=3)),0;"Line ";i mi=4(L=1i=3)7+(L=2),7;"_______";8+(L=2),15;"ADD" C12 ,0;"KEY in line ";i;" starting at right hand side" 515,0;" PRESS ENTER at end of line" k=16 =""1770 b$= b$=13 1870N -b$=12 .2~L,20:2130R b$<"0"b$>"9"1770 &n4+i+(i=4(L=1i=3)),14-k;b$:b$<58:Ưb$>47/.2~L,b$-30 0 z$=z$+b$ : 75K Dk Nz$=""z$(̱z$)=""1710 Xi bb$=" " lp$=a vb$=b$(1̱p$) i=p$1-1 b$(p$-i+1)=p$(i) i  2830 z$=b$2070 621,0;"Bad luck,check with the computer" ).5,-10 :1.5@,-20  100d  v=v+1 d$="-"  t=t-1 9 ,15;" "  n=10  2830 :b$="h"1240  2190 '13 ,0;"*** WELL DONE ***"  Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 * u=u+1 4d$="+" > t=t+1 H 1390n Rk=k-1+(k=1) \%k>1z$=z$(1k-1) fk=1z$="" p=4+i+(i=4(L=1i=3)),14-k;" " z 75K  1770 Gq=10 *b(2)+b(1):L=2q=q+100d*b(3) *y$=""::"MULTIPLY ";b(4);" by ";q (j=z$1-1:y$=y$+z$(j):j "Your answer (wrong) ";y$ "The correct answer is ";a 4::"________________________________":1240 I0:7:7:0::1:"BOWLING ALLEY":0 G4,0;"Knock down all";6,0;"five pins to win" t<0t=0 2:x=2 y=22262  2530 y  x=4 y=23252 $ 2530 .y 8s0:172,145:-30,-145,-/8:225,145:30,-145,/8 B!1:21,24;"" Lx=206-1 V)x,24;"";x+1,24;" " `,13 -(x/2-(2*(t=0))) jx=10 t=0 tx ~2:x=1t 2450 +10 *x:x 502: 04,23;" ";5,22;"": 04,25;" ";5,25;"": 02,26;" ";3,26;"": 02,22;" ";3,21;"": N1:0:2,22;"STRIKE":0:3,24;" " Έ1:y=15:x=820:1:x,22;"STRIKE":0:x-1,22;" ":x:y:2550  x,y;"";x+1,y;"":  t=0 a1,6,3,9 ,2,6,1,7,3,9 ,2,6 b1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 ( 2560 2i=132 <le:pi Fle/7,pi Pi Z di+4,0;"Line ";i nL16,0;"WE MULTIPLY ";b(4);" BY ";16,20;b(i) x#i=216,21;"0" .L=2i=316,21;"00" k=17 3,14-i+n;" " 15 3,14-i+n;b(i) 15 k i128706 '18,0;"and enter line ";i l(i)=b(4)*b(i) +i=2l(2)=l(2)*10 6L=2i=3l(3)=l(3)*100d v4+i,n+12 -(l(i)>99c)-(l(i)>999)-(l(i)>9999')-(l(i)>99999CO)-(l(i)>999999t#);l(i) lcurs k=2112 -1 /k,0;" " "k , 6V17,0;"Put 0";17,4+(i=3);"0 under the line as shown." @U6+(i=3),n+13 ;"0";6+(i=3),n+13 -(i=3);"0" J 100d T 2760 ^""2910^ h =""2920h rq$= | @LIBRARY ROUTINES |>lbox=8070:lframe=8065:j$(32 ):8091 Zpc=6:lframe=0:yc=1:xc=1:yc1=20:lframepc::8 mc=(8*xc-9 )(xc>1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:nc=23678~\-(yc1)-(yc1+2)*8:0,(nc+nc)/2-23678~\:2*mc-255,0:0,16+8*yc1-(yc+yc120) _lframez=yc-1yc+yc1:z,xc-1;1;pc;j$(32 -2*(xc-1)):z lframe=8065: lnm=8110:8141 "title:n$="":n$(len):z=1 &z1=(n(".")ƨn(" ")ƨn("-")):yc,xc+z-1;1;"L"z1;"C"z1:0:i$=:((i$>"z")(i$<"A")((i$>"Z")(i$<"a")))((i$=" "ƨn("-")ƨn(" "))((i$=".")ƨn(".")ƨn("-")ƨn(" "))((i$="-")ƨn(i$)ƨn(".")ƨn(" "))((i$=12 )(i$=13 ))(z>i$-11 ))8115 beep=.01z# =*236099\:i$>13 n$(z)=(i$-32 *(z1i$>"Z")):yc,xc+z-1;n$(z):beep,34.4 :z=z+1:z79950& &oldb=(23624H\/8):d=1dr:23750\,6:1:"m";d;p$:23750\,1:6:*"m";d;p$:23750\,2:5:*"m";d;p$:d:oldb: ' "":"" boframnycur itl!taratceeet+c>n Tluvn aTP  I Z00000P868725B527868D-q{Y00000An L  Qn# K usr X (<~~<<<<<~~~~~<88||>>????0033 3300?? 33333333|BB|@@?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~{file .& -e. 9898& Kn$()=n$(z1):n(i$)h)=(n$(z-(z-1))i$)z1:j$(32 )  0::0:8000@ -23675{\,88X:23676|\,255 !9 :8:start=0  {startyc=12 :xc=6:yc1=1:pc=5:lbox:yc,xc;"Same person?":lyn:start=qy:30+40(*qy ::yc=12 :xc=4:pc=2:yc1=3:lbox (4len=15:yc,xc;"Please ENTER your name"; 2yc=yc+2:lnm <start=1 &4:6:pc=4:lframe -ex=0:t=0:u=0:v=0  wr=0 x(4):y(2) ?ffff=63308L:0,0;1;6;,,,,,,:pc=2:yc=8:xc=16-(n$()+7)/2:yc1=-1:2;6;yc-1,xc-1;"Hello, ";;n$():yc=12 :xc=3:yc1=3:pc=6:lbox:yc,xc;"Do you want instructions?";yc+2,12 ;"(Y/N)" $lyn 8i$="yn"(qn+1) B 2380L V:d4=(*9000(#)+1000:d2=(*90Z)+10 `d49 4+3*i,k-2;"" #4+3*i,k-1;""  rem=m+take i$="y"2460 2490 :wr=0 U20,0;"and this leaves " i$="y"1620T "?20,16;"?";5+3*i,k-2;" ? " ,I7000X:5+3*i,k-2+(q$<2)+(q$<3);q$ 6q$=rem1620T @$2410j :wr=31620T J.5+3*i,k+3;" ":1550 T20,16;rem ^Bk05+3*i,k-1+(rem<10 );ݼwr;rem; h)21,0;" " r.k=05+i*3,k+3;rem; |:rem=0i<35+i*3,k+1;" "; i$="y"2460 2490 :wr=0 520,0;" " vi218,0;" ";19,0;" I'LL BRING DOWN NEXT FIGURE ":40(:40( Bi27100:5+i*3,k+1;x(3-i) i$="y" i32460 519,0;" " $i=i+1:i31190 18,0;" " 517,10 ;" The answer is: ";(d4/d2) 719,14;" Remainder: ";d4-d2*(d4/d2)  i$="y"i$="":lcr:1090B 0t=t+ind:u=u+(ind=1):v=v+(ind=-1) ind=11860D :"DIVIDE ";d4;" by ";d2 $"The correct answer is: ";(d4/d2) &"Remainder: ";d4-d2*(d4/d2) 0(::"________________________________" : 1880X D11:15,0;"WELL DONE":0 NZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 X2lcr::9 ,0;"You have ";u;" correct" b)11 ,5;"and ";v;" incorrect" l"15,18;"More? (Y/N)" vlyn  2140\ qn1960  1090B 7:7:0: .2,6;"***  CERTIFICATE  ***" 5,8;"NAME : ";n$ 07,5;"PROGRAM : ""Long Division""" !9 ,5;"CORRECT : ";u $11 ,3;"INCORRECT : ";v u+v=02050 813 ,2;"PERCENTAGE : ";(100d*u/(u+v)) 50,0;""  614,0;"" i=113  )i,0;"";14-i,31;"" *i 4 >lcr:85004! HB1:2,6;"***";2,24;"***":0 R \45:5:0::GRAPHICS SEQUENCE fB1,1;"GET THE ROCKET";3,1;"TO THE MOON" p=7,1;"3 correct";9 ,1;"answers win" zz=031 21,z;"" t<0t=0 z 15,26;"";16,26;"";17,24;"";18,24;" ";19,24;"";20,24;"" 1:0,25;"";1,24;"";2,24;"MOON";3,24;"";4,25;"" z=143-1 0:z,26;"";z+1,26;"";z+2,26;"";z+3,26;"";z+4,26;"";z+5,25;"" n6:z+6,25;"";z+6,27;"":2:6:z+6,26;"":5 0z<146:z+7,25;" " &z<13 z+8,26;" " 7t<3t=4-((z-1)/2)502: (21-(t*3)) z '1:2,24;"OUCH"  t=0 z=140( $,.01z# =,z-10 :.01z# =,z+10 .z 8 100d B Lz=(*4)+4 Vz:z:9 :zzz=z: ` jwr=wr+1:ind=-1 t3wr319,0;" HARD LUCK ": ~W0,0:3,0:20,0;" NO, try again, ";n$();"" <80P:80P:0,0;:3,0;""  )lcr:21,19;" " 720,0;" ": Cwr=3200:200:19,0;" "  X$q$:q$=""űq$>47000X b3z=1̱q$:q$(z)<"0"q$(z)>"9"z=q$+1 lz:z=q$+27000X v z=13*i:5+z,k+1;zzz-4+(zzz=7)+(zzz=4)*7;x(3-i);5+z-1,k+1;" "z>1:7110:z: Io=13:.1}L,36$+6*i-6*z-3*o:o:  -236066\,0:236077\,60<: *0236066\,165:236077\,242: @LIBRARY ROUTINES |>lbox=8070:lframe=8065:j$(32 ):8091 Nlframe=0:yc=1:xc=1:yc1=20:lframepc::8 mc=(8*xc-9 )(xc>1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:nc=23678~\-(yc1)-(yc1+2)*8:0,(nc+nc)/2-23678~\:2*mc-255,0:0,16+8*yc1-(yc+yc120) _lframez=yc-1yc+yc1:z,xc-1;1;pc;j$(32 -2*(xc-1)):z lframe=8065: lnm=8110:8141 n$="":n$(len):z=1 0,0:255,0:0,175:-255,0:0,-175:c=14:c-1,0;" ":c:0,175-(4*8):255,0:ffff=63308L &z1=(n(".")ƨn(" ")ƨn("-")):yc,xc+z-1;1;"L"z1;"C"z1:0:i$=:((i$>"z")(i$<"A")((i$>"Z")(i$<"a")))((i$=" "ƨn("-")ƨn(" "))((i$=".")ƨn(".")ƨn("-")ƨn(" "))((i$="-")ƨn(i$)ƨn(".")ƨn(" "))((i$=12 )(i$=13 ))(z>i$-11 ))8115 beep=.01z# =*236099\:i$>13 n$(z)=(i$-32 *(z1i$>"Z")):yc,xc+z-1;n$(z):beep,34.4 :z=z+1:z79950&:p$()=("~usr"+p$)(10 ) &p1=65535-p0:oldb=(23624H\/8):d=1dr:23750\,6:1:"m";d;p$:"m";d;p$():23750\,1:6:*"m";d;p$9970&:*"m";d;p$()p0+1,p1:23750\,2:5:*"m";d;p$:*"m";d;p$():d:23750\,0:oldb: &*"m";1;p$():3 ' "":"" `boframnyc tarc/effeetuv z nd Pe@mtkimeakq,T2Q3333# G I  usr ` ʴ>>!X@``````<<~~~|<<>>??0033 3300?? 33333333BBBBB<