C64S tape image file INTRO TO BASIC 1 UNIT8PROG UNIT9QUIZ UNIT10QUIZ (UNIT11PROG %UNIT12QUIZ +*SOUND DEMO 6PIANO -8HEADS 29REACTION ' COPYRIGHT (C) ANDREW COLIN 1981g THIS PROGRAM IS SUPPOSED TO DISPLAY THE SEVEN TIMES TABLE BUT IT CONTAINS VARIOUS (DELIBERATE) ERRORS "SEVEN TIMES TABLE"PR1NTX1("7*";X;"=";7X50 XX1< X13 40FST0P " QUESTION AND"::" ANSWER PROGRAM."T:" AT ALL TIMES,"q(:" STRIKE ANY KEY TO"2:"GET THE NEXT QUESTION."3:" ALWAYS FOLLOW YOUR"4:" REPLY WITH THE"5:"  RETURN KEY!"<::" GOOD LUCK!"FJ112:Y$:PNZZ(N)3dJ1N:Z(N)0:<nSC0GxJ1NYZ(J)0 200`J}" YOU SCORED";SC:"QUESTIONS RIGHT FIRST":"OUT OF";N:"THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200C2Z(D)1200%T138A$:A$""250B1000L1300V1600sR1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""J021:7680J,160:38400J,C: .J044022:7723J,160:38443J,C:VJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1070GA$"\"A$(34)3L768022JK,(A$) 63:3840022JK,0:KK1=V1070C~I[J112:X$:bNmJ1DyX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307R(G$)R20P0A$(A$,P1):PP1:" ";:1307V!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307j#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500!ZR0:)dP1An(Y$,P,1)"#"1370IxQPi(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$rT2 1750$|"THE RIGHT ANSWER IS":"";; (Y$,1)"%"1710CP1\(Y$,P,1)"%"1750x(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750" NOW TYPE ANY KEY":JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK7TNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT>(#72#"HOW DO YOU GET OUT%OF A LOOP STOP%WITHOUT SPOILING%YOUR PROGRAM?%%A)HIT RUN/"7#"STOP%B)HIT RESTORE%C)SWITCH OFF%%#",A%#<#"DOES THE RESTORE%KEY SPOIL YOUR%PROGRAM?",%%#,NO%N%#IF#"WHAT FUNCTION IS%CODED BY A%REVERSED E?%%A)CTRL AND WHT%B)CTRL AND GRN%qK#"C)SHIFT AND X%#",A%CTRL AND WHT%#P#"IS IT SENSIBLE TO%INCLUDE A COMMAND%LIKE% TI$=\090000\%IN A PROGRAM?",%#U#Y%YES%##Z#"WHICH OF THE%FOLLOWING SPOILS%THE SETTING OF%THE CLOCK?%%A)THE RUN/STOP KEY%B"u_#")THE RESTORE KEY%C)LOADING A NEW%PROGRAM%D)SWITCHING OFF%E)NONE OF THESE%#"`# D%SWITCHING OFF%#d#"WHEN YOU TYPE%RUN/STOP AND RES-%TORE, THE SCREEN%IS CLEARED. HOW DO%GET YOUR"*i#" PROGRAM%BACK?%%A)LIST IT%B)RETYPE IT%C)SOME OTHER WAY%#",A%LIST%#n#"WHAT HAPPENS TO%THE CLOCK AT MID-%NIGHT?%%A)IT STICKS AT% \235959\%B)IT MOVESs#" ON TO% \240000\%C)IT GOES BACK TO% \000000\%#",C%# " QUESTION AND"::" ANSWER PROGRAM."T:" AT ALL TIMES,"q(:" STRIKE ANY KEY TO"2:"GET THE NEXT QUESTION."3:" ALWAYS FOLLOW YOUR"4:" REPLY WITH THE"5:"  RETURN KEY!"<::" GOOD LUCK!"FJ112:Y$:PNZZ(N)3dJ1N:Z(N)0:<nSC0GxJ1NYZ(J)0 200`J}" YOU SCORED";SC:"QUESTIONS RIGHT FIRST":"OUT OF";N:"THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200C2Z(D)1200%T138A$:A$""250B1000L1300V1600sR1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""J021:7680J,160:38400J,C: .J044022:7723J,160:38443J,C:VJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1070GA$"\"A$(34)3L768022JK,(A$) 63:3840022JK,0:KK1=V1070C~I[J112:X$:bNmJ1DyX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307R(G$)R20P0A$(A$,P1):PP1:" ";:1307V!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307j#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500!ZR0:)dP1An(Y$,P,1)"#"1370IxQPi(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$rT2 1750$|"THE RIGHT ANSWER IS":"";; (Y$,1)"%"1710CP1\(Y$,P,1)"%"1750x(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750" NOW TYPE ANY KEY":JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK7TNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT>(#92#"THE INPUT COMMAND%CAN BE USED%A)FOR NUMBERS%B)FOR STRINGS%C)FOR STRINGS AND% "7#"NUMBERS,BUT NOT% AT THE SAME TIME%D)FOR NUMBER AND% STRINGS MIXED%#",D%# <#"INPUT \XXX\;J%%HOW LONG CAN THE%STRING XXX BE ?",%%#JA#22%TWENTY TWO%TWENTYTWO%TWENTY-TWO%#F#"INPUT \RQ\;RS%INPUT%A) RQ ONLY%B) RS ONLY%C) RQ AND RS%D) NEITHER",%%#,B%#P#"INPUT X,Y%EXPECTS%%A) 1 VALUE%B) 2 VALUES%C) MORE THAN 2%VALUES",%#,2%TWO%B%#DZ#"TO'INPUT\AGE\;DD'%THE USER REPLIES% \DONALD DUCK\.%WHAT HAPPENS?%%A)THE VALUE"_#" IS%ACCEPTED%B)THE VIC SAYS,% 'REDO FROM START'%C)THE PROGRAM% FAILS%%#",B%#d#"TO INPUT\NAME\;DD$%THE USER REPLIES% \MICKEY MOUSE\.%WHAT HAPPENS?%%A)THE "?i#"VALUE IS%ACCEPTED%B)THE VIC SAYS,% 'REDO FROM START'%C)THE PROGRAM% FAILS%%#"Hm#A%#n#" 'INPUT 777'%%IS THIS %%A) AN ILLEGAL% COMMAND%B)A VALID COMMAND%C)"s#"A VALID BUT USE-% LESS COMMAND%#",A%# x#" 10 INPUT T% 20 T=93%%IS THIS SEQUENCE%SENSIBLE?",%%#,N%NO%#b#"WHEN RUN/STOP IS%DISABLED,HOW CAN%YOU STOP A PROGRAM%%A)RESTORE KEY%B)RUN/STOP#" AND% RESTORE%C)RESTORE AND CRTL%#",B%# MYSTERY PROGRAM+"WHAT IS YOUR";" NAME";X$A(R2"HELLO ";X$X<sF"PLEASE ANSWER THESE"P"SIMPLE QUESTIONS"ZSC0dn"WHAT IS THE CAPITAL"x"OF FRANCE";A$ A$"PARIS" 160"WRONG.IT'S PARIS"190"THAT'S RIGHT! WELL"+ "DONE,";X$7SCSC1=S"WHO DISCOVERED"e"AMERICA";A$|A$"COLUMBUS"270"SORRY ";X$"THAT'S WRONG. IT WAS""COLUMBUS"300"CORRECT.";X$;" IS""A HISTORY EXPERT!""SCSC1,1 SC2390%6 SC1 350A@"YOU DIDN'T GET ANY"YJ"QUESTIONS RIGHT."bT370z^"YOU ONLY GOT ONE"h"QUESTION RIGHT."r"TRY AGAIN."|90"THAT WAS EXCELLENT,"X$;". YOU GOT""BOTH QUESTIONS RIGHT" " QUESTION AND"::" ANSWER PROGRAM."T:" AT ALL TIMES,"q(:" STRIKE ANY KEY TO"2:"GET THE NEXT QUESTION."3:" ALWAYS FOLLOW YOUR"4:" REPLY WITH THE"5:"  RETURN KEY!"<::" GOOD LUCK!"FJ112:Y$:PNZZ(N)3dJ1N:Z(N)0:<nSC0GxJ1NYZ(J)0 200`J}" YOU SCORED";SC:"QUESTIONS RIGHT FIRST":"OUT OF";N:"THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200C2Z(D)1200%T138A$:A$""250B1000L1300V1600sR1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""J021:7680J,160:38400J,C: .J044022:7723J,160:38443J,C:VJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1070GA$"\"A$(34)3L768022JK,(A$) 63:3840022JK,0:KK1=V1070C~I[J112:X$:bNmJ1DyX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307R(G$)R20P0A$(A$,P1):PP1:" ";:1307V!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307j#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500!ZR0:)dP1An(Y$,P,1)"#"1370IxQPi(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$rT2 1750$|"THE RIGHT ANSWER IS":"";; (Y$,1)"%"1710CP1\(Y$,P,1)"%"1750x(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750" NOW TYPE ANY KEY":JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK7TNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT>(#92#"CAN THE CONTROL%VARIABLE IN A FOR%COMMAND BE CALLED% G$?",%#,NO%N%#<#"CAN THE FINAL%VALUE OF THE%CONTROL VARIABLE%IN A FOR COMMAND%BE A VARIABLE%IT"A#"SELF%(SUCH AS \W\)%#",YES%Y%#VF#"WHEN CAN YOU LEAVE%OUT THE STEP SIZE%FROM A FOR COMMAND%%A)NEVER%B)WHEN THE "K#"STEP% SIZE IS 1 %C)WHEN THE STEP% SIZE IS NOT% NEGATIVE%%#",B%#P#"EXAMINE% 10 FOR Q=20 TO 37% 20 PRINT Q*Q/5% 30 NEXT W%%IS THIS%A)CORRECT B"1U#"ASIC%B)INCORRECT BASIC%C)AMBIGUOUS CODE%%#",B%INCORRECT%#Z#"HOW MANY COMMANDS%CAN YOU PUT INTO%THE BODY OF A%LOOP?%%A)NONE OR MORE%B)ONE"_#" OR MORE%C)EXACTLY ONE%%#",A%#d#"CAN THE STARTING%VALUE OF THE%CONTROL VARIABLE%IN A \FOR\ COMMAND%BE A VARIABLE(i#"%ITSELF%(SUCH AS \PW\)%#",YES%Y%#zn#"CAN THE STEP%SIZE OF THE%CONTROL VARIABLE%IN A \FOR\ COMMAND%BE A VARIABLE"s#"%ITSELF%(SUCH AS \ZW\)%#",YES%Y%#x#"CONSIDER%10FOR Q=3 TO 15% STEP 4%20 PRINT Q%30 NEXT Q%%HOW MANY TIMES IS%"(}#"THE BODY OF THE%LOOP EXECUTED?%%#",4%FOUR%#|#"CONSIDER% 10 FOR R=4 TO 3% 20 PRINT R% 30 NEXT R%%HOW MANY TIMES IS%THE BODY"#" OF THE%LOOP OBEYED?%%A)NO TIMES%B)ONCE%C)TWICE%#",B%1%ONCE%#36879,25"";% A368741B36875=C36876I(D36877U2E36878`<SC(8)tFJ18:SC(J):~d"";n" SOUND DEMONSTRATION"x" PROGRAM.":"TYPE A LETTER BETWEEN"" A AND M TO HEAR A""SOUND EFFECT:":"A:SCALE (ORGAN)+"B:SCALE (PIANO)@"C:SCALE (LUTE)Q"D:GUN-FIREc"E:EXPLOSIONx"F:BIRD SINGING"G:WOLF WHISTLE"H:RUNNING FEET"I:UFO ATTACK"J:UFO LANDING"K:UFO DEPARTURE"L:BLOW-TORCH "M:DENTIST'S DRILL"A$:A$""290,,G(A$)64>6G1G13290O@GG783422GaJGG,(GG)128uOJ04:AJ,0:TG 1000,2000,3000,4000,5000,6000,9000,9500,10000,10500,11000,11500,12000^GG,(GG)128h290 175,183,191,195,201,207,212,215 ORGAN SCALE!7XSC(1):Y2:1200VJ27:XSC(J):Y1:1200:lXSC(8):Y2:1200{J72 1$XSC(J):Y1:1200:.XSC(1):Y4:12008PLAY A NOTE IN X,(ORGAN)E,15:C,XM1150Y:E,0 SHAPED SCALE%XSC(1):Y2:2200DJ27:XSC(J):Y1:2200:ZXSC(8):Y2:2200iJ72 1 XSC(J):Y1:2200:XSC(1):Y4:2200  PLAY SHAPED NOTEZ15B,X:C,XM010 YE,ZZ0ZZ1L0 5:E,0. SHAPED SCALE(LUTE)D XSC(1):Y2:3200c J27:XSC(J):Y1:3200:y XSC(8):Y2:3200 J72 1 XSC(J):Y1:3200: XSC(1):Y4:3200  PLAY SHAPED NOTE (LUTE) A,0:B,0:D,0 Z8 C,X  M05 Y E,Z% Z0ZZ13 L012:9 B E,0H X EXPLOSIONoJ110(28(1))zD,130E,15M15:E,0M0(300(1)): EXPLOSIOND,212L4 10.5E,(LL1) M1150:M,LD,0:E,0:0p BIRDS CHIRPINGBzE,15:L120_M254240((1)10)1pC,M:M:C,0M0((1)100)60 :M,L:(# WOLF WHISTLE2#E,15<#L2002351F#C,LP#LU#E,0:L0180::E,15Z#L2002351.2d#C,L n#L x# L225150 .5)#C,L0#L9#C,0B#E,0H#X% TICK-TOCKj&%E,15:L110u0%B,200:%M110:MD%B,0N%M1300:X%A,200b%M110:Ml%A,0v%M1300:%L%E,0%' UFO SHOOTING'E,15$'L015:M200220L2%.'C,M.8'M,L<B'E,0:C,0BL'T) UFO LANDING)E,15:L131:M220L160L4:C,M:)M160L220L4")C,M:M,L:E,0:C,0:* VANISHING UFO+E,15:L130240:C,L:E,15((L131)7):M140:M,L:  +C,0:E,0:, WINDS1,E,15:A,170:D,240A-L12000:V -A,0:D,0:E,0:k. DENTISTS DRILLu.X199.L015.C,X2(1).E,L.M120(1):/L/L1100/C,X2(1)&/M120(1):0/:/L150.25D/C,X N/E,LX/M12 :#b/L)v/& 216,0,0,214,0,0,206,131,145,157G0,172,181,189,0,200,0,0,0,0d0,0,211,0,0,0,0,162,0,0(0,196,0,0,0,0,0,203,209,1382167,0,177,193,0,151,0,185,0,0<218,0,220 F15,11, 7,6,5,5,4,4,4,3,3,3,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0d N(53),D(39)3nJ153:N(J):GxJ139:D(J):RJ14a36873J,0gpT40 T40 36878,D(T):TT1A$:A$ "" 230170A(A$)41A1 A5319036875,N(A):36876,N(A):T1:170  H0T0)"TYPE H FOR HEADS"<("T FOR TAILS"M2"E FOR END"b<"NEXT THROW";I$tF I$"E" 160P I$"H" 120Z I$"T" 140d"WRONG ITEM"n 60xHH1 60TT1 60"OUT OF";HT;"THROWS""THERE WERE";H;"HEADS"%"AND";T;"TAILS"+' COPYRIGHT (C) ANDREW COLIN 1981C REACTION TIME PROGRAML""c"TO MEASURE YOUR"x("REACTION TIME"2"HIT ANY KEY"<"THEN WAIT FOR THE"F"TONE. WHEN YOU"P"HEAR IT, HIT ANY"Z"KEY AS FAST AS"d"YOU CAN. GOOD LUCK!"n WAIT FOR ANY KEY$x A$4 A$""120M WAIT A RANDOM TIMESg"WAIT FOR IT!"mQTI(60301(0)) A$A$"" 340 TIQ 160 START TONE AND NOTE TIME36876,22536878,15XTI  WAIT FOR ANY KEY A$$A$""240C GET RESULT AND STOP TONELRTIY36876,0f"36878,0{, DISPLAY RESULT6"YOUR REACTION TIME IS"@(RX)60;"SECONDS"JT"TOO SOON"^