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$: A j$(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 p x$="":px=0 :ti=0 r " "; u# 1 :" ";:0 :8 ; z y$=:y$=""6010 z y$12 6040 px=0 6030 Z .1}L,0 :x$=x$(px-1 ):px=px-1 :" ";8 ;8 ;" ";8 ; y$=:y$""6030 6005 u , y$=13 .1}L,5 :6060 , (y$)<32 ů(y$)>127 6030 . .1}L,12 :y$;:y$=34 " y$="@" % x$=x$+y$:px=px+1 :6030 e$=x$ d$="" i=1 ̱e$ - e$(i)<65 A ůe$(i)>90 Z 6130 & d$=d$+(32 +e$(i)):6140 d$=d$+e$(i) i 6 @ z$ 4000 8100 #( #2 l=i$ #< u$="" #F m=1 l #K( i$(m)=34 " u$=u$+"@":9060 d# #P i$(m)=" "9060 d# #Z u$=u$+i$(m) #d m #n i$="" #x m=1 ̱u$ #- u$(m)<65 A ůu$(m)>90 Z 9110 # #& i$=i$+(32 +u$(m)):9120 # # i$=i$+u$(m) # m # % :5 :ch %&3 4 ,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 q 1 g U OK Good Right Correct - Wrong No Incorrect Not right ƛ A little more work needed. Room for improvement. That was good in parts. Not bad at all! Excellent! B LQ You have mistakenly typed the#keyword PRINT. How many#times must you press the#DELETE key to erase the#keyword?##a) Once#b) Five times#c) You can't use DELETE to#get rid of keywords.You must#press ENTER and then retype#the command.A a/once/1/one/H section 4.1G once.Z You have mistakenly typed the#keyword PRINT. How many#times must you press the#DELETE key to erase the#keyword?##a) Once#b) Five times#c) You can't use DELETE to#get rid of keywords.You must#press ENTER and then retype#the command.l p J You have mistakenly typed thezT quiz6 q [ 0) - quiz program for unit n by A.M. Colin 1983 + copyright Talent computer systems 1983 0 :7 :0 : 6 :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!" Z program data goes here dG "@millimeter@<@centimeter@## Is this##a) True#b) False#c) Not BASIC" n% "false/f/b/","section 6.1","false." G "@Millimeter@<@centimeter@## Is this##a) True#b) False#c) Not BASIC" # "true/t/a/","section 6.1","true." , " 2*7<=15-1##True or false?" 6! "true/t/","section 6.2","true." - "@LOGIC 3@<>@LOGIC @+@3@##True or false ?#" # "false/f/","section 6.1","false." " "@3<5@ = @4<6@##True or false? " # "f/false/","section 6.1","false." X"What happens if the program#tries to GO TO a line number#which doesn't exist?#a)The SPECTRUM stops with an# error message#b)The program goes to the#next higher line (if there is#one; otherwise it stops#c)The computer gives an error#message when you type the#GO TO command." b "b/","section 4.1","b." "Consider this program:## 10 LET x=5# 20 PRINT x# 30 LET x=x+1# 40 IF x>7 THEN GO TO 30# 50 STOP##How many lines will it#display?#a)6 b)7 #c)Another number" ? "1/one/c/another number/","section 6.2","another number (1)." "Consider this program## 10 LET a=1# 20 PRINT a*a# 30 LET a=a+2# 40 IF a <= 10 THEN GO TO 20# 50 STOP##How many lines are displayed?#a) 1: b) 5: c) 6: d) 10" * "5/five/b/","section 6.2","5." " 10 LET q$ = @z@# 20 LET q$=q$+@z@# 30 PRINT q$# 40 IF q$<>@zzz@ THEN GO TO 30# 50 STOP##How many lines are displayed?#a) 1: b) 2: c) 3#d) many" ! "many/d/","section 6.2","many." 9500 % q 4 S$(q,30 ):m(2 *q):r$(4 ,20 ) - w$(4 ,10 ):F$(5 ,30 ) & j=1 q*2 :m(j)=0 :j $ j=1 4 :r$(j):j . j=1 4 :w$(j):j 8 j=1 5 :F$(j):j = j=1 q:s$(j)="":j B j=0 1 G j=1 100 d L s=1 q V Q$:A$:H$:G$ [ m(s)=1 1385 i ]' :::" This is question number ";s ^ : ` z$=Q$:4000 e ::: j 6000 p : ki d$>30 ::" Sorry, that was too long.":" Please type a shorter answer.":100 d :1117 ] l j=1 1137 q o S$(s,1 ̱d$)=d$ q_ (d$="help"d$="HELP")m(s+j*q)=2 :5 ,0 ;" The answer is:":::" ";G$ sS d$=S$(s,1 ̱d$)j=1 ::" You put that the first time!":1120 ` t l=d$ ~ b$="" m=1 l 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 2 A$(pn-1 )=b$m(s+j*q)=1 :1285 p=n+1 :1220 0 A$(n)="/"A$(n+1 k)=b$m(s+j*q)=1 :::" "; . m(s+(j*q))=0 w$(1 +(4 *)) , m(s+j*q)=1 r$(1 +(4 *)) 8 m(s)=2 j=0 "Look at ";:z$=H$:4000 :: "& m(s+q)0 j=0 1320 ( #& " The answer is"::::" ";:G$ ( j=0 1385 i - : 2c m(s)=2 m(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$: A j$(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 p x$="":px=0 :ti=0 r " "; u# 1 :" ";:0 :8 ; z y$=:y$=""6010 z y$12 6040 px=0 6030 Z .1}L,0 :x$=x$(px-1 ):px=px-1 :" ";8 ;8 ;" ";8 ; y$=:y$""6030 6005 u , y$=13 .1}L,5 :6060 , (y$)<32 ů(y$)>127 6030 . .1}L,12 :y$;:y$=34 " y$="@" % x$=x$+y$:px=px+1 :6030 e$=x$ d$="" i=1 ̱e$ - e$(i)<65 A ůe$(i)>90 Z 6130 & d$=d$+(32 +e$(i)):6140 d$=d$+e$(i) i 6 @ z$ 4000 8100 #(J this routine puts all of a string into lower case and removes the spaces #2 l=i$ #< u$="" #F m=1 l #K( i$(m)=34 " u$=u$+"@":9060 d# #P i$(m)=" "9060 d# #Z u$=u$+i$(m) #d m #n i$="" #x m=1 ̱u$ #- u$(m)<65 A ůu$(m)>90 Z 9110 # #& i$=i$+(32 +u$(m)):9120 # # i$=i$+u$(m) # m # % :5 :ch %&3 4 ,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 X c7prog -7 T _(/ , This program may contain deliberate errors 0 :7 :0 : "Nine times table" multiplicand=1 2 multiplicand ;" times 9 = ";multiplicand*9 (# multilpicand=multiplicand+1 2! multiplicand12 20 < ultiplican ultilpican X quiz8 b qqVB dSd - quiz program for unit n by A.M. Colin 1983 + copyright Talent computer systems 1983 0 :7 :0 : 8 :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!" Z program data goes here d "How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plug" n "a/stop/","section 8.1","a." i " 10 INPUT @Letter? @;a$# 20 PRINT @a@+a$+@e@# 30 STOP##What will be displayed if the#user types g ?" "age/","section 8.1","age ." ,b " 10 INPUT @Number ?@;a# 20 PRINT 2*a-7# 30 STOP##IF the user types 10, what#will be displayed?" 6 "13/","section 8.1","13." h " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types 7 #what is printed?" "66/","section 6.1","66" j " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types @dog@#what is printed?" 8 "variablenotfound/","section 6.1","variable not found" Xh " 10 LET a = 59# 20 INPUT @Number? @;x# 30 PRINT x+a# 40 STOP##If the user types a #what is printed?" b "118/","section 8.1","118" " 10 LET one=1# 20 LET two=2# 30 LET three=3# 40 INPUT @How many? @;j# 50 PRINT j+1# 60 STOP##If the user types @two@,#what is printed?##a) two+1: b) 2+1#c) three: d) 3" "3/d/","section 8.1","3" Z "How many variables can be put#into the same INPUT command?##a) 1#b) 2#c) Any number" *+ "c/anynumber/","section8.1","any number." < "Can the variables in an INPUT#command be of mixed types?" & "yes/y/true/t/","section 8.1","yes." 9500 % q 4 S$(q,30 ):m(2 *q):r$(4 ,20 ) - w$(4 ,10 ):F$(5 ,30 ) & j=1 q*2 :m(j)=0 :j $ j=1 4 :r$(j):j . j=1 4 :w$(j):j 8 j=1 5 :F$(j):j = j=1 q:s$(j)="":j B j=0 1 G j=1 100 d L s=1 q V Q$:A$:H$:G$ [ m(s)=1 1385 i ]' :::" This is question number ";s ^ : ` z$=Q$:4000 e ::: j 6000 p : ki d$>30 ::" Sorry, that was too long.":" Please type a shorter answer.":100 d :1117 ] l j=1 1137 q o S$(s,1 ̱d$)=d$ q_ (d$="help"d$="HELP")m(s+j*q)=2 :5 ,0 ;" The answer is:":::" ";G$ sS d$=S$(s,1 ̱d$)j=1 ::" You put that the first time!":1120 ` t l=d$ ~ b$="" m=1 l 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 2 A$(pn-1 )=b$m(s+j*q)=1 :1285 p=n+1 :1220 0 A$(n)="/"A$(n+1 k)=b$m(s+j*q)=1 :::" "; . m(s+(j*q))=0 w$(1 +(4 *)) , m(s+j*q)=1 r$(1 +(4 *)) 8 m(s)=2 j=0 "Look at ";:z$=H$:4000 :: "& m(s+q)0 j=0 1320 ( #& " The answer is"::::" ";:G$ ( j=0 1385 i - : 2c m(s)=2 m(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$: A j$(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 p x$="":px=0 :ti=0 r " "; u# 1 :" ";:0 :8 ; z y$=:y$=""6010 z y$12 6040 px=0 6030 Z .1}L,0 :x$=x$(px-1 ):px=px-1 :" ";8 ;8 ;" ";8 ; y$=:y$""6030 6005 u , y$=13 .1}L,5 :6060 , (y$)<32 ů(y$)>127 6030 . .1}L,12 :y$;:y$=34 " y$="@" % x$=x$+y$:px=px+1 :6030 e$=x$ d$="" i=1 ̱e$ - e$(i)<65 A ůe$(i)>90 Z 6130 & d$=d$+(32 +e$(i)):6140 d$=d$+e$(i) i 6 @ z$ 4000 8100 #(J this routine puts all of a string into lower case and removes the spaces #2 l=i$ #< u$="" #F m=1 l #K( i$(m)=34 " u$=u$+"@":9060 d# #P i$(m)=" "9060 d# #Z u$=u$+i$(m) #d m #n i$="" #x m=1 ̱u$ #- u$(m)<65 A ůu$(m)>90 Z 9110 # #& i$=i$+(32 +u$(m)):9120 # # i$=i$+u$(m) # m # % :5 :ch %&3 4 ,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 q ] U OK Good Right Correct - Wrong No Incorrect Not right ƛ A little more work needed. Room for improvement. That was good in parts. Not bad at all! Excellent! B LQ How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plugA a/stop/H section 8.1G a.Z How do you stop a program#waiting for input?##a)Type the symbol STOP after# erasing @ if necessary#b)Type N#c)Type CAPS SHIFT and BREAK# SPACE together#d)Pull out the power plugl p J How do you '