C64S tape image file INTRO 2 BASIC 1  CSENTENCES OUNIT7QUIZ \UNIT8PROG UNIT9QUIZ  UNIT10QUIZ UNIT11PROG UNIT12QUIZ ,SOUND DEMOR3TUNEB5CRAPSd@REACTION-zBHEADS UNIT9QUIZ649 COPYRIGHT (C) ANDREW COLIN 1982J0,2:4,15,4v " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY" <::" GOOD LUCK!"2FJ112:Y$:9PNCZZ(N)WdJ1N:Z(N)0:`nSC0kxJ1N}Z(J)0 200JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N#:" THIS IS";(100SCN0.5);"PERCENT");D1(N(1))M Z(D)1200ZCZ(D)1d1200oT13A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120"""""GJ039:3072J,160: 2048J,C:pJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150/BA$"%"JJW:K3:1070EGA$"\" A$(34)wL307240JK,(A$) 63: 204840JK,15:KK1V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";A$""Q$:Q$"" 13071(Q$)20 1314AA$""1307h" ";:A$(A$,(A$)1):1307"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330+A$(A$,1,P1)$.1321<2 (Y$,1)"%"1380D<P2dF(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410 (Y$,P,QP)A$1500PQ1:1390%:R1:+@ETS6(1R)(6(1))1V^J1S:Z$:uh"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750L" NOW TYPE ANY KEY":ZX$"ABCD"bY$rX$Y$2050"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT (#7[#"WHICH KEYS DO YOU USE TO SWITCH%ON FLASHING?%A)FLASH ON AND SHIFT%B)FLASH#" ON AND CRTL%C)FLASH ON AND THE COMMODORE KEY%D)FLASH ON AND ESC%#",B%##"WHAT HAPPENS TO THE CLOCK AT%MIDNIGHT?%%A)IT STICKS AT \235959\%B)IT GOES1#" ON TO \240000\%C)IT GOES BACK TO \000000\%#",C%##"WHICH OF THESE DOES NOT SPOIL THE%SETTING OF THE CLOCK?%%A)THE RUN/STOP KEY%#"B)THE RESET BUTTON%C)SWITCHING OFF%D)LOADING A NEW PROGRAM%E)NONE OF THESE%#"#"A%THE RUN/STOP KEY%#"@#"IT IS LEGAL TO INCLUDE A%COMMAND LIKE%150 TI$=\090000\%IN A PROGRAM,%e#"BUT IS IT SENSIBLE?%%#",N%NO%##"WHAT COLOUR IS CODED BY A%REVERSED E?%%",#,"WHITE%#"#"DOES THE RESET BUTTON, IF PRESSED%BY ITSELF, DESTROY YOUR PROGRAM?%%"##,Y%YES%#D#" HOW CAN YOU GET OUT OF A LOOP%WITHOUT SPOILING YOUR PROGRAM?%%"#"A)HIT RUN/STOP%B)PRESS RESET%C)SWITCH OFF THE COMPUTER%#",A%#0,2:4,15,4> " QUESTION AND ANSWER PROGRAM."j:" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY"<::" GOOD LUCK!"FJ112:Y$:PN ZZ(N)dJ1N:Z(N)0:(nSC03xJ1NEZ(J)0 200LJ]J12000:J~" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200"CZ(D)1,12007T13JA$:A$""250T1000^1300h1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""""J039:3072J,160: 2048J,C:8J092040:3151J,160: 2127J,C:`J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1070 GA$"\" A$(34)?L307240JK,(A$) 63: 204840JK,15:KK1IV1070O~UgJ112:X$:nNyJ1DX$:Y$X$X$Y$:Y$ J"";A$""Q$:Q$"" 1307(Q$)20 1314 A$""13070" ";:A$(A$,(A$)1):1307L"(Q$)13 " ";:1321|# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330+A$(A$,1,P1).13212 (Y$,1)"%"1380 <P2,F(Y$,P,1)"-"PP1:1350gP(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500qZR0:ydP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@ TS6(1R)(6(1))1^J1S:Z$:=h"";Z$OrT2 1750s|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750" NOW TYPE ANY KEY":"X$"ABCD"*Y$:X$Y$2050J"NO":2000U"YES"[ JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#8%2#"THE INPUT COMMAND CAN BE USED%%%A) FOR NUMBERS%B) FOR STRINGS%C) FOR NUMBERl7#"S AND STRINGS MIXED%D) FOR BOTH BUT NOT AT THE SAME TIME%%#",C%#F#" THE COMMAND% INPUT \RQ$\; RS%INPUTS%A) RQ$ ONLY%B) RS ONLY%C) BOTHK#" RQ$ AND RS%D) NEITHER OF THEM%#","RS%B%#"6P#" INPUT X,Y%EXPECTS%%A) 1 VALUE%B) 2 VALUES%C) MORE THAN 2 VALUES%%"GU##,TWO%2%B%#Z#"TO 'INPUT \AGE\;D' THE USER REPLIES%\DONALD DUCK\.WHAT HAPPENS?%%A)THE V_#"ALUE IS ACCEPTED%B)THE MESSAGE IS 'REDO FROM START'%C)THE PROGRAM FAILS%#a#B%#?d#"TO INPUT \NAME\;DD$%THE USER TYPES%\MICKEY MOUSE\%WHAT HAPPENS?%%A)THE VAi#"LUE IS ACCEPTED%B)THE MACHINE SAYS%'REDO FROM START'%C)THE PROGRAM FAILS#k#A%#n#" 10 INPUT 777%%IS THIS%A) AN ILLEGAL COMMAND%B) A VALID COMMAND%C) A Vs#"ALID BUT USELESS COMMAND%%#",A%#Px#"10 INPUT T%20 T=93%%IS THIS SEQUENCE SENSIBLE?%%",#,"NO%N%##" WHEN THE RUN/STOP KEY IS%DISABLED HOW CAN YOU STOP%A PROGRAM?%%A) W#"ITH THE RESET KEY ALONE%B) RUN/STOP AND RESET%C) CRTL AND RESET%#"#B%# MYSTERY PROGRAM,"WHAT IS YOUR"<" NAME";X$B(S2"HELLO ";X$Y<tF"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$8SCSC1>T"WHO DISCOVERED"f"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 350B@"YOU DIDN'T GET ANY"ZJ"QUESTIONS RIGHT."cT370{^"YOU ONLY GOT ONE"h"QUESTION RIGHT."r"TRY AGAIN."|90"THAT WAS EXCELLENT,"X$;". YOU GOT""BOTH QUESTIONS RIGHT"- " QUESTION AND ANSWER PROGRAM."Y:" AT ALL TIMES, HIT ANY KEY TO"j0,2:4,15,4" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY"<::" GOOD LUCK!"FJ112:Y$:PN ZZ(N)dJ1N:Z(N)0:(nSC03xJ1NEZ(J)0 200LJ]J12000:J~" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200"CZ(D)1,12007T13JA$:A$""250T1000^1300h1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""""J039:3072J,160: 2048J,C:8J092040:3151J,160: 2127J,C:`J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3. QQ11000:A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1110GA$"\" A$(34)KL307240JK,(A$) 63: 204840JK,15:KK1TV QQZ~`rJ112:X$:yNJ1DX$:Y$X$X$Y$:Y$ J"";A$""Q$:Q$"" 1307(Q$)20 1314A$""1307;" ";:A$(A$,(A$)1):1307W"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330+A$(A$,1,P1).13212 (Y$,1)"%"1380<P27F(Y$,P,1)"-"PP1:1350rP(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500|ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1)^J1S:Z$:Hh"";Z$ZrT2 1750~|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750" NOW TYPE ANY KEY":-X$"ABCD"5Y$EX$Y$2050U"NO":2000`"YES"f JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(# 9)2#" CAN THE CONTROL VARIABLE IN%A \FOR\ COMMAND BE CALLED G$ ?%",#57#NO%N%#<#" CAN THE FINAL VALUE OF THE%%CONTROL VARIABLE IN A \FOR\%%COMMAND BEA#" A VARIABLE ITSELF?%%(E.G., AS IN \FOR FS = 1 TO GR\)%%#",YES%Y%#F#" WHEN CAN YOU LEAVE OUT THE STEP%%SIZE FROM A \FOR\ COMMAND?%%A) NEVER"jK#"%B) WHEN THE STEP SIZE IS 1%C) WHEN THE STEP SIZE IS NOT% NEGATIVE%%#"tM#"B%#P#"EXAMINE%%10 FOR Q=20 TO 37%20 PRINT Q*Q/5%30 NEXT W%% IS THIS%%A) CO U#"RRECT BASIC%B) INCORRECT BASIC%C) AMBIGUOUS CODE%%#",INCORRECT%B%#WZ#" HOW MANY COMMANDS CAN YOU PUT%%INTO THE BODY OF A \FOR\ LOOP?%%A) N_#"ONE OR MORE%B) ONE OR MORE%C) EXACTLY ONE%%#",A%#d#" CAN THE STARTING VALUE OF THE%%CONTROL VARIABLE IN A \FOR\%%COMMAND'i#" BE A VARIABLE ITSELF?%%(AS IN \FOR R = Q TO 100 STEP 4)%%#",YES%Y%#sn#" CAN THE STEP SIZE OF THE CONTROL%VARIABLE IN A \FOR\ COMMAND BE%A"s#" VARIABLE ?%#","YES%Y%#"x#"CONSIDER%%10 FOR Q=3 TO 15 STEP 4%20 PRINT Q%30 NEXT Q%%HOW MANY TIME"}#"S OVER IS THE%BODY OF THE LOOP EXECUTED?%%#","FOUR%4%#"j#"CONSIDER%%10 FOR R=7 TO 3%20 PRINT R%30 NEXT R%%HOW MANY TIMES IS THE #" BODY%OF THE LOOP OBEYED?%%A) ONCE%B) FIVE TIMES%C) NO TIMES%%#"#"ONCE%1%A%#" SOUND DEMO PLUS/4? COPYRIGHT (C) ANDREW COLIN 1984`169,262,345,383,453,516,571(596,643,685,704,739,770,7982810,834,854,864,881,897,911,917< N(22)FJ122: N(J):Jd""n" C-264 SOUND DEMONSTRATION"x" ===== ===== ============="#?" 1. TELEPHONE RINGINGT" 2. POLICE CARl" 3. BIRDS SINGING{" 4. PIPS" 5. LOW MOAN" 6. RISING SCALE" 7. FALLING SCALE" 8. ARRIVAL OF THE ALIENS" 9. DEPARTURE OF THE ALIENS(" CHOOSE A NUMBER (1 - 9) ";2 A$Q A$ "0" A$ "9" 250Z A$ (A$) 1000,2000,3000,4000,5000,6000,7000,8000,9000"100 TELEPONE RINGING7 Q15K12M112$1,770,1.1,1022,18BZ1150:LK&VP11000:-`Q3jD POLICE CARK7WQ110jX900750 8u1,X,1} XX750 900 8 1,X,1X Q* BIRDS 7 N150 Q970(30(0)) RQ20(20(0))  XQR3 1,X,1 X* J120:2 N8 C PIPSPN1 5^ 1,900,8oJ1700: Jw N 1,900,50 LOW MOAN X200 0 21,X,1 Xp RISING SCALEz X1 21 1,N(X),10 X 1,N(22),30-X FALLING SCALE5b 7Il X22 2 1Yv 1,N(X),12`Xp 1,N(1),30v@ ARRIVIAL OF THE ALIENSJ 7T X1000 200 50^ Y X X100 10h 1,Y,1r Y| J120: J X(# DEPARTURE OF THE ALIENS%2# 75<# 3,950,700HF#J1 1000: _P# X600 1000 8kZ# 1,X,5d# J1 100.4(1000X):Jn#Xx# 71,643,24: D,1,739,8 : G>(1,798,64: BQ21,834,24: D'c<1,798,8 : BqF1,770,24~P1,798,8Z1,739,24d1,770,8n1,739,24x1,722,81,685,321,739,241,722,81,685,81,596,241,685,241,722,8!1,739,24.1,772,8<1,798,16J1,834,16X1,770,96f1,643,24s1,739,81,798,641,834,24"1,798,8,1,770,2461,798,8@1,739,24J1,770,8T1,739,24^1,722,8h1,685,32 r1,810,32|1,798,8$1,834,2421,798,24?1,739,8M1,643,24Z1,722,8h1,770,24u1,722,81,739,96  CRAPS 7""I(" THE GAME OF CRAPS IS PLAYED WITH"t2"TWO DICE. FIRST YOU BET AND THEN YOU<"THROW. IF YOU GET A SCORE OF 7 OR 11,F"YOU WIN. IF YOU THROW 2,3 OR 12, YOUP"LOSE. IF YOU THROW ANY OTHER NUMBER,!Z"YOU DON'T WIN OR LOSE STRAIGHT AWAY:Fd"YOU KEEP ON THROWING UNTIL YOUln"THROW THE SAME AS YOU DID FIRSTx"TIME ( AND WIN)"OR"THROW A 7 ( AND LOSE)."HIT ANY KEY TO CONTINUE A$ A$"" 240 SET A$,B$,C$ TO LINES OF DICE PICTURE<A$" "fB$"  "C$" " GET STARTING CAPITAL"""," STARTING CAPITAL";C1 NOW START NEXT BET 6" HIT ANY KEY FOR NEXT BET"J R$'T R$"" 330G^" YOUR CAPITAL NOW IS";Cgr" HOW MUCH DO YOU BET";Wy| W 0 390" DON'T BE SO SILLY" 310 WC 420" YOU CAN'T AFFORD IT"310 ORGANISE FIRST THROW" FIRST THROW(BET=";W;")"+"";A$6J15>B$EJMC$s SHOW 10-59 DIFFERENT FACE PAIRSQ(1050(0))Z1QA(16(0))B(16(0)) SOUND A NOTE WHICH DEPENDS ON A AND B1,7003(AABB),4,"";A;"";B40 ZQI USE LAST VALUES OF A,B[NTAB~S JUMP IF PLAYER WINS OUTRIGHTX T7 1000b T11 1000g JUMP IF PLAYER LOSES OUTRIGHTl T2 1100v T3 1100 T12 1100 4" YOU HAVE TO MAKE";T;" BEFORE 7"[" HIT ANY KEY TO GO ON"d R$x R$ "" 710" NEXT THROW(BET=";W;")"" MAKING";T"" A$J15  B$ J  C$% SHOW 10-19 DIFFERENT FACE PAIRS"*Q(1010(0))04 Z1 QB>A(16(0))THB(16(0))mR1,7003(AABB),4f"";A;"";B Z IF A+B=T PLAYER WINS ABT 1000 IF A+B=7 PLAYER LOSES AB7 1100  ELSE PLAYER THROWS AGAIN)700; PLAYER WINST" YOU WIN"r ADD WINNINGS TO CAPITAL|CCW PAEAN OF PRAISEJ1500:J1,834,321,798,241,810,8 1,834,321,739,321,770,81,798,81,810,81,834,8)1,810,1671,798,16E1,770,64NG310aL PLAYER LOSES~V" YOU LOSE"[ CHIRP OF VINDICTIVE TRIUMPH` J1500:Jj X8001000 4t1,X,1~1,X23,1X TAKE LOSSES FROM CAPITALCCW! C 0 310:"YOU ARE NOW BROKE"@ REACTION TIME PROGRAM'""T"TO MEASURE YOUR REACTION TIME HIT ANY"|("KEY, AND THEN WAIT FOR THE TONE."2"WHEN YOU HEAR IT, STRIKE ANY KEY AS"<"FAST AS YOU CAN. GOOD LUCK!"F WAIT FOR ANY KEYP A$Z A$""80d WAIT A RANDOM TIMEn-x"WAIT FOR IT!"3KQTI(60301(0))T A$eA$"" 310v TIQ 150 START TONE AND NOTE TIME 71,950,4XTI WAIT FOR ANY KEY A$A$""230 GET RESULTRTI DISPLAY RESULT."YOUR REACTION TIME IS"F"(RX)60;"SECONDS"L,\6"TOO SOON"b@  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"+ SENTENCES(UNIT 6)? COPYRIGHT (C) ANDREW COLIN 1984U0,2:4,15,4:""^ N13l W$(300)yP(13,2)2000(100-"".X$(X$,2,(X$)1)"."25000<::::::" FOR THE NEXT SENTENCE"F:" HIT ANY KEY"$P 239,0/UX(1)AZA$:A$""85I_40gd MAIN SENTENCE GENERATORqiX$""n (1)0.5300x1100(1)0.3700(1)0.5170A2:10001200:800A3:1000A4:1000800,12006(1)0.3700"@(1)0.53700JA2:1000:T1100C^800QrA3:1000_|A5:1000h800{A1:1000:900 (1)0.6 *A6:1000:(1)0.5 A7:1000: SUBROUTINE TO SELECT A RANDOM WORD FROM CATEGORY A.YP(A,1)((P(A,2)P(A,1)1)(1))+Y$W$(Y)<X$X$" "Y$B]L SELECT MALE SUBJECT.pQ(1)0.51120VA8:1000:`X$X$" THE"j (1)0.4A9:1000tA10:1000~ SELECT FEMALE SUBJECT.(1)0.51220A11:1000:X$X$" THE"*(1)0.4A12:1000;A13:1000:V SET UP POINTER TABLE^X1iJ1NvP(J,1)XX$:W$(X)X$X$"Z"XX1:2040 P(J,2)X1:XX1J* DISPLAY SENTENCE X$ WITHOUT BREAKING UP WORDS ACROSS LINES(X$)405020 X$:< (X$,41,1)"" 5050L(X$,1,40)dX$(X$,(X$)41):n5000(X$,41,1)" "5080(X$,1,40)X$(X$,41,(X$)40):5000P39(X$,P,1)" "PP1:5090(X$,1,P1) :X$(X$,P1,(X$)P)5000W(#SINGS,SCRATCHES,PLAYS THE CELLO,MEDITATES,DAY-DREAMS)#PRACTICES THE FRENCH HORN,PAINTS ABSTRACT PICTURES,READS THE SUN*#MAKES POTTERY,WRITES BAD PROGRAMS,Z 2#MET,SHOOK HANDS WITH,HAD A DRINK WITH,GREETED,KISSED,ATTACKEDR3#ASSAULTED,IGNORED,DID NOT RECOGNISE,WALKED RIGHT PAST,RAN AWAY FROMx4#ARGUED WITH,CAME TO BLOWS WITH,Z<#TOOK OFF, REMOVED,DISCARDED,SOLD,WASHED,TORE OFF,GAVE AWAY,ZF#HIS SHIRT,HIS SHOES,HIS COAT,HIS SOCKS,HIS TOUPEE,HIS WATCH5G#HIS FALSE TEETH,HIS DIAMOND CUFFLINKS,HIS TOP HAT,ZP#HER WIG,HER SHOES,HER HAT,HER SPECTACLES,HER STOCKINGS,HER WELLIES,ZZ#WITH DELIGHT,IN THE PARK,EVERY DAY,YESTERDAY,LAST WEEK,THIS MORNING[#IN THE PUBLIC LIBRARY,IN THE SWIMMING POOL,IN THE HOME COMPUTER SHOP\\#IN THE STREET,IN A PHONE BOX,IN THE NEW COMMODORE FACTORY AT CORBY,Zd#ALL THE TIME,OFTEN,IN THE BATH,QUIETLY,LOUDLY,EVERY DAY AT TEN O'CLOCKe#WHENEVER THE TIME IS RIGHT,AT SUNSET,AT MIDNIGHT EVERY NIGHT,Z2n#SUPERMAN,PRINCE CHARLES,SIR CLIVE SINCLAIR,MR. ARTHUR SCARGILL,Z{x# CLEVER,HUSKY,BURLY,FAT,STUPID,HALFWITTED,AIMIABLE,GRUBBY,ELEGANT,Z#ENGINE DRIVER,PILOT,PROFESSOR,LAVATORY ATTENDANT,FOOTBALLER,LIBRARIAN#AUTHOR OF THIS PROGRAM,CBM SALESMAN,COMPUTER DESIGNER,ZN#MRS. MARGARET THATCHER, PRINCESS ANNE, MISS WORLD, DAME JANET BAKER,Z#BEAUTIFUL,PRETTY,UGLY,PLAIN,CURVACEOUS,FASCINATING,BRAINY,DEMENTED,Z#GIRL,POLICEWOMAN,BARMAID,CONDUCTRESS,SECRETARY,YOUNG LADY,DOWAGER#MODEL,BALLET DANCER,AIR HOSTESS,WAITRESS,GO-GO DANCER,Z UNIT7QUIZ649 COPYRIGHT (C) ANDREW COLIN 1982O0,2:4,15,4:""{ " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY 2" WITH THE RETURN KEY"%<::" GOOD LUCK!"7FJ112:Y$:>PNHZZ(N)\dJ1N:Z(N)0:enSC0pxJ1NZ(J)0 200JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N(:" THIS IS";(100SCN0.5);"PERCENT".@D1(N(1))R Z(D)1200_CZ(D)1i1200tT13A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T @Z(D)Z(D)1:120120""'""LJ039:3072J,160: 2048J,C:uJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 11504BA$"%"JJW:K3:1070JGA$"\" A$(34)|L307240JK,(A$) 63: 204840JK,15:KK1V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J""; A$""!Q$:Q$"" 13076(Q$)20 1314FA$""1307m" ";:A$(A$,(A$)1):1307"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300 *((A$,1))321330+A$(A$,1,P1)).1321A2 (Y$,1)"%"1380I<P2iF(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390*:R1:0@JTS6(1R)(6(1))1[^J1S:Z$:zh"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750Q" NOW TYPE ANY KEY":_X$"ABCD"gY$wX$Y$2050"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK TNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#11N2#" \TIGER\ = \LION\%%TRUE OR FALSE?%%","#","FALSE%F%#"<#" 5 < 7%%TRUE OR FALSE?%%","#","TRUE%T%#"F#" 7 <= 3%%TRUE OR FALSE?%%","#","FALSE%F%#"P#" \MOUSE\ = \HORSE\%%TRUE OR FALSE?%%","#","FALSE%F%":Z#" \UNICORN\ <> 7.3%%IS THIS%%A) TRUE%B) FALSE%C) INCORRECT BASIC%%"S_#"#","C%INCORRECT%#"d#" \THREE POINT FIVE\ = \3.5\%%IS THIS%A) TRUE%B) FALSE%C) INCORRECT"i#" BASIC%%#","FALSE%B%F%#"n#" IF Y=37 AND Z=25% Y-3 < Z+5 IS%%A) TRUE%B) FALSE%%","#"s#FALSE%B%F%#bx#" IF X HAS THE VALUE 73,% X >= 73 IS%%A) TRUE%B) FALSE%C) ILLEGAL"x}#"%%#",TRUE%A%T%##" \LAMP\=\LAMPOON\%% TRUE OR FALSE?%",#,FALSE%F%##" CONSIDER:%%10 RS=5%20 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17 THEN 20%"7#"50 STOP%% HOW MANY TIMES ROUND THE LOOP?%#",6%##" LOOK AT:%%10 SJ$=\F\%20 PRINT SJ$%30 SJ$=\J\+SJ$+\K\%40 IF SJ$ <"#" \JJJ\ THEN 20%50 STOP%WHAT IS THE LAST VALUE DISPLAYED?%#",JJFKK%#' COPYRIGHT (C) ANDREW COLIN 1984g THIS PROGRAM IS SUPPOSED TO DISPLAY THE SEVEN TIMES TABLE BUT IT CONTAINS VARIOUS (DELIBERATE) ERRORS "SEVEN TIMES TABLE"PR1NTX1("S E V E N T I M E S";X;"=";7X50 XXI< X13 40 FST0P