ENILE,DELIGHT+' KEY,DOG,CARDINAL,BINOCULARS,BASIC,PROGRAM,DRUM,BASSOON,COMMITTEE,ZZZZ7''(239)C'' 239,0c'' Z$: Z$"" Z$: 10005t''J11000:J'$'10000EEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL, HT LEG(R%)%4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,0,0,0,0,0Y%0,2,90,115,-3,7,116,164,-5,7,165,178,4,7,179,192,-3,14,193,216k%1,14,217,240%XMAP,BICYCLE,PUZZLE,QUEEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL, BOUGH,SKY,ORANGE,SHOW,TRAIN,PIG,WHALE,BOTTOMG&lCARPET,CAKE,HOSPITAL,VIOLIN,FILE,CASSETTE,MUSIC,AXE,NUMBER,LETTER&vCOMPUTER,MAGAZINE,PICTURE,RECORDER,PEN,GRASS,AIRCRAFT,NOISE,DINNER,BEER&COARSE,RUDE,OBSCENE,IMPOLITE,VULGAR,NICE,NASTY,ADULT,JUV ))4 Z1 Q>A(16(0))&HB(16(0))?R1,7003(AABB),4nf"";A;"";Bv Z IF A+B=T PLAYER WINS ABT 1000 IF A+B=7 PLAYER LOSES AB7 1100 ELSE PLAYER THROWS AGA 625v A$: A$"" 100! 1,900,59 A$: A$"" 100P J1100:J: 630s SUBROUTINE TO DISPLAY A PARTF40YXJAB:CFP%(J) CSM,Q%(J) CCM,R%(J)$J.L TO PAINT NEXT PART OF BODYVXPB%(K 1 1500 6170 17000Q%(109)213:Q%(111)201LJ98 115:R%(J)14:JWJ05w&313540J,66: 211140J,0~'J0P23:Q35K16:1100:6J3153 3633 40: J,32: J3,32:J7 3964,32 :"YOU LOSE. IT W PMZx FAILURE SOUND$ S500 25 250 1,S,17S=Q SUCCESS SOUND_ 1,890,5ev DELETE MAN""" """ "" 0"289,290,329,330,369,370,409,410,449,450,489,490W529,530,569,570,609,610,649,650,689,690,729,730769,770,808,809,810,811,848,849,850,851876,877,878,879,880,881,882,883,884,885,886,887888,889,890,891,892,893,894,895,896 H 6,200,201,202,203,204,205,206' 240,241,242,243,244,245,246; LEFT ARM (P%)o0,1,39,40,41,79,80,119,120,159,160,199,200,2400 RIGHT ARM (P%):0,1,40,41,42,81,82,121,122,161,162,201,202,241 LEFT LEG (P%) 0,1,2,40,41,42,80,81 66,95,223,160,160,95,223,160,160,95,223,160,160C95,223,160,160,95,223,160,160,95,160,160x160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,16010 ,160,227,160,160,160,160,102,160,160,160E d160,160,209,102,167,160,160,160,160,209,102,167,160,169 n160,160,209,102,172,160,160,163,163,163,163,163,163,163 x244,160,160,157,160,160,231  LEFT ARM (Q%) 233,160,106,160,160,106,160,106,1*0 310 "YOU ARE NOW BROKE" YOU WIN"D ADD WINNINGS TO CAPITALNCCWd PAEAN OF PRAISEtJ1500:J1,834,321,798,241,810,8 1,834,321,739,321,770,81,798,81,810,81,834,8 60,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160="160,160,160,98,98,120,120,120P"p GALLOWS (R%)k"z0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0, IN700  PLAYER WINS&" YOU WIN"D ADD WINNINGS TO CAPITALNCCWd PAEAN OF PRAISEtJ1500:J1,834,321,798,241,810,8 1,834,321,739,321,770,81,798,81,810,81,834,8 ,1):YQB%(K,2)`AB%(K,3):BB%(K,4)#j1000)tA GET A RANDOM WORDZX$W$(((W1)(0)))` COMPARES CURRENT LETTER WITH X$L0M1R(Z Z(M) 13602T$(T$,M1)Z$(T$,RM)< 3200M,Z: 2176M,OFL1 AS"::" ";X$;""(D:" NOW HIT ANY KEY"2N 625LXX23:Y0:A0:B89:Q1`b1700:Q%(90)32sgK16:1100:hJ3153 3633 40: J,32: J3,32:Ji 3964,32:Q%(90)66l"YOU WIN AND ARE FREE HIT ANY KEY"q A$: A$""  "!" "OJ621:" "W J]p GALLOWS (P%)0,1,2,3,4,5,6,7,8,9,1040,43,44,49,50,84,85,89,90,125,126,129,130166,167,169,170,207,208,209,210,248,249,25 EAD (P%)0,37,38,39,40,41,42,43678,79,80,81,82,118,119,120,121,122["158,159,160,161,162,199,200,201jh BODY(P%)r0,1,2,3,4,5,6,40,41,42,43,44,45,46|80,81,82,83,84,85,86,120,121,122,123,124,125,126160,161,162,163,164,165,16 ,82,120,121,122,160,161,162,200,201,202*239,240,241,279,280,281> RIGHT LEG(P%)0,1,2,40,41,42,80,81,82,120,121,122,160,161,162,200,201,202 241,242,243,281,282,283 GALLOWS (Q%)160,160,160,160,160,160,160,160,160,160,160 4,104,104,104,104,104,104,104,104,104,104,1048160,160,160,160,104,104,104,104,104G HEAD(Q%)k66,111,233,160,160,160,223,111160,209,160,209,160,160,160,241,160,160 95,202,195,203,105,160,160,160P BODY(Q%) Z160,227,160,160 60,106,160,106,160,160 ! RIGHT ARM (Q%)F!"160,223,160,160,116,160,116,160,116,160,116,160,116,160Y!| LEFT LEG(Q%)!160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160!160,160,98,98,160,120,120,120! RIGHT LEG(Q%)"1 ,0,2,0,0,0$V0,0,0,2,0,0,0,4,4,4,4,4,4,4$`4,4,4,4,4,4,4*$ LEFT ARM (R%)L$0,0,0,0,0,0,0,0,0,0,0,0,0,10a$ RIGHT ARM (R%)$ 0,0,0,0,0,0,0,0,0,0,0,0,0,10$d LEFT LEG (R%)$n4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,6,0,0,0$ RIG 0,0,0"0,0,0,0,0,0,0,0,0,0#5,5,5,5,5,5,5,5,5,5,5,5,#0,0,0,0,5,5,5,5,5<# HEAD (R%)Q#0,0,0,0,0,0,0,0t#12,12,12,12,12,12,12,12,12,12#12,12,12,12,12,12,12,12#8 BODY(R%)#B0,0,0,2,0,0,0,0,0,0,2,0,0,0#L0,0,0,2,0,0,0,0,0 1,810,16 1,798,161,770,64 G3103L PLAYER LOSESPV" YOU LOSE"r[ CHIRP OF VINDICTIVE TRIUMPH` J1500:Jj X8001000 4t1,X,1~1,X23,1X TAKE LOSSES FROM CAPITALCCW C ITHER OF THEM%#","RS%B%#"QP#" INPUT X,Y%EXPECTS%%A) 1 VALUE%B) 2 VALUES%C) MORE THAN 2 VALUES%%"bU##,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 """*J039:3072J,160: 2048J,C:SJ092040: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 "xX23:Y0:A0:B89:R(X$)A}J1 R:Z(J)((X$,J,1))64:JK1000XP23:Q0u"WORD HAS";R;"LETTERS"J1R: 3200J,42: 2176J,6:J"LETTERS USED:":"NEXT GUESS:"T$("********",1,R)K0 PQ1:1390:R1:@(TS6(1R)(6(1))19^J1S:Z$:Xh"";Z$jrT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,  SAVE"0:CRAPS",8 7(""S(" THE GAME OF CRAPS IS PLAYED WITH"~2"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 NUMBE $,B$,C$ TO LINES OF DICE PICTUREFA$" "pB$"  "C$" " GET STARTING CAPITAL"""," STARTING CAPITAL";C1 NOW START NEXT BET6 '%C)THE PROGRAM FAILS%# a#B%#Zd#"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 BA$"%"JJW:K3:1070(GA$"\" A$(34)ZL307240JK,(A$) 63: 204840JK,15:KK1dV1070j~pJ112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";A$""Q$:Q$  J0240:P%(J):&P J0240:Q%(J):=U J0240:R%(J):`Z J1 6:K14:B%(J,K):K,Jh[W0\W$(W): W$(W)"ZZZZ" WW1:92_KTI:JK100(K100)aK0J:L(0):KdQ%(109)202:Q%(111)203:J98115:R%(J)11:J:1200n" (Y$)):1750/" NOW TYPE ANY KEY":=X$"ABCD"EY$UX$Y$2050e"NO":2000p"YES"v JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#8 ";A$J15B$JC$E SHOW 10-59 DIFFERENT FACE PAIRSYQ(1050(0))dZ1QvA(16(0))B(16(0)) SOUND A NOTE WHICH DEPENDS ON A AND B1,7003(AABB),4"";A;" AKE";T;" BEFORE 7"-" HIT ANY KEY TO GO ON"6 R$J R$ "" 710l" NEXT THROW(BET=";W;")"" MAKING";T"" A$J15  B$ J  C$% SHOW 10-19 DIFFERENT FACE PAIRS*Q(1010(0 %B) A VALID COMMAND%C) A V)s#"ALID BUT USELESS COMMAND%%#",A%#kx#"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 "" 1307(Q$)20 1314$A$""1307K" ";:A$(A$,(A$)1):1307g"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330+A$(  239,0 Z$:Z$""172$Z(Z$)64; Z1 Z26 170o 3964,Z:2940,2:NL40(Z13):LLZ:NLLLZ13 2768LLNL,0: 3792LLNL,Z:2401300 L1300 1400KK1 K7 1100:170" 500, T$X$600 @2#"THE INPUT COMMAND CAN BE USED%%%A) FOR NUMBERS%B) FOR STRINGS%C) FOR NUMBER7#"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) NE R,+Z"YOU DON'T WIN OR LOSE STRAIGHT AWAY:Pd"YOU KEEP ON THROWING UNTIL YOUvn"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 " HIT ANY KEY FOR NEXT BET" J R$1T R$"" 330Q^" YOUR CAPITAL NOW IS";Cqr" HOW MUCH DO YOU BET";W WC 420" YOU CAN'T AFFORD IT"310 ORGANISE FIRST THROW" FIRST THROW(BET=";W;")""( RESET%C) CRTL AND RESET%#" #B%#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 A$,1,P1).13212 (Y$,1)"%"1380'<P2GF(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$1500 ";B0 Z#I USE LAST VALUES OF A,B-NTABPS JUMP IF PLAYER WINS OUTRIGHTaX T7 1000sb T11 1000g JUMP IF PLAYER LOSES OUTRIGHTl T2 1100v T3 1100 T12 1100" YOU HAVE TO MA DRINK WITH,GREETED,TALKED TO,SPOKE WITHc3#WAVED TO,IGNORED,DID NOT RECOGNIZE,WALKED RIGHT PAST,RAN AWAY FROMv4#ARGUED WITH,Z<#TOOK OFF, REMOVED,DISCARDED,SOLD,WASHED,LOST,GAVE AWAY,ZF#HIS SHIRT,HIS SHOES,HIS COAT,HIS SOCKS,HIS TOUPEE,HIS SAVE"0:UNIT9QUIZ",8A COPYRIGHT (C) ANDREW COLIN 1982R0,2:4,15,4~ " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WIT1:1410(Y$,P,QP)A$1500"PQ1:1390-:R1:3@MTS6(1R)(6(1))1^^J1S:Z$:}h"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750E GOLF COURSE=\#IN THE ALLEY,IN A PHONE BOOTH,IN THE NEW COMMODORE FACTORY,Zd#ALL THE TIME,IN THE BATHTUB,QUIETLY,LOUDLY,EVERY DAY AT TEN O'CLOCKe#WHENEVER THE TIME IS RIGHT,AT SUNSET,AT MIDNIGHT EVERY NIGHT,Zn#SUPERMAN,CHARLIE BROWN,PETER $(X$,P,1):PP18A$"#" 11507BA$"%"JJW:K3:1070MGA$"\" A$(34)L307240JK,(A$) 63: 204840JK,15:KK1V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J" HE RUN/STOP KEY%#"H#"IT IS LEGAL TO INCLUDE A%COMMAND LIKE%150 TI$=\090000\%IN A PROGRAM,%m#"BUT IS IT SENSIBLE?%%#",N%NO%##"WHAT COLOR IS CODED BY A%REVERSED E?%%",#,"WHITE%#"#"DOES THE RESET BUTTON, IF PRESSED%BY ITSELF, DESTROY YOUR  PAN,THE EASTER BUNNY,ZJx# CLEVER,HUSKY,STRONG,FAT,STUPID,IDIOTIC,AIMIABLE,GRUBBY,ELEGANT,Z#ENGINEER,PILOT,PROFESSOR,PHARMACIST,FOOTBALL PLAYER,ACCOUNTANT#AUTHOR OF THIS PROGRAM,CBM SALESMAN,COMPUTER DESIGNER,Z#WONDERWOMAN,PEPPERMINT PA H THE RETURN KEY"(<::" GOOD LUCK!":FJ112:Y$:APNKZZ(N)_dJ1N:Z(N)0:hnSC0sxJ1NZ(J)0 200JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N(Y$,P,1);:PP1:1690 (Y$,2,(Y$)):1750T" NOW TYPE ANY KEY":bX$"ABCD"jY$zX$Y$2050"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK TNO,WRONG,"THAT'S WRONG",NOT RIGTTIE,MISS AMERICA,CINDERELLA,ZM#BEAUTIFUL,PRETTY,UGLY,HOMELY,ATHLETIC,FASCINATING,SMART,HAPPY,Z#GIRL,POLICEWOMAN,WAITRESS,EXECUTIVE,SECRETARY,DOCTOR,OLD MAID#MODEL,BALLET DANCER,FLIGHT ATTENDANT,TEACHER,Zn#SUPERMAN,CHARLIE BROWN,PETER";A$""$Q$:Q$"" 13079(Q$)20 1314IA$""1307p" ";:A$(A$,(A$)1):1307"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P013PROGRAM?%%"##,Y%YES%#K#" 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%#HE RESET BUTTON%C)SWITCHING OFF%D)LOADING A NEW PROGRAM%E)NONE OF THESE%#"#"A%T SAVE"0:UNIT10QUIZ",8-0,2:4,15,4Y " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY"<::" GOOD L+:" THIS IS";(100SCN0.5);"PERCENT"1CD1(N(1))U Z(D)1200bCZ(D)1l1200wT13A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206THT,"NO-THAT'S WRONG",INCORRECT(#7c#"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  WATCH/G#HIS FALSE TEETH,HIS DIAMOND CUFFLINKS,HIS TOP HAT,ZoP#HER WIG,HER SHOES,HER HAT,HER GLASSES,HER COAT,HER BOOTS,ZZ#WITH DELIGHT,IN THE PARK,EVERY DAY,YESTERDAY,LAST WEEK,THIS MORNING[#IN THE PUBLIC LIBRARY,IN THE SWIMMING POOL,ON TH00*((A$,1))321330"+A$(A$,1,P1),.1321D2 (Y$,1)"%"1380L<P2lF(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%"QQ ;"PERCENT" D1(N(1))0 Z(D)1200=CZ(D)1G1200RT13eA$:A$""250o1000y13001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120"UCK!"FJ112:Y$:PN&ZZ(N):dJ1N:Z(N)0:CnSC0NxJ1N`Z(J)0 200gJxJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" THIS IS";(100SCN0.5)@Z(D)Z(D)1:120120!""*""OJ039:3072J,160: 2048J,C:xJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3 .AAT \235959\%B)IT GOES9#" 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%T SAVE"UNIT5QUIZ",8? COPYRIGHT (C) ANDREW COLIN 1982U0,2:4,15,4:""" QUESTION AND ANSWER PROGRAM."(:" AT ALL TIMES, HIT ANY KEY TO"2" GET THE NEXT QUESTION"<:" ALWAYS FOLLOW YOUR REPLYF" MUST END%WITH A ZERO.%% TRUE OR FALSE ?%"-~"%#","FALSE%F%#"z"HOW CAN YOU SLOW THE COMPUTER DOWN?%%A) BY TYPING R U N VERY SLOWLY%%""B) WITH THE COMMODORE KEY%%C) BY HOLDING DOWN SPACE %%#","B%COMMODORE%#"" A SEMICOLON AFTER A X$,P,1):PP1A$"#" 5001A$"%"JJW:K3:450c307240JK,(A$) 63: 204840JK,15:KK1l450rxJ112:X$:NJ1D&X$:Y$0X$X$Y$:Y$: JDN""; XA$""' SAVE"0:SENTENCES",8:REM(UNIT 6)M COPYRIGHT (C) ANDREW COLIN 1984c0,2:4,15,4:""l N13z W$(300)P(13,2)2000(100-"".X$(X$,2,(X$)1)"."25000<::::::" FOR THE NEXT SENTE ,(Y$)):9600" NOW TYPE ANY KEY":>X$"ABCD"FY$VX$Y$1010e"NO":970p"YES"vYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT9800 ,12006(1)0.37000@(1)0.5370>JA2:1000HT1100Q^800_rA3:1000m|A5:1000v800A1:1000:900 (1)0.6 *A6:1000:(1)0.5 A7:1000: SUBROUTINE TO SELECT A RANDOM WORD FROM  WITH THE RETURN KEY"-P::" GOOD LUCK!"?ZJ112:Y$:FdNPnZ(N)dxJ1N:Z(N)0:mSC0xJ1NZ(J)0 220J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:"  STRING%MEANS%A) START A NEW LINE%B) DON'T ST"P"ART A NEW LINE%C) RESTART THE PRESENT LINE%%#","B%#"" A VARIABLE CAN HOLD%A) JUST ONE VALUE%B) MANY VALUES,ONE AFTER""%THE OTHER%C) MANY VALUES AT THE SAME TIME%#","B%#"" IS%% ] 239,0bQ$:Q$"" 610)l(Q$)20 6508vA$""610^" ";:A$(A$,(A$)1):610y(Q$)13 " ": 690 Q$"0" (Q$"9" Q$"A") Q$"Z" 610Q$;"";A$A$Q$:610P(A$): P0590((A$,1))321220A11:1000:X$X$" THE"8(1)0.4A12:1000IA13:1000:d SET UP POINTER TABLElX1wJ1NP(J,1)XX$:W$(X)X$X$"Z"XX1:2040 P(J,2)X1:XX1J* DISPLAY SENTENCE X$ WITHOUT BRE3$" IS% X+1=X% A LEGAL BASIC COMMAND?","% A) YES% B) NO%#"C."B%N%NO%#"8" HOW FAST IS THE COMMODORE 16%%(COMMANDS PER SECOND)%%A ROUGH FIGUREB" WILL DO%#","%50-150#"L" HOW MANY COMMANDS CAN THE%%MACHINE REMEMBER AT THE SAM(X$,1,P1) :!X$(X$,P1,(X$)P)+5000b(#SINGS,SLEEPS,PLAYS THE CELLO,MEDITATES,DAY-DREAMS)#PRACTICES THE FRENCH HORN,PAINTS ABSTRACT PICTURES,READS THE PAPER*#MAKES POTTERY,WRITES BAD PROGRAMS,Z2#MET,SHOOK HANDS WITH,HAD  THIS IS";(100SCN0.5);"PERCENT"%7D1(N(1))I Z(D)1220VCZ(D)1_510jT13v  239,0A$:A$""270370"590,8506R1T1Z(D)0 SCSC1@ R1 T1 Z(D)1:360J R1 350TT ^TLET G = G + 5%%A PROPER BASIC COMMAND ?%"6"A) YES%B) NO%#","A%YES%Y%TRUE%#"OU SLOW THE COMPUTER DOWN?%%A) BY TYPING R U N VERY SLOWLY%%""B) WITH THE COMMODORE KEY%%C) BY HOLDING DOWN SPACE %%#","B%COMMODORE%#"" A SEMICOLON AFTER A 730 A$(A$,1,P1)690+ (Y$,1)"%"7803P2R(Y$,P,1)"-"PP1:750(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 840R0: P1(Y$,P,1)"#"770 QP*(Y$,Q,1)"%"QQ1:8104(Y$,P,QP)A$8NCE"&F:" HIT ANY KEY"2P 239,0=UX(1)OZA$:A$""85W_40ud MAIN SENTENCE GENERATORiX$""n (1)0.5300x1100(1)0.3700(1)0.5170A2:10001200:800A3:1000A4:1000E TIME?%%A) ADV"S MANY AS YOU NEED%%B) TEN%%C) AS MANY AS FIT IN THE STORE%%#","C%#"`"COMMANDS ARE KEPT%%A) IN THE ORDER THEY ARE TYPED%B) IN ASCENDING SEQU"j"ENCE% OF LABEL NUMBER%C) NEITHER OF THESE%#","B%#"t" EVERY LABEL NUMBER  CATEGORY A.,YP(A,1)((P(A,2)P(A,1)1)(1))9Y$W$(Y)JX$X$" "Y$PkL SELECT MALE SUBJECT.~Q(1)0.51120VA8:1000:`X$X$" THE"j (1)0.4A9:1000tA10:1000~ SELECT FEMALE SUBJECT.(1)0.5Z(D)Z(D)1:140h140r""&|""KJ039:3072J,160: 2048J,C:tJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)120W1P1:J3: K3A$( AKING UP WORDS ACROSS LINES$(X$)405020.X$:J (X$,41,1)"" 5050Z(X$,1,40)rX$(X$,(X$)41):|5000(X$,41,1)" "5080(X$,1,40)X$(X$,41,(X$)40):5000P39(X$,P,1)" "PP1:509040>PQ1:790H:R1:R.\S6(1R)(6(1))1?fJ1S:Z$:^p"";Z$ozT2 960"THE RIGHT ANSWER IS":""; (Y$,1)"%"950P1(Y$,P,1)"%"960(Y$,P,1);:PP1:930(Y$,2 0"289,290,329,330,369,370,409,410,449,450,489,490W529,530,569,570,609,610,649,650,689,690,729,730769,770,808,809,810,811,848,849,850,851876,877,878,879,880,881,882,883,884,885,886,887888,889,890,891,892,893,894,895,896 H HT LEG(R%)%4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,0,0,0,0,0Y%0,2,90,115,-3,7,116,164,-5,7,165,178,4,7,179,192,-3,14,193,216k%1,14,217,240%XMAP,BICYCLE,PUZZLE,QUEEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL, PMZx FAILURE SOUND$ S500 25 250 1,S,17S=Q SUCCESS SOUND_ 1,890,5ev DELETE MAN""" """ "" 0,0,0"0,0,0,0,0,0,0,0,0,0#5,5,5,5,5,5,5,5,5,5,5,5,#0,0,0,0,5,5,5,5,5<# HEAD (R%)Q#0,0,0,0,0,0,0,0t#12,12,12,12,12,12,12,12,12,12#12,12,12,12,12,12,12,12#8 BODY(R%)#B0,0,0,2,0,0,0,0,0,0,2,0,0,0#L0,0,0,2,0,0,0,0,0 625v A$: A$"" 100! 1,900,59 A$: A$"" 100P J1100:J: 630s SUBROUTINE TO DISPLAY A PARTF40YXJAB:CFP%(J) CSM,Q%(J) CCM,R%(J)$J.L TO PAINT NEXT PART OF BODYVXPB%(K60,106,160,106,160,160 ! RIGHT ARM (Q%)F!"160,223,160,160,116,160,116,160,116,160,116,160,116,160Y!| LEFT LEG(Q%)!160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160!160,160,98,98,160,120,120,120! RIGHT LEG(Q%)"11 1500 6170 17000Q%(109)213:Q%(111)201LJ98 115:R%(J)14:JWJ05w&313540J,66: 211140J,0~'J0P23:Q35K16:1100:6J3153 3633 40: J,32: J3,32:J7 3964,32 :"YOU LOSE. IT W4,104,104,104,104,104,104,104,104,104,104,1048160,160,160,160,104,104,104,104,104G HEAD(Q%)k66,111,233,160,160,160,223,111160,209,160,209,160,160,160,241,160,160 95,202,195,203,105,160,160,160P BODY(Q%) Z160,227,160,160,82,120,121,122,160,161,162,200,201,202*239,240,241,279,280,281> RIGHT LEG(P%)0,1,2,40,41,42,80,81,82,120,121,122,160,161,162,200,201,202 241,242,243,281,282,283 GALLOWS (Q%)160,160,160,160,160,160,160,160,160,160,160ENILE,DELIGHT+' KEY,DOG,CARDINAL,BINOCULARS,BASIC,PROGRAM,DRUM,BASSOON,COMMITTEE,ZZZZ7''(239)C'' 239,0c'' Z$: Z$"" Z$: 10005t''J11000:J'$'10000EEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL,EAD (P%)0,37,38,39,40,41,42,43678,79,80,81,82,118,119,120,121,122["158,159,160,161,162,199,200,201jh BODY(P%)r0,1,2,3,4,5,6,40,41,42,43,44,45,46|80,81,82,83,84,85,86,120,121,122,123,124,125,126160,161,162,163,164,165,16 BOUGH,SKY,ORANGE,SHOW,TRAIN,PIG,WHALE,BOTTOMG&lCARPET,CAKE,HOSPITAL,VIOLIN,FILE,CASSETTE,MUSIC,AXE,NUMBER,LETTER&vCOMPUTER,MAGAZINE,PICTURE,RECORDER,PEN,GRASS,AIRCRAFT,NOISE,DINNER,BEER&COARSE,RUDE,OBSCENE,IMPOLITE,VULGAR,NICE,NASTY,ADULT,JUV "!" "OJ621:" "W J]p GALLOWS (P%)0,1,2,3,4,5,6,7,8,9,1040,43,44,49,50,84,85,89,90,125,126,129,130166,167,169,170,207,208,209,210,248,249,25,0,2,0,0,0$V0,0,0,2,0,0,0,4,4,4,4,4,4,4$`4,4,4,4,4,4,4*$ LEFT ARM (R%)L$0,0,0,0,0,0,0,0,0,0,0,0,0,10a$ RIGHT ARM (R%)$ 0,0,0,0,0,0,0,0,0,0,0,0,0,10$d LEFT LEG (R%)$n4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,6,0,0,0$ RIG,1):YQB%(K,2)`AB%(K,3):BB%(K,4)#j1000)tA GET A RANDOM WORDZX$W$(((W1)(0)))` COMPARES CURRENT LETTER WITH X$L0M1R(Z Z(M) 13602T$(T$,M1)Z$(T$,RM)< 3200M,Z: 2176M,OFL160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160="160,160,160,98,98,120,120,120P"p GALLOWS (R%)k"z0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,AS"::" ";X$;""(D:" NOW HIT ANY KEY"2N 625LXX23:Y0:A0:B89:Q1`b1700:Q%(90)32sgK16:1100:hJ3153 3633 40: J,32: J3,32:Ji 3964,32:Q%(90)66l"YOU WIN AND ARE FREE HIT ANY KEY"q A$: A$"",160,227,160,160,160,160,102,160,160,160E d160,160,209,102,167,160,160,160,160,209,102,167,160,169 n160,160,209,102,172,160,160,163,163,163,163,163,163,163 x244,160,160,157,160,160,231  LEFT ARM (Q%) 233,160,106,160,160,106,160,106,166,95,223,160,160,95,223,160,160,95,223,160,160C95,223,160,160,95,223,160,160,95,160,160x160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,16010  SAVE"0:HANGMAN",8? COPYRIGHT (C) ANDREW COLIN 1984\ GRAPHICS BY JOHN COLINq0,2:4,15,4: 4 Z13 220"""WAIT A MOMENT PLEASE!" P%(240),Q%(240),R%(240),W$(500)#(SM3072:CM2048F6,200,201,202,203,204,205,206' 240,241,242,243,244,245,246; LEFT ARM (P%)o0,1,39,40,41,79,80,119,120,159,160,199,200,2400 RIGHT ARM (P%):0,1,40,41,42,81,82,121,122,161,162,201,202,241 LEFT LEG (P%) 0,1,2,40,41,42,80,81  SAVE"0:HANGMAN",8? COPYRIGHT (C) ANDREW COLIN 1984\ GRAPHICS BY JOHN COLINq0,2:4,15,4: 4 Z13 220"""WAIT A MOMENT PLEASE!" P%(240),Q%(240),R%(240),W$(500)#(SM3072:CM2048F SAVE"@0:TESTCARD",8A TESTCARD FOR COMMODORE 16,PLUS4J0,2S(1,1\2""<" PLEASE USE THIS COLOR CHART TO ADJUST"F" YOUR TV SET OR MONITOR"PZ"  BLACK"d"  29,2,26,2,19,2K24,2,24,2,24,2,26,1,28,1,26,1,24,1,23,2,28,2,28,2,28,2,29,1,31,1,29,128,1,26,2,31,2,31,2,31,2,31,2,29,2,28,2,26,2,26,2,26,2,24,2,0,2,99828,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,31,2,31,1,0,1,29,2,26,2,26,1-0,1,28,2, 118,169,217,262,305,345,383,419,453,485,516,544,571,596,620,643,664,685,704,722,739,755,770,784,798,810,822,834,844,854,864,873,881,8896897,904,911,917,923,929,934,939,944,949,953@ N(48)JJ047:N(J):T3^24,1,28,1,31,2,31,2, 2,16,2;X19,2,19,1,21,1,23,1,24,1,26,2,19,2,0,12,19,2,24,2,24,2,24,2,26,1,28,1b26,1,24,1,23,2,28,2,24,2,22,2,21,2,23,2,24,2,19,2,19,2,19,2,16,4,998l0,2,12,1,19,1,16,1,19,1,12,1,19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1,19,1 v18,1,19,1,7,1,1 1,19,1,16,1,19,1,12,1,19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1O19,1,18,1,19,1,7,1,19,1,16,2,12,2,0,2,998X999p A%(1000),B%(1000)|P0:Q0 X999 X: X998 B(Q,2)P1:B(Q1,0)P:QQ1:800 X999 A%(P)N(X): X:A%(P1)"xX23:Y0:A0:B89:R(X$)A}J1 R:Z(J)((X$,J,1))64:JK1000XP23:Q0u"WORD HAS";R;"LETTERS"J1R: 3200J,42: 2176J,6:J"LETTERS USED:":"NEXT GUESS:"T$("********",1,R)K0 WHITE".n"  RED"Wx"  CYAN""  PURPLE""  GREEN""  BLUE""  YEL24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,26,2,26,1,0,1,31,2,24,2:0,2,99828,2,29,2,29,1,0,1,26,2,28,2,28,1,0,1,24,2,26,2,26,1,0,1,28,2,24,224,1,0,1,31,2,24,2,24,1,0,1,31,2,26,2,26,1,0,1,31,2,28,2,28,1,0,130,2,31,2,0,2,28,2,24,2,24,1,0,31,1,28,1,24,2,24,2,24,2,23,2,23,1,24,1^h26,1,28,1,29,2,26,2,19,2,24,2,24,2,24,2,26,1,28,1,26,1,24,1r23,2,28,2,28,2,28,2,29,1,31,1,29,1,28,1,26,2,28,2,28,2,28,2|26,2,28,1,30,1,31,2,26,2,26,2,26,2,23,2,0,2,99823,1,26,1,29,2,29,2,29,1,29,1,7,1,19,1,18,1,19,1,7,1,19,1,12,1,19,1,16,1,19,1,12,1i19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1,19,1,18,1,19,1,7,1,19,1,16,2x 12,2,9980,2,23,1,19,1,23,1,19,1,23,1,19,1,24,1,19,1,24,1,19,1,24,1,19,1 23,1,19,1,23,1,19,1,24,1,19,1,23,1 6X:PP2 *P0:Q0:X04 X999D>X: X998 B(Q,3)P1:B(Q1,1)P:QQ1:850uH X999 B%(P)N(X) : X:B%(P1) 6X:PP2{R\J0: 940fJ1: 940pJ2: 940zJ3: 940J0:940:J1:940 0920 J0240:P%(J):&P J0240:Q%(J):=U J0240:R%(J):`Z J1 6:K14:B%(J,K):K,Jh[W0\W$(W): W$(W)"ZZZZ" WW1:92_KTI:JK100(K100)aK0J:L(0):KdQ%(109)202:Q%(111)203:J98115:R%(J)11:J:1200n"LOW"+"  ORANGE"U"  BROWN""  YELLOW-GREEN""  PINK""  BLUE-GREEN" "  1,19,2,24,2,24,1,0,1,28,2,31,2,31,1,0,1]29,2,26,2,26,1,0,1,28,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,26,2y26,1,0,1,31,2,24,4,9989990,2,28,2,28,2,24,1,19,1,16,2,16,2,16,2,19,2,19,1,21,1,23,1&24,1,26,2,19,2,0,12,19,2,24,2,24,2,26,1,23,2,23,2,23,2,24,2,24,1,26,1,24,1,22,1j22,2,21,2,26,2,25,2,25,2,25,2,26,1,28,1,26,1,28,1,29,2,23,2,23,2,23,224,1,26,1,24,1,26,1,28,2,31,2,31,2,28,1,24,1,19,2,19,2,24,1,28,1,31,231,2,31,1,28,1,24,2,24,2,24,2,23,2,23,1,24,1,26,1,28,1,,19,1523,1,19,1,23,1,19,1,16,1,19,1,16,1,19,1,16,1,19,1,7,1,19,1,23,1,19,123,1,19,1,24,2,24,2,24,2,23,4,0,2,12,1,19,1,16,1,19,1,12,1,19,1,12,119,1,16,1,19,1,12,1,19,1,7,1,19,1,18,1,19,1,7,1,19,1,7,1,19,1,18,1,19,1 7,1 19,1,12,P0:QQB(J,2) PAB(J,0):PBB(J,1):TATI50:TBTA*  PA QQM YB%(PB1):ZA%(PA1): VZ1.5{  TITA 1,A%(PA),Z2: TATAV:PAPA2 TITB2,B%(PB),Y2:TBTBY1.5:PBPB2  0 X999 A%(P)N(X): X:A%(P1) 239,0 Z$:Z$""172$Z(Z$)64; Z1 Z26 170o 3964,Z:2940,2:NL40(Z13):LLZ:NLLLZ13 2768LLNL,0: 3792LLNL,Z:2401300 L1300 1400KK1 K7 1100:170" 500, T$X$600 LIGHT BLUE";"  DARK BLUE"k"  LIGHT GREEN"q" IN A MOMENT YOU WILL HEAR" A MINUET BY FREDERIC DUVERNOY"" (1765-1838)"7"1022,7,64,4,2,26,1,28,1,26,1,24,1B023,2,24,2,24,2,24,2,24,4,23,2,18,2,18,2,18,2,19,2,0,2,998^:0,2,19,6,19,2,7,2,19,2D16,6,17,4,17,2,19,2,19,2,19,2,17,2,0,4,17,2,17,2,17,2,16,2,0,4N19,2,24,1,19,1,16,1,12,1,7,2,19,2,0,2,16,2,28,2,24,1,19,1,16,2,16,AAl0LITB I CBM+4012AHANTESTCARDHANGMANSPEEDTYPEUNIT3QUIZUNIT4DRILLUNIT5QUIZSENTENCES UNIT7QUIZ  UNIT8PROGUNIT9QUIZ  UNIT10QUIZUNIT11PROGUNIT12QUIZSOUND DEMO TUNE CRAPS REACTIONHEADSHANGMAN2 SAVE"SPEEDTYPE",8! 5*""\" HELLO. THIS PROGRAM IS DESIGNED"(" TO MEASURE YOUR TYPING SPEED AND TO"2" HELP YOU IMPROVE IT."Zd" IF YOU WOULD LIKE TO HAVE YOUR"n" RATING MEASURED, TYPE 'R0.5X$X$" ""SOME":4720f5800&p(1)0.3556002z6200:R (1)0.7X$X$" ""VERY"_ 6400:tA1:B10:1900:PA11:B17:1900:A18:B25:1900:A75:B79:1900:A58:B68:1900:pA51:B57:1900:8A6T WITH A SPACE !"2:" NOW HIT ANY KEY TO START THE TEST."EA$:A$""946N800[ D0 i 1,950,5ol SELECTS A WORD BETWEEN A AND BvCA:Q245 C0 1950 Y$:CC1:1930C((BA1)(1))C019wx#CAKES,POTATOES,APPLES,PIES,SCONES,ROLLS6#FOUL,MOULDY,ROTTEN,STALE,GOODC' J179R'Y$: J,Y$Y$'JEEDY,TALL,UNTIDY,UNWASHED,STUPID<#BOY,GIRL,MAID,SCHOOLBOY,TEACHER,PROFESSOR,QUEEN,DANCERF#WEPT,LAUGHED,"RAN AWAY",FELL,ESCAPED,F (X$,J,40);JJ40:RR40:520n&(X$,J,R);" "t05" "X""b3432,160lR(X$)vA$:A$""  SAVE"0:UNIT3QUIZ",8A COPYRIGHT (C) ANDREW COLIN 1982W0,2:4,15,4:"" " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2"  '."5" OTHERWISE GIVE YOUR BEST RATING"G" SO FAR."] A$: A$"" 180x A$"R" "R";: 900 (A$)49(A$)57180RA10(A$)A$;A$:A$""230 (A$)48 (A$)57 230A$;:RARA(A$)  9:B74:1900:A36:B42:1900:N(# ANDREW,JOHN,JILL,SUSAN,XAVIER,VANESSA,BILL,PENNY,ZENA,JOE2#SILLY,FAT,GREEDY,TALL,UNTIDY,UNWASHED,STUPID<#BOY,GIRL,MAID,SCHOOLBOY,TEACHER,PROFESSOR,QUEEN,DANCERF#WEPT,LAUGHED,"RAN AWAY",FELL,ESCAPED,F80 Y$:CC1:Q230:1960X$X$" "Y$#FD0"TEST SENTENCE";D6:`" "~ "RATING ";RA;"" " ";"" X$"":4000 (1)0.5 3060 4200:4600 3070 4400Z(D)1:120120"" ""EJ039:3072J,160: 2048J,C:nJ092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)120W1$P1:J3: K3.A$(X$,P,1630 A$" "6303432,32 ZTI)A$;=J2R:W3431JRW,(W) 128:T0c W1024,129wA$:A$""740TT1:TN710Q245:1000:T0:710A$(X$,J,1)760Q210:K15:1000::710A$;:W1024,0W, WITH THE RETURN KEY"/<::" GOOD LUCK!"AFJ112:Y$:HPNRZZ(N)fdJ1N:Z(N)0:onSC0zxJ1NZ(J)0 200J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N!:" QQ110 20003000!500:7"N(2000RA):600J,Y(Z(X$))60]6RB1090(1Y)v@RA(0.8RA0.2RB )EDD1J QQT GG1 500: GG^"DO YOU WANT TO CARRY ON?"h:" TYPE Y OR N"rA$: A$"" AINTED,SNORED,TALKED,STOPPED,SHUDDEREDEP#QUICKLY,SLOWLY,FAST,NOISILY,SOFTLY,SLYLY,SNEAKILYZ#"GOBBLED UP",PINCHED,BOUGHT,SOLD,STOLE,FETCHED,BROUGHT,BOILEDd#DUCK,WINE,WHISKY,BEANS,CURRY,LOAF,"SYNTHETIC CREAM"n#TWO,THREE,4,5,6,7,8,10,13,18,20 (1)0.253090  4800 % (1)0.3403015000:BX$X$" THE"V (1)0.34060`5200l5400:hA43:B50:1900:0A26:B35:1900: (1)0.64700X$X$" ""THE" (1)0.3556006000:\ (1)):PP18A$"#" 1150-BA$"%"JJW:K3:1070_L307240JK,(A$) 63: 204840JK,15:KK1iV1070o~uJ112:X$:NJ1DX$:Y$X$X$Y$:Y$ J""; A$""(W)128 JZTIZ:# RA10:D5:255J" THE MACHINE WILL GIVE"w" YOU SOME SENTENCES TO COPY AS FAST"" AS YOU CAN.":" THE BLACK CURSOR SHOWS THE NEXT"" LETTER (OR SPACE) EXPECTED.":" STAR THIS IS";(100SCN0.5);"PERCENT"'9D1(N(1))K Z(D)1200XCZ(D)1b1200mT13A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)370| A$"Y" 255<"THANKS FOR THE SESSION"d:" YOUR FINAL RATING WAS";RAjv""" COPY THE FOLLOWING":" SENTENCE AS FAST AS":" YOU CAN."" START WITH A SPACE":R(X$):J1R41550(Y$,2,(Y$)):17506" NOW TYPE ANY KEY":DX$"ABCD"LY$\X$Y$2050l"NO":2000w"YES"} JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECTQ$:Q$"" 1307(Q$)20 1314+A$""1307R" ";:A$(A$,(A$)1):1307n"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330 SAVE"0:UNIT4DRILL",8B COPYRIGHT (C) ANDREW COLIN 1982n""9)(27)"T": ***SET TEMP WINDOW0,2:4,15,4:"""PLEASE SUPPLY A":"LEVEL OF DIFFICULTY""(1 IF YOU ARE TRYING":"FOR THE 1ST. TIME)":DMDM0 DM9 9 TLY":" WHAT THE FOLLOWING"1" PRINT COMMAND WOULD"U" GIVE : -":" FOLLOW IT WITH"f" RETURN":J110:N%(J)0:N$(J)"":M(J)0:M$(J)"":MS$"":#Q$"+"U$" "U$"+"$A$"+"U$"&"U$"+"(P$"PRINT ":W$""2 (1)0.5 70 %%A)CLEAR THE SCREEN%%B)T#"TAKE THE CURSOR TO THE TOP% LEFTHAND CORNER%%C)ERASE THE CURRENT LINE%#",B%##"HOW MANY LINES OF CHARACTERS%FIT ON THE SCREEN?",%%#,25%TWENTYFIVE%##"HOW WIDE IS THE SCREEN, IN%CHARACTERS?%",%#",40%FORTY%#-#"IF (G$,1,J1):210/K(W$):(W$,1)D$W$(W$,1,K1):220>G$W$400IGG$""TL1Jy(G$,L,1)D$GG$GG$(G$,L,1) LWW$"""L1K,(W$,L,1)D$WW$WW$(W$,L,1)6L@GG$WW$ 600J:"WRONG. THE ANSWER IS (#10Id#"WHAT WOULD THE COMMAND% COLOR 0,7%DO?%%%A) TURN THE BACKGROUND TO GREEN%%Bi#") TURN THE BACKGROUND TO BLUE%%C) TURN THE BACKGROUND TO YELLOW%#",B%BLUE%#n#"WHAT WOULD THE COMMAND% COLOR 4,3%DO?%A) TURN THE BORDER RED%B) TURN!s +A$(A$,1,P1).1321&2 (Y$,1)"%"1380.<P2NF(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$15""RANGE WRONG.TRY AGAIN":DM:75 S%(15),S$(15)B BB120X U$(34):D$(32)q P1:D1:DM1 DM1 ""(27)"M";("",DM,1);" "J123:"  "J<1000.AP$P$X$:W$W$(X)D$:X100X100206B80RF2000:P$P$X$:W$W$Y$jP (1).5DDM130xZP$P$";"d(1).5120i1000nP$P$X$:W$W$(X):X100X10020s130x2000:P$P$X$:W$W$Y$E2011 YOUR COMPUTER GETS STUCK,%YOU CAN ALWAYS FREE IT BY%%%A)HITTING RETURNp#"%B)PRESSING RESET%C)TYPING RUN/STOP%D)SWITCHING OFF%#",B%D%##"T AND INST/DEL%C)PRESSING SHIFT AND CLEAR/HOME%#",C%##"WHAT DOES THE CLEAR/HOME KEY DO%IF USED BY ITSELF?"TW$Y DM0.25DMDM0.251^"HIT ANY KEY TO GO ON"DhA$:A$""360Mr900e:"THAT'S RIGHT!"zDM9DMDM0.25350X"CORRECT EXCEPT FOR":"SPACING. THE RIGHT"b"ANSWER IS";W$l350BB"IN 20 PROBLE#" THE BACKGROUND RED%C) TURN THE CURSOR RED%%#",A%#Xx#"WHAT IS THE COLOR CODE FOR%ORANGE?%%",#,9%NINE%##"HOW MANY DIFFERENT COLORS CAN%YOUR COMPUTER DISPLAY?%","%#",16%SIXTEEN%##"WHENEVER YOU TYPE A CHARACTER,%IT GOES%%A)TO THE LEFT OF%B)T00PQ1:1390:R1:@/TS6(1R)(6(1))1@^J1S:Z$:_h"";Z$qrT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:16904" ":""(27)"L";e *** SET WINDOW TO WITHIN PRINTED BORDER***""9)(27)"T"21)(27)"B"U$(34):D$(32)P1:D1" LEVEL OF DIFFICULTY":" = ";DM" TYPE IN EXACJ110N%(J)EN$(J)*M(J)E M$(J)3J,E=:P$JG$"":;dH$:A(1):H$""201v(H$)13210(H$)20 206(G$)0201G$(G$,1,(G$)1):" ";:201 H$;:G$G$H$:201J(G$):(G$,1)D$G$(1)0.6 1070 $X$XX$"+"X$:XXXX:DD1:3.(1)0.51090N8X$XX$"-"X$:XXXX:oBX$XX$"*"X$:XXXX:DD1:(1).5DDMDD1:1600(1).5DDMDD1:1600X(10(1))X$(X48):@V1(10(1))JV1(1MS YOUR":"LEVEL OF DIFFICULTY"&"HAS RISEN TO";DMX"ENTER IT NEXT TIME":"YOU RUN THIS PROGRAM"v""|(1).7DDMDD1:1030 (1)0.7 DDM DD1:10301500:1500:XX$X$:XXX1500O THE RIGHT "##"OF%C)UNDER THE CURSOR ?%%#",C%UNDER%#s#"WHICH OF THE FOLLOWING CLEARS%THE SCREEN?%%A)PRESSING RESET%B)KEYING SHIF#"T AND INST/DEL%C)PRESSING SHIFT AND CLEAR/HOME%#",C%##"WHAT DOES THE CLEAR/HOME KEY DO%IF USED BY ITSELF?0$:M$(V)(V64)"$="X$n X$(V64)"$":0.5 DDM DD2:2030<2500:T2500:XX$X$:YY$Y$m2500:(1)0.52060X$XX$Q$X$:Y$YY$" "Y$: X$XX$A$X$:Y$YY$"&"Y$: (1).5DDMDD2:2590 (1)0.5 DDMDD2:  SAVE"0:UNIT7QUIZ",8A COPYRIGHT (C) ANDREW COLIN 1982W0,2:4,15,4:"" " QUESTION AND ANSWER PROGRAM.":" AT ALL TIMES, HIT ANY KEY TO"" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" 0(1))TN%(V)0N$(V)""1610 ^N%(V)016502cN%(V)D1610RhX$(V64):XNS%(V):DD1:^rN%(V)D|S%(P)V:S%(P1)XX:S$(P)XX$:PP21000PP2:VS%(P):XXS%(P1):XX$S$(P)NS%(V)X:N$(V)(V64)" = "X$X$(V64): OF";N0:" THIS IS";(100SCN0.5);"PERCENT"6HD1(N(1))Z Z(D)1200gCZ(D)1q1200|T13A$:A$""250100013001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 320.A$(X$,P,1):PP1 8A$"#" 1150<BA$"%"JJW:K3:1070RGA$"\" A$(34)L307240JK,(A$) 63: 204840JK,15:KK1V1070~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J "01300*((A$,1))321330'+A$(A$,1,P1)1.1321I2 (Y$,1)"%"1380Q<P2qF(Y$,P,1)"-"PP1:1350P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500ZR0:dP1n(Y$,P,1)"#"1370xQP(Y$,Q,1)"%" (Y$,P,1);:PP1:1690%(Y$,2,(Y$)):1750Y" NOW TYPE ANY KEY":gX$"ABCD"oY$X$Y$2050"NO":2000"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NO ,"FALSE%F%#"CZ#" \UNICORN\ <> 7.3%%IS THIS%%A) TRUE%B) FALSE%C) INCORRECT BASIC%%"\_#"#","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 <DD1:(1).5DDMDD2:20300(1)0.5 DDM DD2:2030<2500:T2500:XX$X$:YY$Y$m2500:(1)0.52060X$XX$Q$X$:Y$YY$" "Y$: X$XX$A$X$:Y$YY$"&"Y$: (1).5DDMDD2:2590 (1)0.5 DDMDD2: Z+5 IS%%A) TRUE%B) FALSE%%","#" s#FALSE%B%F%#kx#" IF X HAS THE VALUE 73,% X >= 73 IS%%A) TRUE%B) FALSE%C) ILLEGAL"}#"%%#",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%"@#"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%#D Z=25% Y-3 < WITH THE RETURN KEY"-<::" GOOD LUCK!"?FJ112:Y$:FPNPZZ(N)ddJ1N:Z(N)0:mnSC0xxJ1NZ(J)0 200JJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT  SAVE"UNIT8PROG",8? COPYRIGHT (C) ANDREW COLIN 1984 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;"=6T@Z(D)Z(D)1:120120&""/""TJ039:3072J,160: 2048J,C:}J092040:3151J,160: 2127J,C:J3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K32590 Y$(26(1)65) X$(34)Y$(34):- V1(10(1))H( M(V)0M$(V)"" 2590Y2 M(V)02630x< X$(V64)"$":Y$MS$(V):F M(V)D:S%(P)V:S$(P)XX$:S$(P1)YY$:PP2P 2000Z PP2:VS%(P):XX$S$(P):YY$S$(P1)d MS$(V)Y";A$"")Q$:Q$"" 1307>(Q$)20 1314NA$""1307u" ";:A$(A$,(A$)1):1307"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): PQQ1:1410(Y$,P,QP)A$1500'PQ1:13902:R1:8@RTS6(1R)(6(1))1c^J1S:Z$:h"";Z$rT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750T RIGHT,"NO-THAT'S WRONG",INCORRECT(#11V2#" \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?%%","#")";7X50 XXI< X13 40#FST0PPROGUNIT9QUIZ  UNIT10QUIZUNIT11PROGUNIT12QUIZSOUND DEMO TUNE SAVE"0:UNIT11PROG",82 MYSTERY PROGRAMG"WHAT IS YOUR"W" NAME";X$](n2"HELLO ";X$t<F"PLEASE ANSWER THESE"P"SIMPLE QUESTIONS"ZSC0dn"WHAT IS THE CAPITAL"x"OF FRANCE";A$ A$"PARIS" 160 SAVE"UNIT12QUIZ",8F " QUESTION AND ANSWER PROGRAM."r:" AT ALL TIMES, HIT ANY KEY TO"0,2:4,15,4" GET THE NEXT QUESTION"(:" ALWAYS FOLLOW YOUR REPLY2" WITH THE RETURN KEY"<::" GOOD LUC""(J039:3072J,160: 2048J,C:QJ092040:3151J,160: 2127J,C:yJ3901:4032J,160: 3008J,C:J920040:3112J,160: 2088J,C:W2:(X$)110W1$P1:J3: K3. QQ11000:A$(X$,P,1):PP18A$" +A$(A$,1,P1).1321(2 (Y$,1)"%"13800<P2PF(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$ CT(# 9B2#" CAN THE CONTROL VARIABLE IN%A \FOR\ COMMAND BE CALLED G$ ?%",#N7#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%#4F#"  FOR\%%COMMAND@i#" BE A VARIABLE ITSELF?%%(AS IN \FOR R = Q TO 100 STEP 4)%%#",YES%Y%#n#" 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 "WRONG.IT'S PARIS"1906"THAT'S RIGHT! WELL"G "DONE,";X$SSCSC1Yo"WHO DISCOVERED""AMERICA";A$A$"COLUMBUS"270"SORRY ";X$"THAT'S WRONG. IT WAS""COLUMBUS"300"CORRECT.";X$;" IS" K!"FJ112:Y$:PN$ZZ(N)8dJ1N:Z(N)0:AnSC0LxJ1N^Z(J)0 200eJvJ12000:J" YOU SCORED";SC:" QUESTIONS RIGHT FIRST":" TIME OUT OF";N:" THIS IS";(100SCN0.5);"#" 1150BA$"%"JJW:K3:11102GA$"\" A$(34)dL307240JK,(A$) 63: 204840JK,15:KK1mV QQs~yJ112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";A$""1500PQ1:1390:R1:@1TS6(1R)(6(1))1B^J1S:Z$:ah"";Z$srT2 1750|"THE RIGHT ANSWER IS":""; (Y$,1)"%"1710P1(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690 WHEN CAN YOU LEAVE OUT THE STEP%%SIZE FROM A \FOR\ COMMAND?%%A) NEVER"K#"%B) WHEN THE STEP SIZE IS 1%C) WHEN THE STEP SIZE IS NOT% NEGATIVE%%#"M#"B%#P#"EXAMINE%%10 FOR Q=20 TO 37%20 PRINT Q*Q/5%30 NEXT W%% IS THIS%%A) CO#U#"RRECT BAS Q%%HOW MANY TIME"6}#"S OVER IS THE%BODY OF THE LOOP EXECUTED?%%#","FOUR%4%#"#"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%#"N A \"A HISTORY EXPERT!""SCSC1",11 SC2390A6 SC1 350]@"YOU DIDN'T GET ANY"uJ"QUESTIONS RIGHT."~T370^"YOU ONLY GOT ONE"h"QUESTION RIGHT."r"TRY AGAIN."|90"THAT WAS EXCELLENT,"X$;". YOU GOT"PERCENT" D1(N(1)). Z(D)1200;CZ(D)1E1200PT13cA$:A$""250m1000w13001600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""Q$:Q$"" 1307(Q$)2 1314-A$""1307T" ";:A$(A$,(A$)1):1307p"(Q$)13 " ";:1321# Q$"0" (Q$"9" Q$"A") Q$"Z" 1307$Q$;"";%A$A$Q$:1307)P(A$): P01300*((A$,1))321330(Y$,2,(Y$)):17508" NOW TYPE ANY KEY":FX$"ABCD"NY$^X$Y$2050n"NO":2000y"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORREIC%B) INCORRECT BASIC%C) AMBIGUOUS CODE%%#",INCORRECT%B%#pZ#" 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 \# SAVE"0:SOUND DEMO",8:REM +4I COPYRIGHT (C) ANDREW COLIN 1984j169,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" C16/PLUS4 SOUND DEMONSTRAT""BOTH QUESTIONS RIGHT""THAT'S RIGHT! WELL"G "DONE,";X$SSCSC1Yo"WHO DISCOVERED""AMERICA";A$A$"COLUMBUS"270"SORRY ";X$"THAT'S WRONG. IT WAS""COLUMBUS"300"CORRECT.";X$;" IS" SAVE"0:REACTION",86 REACTION TIME PROGRAM@""m"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 KEYQ20(20(0)) XQR3! 1,X,1( X6 J120:> ND O PIPS\N1 5j 1,900,8{J1700: J N 1,900,50 LOW MOAN X200 0 21,X,1 Xp RISING SCALEz X1 21  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""THE ION")x" ========= ===== ============="/K" 1. TELEPHONE RINGING`" 2. POLICE CARx" 3. BIRDS SINGING" 4. PIPS" 5. LOW MOAN" 6. RISING SCALE" 7. FALLING SCALE" 8. ARRIVAL OF THE ALIENS " 9. DEPARTUR SAVE"0:HANGMAN",8? COPYRIGHT (C) ANDREW COLIN 1984\ GRAPHICS BY JOHN COLINq0,2:4,15,4: 4 Z13 220"""WAIT A MOMENT PLEASE!" P%(240),Q%(240),R%(240),W$(500)#(SM3072:CM2048F"xX23:Y0:A0:B89:R(X$)A}J1 R:Z(J)((X$,J,1))64:JK1000XP23:Q0u"WORD HAS";R;"LETTERS"J1R: 3200J,42: 2176J,6:J"LETTERS USED:":"NEXT GUESS:"T$("********",1,R)K0 P A$Z A$""80,d WAIT A RANDOM TIME2nFx"WAIT FOR IT!"LdQTI(60301(0))m A$~A$"" 310 TIQ 150 START TONE AND NOTE TIME 71,950,4XTI WAIT FOR ANY KEY A$A$""230  1,N(X),10 X 1,N(22),30%9X FALLING SCALEAb 7Ul X22 2 1ev 1,N(X),12lX| 1,N(1),30@ ARRIVIAL OF THE ALIENSJ 7T X1000 200 50^ Y X X100 10h 1,Y,1r Y| J1RE WERE";H;"HEADS"%"AND";T;"TAILS"+HEADSHANGMAN2E OF THE ALIENS4" CHOOSE A NUMBER (1 - 9) ";> A$] A$ "0" A$ "9" 250f A$ (A$) 1000,2000,3000,4000,5000,6000,7000,8000,9000"100 TELEPONE RINGING7 Q15K12M112$1,770,1 1 1500 6170 17000Q%(109)213:Q%(111)201LJ98 115:R%(J)14:JWJ05w&313540J,66: 211140J,0~'J0P23:Q35K16:1100:6J3153 3633 40: J,32: J3,32:J7 3964,32 :"YOU LOSE. IT WAS"::" ";X$;""(D:" NOW HIT ANY KEY"2N 625LXX23:Y0:A0:B89:Q1`b1700:Q%(90)32sgK16:1100:hJ3153 3633 40: J,32: J3,32:Ji 3964,32:Q%(90)66l"YOU WIN AND ARE FREE HIT ANY KEY"q A$: A$""  GET RESULTRTI* DISPLAY RESULTG"YOUR REACTION TIME IS"_"(RX)60;"SECONDS"e,u6"TOO SOON"{@WAIT FOR THE TONE."2"WHEN YOU HEAR IT, STRIKE ANY KEY AS"<"FAST AS YOU CAN. GOOD LUCK!"F WAIT FOR ANY KEY120: J X )(# DEPARTURE OF THE ALIENS12# 7A<# 3,950,700TF#J1 1000: kP# X600 1000 8wZ# 1,X,5d# J1 100.4(1000X):Jn#Xx# X200 0 21,X,1 Xp RISING SCALEz X1 21 J0240:P%(J):&P J0240:Q%(J):=U J0240:R%(J):`Z J1 6:K14:B%(J,K):K,Jh[W0\W$(W): W$(W)"ZZZZ" WW1:92_KTI:JK100(K100)aK0J:L(0):KdQ%(109)202:Q%(111)203:J98115:R%(J)11:J:1200n".1,1022,1 8BZ1150:"LK2VP11000:9`Q?jP POLICE CARW7cQ110vX900750 81,X,1 XX750 900 8 1,X,1X Q* BIRDS 7 N150 Q970(30(0)) R 239,0 Z$:Z$""172$Z(Z$)64; Z1 Z26 170o 3964,Z:2940,2:NL40(Z13):LLZ:NLLLZ13 2768LLNL,0: 3792LLNL,Z:2401300 L1300 1400KK1 K7 1100:170" 500, T$X$600 625v A$: A$"" 100! 1,900,59 A$: A$"" 100P J1100:J: 630s SUBROUTINE TO DISPLAY A PARTF40YXJAB:CFP%(J) CSM,Q%(J) CCM,R%(J)$J.L TO PAINT NEXT PART OF BODYVXPB%(K,1):YQB%(K,2)`AB%(K,3):BB%(K,4)#j1000)tA GET A RANDOM WORDZX$W$(((W1)(0)))` COMPARES CURRENT LETTER WITH X$L0M1R(Z Z(M) 13602T$(T$,M1)Z$(T$,RM)< 3200M,Z: 2176M,OFL1 EAD (P%)0,37,38,39,40,41,42,43678,79,80,81,82,118,119,120,121,122["158,159,160,161,162,199,200,201jh BODY(P%)r0,1,2,3,4,5,6,40,41,42,43,44,45,46|80,81,82,83,84,85,86,120,121,122,123,124,125,126160,161,162,163,164,165,16 ,82,120,121,122,160,161,162,200,201,202*239,240,241,279,280,281> RIGHT LEG(P%)0,1,2,40,41,42,80,81,82,120,121,122,160,161,162,200,201,202 241,242,243,281,282,283 GALLOWS (Q%)160,160,160,160,160,160,160,160,160,160,160 4,104,104,104,104,104,104,104,104,104,104,1048160,160,160,160,104,104,104,104,104G HEAD(Q%)k66,111,233,160,160,160,223,111160,209,160,209,160,160,160,241,160,160 95,202,195,203,105,160,160,160P BODY(Q%) Z160,227,160,160 60,106,160,106,160,160 ! RIGHT ARM (Q%)F!"160,223,160,160,116,160,116,160,116,160,116,160,116,160Y!| LEFT LEG(Q%)!160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160!160,160,98,98,160,120,120,120! RIGHT LEG(Q%)"10,0,0"0,0,0,0,0,0,0,0,0,0#5,5,5,5,5,5,5,5,5,5,5,5,#0,0,0,0,5,5,5,5,5<# HEAD (R%)Q#0,0,0,0,0,0,0,0t#12,12,12,12,12,12,12,12,12,12#12,12,12,12,12,12,12,12#8 BODY(R%)#B0,0,0,2,0,0,0,0,0,0,2,0,0,0#L0,0,0,2,0,0,0,0,0HT LEG(R%)%4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,0,,0,0,0Y%0,2,90,115,-3,7,116,164,-5,7,165,178,4,7,179,192,-3,14,193,216k%1,14,217,240%XMAP,BICYCLE,PUZZLE,QUEEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL,ENILE,DELIGHT+' KEY,DOG,CARDINAL,BINOCULARS,BASIC,PROGRAM,DRUM,BASSOON,COMMITTEE,ZZZZ7''(239)C'' 239,0c'' Z$: Z$"" Z$: 10005t''J11000:J'$'10000EEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL&bCLOCK,JUDGE,STAR,BREAD,PENCIL,PMZx FAILURE SOUND$ S500 25 250 1,S,17S=Q SUCCESS SOUND_ 1,890,5ev DELETE MAN""" """ ""0"289,290,329,330,369,370,409,410,449,450,489,490W529,530,569,570,609,610,649,650,689,690,729,730769,770,808,809,810,811,848,849,850,851876,877,878,879,880,881,882,883,884,885,886,887888,889,890,891,892,893,894,895,896 H6,200,201,202,203,204,205,206' 240,241,242,243,244,245,246; LEFT ARM (P%)o0,1,39,40,41,79,80,119,120,159,160,199,200,2400 RIGHT ARM (P%):0,1,40,41,42,81,82,121,122,161,162,201,202,241 LEFT LEG (P%) 0,1,2,40,41,42,80,8166,95,223,160,160,95,223,160,160,95,223,160,160C95,223,160,160,95,223,160,160,95,160,160x160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,160,160,160160,160,160,160,160,160,160,160,160,16010,160,227,160,160,160,160,102,160,160,160E d160,160,209,102,167,160,160,160,160,209,102,167,160,169 n160,160,209,102,172,160,160,163,163,163,163,163,163,163 x244,160,160,157,160,160,231  LEFT ARM (Q%) 233,160,106,160,160,106,160,106,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160="160,160,160,98,98,120,120,120P"p GALLOWS (R%)k"z0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,0,0,0"0,0,0,0,0,0,0,0,0,,0,2,0,0,0$V0,0,0,2,0,0,0,4,4,4,4,4,4,4$`4,4,4,4,4,4,4*$ LEFT ARM (R%)L$0,0,0,0,0,0,0,0,0,0,0,0,0,10a$ RIGHT ARM (R%)$ 0,0,0,0,0,0,0,0,0,0,0,0,0,10$d LEFT LEG (R%)$n4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,6,0,0,0$ RIGBOUGH,SKY,ORANGE,SHOW,TRAIN,PIG,WHALE,BOTTOMG&lCARPET,CAKE,HOSPITAL,VIOLIN,FILE,CASSETTE,MUSIC,AXE,NUMBER,LETTER&vCOMPUTER,MAGAZINE,PICTURE,RECORDER,PEN,GRASS,AIRCRAFT,NOISE,DINNER,BEER&COARSE,RUDE,OBSCENE,IMPOLITE,VULGAR,NICE,NASTY,ADULT,JUV  "!" "OJ621:" "W J]p GALLOWS (P%)0,1,2,3,4,5,6,7,8,9,1040,43,44,49,50,84,85,89,90,125,126,129,130166,167,169,170,207,208,209,210,248,249,25