ZXTape! 0Created with Ramsoft MakeTZXNo. line 6 6+Q8 20:0::"":0,0;"":"" LOGO @Nm6lmm6mmm6lmm6mmm 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`lmlB@@b8@x8@88x<RD@0DD@D<0DDJD@Dx@D.5n>0)) %x$(x,yP)=22+x+y "23675",ç:"23676","125" (Ulevel="2":yesno="9750":enter="9700":dub="31526":big="31700":four="31000" 2 :"9800" d"3100":"9100" x"1e3*game":"100" (:"7000":score=ç:q=̺:10 0,24;"Question";1,24;" ";q;" ";1,0;"Level ";level:no2=s(level-1)*r():answer=s(2)*r():sign2=s(level-3):no1=answer-sign2*no2:(no1>9 )(no1<0level<3)1005 7"":"15","10";:mtox=no1:no=no1:"9300":"8000" qz$=("+"sign2=1)+("-"sign2=-1):"15","13";:v=big:"15","16";:mtox=answer:no=no2:"9300" z$="=":v=big c"20",;"Type in your guess > ";:"9600":guess=no:"15","21";:no=answer:"9300":"8000" guess=answerscore=score+:#1;ç,ç;" RIGHT !!!! Well Done . ":n=ç̰"24"Ͱ"2":װ".04",n:n $guessanswer#1;ç,ç;" No . Wrong ";answer;" is the right answer ";(" "answerç):װ"2","-12" .5n=̰"400":n:"":enter:qscore>)(level<"4"score<"2")"14",ç;"Do you want to try some ";("easier"score<"2");("harder"score>"1")'"questions ? Press Y or N":yesno:yeslevel=level+(score>"1")-(score<"2") Lenter:"1000" Ђmx=r():bx=-r():7000X:score=ç:fo=:m("2"):m()=(*+level):m("2")=1-(2ƥ>.73333)*(*+level) C"":"15",ç;"Type in your move ..."'"press + or - and a number" ڈ"18",;"Move > ";"18","8";:"9600":"15",ç;" ":mtox=mx+no 1mtox>"9"mtox<"-9"mtox="10*mtox":dead= =store=bx+fo*m(moveno+):store>"9"fo="-1*fo":"2030" :score=score+1:btox=store:moveno=moveno:"8000" bx=mx"9200":"8970":"19",ç;" You caught the ball in ";score;31;" "'" move";("s"score>1);". Well done";31;" ":enter: 4dead"2005" >q"8960":"9200":"19",ç;" You just fell of the edge of the world... ":enter: (:ç,"9";:z$="Instructions":v=dub ,ç;"This program contains two games based on a number line."''"In GAME 1 the computer will giveyou three sums using + and - numbers and show them on the number line."'"You must type in the right answer and the computer will show it on the number line." ̔''"In GAME 2 you control the girl on the number line and you must try and catch the red ball by moving left and right using + and - numbers." enter: "23693","56":"7"::ç,"9";:z$="Number Line":v=dub:"5",ç;"Press";"7","2";"1 ... for GAME 1";"10","2";"2 ... for GAME 2";"13","2";"H ... for HELP / INSTRUCTIONS" &%z$=:z$"1"z$"2"z$"h""3110" 0z$="h""3e3":3100 :7game=z$:"18","2";"Game ";game;" chosen":enter: XG"23693","56":"7"::ç,"10";:z$="NUMBER LINE":v=dub:"9000" b7"9030":ç,ç;"Game ";game:game="2""9040" l @"8900":game="2""8930" J]mmov=2*(mtox-mx):moves=mmov:game="2"bmov="2"*(btox-bx):bmov>mmovmoves=bmov T n=moves ^mmovn"8910" hgame="2"bmovn"8940" rn:game="2""8950" w "8920": "ĝmdrn=(mtox-mx):m$=""+""("2"+mdrn+(girl)):m=̰"2":z$=x$(my,"2"*mx+"21")+""+x$(my-,"2"*mx+"20")+""+m$+"":v=four:my=my-:m: "Amx=mx+mdrn/"2":z$=x$(my,"2"*mx+"20")+""+m$+"":v=four: "؞mdrn=ç:m$=""+""("2"+mdrn+(girl)):m=̰"2":z$=x$(my,"2"*mx+"21")+""+x$(my+,"2"*mx+"20")+""+m$+"":v=four:my=my+:װ".1",m:m: "xbdrn=(btox-bx):b$="":z$=x$(by,"2"*bx+"21")+""+x$(by-"1","2"*bx+"20")+""+b$+"":v=four:by=by-"1": "Abx=bx+bdrn/"2":z$=x$(by,"2"*bx+"20")+""+b$+"":v=four: "`bdrn=ç:z$=x$(by,"2"*bx+"21")+""+x$(by+,"2"*bx+"20")+""+b$+"":v=four:by=by+: #mdrn=ç:m$=""+""("2"+mdrn+(girl)):m="2"̰"10":z$=x$(my,"2"*mx+"21")+""+x$(my+,"2"*mx+"20")+""+m$+"":v=four:my=my+:װ".1",m:m: # bdrn=ç:by=by+:m=̰"8":z$=""+x$(by,"2"*bx+"21")+""+x$(by+,"2"*bx+"21")+"":v=four:by=by+:װ".2","20-by":m: #(["23676","125":z$=x$("8","2")+"":v=four #2Iz$=x$("10","2")+"":v=four: #FCz$=x$(my,"2"*mx+"21")+""+""("2"+(girl)):v=four: #P-z$=x$(by,"2"*bx+"21")+"":v=four: #Fmoveno=:by="7":my="7":mx=ç:bx=ç:girl=:btox=bx:dead=ç #<fo=:m("2"):m()=(*+level):m("2")=(*+level) # #Dn="15"̰"20":n,0;" ";:n: $Tno<ç"";:no=no $^z$=no:v=big:޼;" ";: % sign= %"""9605" %s$=:s$"0"s$"9""9660" %s$="""9610" %/s$"+"s$"-"s$"k"s$"j""9680":"9610" %Tsign=((s$="+"s$="k"))+("-1"(s$="-"s$="j")):("+"sign=)+("-"sign="-1"); %"""9645" %s$=:s$="""9650" %&s$=°"12"°"8"+" "+°"8";:"9600" %!s$<"0"s$>"9""9690":"9650" %no=s$*sign:no;: %P#1;ç,ç;"Please type in a + or - sign and the a number":װ".2",ç: %7#1;ç,ç;"Please type in a number":װ".2",ç: %1#1;ç,"4";"Press ENTER to continue" %"""9710" %°"13""9720" &װ".1","6":"": &"""9750" & &yes=ç:z$=:z$"y"z$"n""9760" &*Cyes=(z$="y"):װ".1","12*yes":" ";("Yes"yes)+("No"yes): &H)"23676","126":"23693","23":"2": &RP"5","10";:z$="NUMBER LINE":v=dub:"16","9";" ltd 1984":enter: 'h"30999":"23693","57":"7"::"5","5";"STILL LOADING";7,5;"PLEASE WAIT":"": '7:"numberline"ʰ"9998":"numberline""31000","2768" NUMBERLINE y5 $z֐*{\o&))):\???OG:\'''8o???g@yo|gOx( 9;=~^(/w#~^(/w+ y :\G:\o&)))))x???o|gX:\Oqx(#q:\(2\>2\:\ {<2\*K\~Z`  #~( #^#V#:\2\!\:\ >2\yP#N#F#x~ y{#~2\ #~'W'2\ { y{ y{#~W:\2\ { y{#~'''W:\ǂ2\ { y{# ~{{ y{# ~{{ y{# ~{{y# xHzyP:\G>!2{:\G>2{#N#F#x~W{# x o&)))<:{O:{G y >2{xg'''''o@w$< |*K\~Z`  #~( #^#V#{P:\G>!2|:\G>2|#N#F#x~;|# x o&)))<:|O:|G y 8>2|xg'''''o@!O!)o)oDMp#q+$<pp` pppp pp ppppxp00(p P00 p PP``p( PH00(ppp`` pppP``phppHpppp!m l` @@@@ UUUU@@@@@~BfZBBBBbRJFB0):y=y+(z$="8"y0):z$"5"z$"8"1000 V z$="r"2000:1000 `,z$="f"flip=flip:3000 :1000 j,z$="n"21004:3100 :1000 tz$="z"#1;7;0;0,0;"Are you sure you want to clear the screen ? press Y or N ";:yesno:state:i$="y"n=020:n,0;" ";:n:1000 ~,z$="c"2200:3100 :1010 z$"p"1010 vn=04:m=04:a$(n+1,m+1)" "x+n,y+m;colour;9 ;a$(n+1,m+1) m:n:1010 /turn=turn+1:turn=4turn=0 3000 : 44shape=shape+1:shape=10 shape=1 >shape3flip=0 H3000 : change colour 7colour=colour+1:colour=7colour=1  set up shape 9000(#+(20*(shape-1))+(turn)+(10 flipshape>3):n=1mx:x+n-1,y;8;9 ;b$():n:mx,my:n=15:a$(n):n:maxx=21-mx:maxy=32 -my x>maxxx=maxx y>maxyy=maxy ox=x:oy=y: bottom screen #1;0,0;7;0;" Shape ";shape;" Colour ";colour;1;"";1,0;0;0;" Controls 5-8 P N R F C Z or S": @'7:0:7:8700! J\3,0;"This program will help you"'"make tesselation patterns on"'"the screen." Tv'"A tesselation pattern is one where all the shapes fit"'"together to cover a piece of"'"paper or the TV screen." ^'"To design a tesselation pattern you can move a shape around the screen using the arrow keys 5 6 7 and 8."''"When you have put the shape where you want it you can paint it in using the P key." h 8800`"  8700! 3,0;"You can choose from 12 shapes.. To go to the next shape just press the N key, to rotate the shape press R and to flip the shape over press F."''"You can also change the paint colour by pressing the C key." u''"If you want to go back to the instructions press S for STOP and if you want to clear the screen press Z." 8800`":8700! '''''"Remember....."''"The controls are..."''"Arrowed keys to move the shape"'"N ... to go to next shape"'"P ... Paint in the shape"'"R ... Rotate the shape"'"F ... Flip the shape over"'"C ... Change colour"'"Z ... Clear screen"'"S ... Stop/instructions" 8800`":: !7:0,9 ;:z$="Tesselate":v=32000}: "`9#1;1,4;"Press ENTER to continue" "j""8810j" "t13 8820t" "~"":.1}L,12 : ""The controls are"'"Arrowed keys to move the shape"'"N ... to go to next shape"'"P ... Paint in the shape"'"R ... Rotate the shape"'"F ... Flip the shape over"'"C ... Change colour"'"Z ... Clear screen"'"S ... Start again" "Ć3:7:3:1::5,10 ;:z$="Tesselations":v=32000}:16,9 ;" Scisoft ltd. 1984" "8800`":0: #'ꏏ #(%1,5,"","","","","" #)%5,1,"","","","","" #*%1,5,"","","","","" #+%5,1,"","","","","" #2%3,3,"","","","","" #<%3,3,"","","","","" #='3,3,""," "," ","","" #>)3,3," ",""," ","","" #?'3,3," "," ","","","" #P'3,3," ",""," ","","" #Q'3,3," ",""," ","","" #R'3,3," ",""," ","","" #S'3,3," ",""," ","","" #d%2,4,"","","","","" #e(4,2,""," "," "," ","" #f(2,4," ","","","","" #g%4,2,"","","","","" #n%2,4,"","","","","" #o%4,2,"","","","","" #p(2,4,""," ","","","" #q(4,2," "," "," ","","" #x&2,4,""," ","","","" #y(4,2," ",""," "," ","" #z'2,4," ","","","","" #{%4,2,"","","","","" #&2,4," ","","","","" #%4,2,"","","","","" #'2,4,""," ","","","" #(4,2," "," ",""," ","" #&2,3,""," ","","","" #&3,2,""," ","","","" #&2,3," ","","","","" #%3,2,"","","","","" #&2,3," ","","","","" #%3,2,"","","","","" #&2,3,""," ","","","" #&3,2,""," ","","","" #%2,3,"","","","","" #&3,2,"",""," ","","" #&2,3," ","","","","" #%3,2,"","","","","" #%2,3,"","","","","" #%3,2,"","","","","" #&2,3,""," ","","","" #&3,2," ","","","","" #'3,3," ","","","","" #'3,3,""," "," ","","" #'3,3," ","","","","" #'3,3,""," "," ","","" #'3,3,"",""," ","","" #'3,3," "," ","","","" #'3,3,"",""," ","","" #'3,3," "," ","","","" #&3,3," ","","","","" #'3,3,""," "," ","","" #(3,3," ",""," ","","" #'3,3," ",""," ","","" #(3,3," ",""," ","","" #'3,3," "," ","","","" #&3,3,"",""," ","","" #'3,3," ",""," ","","" #_"1 2 3 4 5 6 7 8 9 "," " %6:#1;0,0;7;0;" ";:3100 : &H!i$=:i$"y"i$"n"9800H& &R &=s$(2,44,):9200#:s$(1),s$(2): &ls$(1)=s$(1,2)+s$(1,1):s$(2)=s$(2,2)+s$(2,1) 'ja$(5,5):n=018:9000(#+20*n:n:o=15:a$(o):a$(o):o:n '31999|:7:1:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": '`:"tesselate"9998':"tesselate"32000},200:"tesselate""a",22*8 BTESSELATE }^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.CookeTESLATE XժժժիիիUUUիիիժժժUUUUժժժUUUժժժUUUUժժժժUUUUUUUUUUիիիժUUUU