qt dad\1:1:7:63255:7;0;1;15,11 ;" LOADING ";0;5,2;"";6,2;" MACMILLAN SOFTWARE ";7,2;" ";8,2;" QUIZTIMER ";9 ,2;"" n621,0;"  1985 BLACKBOARD SOFTWARE LTD." $1:""23552\,2056 M   # # <@''8nbxb\\]nb]yd~ddbddd\3fX![!PP!?8  W!S{"\ P7:7:0::2 K SR P) BLACKBOARD SOFTWARE LTD : e7:7:0::#1;1;1,0;" PROGRAM STILL LOADING "; O1:old=236066\+256*236077\:set=24484_:1000 11,2;"abc\\\\\\\\\\\\def" .2,3;"ghij\\\\\\\\\\\\klm" (+3,5;"nop\\\\\\\\\\qr]" 2)4,6;"j\\\\\\\\\\k" <)5,6;"op\\\\\\\\qr" F)6,6;"sj\\\\\\\\kt" P)7,6;"uop\\\\\\qrv" Z)8,6;"wsj\\\\\\kxy" d)9 ,6;"\uop\\\\qrv\" n*10 ,6;"\wsj\\\\kxy\" x*11 ,6;"\\uop\\qrv\\" *12 ,6;"\\wsj\\kxy\\" *13 ,6;"\\\uopqrv\\\" *14,6;"\\\wsjkxy\\\" *15,6;"\\\\uorv\\\\" *16,6;"\\\\wsxy\\\\" ,17,5;"qz\\\\uv\\\\qz" ,18,5;"k{\\\\wsxy\\\\k{" 019,3;"|}~`_\\\uv\\\|}~`_" 220,2;"af\\w^y\\af" set=old:1000 :7:20,0;:"":20,0;:"" L236066\,set-256*(set/256):236077\,(set/256): '%"M"23552\,2056:1 l<e<|8???????? 5bytes ll66666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|ff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|000ffff>fff<ckk6f<<~0~ p 001kF2:\vߟ) ɥɥg3L33333pp8=>$pp8 P P P P P P P  MGG\GWq !v>![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P3pMN=MK( !v>??$.??D$$ H(cf @6G$.?8Dº #]/!!T88T?~<QTheader $"]$ 0quiztimer header  Blackboard Software Limited 2x36=64258 <0:3500 :236066\,24:236077\,246:0::0:7:0::7:wi=1:he=2:w$=" QUIZTIMER INFORMATION ":li=5:co=20:9000(# A12:28,150:168,0: F4:w$=" PRESS ":li=502:co=20:9000(#:li=74J:w$=" 1":9000(#:li=106j:w$=" 2":9000(#:w$=" 3":li=138:9000(# K7:10 ,6;"for full instructions";14,6;"to load main program";18,6;"to transfer to Microdrive" P"1"Ʀ"2"Ʀ"3"80P Z="1"2000 _="3"7000X d1000:4000 <0:0:7::6,11 ;"Quiztimer" R8,1;"Databases to choose from when the main program has loaded.": A0;7;11 ,3;"" 57:ink=0:x=110 :c$=" "+x x=10 c$="10" Bink;x+10 ,3;c$;". ";t$(x);:ink=01050  ink=0 x  A7;0;21,3;""  ink=1:1030 he=2:wi=1:7:7:0::0;6;0,9 ;" Instructions ":7:0:2,0;"This game is for 1 or 2 players.A word is displayed with severalletters missing.":100d:0:7:w$=" -ui-t--er ":co=84T:li=524:9000(#:7;0;10 ,0;"The player is given a short clueand a certain length of time to type and ENTER the correct word.";13 ,0;">":.5,20 100d:q$="":r$="quiztimer ":n=110 :.125},n:q$=q$+r$(n):0;7;13 ,0;">";q$:n:.353333,6:.353333,6:0:7:w$=" quiztimer ":9000(# T502:7;0;15,0;"Points gained for a correct worddepend on the amount of time taken to enter the answer. The score is displayed like this:":502:1;7;19,0;" Player ":502:1;7;20,0;" Score: 59 ";7;0;" based on time taken." g502:1;7;21,0;" Right: 5 ";7;0;" no.of correct words." 4502:7:0:3000 ::0,0;"The game ends when each player has had at least ten turns and at least one player has given ten correct answers." >100d:5,0;"If a player makes 20 errors,the game ends for that player.":100d:8,0;"All words incorrectly guessed byeach player are shown at the endof the game." H100d:12 ,0;"Players can choose to have one minute, 30 seconds or 15 secondsto study each word.":100d:16,0;"Players can also choose to have the game accompanied by sound and graphics or have their answers displayed on the screen." B3000 :::"There is no need for ";0;6;"CAPS SHIFT";7;0;" to be used. Capitals are added for you where appropriate.":100d::"Lists of words and clues can be seen and/or altered by using thepassword which you will put in when the main program is ";0;6;"LOADED." 100d::;7;0;"If any of the Microdrive optionsare operated with no Microdrive present, the program will crash." 100d::;7;0;"Press ";0;6;"BREAK";7;0;" and ";0;6;"CAPS SHIFT";7;0;" to return to the program's menu." 3000 ::;7;0;"With the program, there are ten DATABASES, each with 100 words."::"You can create and save your owndatabases from instructions in the main program." :"Each database must contain 100 words and clues but words and clues can be entered more than once."::"E.g. If you want to enter a listof only 25 words, you will have to enter each word 4 times and the same word may come up twice or three times during the quiz." 3000 :10 ""3000 P#1;0;6;1,0;"P to print,G to go on,M for menu" 1"m"Ʀ"M"Ʀ"p"Ʀ"P"Ʀ"g"Ʀ"G"3010 ="g"Ŧ="G"3050 ="m"Ŧ="M"10 :3005  ""3000 !B#1;0;6;1,6;" Press G to go on " &"g"Ʀ"G"3110& 0 t$(10 ,21) t$(1)="Wordpower 1" t$(2)="Wordpower 2" t$(3)="Wordpower 3" !t$(4)="Animals and Birds" t$(5)="Food and Drink" "t$(6)="Games and Pastimes" !t$(7)="General Knowledge" t$(8)="General Science" t$(9 )="Geography" t$(10 )="Greek Mythology"  ^7;0;0,0;"Microdrive or cassette?";2,0;"Press M or C" %"m"Ʀ"M"Ʀ"c"Ʀ"C"4010 ="c"Ŧ="C"4030 {1;7;0,0;"Loading Quiztimer main program ";0;0;2,0;" ";: *"m";1;"QTmainprog" n=02:0;n,0;" ":n:1:0:7:wi=2:he=1:co=10 :li=1:w$="START THE TAPE":9000(#:0 Í#1;1;1;7;1,8;" STILL LOADING ";#1;0;0,0;"Loading time: approx. 3 minutes" x1,10 :502:0:wi=2:he=1:co=1:li=1:w$=" ":9000(# <0,0;:0:0:0:"QTmainprog"  236066\,24:236077\,246:0:7:0::.5,15:1:co=30:li=75K:he=2:wi=2:w$="STOP THE TAPE":9000(#:.5,15:.5,22:3100 :10 p#1:1:7:63255:1,6;"Macmillan Software";4,10 ;"QUIZTIMER";21,0;"  1985 Blackboard Software Ltd";10 ,7;" Still loading":*"m";1;"bytes":x36=63258:236066\,24:236077\,246:10 Xf0:0:7::7900:4,0;7;"QUIZTIMER is divided like this:" ]7:6,0;"1. QTheader - this program. It contains information on the main program.";10 ,0;"2. Bytes - which hold graphics and machine code routines." b17,0;"4. QTmainprog - the main program containing the game itself.";13 ,0;"3. Databases - 10 sections which hold the words and clues for the quiz." l3000 :7900:7:10 ,0;"Make sure that your Microdrive contains a formatted cartridge.";13 ,0;"Watch the screen for further instructions." qe3000 :7900:7:3,0;"The new program will be loaded with the filename: QT";6,2;"Saving QT ":*"m";1;"QT"6000p:7,2;"Saving bytes":*"m";1;"bytes"63256,2281:8,2;"Verifying QT":*"m";1;"QT":10 ,2;"Verifying bytes":*"m";1;"bytes" vT17,0;"The databases are on side 2. Turn the tape over and REWIND." {420,0;"Watch screen for instructions." 7900:3500 Ax=110 :6;4,0;"Database:";t$(x) 7,0;"1. Press ENTER on the Spectrum.";9 ,0;"2. Press PLAY on your recorder.";12 ,8;"WATCH THE SCREEN";14,3;"BE READY TO STOP THE TAPE" U0:z$(100d,36$):16,0;"Loading Database ";x:m$="v"+x m$z$():1;16,0;" STOP THE TAPE! ":n=16:.25~,20:n:18,0;"Saving Database ";x;" on Microdrive":*"m";1;m$z$() T7;0;20,0;" Database ";x;" transferred. ":7900:x 5,0;"You have now transferred:";7,3;"1. QTheader";9 ,3;"2. Bytes";11 ,3;"3. 10 Databases" 15,0;"To transfer the main program,youmust first LOAD from side 1 of the tape. Turn the tape over andrewind. The program's name is ""QTmainprog"" and it is fifth on the tape.":3000 :10 y7::0,0;" Transferring to Microdrive ":2:19,165:204,0:7:  7: ? #(en=23306 [:en,co:en+1,li:en+2,wi:en+3,he:en+4,8:en=en+4:lenw=w$:u=1lenw:en+u,w$(u):u:en+lenw+1,255:lenw=65024: & 10 3 Wordpower 1 Wordpower 2 Wordpower 3 Animals and Birds Food and Drink Games and Pastimes General Knowledge General Science Geography Greek Mythology j[en(# W 2QTmainprog2{(#2{4{,3300 :ps=m0:l=m0:bs=m2:1000 2.rnd=(*100d)+m1:y$(rnd)="1"502 7>y$(rnd)="1":x1=x1+1:k(x1)=rnd:x1<60<502 < den=23306 [:en,co:en+1,li:en+m2,wi:en+3,he:en+m4,m8:en=en+m4:lenw=w$:u=m1lenw:en+u,w$(u):u:en+lenw+m1,255:lenw=65024: Ftime-t<60<time-t10 t$(m1m2)="00":t$(m4)=(time-t): )time-t9 t$(m4)="0"+(time-t): Wtime-t60<time-t119wt$(m1m2)="01":tt=(time-t)-60<:t$(m4)=tt: f$="3"f$="4" time=f$*15:170: Lt$=("01:00"time=60<)+("00:30"time=30)+("00.15"time=15)  !m6;m0;20,14;t$: Ic$=z$(k(w))(m115):k$=z$(k(w))(1736$):c=m115 .c$(c)=" "c$=c$(1(c-m1)):c=20 c ltrs=((c$/m2))+m1 c$m7ltrs=m3 d$=c$:j=m1ltrs )rnd=(*c$)+m1:d$(rnd)="-"235 d$(rnd)="-":j: 6Ia$=">":t=0:r1=0:23672x\,0:23658j\,0 @`i$=:23672x\50223672x\,0:t=t+m1:150:m6;20,14;t$ J t=time Ti$=""r1=m0:320@ Yr10320@ ^.l=a$:l>17ůi$=13 a$=a$(m2): h0i$=12 l>m1a$=a$(m1(l-m1)):380| r.005y# =,10 :a$=a$+i$ w%a$=m2Ưa$(m2)97a1980 x)pl10 (a$+m1)11 pl=pl-m1 |8m0;m7;16,pl;a$+" "+8:r1=m1:320@ score=((time-t)*30/time):2600( :o(turn)=o(turn)+m1:i1=m2:r$="YES!!":690:m7:m0:s(turn)=s(turn)+score:w$=a$:he=m2:wi=m1:li=85U:co=(256-(w$*8))/m2:100d:1550:.25~,m2:3200 }4000+(1100L*(q(turn)=m6))+((q(turn)m6)*100d*q(turn))+((10 *o(turn))-10 ):2700 :2600( Zo(m2)=10 (o(m1)=10 (turn=m2ps=m1))(o(m1)=10 Ʊs$=20)900 turn=m1+(turn-m1) .170:180:1550:2000 *2600( :i1=m4:r$=" NO!!":690 turn=m1e$=e$+(k(w)) turn=m2s$=s$+(k(w)) zm7:m0:10 ,m4;"ANSWER:":w$=c$:he=m2:wi=m1:li=85U:co=(256-(w$*8))/m2:100d:1550 ;(turn=m1Ʊe$20)(turn=m2Ʊs$20)3000 /o(m1)=10 turn=m22700 :900 &&ps=m2turn=m1+(turn-m1):590N N|.25~,-10 :.25~,-10 :2700 :2600( :2250:170:180:1550:2000 X f$=:f$<"1"f$>"3"600X b $"y"Ʀ"Y"Ʀ"N"Ʀ"n"650  i1;14,13 ;"";16,13 ;"";15,13 ;"";15,19;"";m7;m0;15,14;r$: ]23676|\,250:xx=m0:m7:m0::21,m0;" Type the password & press ENTER" q$ u$=""730 &q$=""q$=" "űq$11 705  q$=u$: 1xx=xx+m1:xxm5m1,m4:m1,-m2:m1,-8::  }m1,10 :ں(*m7)+m1;9 ;xx,m0;" That is not today's password. ";m1;14,m4;" Please try again.":705  :z$(m1)" "data=m1: *Gdata=m0:#1;m1;m2;m7;m0,m0;" YOU HAVE NO QUIZ DATA " > Mm1:m1:m7::m0,m0;n$(m1);"=";s(m1):ps=m2m0,17;n$(m2);"=";s(m2) (ps=m1p$=n$(m1):win=s(m1):930 [s(m1)=s(m2)win=s(m1):p$=" DRAW":10 ,m0;"The result was a draw.":930 (m4,m0;"Winner of this game:"; 8s(m1)>s(m2)win=s(m1):p$=n$(m1):m4,21;n$(m1) =s(m2)>s(m1)win=s(m2):p$=n$(m2):m4,21;n$(2) win>hiscore1800 m7;m2;16,m0;"";17,m0;" ";m7;m0;"High scorer:";h$;"=";hiscore;m7;m2;" ";18,m0;"" ""936 :#1;m0;m6;m0,m0;" Press P to print, G to go on " $"p"Ʀ"P"Ʀ"g"Ʀ"G"945 ="p"Ŧ="P" 5:m6;m0,m0;n$(m1):ps=m2m6;m0,17;n$(m2) Se$=m0m2,m0;"No mistakes!";m4,m0;"Well done,";m6,m0;n$(m1):ps=m1979 dps=m2Ʊs$=m0m2,17;"No mistakes!";m4,17;"Well done,";m6,17;n$(m2):979 Vm0;m7;21,m6;"Words to remember":n=m1̱e$:n,m0;z$(e$(n))(m115):n 9ps=m2n=m1̱s$:n,17;z$(s$(n))(m115):n :#1;m0;m6;m0,m0;" Press P to print, G to go on " $"p"Ʀ"P"Ʀ"g"Ʀ"G"980 ="p"Ŧ="P"  1000 cm0:ps=m0:v$="MENU":7900:236099\,m0:23561 \,m0:23562 \,m0:score=m0:xx=m0 "go=m0:ink=m2:bs=m0:2500 m1:800 :m0:m7:m5,m2;"1: Load Quiz Data for game."''" 2: Start single-player game."''" 3: Start two-player game." :" 4: Alter time allowance."''" 5: Pictures or words."''" 6: View/alter Quiz Data."''" 7: Create new Quiz Data."''" 8: Save new Quiz Data." ey$="00000000000000000000":y$=y$+y$+y$+y$+y$:m7;m0;21,m0;" PRESS A NUMBER FOR OPTION. " P170:#1;m1,m0;"Time=";t$;#1;m1,12 ;"Pictures/words="; $sc=m1#1;m1,27;"Pic" &sc=m2#1;m1,27;"Words" j$=:j$=""1020 j$<"1"j$>"8"1020 j$="1"1045 ,j$="4"1600@:7900:1020  j$="5"1650r:1000  j$="6"r$="alter":7500L 8j$="7"r$="enter":z$(100d,36$):7500L  j$="8"r$="enter":8000@  bj$="2"j$="3"ps=(j$-m1):800 :data=m1:v$="GAME":2500 :1200:1155:  Fm1:m0:m7:m5,m2;m1;"1: Load Quiz Data for game.":1020 xxm51000 9800H&:9700% )morc=m1m0:m7::m7;m0;10 ,m0;" Make sure that your microdrive ";11 ,m0;" cartridge is in place. ":2700 :23659k\,m0:*"m";1;x$z$():23659k\,2 .Smorc=m2m0:m0:m7::m7;m5;"LOADING A NEW DATABASE"'''"The databases are on side 2 of the program cassette."''"The computer will skip over any unwanted databases before your selection but will display them on the screen as"''"Character Array: v1, v2, v3,etc.";6;''"Press ENTER on the Spectrum and PLAY on the tape-recorder." 3morc=m2m0::17,m4;m6;m0;;" SEARCHING FOR DATA ";x$;m6;m0;''" A blue and yellow scrolling border shows that your list has been found and is loading.":m7:m0:m0,m0:x$z$() 4gmorc=m2:10 ,8;m1;" STOP THE TAPE ":b=m110 :.125},10 :b:2700 86:m6,10 ;"Data loaded":2700 :1000 $7900:1500:2000 Hn=12 21:m0;n,m0;" ":n: n$(ps,10 ):1195:m0:m7:.125},m2:n=m1ps:10 ,m5;"Type your name & ENTER";12 ,m7;"Maximum 10 letters";21,m0;"Player ";n;"?" m$ 'm$=""m$=" "űm$11 1210 1950:n$(n)=m$ i15,m7;"Player 1: ";n$(m1);21,m0;" ":ps=m216,m7;"Player 2: ";n$(m2) n:100d: 6m1:m1:m7::players=m1m1,m0;" Hello, ";n$(m1): ;e$="":s$="":o(m2):q(m2):w=m0:s(m2):q(m1)=(*m6)+m1 1sc=m2q(m1)=9 :q(m2)=9 :1540 q(m2)=(*m6)+m1 q(m1)=q(m2)1520 %sc=m2q(m1)=9 :q(m2)=9 m0:m0:m7::2600( :2650Z :1550:20,13 ;"Min:Sec":2700 +(ps*100d):m0;m7;11 ,m5;" Words for game being";12 ,m5;" selected.Please wait. "  \k(60<):x1=m0:502:2600( :0;20,13 ;" ":turn=m1: "m1;m7;18,m0;" ";n$(m1);20,m1;"Right: ";20,8;o(m1);21,m1;"Score: ";21,8;s(m1) ,ps=m2m1;m7;18,21;" ";n$(m2);20,21;" Right: ";20,28;o(m2);21,21;" Score: ";21,28;s(m2): 1 @11 ,m2;m1;"4";;21,m0;" Press a number to choose a time";#1;m1,m0;" 1=15 sec.: 2=30 sec.: 3=60 sec.":600X:160 TA.5,-10 :m0;11 ,m2;"4":800 :1000 r7900:m1:m7:21,m0;"When answers are right,a picture";#1;m1;m7;m0,m0;"can be shown or the correct word";#1;m1,m0;m1;m7;"listed on screen. Press P or W ":sc=m0 w="p"Ŧ="P"sc=m1 |="w"Ŧ="W"sc=m2 sc=m01655w  /m1;m7;14,8;"10 words right!": 7900:.125},m4:.125},m6:.125},8:.125},16:h$=p$:hiscore=win:m2;m7;13 ,m5;"A new high score!!!!": l,c$(m1)96`m$=a$:1950:a$=m$ v .m$(m1)97am$(m1)=(m$(m1)-32 )  .c$(m1)96`a$(m2)=(a$(m2)-32 )  ps=m1turn=m1 go=m1turn=m2 go=m2turn=m1 5170:180:w=w+m1:w60<900 200:w$=d$:m7:m0:he=m2:wi=m1:li=85U:co=(256-(w$*8))/m2:100d:m6;m0;13 ,m4;"Clue:";m6;m0;k$; pl=(turn-m1)*21  23676|\,255:#1;m1,m0;" START NOW!":.75@,10 :.75@,10 :m0:#1;m7;m1,m0;"Type whole word and press ENTER":m7;16,pl;m1;">";m7;m0;" ":300, t=time2200 %l>17ůi$=13 2300 2600( :6;0;18,12 ;" ";19,12 ;" OUT OF ";20,12 ;" TIME ";21,12 ;" ":505 ʈ0;18,12 ;" ";19,12 ;" ";20,12 ;" ";21,12 ;" ": a$=""500  1900l a$=c$400  500 nco=62>:bs:bs:ink::m7:ink;m0,m5;"":n=m1m2:n,m5;" ":n ^m3,m5;"":w$="QUIZTIMER "+v$:m0:li=8:he=m2:wi=m1:100d: (Kn=10 13 :m7;m0;n,m0;" ":n 2Ln=1416:m0;m7;n,m0;" ":n: Zn=1721:1;n,m0;" ":n:#1;m1;m0,m0;" " _5n=1821:m0;n,12 ;" ":n d J7900:#1;m4;m0;m1,m0;" Press G to go on " "g"Ʀ"G"2720 ;#1;ink;m1,m0;" ": pplace=9 :2950 : TDturn=m1:3200 :2950 :turn=m2:3200 :2950 : Pq(m1)=9 n=m09 :m6;n,m0+pplace;" ":n:2955 m0;m2;m0,pplace;"":n=m18:m2;n,pplace;"";m7;" ";m0;"":n:m0;m2;9 ,pplace;""  .5,-20:3200 :m0;m7;18,pl+m1;"20 errors!";19,pl+m1;"Game over,";20,pl+m1;"Player ";turn;" ":2700 ps=m1900 ?e$=20turn=m2(s$=20o(m2)=10 )900 Ds$=20turn=m2(e$=20o(1)=10 )900 go=turn:535 ?pplace=(17turn+ps=4)+(9 turn+ps=2): {time=60<:sc=1:23676|\,250:hiscore=100d:u$="":h$="Quiztimer ":z$(100d,36$): 5s1=1:s2=8:paper=1:4610: 5s1=4:s2=8:paper=4:4610: 4680H:ink=1:n=105i108l:ink:8+(pplace*8),137:102f,n-137:.004yn,20:n: "4680H:23676|\,250:4;1;3,1+pplace;" ";4,1+pplace;"": ,4680H:23676|\,250:7;1;2,7+pplace;"";3;3,6+pplace;"";3;7;"";1;3;"";4,6+pplace;3;4;"": 6u4680H:23676|\,255:4;0;6,11 +pplace;"";7,12 +pplace;"": @~4680H:23676|\,255:n=57:0;4;n,1+pplace;"";2;"";4;"":n: Js4680H:23676|\,255:4;0;5,8+pplace;"";6,9 +pplace;"": Ts4680H:23676|\,255:4;0;7,4+pplace;"";8,5+pplace;"": ^1700:4:23676|\,250:.5,16:4650*:5,8+pplace;ink;"":4650*:ink;7,4+pplace;"":4650*:ink;6,11 +pplace;"" c4690R: h5s1=1:s2=8:paper=6:4610: r5s1=1:s2=3:paper=5:4610: |4800:ink=1:n=105i125}:ink:.005y# =,n-100d:111o+(pplace*8),143:-103g,n-143:n: 4800:23676|\,255:pp=pplace*8:0:6;5,11 +pplace;"";6,12 +pplace;"" 0:95_+pp,128:5,-15,.3:94^+pp,128:5,-15,.3:103g+pp,120x:6,-6,1:104h+pp,120x:6,-6,1: f4800:23676|\,255:pp=pplace*8:0:6;6,9 +pplace;"" s0:81Q+pp,120x:10 ,-10 ,.5:80P+pp,120x:10 ,-10 ,.5: #s1=1:f$="":4295: #s1=5:f$="":4295: #s1=3:f$="":4295: #s1=8:f$="":4295: 1700:23676|\,255:m=6̺(*7)+3:0:4810:6:n=12 m-1:8,n+pplace;" ":.025{L,-25:2::n:7,m+pplace;"";8,m+pplace;"":m:4820: l4800:23676|\,255:5;0;3,s1+pplace;f$(1);1;f$(2): 5s1=1:s2=8:paper=5:4610: 5s1=7:s2=8:paper=4:4610: 'bp=0:ink=0:4720p: 0f=4:l$="":paper=5:4700\: 1f=12 :l$="":paper=5:4700\: 0f=2:l$="":paper=5:4700\: 1f=10 :l$="":paper=5:4700\: .5,-20:23676|\,251:s1=1:s2=6:paper=1:1:4610:0:2:6:6,2+pplace;"";6,4+pplace;"";6,10 +pplace;"";6,12 +pplace;"": n=1̺(*5)+8:.02{# =,30:2:7:(*95_)+15+(pplace*8),(*20)+145:n:n=13.5:7:(pplace*8)+20,160,n:n: &1700:23676|\,251:ink=2:bp=-15:4720p:23676|\,251:1:2:5,2+pplace;" ";5,10 +pplace;" ":n=110 :.05|L,-15:.05|L,-20:n 'n=140(:.002xn,1:ٺ(*5)+2;(*7)+(97a+(pplace*8)),(*20)+130:n:n=53-1:1;n,12 +pplace;" ":n (n=140(:.002xn,40(:ٺ(*5)+2;(*8)+(16+(+pplace*8)),(*20)+130:n:n=53-1:1;n,2+pplace;" ":n )m=110 :n=52-1:ٺ(*5)+2;n,4+pplace;"":.002xn,20:n,4+pplace;" ":n:m *m=110 :n=52-1:ٺ(*5)+2;n,10 +pplace;"":.01z# =,-15:1;n,10 +pplace;"*":.004yn,-16:n,10 +pplace;" ":.002xn,-14:n:m / 05s1=1:s2=8:paper=0:4610: :&co=1:li=3:4499: D&co=4:li=6:4499: N4800:23676|\,255:4;0;8,6+pplace;"";1;"";0;4;"";7;"home": X23676|\,251:0:6:n=111 :.025{L,-14:2:2,n+pplace;" ":.025{L,-14:2:2,n+pplace;" ":n: b23676|\,251:0:6:n=25:n,12 +pplace;"":.025{L,-4:2:n,12 +pplace;"":.025{L,-14:2:n,12 +pplace;" ":n:5,12 +pplace;"": l0:6:23676|\,251:n=11 2-1:.025{L,-14:2:5,n+pplace;" ":.025{L,-14:2:5,n+pplace;" ":n: v23676|\,251:0:5:n=110 :2,n+pplace;" ":.05|L,-20:5:2,n+pplace;" ":.05|L,-22:n: 23676|\,251:n=25:0:5:n,11 +pplace;"":.05|L,-20:2:n,11 +pplace;"":.05|L,-22:2:n,11 +pplace;" ":n 0:5:n=11 6-1:.05|L,-20:2:5,n+pplace;" ":.05|L,-22:2:5,n+pplace;" ":n: 71700:23676|\,251:chick=(*2) chick=04495 0:6:n=58:n,2+pplace;"":.025{L,-4:2:n,2+pplace;"":.025{L,-14:2:n,2+pplace;" ":n:8,2+pplace;"" 0:6:n=14:.025{L,-14:2:8,n+pplace;" ":.025{L,-14:2:8,n+pplace;" ":n:8,5+pplace;" ";8,9 +pplace;"SAFE!":502: 0:5:n=62-1:.05|L,-22:2:5;5,n+pplace;" ":.05|L,-20:2:5;5,n+pplace;" ":n n=110 :.05|L,-20:2:5;5,2+pplace;" ";7;"chomp":.05|L,-17:2:2;5,2+pplace;" ";7;"munch":n:7;7,1+pplace;"Better luck";8,4+pplace;"next time!": S4680H:23676|\,250:7;2;li,co+pplace;"": Fi5=(*4):s1=1:s2=8:paper=5:4610: \4800:z=16:5;i5;2+z,1+pplace;" ":z: [4800:23676|\,255:5;i5;2,1+pplace;" ": @4800:5;i5;1,2+pplace;" ": Z4800:5;i5;4,1+pplace;"";7;"";5;"" N5;i5;5,1+pplace;"";7;" ";5;"" P5;i5;6,1+pplace;" ";7;"";5;" ": K4800:a=16:z=311 :a1=a:a=i5a1=7 =i5;a1;3,z+pplace;"";7,z+pplace;"~":z:a: Ѝ4800:23676|\,255:7;0;5,4+pplace;"`";5,7+pplace;"";5,10 +pplace;"": Z4800:9 ;i5;1,6+pplace;"Las";2,5+pplace;"Vegas": f4800:23676|\,255:f$="`":0;7;8,2+pplace;"3 of a kind"  1700:4800:a1=7:buzz=(*10 )+20:n=1buzz:.002xn,10 :7:0:b$=f$(((*3))+1)+f$((*3)+1)+f$((*3)+1) Qi5;a1;3,3+pplace;"";7,3+pplace;"~~~~~~~~~" 'a1=7a1=i5+2:4595 a1=i5+2a1=7 7;0;5,4+pplace;b$(1);5,7+pplace;b$(2);5,10 +pplace;b$(3):n:100d b$(1)=b$(2)b$(2)=b$(3)1;7,4+pplace;" Press ";8,2+pplace;"1 for prize":4598 X6;0;8,2+pplace;" Hard luck!":1,-10 :502: "1"4598 [pic=(*4)+1:z=09 :4000+(pic*100d)+(z*10 ):z: C23676|\,250:5100+((10 *o(turn))-10 ): D4680H:n=s1s2:paper;n,1+pplace;" ":n: *6ink=(*3)+1:ink=1ink=7: HN.1}L,14:.1}L,18:.1}L,21:.1}L,26: R4mu=18:6000p:cr=.1}L:6500d: \s4680H:23676|\,251:6,f+pplace;2;6;l$;0;paper;5,f+pplace;"": pn=120:.04|# =,bp:ink:(*10 )+42*+(pplace*8),(*10 )+110n:10 ,10 :10 ,-10 :n un=110 :.04|# =,bp:ink:(*10 )+42*+(pplace*8),(*10 )+130:10 ,-10 :10 ,10 :n: :.2~L,26:5:.2~L,14:3: 3mu=8:qu=.2~L:6100:6500d: t62008:mu=20:qu=.15~:sq=.05|L:x1=-5:6500d:62008:x1=5:6500d: $&o(turn)-1,0+pplace;c$: ~o(turn)=10 1700 &o(turn)-1,0+pplace;c$: \x=110 :m=1:c=09 :5000+(100d*m)+(10 *c):c x: L.5,6:s1=1:s2=8:paper=(*2):4610: s3=3:5400: s3=9 :5400:  :i4=2:l4=4:l5=4:l$="":5450J: "l$="":l4=3:5450J: "l$="":l4=5:5450J: (;i4=0:l4=4:l5=10 :l$="":5450J: 2"l4=3:l$="":5450J: <"l4=5:l$="":5450J: Fsf$=" ":1700:4800:23676|\,250:a(2):ink=0 Gb=120:a(1)=(*12 ):a(2)=(*12 ):s3=3:s2=4:x=12:5400:a(x)5ink=2 Ha(x)6ink=0 Imz=35:7;ink;z,s2+pplace;f$((a(x)*3)+(z-2)):z:s3=9 :s2=10 :x K#a(1)=a(2)5197M Lh.5,b:b:7,2+pplace;"Better luck";8,2+pplace;"next time!":100d: M;7;0;8,1+pplace;"SNAP! Press 1" N"1"5197M O[pic=(*4)+1:z=09 :4000+(pic*100d)+(z*10 ):z: 5n=26:7;n,s3+pplace;" ":n: J823676|\,250:7;i4;l4,l5+pplace;l$: | 1050 pcr,2,cr,7,cr,9 ,cr,7,cr,7,cr,9 ,cr,7,cr*2,7,cr,14,cr*2,14,cr,11 ,cr,11 ,cr,9 ,cr,7,cr,9 ,cr,2,cr,9 ,cr*3,7 yqu/2,14,qu/2,14,qu*2,14,qu,18,qu,21,qu,24,qu,27,qu,31 8qu,-2,qu,5,qu,5,qu,5,sq,3,sq,2,sq,0,sq,3,sq,2,sq,0,sq,-2,sq,2 =Xqu,5,qu,2,qu,-2,qu,0,sq,-3,sq,-2,qu,-5,qu,x1 d!o=1mu:a1,b1:a1,b1:o: %6100:cr=.1}L:6500d L 700 Qxx51000 Vu0:q=0:1:1:7::0,5;" Words and Clues ":8800`":7:0 `1,0:p=15:7;0;" ";p+q;" ";z$(p+q)(115):7;0;" Clue:";z$(p+q)(1736$)::p +"1"Ʀ"2"Ʀ"3"Ʀ"4"Ʀ"5"7600 ="1"7670 ="2"1:85004! ΐ="3"1;20,0;"3":7900:x=15:z$(q+x):x:0;1;7;20,0;"3":7600 ="4"1000 ="5"8000@ m7900:n=115:1;n,0;" ":n:1,0 1:7:q=q+5:q99c:10 ,0;" End of vocabulary list ";18,0;" Press 1 to return ":7690   7520`  "1"7690   1000 ""7900  @,0:700:xx51000 D57900:1:1:7::9800H& Emorc=18100 Yu7::4,0;"Prepare a tape for recording. Make sure that it is wound past any other recordings." ^:"The 10 databases already with this program are saved as v1, v2, etc.,(v for vocabulary)."''"Type the next number in the series and press ENTER."''"Type a number only - the programwill put in ""v"" for you.":8200 hQ:1,3;" SAVING THE NEW VOCABULARY "''" Data to be saved as ";x$ f6;0;20,7;"Watch the screen";21,7;"for instructions":x$z$() i:10 ,1;" New vocabulary saved";12 ,1;" STOP THE TAPE!":2700 :1000 7::7;0;1,2;" Saving Data on Microdrive ";6,7;"Put a cartridge in";7,7;"the Microdrive and";8,7;"then press 1. " "1"8110 :"Catalogue check in progress":23659k\,0:1:23659k\,2:17,0;"Vocabulary lists are saved as";18,0;"v1, v2, etc."'"Type the next number in the series and press ENTER." ̵8200 ::7;0;1,3;" SAVING THE NEW VOCABULARY ";4,8;"Data saved as ";x$:23659k\,0:*"m";1;x$z$():23659k\,2 p:10 ,5;" New vocabulary saved.";12 ,4;" Press any key to go on.":0:1000 o$ &o$=""o$=" "űo$38200 &o$(1)="v"6;0;21,0;"Type the number only.":100d:1;21,0;" " +9o$(1)47/ůo$(1)58:8200 0Jo$=2(o$(2)47/)(o$(2)58:)8200 D x$="v"+o$: !47900:8900":6;0;18,0;" Type the number of the word you want to ";r$;" and press ENTER. " !>b$ !Cb$=""8510>! !Db$(1)=" "8510>! !Eb$48510>! !F(b$(1)=" ")(b$(1)47/)(b$(1)58:)(b$4)(b$2Ưb$(b$)47/)(b$2Ưb$(b$)58:)(b$3b$"100")8510>! !HRb$2b$(2)47/űb$2Ưb$(2)58:8510>! !J"b$3b$"100"8510>! !Ka=b$ !L0aqaq+6.5,10 :85004! !M"a=b$:8600!+(10 *b$) !Wt8900":6;0;18,0;"Type your new word & press ENTERMinimum=4 letters. Maximum=15 " !\g$ !f3g$=""g$=" "űg$16űg$38540\! !pz$(a)(115)=g$:line,1;7;0;1;b$;" ";z$(a)(115):8900":6;0;18,0;"Type the new clue & press ENTER.Your clue must be no longer than20 letters and spaces. " !uf$ !pz$(a)(1736$)=f$:line+1,1;7;0;1;"Clue:";z$(a)(1736$) !8900":1,10 :6;0;18,1;" Do you wish to alter another ";19,1;" word in this section? Y or N " ! 650 !'="n"Ŧ="N":8800`":7680 !7;0;line,1;b$;" ";z$(a)(115);line+1,1;"Clue:";z$(a)(1736$):85004! ! l=1 !O(l,1)=b$l,1;7;0;1;b$:line=l:8535W! !l=l+1:8611! !l158510>! ! 8535W! ! l=1 !q(l,1)=b$(1)ƪ(l,2)=b$(2)l,1;7;0;1;b$:line=l:8535W! ! l=l+1 !l158510>! ! 8622! !L14,1;7;0;1;b$:line=14:8535W! "`;1;7;17,0;"Press:";18,0;"1 to see next section";19,0;"2 to ";r$;" these words";20,0;"3 to start Spectrum printer";21,0;"4 to return to menu";#1;1;7;0,0;"5 to save altered vocabulary":0,0: "}n=1621:n,0;" ":n:#1;0,0;" ": #(9400$:t$="01:00":0:0:x36=64258:v$="GAME":f$="4":236066\,24:236077\,246:3300 :9100#:1000 #z$(100d,36$):ink=0:bs=3:2500 :8,0;" Choose a word of not more than 10 letters as your password. " #502::" The password will be needed if you want to see the answers and clues before starting the game or if you want to make changes." #:" If you want to transfer this program to Microdrive, enter ""M"" as your password. "'''" Type the word and press ENTER ":u$ #0u$>10 u$=""u$(1)=" "9110# #u$="M"u$="m"z$(1,1):7::7;0;10 ,0;"Make sure that there is a ";11 ,0;" cartridge in your Microdrive":2700 ::0,0;"You will need at least 36K to accommodate the main program.";3,0;"Checking the catalogue":1:2700 ::10 ,0;"Saving and verifying program":23659k\,0:*"m";1;"QTmainprog"9000(#:*"m";1;"QTmainprog":23659k\,2::9100# #F:7;0;10 ,0;" Your password is ";u$;". " #n=1100d:n: $nm0=0:m1=1:m2=2:m3=3:m4=4:m5=5:m6=6:m7=7:m8=8: $ %bs=2:ink=0:2500 :7;0;5,5;"Choose your subject:";21,0;4;" Press the number and ENTER. ":n=720:7;n,0;" ":n %7;0;8,3;"1. Wordpower 1";9 ,3;"2. Wordpower 2";10 ,3;"3. Wordpower 3";11 ,3;"4. Animals and Birds" %c7;0;12 ,3;"5. Food and Drink";13 ,3;"6. Games and Pastimes" &c7;0;14,3;"7. General Knowledge";15,3;"8. General Science" &\7;0;16,3;"9. Geography";17,2;"10. Greek Mythology" &h7;0;19,0;"or you can enter the number of your own set of words and clues." &>8200 : &Hp1:0::6;10 ,4;" Microdrive or cassette? ";12 ,10 ;" Press M or C " &\%"m"Ʀ"M"Ʀ"c"Ʀ"C"9820\& &f="m"Ŧ="M"morc=1 &k="c"Ŧ="C"morc=2 &z & 1000