ZXTape! 0Created with Ramsoft MakeTZXprog1 SSF U 37:7::7:"mchars"63232  1:236077\,246 L$="7 6: pq5atbatbefgatbsttefgatt4t 9; omnr5c12c12h ic12uvwh ic1 5 8 o][r5dy3dy3jkldy3112jkld 5  " (1:1:1: 2's$=" " p89 4f=p9:z=p9+llp9-1:z$(z)=" "f=z-p9:z=p9 z Bp4,1;z$(p9p9+f):p4=p4+1:p9=p9+f+1:5 p4,1;z$(p9p8)  0:5:5: nx=100d:ds=502:s$=" ":f1=0:l$=" ***":x=0:p1=9 :p2=8:p3=15:lp=0 q$(nx,160):a$(nx,2,30):s(4,2):p(15):o(nx):c$(4,2,25):n$(4,6) +w$(10 ,3,2):ll=30 b$="BBC ":m$="MASTERMIND" (:9000(#:9400$ -Ey=110 :z=13:g1,g2:w$(y,z)=g1+g2:z:y 2i=1nx:o(i)=i:i $0:n3,n4;" ":n4=n4-1 H1:n3,n4;" ":0 R&cn=cn-1:r$=r$(̱(r$)-1) \ 520 %h$"a"h$"z"h$=((h$)-32 ) #0:n3,n4;h$:cn=cn+1 .cnDZi$1:n3,n4+1;" ":0 n4=n4+1:r$=r$+h$ cnDZi$520 n3,n4;" ": 4=146,147,138,133,152,153 =128,133,128,133,128,133 =146,147,154,153,155,140 =146,147,128,149,152,153 =138,128,142,142,128,138 =139,131,131,147,152,153 =146,151,156,147,152,153 =131,135,128,133,128,133 =146,147,148,149,152,153 =146,147,152,157,150,153 7n1=6:n2=20:8:9 :9500% *n3=6:p$=c$(i,1):9600% 4n3=8:p$="YOU HAVE 2 MINUTES ON":9600% Hr1=2p$="GENERAL KNOWLEDGE":n3=9 :9600%:4040 *p$=c$(i,2):n3=9 :9600% +n3=11 :p$="STARTING...":9600% Edl=ds*2:9300T$:2:8600!:7:9300T$ -tu=0:ts=u():ps=0:sr=0 E6500d:0:i$="5111111111111111111111111119":n3=13 1j=1mx:qn=o(j+(i-1)*mx):z$=q$(qn)  08:z=12 14:z,0;s$:z  2z=1520:z,0;s$(24):z Fn1=4:n2=9 :9500%:p4=4:ll=30:2 tc=u():tc>ts+120xtu=1:nb=4:9200#:1:10 ,2;"I'VE STARTED YOU MAY ANSWER":0 B13 ,1;"?":n4=3:7500L:r$""41506 "U13 ,6;"PASS":dl=ds:9300T$:ps=ps+1:ps<164140, 'D14,3;"PASS LIMIT FOR ANSWERS":9300T$:4260 ,p(ps)=qn:4260 6&z=r$1-1:r$(z)=" "z 7 r$=r$(z) ;Oz=129:a$(qn,1,zz+1)=" "g9=z-1:z=30 <z @Ufl=0:r$=a$(qn,1,g9)4:15,6;"CORRECT":4240 J8a$(qn,2,4)="NULL"g2=1:4220| T6z=301-1:a$(qn,2,z)=" "z Vg1=z Y^y=1((r$)-g1)+1:r$(yy+g1-1)=a$(qn,2,g1)fl=99c:y=30 ^Cy:fl=99c15,1;"I CAN ACCEPT THAT":4230 |15,6;"NO.." t0:z$=a$(qn,1,g9)+" IS RIGHT":p4=16:ll=20:2:9300T$:fl99c4260 >s(i,1)=s(i,1)+1:sr=sr+1:6700, 3tu=1dl=ds*2:9300T$:4300 >tc=u():tc>ts+120xnb=4:9200#:4300 j W15,0;s$(24):1:19,8;"QUESTION LIMIT":0 +nb=2:9200#:dl=ds:9300T$ X6600:7:8:p$="AFTER THAT ROUND YOU SCORED":n3=6:9600% s(i,2)=s(i,2)+ps *p$=(sr)+" POINT":sr1p$=p$+"S" Qn3=8:9600%:ps=0p$="AND NO PASSES":n3=10 :9600% [9800H&:8:9 :n1=5:n2=20:9500%:ps=04430N ?p$="YOU PASSED ON ":ps=1p$=p$+"JUST ONE":4380  p$=p$+ps B6,2;p$:dl=ds:9300T$:ps>15ps=15 &$n1=6:n2=7:9500% 0y=1ps:n1=6:n2=12 :9500%:n1=18:n2=18:9500%:p4=6:ll=30:z$=q$(p(y)):9 :2 :Sn1=19:dl=ds:9300T$:18,1;a$(p(y),1):dl=ds*2 D9300T$:y N7n1=6:n2=20:9500%:9 :8 X\n3=7:p$=c$(i,1):9600%:n3=9 :p$="THANK YOU VERY MUCH":9600% bdl=ds:9300T$ l$n1=7:n2=9 :9500%  d(g$="5757777777757777777777":5: n6z=021:ڰg$(z+1):z,0;s$:z x48:1:p$=b$+m$:n3=1:9600% }90:1:15,24;" SCORE ":0  6700,  )5::g$="00071000000000017777777" 6z=021:ڰg$(z+1):z,0;s$:z F8:1:7:p$=b$+m$:n3=1:9600%:0  ,M6:8:z=1620:z,24;" "+(13 ):z 6#2:8:g1=s(i,1) @}s(i,1)10 g$=s(i,1):g1=g$(2):p6=28:6750^:g1=g$(1):p6=25:6750^ J0s(i,1)<10 p6=28:6750^ O 9 T ^o17,p6;w$(g1+1,1):18,p6;w$(g1+1,2):19,p6;w$(g1+1,3) h X#5::g$="00071":f2=0 ]5z=04:ڰg$(z+1):z,0;s$:z b4p$=b$+m$:7:0:n3=1:9600% g?1:n3=6:p$="START TAPE NOW":9600%:0 l,9 :8:l$+"Q"q$():l$+"A"a$() q (q$(nx,3)=" ")(a$(nx,1,3)=" ")6600:6,1;"I'M SORRY THERE IS AN INCORRECT":7,3;"NUMBER OF QUESTIONS ON THE":p$=c$(i,2):n3=8:9600%:p$="TAPE":n3=9 :9600%:f2=1:9800H& v  Sn1=6:n2=18:9500%:n3=10 :p$="SET UP PRINTER":9600% %/n3=11 :p$="AND ALIGN PAPER":9600% *>9800H&:lp=1:p$=b$+m$:9600%:7400:"" 4g$>17250R >(13 ):p$="THE NEW MASTERMIND":9600%:7400:p$="CHAMPION IS:- ":9600%:7400:p$=c$(g$(1),1):9600%:7400:7300 Rl13 :p$="THE JOINT MASTERMIND":9600%:7400:p$="CHAMPIONS ARE:-":9600%:7400 \Ay=1̱g$:p$=c$(g$(y),1):9600%:7400:y S13 :p$="******************************":g3=1:7400:13 Gg3=1:y=1̱g$:p$="NAME: "+c$(g$(y),1):7400 Np$="POINTS: "+s(g$(y),1)+" PASSES: "+s(g$(y),2):7400 Ep$="SPECIALIST SUBJECT: "+c$(g$(y),2):7400:13 y Ip$="******************************":g3=1:7400:lp=0   g3;p$: L 500: @P6600:9 :8:6,1;" THIS COMPUTER VERSION OF BBC" J!" TV'S FAMOUS QUIZ CONTEST CAN" T" BE PLAYED BY UP TO 4" ^" CONTENDERS." h#" EACH CONTENDER'S KNOWLEDGE OF" r!" A CHOSEN SUBJECT AND HIS/HER" |#" GENERAL KNOWLEDGE IS TESTED IN" K" TURN OVER TWO ROUNDS.":9800H&:n1=6:n2=13 :9500% T6,1;" ONE POINT IS AWARDED FOR EACH":" QUESTION ANSWERED CORRECTLY." A" CONTENDERS MAY 'PASS' THOSE":" QUESTIONS THEY ARE UNABLE TO" A" ANSWER SIMPLY BY PRESSING":" ENTER.":9800H&:9500% N6,1;" INCORRECT ANSWERS RESULT IN":" THE CORRECT ANSWER BEING" (" GIVEN.":" MASTERMIND IS A 'TIMED'" ;" CONTEST; THAT IS EACH":" CONTENDER HAS ONLY 2 MINUTES" -" ON EACH SUBJECT.":9800H&:9500% N6,1;" THE TRICK THEREFORE IS TO":" 'PASS' THOSE QUESTIONS FOR" "" WHICH THE ANSWER IS NOT KNOWN" ?" AS QUICKLY AS POSSIBLE.":" GUESSING AND HESITATION WASTE" 2" TIME AND REDUCE THE":" CONTENDER'S CHANCE OF" :" ACHIEVING A REASONABLE SCORE.":9800H&:9500% s6,1;" THE CONTENDER WITH THE HIGHEST":" OVERALL SCORE AT THE END OF":" THE CONTEST IS THE WINNER." X9800H&:9500%:6,1;" TO SAVE TIME WHILE TYPING IN":" ANSWERS:-" A " DO NOT ENTER A,AN OR THE. FOR":" DOCTOR TYPE DR, FOR SAINT" c" TYPE ST AND FOR GREAT TYPE GT.":" ENTER NUMBER ANSWERS AS":" NUMERALS E.G. 19 NOT NINETEEN." &x9800H&:9500%:6,1;"FOR THE NAMES OF KINGS AND":" QUEENS USE ROMAN NUMERALS":" E.G. HENRY IV." 0g" IF THERE IS A TWO WORD ANSWER":" LINK THE WORDS WITH 'AND'":" E.G. SALT AND PEPPER.":9800H& : !4;6,3;"YOUR NAME PLEASE":8,3;"?" !>Dn3=8:n4=5:i$="5111111111111111111111119":7500L !Cc$(i,1)=r$ !Ha10 ,3;"YOUR OCCUPATION":12 ,3;"?":n3=12 :n4=5:7500L !K !M%n1=6:n2=14:9500% !fB6,3;"YOUR SPECIALIST SUBJECT":8,3;"?" !zWn3=8:n4=5:i$="51111111111111111111111119":7500L:c$(i,2)=r$ !en3=11 :p$="ARE YOU SURE (Y OR N)?":9600%:i$="29":n3=11 :n4=27:7500L !r$="N"8525M! !8l$=c$(i,2,8):z=1̱l$:l$(z)" "z !l$=l$(z-1) ! !nb=4:9200# !08:17,7;" " !'18,7;" " !+19,7;" " !320,7;"   " ! #(%g$="717071":g1=0:g2=5 #2-z=g1g2:(g$(z+1)):z,0;s$:z #490:7:3,7;"IVAN BERG SOFTWARE" #76z=g2+121-(g2+1):z,0;s$:z #:A6:7,11 ;"WELCOME TO":8,9 ;b$+m$ #<=z=g2g1-1:ڰg$(z+1):21-z,0;s$:z #?17:0:18,12 ;" 1984" #F0:7: #(z=1nb:0.25~,15:z: $Tz=1dl:1:z: $0.8L,0:0.4L,0:0.4L,0:1.2,7:30:0.4L,12 :0.2~L,11 : %z=n1n2:z,0;s$:z: %4z=p$1-1:p$(z)" "g2=z:z=1 %z %'g3=((32 -g2)/2-0.5) %lp=19620% % n3,g3;p$ % %%n1=6:n2=15:9500% %My=1nc:4+y*2,1;c$(y,1)+" "+s(y,1):y % &Hg0:18,8;"PRESS ":2:1:18,14;" space ":9 :0 &Rr$=:r$" "9810R& &\ &.9 :n1=5:n2=19:9500% &<wk=1:wn=1:ps=0:nc=19950& &Uz=2nc:wi=wn-(wn/10 )*10 :s(z,1)s(wi,1)9940& &4ps=1:s(z,2)>s(wi,2)9945& &(s(z,2)10 9980& &r1=29965& &3p$="LEADER AT THE END OF":n3=6:9600% &=p$="THE FIRST ROUND IS":n3=7:9600%:9970& &}g$=(wn)(1):p$="SO OUR NEW":n3=6:9600%:p$="MASTERMIND CHAMPION IS":n3=7:9600%:9400$ &Jp$=c$(wn,1):n3=9 :9600%:wi=wn:ps=09995 ' &=p$="WITH FEWER PASSES":n3=11 :9600%:9995 ' &&tk=wk:tn=wn:r1=29987' &7p$="JOINT LEADERS AT THE END":n3=6:9600% 'Mp$="OF THE FIRST ROUND ARE":n3=7:9600%:9990':n3=8 'ng$="":p$="OUR JOINT":n3=6:9600%:p$="MASTERMIND CHAMPIONS":n3=7:9600%:9400$ 'lp$="WITH THE SAME NUMBER OF":n3=8:9600%:p$="PASSES ARE":n3=9 :9600%:n3=10 'Qn3=n3+1:wi=(wn/wk):p$=c$(wi,1):g$=g$+(wi)(1):9600% ' 5wn=wn-wi*wk:wk=wk/10 :wk19990' '  7