ZXTape! 2vStudy Maths 2 - Side BScisoft1983English EducationalNoneOriginal&TZXed by Andrew Barker For Steve Brown0 PercentagePERCENTAGE6 6 8 20:0::"":0,0;"":"" PE @Me m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lml|~|<~B<<~@<B<B@BB@bBB@@BBDbBB|B@|RB@|@BBBR@|@|@@J~N@@B~BJN@@DB@FBB@@BBDFB@~B<~BB<~~B<percentagew'yPERCENTAGES +23658j\,8:236099\,502 INSTRUCTIONS=7000X:yesno=8600!:clear=85004!:enter=9100#:title=9000(#:doquestion=2000:nextgo=3000 :box=8000@:grid=8100:fill=8200 :slow=8300l :input=8400 d'q(5):a(5):skill=1 n!score=0:oldscore=0 xtitle instructions q=15 doquestion q nextgo 1againoldscore=score:score=0:200 Y:5,0;"Do you want to start the"''"program again ? (press Y or N)" yesno:i$="Y" ''"O.K. then"''"goodbye ";n$:  do question C1:7:1::0,8;"** Percentages **" p2,0;:z$="question"+13 +13 +" *****"+13 +" * "+q+" *"+13 +" *****":slow 9skill=1percent=10 *(1+(*10 )) Mskill=2percent=10 *(1+(*9 ))+(5ƥ>.3) /skill=3percent=(1+*100d) -n=15:q(n)=percent2020  9n:q(q)=percent:colour=(4+*4):box:fill D17,0;"Type in your estimate"'"then press ENTER ."  input *@a(q)=no:clear:16,0;"Your estimate :- ";a(q);"%" 4,out=(q(q)-a(q)):score=score+20-out >'out=0z$="Perfect . Brilliant" H9out>0out5z$="Good estimate. Well done!" R6out>5out10 z$="Pretty good estimate." \2out>10 out15z$="Not a bad guess." f8out>15out20z$="That's a fair way out." p2out>20out30z$="Quite a way out." z3out>30z$="That's a pretty wild guess !!!" Na(q)>100dz$="100% is the whole square !"+13 +"that's too big !" iskill=1+(1(score30oldscore502))+(1(score60<oldscore70F)) 718,0;:slow:grid:n=160<:n :21,0;:z$="The answer was "+q(q)+"%":slow score<0score=0  enter: nextgo iagain=0:0:7:0::1,6;:z$="% PERCENTAGES %":v=32000} 65,0;:z$="Well done"+13 +n$:slow o8,0;"Your score is ";1;score;" out of 100";0;10 ,0;"That's ";score;"%" r15,0;"Do you want to try percentages again ? (press Y or N)":yesno:i$="Y"again=1  Wname and instructions X7:1,8;:z$="Percentages":v=32000} b<6,0;"Type in your name and"'"press ENTER" ln$:23658j\,8:10 ,0;"Hello there ";n$''"Do you want instructions on"'"how to play percentages?"'"Just press Y or N" vyesno:i$="Y"7100 T#1;1,1;"Press ENTER to start the game";:(enter+10 ): Q6:2:6::0,10 ;"Percentages";16,0; Ƽz$="In this game you are given"+13 +"a box made up of"+13 +"one hundred squares."+13 +13 +"Like this ....":slow:colour=1:box:n=1502:n:grid enter:clear ڶ16,0;:z$="Each of the squares is"+13 +"one PERCENT of the whole box."+13 +"So the whole box stands for"+13 +"ONE HUNDRED PERCENT or one whole":slow enter:clear 16,0;:z$="The computer will give you"+13 +"five questions."+13 +"In each question it will draw"+13 +"the box and shade in"+13 +"a part of it.":slow enter:clear 16,0;:z$="After the computer has shaded inthe box, you have to guess what"+13 +"percentage has been shaded ."+13 +"REMEMBER ONE HUNDRED PERCENT"+13 +"MEANS THE WHOLE BOX !":slow:  }enter:clear:16,0;"Do you want to see these rules again ? (press Y or N)":yesno:i$="Y"7100  ?draw box @un=-1101e102f:78N+n,568:0,102f:77M,579+n:102f,0:n: draw grid n=0100d10 :1;colour;78N+n,579:1;colour;0,100d:1;colour;78N,579+n:1;colour;100d,0:n: fillgrid percent Ja=10 *(percent/10 ):b=percent-a:colour=(4+*3) n=100d100d-a-1:1;colour;78N,579+n:1;colour;100d,0:n:b>0n=100d-a90Z-a-1:colour;78N,579+n:colour;10 *b,0:n  kslow print ln=1̱z$ vEz$(n)13 .01z# =,0:z$(n)+"_"+8;:8330 .04|# =,12 :" ";z$(n); 4:n:" ": input a no into i$ -i$:23658j\,8:i$=""8400 i1=0 n=1̱i$ -i$(n)"0"i$(n)"9"i1=1:8470! i$(n)=" "8470! !Li$(n)="."21,0;"No decimals . Please try again.":8400 ! B21,0;"Please try again ";:8400 !n:i18460 ! ! Ano=i$:21,0;" ";: !3clear bottom !4Jn=1621:n,0;" ";:n: ! yesno !""8600! !!i$=:i$"Y"i$"N"8610! ! #(5:0:5::5,9 ;:z$="PERCENTAGES":v=32000}:16,8;" Scisoft 1983":enter: # ENTER #:#1;1,4;"Press ENTER to continue"; #""9110# #13 9120# #"":.1}L,12 : '31999|:7:1:7::5,5;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": 'a"percentage"9998':"percentage"32000},200:"percentage""a",22*8 nstructionXesn!lea4!nte#itl(#oquestioextg o@riil lol npu kilcorldscorZ PERCENTAGESvypercentage}3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.CookepercentageX/ f~@|@@@>BB<DHpHDB@@@@@~BfZBBBBbRJFB"C")i$"G"2030 i$="G"givein=1: )"":from=i$-64@:i$;" to tower "; ""2050  7i$=:(i$<"A"i$>"C")i$12 i$"G"2060  i$="G"givein=1: Si$=12 20,11 ;" ";20,11 ;:2020  6to=i$-64@:i$:check:okinvalid:2000 * 3check its valid 4#ok=1:from=took=0: >@n=81-1:c(from,n)=8n:ok=0: Hfsize=c(from,n):fpos=n RXn=81-1:c(to,n)8tsize=c(to,n):tpos=n+1:2150f \ n:tsize=0:tpos=1 f)tsize"7"6050 .1}L,18:noofdiscs=i$:16,5;noofdiscs;" Discs":computergochange12=0:change23=0:noofdiscs/2=(noofdiscs/2)change23=1  enter: X[:5,0;"Do you want instructions ?"'"(Press Y or N)":yesno:i$="N" bT5:0:5::0,9 ;:z$="Instructions":v=32000}: l5,0;"In this ancient Chinese puzzle you start with a given number ofdiscs (between 2 and 7) on the left of three towers."''"The object of the game is to move all of the discs onto the right hand tower with the"'"largest at the bottom and the smallest at the top." v@enter::0,9 ;:z$="Instructions":v=32000}: 5,0;"You are not allowed to move a"'"larger disc on top of a smaller one and the computer will not"'"let you do this." 10 ,0;"The towers are labelled tower A tower B and tower C."'"To make a move just type in"'"which tower you want to move a disc from and which tower you"'"want to move it to."  enter: > ? set up @ec$(8,9 ):c(3,8):n=18:m=13:c(m,n)=8:m:n Jc$(1)=" " Tc$(2)=" " ^c$(3)=" " hc$(4)="" rc$(5)="" |c$(6)="" c$(7)="" c$(8)=" " >finished=0:givein=0:.1}L,32 :enter: set screen 7:1:7::z$="Towers of Hanoi":0,8;:v=32000}:14,1;"";15,6;"A";16;"B";26;"C" zn=18:m=13:14-n,10 *m-4;"":m:n:5,6;" " \n=1noofdiscs:13 -n,2;2;c$(8-n):c(1,n)=8-n:n  &n=18:m=13:c(m,n);" ";:m::n #' #(|2:7:2::5,8;:Z$="Towers of Hanoi":v=32000}:16,9 ;" Scisoft 1983": #;#1;1,4;"Press ENTER to continue";: #""9110# #13 9120# #.1}L,12 :"": # yesno #""9200# #!i$=:i$"Y"i$"N"9210# $ $S invalid $Tf#1;0,0;" INVALID MOVE PLEASE TRY AGAIN " $^.5,0:5: '31999|:7:1:0:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": 'R"hanoi"9998':"hanoi"32000},200:"hanoi""a",22*8 ommenhec4nvaliT$esn#nte#itl(#ntrXetnoofdiscpetu@etscreeourmovomputermov omovZTowers of HanoivM } @@inisheiveihanoi }ԀW3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookehanoi XԀ??UUUUUUUժժUUUBfZBBBBbRJFB