ZXTape! 2#BBC Mastermind Quizmaster - Program#Ivan Berg Software / Mirrorsoft Ltd1984English9.95NoneOriginal)TZXed by Andrew Barker For Chris Thompsonprog hh  j 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$=" " 10  cn=i$:9  n3,2;r$(a(an)+1)  mastermind editor pnx=100d:an=0:f3=0:s$=" ":9 :ds=502:ll=30 jq$(nx,160):a$(nx,2,30):m$(5,14):e$(6,16):d(nx):a(6) ((b$="MASTERMIND QUIZMASTER":f2=0 +z=15:m$(z):z ,z=16:e$(z):z -%z=07:g1:"a"+z,g1:z 2;1:1::8100:dl=ds*3:8600! d 500   8400 Lz=15:7+z,7;z+".":z+7,10 ;m$(z):z _19,2;"Please select option (1-5)":i$="39":n3=19:n4=29:7500L r$="1"1000:r$="" r$="2"2000:r$="" &r$="3"3000 :r$="" 0r$="4"4000:r$="" : r$="5" D 500 X (q$(1,3)=" "1050 %n1=4:n2=21:8700! 4n1=6:p$="Do you want to delete":8300l 6n1=7:p$="the existing questions?":8300l .i$="29":n3=7:n4=28:7500L r$="N"n1=10 :p$="Save the current questions":8300l :n1=11 :p$="before creating new quiz":8300l :dl=ds*5:8600!:1090B Bz=1nx:q$(z)=" ":a$(z,1)=" ":a$(z,2)=" ":z r$="1":2040 B  8400 Lz=16:z+6,7;z+".":z+6,10 ;e$(z):z _19,2;"Please select option (1-6)":i$="49":n3=19:n4=29:7500L r$="1"2500 :r$="" r$="2"2600( :r$=""  r$="3"2700 :r$="" r$="4"2800 :r$=""  r$="5"2900T :r$="" *r$="6"2110> 4 2000 > 8000@ /q$(nx,3)" "8900":2530 'z=1nx:q$(z,3)" "z Nqn=z:n1=3:n2=21:8700!:3,0;"Question: "+qn 6000p qn>nx9100#:2530 f1=02503  (=dc=0:8000@:n1=6:n2=20:8700! -z=1nx:d(z)=0:z 27n1=6:p$="NUMBER OF FIRST QUESTION":8300l <,p$="TO BE DELETED":n1=7:8300l FV8,14;"?":n3=8:n4=16:i$="6669":7500L:qn=r$:db=qn K:(qn>nx)(dc0)9200#:5000:2690 N.(qn>nx)(qn<1)9100#:2690 P=(q$(qn,3)=" ")9000(#:5000:2690 Zn1=3:n2=21:8700!:8200 :20,5;"DELETE? (Y/N/Quit)":i$="79":n3=20:n4=25:7500L _ r$="Q"5000:2690 d&r$="Y"dc=dc+1:d(qn)=1 nqn=qn+1:2635K  =rc=0:8000@:n1=5:n2=21:8700! 7n1=6:p$="NUMBER OF FIRST QUESTION":8300l -p$="TO BE REPLACED":n1=7:8300l V8,14;"?":n3=8:n4=16:i$="6669":7500L:qn=r$:db=qn .(qn>nx)(rc0)9200#:2790 .(qn>nx)(qn<1)9100#:2790 1(q$(qn,3)=" ")9000(#:2790 n1=3:n2=21:8700!:8200 :20,5;"REPLACE? (Y/N/Quit)":i$="79":n3=20:n4=25:7500L r$="Q"2790 Hr$="Y"rc=rc+1:n1=4:n2=21:8700!:6000p qn=qn+1:2735  18000@:n1=6:n2=20:8700! 7n1=6:p$="NUMBER OF FIRST QUESTION":8300l -p$="TO BE REVIEWED":n1=7:8300l O8,14;"?":n3=8:n4=16:i$="6669":7500L:qn=r$ .(qn>nx)(qn<1)9100#:2890J 1(q$(qn,3)=" ")9000(#:2890J "n1=3:n2=21:8700!:8200 :20,2;"VIEW NEXT QUESTION? (Y/N)":i$="29":n3=20:n4=28:7500L ,r$="N"2890J 6qn=qn+1:2835 J T\n1=3:n2=21:8700!:n1=6:p$="NUMBER OF FIRST QUESTION":8300l U\n1=7:p$="TO BE PRINTED":8300l :n3=7:n4=24:i$="6669":7500L V4qn=r$:qn>nx(qn<1)9100#:2990 W/q$(qn,3)=" "9000(#:2990 \Rn1=5:n2=21:8700!:n1=6:p$="Set up printer":8300l ^.n1=7:p$="and align paper":8300l h[9400$:n1=6:n2=21:8700!:n1=7:p$="Printing...":8300l |" "+b$: 9300T$:qn=qn+1 qn>nx2990 #q$(qn,3)" "2950  5:1::8400 2p$="Please give name of":n1=7:8300l /p$="quiz to be saved":n1=8:8300l d10 ,2;"?":n3=10 :n4=4:i$="51111111111111111111111119":7500L:l$=r$ Yp$="Are you sure? (Y/N)":n1=13 :8300l :n3=13 :n4=26:7500L r$="N"3000 l$>8l$=l$(8) z=1̱l$:l$(z)" "z l$=l$(z-1) ]n1=7:n2=16:8700!:n1=7:p$="QUESTION FILE BEING SAVED":8300l 1l$+"Q"q$():n1=7:n2=8:8700! gn1=7:p$="QUESTION FILE SAVED OK":8300l :n1=9 :p$="ANSWERS BEING SAVED":8300l (dl=ds*2:8600!:l$+"A"a$() nn1=7:n2=9 :8700!:n1=7:p$="ANSWERS SAVED OK":8300l :dl=ds*2:8600! n1=9 :p$="STOP THE TAPE" dl=ds*2:8600!   get saved file %n1=8:n2=19:8700! (q$(1,3)=" "4008 9p$="Delete existing questions?":n1=7:8300l .i$="29":n3=7:n4=29:7500L r$="N"4090 $n1=7:n2=9 :8700! 2p$="Please give name of":n1=7:8300l 0p$="quiz to be loaded":n1=8:8300l ]10 ,2;"?":n3=10 :n4=4:i$="51111111111111111111111119":7500L %l$=r$:r$>8l$=r$(8) z=1̱l$:l$(z)" "z 8l$=l$(z-1):n1=7:n2=21:8700! %n1=7:n2=10 :8700! xp$="PLEASE LOAD":n1=7:8300l :p$=r$:n1=8:8300l :p$="TAPE":n1=9 :8300l :9400$ %n1=7:n2=21:8700! -p$="START THE TAPE":n1=6:8300l *7,7;"and press  space " h$=:h$" "4056 ّ5:n1=6:n2=21:8700!:8:n1=6:p$="Loading questions":8300l :n1=7:p$="please wait":8300l l$+"Q"q$():l$+"A"a$() %n1=6:n2=20:8700! up$="QUIZ LOADED OK":n1=8:8300l :p$="STOP THE TAPE":n1=10 :8300l :dl=ds*2:8600!  0z=nx1-1:q$(z,3)=" "z nq=z Hz=dbnq:d(z)=1q$(z)=" ":a$(z,1)=" ":a$(z,2)=" " z  5050 dc=05040 Hz=nq-dc+1nq:q$(z)=" ":a$(z,1)=" ":a$(z,2)=" ":z  z=dbnq-1  g1=0 "q$(z,3)" "5070 g1>dc5070 ry=znq-1:q$(y)=q$(y+1):a$(y,1)=a$(y+1,1):a$(y,2)=a$(y+1,2):y 1q$(z,3)=" "g1=g1+1:5058 z  pf1=0:g$="11111111111111111111111111111":i$="5"+g$+g$+g$+g$+g$+"111111119":n3=5:n4=2:5,0;"?" uAn1=20:p$="Press 'ENTER' to quit":8300l :f2=1 x$z=16:a(z)=0:z z^f3=1:an=1:7500L:f3=0:n3=n3+1:n4=2:r$=""6030  f2=0 r$=""f1=1:6140 (r$>1608800`":6000 p  q$(qn)=r$ 413 ,0;"Answer:":14,0;"?" Hn3=14:n4=2:i$="1111111111111111111111111119":7500L &z=r$1-1:r$(z)=" "z a$(qn,1)=r$(z) 515,0;"Keyword:":16,0;"?" Gn3=16:n4=2:i$="511111111111111111111111119":7500L Dr$=""16,2;"NULL":a$(qn,2)="NULL":6140 &z=r$1-1:r$(z)=" "z a$(qn,2)=r$(z) dl=ds:8600!  Lr$="":cn=1:nb=1 V1:n3,n4;" ":0 ` fm=i$(cn) jh$=:h$=""7530j tfm=17600 ~fm=27650 fm=37700 fm=47750F fm=57770Z fm=67776` fm=77650 fm=9 7780d  let,dig,sp,.,rtn,del (h$32 Ưh$122z7900  7800x  fm=2 (y/n) )h$="y"h$="n"h$="Y"h$="N"7900 ((h$="Q"h$="q")fm=77900  7800x fm=3 (dig,del,rtn) h$"1"h$"5"7900  7800x Ffm=4 (dig,del,rtn) Ph$"1"h$"6"7900 U 7800x Zfm=5 as 1 but no space [P(f2=1)(cn=1)(h$13 )n1=19:n2=20:8700! ](h$33!Ưh$122z7900 _ 7800x `fm=6 any dig ah$"0"h$"9"7900 b 7800x cfm=9 dh$=13 79906 x7h$(12 )h$(13 )85004!:7520` }'fm=5h$=(13 )79906 ~>(f3=1an>1(n4<3n4>31))9450$ <cn=1(f3=1n4<3)85004!:7520` h$=(13 )79906 $0:n3,n4;" ":n4=n4-1 1:n3,n4;" ":0 &cn=cn-1:r$=r$(̱(r$)-1)  7520` %h$"a"h$"z"h$=((h$)-32 ) ;f3=1an=6n4>2985004!:7520` #0:n3,n4;h$:cn=cn+1 /n4=n4+1:r$=r$+h$:n4>312 &cnDZi$1:n3,n4;" ":0 cnDZi$7520` 6n3,n4;" ": @15:5::g$="5757777777775777775777" J6z=122:ڰg$(z):z-1,0;s$:z T19 :8:p$=b$:n1=1:8300l  &6:g$="7170710000000000170717" +z=021:ڰg$(z+1):s$:z 08:3,7;"IVAN BERG SOFTWARE" Hn1=8:p$="WELCOME TO":8300l :n1=9 :p$=b$:8300l 1n1=18:p$=" 1984":8300l :9 ~0.8L,0:0.4L,0:0.4L,0:1.2,7:30:0.4L,12 :0.2~L,11  F3,0;"Question: "+qn:p9=1:g$=q$(qn):p4=5 &z=g$1-1:g$(z)=" "z p8=z p9+ll>p882400 !4f=p9:z=p9+llp9-1:g$(z)=" "f=z-p9:z=p9 &z +Ep4,1;g$(p9p9+f):p4=p4+1:p9=p9+f+1:8220 0p4,1;g$(p9p8) :13 ,0;"Answer:":14,1;a$(qn,1):15,0;"Keyword:":16,1;a$(qn,2) D l&z=p$1-1:p$(z)=" "z vp$=p$(z):g1=z 'g2=((32 -g1)/2-0.5) n1,g2;p$  (1:g$="0007155555555555555550": 6z=122:ڰg$(z):z-1,0;s$:z U8:1:7:p$=b$:n1=1:8300l :0:9 :8  !4&z=1nb:0.25~,15:z !> !z=1dl:1:z ! !z=n1n2:z,0;s$:z " "`p$="QUESTION TOO LONG":n1=19:8300l :p$="PLEASE RETYPE":n1=20:8300l :dl=ds*4:nb=2:85004!:8600 ! "j%n1=5:n2=20:8700! "t ">nb=2:85004!:n1=18:n2=21:8700! "6p$="QUESTION LIMIT REACHED":n1=19:8300l ":p$="A QUESTION MUST BE DELETED":n1=20:8300l "7p$="BEFORE ANOTHER IS ADDED":n1=21:8300l "dl=ds*5:8600! " #(rn1=19:n2=21:8700!:nb=2:85004!:p$="QUESTION NUMBER "+qn:n1=19:8300l #-.p$="DOES NOT EXIST":n1=20:8300l #2dl=ds*5:8600! #< #>nb=2:85004!:n1=19:n2=21:8700! #Mnb=2:85004!:p$="QUESTION NUMBER "+qn:n1=19:8300l #,p$="OUT OF RANGE":n1=20:8300l #dl=ds*5:8600! # #?p$="QUESTION NUMBER "+(qn-1):n1=19:8300l #4p$="IS THE LAST QUESTION":n1=20:8300l #dl=ds*5:8600! $ $T8::"Question: "+qn:p9=1:g$=q$(qn):p4=5 $^&z=g$1-1:g$(z)=" "z $cp8=z $hp9+ll>p89340|$ $m4f=p9:z=p9+llp9-1:g$(z)=" "f=z-p9:z=p9 $rz $w9g$(p9p9+f):p4=p4+1:p9=p9+f+1:9320h$ $| g$(p9p8) $=:"Answer:":a$(qn,1):"Keyword:":a$(qn,2):: $ $^18,8;"PRESS ":2:1:18,14;" space ":9 :0 $r$=:r$" "9410$ $ $n3=n3-1 $n3+1,2;" " $*an=1n4=a(an)+3:9490% $/n4=a(an)-a(an-1)+2:an=an-1 % %>"Create quiz","Edit quiz","Save quiz","Get saved quiz","End" %&["Add question","Delete question","Replace question","Review quiz","Print quiz","End edit" %0M60<,66B,157,149,157,145,82R,60<