ZXTape! 2j Wizard Box - Side BScisoft1984English Educational6.95NoneOriginalTZXed by Andrew Barkerscisoft ? ?]A ;0:0:0::"":0,0;"":"" logo @om6lmm6mmm6lmm6mmm 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<BB><|<|~@@>B<BBBDBB$@BBDbBBbBB@B@@@bBBBBB|B@BBBR@BRBB~BBx|B<<B<8888888888888888888888888888888888888888888888888888888888888888WIZARD BOXx\IGMz\5: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 -#"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 %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$="X":3010 %^C=C$ %_#c<1c>o-19560X% %b 2002 lqJH2#F#bfo  xr SHE SHELL SHOW SHALL SHOP SHAPE SHARP SHEEP SHINE SHOE THE THEN THANK THEM THIS THINK MOTHER FATHER BATH MOTH SLEEP PEEP STREET SWEET CREEP MEET STEEP DEEP PEEL FEEL CRACK PACK STICK NECK CHECK FROCK KNOCK LACK LUCK DUCK SPACE SPILL SPEND SPOON SPAN SPELL CLASP CRISP SPLIT SPARROW CHIN CHAT CHART CHESS CHEST CHILD CHILL CHIP CHOP CHEEK RECEIVE DECEITFUL RECEIPT CEILING CONCEIT BELIEVE GRIEF NIECE SIEGE THIEF TREMENDOUS VICTORIOUS FAMOUS MISCHIEVOUS COURAGOUS CAUTIOUS MOUNTAINOUS FEROCIOUS FRACTIOUS ADVENTUROUS ATTENTION EXHIBITION OCCUPATION PREPARATION EXPEDITION PERMISSION PROCESSION POSSESSION DISCUSSION EXCURSION PHOTOGRAPH ELEPHANT TELEPHONE PHYSICAL PHEASANT PHANTOM PHRASE SAPPHIRE TRIUMPHANT GRAMOPHONE USCISOFTla    -SCISOFT C10c A GA  ISCISOFTHG- : scisoft ? ?](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<BB><|<|~@@>B<BBBDBB$@BBDbBBbBB@B@@@bBBBBB|B@BBBR@BRBB~BBx|B<<B<8888888888888888888888888888888888888888888888888888888888888888WIZARD BOXx\Iz\5: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 -#"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 %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$="X":3010 %^C=C$ %_#c<1c>o-19560X% %b 2002 lqJH2#F#bfo  xr SHE SHELL SHOW SHALL SHOP SHAPE SHARP SHEEP SHINE SHOE THE THEN THANK THEM THIS THINK MOTHER FATHER BATH MOTH SLEEP PEEP STREET SWEET CREEP MEET STEEP DEEP PEEL FEEL CRACK PACK STICK NECK CHECK FROCK KNOCK LACK LUCK DUCK SPACE SPILL SPEND SPOON SPAN SPELL CLASP CRISP SPLIT SPARROW CHIN CHAT CHART CHESS CHEST CHILD CHILL CHIP CHOP CHEEK RECEIVE DECEITFUL RECEIPT CEILING CONCEIT BELIEVE GRIEF NIECE SIEGE THIEF TREMENDOUS VICTORIOUS FAMOUS MISCHIEVOUS COURAGOUS CAUTIOUS MOUNTAINOUS FEROCIOUS FRACTIOUS ADVENTUROUS ATTENTION EXHIBITION OCCUPATION PREPARATION EXPEDITION PERMISSION PROCESSION POSSESSION DISCUSSION EXCURSION PHOTOGRAPH ELEPHANT TELEPHONE PHYSICAL PHEASANT PHANTOM PHRASE SAPPHIRE TRIUMPHANT GRAMOPHONE USCISOFTla    -SCISOFT C10c A GA  ISCISOFTHG- :