ZXTape! 0Created with Ramsoft MakeTZXGRAPH 6 6fv8 20:0::"":0,0;"":"" LOGO @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<BBBBB@BBDbB@BBB~@BBBR@N|~|B@B~BJNBDB@B@BBDFBB<@graph 'e whats that graph 8"23658",ç:yesno="9300":enter="9200":dub="32E3" "9e3" (level=2 2r:l(8):n=18:l(n):n:6,15,24,33!,39',44,,502,58: Z"7e3" d score=ç nq():q=̺ x"1e3" q "6e3":yes"100" *:ç,"9";:z$="Name the Graph":v=dub P"6",ç;"Do you want to try another game?";"8","8";"Press Y or N " yesno:yes"100" p"12",ç;"Do you want to RUN the program"''"again from the start ?";"16","8";"Press Y or N":yesno yes L''ݼ;"Program Stopped . Press R and enter to RUN again ": U1:7:1::0,9 ;:z$="Name The Graph":v=32000} z8000@:1,0;1;7;"";2,1;q;1,28;"";2,29;score ;a(3):right=(1+*3):n=13 Ja(n)=(*l(level)+1):m=13:a(n)=a(m)nm1020 Im:right=na(n)=q(1)a(n)=q(2)a(n)=q(3)1020 n:q(q)=a(right) 9m=13:9000(#:n=1a(m):q$,p$:n c19,11 *m-7;1;7;(64@+m);20,11 *m-9 ;"y=";p$ $Dm=rightpos=q$(1):g=q$(23):g$=q$(4) .m 8 8100 Bj#1;0,0;" Which is the right equation ? Press A B or C " Lz$=:z$=""1100L V4z$"a"z$"b"z$"c".2~L,0:1100L `guess=z$-96` jguess=right1200 t"":#1;0,0;2;" Wrong !! ":n=5020-1:.03{u\,n:n ~e#1;1,0;2;1;" ";(64@+right);" Is the right answer ";  1300 score=score+1:"":#1;0,0;1;;" ";(64@+right);" is right !! Well done. ":n=0502:.04|# =,n:n 19,11 *right-11 ;1;6;0;" ";20,11 *right-11 ;" ":n=1400:n x "":enter  oshow score+harder/easier pE1:7:1::0,11 ;:z$="Score":v=dub zn5,1;"Out of three questions you";7,1;"managed ";1;score;0;" right." 9 ,2;("Well done"score=3)+("Good !!"score=2)+("Not too bad"score=1)+("Ooops. None right"score=0) yes=0:level>1score112 ,2;"Would you like to try some";14,2;"easier graphs ?";16,2;"Press Y or N ":yesno:18,4;("Yes"yes);("No"yes):yeslevel=level-1 level<8score212 ,2;"Would you like to try some";14,2;"harder graphs ?";16,2;"Press Y or N ":yesno:18,4;("Yes"yes);("No"yes):yeslevel=level+1  enter: X "7900" bP"8","2";"Would you like instructions ?";"10","9";"Press Y or N " lyesno:yes7100 v enter: ڰ"7":"7":ç:"7900" h"5",ç;"In this program the computer will draw the GRAPH of a Number Machine or Equation." ^"10",ç;"You try to choose which of threeequations written underneath fits the graph." M"15",ç;"After three goes the computer will tell you how well you did." enter:"5":"7900" Y"18",ç;"For example here is the graph for y=x .":g$="x":g="10":pos=ç:"8100"  "":enter  "7900" "5",ç;"For the graph you have just seenthe computer might have asked you to choose from the three equations..."'''"A y=2x+1 B y=x+6 C y=x"  ="18",ç;"So the right answer would be C.":enter:"7900" *''''" HOW TO WORK OUT THE EQUATION !!" 4M'"The straight line graphs all have the equation"''9 ;"y = mx + c" >"13";"^ ^"''"The m and the c stand for missing numbers.":enter:'"The m tells you how STEEP the graph is .This is called the GRADIENT." Ha'"The c tells you where the GRAPH cuts the y AXIS (the line x=0) and is called the CUT":enter R"7900":g$="2*x+1":'''"For example in the equation";13 ;"y= 2x+1"'"The GRADIENT will be 2 ."''"This means that the graph will go 2 steps up for each step"'"along." \''"The CUT will be 1."''"This means that the graph will go through the y axis at y=1"'"(or you can think of it as saying 'when x is 0 ,y is 1').":enter f"7900":"8100":"":"18",ç;"So for the equation y=2x+1 the GRADIENT is 2":n=̰"101":޼;"135","114":޼;"6",ç:޼;ç,"12":޼;8,17;"1";6,18;"2":n pU"20",ç;"And the CUT is 1 .":n=̰"101":"33","33":޼;"96","70":n:enter zx"7900":"5","2";"Do you want to see these"'" instructions again ?"''" Press Y or N":yesno:yes"7100"  *:ç,"9";:z$="Instructions":v=dub: @Bn=217:n,4;7;0;28;:n: ڰ"7":ç:"32","96":"191",ç:"128","32":ç,"127":n=-111/g:128+60<*n,95_:0,2:127,96`+60<*n:2,0:n d2,17;8;g;17,17;-g;10 ,7;-g;10 ,23;g;" x" ?#1;0,4;1;" Drawing Graph " Eon=0:x=-1.35,*g:step=g/8:end=-x:posx=0 9y=(60<*g$/g):y>64@on=0:82400 @on128+60<*x/g,96`+y:on=1:82400 &=128+60<*x/g-23677}\,96`+y-23678~\ 0x=x+step:xend8210 : #({6:0:6::5,9 ;:z$="Name The Graph":v=dub:16,9 ;" ltd 1984":enter: #1#1;ç,"4";"Press ENTER to continue" #""9210# $13 9220$ $"":.1}L,12 : $^""9310^$ $h!z$=:z$"y"z$"n"9320h$ $r#yes=(z$="y"):.1}L,12 : &I"0101","1","0102","2","0103","3","010-1","-1","010-2","-2","010-3","-3" &"010x","x","010x+1","x+1","010x+2","x+2","010x+3","x+3","010x+4","x+4","010x-1","x-1","010x-2","x-2","010x-3","x-3","010x-4","x-4" &"0102*x","2x","0102*x+1","2x+1","0102*x+2","2x+2","0102*x+3","2x+3","0102*x+4","2x+4","0102*x-1","2x-1","0102*x-2","2x-2","0102*x-3","2x-3","0102*x-4","2x-4" &"0103*x","3x","0103*x+1","3x+1","0103*x+2","3x+2","0103*x+3","3x+3","0103*x+4","3x+4","0103*x-1","3x-1","0103*x-2","3x-2","0103*x-3","3x-3","0103*x-4","3x-4" &o"010.5*x","x","010.5*x+1","x+1","010.5*x+2","x+2","010.5*x+3","x+3","010.5*x-1","x-1","010.5*x-2","x-2" &t"010.25*x","x","010.25*x+1","x+1","010.25x+2","x+2","010.25*x+3","x+3","010.25*x-1","x-1","010.25*x-2","x-2" &i"003x*x","x","005x*x+1","x+1","005x*x+2","x+2","005x*x+3","x+3","003x*x-1","x-1","003x*x-2","x-2" &%"002x*x*x","x","005x*x*x+1","x+1" &"105x^.5","" &"0101/x","1x","0102/x","2x" &"002x","x","002x","x" 'h"31999":"23693","57"::"5","5";ۼ;"STILL LOADING";"7","5";"LEAVE TAPE RUNNING":"":"": 'A:"graph"ʰ"9998":"graph""32e3","2e2":"graph""a","21*8" 'GRAFF }B3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookegraff X!G%Gp0@xp0pH(D((D|  (H/ r$$$D;魯%%%. @@@@O no-machine'` Mdub="31018":scroll="31610":noise="31700":cross="31009":zap="31800" enter="9800" 3"23676","126":"23658","8":level=:diff=ç ( "9900" dNڰ"6":"6"::"2","9";:z$="Number Machines":v=dub:"5",ç;"Press .." nG"8","5";"I ... for Instructions";"11","5";"P ... to Play Game" x$"21","8";"Press I or P" z$=:z$=""200 !z$"I"z$"P"z$"D"200 z$="P""1E3":"100" "7E3":"100" ,ڰ"5":ç:"5"::"8E3":"8100":"8200" n=13:0,10 *n-6;1;6;" ";(64@+n);" ";5;1,10 *n-9 ;" y=";:m=17:a$(n,m)"*"1;a$(n,m); m:1;" ";:n tries=0 ?13 ,0;1;" In Out " L>#1;0,0;"Type in your number or A,B or C " Q9700%:9600% Vguess2000 `ok#1;0,0;1;2;7;" Please type in a plus or minus whole number then ENTER ":n=1200:n:"":1100L eno>99c#1;0,0;2;7;" Please type in a One or Two digit number ":n=1200:.0001sQX,12 :n:"":1100L j{"":.1}L,12 :7,1;no;12 ,0;" ";7,27;" " t]n=120:8100:n:7,5;7;7;" "; ~)x=no:y=a$(right):7;7;y #n=120:8100:n |.1}L,0:.2~L,12 :21,8-(x<0);x;12 ;"";20-(y<0);y;:v=scroll !tries=tries+1:1100L "":guess=i$-64@ guess=right3000 T21,0;7;2;" Wrong !!!! ";:v=scroll #21,5;i$;" is wrong." +n=16:10 :v=scroll:n 17,0;"The right answer is";19,8;6;1;" ";(64@+right);" ";20,12 ;0;5;" y=";:n=17:a$(right,n)"*"a$(right,n);  "n:n=1200:n:enter 1diff=0level>1level=level-1  diff=0: +n=110 :v=scroll:5:n Q14,0;7;1;1;" RIGHT... WELL DONE " X16,0;"You found the equation"'"in ";tries;" move";("s"tries>1);"." Rdiff=diff+1:diff=3level<4diff=0:level=level+1 $n=060<:.01z# =,n:n enter: XK7:1:7::0,9 ;:Z$="Instructions":v=dub b5,0;"In this program the computer draw you a number machine and three different RULES or EQUATIONS." lX'"You have to say which of the three rules is the right one forthe number machine." v{'"You can type in any IN number from 99 to -99 and the computer will show what OUT number the number machine gives." 7enter::0,9 ;:z$="Instructions":v=dub _5,0;"When you are sure which EQUATIONfits the number machine type in A, B or C." 2'"The computer will tell you how well you did."  enter: @>1,0;1;" " A73,8;7;1;" NUMBER MACHINE " BC4,5;7;1;"  " CA5,5;7;1;"  " DA6,5;7;1;"  " E=7,5;7;7;" " FE8,5;7;1;"   " G?9 ,8;7;1;"   " H@10 ,8;7;1;"   " I811 ,8;7;1;" " J64@,80P:128,0:0,24:24,0:0,6:8,-3:1;0,18:-8,-3:0,22:-24,0:0,8:-128,0:0,-8:-24,0:0,-22:-8,3:1;0,-18:8,3:0,-6:24,0:0,-24 T3168,129:0,5:cog=2 ^ ^168,129:1;cog-2,5:cog=cog+1:cog=4cog=1 168,129:cog-2,5:m$=""(cog):n$=" - --"(3*cog-23*cog):8;8;5,15;m$;6,15;m$;m$;8,21;m$;m$;9 ,20;m$;4,15;n$ v=cross:v=noise  v=cross: a$(3,7) n=13 ;level=1a=((*3)+1):b=((*4)) &1level=2a=(*8):b=((*8)) +Elevel=3a=((*11 )-3):b=((*19)-9 ) 0Glevel=4a=((*20)-10 ):b=((*19)-10 ) 56s$=a+"*"+"x"+("+"Ƽb0)+("-"Ƽb=-1)+b ::a$(n)=s$:m=13:a$(n)=a$(m)mn8220 Dm N!n:right=(1+*3): %)ok=1:sign=1:guess=0 %i$=""ok=0: %.i$(1)=" "i$=i$(2):9610% %.i$(i$)=" "i$=i$(̱i$-1):9610% %fi$(1)="+"i$(1)="-"Ʊi$>1sign=1-(2i$(1)="-"):i$=i$(2) %n=1̱i$ %/(i$(n)<"0"i$(n)>"9")ok=0:9680% % n:ok %no=sign*i$: %$i$"A"i$"B"i$"C"ok=0: %guess=(i$)-64@: %3i$="":ix=1:#1;1,0;">"; %""9710% %z$=:z$=""9720% &#z$=13 .1}L,24: & z$=12 i$=""9710% &Yz$=12 ix=ix-1:#1;1,ix;" ";:i$=i$(ix-1):9710% & qz$" "z$""ix<20.01z# =,6:#1;1,ix;z$;"";:i$=i$+z$:ix=ix+1:9710% &4 9710% &H@#1;0,0;" Press ENTER to continue " &R""9810R& &\13 9820\& &f"":.1}L,12 : &4:0:1:4::5,9 ;:z$="Number Machines":v=dub:16,10 ;" 1983 ":enter:0:23676|\,125}: 'u"30999":ڰ"7":ټ:ç:ç:ç:"7"::"5","5";ۼ;"STILL LOADING";"7","5";"PLEASE WAIT":"":"23675",ç: '1:"no-machine"ʰ"9998":"code""31000","1600" code @yi By"zOzuzþzz`y*K\~Z`  #~( #^#V#-yP:\G>!2y:\G>2y#N#F#x~͑y# x o&)))<:yO:yG y >2yxg'''''o@w$<y"zOzuz!m{~F͘z}݆o=͘z}݆oN=!m{~F͘z}݆o<͘z}݆oN<!m{~F͘z}݆݆oF+<!m{~F͘z}݆oF#<!W>g8''o???g@> OT{ T{9{< T{({Y!Y !Z 68#>OT{ T{9{<  T{({X! X`!`Y 68# 6$# w$#yg. y(=@p  ! (:H\???FB˧F#C:H\???_W&.>YDDgQEDo:H\???_W&.>YDDgQEDo~A6l~~l6<$$<~BBBB~~< 0 < 0 << 0 <<~~<~~AA~ppdcRZ^VRիVjVj~""""ګ. @@@@<By P.W.Cooke factory '}n:p$(n,)=("Profit"nç)+("Loss"n<ç):"23658",ç:dub="32000":ent="8700":yn="8750":wai="8400"  "9900" P "8000" Zdrat="2":mon=:m("4","2"):bro=ç:sto=ç:cas="1e4":mca=cas:cap="400":wee=:inc="20" d&"8900":q="1"̰"4":"2e3":"3e3" n"4e3":bro"150" x>".94""6e3" q:cas>"20000""7e3" }"5e3":#;ç,ç;" Would you like to try another month ? Press Y or N";:yn:yeswee=:mon=mon+:"100" Q:''''"Do you want to RUN the program again ? Press Y or N":yn:yes ''"Stopped": p"7"::ټ:"23676","127":ç,"8";:z$="FACTORY REPORT":v=dub:,ç;"Month ";mon;,"26";"Week ";wee .'" Cash in hand `";cas'"" 1'" Cases of FIZZBEE in ";sto'" stock." 6'" Factory capacity ";cap'" (cases)" _oca=cas:for="(1+*5)":"9220":n=for:m$:n:sf1="1-.15*(for-1)":cas<"100""2040" "18",ç;"Do you wish to pay `100 for a survey of the market to see if sales are expected to be good this week ? Press Y or N" Jyn:"8800":yes"12",ç;">> Forecast ";m$;:cas=cas-"100":"8500" f"19",ç;"Cases of FIZZBEE cost you "'"`";inc;" each. How many do you"'"wish to make this month ?" "9800":mad=val:mad>cap#1;ç,ç;ۼ;" You do not have enough factory space to make that many cases. ";:wai:"2050"  sinc*mad>cas#1;ç,ç;ۼ;" You do not have enough money to make that many cases! Try again":wai:"2050" cas=cas-inc*mad:"8500":sto=sto+mad:"8800":"14",;"Cases made this week ";mad'" (at `";inc;" each)";"19",ç;"How much do you wish to charge for each case (in pounds) ?"  9"9800":pri=val:"17",;"Sale price per case `";pri *"8800":"19",ç;"How much do you wish to spend onadvertising ?":"9800":adv=val:adv>cas#;ç,ç;ۼ;" You do not have enough money to spend that much. Try again ";:wai:"2090" 4Fcas=cas-adv:"8500":"8800":"19",;"Advertising costs `";adv >.sf2=".1":adv>0sf2=sf2+".1"*(adv) Hent: >"4"::ç,"22";"Week ";wee;ç,"13";:z$="Sales":v=dub Ws(3):n=̺:s(n)="2000-((1000*pri)/(12+(4n2)+(8n3)))":s(n)çs(n)=ç n:st=s()+s("2")+s() M"29","131":ç,"-100":"220",ç:n="32"̰"132"Ͱ"4":"27",n:,ç:n B"5",ç;"500"'''"";"19","3";"mon tue wed thu fri sat sun" sol=ç:d=̰"7":s=(w(d)*sf1*sf2*st*(8+*6)*.0143zjJ):s>stos=sto:#;ç,ç;" **** SOLD OUT **** " &O"4","4*d";s:sol=sol+s:h=s/"5":w=2*d:i=:"8600":sto=sto-s:d wai:ent: ="7":ç::ç,"4";:z$="Profit and Loss Account":v=dub r="24":''"Cash in hand at start"'"of week";r;"`";oca'sol;" Cases of FIZZBEE"'"sold (at `";pri;" per case)"'"Gives income of ";r;"`";pri*sol'"--------------------------------" "Less Overheads"'"(wages & fuel)";r;"`";(cap/rat)'"Cost of ";mad;" cases"'"made at `";inc;" each";r;"`";mad*inc''"Advertising";r;"`";adv:p=pri*sol-(cap/rat)-adv-inc*mad:cas=cas+pri*sol-(cap/rat):cas<çcas=ç:bro= l"--------------------------------"'"You've made a ";p$(p);" of ";r;"`";p''"You now have";r;"`";cas ^bro#;ç,ç;ۼ;"You've just gone broke!!! bad luck. ";:wai 8m(wee,)=cas:m(wee,"2")=sto:wee=wee+1:ent: :"24";"Month ";mon;,"10";" = Cash (`)";"4","10";" = Stock (cases)";ç,"8";:z$="Monthly report":v=dub i"25","135":ç,"-104":"184",ç:ç,"104":n="32"̰"136"Ͱ"4":"24",n:,ç:"208",n:,ç:n "4",ç;"`100000";"5","27";"10000";"6","27";"cases";"19",ç;"Week 1 2 3 4"'" This month you made a"'" ";p$(cas-mca);" of `";(cas-mca):mca=cas Un=̰"4":o=̰"2":i="2*o":h="m(n,o)/(10^(4-o))":w="3*n+o-2":"8600":o:n P p,:r=*5:"6100+(100r>2)+(100r>3)" zent: ԓrat=".95*rat":''''"The cost of electricity has risen by 5% . This means your overheads have gone up to `";(cap/rat);" per week.": 8vr="(1+*5)":inc=inc+r:''''"The production cost for each case of Fizzbee has risen by"'"`";r;" to `";inc;".": r="(1+*2)":m$=("Fire"r=1)+("Flood"r=2):''''"A ";m$;" has damaged the"'"factory. You have lost all your stock.":sto=ç: X:5,0;"You have the opportunity of extending the factory at a cost of `20000 and increasing the number of Fizzbees you can make from ";cap;" to ";(cap*1.2);"." bd''"Do you want to spend `20000 on increasing the size of the"'"factory ? Press Y or N" l9yn:yescap=(cap*1.2):cas=cas-"20000":'"Yes" vent: @9"23693","57":"7"::ç,"9";:z$="Factory":v=dub J4"5",ç;"In this program you are in"'"control of a small factory"'"making cases of Fizzbee's."''"You must decide how many to"'"make each week ,what your"'"selling price will be and"'"whether to spend money on"'"advertising."''"The computer will work out"'"your sales and see if you"'"have made a profit." TS'"At the end of a month the"'"computer will give you a"'"progress report.":ent: װ".5","-6":n=̰"200":n: !4,"24";cas;"31";" ";: !m=ç̰"7":h="h-((h-104)h>104)":i;"m+16*w","32":i;ç,h:m:i;"12+16*w","32":i;ç,"h+4":"-8",ç:i;"-4","-4":i;"8",ç:i;"4","4": !1"":#;,"4";"Press ENTER to continue"; """"8710" "°"13""8720" "װ".1","12":"": "."""8750" "8z$=:z$"y"z$"n""8760" "B!yes=(z$="y"):װ".1","12*yes": "`'n="18"̰"21":n,ç;"31";" ";:n: ")"6":"23676","126":"23693","56": "2n=ç̰"21":n,ç;ڰ"(4+(n8))";31;" ":n "إm="5"̰"12":m,5;25;" ":m:n="6"̰"10"Ͱ"2":m="6"̰"24"Ͱ"2":n,m;"":m:n:"12","14";"";"4","18";"";ç,"12";:z$="Factory":v=dub "o"40","72":ç,"64":"168",ç:ç,"-64":"-168",ç:"42","24":"68","47":"196","24":"-68","47" "619,12 ;:z$="Month "+mon:v=dub:ent: ##".5",".5",".5",".6",".9","1",".2" $."Very Good","Good","Fair","Poor","Very Poor" %i$="":ix=:#;,ç;">"; %"""9710" %z$=:z$="""9720" &Bz$=13 #1;1,ix;" ";:.1}L,12 :"": & :.001wn,12 :z$=12 ix=19720% &Mz$=12 ix=ix-1:#1;1,ix;" ";:i$=i$(ix-1) & Rz$" "z$""ix<30i$=i$+z$:#1;1,ix;z$;"";:ix=ix+1 &* 9710% &H"":9700% &Ri$=""9800H& &\.i$(1)=" "i$=i$(2):9810R& &f.i$(i$)=" "i$=i$(̱i$-1):9810R& &pSpoint=0:n=1̱i$:(i$(n)<"0"i$(n)>"9")(i$(n)"."point)9880& &ui$(n)="."point=1 &zn:val=i$: &V#;,ç;ۼ;" Please type in a whole number. ":װ".4",ç:n=̰"200":n:"9800" '"23676","126":"23693","96":4::5,11 ;:z$="Factory":v=dub:"16","9";" ltd 1984":w(7):n=17:z$:w(n)=z$:n:ent:ç: 'v"31999":"23693","57"::"5","5";ۼ;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"23675",ç: '."factory"ʰ"9998":"factory""32000","768" FACTORY }CW3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.CookeUUUժժUUUڪQJJwDwAw|BB|@@. @@@@?@@?wDwwdvwuEeu?@