ZXTape! 0Created with Ramsoft MakeTZXpBtestcard c! lB &e!*COPYRIGHT  TALENT COMPUTER SYSTEMS 1983  co=0  0  1000  0  "" This program displays all the" ($"various colours the SPECTRUM can" 2""show, and lets you adjust your" < "TV set for the best picture." A F0:0 Kz$="" Pz$;:1:" Black" Z 1 d.0:z$;"";:1:0:" Blue" n 2 x:0:"";z$;:1:0:" Red Dull" 3 20:"";z$;:1:0:" Purple" 4 =0:"";z$;:1:0:" Green colours" 5 20:"";z$;:1:0:" Cyan" 6 50:"";z$;:1:0:" Yellow" 7 50:"";z$;:1:0:" White"  0:1 " Black" 1 """;:0:" Blue"  2 0"";:0:" Red Bright"  3 "&"";:0:" Purple" , 4 61"";:0:" Green colours" @ 5 J&"";:0:" Cyan" T 6 ^)"";:0:" Yellow" h 7 r)"";:0:" White" w 420 |j=07 j k=1500:k j  1500  c=175K:c  420 % 1:7:0:7   60<,502 &$ 0,0,9 ,0,1,9 ,1,2,7,2,3,5,2,4,5,2,5,5,2,6,5,2,7,5,2,8,5,2,9 ,5,2,10 ,5,2,11 ,5,2,12 ,5,2,13 ,5,13 ,13 ,2,2,14,5,12 ,14,3,2,15,5,11 ,15,4,1,16,14,0,17,15,0,18,15 02 256,256,256,80P,502 Dk 8,0,4,6,1,7,4,2,5,10 ,2,5,3,3,5,11 ,3,5,2,4,5,12 ,4,5,1,5,6,12 ,5,6,1,6,6,12 ,6,6,0,7,6,13 ,7,6,0,8,6,13 ,8,6,0,9 ,6,13 ,9 ,6,0,10 ,6,13 ,10 ,6,0,11 ,6,13 ,11 ,6,0,12 ,6,13 ,12 ,6,1,13 ,6,12 ,13 ,6,1,14,6,12 ,14,6,2,15,5,12 ,15,5,3,16,5,11 ,16,5,4,17,11 ,6,18,7,8,19,4 I3 256,256,256,103g,502 N  7,0,4,14,0,2,5,1,11 ,3,2,13 ,2,3,6,12 ,3,4,2,4,5,13 ,4,3,1,5,6,13 ,5,3,1,6,6,14,6,2,0,7,6,0,8,6,0,9 ,6,0,10 ,6,0,11 ,6,11 ,11 ,6,0,12 ,7,11 ,12 ,6,1,13 ,6,12 ,13 ,5,1,14,6,12 ,14,5,2,15,6,12 ,15,7,3,16,6,11 ,16,8,4,17,14,6,18,10 ,8,19,6 S3 256,256,256,130,502 X 0,0,9 ,0,1,9 ,1,2,7,2,3,5,2,4,5,2,5,5,2,6,5,2,7,5,2,8,5,2,9 ,5,2,10 ,5,2,11 ,5,2,12 ,5,2,13 ,5,2,14,5,2,15,5,2,16,5,1,17,7,0,18,9 ,0,19,9 ]3 256,256,256,145,502 b 7,0,4,14,0,2,5,1,11 ,3,2,13 ,2,3,6,12 ,3,4,2,4,5,13 ,4,3,1,5,6,13 ,5,3,1,6,6,14,6,2,0,7,6,0,8,6,0,9 ,6,0,10 ,6,0,11 ,6,0,12 ,6,1,13 ,6,15,13 ,1,1,14,6,14,14,3,2,15,6,13 ,15,3,3,16,12 ,4,17,10 ,6,18,7 g3 256,256,256,175,502 l 6,0,4,3,1,9 ,2,2,4,8,2,6,1,3,4,9 ,3,5,1,4,5,9 ,4,6,1,5,5,9 ,5,5,2,6,3,8,6,6,7,7,6,5,8,5,5,9 ,8,7,10 ,7,2,11 ,2,9 ,11 ,6,1,12 ,4,9 ,12 ,6,0,13 ,6,9 ,13 ,6,0,14,6,9 ,14,6,0,15,5,8,15,6,1,16,12 ,3,17,9 ,5,18,5 q 256,256,256  127,120x,15  118v,105i,15  136,105i,15  i=1  f,g   a,b,c  a>255830>   0;f+a,g-b * 0;c,0 4 780  >$ i<6i=i+1:770 R 1500 \ 25  0:7:0   ::: 'a$="" 'b$=" " a$  b$ 5"";14;1;"NOW";0;31;"" b$ $+ "";11 ;"stop tape.";31;"" .b$ 8a$ B c=11000:c L 500  d=0.1}L:p=0  a,b co=co+1 .co=491d*a-0.025{L,p+b:1690  a=01560 a-(a/8)*8  d*a-0.025{L,p+b  1520  2,0,4,5,4,5,1,5,1,7,1,9 ,1,10 ,2,12 "c 2,5,4,7,2,7,1,9 ,1,10 ,8,9 , 2,0,1,5,1,7,1,5,1,7,1,9 ,1,10 ,1,9 ,1,10 ,2,12 62,7,2,9 ,2,7,2,5,1,7,1,9 ,2,7,2,5,8,4 @ 2,0,2,4,2,0,2,7,2,4,2,12 ,1,11 ,1,9 ,1,7,1,5 Jb 1,4,1,2,4,0,3,2,1,4,8,0 T 4,5,3,5,1,0,2,2,4,-2,2,5,2,10 ,2,9 ^2 2,7,2,5,6,0 h 2,7,4,12 ,4,10 ,1,9 ,1,5,1,10 ,1,7,2,12 rC 2,10 ,4,9 ,4,7,8,5 |t6,9 ,2,9 ,2,10 ,4,10 ,2,9 ,2,10 ,2,9 2,7,2,5,6,0,2,7,4,12 ,4,10 ,1,9 ,1,5,1,10 ,1,7,2,12 ,2,10 ,4,9 ,4,7,8,5,0,0  1500  Bifg2ab d}LpZ A B Xquiz1 l aZB 6'n - quiz program for unit n by A.M. Colin 1983 + copyright  Talent computer systems 1983 0:0:7:  5000 1:chapter number #6:numberof questions ( "OK","Good","Right","Correct" 2&"Wrong","No","Incorrect","Not right" <~" A little more work needed."," Room for improvement."," That was good in parts."," Not bad at all!"," Excellent!" dprogram data goes here n."What is the flashing black square called ?" x&"thecursor/thecurser/cursor/curser/" "Section 1.2" "The cursor" o"Which key do you use to rub out ?##a)the DELETE key#b)the SPACE key#c)you can't rub out# Answer a, b or c." %"thedeletekey/delete key/delete/a/" "Section 1.2" "the delete key" "What key must you hold down when using the DELETE key?##a)ENTER#b)CAPS SHIFT#c)SYMBOL SHIFT#d)no key# Answer a, b, c or d." :"b/capsshift/thecapsshift/thecapsshiftkey/capsshiftkey/" "Section 1.2" "the caps shift key" r"When you have typed a command, which key makes the SPECTRUM obey it?##a)ENTER#b)RUN#c)GOTO# Answer a, b or c." "a/theenterkey/enter/" "Section 1.2" "the enter key" "How does the SPECTRUM react to a typing mistake when you press ENTER ?#a)It goes blank#b)It carries on regardless#c)It flashes a question mark#d)It breaks down# Answer a, b, c or d." "c/c)/itflashesaquestionmark/" "section 1.2" "It flashes a question mark" "What key must you hold down to get a red symbol (such as +)?##a)SYMBOL SHIFT#b)SYMBOL SHIFT AND CAPS SHIFT#c)another key# Answer a, b or c." 3"a/symbolshift/symbolshiftkey/thesymbolshiftkey/" ""Section 1.2" ,"The SYMBOL SHIFT key"  9500% q .S$(q,30):m(2*q):r$(q,20) -w$(4,10 ):F$(5,30) &j=1q*2:m(j)=0:j $j=14:r$(j):j .j=14:w$(j):j 8j=15:F$(j):j =j=1q:s$(j)="":j Bj=01 Gj=1100d L s=1q Q 100d VQ$:A$:H$:G$ [m(s)=11385i ]':::" This is question number ";s ^: `z$=Q$:4000 e::: j6000p: kid$>30::" Sorry, that was too long.":" Please type a shorter answer.":100d:1117] lj=11137q oS$(s,1̱d$)=d$ q_(d$="help"d$="HELP")m(s+j*q)=2:5,0;" The answer is:":::" ";G$ sSd$=S$(s,1̱d$)j=1::" You put that the first time!":1120` tl=d$ ~b$=""  m=1l d$(m)=" "1190  b$=b$+d$(m) m +b$="help"m(s+(j*q))=2:1290   p=1 p>a$1285  " "; n=p $a$(n)"/"n=n+1:1240 2A$(pn-1)=b$m(s+j*q)=1:1285 p=n+1:1220 0A$(n)="/"A$(n+1k)=b$m(s+j*q)=1  :::" "; .m(s+(j*q))=0w$(1+(4*)) ,m(s+j*q)=1r$(1+(4*)) 8m(s)=2j=0"Look at ";:z$=H$:4000  :: "&m(s+q)0j=01320( #&" The answer is"::::" ";:G$ (j=01385i -: 2cm(s)=2m(s+q)=0" Still wrong! Read up the":" following section again:":" "; lll 4060: =z$(ppp)="#"4060:ppp=ppp+1:j$="":4030 ,j$=j$+z$(ppp):ppp=ppp+1:4030 routine to display j$ llll=j$:qq=29 llllqq" ";j$: Aj$(qq+1)=" "" ";j$(qq):j$=j$(qq+2):4070  pppp=qq -j$(pppp)" "pppp=pppp-1:4110 9" ";j$(pppp-1):j$=j$(pppp+1):4070  0:4:0   ::: % "" % " "  " ";  1  "NOW";  0  " " % " " % " turn off tape recorder " % " " % " then hit any key to run "  % " " % " this program " % " " (% "" 2 x$=:x$=""51702 < 0 A 7 F P 30 px$="":px=0:ti=0 r " "; u#1:" ";:0:8; zy$=:y$=""6010z y$12 6040 px=06030 Z.1}L,0:x$=x$(px-1):px=px-1:" ";8;8;" ";8; y$=:y$""6030  6005u ,y$=13 .1}L,5:6060 ,(y$)<32 ů(y$)>1276030 =.1}L,12 :y$;:x$=x$+y$:px=px+1:6030 e$=x$ d$="" i=1̱e$ -e$(i)<65Aůe$(i)>90Z6130 &d$=d$+(32 +e$(i)):6140  d$=d$+e$(i) i  6 @ z$  4000  8100 #(Jthis routine puts all of a string into lower case and removes the spaces #2l=i$ #<u$="" #F m=1l #Pi$(m)=" "9060d# #Z u$=u$+i$(m) #dm #ni$="" #xm=1̱u$ #-u$(m)<65Aůu$(m)>90Z9110# #&i$=i$+(32 +u$(m)):9120# # i$=i$+u$(m) #m # %:5:ch %&34,0;" This is a quiz to test your" %0!" knowledge of chapter ";ch;"." %: %D#" Type in your answers to the " %N!" questions on the screen, and" %X" then press the ENTER key." %b&:" If you don't know the answer," %l!" type help followed by ENTER " %v#" and the SPECTRUM will give you" %{ " a hint." %:" Hit any key to begin." %x$=:x$=""9610% % X Stypex d WB (f Typing exercise COPYRIGHT  ANDREW COLIN 1983  0:  5000 &0:8000@:initial heading n # l=502 $rating=0 (p$(n,502) - 0 .!:::" Wait a moment please!" 2 j=1n <k Fl=(k*)+1 P m=1k Zq$ dm=lp$(j)=q$ nm xj !13 : Number of parameters a7,"an imposing","a grand","an exclusive","a primitive","a remote","a lonely","an ornate" ܋7,"shooting lodge in the Highlands","holiday camp in the North of Scotland","hotel in Mayfair","castle on the top of a mountain" U"health farm on the Isle of Man","night club in the West End","bungalow in Peebles" b6,"dastardly","hideous","fiendishly clever","peculiarly horrible","diabolical","desperate" 7,"The butler","The cook's pet rat","Aunt Agatha","A complete stranger","A retired bishop","A passing tramp","A visiting sheikh" 4,"drowned in a bird bath","electrocuted by a badly-wired computer","devoured by a man-eating tiger","hit on the head by a poker" `8,"kitchen","dungeon","bathroom","lavatory","wine-cellar","TV room","bar","conservatory" e7,"cask of 300-year-old brandy","twelve-ton statue of Cupid","complete set of encyclopaedias" e "little-known masterpiece by Perugino","gold-plated teapot","diamond toothpick","pedigree hamster" Z6,"safe","mantel-piece","refrigerator","linen cupboard","potting shed","bread bin" "7,"a hankerchief drenched in cheap perfume","a jogging shoe covered with mud","a Mickey Mouse mask","an empty tin of anchovies" 'Z"a master key to all the bedrooms","an empty vodka bottle","a large lump of chewing-gum" ,y7,"Sherlock Holmes","Father Brown","Hercule Poirot","Inspector Maigret","Tintin","Lord Peter Wimsey","James Bond" 65,"After a year and a half","Almost immediately","After exhaustive enquiries","Two minutes later","After months had passed" @d6,"Count Dracula","the butler's mother-in-law","a foreign spy","the swimming pool attendant" E;"the gardener's boy","the Creature from the Black Lagoon" Jg5,"was caught trying to sell the swag at Sotheby's","was caught trying to hide in the dust-bin" Ox"tried to commit a similar crime in Slough","confessed to everything in a drunken moment","was betrayed by the parrot" * m(x ,y H)=(x+y+(x-y))/2 Ou()=(((23674z\)*256+23673y\)*256+23672x\)/502  temporary %ter=0:tsR=0 *b$ 4b$="zzz"860\ > 2200 R 2300 W 810* \0:::: f"Your final rating was" p:" ";rating z$::" Would you like to go again?" {" ( Answer y/n )" x$=:x$=""910  x$="n" x$"y"910 210:45- j=1n:p$(j)=" ":j  805% ."In *01 *02 a *03 crime had been committed." ! "*04 had been *05 in the *06." #"A *07 was missing from the *08." "The only clue was *09." +"*10 was called in to solve the mystery." 2"*11 he found that the villain was *12 who *13." $"zzz" "zzz" lRoutine - given a string ins$ and a word or phrase in q$,append q4 to s$ and eliminate any trailing spaces  qq=502 q$(qq)" "2040 qq=qq-1:2020 s$=s$+q$(1qq): 4 q$=p$(c) > [given a string with formal parameters in b$,deliver a string with actual parameters in s$ s$="":pa=1  pa>b$ b$(pa)="*"2250 )s$=s$+b$(pa):pa=pa+1:2220 /c=(b$(pa+1pa+2)):pa=pa+3 $21004:2000:2220 Qto partition a string in s$ into a number of lines without wrap-around of words s$>32 2340$ e$=s$:e=s$:4000: $e$=s$(32 ) .s$(33!)" "2370B 86e=32 :4000:s$=s$(34"):2320 B pb=32 Le$(pb)=" "2400` Vpb=pb-1:2380L `Ue$=s$(1pb-1):e=pb-1:s$=s$(pb+1):4000:2320 This subroutine displays one line (supplied in E$) and allows the user to copy it.The line character count is in E,and the time for a correct copy is returned in T %rating is the current rating number 60::1,0;"Your rating is ";rating 23,0;"Copy this as fast as you can:" 8,0;e$ pd=0:ts=m(u(),u())  1 9 ,pd;" ";: x$=:x$=""4070 +x=x$:x<32 x>1274070 x$=e$(pd+1)4160@ 9 ,pd;x$; 0.1}L,12 618,0;" Error - hit DELETE (CAPS SHIFT" $"and 0) before you can go on. " x$=:x$""4100 x$=:x$=""4110 (x$)=12 4140, " 4095 ,x$=:x$""4140, 1_0:18,0;" " 6 4050 @0:9 ,pd;x$;: Jx$=:x$""4170J T!pd=pd+1:pd20870f ; l=(sg) @qt=nq-2*(nq/2) I"j=1nn+na:u(j)=0:j Jqt=0380| ^va=0:vn=0 h"j=1nn+na:u(j)=0:j r1000:m$=q$:415 ld=l  2200 q<0l=ld:400 C:"Hit any key as soon as you are":"ready for the next problem." x$=:x$=""416 x$=:x$""417  ld=l :"PROBLEM NUMBER ";nq  :"Your grade is now ";sg::: va=0490 j=1va " ";l$(j,22) j " ";"PRINT ";q$ : "What would be displayed?" "Type your answer below."  990 qt=0570: &b$=a$850R 0 590N :/j=1̱b$:b$(j)<"0"b$(j)>"9"590N <j =bb=b$ Dbb=q850R S$1,10 :"No. Try again." X 990 bqt=0640 lb$=a$800  v 660 /j=1̱b$:b$(j)<"0"b$(j)>"9"660 j bb=b$ bb=q800  ":"Still wrong! The answer is :" ":qt=0" ";q:700  " ";a$ !"What you said was"::" ";b$ sg>0sg=sg-0.5  860\  "Right this time." * 860\ R50.4L,20:"That's correct. Your grade is" T "going up!" W sg=sg+0.5:tr=tr+1 \nq=nq+1:3106 f&:" You got ";tr;" problems right" p!"first time. Your grade is ";sg u"If you would like to repeat" v"the exercise please type Y." w"Otherwise type N." x-a$=:a$=89Ya$=121y300, y'a$78Na$110n888x z jj=q$ q$(jj)="$"945 q$(jj)" "940 jj=jj-1:920 q$=q$(1jj+a) jj=a$ a$(jj)" "970 jj=jj-1:950 a$=a$(1jj+a)   b$:b$=0b$="NOTHING"  k=b$ 3b$(k)=" "k>1b$=b$(k-1):991  q$="":a$="" a=0:b=l l<31100L: #l<7+5*1400x: l=(l/2)-1:ll=l  1400x $,q$=q$+" +"+34"+" and "+34"+"+" .a$=a$+" and " 8l=ll:1400x: Va=01130j `$ jj=nn+1+(na*):1135o jjj=1+(nn*) ou(jj)=11110V q u(jj)=1 ta$=a$+d$(jj) ~b=11250 vn=vn+1:indirect 5l$(vn)="LET "+(va+97a)+"$ ="+34"+d$(jj) $kk=25:erase trailing spaves l$(vn,kk)" "1205 kk=kk-1:1190 a0 kk=kk+1 l$(vn,kk+1)=34" q$=q$+(97a+va)+"$" va=va+1  900: q$=q$+34"+d$(jj) 900:q$=q$+34"  "q$=q$+34"+"the "+34" (a$=a$+"the " 2 Fvn=vn+1 P?l$(vn)="LET "+(va+97a)+"$ ="+34"+"the "+34" Za$=a$+"the " dq$=q$+(va+97a)+"$" nva=va+1 s <0.51430 %1300:l=l-1:1440 1340<:l=l-2 l21520 q$=q$+"+":a=1 <0.51500 b=1:l=l-1 1100L:1440 b=2:l=l-2 1100L:1440 b=l:a=0  q$=q$+"+" 1100L: q$="" Ql1ť<0.5q$=q$+(480+(10 *)):l=l-1:2040 Pq$=q$+(97a+va):va=va+1:v(va)=1+(*(l-1)):l=l-v(va)  l<2 l42110> <0.4L2090*  q$=q$+"+":21004 * q$=q$+"-" 4l=l-1:2020 H<0.733332070 R$q$=q$+"*":l=l-2:2020 va=0:2000:m$=q$  vc=1 vc>va2280 z$="LET "+(vc+96`)+"=" #l=v(vc):2000:l$(vc)=z$+q$ vc=vc+1  2230 va<22320 j=1̺(va/2) 7q$=l$(va-j+1):l$(va-j+1)=l$(j):l$(j)=q$ j va=02370B !j=1va:q$=l$(j,7) $2400` :v(j)=q: . q<0 8j Bq$=m$+" ":2400` : j.q=0:p=1:fp=1:sp=1 tq$(p)" "2430~ y0k=0:2600( :q0q=f(1) z ~!q$(p)<"0"q$(p)>"9"2450 Af(fp)=(q$(p))-480:fp=fp+1:p=p+1:2420t !q$(p)<"a"q$(p)>"z"2470 Gf(fp)=v(va-(q$(p))+97a):fp=fp+1:p=p+1:2420t q$(p)="+"k=1 q$(p)="-"k=2 q$(p)="*"k=3 p=p+1:2600( q<0 2420t 2k32640P <sp=12690 :times F+sp=2s(1)32690 K2800 : P q<0 Zsp=12690 d>s(sp-1)=12900T :sp=sp-1:2640P n>s(sp-1)=22850" :sp=sp-1:2640P x>s(sp-1)=32800 :sp=sp-1:2640P s(sp)=k:sp=sp+1: fp=fp-1 6f(fp)>12 f(fp-1)>12  q=-1: %f(fp-1)=f(fp)*f(fp-1): ,fp=fp-1 ?#f(fp-1)=f(fp-1)-f(fp) @#f(fp-1)<0q=-1 J ^fp=fp-1 h#f(fp-1)=f(fp-1)+f(fp) r  0:4:0   ::::  " STOP TAPE" ! ::" then press any key" 2 x$=:x$=""51702 A 7 F P 100d J T " This program helps you to" ^#"develop and test your knowledge" h""of the PRINT and LET commands," r"and of the way they handle" |"simple numbers and strings."  $" You will be given 20 problems" "each in the form of a short" $"program. You have to type in ex-" !"actly what the computer would" !"display if it were to run the" !"program you see. For example," :" 10 LET a = 4" " 20 PRINT a+3" $:"would expect the answer 7 ." %::" Please press any key to get" !"the next page of information." x$=:x$=""8164 x$=:x$""8165  d:" When you answer questions":"about strings, be sure to get":"the spaces in the right place."  "They are part of the answer." $:" The problems start easy and" $"gradually get harder as you gain"  "practice." $:" We are going to ask you for" ""a 'grade' to control the level" $"of the problems. The right grade" &"to start with is 1." + 0"" As you run the program over" : "and over, you can work up to" D%"higher levels. You should reach" N"12 or more." X%:"Now type your grade,followed by" b "ENTER :" l"Grade? ";sg v     dog pig goblin witch fish hyena jackal spider toad viper duck goat tiger dirty fierce noisy smelly angry fat foul savage huge filthy slimy {5 X Qquiz4  Q 0 - quiz program for unit n by A.M. Colin 1983 + copyright  Talent computer systems 1983 0:7:0:  5000 4:chapter number #9 :numberof questions ( "OK","Good","Right","Correct" 2&"Wrong","No","Incorrect","Not right" <~" A little more work needed."," Room for improvement."," That was good in parts."," Not bad at all!"," Excellent!" dprogram data goes here n ,s"How many BASIC commands can#the SPECTRUM obey every#second?##a) about 10#b) several hundred#c) about a million#" 6>"b/hundreds/severalhundred/","Section 4,1","several hundred" ]"Which command clears the#memory,and should be used#before you start typing a#new program?" "new/","Section 4.1","'NEW'" i"When a numbered command is#obeyed it is actually#removed from the SPECTRUM's#memory.##True or false ?" ""f/false/","Section 4.1","False" X"To erase a particular#command you##a) Type NEW with the command#number#b) Type the command number#c) Type - followed by the#command number#(all,of course, followed by#ENTER)" b"b/","Section 4.1","b" "Suppose the computer already#contains a line labelled#100. You type# 100 PRINT 5+7#is the new command#a)Put in place of the old one#b)Obeyed immediately#c)Attached to the end of the#old one#d)Rejected#" "a/" "Section 4.2" "a."  Q"Name one of the correct#replies to @scroll@ if you#want your program to stop." *"n/breakspace/break/space/" 4"Section 4.1" >"N or BREAK/SPACE" RV"In a new program, label#numbers must always be#separated by 10.##True or False ?##" \"f/false/untrue/" f"section 4.1." p "False. " "Variable j has the current#value 23. Consider the#command## LETj = j + 1##is this#a) Incorrect BASIC#b) A command to set j to 24#c) A command to set j to 231"  "b/24/" "section 4.2" "24. + means 'add'" "Suppose j$ has the value#@23@. Consider the command## LET j$ = j$ + @1@#is it##a) An impossibility#b) A command to set j$ to 24#c) A command to set j$ to#@231@" "c/231/@231@/" " section 4.2" "231. j$ is a string"  9500% q .S$(q,30):m(2*q):r$(q,20) -w$(4,10 ):F$(5,30) &j=1q*2:m(j)=0:j $j=14:r$(j):j .j=14:w$(j):j 8j=15:F$(j):j =j=1q:s$(j)="":j Bj=01 Gj=1100d L s=1q VQ$:A$:H$:G$ [m(s)=11385i ]':::" This is question number ";s ^: `z$=Q$:4000 e::: j6000p: kid$>30::" Sorry, that was too long.":" Please type a shorter answer.":100d:1117] lj=11137q oS$(s,1̱d$)=d$ q_(d$="help"d$="HELP")m(s+j*q)=2:5,0;" The answer is:":::" ";G$ sSd$=S$(s,1̱d$)j=1::" You put that the first time!":1120` tl=d$ ~b$=""  m=1l d$(m)=" "1190  b$=b$+d$(m) m +b$="help"m(s+(j*q))=2:1290   p=1 p>a$1285  " "; n=p $a$(n)"/"n=n+1:1240 2A$(pn-1)=b$m(s+j*q)=1:1285 p=n+1:1220 0A$(n)="/"A$(n+1k)=b$m(s+j*q)=1  :::" "; .m(s+(j*q))=0w$(1+(4*)) ,m(s+j*q)=1r$(1+(4*)) 8m(s)=2j=0"Look at ";:z$=H$:4000  :: "&m(s+q)0j=01320( #&" The answer is"::::" ";:G$ (j=01385i -: 2cm(s)=2m(s+q)=0" Still wrong! Read up the":" following section again:":" "; lll 4060: =z$(ppp)="#"4060:ppp=ppp+1:j$="":4030 ;z$(ppp)="@"j$=j$+34":ppp=ppp+1:4030 ,j$=j$+z$(ppp):ppp=ppp+1:4030  " ";j$: llll=j$:qq=29 llllqq" ";j$: Aj$(qq+1)=" "" ";j$(qq):j$=j$(qq+2):4070  pppp=qq -j$(pppp)" "pppp=pppp-1:4110 9" ";j$(pppp-1):j$=j$(pppp+1):4070 0:4:0   :::: " STOP TAPE" ! ::" then press any key" x$=:=""5050  7   30 px$="":px=0:ti=0 r " "; u#1:" ";:0:8; zy$=:y$=""6010z y$12 6040 px=06030 Z.1}L,0:x$=x$(px-1):px=px-1:" ";8;8;" ";8; y$=:y$""6030  6005u ,y$=13 .1}L,5:6060 ,(y$)<32 ů(y$)>1276030 ..1}L,12 :y$;:y$=34"y$="@" %x$=x$+y$:px=px+1:6030 e$=x$ d$="" i=1̱e$ -e$(i)<65Aůe$(i)>90Z6130 &d$=d$+(32 +e$(i)):6140  d$=d$+e$(i) i  6 @ z$  4000  8100 #(Jthis routine puts all of a string into lower case and removes the spaces #2l=i$ #<u$="" #F m=1l #K(i$(m)=34"u$=u$+"@":9060d# #Pi$(m)=" "9060d# #Z u$=u$+i$(m) #dm #ni$="" #xm=1̱u$ #-u$(m)<65Aůu$(m)>90Z9110# #&i$=i$+(32 +u$(m)):9120# # i$=i$+u$(m) #m # %:5:ch %&34,0;" This is a quiz to test your" %0!" knowledge of chapter ";ch;"." %: %D#" Type in your answers to the " %N!" questions on the screen, and" %X" then press the ENTER key." %b&:" If you don't know the answer," %l!" type help followed by ENTER " %v#" and the SPECTRUM will give you" %{ " a hint." %:" Hit any key to begin." %x$=:x$=""9610% % X