C64S tape image fileINTRO TO BASIC 1 sTESTCARD 2HANGMAN KSPEEDTYPE -UNIT3QUIZ AUNIT4DRILL 4'+UNIT5QUIZ ,Z7SENTENCES G@UNIT7QUIZ ""! TESTCARD PROGRAMG COPYRIGHT (C) ANDREW COLIN 1981`" TEST CARDf(" BLACK"2"<" WHITE"FP" RED"Zd" CYANn x" PURPLE"0" GREEN"6R" BLUE"Xv" YELLOW" F(8),N(26)J18:F(J):J CODES FOR COLOUR KEYS 144,5,28,159,156,30,31,158 TUNE PLAYERA("A")2  AA1%J1 26 : N(J): JF J0 3 : 36874J,0 : JU& 36878,15^0 V$q: V$"#" 190zD W$NP1:T0XC0lCT625mQ125:Qn800q 36876,0vY((W$,P,1))Y0 560X((V$,P,1))PP1 TTY 36876,N(XA). Q0 5 :Q?*X(88(1))O4Y(8(1))_> 38818X,YpH 8098X,160RA$:A$""910\Q(A$)aJ18f QF(J)900p 36879,23Jz910CC1620 SCALE 0,131,138,145,151,157,162,167,1729 177,181,185,189,193,196,200,203c 206,209,211,214,216,218,220,222,224qL CAN-CANV"CJJLJHHLMQTQQOOQGGQOHHLLJLJLJLJ","22222222222222422222222222222220"`"CJJLJHHLMQTQQOOQGGQOHHLLJLJHH","222222222222224222222222222440";j"LHECOJLMLJHLHECBCEGHCGC","444422222244444222222220"yt"HCGCHCGCHHHHHHHHHHHHHHHHH","22222222211222222222222220"~"ACFECHHHJEFCCCFECAMLJHFEC","82222442222442222222222220""ACFECHHHJEFCCCFECAHCEAH","822224422224422222222440"/"ACFECHHHJEFCCCFECAMLJHFEC","82222442222442222222222220"g"ACFECHHHJEFCCCFECAHCEA","82222442222442222222280"q "#" HANGMAN Z13 220; P%(88),C%(24),B%(6,4)A#V(J124:C%(J):^2C$s<A$:B$:A$A$B$FJ188:P%(J):PJ16:K14:B%(J,K):K,Jd1200n""xX14:Y2:A1:B46:R(X$)1000P13:Q4"WORD HAS";R;" LETTERS"2J1R:7750J,42:38470J,2:J8 t"LETTERS"::" USED"::"NEXT GUESS?"T$("********",1,R)K0Z$:Z$""170Z(Z$)64Z1Z261708132,Z:38852,2 Z13 220772522(Z1),Z:3844522(Z1),2:240D772722(Z14),Z:3844722(Z14),2N1300[L1300e1400oKK1K71100:170"500,T$X$600115006170P13:Q4:K1636876,245:36878,15 XPB%(K,1):YQB%(K,2):AB%(K,3):BB%(K,4)1600K(J15H&776022J,66:3848022J,4Z'8065J,32:Jg0P13:Q7z5K16:1100::ZZ15:("",ZY1,1)"YOU LOSE.IT WAS "X$;:ZY1ZY:ZX1100:ZX,ZZD:"NOW HIT ANY KEY":36876,0NA230:B12:630XX14:Y2:A1:B46b1600.gK16:1100:Zl"YOU WIN AND ARE FREE HIT ANY KEY "iqA200:B50wv36878,1536874,AM110:36874,0M1BZ$:Z$""36874,0:36876,0:35M640F22YXF22YXJABL((A$,J,1))644 FP%(J)7680,C%(L)U FP%(J)38400,((C$,L,1))\$Jb.~LXPB%(K,1):YQB%(K,2)VXPB%(K,1):YQB%(K,2)`AB%(K,3):BB%(K,4)j 1000tX(52(1)) J1X:X$: COMPARES CURRENT LETTER WITH X$L0%M1R=(Z$(X$,M,1)1360[2T$(T$,M1)Z$(T$,RM)t<7750M,Z:38470M,5|FL1PMZx36878,15yL2401881z36876,L{M15:ML36876,0:36878,15:L16 M254240((1)10)136876,M:M)36876,0GM0((1)100) 20:M,LM_@ ERASE SHAPElJF22YXwTJAB^L((A$,J,1))hFP%(J)7680,32rJ|160,95,223,93,113,85,73,34,45,74,75,78,77103,101,100,88,81,80,79,122,76,121,64&"000000000000000072000060"\"AAAAAADBCABCABCABAAAAAAAAAAAAAAAAAAAAAAWWWWWWW""FEGDHDDIDJXKLMNRONRONQRQOMPLSLLTMMLNNUMOOV"0,1,2,3,4,5,22,23,24,27,46,47,49,69,70,71,92,93,115,137,159,181,203,225,2475 269,291,313,335,357,378,379,380,400,401,402,422,423,424,327,328,329,330,331,332>3330,1,2,22,23,24,44,45,46,66,67,68,0,2,21,23,25,43,45,47,65,66,67,68,69,88,89,900,-1,20,0,1,24,0,21,43,65,0,23,45,67p SHAPE DIRECTORYz0,0,47,58,0,4,59,74,-1,5,75,77,3,5,78,80,0,9,81,84,2,9,85,88YXMAP,BICYCLE,PUZZLE,QUEEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABELbCLOCK,JUDGE,STAR,BREAD,PENCIL,BOUGH,SKY,ORANGE,SHOW,TRAIN,PIG,WHALE,BOTTOMlCARPET,CAKE,HOSPITAL,VIOLIN,FILE,CASSETTE,MUSIC,AXE,NUMBER,LETTER=vCOMPUTER,MAGAZINE,PICTURE,RECORDER,PEN,GRASS,AIRCRAFT,NOISE,DINNER,BEERCOARSE,RUDE,OBSCENE,IMPOLITE,VULGAR,NICE,NASTY,ADULT,JUVENILE,DELIGHT " 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: 7J044022:7723J,160:38443J,C:_J2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)120W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K3:1070'L768022JK,(A$) 63:3840022JK,0:KK11V10707~=OJ112:X$:VNaJ1DmX$:Y$~X$X$Y$:Y$ J"";(A$)P(A$): P01300*((A$,1))321330+A$(A$,1,P1).13212 (Y$,1)"%"1380 <P2@F(Y$,P,1)"-"PP1:1350{P(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:@!TS6(1R)(6(1))12^J1S:Z$:Rh"";Z$drT2 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":8X$"ABCD"@Y$PX$Y$2050`"NO":2000k"YES"q JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#12>2#"IF VIC GETS%STUCK,YOU CAN%ALWAYS FREE IT BY%A)HITTING RETURN%B)SWITCHING OFF"^7#"%C)TYPING RUN/STOP%#",B%#<#"HOW WIDE IS THE%SCREEN, IN CHAR-%ACTERS ?",%#,22%#F#"HOW MANY LINES%OF CHARACTERS ARE%THERE ON THE%SCREEN?",%#,23%# P#"DO YOU NEED THE%SHIFT KEY TO%MOVE THE CURSOR%LEFT",%#,YES%Y%#gZ#"DO YOU NEED THE%SHIFT KEY TO%MOVE THE CURSOR%RIGHT","?%#",NO%N%#d#"IS THE SHIFT KEY%NECESSARY TO%MOVE THE CURSOR%UP","?%#",YES%Y%#n#"IS THE SHIFT KEY%NEEDED TO MOVE THE%CURSOR DOWN?",%#,NO%N%#Ex#"WHAT DOES THE%CLR/HOME KEY BY%ITSELF DO?%A)CLEAR THE SCREEN%B)TAKE THE CURSOR"}#"%UP TO THE LEFT-%HAND CORNER%C)ERASE THE%CURRENT LINE%#",B%##"HOW CAN YOU CLEAR%THE SCREEN?%A)SWITCH OFF%B)PRESS SHIFT AND%INST/DEL%C)SHIFT"#" AND%CLR/HOME%#",C%#M#"WHEN YOU TYPE A%CHARACTER, IT GOES%A)TO THE LEFT OF%B)UNDER%C)TO THE RIGHT OF"p#"%THE CURSOR ?%#","B%UNDER%#"#"WHAT CODE GIVES%A RED FRAME AND%AN ORANGE%BACKGROUND",%#,138%# #"HOW WOULD YOU GET%A RED CURSOR?%A)CONTROL AND RED%B)CONTROL AND 2%C)SHIFT AND"+#" RED%D)C= AND RED%#","A%#"0 "PLEASE SUPPLY A":"LEVEL OF DIFFICULTY"f "(1 IF YOU ARE TRYIING":"FOR THE 1ST. TIME":DMz DM0 DM9 17 "RANGE WRONG.TRY AGAIN":DM:12S%(15),S$(15)BB120U$(34):D$(32)P1:D1 "LEVEL OF DIFFICULTY":" = ";DMR" TYPE IN EXACTLY":" WHAT THE FOLLOWING":" PRINT COMMAND WOULD"" GIVE : -":" FOLLOW IT WITH":" 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<1000KAP$P$X$:W$W$(X)D$:X100X10020SB80oF2000:P$P$X$:W$W$Y$P (1).5DDM130ZP$P$";"d(1).5120i1000nP$P$X$:W$W$(X):X100X10020s130x2000:P$P$X$:W$W$Y$E2011J1103N%(J)EN$(J)GM(J)E M$(J)PJ,EZ:P$dG$""~H$:A(1):H$""201(H$)13210(H$)20 206(G$)0201G$(G$,1,(G$)1):" ";:201H$;:G$G$H$:201J(G$):(G$,1)D$G$(G$,1,J1):210HK(W$):(W$,1)D$W$(W$,1,K1):220WG$W$400bGG$""mL1J(G$,L,1)D$GG$GG$(G$,L,1) LWW$"""L1K,(W$,L,1)D$WW$WW$(W$,L,1)6L@GG$WW$ 600 J:"WRONG. THE ANSWER IS"TW$-Y DM0.25DMDM0.25K^:"HIT ANY KEY TO GO ON"^hA$:A$""360gr900:"THAT'S RIGHT!"DM9DMDM0.25350X:"CORRECT EXCEPT FOR":"SPACING. THE RIGHT":"ANSWER IS"b:W$l350BB>"IN 20 PROBLEMS YOUR":"LEVEL OF DIFFICULTY":"HAS RISEN TO";DMqDM9"THIS IS AS HIGH AS YOU":"NEED GO":"ENTER IT NEXT TIME":"YOU RUN THIS PROGRAM"(1).7DDMDD1:1030 (1)0.7 DDM DD1:10301500: 1500:XX$X$:XXX1500,(1)0.6 1070M$X$XX$"+"X$:XXXX:DD1:`.(1)0.51090{8X$XX$"-"X$:XXXX:BX$XX$"*"X$:XXXX:DD1:(1).5DDMDD1:1600(1).5DDMDD1:1600X(10(1))X$(X48): @V1(10(1)) JV1(10(1));TN%(V)0N$(V)""1610M^N%(V)01650_cN%(V)D1610hX$(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):DD1:<(1).5DDMDD2:2030](1)0.5 DDM DD2:2030i2500:2500:XX$X$:YY$Y$2500:(1)0.52060X$XX$Q$X$:Y$YY$" "Y$: X$XX$A$X$:Y$YY$"&"Y$: (1).5DDMDD2:2590 (1)0.5 DDMDD2:2590/ Y$(26(1)65)G X$(34)Y$(34):Z V1(10(1))u( M(V)0M$(V)"" 25902 M(V)02630< 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$:M$(V)(V64)"$="X$?n X$(V64)"$": " 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`JsT$:T$""150" YOU SCORED";SC:"QUESTIONS RIGHT FIRST":"OUT OF";N:"THIS IS";(100SCN0.5);"PERCENT"D1(N(1)) Z(D)1200#C2Z(D)-12008T13KA$:A$""250U1000_1300i1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""""!J021:7680J,160:38400J,C: JJ044022:7723J,160:38443J,C:rJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J3: K3.A$(X$,P,1):PP18A$"#" 1150 BA$"%"JJW:K3:1070:L768022JK,(A$) 63:3840022JK,0:KK1DV1070J~PbJ112:X$:iNtJ1DX$:Y$X$X$Y$:Y$ J"";(A$)P(A$): P01300*((A$,1))321330 +A$(A$,1,P1).1321+2 (Y$,1)"%"13803<P2SF(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 PQ1:1390:R1:@4TS6(1R)(6(1))1E^J1S:Z$:eh"";Z$wrT2 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":KX$"ABCD"SY$cX$Y$2050s"NO":2000~"YES" JYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKTNO,WRONG,"THAT'S WRONG",NOT RIGHT,"NO-THAT'S WRONG",INCORRECT(#9;2#" IS% X+1=X%A LEGAL BASIC%COMMAND?","%A) YES%B) NO%#"K7#"B%N%NO%#"<#" HOW FAST IS VIC%(COMMANDS PER%SECOND)%%A ROUGH FIGURE%WILL DO","%#"A#"%50-150#"F#"HOW MANY COMMANDS%CAN THE VIC STORE%AT THE SAME TIME?%"8K#"%A) AS MANY AS YOU% LIKE%%B) TEN%%C) AS MANY AS% FIT IN THE STORE%#","C%#"P#"COMMANDS ARE KEPT%%A)IN THE ORDER% AS THEY ARE TYPED%%B)IN ASCENDING% "U#"SEQUENCE OF% LABEL NUMBERS%%C) NEITHER OF% THESE%#","B%#"Z#"ALL LABEL NUMBERS%MUST END WITH A%ZERO.%""_#"TRUE OR FALSE?%#","FALSE%F%TRUE%T%#"vd#"HOW CAN YOU SLOW%THE VIC DOWN?%%A)BY TYPING R U N%VERY SLOWLY%%B) BY HOLDING"i#" DOWN%THE CONTROL KEY%%C) BY HOLDING DOWN%THE SPACE BAR%#","B%CONTROL%#"n#"A SEMICOLON AFTER%A STRING MEANS :-%%A) DON'T START A%NEW LINE%%B) DO START A"Rs#" NEW%LINE%%C) RESTART THE% PRESENT LINE%#","A%#"x#"FOR THE DURATION%OF A PROGRAM A%VARIABLE CAN HOLD%%A) ONE VALUE%%B) MANY VAL"}#"UES,ONE%AFTER THE OTHER%%C) MANY VALUES AT%THE SAME TIME%#","B%#"2#"IS% LET G = G + 5%A PROPER BASIC%COMMAND",%#,"YES%TRUE%Y%#" SENTENCES(UNIT 6)? COPYRIGHT (C) ANDREW COLIN 1981H N13UP(13,2)_2000h(100q-"".X$(X$,2,(X$)1)"."25000<::::::"FORTHE NEXT SENTENCE"F"HIT ANY KEY"PX(1)ZA$:A$""80 0100_40d MAIN SENTENCE GENERATOR&iX$""9n (1)0.5300Cx1100U(1)0.3700g(1)0.5170uA2:10001200:800A3:1000A4:1000800,12006(1)0.3700@(1)0.5370JA2:1000T1100^800rA3:1000|A5:10008000A1:1000:900A (1)0.6 Q*A6:1000:b(1)0.5 rA7:1000: SUBROUTINE TO SELECT A RANDOM WORD FROM CATEGORY A.YP(A,1)((P(A,2)P(A,1)1)(1)):Z1Y:Y$:X$X$" "Y$L SELECT MALE SUBJECT.+Q(1)0.51120;VA8:1000:L`X$X$" THE"ej (1)0.4A9:1000ttA10:1000z~ SELECT FEMALE SUBJECT.(1)0.51220A11:1000:X$X$" THE"(1)0.4A12:1000A13:1000: SET UP POINTER TABLEX1$J1N1P(J,1)X9X$RX$"Z"XX1:2040g P(J,2)X1:XX1nJt* DISPLAY SENTENCE X$ WITHOUT BREAKING UP WORDS ACROSS LINES(X$)225020X$: (X$,23,1)"" 5050(X$,1,22)5040X$(X$,(X$)23):50009(X$,22,1)" "5080I(X$,1,21)dX$(X$,23,(X$)22):n5000wP21(X$,P,1)" "PP1:5090(X$,1,P1) :X$(X$,P1,(X$)P)5000(#SINGS,SHOUTS,YELLS,GROANS,GIGGLES,SQUIRMS,ZN2#KISSED,HUGGED,SHOOK HANDS WITH,ADORED,MET,ENCOUNTERED,MADE FRIENDS WITH,Z<#WASHED,PUT ON,THREW AWAY,TRIED ON,DISCARDED,REMOVED,ZF#HIS SHIRT,HIS SHOES,HIS COAT,HIS SOCKS,HIS WIG,HIS WATCH,ZP#HER BLOUSE,HER SHOES,HER HAT,HER SPECTACLES,HER STOCKINGS,HER WELLIES,ZhZ#WITH DELIGHT,IN THE PARK,EVERY DAY,YESTERDAY,LAST WEEK,IN THE PUBLIC BATHS,Zd#ALL THE TIME,OFTEN,IN THE BATH,QUIETLY,LOUDLY,Zn#HENRY KISSENGER,THE AYATOLLAH KHOMEINI,MAURICE CHEVALIER,PRINCE CHARLES,Z&x# CLEVER,HUSKY,BURLY,FAT,STUPID,HALFWITTED,AIMIABLE,Zs#ENGINE DRIVER,PILOT,PROFESSOR,LAVATORY ATTENDANT,FOOTBALLER,LIBRARIAN,Z#MRS.THATCHER,JANE FONDA,KATE BUSH,VANESSA REDGRAVE,PRINCESS ANNE,Z#BEAUTIFUL,PRETTY,UGLY,PLAIN,CURVACEOUS,Z*#GIRL,POLICEWOMAN,BARMAID,CONDUCTRESS,SECRETARY,YOUNG LADY,Z " 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?(#10q2#\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) ILLEGAL",%%#,ILLEGAL%C%#d#"IF X HAS THE VALUE%73, X >= 73 IS%%A) TRUE%%B) FALSE",%%#,TRUE%A%T%#n#"IF Y=37 AND Z=25% Y-3 < Z+5 IS%%A) TRUE%%B) FALSE",%%#,FALSE%B%F%#x#"\LAMP\>=\LAMPOON\%%TRUE OR FALSE?",%%#,FALSE%F%#e#"CONSIDER:%%10 RS=5%20 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17THEN20%50 STOP"#"%%HOW MANY TIMES%ROUND THE LOOP?%%#",6%##"LOOK AT:%%10 SJ$=\F\%20 PRINT SJ$%30 SJ$=\J\+SJ$+\K\%40 IFSJ$<\JJJ\% THEN20%&#"50 STOP%%WHAT IS THE LAST%VALUE DISPLAYED?%%#",JJFKK%#3'J1256?'J,(J)E$'"" HELLO. THIS PROGRAM";A("IS DESIGNED TO MEASURE";Z2"YOUR TYPING SPEED"qF"AND TO HELP YOU"P"IMPROVE IT."Z:d" IF YOU WOULD LIKE"n"TO HAVE YOUR RATING"x"MEASURED, TYPE 'R'.""OTHERWISE GIVE YOUR""BEST RATING SO FAR"- A$: A$"" 180H A$"R" "R";: 900d (A$)49(A$)57180tRA10(A$)}A$;A$:A$""230 (A$)48 (A$)57 230A$;:RARA(A$)20003000500:"N(2000RA):600 ,Y(Z(X$))606RB1090(1Y)8@RA(0.8RA0.2RB )BEDD1KJ260W""" COPY THE FOLLOWING":" SENTENCE AS FAST AS":" YOU CAN"" START WITH A SPACE":R(X$):J1R23550(X$,J,22);JJ22:RR22:520O&(X$,J,R);" "U05" "X""b7878,160lR(X$)vA$:A$""630A$" "6307878,32ZTI A$;J2R:W7877J2W,(W)128:T0FA$:A$""740ZTT1:TN710sQ245:1000:T0:710A$(X$,J,1)760Q210:K15:1000::710A$;:W,(W)128 JZTIZ: RA10:D5:260(" THE MACHINE WILL":"GIVE YOU SOME":"SENTENCES TO COPY AS"C"FAST AS YOU CAN." :["THE BLACK MARKER"x"SHOWS THE NEXT LETTER""(OR SPACE) EXPECTED.""START WITH A SPACE!":::"NOW STRIKE ANY KEY":"TO START THE TEST"A$:A$""946800  D0 36878,15(36876,Q7T110:TD36878,0Jol SELECTS A WORD BETWEEN A AND BuvCA:Q245 C0 1950 Y$:CC1:1930C((BA1)(1))C01980Y$:CC1:Q230:1960X$X$" "Y$!D0"TEST SENTENCE";D6:;" "[ "RATING:  ";RA;""w " "} X$"":4000 (1)0.5 3060 4200:4600 3070 4400 (1)0.253090 4800  (1)0.34030 5000:X$X$" THE"/ (1)0.3406095200E5400:[hA43:B50:1900:q0A26:B35:1900: (1)0.64700X$X$" ""THE" REN(1)0.3556006000:\ (1)0.5X$X$" ""SOME":4720f5800p(1)0.355600 z6200:- (1)0.7X$X$" ""VERY": 6400:OA1:B10:1900:ePA11:B17:1900:{A18:B25:1900:A75:B79:1900:A58:B68:1900:pA51:B57:1900:8A69:B74:1900:A36:B42:1900:)(# ANDREW,JOHN,JILL,SUSAN,XAVIER,VANESSA,BILL,PENNY,ZENA,JOE[2#SILLY,FAT,GREEDY,TALL,UNTIDY,UNWASHED,STUPID<#BOY,GIRL,MAID,SCHOOLBOY,TEACHER,PROFESSOR,QUEEN,DANCERF#WEPT,LAUGHED,"RAN AWAY",FELL,ESCAPED,FAINTED,SNORED,TALKED,STOPPED,SHUDDERED(P#QUICKLY,SLOWLY,FAST,NOISILY,SOFTLY,SLYLY,WITHOUT ANY FUSSfZ#GOBBLED,PINCHED,BOUGHT,SOLD,STOLE,FETCHED,BROUGHT,BOILEDd#DUCK,WINE,WHISKY,BEANS,RABBIT,LOAF,SYNTHETIC CREAMn#TWO,THREE,4,5,6,7,8,10,13,18,20x#CAKES,POTATOES,APPLES,PIES,SCONES,ROLLS#FOUL,MOULDY,ROTTEN,STALE,GOOD