ZXTape! 0Created with Ramsoft MakeTZXsuperspell!)_# 6  6  0 ( 39935 210 ;"PLEASE WAIT" <"5;"SUPERSPELL IS LOADING" F23613=\,0:1 P 8 Z 236077\,100d:8 d"" n0,0;:"" x0,0;:"" Ss eUL< xc#?ʪh,>  x?ȏH$ 8<iL6d ?4`=L"dÀ ?@l"ds ?$@p.?7@08@>A/À  < YZS  ?@  r? p ? @ HR@@ O?@@ "!p? @p?O?? @r8` @"RH ! @@r!?@ @@ @@"@8" ? @"8!!@#"?܂@??@ "<@F@"@@ e "@@@>?   <>? <@>@ ? ?X?X@ ~X"XXXpXLC XX@X$X$ "@XX@XXXCX?X XX XpXXXO? XpXXXXX?O ??`~ fap  d#@ ?pp?pc Op??   2B>@ q 2 ?ǀBB2 2 p ? BBB  B  ?@?B ?B?? >inQ00p??!00/??|?@pp?CpX?? |?p?|  p @(|~(?"? @@p?܂p` ?? #@?܂P?C @S (DA~""@! r6? ??@ ??@#tC@@? r ?? @"??r8 H"8"@?@ @@"""@"|C? ?p?p>>?>>"??!?" "<<"|  @x"x@O!XXXCXCO???tXX?XtXX? OXXxP ?X@?"DxXpX?XXpXXXXXXx @XX`C C6!#?APSp#???p ?@?SCpC?? Cpp@C@@2*!ʦ   (8?#C@Dp  p??s ?` ~? ? @ @? ?H    @ @BB2 0  "! ||/SSSS ?<~B~~~~^^~~zqqq8㎎qqq88888qqqqq888ǀq888? >>~~~?$88 ?||<<?<<||? @?`;p@???????``p000<Áp8 <8l|||888888|||?@?*********?p=? 00000````` 00000````` 000000``````  ~<00000x0``````8p00000000000000x0000x~<<~~~~~<???<88<<6? $ $>$ $ 8|$$ @x·<~Á8pp88p8Ƕ{kzBo3kyk^Zgq[W_77֎;??_G_o(o?`8AGmB(@;  $` 00`@@@`  ` ~~~~pp  ppp ppp ggo@@ f$$foÁ @@ DOOOOO_#CoOONL0bMA@??0b8|||p????BBB$$??''ۙ``|>>|>>x>@@@@?????7????0?OO??0~~?  oUUU|P ?UUUUUUPP~      91~cccccccccccc? 0<`0 `@` 0ՁBBB  Bf$$$$0 `@f~~ <0011 <1100~~<?xxx3~`|@`0~~"?@ @DUB<~~"DD<۷"H"۷۷<~?<~??????????~~~~~~~~??=;ݻݻݻܼ|> 0|??|0`?||?`0>| 0{JJJKmmaammmmmymy?>>>~~|||||||||***A *** ?w`````?pp````իժ~UUիիիիիժժժժUUUUUUUUիիիիիիիիժժժժUUUUUUUUիիիիիիիժժժUUUUUUիիի?????????0xxxxx P8888P 0??8888$<<<<<<<<<<<<<<<<<<<<<<<<*? ?Á?jjj$B@  ```` @XC[Chh UUUUUUYY8(wnnnnnwtnnnnnnnnnnnnnnwwt܈8??:5jUռWUUU`ju*5UUU`888̌ 8888888  ????????>>@ >~G??޾|~~{}>>}}>|~>}{||}>~<~߾|~<~?ի??ի~?8h?ߟ???{#w8v?q@????5<????????~ZB<<<< @bRJFB@ <<<~~   ~~<<< @ >@<|@` DPAB0@ 4HbH ?????????>>>>cc ppppp #` #CC```hhdd Ubb ~~pppppp<????~<~Á xx@||@? l$ m$   @@@  aժUUUUUU```````@CGGGCACÁB````````GGOWGGGO```````?p`````??͌`031  13?~???@Z?>?888yyyyyyyy8p8p8p;;q@?8 8xUTx8 TUPPP 3{{0ccݘ܌?1{{1>ހqq~~??~~~~ jTjT*T*T*V*VjTjTjTjT*T*T*T*T*V*V*V*V~~????p?~<<<<<<<<~ZZ~ZۙZ<XXMFX|>|>||????~((@ ֫UUz@@@@`t 0@P P    @Q<~ LJ ???0xx???;;{qq?ގpp?8>?7555W=UUUUUUUUWV^\\Xxp UUUUUUWWp`W ?UUUVUU` <  I$I0    II$I$I00?Lc2L?cyy2~åBp  (<@P(P  ??ffff@_@_PWU@_@}A}}UTUUUUTW@_@ P_@@_PU ޢUUUWP_@UUUWPTUUu@????9 r9C#'Fƈ2!cGN8pxv>߸@  @$?(Hh(0 ;p?><<?I$<<<$Hu?UUUW0000???1??00??00??00??x?000?>|?s|> ?&???xؘ 𰰸 a~~~Áa~~~?@`px|~??߿ .%#! > @I* @>?G!ß$$$$$𘜞!G$$$$$Ó>? 0  6"" _W߯_~u*5 W~^_Xp_@ ?wX?;333܌>|>|Ȑ @>|>|x~~p8~8p@~@p88pUUJ?<~>|x|>??Á x8??}}?a 888ppp 88ppUWg``````s?~~<<<?~~ `px3 y@ss;;{󳿞??????p ;;Q;A23613=\,84T:236077\,60<:23681\,0 6::0:0:6:" " 1''3;5;"  1984 by JOHN M. LEWIS " $'''" D I S T R I B U T E D B Y" j'3;" " ''" P R O D U C E D B Y":'1;" " 137,11 :-3,3:0,2:2,3:2,-3:1,-2:-2,-2 134,18:-1,1:0,5:1,2:3,-2:2,2:2,-2:2,-4:-1,-6:-3,-2 X6,4:2,3:1,4:-1,1:-4,-1 Y141,12 :2,0:3,1:1,2:-1,1 ]135,12 :-2,-1:-2,1:-1,2:4,-1 G-4,4:-2,5:1,1:3,-2 q130,21:4,-4:135,24:0,-2:136,26:2,0 _#0;1;" Press any key to start ":.2~L,20:9999':99c 6#0;1;m$:1,-30:500:  n$=a$(n) (.a$(n,n$)=" "n$=n$(̱n$-1):40( - 2P17,4;"Your score is : ";s;" point"+"s"(s1);6;" ": FK4,0;"Your total score is : ";t(n);" point"+"s"(s1): b initialise game  d39935:6: x 6 6 236099\,502 23658j\,8 23562 \,1  intrinsic functions  (w$()="(remember to press ENTER also) " v$()="stndrdththththththth" &u$()="----------" W initialise variables  X&s=0:þ23681\1010  merge a data tape  "If you have any TAPES for use with this program and would like to use one of these tapes then please type in only the number of the tape. If you do not have anyTAPES then type in 0."'(w$()),b$  validate input data  _b$<480ůb$>579űb$1m$=" A NUMBER BETWEEN 09 ONLY. ":20:700 b$="0"1010  data tape prompt  0:"Ensure theTAPE is fullyrewound and then press the playbutton on the cassette player.TheTAPE will then commenceloading.";#0;5;3;"TAPE ";b$;" is loading " "SPELL"+b$:"SPELLPICS"+b$  6:  number of players  M"How many players want to play SUPERSPELL? (19 are allowed)";(w$()),b$  validate keypress  b$1ůb$<491ůb$>579m$="ONLY BETWEEN 19 PLAYERS ARE ALLOWED TO PLAY SUPERSPELL ":20:1010  visual confirmation  1:0,11 ;"SUPERSPELL";1,9 ;"is set up for";2,11 ;b$;" player"+"s"(̰b$>1):6  make room for data  p=b$ #a$(p,12 ):q$(p):a(p):t(p) # information loop  $ n=1p .8"What is player ";(n);"'s first name ?",(w$()),a$(n) 7 validate loop data  8|a$(n)<2a$(n,1)=" "m$=" THE LENGTH OF YOUR NAME SHOULD EXCEED TWELVE CHARACTERS ":20:1070. A visual confirmation  B71;5;'"Player ";n;" is:";0;a$(n); G 30 K collect player's age  L>"What age are you ";(n$);" ?",(w$()),b$:b$=""1115[ U validate age data  V<g=1̱b$:b$(g)>579ůb$(g)<4801115[ Xg Z 1120` []m$=" A MAXIMUM OF TWO CHARACTERS CAN BE ACCEPTED, PLEASE RE-ENTER ":20:1100L ` a(n)=b$ eda(n)=((5*(a(n)<5))+(a(n)*(a(n)>4))(a(n)<13 ))+((12 *(a(n)>12 ))) i visual confirmation  j)5;1;" Age:";0;a(n) ka"Would you like Pictures, Clues Both or Neither ";(n$);" ? ",(w$()),b$ lWb$"P"b$"C"b$"B"b$"N"m$=" PLEASE ANSWER P, C, B N ":20:1131k t q$(n)=b$:n } start game prompt  ~23561 \,1 3#0;1;"PRESS ANY KEYPLAY SUPERSPELL" .02{# =,502:25 continue till keypress  =""1160  start game    item store  b$(p*10 ,10 )  number of go's loop  g=110 number of players loop   n=1p  choose a random word  ٺ(*3):8;"";8;"";18;"";7;" ";1;"THINKING";0;" ";7;"";18;"";8;" ";16;""'17;"";16;" ";17;""'16;"";16;"" n'15;"";14;" ";13 ;" ";14;" ";15;"";16;"" ?z=(*2)+(a(n)=5):x=(*2)+(a(n)=12 ) e=(((a(n)<6)*0)+((a(n)>11 )*7)+(((a(n)>5)(a(n)<12 ))*(a(n)-5))+9000(#+(((a(n)>5)*(a(n)-5))+z)-(((a(n)<13 )*(a(n)-5))+x)) e  fetch the word  1d=65368X-(e-9000(#)*160*20 c=0̥*20 d$,e$ e=(d/256) *23675{\,d-e*256:23676|\,e w$=d$ d=d-160 c  check word length  %d$<10 d$=d$+" ":2050  check word duplication   4c=n*10 -9 n*10 -10 +g-1 b$(c)=d$2034 *c 3 store the word  4 b$(n*10 -(10 -g))=d$ >b=20-w$: G display picture  H!q$(n)="C"q$(n)="N"3000 R 7:(*3):7,12 ;"*********";8,12 ;"* *";9 ,12 ;"* *";10 ,12 ;"* *";11 ,12 ;"* *";12 ,12 ;"* *";13 ,12 ;"* *";14,12 ;"*********"  display screen  30:7:1:0,(32 -n$-17)/2;"It's your ";g;v$()(g*2-1g*2);" go ";n$:q$(n)="N"q$(n)="P"3030 "1,10 ;"YOUR CLUE IS" ?5:0:2,(32 -e$)/2;1;e$ 7:1:502 70F J19,(32 -w$-16)/2;"YOUR GUESS IS : ";u$()(̱w$) J20,(32 -w$-16)/2;"THE ANSWER IS : ";u$()(̱w$) 23658j\,0  word loop  g$="" c=1̱w$  2nd chance if needed  d=12 019,c+(32 -w$)/2+7;"?" k$=  check illegal keys  (k$<97aůk$>122z3530  make jump if correct  6k$=w$(c).3,40(:s=s+1:3570 9d=1#0;9 ;1;" SECOND CHANCE " .5,-40(:"" d B=B-1  print right & wrong  /19,c+(32 -w$)/2+7;k$ 220,c+(32 -w$)/2+7;w$(c)  g$=g$+k$  502  c  bonus check  Bd=0:c=1̱w$:d=d+(w$(c)g$(c)):c:d=w$b=0 21,13 ;1;"BONUS=";b:3*(b=0),-502:c=50265A:.02{# =*(b0),c:.05|L*(b0),c-c/2:c:2*(b0)+.5:.5*(b0),33!  update total score  t(n)=t(n)+s+b $ 70F -pause for visual conf.  .+#0;1;" PRESS ANY KEYGAME " 8.02{# =,502:35# Acontinue till keypress  B=""36408 L 6: U reset temporary score  V s=0 n g  final score table  c=t(1):0:'3;"THE SUPERSPELL CERTIFICATE";12 ;"OF MERIT"::20,170:215,0:0,-20:-215,0:0,19  n=1p %" ";a$(n);" scored ";t(n);" points" n  [ one player-one winner  \p=1n=p:4850 many players-one winner g=:c=0  d=1p t(d)>gg=t(d):n=d d  d=1p t(d)=gc=c+1 d:c=14850  multiple winners  %"The joint highest scorers are :":  n=1p 7t(n)=g30:(32 -n$)/2;4;n$ n  4860  one outright winner  T" The outright highest scorer is ":30:'(32 -n$)/2;4;n$ 216,21:15,15,*5.8883667