ZXTape! 2j Wizard Box - Side AScisoft1984English Educational6.95NoneOriginalTZXed by Andrew Barkerscisoft ? ?]A ;0:0:0::"":0,0;"":"" logo @o.m6lmm6mmm6lmm6mmm 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>~<|x|B<BBBDBB$@BBDbBBBBB|B@BBBR@B~|BBB@B~BJNZ BDDBB$@BBDFB$>~BBx|B<8888888888888888888888888888888888888888888888888888888888888888WIZARD BOXPIEP5:5:1: :236099\,100d 0z=(*8):l=(*8):q=(*8)  J(11 ) ,6,10 ;9 ;"SCISOFT":l:q D7,10 ;z;"";L;"";Q;"";Z;"";L;"";Q;"";Z;"" D5,10 ;z;"";L;"";Q;"";Z;"";L;"";Q;"";Z;"" +12 ,8;4;"PROGRAMS FOR" (15,9 ;9 ;"EDUCASHUN" a1,8;9 ;z;"W";l;"I";q;"Z";z;"A";l;"R";z;"D";q;" ";l;"B";z;"O";q;"X" 721,3;6;"PRESS ENTER TO CONTINUE." ""14 3 N5:5:1:15,9 ;"EDUCASHUN":V=114 &4:15,28-V;"TION" V V=114` 15p,32-V;" " V V=1100H V  9000(# 31,4;4;"WELCOME TO WIZARD BOX" 14,0;7;0;"ARE YOU :-" X7,0;1;"1.";0;" Using the program for the first time?" k10 ,0;1;"2.";0;" Wishing to keep the childrensnames and words already entered?" c13 ,0;1;"3.";0;" Wishing to keep the names, but change the words?" a16,0;1;"4.";0;" Wishing to change the names, but keep the words?" ;21,2;6;"PLEASE PRESS KEY 1,2,3 or 4." !""33 #=""35 ( C=1 -#"1"Ʀ"2"Ʀ"3"Ʀ"4"35# 2="2"300 3=="3"B$(10 ,10 ,15):O=1:300, 4J="4"A$(45-,16):A(45-,10 ):X=0:300, 7 F=0 8 O=1 < S=0 A X=0 F R=1 P B$(10 ,10 ,15) d 300 F=1  ^O=11 20::10 ,0;"THERE ARE 10 LISTS ENTERED":150:300, _R=11 20::10 ,0;"THERE ARE 10 SETS OF MARKS!":150:300, 10 ,0;"Please key in a ";1;7;"PASSWORD";0;5;" up to 6letters long.":23658j\,8 u$:u$=""161 U$>6161  &4;0,10 ;"LIST ";O g2,0;7;1;"PLEASE KEY IN 10 WORDS UP TO 15 LETTERS LONG. " S=110 23658j\,8 G$ G$=""173- B$(O,S)=G$ 0S=10 S+6,5;S;". ";B$(O,S) S=10 1859 $S+6,6;S;". ";B$(O,S) S O=O+1 721,3;6;"PRESS ENTER TO CONTINUE." G$ G$""195C ,5:5:1: 17;"DO YOU WISH TO-" 2: 341;"1.";0;" ADD A NEW LIST OF WORDS?" 4 651;"2.";0;" START A NEW SET OF NAMES?" ; @+1;"3.";0;" ADD MORE NAMES?" E J.1;"4.";0;" START THE PROGRAM?" K L11;"5.";0;" PRINT OUT THE SCORES?" M N-1;"6.";0;" SAVE THE PROGRAM?" O P51;"7.";0;" CLEAR OUT THE MARKS ONLY?" Q R21;"8.";0;" CHANGE A SET OF WORDS?" S921,2;6;"PRESS THE REQUIRED NUMBER." T""340* Y=""345, ^<"1"Ʀ"2"Ʀ"3"Ʀ"4"Ʀ"5"Ʀ"6"Ʀ"7"Ʀ"8"340T `="1"150 c="2"1000z h="3"1003z m="4"2000z r="5"4000z w="6"5000@ x="8"3000 {<7390 | R=1 A(45-,10 ) 7:5,7;0;6;"SCORES CLEARED"  100d  300  X=1 A$(454,16) A(454,10 ) X>4541250@ oX=020::6;1;10 ,4;"START A NEW LIST OF NAMES!":250:300,  M4;"Please type in your name, then press ENTER. "  "To escape entry, press xx " 23658j\,8 G$ g$=""1020 2G$>1815,0;"NAME TOO LONG!" G$>181020 G$="XX"X=1X=0 G$="XX"g$="xx"300, 10 ,10 ;G$     D6;" Do you wish to change this? Press y or n.", ""1050@ %"Y"Ʀ"y"Ʀ"N"Ʀ"n"1055 $="Y"1004{ ) A$(X)=G$ . X=X+1 3X=4681250@ B 1004{  B10 ,0;0;2;"REGISTER IS FULL OF NAMES." S=1100H S  300   9500% SX=0:1;10 ,2;"NO NAMES ENTERED!":100d:300, F=0300, R>10 29115 Z=1X-1  SC=10  A=1 1:5:5: 23658j\,8  !4;"HI THERE ";A$(Z);".",  B4;"Listen to the word on the tape,or read the problem", L10 ,0;"WHEN YOU THINK YOU KNOW THE WORD THEN TYPE IT IN. " &18,0;1;"WORD ";A <14,0;6;"THEN PRESS ENTER TO CONTINUE." N$(1,15p) G$ G$=""2050 G$="XX"29005@ N$(1)=G$ !N$(1)=B$(c,A)2200 SC=SC-1 J(A)=1  m=110 2502+m,120x:3,40(,502 m  m=110 !390Z+m,120x:3;-40(,502 "m $?8,0;2;0;"SORRY BUT YOU WERE WRONG" % & *"THE WORD WAS ";B$(C,A) /S=130p 4S 5 A=A+1 7A=1102400 8 9@ 21,0;4;"TRY VERY HARD WITH THE NEXT WORD" > 200 D H 2020|  J(A)=0  6000;  A=A+1 A=1102400  +4;"NOW PREPARE FOR THE NEXT WORD." S=150H S   2020| Z ` j,1;"*THIS IS THE END OF YOUR TEST.*" oS=126 q4,S;2;"" rS sT=418 tT,0;2;"" |T ~&6,2;4;"NAME " %3,10 ;4;"REPORT" 6@,110;A$(Z) C8,2;4;"SCORE ";5;" ";SC;" OUT OF 10" (12 ,2;4;"COMMENT -" .SC=10 12@,10 ;" EXCELLENT" 8SC=8SC=912@,10 ;" VERY GOOD" 0SC=7`12@,10 ;" SATISFACTORY" 9SC=6@12@,10 ;" ONLY JUST GOOD ENOUGH" 3SC<6@12@,10 ;" NOT GOOD ENOUGH" A(Z,R)=SC :19,0;6;"KEY C FOR A PRINTED COPY OR" 521,0;6;"KEY ENTER TO CONTINUE." D$ D$""D$"C"2501P D$="C"  N=1 '4;"YOU GOT THESE WORDS WRONG-" E$=" " 4,0;"MAGIC" 6@,0;"BOARD" 14,26;0;E$ S=114` !2+S,6;7;"" "16,S+5;7;"" S T=12@3@-1 S=1T 14-S,28;"*" 14`-S,28`;" " S U=28`10 -1 15p-S,U;"*" 15p-S,U;" " U +J(N)=115-S,U;N;" ";B$(C,N)  N=N+1 .6,N+2*N T <19,0;6;"PRESS C FOR A PRINTED COPY OR" J721,2;6;"PRESS ENTER TO CONTINUE." OF$ PF$""F$"C"28954 Q F$="C" R J(110) S1SC7((*3)*700)+6500d TZ Y R=R+1 ^R<110300 _ c<10 ,0;4;"10 TESTS HAVE BEEN COMPLETED." m 60< r 300  FLAG=0  6,0;4;"Key in the ";1;"PASSWORD";0;" and then press ";1;"ENTER";0;" to see the lists held at present.", h$:h$=""3006 Xh$u$:1;10 ,2;"Sorry, incorrect password!":200:300,  TS=110 :7;"TEST ";S;" ":T=110 :B$(S,T);" ";:T:S :::60< FLAG=195200% G6;"Would you like to change a list? Please key Y or N.", ""3033 =""3034 %"N"Ʀ"Y"Ʀ"y"Ʀ"n"3033 ="N"300, ="n"300,  7;"Which list do you wish to alter?Key a number between 1 and ";o-1;", followed by ";1;9 ;"ENTER" h$ h$=""3055 'H$<480ůH$>5793055 $h$<"1"h$>(O-1)3055 h=h$ h>10 3055 #h<1h>o-13055 @4,0;4;"This is what list ";h;" contained." "d=110 :B$(h,d),,:d x19,0;6;"Now key in the words, after each word press ENTER."," (Maximum length 15.)", 23658j\,8 d=110 3h$:6;4+d,0;" " h$>153086 L14,16;"Do you wish to",,"change this?",,1;"key Y or N" )0;7;4+d,0;h$ ""3095 =""3096 "Y"Ʀ"N"3100 !="Y"3086 "E14,16;" ",," ",," " & B$(h,d)=h$ Nd  3000  Z=1X-1  7;" NAME ";A$(Z),   "TEST SCORE"  T=1  S=1R-1 S=10 T=0 T;S;" ";A(Z,S) S =19,0;6;"Press C for printed copy or",,, )6;"Press ENTER for next pupil.", K$ K$""K$"C"4055}p  K$="C" Z   300  (6;2,8;"WIZARD BOX" ;16,0;"Connect the MIC lead then press a key" #8,4;" 1983 Scisoft"  0 "WIZARD BOX"1  100d  300, o 5999o p m=09 O502+m,125}:0;30,-30:0;502,70F m 12 ,8;"CORRECT" &18,0;"WELL DONE ";A$(Z) S=160p S  dO$(17,32 ) )O$(1)=" " *O$(2)=" " +O$(3@)=" " ,O$(4)=" " ,O$(5 )=" " -O$(6@)=" " ,O$(7`)=" " ,O$(8)=" " ,O$(9)=" " .O$(10 )=" " /O$(110)=" " 0O$(12@)=" " 1O$(13P)=" " 1O$(14`)=" " 1O$(15p)=" " 1O$(16)=" " 1O$(17)=" "  S=117 #S+4,0;0;O$(S) S S=16@ 11 ,26;" " 12@,26P;" " 14`,26P;" " 15p,26P;" " 110,25H;"" 12@,25H;""  14`,25H;"" 15p,25H;"" 110,26P;"" 12@,26P;"" 14`,26P;"" "15p,26P;"" '110,25H;" " ,12@,25H;"" 114`,25H;"" 615p,25H;" " 8.01z# =,-10 ;S @S=17` E,9 +S,14;2;"" G.2~L,2 JS ^s=020 `.04|# =,30-S c0s<6s>18s,13 ;7;" " d0s<6s>18s,15;7;" " e0s<6s>18s,17;7;" " hs r 502 |s=021 .04|# =,30-S 0s<8s>18s,16;6;" " 0s<8s>18s,18;6;" " 0s<8s>18s,20;6;" " 9s=200,16;7;5;" " s  502 )S=17` ++9+S,8;"" 0S 5.11 ,11 ;4;"**************" :.12 ,11 ;4;"*WIZARDS BOX*" ?.13 ,11 ;4;"**************" XO$(8,5 ) ]O$(1)=" " bO$(2)=" " gO$(3@)="" lO$(4)=" o" qO$(5 )=" - " vO$(6@)=" " {O$(7`)="" O$(8)=""  S=1  T=1S  .02{# =,S 0t=1T-S+4,6;0;O$(T) 0t>1T-S+4,6;2;O$(T) T  S=S+1 S<6@7051\X 2,S-5  200    pG=15 0:2:0: a6;" THE MAGIC SPELL MAGICIAN CAN CORRECTLY GUESS THIS CARD. CAN YOU?" R8,4;1;7;" ";5,20;4;"CLUES" M=110 I8+m,4;1;7;"";2;"";7;"" M 019,4;1;7;" "  SUIT=(*4)+144 CARD=(*9 )+1 CARD=57420 sSUIT=1448,16;2;7;"1. THE SUIT IS";9 ,16;7;" HEARTS " sSUIT=1468,16;2;7;"1. THE SUIT IS";9 ,16;7;" DIAMONDS " $jSUIT=1458,16;7;0;"1. THE SUIT IS";9 ,16;" CLUBS " .jSUIT=1478,16;7;0;"1. THE SUIT IS";9 ,16;" SPADES " 8iCARD<511 ,16;5;0;"2. THE CARD IS";12 ,16;" LESS THAN 5" BiCARD>511 ,16;5;0;"2. THE CARD IS";12 ,16;" MORE THAN 5" Lp15,16;4;" TYPE IN A";16,16;"NUMBER BETWEEN";17,16;" 1 AND 9." V=""7510V [>5797510V `T$= jIT$=CARD19,16;6;0;1;"YOU ARE RIGHT" oIT$CARD19,16;3;0;1;"YOU ARE WRONG" sT$CARD7560 tM=120 v.05|L,4+M xM y 7570 <6,2;1;2;0;"THE CARD IS:"  502 M=14 %.5,4:.5,-4 M M=110 ySUIT=144SUIT=1468+m,4;1;2;7;" ";2;CARD;SUIT;" ";CARD;SUIT;" " ySUIT=145SUIT=1478+m,4;1;0;7;" ";0;CARD;SUIT;" ";CARD;SUIT;" " M Y=1502:Y G    D" WATCH THE MAGIC SPELL MAGICIAN PRODUCE LITTLE FURRY CREATURES " 100d:0:  M=1502 "H=(*21) ,Y=(*30) @ .02{# =,H }K=((*7)+1) ~0:H,Y;K;"" m I=15 ANIMALS=0  100d  :7 30,20:0,40(:175,0:0,-40(:0,40(:30,30:0,-40(:0,40(:-175,0:-30,-30 m=16 !m+1:34"+(m*25),65A:10 ,0:-10 ,0:0,10 :10 ,0:0,-10 :10 ,10 :-10 ,-10 :0,10 :10 ,10 :0,-10 :0,10 :-10 ,0:-10 ,-10 m g0,0;4;0;" HOW MANY ANIMALS DOES THE MAGICIAN HAVE HIDDEN? " 8,,6;0;"TYPE IN A NUMBER BETWEEN 1 AND 6" =""8130 H$= >5468130 18,14;H$ m=16:502 FURRY=(*2)  FURRYANIMALS=ANIMALS+1 0:34"+(m*25),65A:10 ,0:-10 ,0:0,10 :10 ,0:0,-10 :10 ,10 :-10 ,-10 :0,10 :10 ,10 :0,-10 :0,10 :-10 ,0:-10 ,-10 "FURRY=1.04|# =,5 ?FURRY=112 ,3+(M*3.5`);M+1;"" M RH$=ANIMALS21,1;4;1;"WELL DONE THE NUMBER IS RIGHT" WH$ANIMALS21,3;1;4;"NO, THE CORRECT NUMBER IS ";ANIMALS & 200 :I ?N=18 DM=(*9 ) N.02{# =,M+20 XN l #( "A",0,99c,119w,119w,127,62>,28,8,"B",568,568,568,254,254,254,16,16,"C",0,8,28,62>,127,62>,28,8,"D",8,28,62>,62>,127,127,107k,8,"E",0,15,31,63?,127,127,63?,31,"F",112p,252,244,255,248,192,128,0,"G",0,0,0,14,122z,255,255,252 #-4:5,9 ;0;6;"PLEASE WAIT" #2H=17 #<h$ #FA=07 #PB #Z h$+A,B #dA #nH #s #x %:FLAG=1 %[O=11;10 ,0;"There are no lists entered!":250:300, %4,0;4;"The teacher or parent should nowchoose which list of words is required ";1;7;"BUT";0,, %!t9 ,0;6;"you will only be allowed to see the lists of words if you key inthe correct password!", %"23658j\,8 %&i$ %'i$=""9510&% %+i$u$2002 %0 %:>9 ;"Which of the ";O-1;" lists would you like?" %?~6,0;"Press a number from 1 to ";O-1;" OR key X to see the lists, followed by ";1;"ENTER" %XC$ %YC$=""9560X% %ZC$="X":3010 %[C$<"1"C$>"9"9560X% %^C=C$ %_#C<1C>O-19560X% %b 2002 zlqJH2#F#bHGfosxr  : scisoft ? ?]A ;0:0:0::"":0,0;"":"" logo @owm6lmm6mmm6lmm6mmm 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>~<|x|B<BBBDBB$@BBDbBBBBB|B@BBBR@B~|BBB@B~BJNZ BDDBB$@BBDFB$>~BBx|B<8888888888888888888888888888888888888888888888888888888888888888wizard boxPI0P5:5:1: :236099\,100d 0z=(*8):l=(*8):q=(*8)  J(11 ) ,6,10 ;9 ;"SCISOFT":l:q D7,10 ;z;"";L;"";Q;"";Z;"";L;"";Q;"";Z;"" D5,10 ;z;"";L;"";Q;"";Z;"";L;"";Q;"";Z;"" +12 ,8;4;"PROGRAMS FOR" (15,9 ;9 ;"EDUCASHUN" a1,8;9 ;z;"W";l;"I";q;"Z";z;"A";l;"R";z;"D";q;" ";l;"B";z;"O";q;"X" 721,3;6;"PRESS ENTER TO CONTINUE." ""14 3 N5:5:1:15,9 ;"EDUCASHUN":V=114 &4:15,28-V;"TION" V V=114` 15p,32-V;" " V V=1100H V  9000(# 31,4;4;"WELCOME TO WIZARD BOX" 14,0;7;0;"ARE YOU :-" X7,0;1;"1.";0;" Using the program for the first time?" k10 ,0;1;"2.";0;" Wishing to keep the childrensnames and words already entered?" c13 ,0;1;"3.";0;" Wishing to keep the names, but change the words?" a16,0;1;"4.";0;" Wishing to change the names, but keep the words?" ;21,2;6;"PLEASE PRESS KEY 1,2,3 or 4." !""33 #=""35 ( C=1 -#"1"Ʀ"2"Ʀ"3"Ʀ"4"35# 2="2"300 3=="3"B$(10 ,10 ,15):O=1:300, 4J="4"A$(45-,16):A(45-,10 ):X=0:300, 7 F=0 8 O=1 < S=0 A X=0 F R=1 P B$(10 ,10 ,15) d 300 F=1  ^O=11 20::10 ,0;"THERE ARE 10 LISTS ENTERED":150:300, _R=11 20::10 ,0;"THERE ARE 10 SETS OF MARKS!":150:300, 10 ,0;"Please key in a ";1;7;"PASSWORD";0;5;" up to 6letters long.":23658j\,8 u$:u$=""161 U$>6161  &4;0,10 ;"LIST ";O g2,0;7;1;"PLEASE KEY IN 10 WORDS UP TO 15 LETTERS LONG. " S=110 23658j\,8 G$ G$=""173- B$(O,S)=G$ 0S=10 S+6,5;S;". ";B$(O,S) S=10 1859 $S+6,6;S;". ";B$(O,S) S O=O+1 721,3;6;"PRESS ENTER TO CONTINUE." G$ G$""195C ,5:5:1: 17;"DO YOU WISH TO-" 2: 341;"1.";0;" ADD A NEW LIST OF WORDS?" 4 651;"2.";0;" START A NEW SET OF NAMES?" ; @+1;"3.";0;" ADD MORE NAMES?" E J.1;"4.";0;" START THE PROGRAM?" K L11;"5.";0;" PRINT OUT THE SCORES?" M N-1;"6.";0;" SAVE THE PROGRAM?" O P51;"7.";0;" CLEAR OUT THE MARKS ONLY?" Q R21;"8.";0;" CHANGE A SET OF WORDS?" S921,2;6;"PRESS THE REQUIRED NUMBER." T""340* Y=""345, ^<"1"Ʀ"2"Ʀ"3"Ʀ"4"Ʀ"5"Ʀ"6"Ʀ"7"Ʀ"8"340T `="1"150 c="2"1000z h="3"1003z m="4"2000z r="5"4000z w="6"5000@ x="8"3000 {<7390 | R=1 A(45-,10 ) 7:5,7;0;6;"SCORES CLEARED"  100d  300  X=1 A$(454,16) A(454,10 ) X>4541250@ oX=020::6;1;10 ,4;"START A NEW LIST OF NAMES!":250:300,  M4;"Please type in your name, then press ENTER. "  "To escape entry, press xx " 23658j\,8 G$ g$=""1020 2G$>1815,0;"NAME TOO LONG!" G$>181020 G$="XX"X=1X=0 G$="XX"g$="xx"300, 10 ,10 ;G$     D6;" Do you wish to change this? Press y or n.", ""1050@ %"Y"Ʀ"y"Ʀ"N"Ʀ"n"1055 $="Y"1004{ ) A$(X)=G$ . X=X+1 3X=4681250@ B 1004{  B10 ,0;0;2;"REGISTER IS FULL OF NAMES." S=1100H S  300   9500% SX=0:1;10 ,2;"NO NAMES ENTERED!":100d:300, F=0300, R>10 29115 Z=1X-1  SC=10  A=1 1:5:5: 23658j\,8  !4;"HI THERE ";A$(Z);".",  B4;"Listen to the word on the tape,or read the problem", L10 ,0;"WHEN YOU THINK YOU KNOW THE WORD THEN TYPE IT IN. " &18,0;1;"WORD ";A <14,0;6;"THEN PRESS ENTER TO CONTINUE." N$(1,15p) G$ G$=""2050 G$="XX"29005@ N$(1)=G$ !N$(1)=B$(c,A)2200 SC=SC-1 J(A)=1  m=110 2502+m,120x:3,40(,502 m  m=110 !390Z+m,120x:3;-40(,502 "m $?8,0;2;0;"SORRY BUT YOU WERE WRONG" % & *"THE WORD WAS ";B$(C,A) /S=130p 4S 5 A=A+1 7A=1102400 8 9@ 21,0;4;"TRY VERY HARD WITH THE NEXT WORD" > 200 D H 2020|  J(A)=0  6000;  A=A+1 A=1102400  +4;"NOW PREPARE FOR THE NEXT WORD." S=150H S   2020| Z ` j,1;"*THIS IS THE END OF YOUR TEST.*" oS=126 q4,S;2;"" rS sT=418 tT,0;2;"" |T ~&6,2;4;"NAME " %3,10 ;4;"REPORT" 6@,110;A$(Z) C8,2;4;"SCORE ";5;" ";SC;" OUT OF 10" (12 ,2;4;"COMMENT -" .SC=10 12@,10 ;" EXCELLENT" 8SC=8SC=912@,10 ;" VERY GOOD" 0SC=7`12@,10 ;" SATISFACTORY" 9SC=6@12@,10 ;" ONLY JUST GOOD ENOUGH" 3SC<6@12@,10 ;" NOT GOOD ENOUGH" A(Z,R)=SC :19,0;6;"KEY C FOR A PRINTED COPY OR" 521,0;6;"KEY ENTER TO CONTINUE." D$ D$""D$"C"2501P D$="C"  N=1 '4;"YOU GOT THESE WORDS WRONG-" E$=" " 4,0;"MAGIC" 6@,0;"BOARD" 14,26;0;E$ S=114` !2+S,6;7;"" "16,S+5;7;"" S T=12@3@-1 S=1T 14-S,28;"*" 14`-S,28`;" " S U=28`10 -1 15p-S,U;"*" 15p-S,U;" " U +J(N)=115-S,U;N;" ";B$(C,N)  N=N+1 .6,N+2*N T <19,0;6;"PRESS C FOR A PRINTED COPY OR" J721,2;6;"PRESS ENTER TO CONTINUE." OF$ PF$""F$"C"28954 Q F$="C" R J(110) S1SC7((*3)*700)+6500d TZ Y R=R+1 ^R<110300 _ c<10 ,0;4;"10 TESTS HAVE BEEN COMPLETED." m 60< r 300  FLAG=0  6,0;4;"Key in the ";1;"PASSWORD";0;" and then press ";1;"ENTER";0;" to see the lists held at present.", h$:h$=""3006 Xh$u$:1;10 ,2;"Sorry, incorrect password!":200:300,  TS=110 :7;"TEST ";S;" ":T=110 :B$(S,T);" ";:T:S :::60< FLAG=195200% G6;"Would you like to change a list? Please key Y or N.", ""3033 =""3034 %"N"Ʀ"Y"Ʀ"y"Ʀ"n"3033 ="N"300, ="n"300,  7;"Which list do you wish to alter?Key a number between 1 and ";o-1;", followed by ";1;9 ;"ENTER" h$ h$=""3055 'H$<480ůH$>5793055 $h$<"1"h$>(O-1)3055 h=h$ h>10 3055 #h<1h>o-13055 @4,0;4;"This is what list ";h;" contained." "d=110 :B$(h,d),,:d x19,0;6;"Now key in the words, after each word press ENTER."," (Maximum length 15.)", 23658j\,8 d=110 3h$:6;4+d,0;" " h$>153086 L14,16;"Do you wish to",,"change this?",,1;"key Y or N" )0;7;4+d,0;h$ ""3095 =""3096 "Y"Ʀ"N"3100 !="Y"3086 "E14,16;" ",," ",," " & B$(h,d)=h$ Nd  3000  Z=1X-1  7;" NAME ";A$(Z),   "TEST SCORE"  T=1  S=1R-1 S=10 T=0 T;S;" ";A(Z,S) S =19,0;6;"Press C for printed copy or",,, )6;"Press ENTER for next pupil.", K$ K$""K$"C"4055}p  K$="C" Z   300  (6;2,8;"WIZARD BOX" ;16,0;"Connect the MIC lead then press a key" #8,4;" 1983 Scisoft"  0 "WIZARD BOX"1  100d  300, o 5999o p m=09 O502+m,125}:0;30,-30:0;502,70F m 12 ,8;"CORRECT" &18,0;"WELL DONE ";A$(Z) S=160p S  dO$(17,32 ) )O$(1)=" " *O$(2)=" " +O$(3@)=" " ,O$(4)=" " ,O$(5 )=" " -O$(6@)=" " ,O$(7`)=" " ,O$(8)=" " ,O$(9)=" " .O$(10 )=" " /O$(110)=" " 0O$(12@)=" " 1O$(13P)=" " 1O$(14`)=" " 1O$(15p)=" " 1O$(16)=" " 1O$(17)=" "  S=117 #S+4,0;0;O$(S) S S=16@ 11 ,26;" " 12@,26P;" " 14`,26P;" " 15p,26P;" " 110,25H;"" 12@,25H;""  14`,25H;"" 15p,25H;"" 110,26P;"" 12@,26P;"" 14`,26P;"" "15p,26P;"" '110,25H;" " ,12@,25H;"" 114`,25H;"" 615p,25H;" " 8.01z# =,-10 ;S @S=17` E,9 +S,14;2;"" G.2~L,2 JS ^s=020 `.04|# =,30-S c0s<6s>18s,13 ;7;" " d0s<6s>18s,15;7;" " e0s<6s>18s,17;7;" " hs r 502 |s=021 .04|# =,30-S 0s<8s>18s,16;6;" " 0s<8s>18s,18;6;" " 0s<8s>18s,20;6;" " 9s=200,16;7;5;" " s  502 )S=17` ++9+S,8;"" 0S 5.11 ,11 ;4;"**************" :.12 ,11 ;4;"*WIZARDS BOX*" ?.13 ,11 ;4;"**************" XO$(8,5 ) ]O$(1)=" " bO$(2)=" " gO$(3@)="" lO$(4)=" o" qO$(5 )=" - " vO$(6@)=" " {O$(7`)="" O$(8)=""  S=1  T=1S  .02{# =,S 0t=1T-S+4,6;0;O$(T) 0t>1T-S+4,6;2;O$(T) T  S=S+1 S<6@7051\X 2,S-5  200    pG=15 0:2:0: a6;" THE MAGIC SPELL MAGICIAN CAN CORRECTLY GUESS THIS CARD. CAN YOU?" R8,4;1;7;" ";5,20;4;"CLUES" M=110 I8+m,4;1;7;"";2;"";7;"" M 019,4;1;7;" "  SUIT=(*4)+144 CARD=(*9 )+1 CARD=57420 sSUIT=1448,16;2;7;"1. THE SUIT IS";9 ,16;7;" HEARTS " sSUIT=1468,16;2;7;"1. THE SUIT IS";9 ,16;7;" DIAMONDS " $jSUIT=1458,16;7;0;"1. THE SUIT IS";9 ,16;" CLUBS " .jSUIT=1478,16;7;0;"1. THE SUIT IS";9 ,16;" SPADES " 8iCARD<511 ,16;5;0;"2. THE CARD IS";12 ,16;" LESS THAN 5" BiCARD>511 ,16;5;0;"2. THE CARD IS";12 ,16;" MORE THAN 5" Lp15,16;4;" TYPE IN A";16,16;"NUMBER BETWEEN";17,16;" 1 AND 9." V=""7510V [>5797510V `T$= jIT$=CARD19,16;6;0;1;"YOU ARE RIGHT" oIT$CARD19,16;3;0;1;"YOU ARE WRONG" sT$CARD7560 tM=120 v.05|L,4+M xM y 7570 <6,2;1;2;0;"THE CARD IS:"  502 M=14 %.5,4:.5,-4 M M=110 ySUIT=144SUIT=1468+m,4;1;2;7;" ";2;CARD;SUIT;" ";CARD;SUIT;" " ySUIT=145SUIT=1478+m,4;1;0;7;" ";0;CARD;SUIT;" ";CARD;SUIT;" " M Y=1502:Y G    D" WATCH THE MAGIC SPELL MAGICIAN PRODUCE LITTLE FURRY CREATURES " 100d:0:  M=1502 "H=(*21) ,Y=(*30) @ .02{# =,H }K=((*7)+1) ~0:H,Y;K;"" m I=15 ANIMALS=0  100d  :7 30,20:0,40(:175,0:0,-40(:0,40(:30,30:0,-40(:0,40(:-175,0:-30,-30 m=16 !m+1:34"+(m*25),65A:10 ,0:-10 ,0:0,10 :10 ,0:0,-10 :10 ,10 :-10 ,-10 :0,10 :10 ,10 :0,-10 :0,10 :-10 ,0:-10 ,-10 m g0,0;4;0;" HOW MANY ANIMALS DOES THE MAGICIAN HAVE HIDDEN? " 8,,6;0;"TYPE IN A NUMBER BETWEEN 1 AND 6" =""8130 H$= >5468130 18,14;H$ m=16:502 FURRY=(*2)  FURRYANIMALS=ANIMALS+1 0:34"+(m*25),65A:10 ,0:-10 ,0:0,10 :10 ,0:0,-10 :10 ,10 :-10 ,-10 :0,10 :10 ,10 :0,-10 :0,10 :-10 ,0:-10 ,-10 "FURRY=1.04|# =,5 ?FURRY=112 ,3+(M*3.5`);M+1;"" M RH$=ANIMALS21,1;4;1;"WELL DONE THE NUMBER IS RIGHT" WH$ANIMALS21,3;1;4;"NO, THE CORRECT NUMBER IS ";ANIMALS & 200 :I ?N=18 DM=(*9 ) N.02{# =,M+20 XN l #( "A",0,99c,119w,119w,127,62>,28,8,"B",568,568,568,254,254,254,16,16,"C",0,8,28,62>,127,62>,28,8,"D",8,28,62>,62>,127,127,107k,8,"E",0,15,31,63?,127,127,63?,31,"F",112p,252,244,255,248,192,128,0,"G",0,0,0,14,122z,255,255,252 #-4:5,9 ;0;6;"PLEASE WAIT" #2H=17 #<h$ #FA=07 #PB #Z h$+A,B #dA #nH #s #x %:FLAG=1 %[O=11;10 ,0;"There are no lists entered!":250:300, %4,0;4;"The teacher or parent should nowchoose which list of words is required ";1;7;"BUT";0,, %!t9 ,0;6;"you will only be allowed to see the lists of words if you key inthe correct password!", %"23658j\,8 %&i$ %'i$=""9510&% %+i$u$2002 %0 %:>9 ;"Which of the ";O-1;" lists would you like?" %?~6,0;"Press a number from 1 to ";O-1;" OR key X to see the lists, followed by ";1;"ENTER" %XC$ %YC$=""9560X% %ZC$="X":3010 %[C$<"1"C$>"9"9560X% %^C=C$ %_#C<1C>O-19560X% %b 2002 zlqJH2#F#bHGfosxr  :