ZXTape! 0Created with Ramsoft MakeTZXèc9prog _9€_é¢&aÿÛ0:Ú7:Ù0:û î"What is your name? ";n$ î"How old are you? ";a úa<3Ëì190¾ (úa>100dËì190¾ 2 î"What year is it just now? ";y <úy<1983¿Ëì210Ò Fúy>2003ÓËì210Ò P*î"Have you had a birthday this year? ";b$ Zúb$="yes"Ëì130‚ dúb$="no"Ëì160  nõ"Please answer yes or no." x ì80P ‚ õ"Hello ";n$ Œõ"You were born in ";y-a –â   õ"Hello ";n$ ª!õ"You were born in ";y-a-1 ´â ¾4õ"That's fairly unlikely, ";n$;". Please try again" È ì20 Òõ"No it is not. Try again." Ü ì502 ¨çquiz10 ]u€Rìn(_ÿ -ê quiz program for unit n by A.M. Colin 1983 +ê copyright  Talent computer systems 1983 Û0:Ú7:Ù0:û ä10 :êchapter number #ä10 :ê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 dhä"Consider## 10 FOR b=1 TO 7# 20 PRINT b# 30 PRINT 100-b# 40 NEXT b##How many lines are displayed?" n#ä"14/fourteen/","Chapter 10","14." ÈCä" 10 FOR k=1 TO 1# 20 NEXT k##How many lines are displayed? " Ò%ä"0/none/zero/","Chapter 10","none." ,[ä" 10 FOR f = 4 TO 1 STEP -0.5# 20 PRINT 3*f# 30 NEXT f##How many lines are displayed?" 6"ä"7/seven/","Chapter 10","seven." V ä" 10 FOR w = 3 TO 17 STEP 7# 20 PRINT w;# 30 NEXTw# 40 PRINT##What is printed?" šä"31017/","Chapter 10","31017" ôLä" 10 FOR s= 1 TO 8# 20 PRINT 5# 30 NEXT s##How many lines are printed?" þä"8/eight/","Chapter 10","8." XÎä" 10 FOR jr = 1 TO 6# 20 PRINT jr# 30 NEXT jr##Is this#a) An incorrect program in# SPECTRUM BASIC#b) A program which dispays 5# lines all different#c) A program which displays 5# identical lines" b!ä"a/incorrect/","Chapter10","a." ¼pä" 10 FOR i = 1 TO 3# 20 FOR j = 1 TO 2# 30 PRINT i;j,i*j# 40 NEXT j# 50 NEXT i##How many lines are displayed?" Æä"6/six/","Chapter 10","6."  lä" 10 FOR p = 1 TO 5# 20 FOR q = p TO 5# 30 PRINT p+q# 40 NEXT q# 50 NEXT p##How many lines are displayed?" *"ä"15/fifteen/","Chapter 10","15." „gä" 10 FOR f$=@ab@ TO @abccc@# STEP @c@# 20 PRINT f$# 30 NEXT f$##Is this legal SPECTUM BASIC?" Ž$ä"n/no/f/false/","Chapter 10","no." ¶‘ä" 10 LET start = 33# 20 LET end = 57# 30 LET jump = 3# 40 FOR p= start TO end# STEP jump# 50 PRINT p,1/p# 60 NEXT p##Is this correct BASIC?" À%ä"yes/y/t/true/","Chapter 10","yes." è í9500% òãq .éS$(q,30):ém(2*q):ér$(q,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Ëå100d L ës=1Ìq VãQ$:ãA$:ãH$:ãG$ [úm(s)=1Ëì1385i ]'û:õ:õ:õ" This is question number ";s ^õ:õ `ñz$=Q$:í4000  eõ:õ:õ:õ jí6000p:û kiú±d$>30Ëõ:õ:õ" Sorry, that was too long.":õ" Please type a shorter answer.":ò100d:ì1117] lúj=1Ëì1137q 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$(pÌn-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Ëì1385i -õ:õ 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 ðúllllÇqqËõ" ";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$=""Ëì6010z úy$ÉÂ12 Ëì6040˜ „úpx=0Ëì6030Ž ‰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$)>127Ëì6030Ž §.×.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)>90ZËì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$+"@":ì9060d# #Púi$(m)=" "Ëì9060d# #Z ñu$=u$+i$(m) #dóm #nñi$="" #xëm=1̱u$ #‚-ú¯u$(m)<65Aůu$(m)>90ZËì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 ëtrains Mr€3ŸX&Oÿ  êGlasgow-Oban Travel Û0:Ú7:Ù0:û õ"When can you leave Glasgow?" )ît$:êt$ is time passenger wants to leave ( õ 2 õt$ < õ F ãn:ên is number of trains P3 ãd$,a$:êd$ and a$ are departure and arrival times Z út$>d$Ëì130‚ dõ"Your best train is at ";d$ n õ"Arriving at ";a$ x ì160  ‚ ñn=n-1 Œ ún>0Ëì80P – õ"No more trains today."   î"More information?";x$ ª û ´å ¾ ì20 Èä3:ênumber of trains Òä"0804","1116" Üä"1255","1600" æ ä"1823","2130" nXTD0804A1116»ítune -€´)/ÿ êTune player Û0:Ú7:Ù0:û  ñd=0.2~LÌÌÌ:êduration constant ñp=1:êpitch constant (ãda,pa 2úda=0Ëì80P < ×da*d,pa+p F ì40( P â È%êLand of Hope and Glory (first line) Òä2,12 Üä2,12 æä1,11 ðä1,12 úä2,14 ä4,9 ä4,7  ê2nd. line "aä2,5,2,5,1,4,1,5,2,7,8,2 , ê3rd. line 6rä2,4,2,4,1,6,2,7,1,9 ,4,14,4,7 @ ê4th. line Jeä2,12 ,2,12 ,1,12 ,2,11 ,1,9 ,8,7 T ê5th. line ^vä2,12 ,2,12 ,1,11 ,1,12 ,2,14,4,9 ,4,7 h ê6th. line raä2,5,2,5,1,4,1,5,2,7,8,2 | ê7th. line †rä2,4,2,4,1,6,2,7,1,9 ,4,14,4,7  ê8th. line šgä2,17,2,17,1,17,2,16,1,14,8,16 ¤ ê9th. line ®uä2,9 ,2,9 ,1,11 ,1,12 ,2,14,4,7,4,12 ¸ êLast line Âgä2,12 ,2,12 ,1,17,2,16,1,14,8,12 Ì êterminator Öä0,0 d~LÌÌÌp¤á°áQßtrs €ˆÀiŸÿ êTransylvanian Election Results Û0:Ú7:Ù0:û +õ¬2,0;" Absolute Majority" (5õ¬3,0;"________________________________" 21õ¬19,0;"Teetotal Anti-blood Moral" <6õ¬20,0;"Tories Sports party Anarchists" F6õ¬18,0;"________________________________" P ñtt=0 Z ñab=0 d ñma=0 n5î"Party of next winning candidate (tt,ab or ma)";w$ xúw$É"tt"Ëì180´ ‚ñtt=tt+1 Œõ¬19-tt,3;"†††" –úttÉ16Ëì300,  5õ¬1,0;"Victory for the Teetotal Tories!" ªâ ´úw$É"ab"Ëì240ð ¾ñab=ab+1 Èõ¬19-ab,13 ;"" ÒúabÉ16Ëì300, Ü+õ¬1,1;"Anti-blood sports win." æâ ðúw$É"ma"Ëì350^ úñma=ma+1 õ¬19-ma,24;"‰‰‰" úmaÉ16Ëì300, 5õ¬1,1;"Moral Anarchists sweep the field" "â ,útt+ab+ma<31Ëì110n 6×1,5 @(õ¬0,0;"No overall majority" Jâ ^"õ¬0,1;"NO SUCH PARTY" h×2,18 r$õ¬0,1;" " | ì110n ´ô¡â­áÆ