ZXTape! 0Created with Ramsoft MakeTZXEducate3 u- &:0:0:0:0 G9 ,4;1;1;5;"Volume level is correct" H11 ,4;1;5;1;"Introduction is loading" ( "Intro" Intro k$ "Screen" 5#1;1;"STOP THE TAPE AND PRESS ANY KEY" ""30 (=""40( 2/1:7:7::1:7 <>1,0;1;" Educate3 " F55,0;" On the cassette are:- " P57,0;" (1) Vocab " Z58,0;" (2) Target " d59 ,0;" (3) Simon " n610 ,0;" (4) Snake " x611 ,0;" (5) Maths Exam " V13 ,0;" PRESS THE NUMBER OF THE PROGRAM YOU WANT TO LOAD. " ""140 =""150 5a$=:a$"1"a$"2"a$"3"a$"4"a$"5"150 f13 ,0;" START THE TAPE ";1;" " .5,5 a$="1""Vocab" a$="2""Target" a$="3""Simon" a$="4""Snake" a$="5""Maths Exam" 150 A1Screen @e |ccc` |?'@$~xB<<~<$~c cc`c `~@ B$~@@@ÃG$$@$@DBBB@B$xD88cc`c `88DZ >B|DDD DD T@Tx0 x$GE@$$ @BB@~@D DDx8cc`c `D xDDcc`c `B| "@D8@|@ 8 c 888<@@8? >@B@?8D88x8x < x8D";x$:x$="y"2000 x$"n"193  '" VOCAB TESTER" 41,0;1;" ____________" j'" How many words have you got to learn (not >30) and they must not be longer than 15 letters long." ">";a !a>30a<1240  a$(a,15):b$(a,15) , 6'" VOCAB TESTER" @41,0;1;" ____________" B3,0; E"What language? >";f$ J n=1a T<6;"ENTER FOREIGN WORD>";s$:s$15a$(n)=s$ YVs$>15#1;" That word was too long ":200::340T ^H7;"ENTER ENGLISH EQUIVALENT>";t$:t$15b$(n)=t$ ct$>1510 ,0;"That word was too long":200:10 ,0;" ":350^ d/6;a$(n)(̱s$);7;"-";b$(n)(̱t$) hn rE:5,0;"Do you want to save the vocab ontape (y or n)?" s"Save Vocab?(y/n) >";x$ tx$="y"390 vx$"n"371s w 400 "VOCAB"a$() "TESTER"b$()  g(a) '" VOCAB TESTER"  c=0 n=110 7z=(*a)+1:a10 g(z)=1436 2g(z)=1:4,(32 -f$)/2;f$ .6,11 ;1;"Question ";n;"." "''" What is the English" #'" equivalent of ";6;a$(z)  ">";x$ 2x$=b$(z)(̱x$)b$(z)(x$+1)=" "600X ''" WRONG" \.2~L,5:.1}L,6:.3,-10 :.3,5:.2~L,1 '"The answer was ";b$(z)  100d Fv=321:v,0;" ":v n c9 1000  i5,0;" You failed your test.":10 ,5;1;"You got ";c;" out of 10." &515,0;"Do you want to try again? (y/n)" 0""5600 :=""570: D="y"400 N"n"5600 S 1100L X''12 ;" CORRECT!" b c=c+1 l5h=08:.1}L,(h*5)+20:h v 515 B:"You passed you test with flying colours!!!!" n=0120x q=(*10 )+10 w=(*10 )+5  w,q;ں(*7)+1;" " n $L17,0;"Have you any more vocab? If so type y. If not type n." .""1070. 8=""10808 B="y"200 LM:5,0;" Do you want to LOAD the next program (y/n)?" V.5,1:">";l$ `>l$="y":15,0;" START THE TAPE":"" jl$"n"1110V t:10 ,0;"Switch off to clear the memory. If you want to LOAD another program from this tape,type:- LOAD ""program name"" (ENTER) PRESS PLAY ON YOUR TAPE RECORDER" ~j21,0;7;2;1;1;"PROGRAM ABORTED":23659k\,0:1150~ V10 ,0;"Make sure the tape is positionedat the right place for the data." ""a$():""b$() 615,0;"How many words are in this data?" "Number of words>";a A15,0;"What is the name of the languagebeing used?" "Language >";f$  400 Eaqw er Fl SqwTercz lXTester XH "< "<  ~@|@@~"""""""< (""""""""< <@@@<(""""""""<"<"< @|BB|DB<@<B<BBBBB<i Target n/w pA7:2:0:0:0:0:2: 23658j\,8 $"________________________________" '" WORD-TARGET" "  Simon Software 1983" "" Written on a 16K ZX Spectrum" (" by M Philpott." -$"________________________________" 2d'" In this educational game you must make as many words as possible from a block of words." 7$"________________________________" <'" A--B--C" F" |\ | /|" P" D--E--F" Z" |/ | \|" d" G--H--I" i$"________________________________" nd" You must use the centre letter of the grid every time. If you manage to find over 50 words you" s.4L,10 x'" Press ENTER to continue.";z$  $"________________________________" ''"are a genius!! There will be a least 2 vowels every time. NB donot use any letter twice. It will NOT be printed twice." >14,1;1;" " .5,2 &" Press ENTER to start.";z$  #6;" WORD-TARGET" F10 ,11 ;7;0;1;1;"PLEASE WAIT" %.2~L,5:.1}L,10 a$(9 ) n=19 !a$(n)=((*26)+65A) n z=19 n=19 =a$(n)=a$(z)nza$(n)=((*26)+65A):270 n "z ' x=0 ,n=19 6@a$(n)="A"a$(n)="E"a$(n)="I"a$(n)="O"a$(n)="U"x=x+1 @n Jx<2225  %s$(502,9 ):count=1 '" WORD-TARGET" w5,12 ;0;a$(1);2;"--";0;a$(2);2;"--";0;a$(3);2 6,12 ;"|\ | /|" w7,12 ;0;a$(4);2;"--";0;a$(5);2;"--";0;a$(6);2 8,12 ;"|/ | \|" w9 ,12 ;0;a$(7);2;"--";0;a$(8);2;"--";0;a$(9 );2 IN=30-1:123{,115s,35#+(N*2):N 614,0;"________________________________" .15,0;" Enter word in CAPITALS." 0"Type 1 to stop. Enter SHORT words first." _"Write down the words you have found. The computer will also remember them just in case." $"________________________________" count=502600X "" Enter your word>";x$  a=0 x$="1"600X x$>9 500 n=1̱x$ z=19 x$(n)=a$(z)a=a+1 &z:n '-N=1̱X$:X$(N)=A$(5)553) (6N:.2~L,-40(:.1}L,-20:500 )N=1COUNT *CX$=s$(N)(̱X$).2~L,-40(:.1}L,-20:500 +N 0Pa=x$s$(count)=x$:count=count+1:.1}L,20:.2~L,40( :/aɱx$.1}L,-20:.2~L,-40( D 500 X count<10 d$="VERY POOR" b-count10 count<20d$="AVERAGE" l*count20count<30d$="GOOD" v/count30count<40(d$="VERY GOOD" ,count40(count502d$="GENIUS"  "7'" WORD-TARGET" $"________________________________" #6;''" Your rating was ";d$ $"________________________________" 67''" You found ";count-1;" words" $"________________________________" *6''" Type ENTER to look at them." $"________________________________" "";z$ n=1count s$(n) h=010 :h n  200  \10 ,0;"  Press 'y' for another go ":''"  or press 'n' to stop. " .5,4  ""780  =""790  ="Y"Ŧ="y":200 *"N"Ʀ"n"780  4 >&10 ,12 ;7;"BYEEE!" C.3,7:.1}L,4:.2~L,5:.1}L,10 :.1}L,8:.1}L,9 :.2~L,4 HP:5,0;" Do you want to LOAD the next program (y/n)?" R ">";f$ \Gf$="Y"f$="y":10 ,0;"  START THE TAPE ":"" ff$"N"Ŧ="n"850R p:10 ,0;"Switch off to clear the memory. If you want to LOAD another program from this tape ,type:- LOAD ""program name"" (ENTER) PRESS PLAY ON YOUR TAPE RECORDER" zi21,0;7;2;1;1;"PROGRAM ABORTED":23659k\,0:890z  xouna   EGCRAPDHK2 X1D VERY POORZFy Simon <5236099\,255 23658j\,8  """A" .5,6 A7:1:0:0:0:0:1: $"________________________________" '" SIMON-LOGO" "  Simon Software 1983" (#" Written on a 16K ZX Spectrum" 2" by M Philpott." 7$"________________________________" ";c$ c$<4330J C$="ROT-"330J C$(4)="ROT-"C=C-(C$(5)):C0C=8+C:C0C=8+C:C0C=8+C:C0C=8+C C$(4)="ROT-"210 C$="ROT"330J C$(3)="ROT"C=C+(C$(4)):C>8C=0+(C-8):C>8C=0+(C-8):C>8C=0+(C-8):C>8C=0+(C-8) C$(3)="ROT"210 /C$="ROT45"C=C+1:c=8c=1 c$="ROT45"210 c$="COL"330J tc$(3)="COL"x=(c$(4)):x>6x<0#1;"COL ERROR":q=1200:q:210 ""c$(3)="COL"x:210 $c$="RUB"330J 'c$(3)="RUB"600X ,c$="STOP"800  1c$<7330J 3c$="FORWARD"330J 6#c$(7)="FORWARD"500 J##1;"NONSENSE IN SIMON LOGO" Tn=0200:n ^ 210  a,b;" " ID=(C$(8)):c$>8d=(c$(8))*10 +(c$(9 ))  700  s=c:c>4s=c-4  n=1d a,b;(151+s) c=1a=a-1 %c=2a=a-1:b=b+1 c=3b=b+1 %c=4b=b+1:a=a+1  c=5a=a+1 !%c=6a=a+1:b=b-1 "c=7b=b-1 #%c=8b=b-1:a=a-1 &.05|L,5 0n : 210 XSa,b;" ":D=(C$(4)):c$>4d=(c$(4))*10 +(c$(5)) l 700 qs=c:c>4s=c-4 v n=1d { a,b;" " c=1a=a-1 %c=2a=a-1:b=b+1 c=3b=b+1 %c=4b=b+1:a=a+1 c=5a=a+1 %c=6a=a+1:b=b-1 c=7b=b-1 %c=8b=b-1:a=a-1 .05|L,0 n  210 "c=1a-d0780  1c=2(a-d0b+d31)780  #c=3b+d31780  2c=4(a+d21b+d31)780  #c=5a+d21780  1c=6(a+d21b-d0)780  "c=7b-d0780  0c=8(a-d0b-d0)780    @#1;"MOTION ERROR NUMBER TOO BIG":n=0200:n  210  -#1;"Simon Software ANOTHER GO ? Y/N" *""810* 4=""8204 >="Y":170 H"N"810* RN:5,0;" Do you want to LOAD the next program (y/n)?" S ">";a$ T@a$="Y":10 ,0;"  START THE TAPE ":"" Ua$"N"851S V:10 ,0;"Switch off to clear the memory. If you want to LOAD another program from this tape ,type:- LOAD ""program name"" (ENTER) PRESS PLAY ON YOUR TAPE RECORDER" Wi21,0;7;2;1;1;"PROGRAM ABORTED":23659k\,0:855W 0a=10 :b=15:c=1:i=0: a bcidsTxRCSTOPAYLogo X$$BBB2Bp  pdBBB$$!&X`0@@0`X&! @@ BfZBBB""""""""<"<"< @|BB|DB<@<B<BBBBB< Snake W?Y1:7:1  >"________________________________":'" WORD-SNAKE" "  Simon Software 1983" !" Written on a 16K ZX spectrum" " By M.Philpott." $"________________________________":''" The computer will pick a word and scramble the letters up. It is your job to work out what the word is and rearrange it." .'" The game takes place on a motorway. The road has two directions. The word will be placed on the road . If you think the first letter is in the correct place then press ""1""" 8(" Press any key to continue";a$ Bn=9 21 L/n,0;" " Vn `t9 ,0;" If you think that the letter isin the wrong place then press ""0"".If you have pressed ""1""" jc"then the letter will go into thestation. If you pressed ""0"" then the letter will go all " t"the way around to the back of the word. When you have got the word assembled in the station the computer checks that it is right. If you wish to end your game press ""s"" after the word is in the station." ~round=1 correct=0 )" Press any key to start game";a$  x=1  y=1 d$=""  "/WORD\ WORD-SNAKE" ,"" $" " $" " $" " $" "  $" " *$" " 4$" " >$" " H$" " R$" " \$" " f$" " p$" " $" " $" " $" " $" " $" " $" " $" " ^3,1;" ":6,11 ;"Press 1 to enter":7,11 ;"station." A8,11 ;"Press 0 to go":9 ,11 ;" around." %10 ,11 ;"Press a to get" !11 ,11 ;"the answer" z=(*60<)+1  n=1z a$ n "munch","bunch","crack","float","mouth","march","first","cheap","drive","rifle","price","giant","enter","field","three","seven","eight","disco","print","input","month","comic","bring","guide","adult","house","horse","mouse","large","batch","again","stand","issue","legal","brush","vault","fault","groan","stone","owner","tough","stick","court","grand","limit","blame","throw","since","under","world","money","other","magic","stuff","third","think","trick","smash","rebel","score" z$=" " s(5) n=15 z=(*5)+1 s(z)=13530 z$(n)=a$(z):s(z)=1 n 3,15;z$;" " ""4005 =""4006 ="1"4500 ="a"Ŧ="A"6000p ="0"4750  4005 r2,6;" ";3,6;" ";4,6;" ";5,7;"":n=15x-1 $n<153,n+1;" " 3,n;z$(y) ?.05|L,-15:.05|L,-20:.05|L,-10 n  d$=d$+z$(y) z$=z$(2) '3,19-((d$)-1);" " %d$=5Ʊz$=05000  x=x+1  4000 t2,6;"";3,6;"";4,6;"";5,7;" ":n=158-1 $n<153,n+1;" " 3,n;z$(y) .05|L,-20 n n=319 n-1,8;" " n,8;z$(y) .05|L,-15 n n=829 19,n-1;" " 19,n;z$(y) .05|L,-10 n n=193-1 $n+1,29;" " .n,29;z$(y) 8.05|L,-5 Bn G,n=2915+(z$-1)-1 H3,n+1;" " I3,n;z$(y) J.05|L,0 Kn L z$=z$+z$(y) Vz$=z$(2) ` 4000 d$=a$5500| n=612  n,11 ;" " n %6,11 ;"That was wrong." "7,11 ;"The word was" 8,11 ;a$ %9 ,11 ;"Press s to stop" Dn=0300,:(*7)+1:="s"Ŧ="S"7000X n round=round+1 n=612  n,11 ;" " n  7  1180 |n=612 (*7)+1  n,11 ;" " n &6,11 ;"That was correct" correct=correct+1  5070 pn=612 z n,11 ;" " n $6,11 ;"The answer was" 7,11 ;a$ &8,11 ;"Try not to cheat" 9 ,11 ;"again" n=0200:n n=612  n,11 ;" " n  2250 Xn=612 b n,11 ;" " ln v$6,11 ;"You had ";round 7,11 ;"games." &8,11 ;"You got ";correct 9 ,11 ;"correct" /"Enter y for another game or n tostop > ";f$ f$="y"f$="Y"1150~ f$"n"f$"N"7070 M:5,0;" Do you want to LOAD the next program (y/n)?"  ">";a$ Ga$="y"a$="Y":10 ,0;"  START THE TAPE ":"" a$"n"a$"N"7100 ھ:10 ,0;"Switch off to clear the memory. If you want to LOAD another program from the tape, type LOAD ""program name"" (ENTER) PRESS PLAY ON YOUR TAPE RECORDER" j21,0;7;2;1;1;"PROGRAM ABORTED":23659k\,0:7140 BounorrecxyDAy Maths ExamK  M 1:7:1 &:"________________________________" '" MATHS EXAM" "  Simon Software 1982 " "" Written on a 16K ZX Spectrum" (" By M.Philpott." -$"________________________________" 2m'" This program will give you a series of mathematical problems for you to solve going from easyto hard." <["________________________________":'" If you make a mistake then yourexam has finished." F+"Press any key to begin the exam";a$ P Zc"________________________________":'" Remember no talking and no cheating." [$"________________________________" d '''''" Good Luck!" i""105i n&n=0350^:""115s pn sscore=0 x '"Question ";score+1 '"Subject: Addition." ''" What is the answer to:-" ha=(*((score+1)*10 +30)+1):b=(*((score+1)*10 +30)+1) '" ";a;" + ";b;" = ?" ">";z Bz=a+b''" Correct.":score=score+1:300, '" WRONG" *'" Your final score was ";1;score 2000 , 100d 6 @'"Question ";score+1 J'"Subject: Subtraction." T''"What is the answer to:-" ^>a=(*((score+1)*10 +30)+1):b=(*a) h'" ";a;" - ";b;" = ?" r">";z |Az=a-b'" Correct.":score=score+1:500 '" Wrong" *''"Your final score was ";1;score  2000  100d  '"Question ";score+1 '"Subject: Multiplication." ''"What is the answer to:-" &Ba=(*(score+12 ))+1:b=(*(score+12 ))+1 0'" ";a;" X ";b;" = ?" :">";z DAz=a*b'" Correct.":score=score+1:700 N'" Wrong" X*''"Your final score was ";1;score b 2000  100d   '"Question ";score+1;"." '"Subject: Division." ''"What is the answer to:-" 2a=(*10 )+1:b=(*10 )+1 a=a*b '" ";a;" / ";b;" = ?" ">";z  Az=a/b'" Correct.":score=score+1:900 '" Wrong"  *''"Your final score was ";1;score * 2000  100d  '"Question ";score+1 '"Subject: Volume." 5''"What is the volume of a cuboid with the sides " _a=(*((score+1)*10 )+30)+1:b=(*10 )+1:c=(*b)+1 '" ";a;" X ";b;" X ";c ">";z Nz=a*b*c'" Correct.":score=score+1:100d:120x '" Wrong" *''"Your final score was ";1;score  2000 l:21,0;7;2;1;1;"PROGRAM ABORTED":23659k\,0:1010 618,0;"Do you want another go? (y or n)" ""2010 =""2020 ="y"Ŧ="Y"80P ="n"Ŧ="N"1010  2020 A_^ncorabz