C64S tape image fileINTRO TO BASIC 1 sÀTESTCARD Š2HANGMAN þKSPEEDTYPE -»UNIT3QUIZ AçUNIT4DRILL 4'+UNIT5QUIZ ,Z7SENTENCES G…@UNIT7QUIZ ™"“"! � TESTCARD PROGRAMG� COPYRIGHT (C) ANDREW COLIN 1981`™"�“ TEST CARDf™‚(™"� ’ BLACK"‰2™"¦<™" ’� WHITE"¬F™ÇP™" ’� RED"ÍZ™éd™"Ÿ ’� CYANïn™ x™"œ ’� PURPLE"‚™0Œ™" ’� GREEN"6–™R ™" ’ � BLUE"Xª™v´™"ž ’� YELLOW"‡¹† F(8),N(26)�¾Œ¡È�J²1¤8:‡F(J):‚J½Ò� CODES FOR COLOUR KEYSÞ܃ 144,5,28,159,156,30,31,158ðô� TUNE PLAYERÿA²Æ("A")«2  A²A«1%�J²1 ¤ 26 : ‡ N(J): ‚ JF� J²0 ¤ 3 :— 36874ªJ,0 : ‚ JU&— 36878,15^0‡ V$q:‹ V$²"#" § 190zD‡ W$†NP²1:T²0ŽXC²0›l‹C²T§625ªm�Q²1¤25:‚Q³n‰800Áq— 36876,0ÔvY²Å(Ê(W$,P,1))​Y²0§ 560õŠX²Æ(Ê(V$,P,1))ÿ”P²Pª1 žT²TªY¨— 36876,N(X«A). �Q²0¤ 5 :‚Q?*X²µ(88¬»(1))O4Y²µ(8¬»(1))_>— 38818ªX,YpH— 8098ªX,160ƒR¡A$:‹A$²""§910�\Q²Æ(A$)ša�J²1¤8¬f‹ Q³±F(J)§900½p— 36879,23ªJÆz‰910Ì„‚ÖŽC²Cª1ߘ‰620ëè� 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-CAN»Vƒ"CJJLJHHLMQTQQOOQGGQOHHLLJLJLJLJ","22222222222222422222222222222220"`ƒ"CJJLJHHLMQTQQOOQGGQOHHLLJLJHH","222222222222224222222222222440";jƒ"LHECOJLMLJHLHECBCEGHCGC","444422222244444222222220"ytƒ"HCGCHCGCHHHHHHHHHHHHHHHHH","22222222211222222222222220"·~ƒ"ACFECHHHJEFCCCFECAMLJHFEC","82222442222442222222222220"ñˆƒ"ACFECHHHJEFCCCFECAHCEAH","822224422224422222222440"/’ƒ"ACFECHHHJEFCCCFECAMLJHFEC","82222442222442222222222220"gœƒ"ACFECHHHJEFCCCFECAHCEA","82222442222442222222280"qЃ "#" �HANGMAN‹ Z±13 § 220;† P%(88),C%(24),B%(6,4)A#ŒV(�J²1¤24:‡C%(J):‚^2‡C$s<‡A$:‡B$:A$²A$ªB$ˆF�J²1¤88:‡P%(J):‚¨P�J²1¤6:�K²1¤4:‡B%(J,K):‚K,J²d�1200»n™"“"ÙxX²14:Y²2:A²1:B²46:R²Ã(X$)ã‚�1000ð‡P²13:Q²4Œ™"WORD HAS";R;" LETTERS"2–�J²1¤R:—7750ªJ,42:—38470ªJ,2:‚J8› t ™"LETTERS":™:™" USED":™:™"NEXT GUESS?"�¥T$²Ê("********",1,R)•¦K²0¨ª¡Z$:‹Z$²""§170·´Z²Æ(Z$)«64ɾ‹Z³1°Z±26§170ÞÈ—8132,Z:—38852,2ïÍ‹ Z±13 § 220Ò—7725ª22¬(Z«1),Z:—38445ª22¬(Z«1),2:‰240DÜ—7727ª22¬(Z«14),Z:—38447ª22¬(Z«14),2Nð�1300[ú‹L²1§300e�1400oK²Kª1„‹K³±7§�1100:‰170�"‰500œ,‹T$²X$§600¦1�1500¯6‰170ÃôP²13:Q²4:�K²1¤6Üù—36876,245:—36878,15 þX²PªB%(K,1):Y²QªB%(K,2):A²B%(K,3):B²B%(K,4)�1600‚K(�J²1¤5H&—7760ª22¬J,66:—38480ª22¬J,4Z'—8065ªJ,32:‚Jg0P²13:Q²7z5�K²1¤6:�1100:‚Å:�ZZ²1¤5:™Ê("’",ZYª1,1)"YOU LOSE.IT WAS "X$;:ZY²1«ZY:�ZX²1¤100:‚ZX,ZZçD™:™"NOW HIT ANY KEY":—36876,0ûNA²230:B²12:‰630XX²14:Y²2:A²1:B²46b�1600.g�K²1¤6:�1100:‚Zl™"YOU WIN AND ARE FREE HIT ANY KEY "iqA²200:B²50wv—36878,15„€—36874,A’Š�M²1¤10:‚Ÿ”—36874,0ªž�M²1¤BШ¡Z$:‹Z$³±""§—36874,0:—36876,0:‰35ײ‚M༉640íèF²22¬YªXúòF²22¬YªXü�J²A¤BL²Æ(Ê(A$,J,1))«644— FªP%(J)ª7680,C%(L)U— FªP%(J)ª38400,Å(Ê(C$,L,1))\$‚Jb.Ž~LX²PªB%(K,1):Y²QªB%(K,2)šVX²PªB%(K,1):Y²QªB%(K,2)²`A²B%(K,3):B²B%(K,4)½j� 1000ÃtŽÔ°X²µ(52¬»(1))æº� J²1¤X:‡X$:‚ìÄŽ� COMPARES CURRENT LETTER WITH X$L²0%�M²1¤R=(‹Z$³±Ê(X$,M,1)§1360[2T$²È(T$,M«1)ªZ$ªÉ(T$,R«M)t<—7750ªM,Z:—38470ªM,5|FL²1ƒP‚M‰ZŽ—x—36878,15©y�L²240¤188©«1¶z—36876,LÄ{�M²1¤5:‚MË‚‚LÚŒ—36876,0:ŽïÜ—36878,15:�L²1¤6 æ�M²254¤240ªµ(»(1)¬10)©«1ð—36876,M:‚M)ú—36876,0G�M²0¤µ(»(1)¬100)ª 20:‚M,LMŽ_@� ERASE SHAPElJF²22¬YªXwT�J²A¤BŠ^L²Æ(Ê(A$,J,1))Ÿh—FªP%(J)ª7680,32¦r‚J¬|ŽÛªƒ160,95,223,93,113,85,73,34,45,74,75,78,77´ƒ103,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>µƒ333’ă0,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,90¼Îƒ0,-1,20,0,1,24,0,21,43,65,0,23,45,67Òp� SHAPE DIRECTORYzƒ0,0,47,58,0,4,59,74,-1,5,75,77,3,5,78,80,0,9,81,84,2,9,85,88YXƒMAP,BICYCLE,PUZZLE,QUEEN,RULER,RAIN,AXIOM,CARAPACE,WINDOW,LABEL©bƒCLOCK,JUDGE,STAR,BREAD,PENCIL,BOUGH,SKY,ORANGE,SHOW,TRAIN,PIG,WHALE,BOTTOMðlƒCARPET,CAKE,HOSPITAL,VIOLIN,FILE,CASSETTE,MUSIC,AXE,NUMBER,LETTER=vƒCOMPUTER,MAGAZINE,PICTURE,RECORDER,PEN,GRASS,AIRCRAFT,NOISE,DINNER,BEERˆ€ƒCOARSE,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!"F�J²1¤12:‡Y$:‚P‡NZ†Z(N)3d�J²1¤N:Z(N)²0:‚<nSC²0Gx�J²1¤NY‚‹Z(J)±²0§ 200`Œ‚J}–™"�“ YOU SCORED";SCœ ™:™"QUESTIONS RIGHT FIRST"®ª™:™"OUT OF";NÙ´™:™"THIS IS";µ(100¬SC­Nª0.5);"PERCENT"ß¾€ñÈD²1ªµ(N¬»(1))Ò‹ Z(D)²«1§200ÜC²2¬Z(D)æ�1200%ð�T²1¤38ú¡A$:‹A$²""§250B�1000L�1300V�1600s‹R²1¯T²1¯Z(D)²0§ SC²SCª1‘"‹ R²1 ¯ T²1 §Z(D)²«1:‰400¡,‹ R²1 § 320¨6‚T½@Z(D)²Z(D)ª1:‰120Æ�‰120Ïè™"“"Øò™"“"ü�J²0¤21:—7680ªJ,160:—38400ªJ,C:‚ 7�J²0¤440©22:—7723ªJ,160:—38443ªJ,C:‚_�J²21¤0©«1:—8164ªJ,160:—38884ªJ,C:‚‰�J²440¤0©«22:—7702ªJ,160:—38422ªJ,C:‚ W²2:‹Ã(X$)±120§W²1±$P²1:J²3: K²3È.A$²Ê(X$,P,1):P²Pª1Ú8‹A$²"#"§ 1150öB‹A$²"%"§J²JªW:K²3:‰1070'L—7680ª22¬JªK,Æ(A$)¯ 63:—38400ª22¬JªK,0:K²Kª11V‰10707~Ž=°ŒO¿�J²1¤12:‡X$:‚VćNaÎ�J²1¤Dm؇X$:‡Y$~ÝX$²X$ªY$:‡Y$†â‚ JŒìŽ«™"¦�";³(…A$Ê)P²Ã(A$):‹ P²0§1300ã*‹Æ(É(A$,1))³±32§1330ö+A$²Ê(A$,1,P«1).‰13212‹ È(Y$,1)³±"%"§1380 <P²2@F‹Ê(Y$,P,1)³±"-"§P²Pª1:‰1350{P‹Å(A$)±²Å(Ê(Y$,2,P«1))¯Å(A$)³²Å(Ê(Y$,Pª1,Ã(Y$))) §1500…ZR²0:Ž�dP²1¥n‹Ê(Y$,P,1)²"#"§1370­xQ²PÍ‚‹Ê(Y$,Q,1)³±"%"§Q²Qª1:‰1410挋Ê(Y$,P,Q«P)²A$§1500ö–P²Qª1:‰1390Ü:R²1:Ž@Œ!TS²6¬(1«R)ªµ(6¬»(1))ª12^�J²1¤S:‡Z$:‚Rh™"";Z$dr‹T³²2 § ‰1750ˆ|™"THE RIGHT ANSWER IS":™"";Ÿ†‹ È(Y$,1)²"%"§1710§�P²1Àš‹Ê(Y$,P,1)²"%"§‰1750ܤ™Ê(Y$,P,1);:P²Pª1:‰1690õ®™Ê(Y$,2,Ã(Y$)):‰1750*Ö™" NOW TYPE ANY KEY":Ž8ÐX$²"ABCD"@Ú…Y$Pä‹X$²Y$§2050`î™"NO":‰2000k™"YES"q �ŸJƒYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKâTƒNO,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 ‹DM±0¯ DM³9 §17Ÿ ™"RANGE WRONG.TRY AGAIN":…DM:‰12²†S%(15),S$(15)¿�BB²1¤20ÕU$²Ç(34):D$²Ç(32)áP²1:D²1 ™"“LEVEL OF DIFFICULTY":™" = ";DMR™" TYPE IN EXACTLY":™" WHAT THE FOLLOWING":™" PRINT COMMAND WOULD"ƒ™" GIVE : -":™" FOLLOW IT WITH":™" RETURN":™¹�J²1¤10: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$:‹X³«100°X±100§20SB‰80oF�2000:P$²P$ªX$:W$²W$ªY$‡P‹ »(1)±.5°D±²DM§130•ZP$²P$ª";"¦d‹»(1)³.5§120°i�1000ÙnP$²P$ªX$:W$²W$ªÄ(X):‹X³«100°X±100§20âs‰130þx�2000:P$²P$ªX$:W$²W$ªY$‚�Œ�E²20¤1©«1–�J²1¤103 ‹N%(J)²E§™N$(J)Gª‹M(J)²E§ ™M$(J)P´‚J,EZ¾™:™P$dÈG$²""~É¡H$:A²»(1):‹H$²""§201�Ê‹Æ(H$)²13§210¤Ë‹Æ(H$)³±20§ 206µÌ‹Ã(G$)²0§201ÙÍG$²Ê(G$,1,Ã(G$)«1):™"� �";:‰201ðΙH$;:G$²G$ªH$:‰201ÒJ²Ã(G$):‹É(G$,1)²D$§G$²Ê(G$,1,J«1):‰210HÜK²Ã(W$):‹É(W$,1)²D$§W$²Ê(W$,1,K«1):‰220Wæ‹G$²W$§400bðGG$²""mú�L²1¤J’‹Ê(G$,L,1)³±D$§GG$²GG$ªÊ(G$,L,1)š‚ L¥WW$²""°"�L²1¤KÕ,‹Ê(W$,L,1)³±D$§WW$²WW$ªÊ(W$,L,1)Ü6‚Lî@‹GG$²WW$§ 600 J™:™"WRONG. THE ANSWER IS"T™W$-Y‹ DM±0.25§DM²DM«0.25K^™:™"HIT ANY KEY TO GO ON"^h¡A$:‹A$²""§360gr‰900�™:™"THAT'S RIGHT!"”š‹DM³9§DM²DMª0.25�¤‰350ÜX™:™"CORRECT EXCEPT FOR":™"SPACING. THE RIGHT":™"ANSWER IS"æb™:™W$ïl‰350÷„‚BB>Ž™"“IN 20 PROBLEMS YOUR":™"LEVEL OF DIFFICULTY":™"HAS RISEN TO";DMq“‹DM±²9§™"THIS IS AS HIGH AS YOU":™"NEED GO":�£˜™"ENTER IT NEXT TIME":™"YOU RUN THIS PROGRAM"©¢€Çè‹»(1)³.7¯D³DM§D²Dª1:‰1030ëò‹ »(1)³0.7 ¯ D³DM § D²Dª1:‰1030÷ü�1500:Ž �1500:XX$²X$:XX²X�1500,‹»(1)±0.6 § 1070M$X$²XX$ª"+"ªX$:X²XXªX:D²D«1:Ž`.‹»(1)³0.5§1090{8X$²XX$ª"-"ªX$:X²XX«X:ŽœBX$²XX$ª"*"ªX$:X²XX¬X:D²D«1:ŽºÜ‹»(1)³.5¯D³DM§D²Dª1:‰1600Øæ‹»(1)³.5¯D³DM§D²Dª1:‰1600éðX²µ(10¬»(1))úúX$²Ç(Xª48):Ž @V²1ªµ(10¬»(1)) JV²1ªµ(10¬»(1));T‹N%(V)±0¯N$(V)²""§1610M^‹N%(V)²0§1650_c‹N%(V)³D§1610hX$²Ç(Vª64):X²NS%(V):D²D«1:Ž‹rN%(V)²D²|S%(P)²V:S%(Pª1)²XX:S$(P)²XX$:P²Pª2¼†�1000ã�P²P«2:V²S%(P):XX²S%(Pª1):XX$²S$(P)šNS%(V)²X:N$(V)²Ç(Vª64)ª" = "ªX$¤X$²Ç(Vª64):D²D«1:Ž<Ћ»(1)³.5¯D³DM§D²Dª2:‰2030]Ú‹»(1)³0.5¯ D³DM §D²Dª2:‰2030iä�2500:Ž�î�2500:XX$²X$:YY$²Y$šø�2500:‹»(1)³0.5§2060»X$²XX$ªQ$ªX$:Y$²YY$ª" "ªY$:ŽÜ X$²XX$ªA$ªX$:Y$²YY$ª"&"ªY$:ŽúÄ ‹»(1)³.5¯D³DM§D²Dª2:‰2590Î ‹»(1)³0.5 ¯D³DM§D²Dª2:‰2590/Ø Y$²Ç(26¬»(1)ª65)G X$²Ç(34)ªY$ªÇ(34):ŽZ V²1ªµ(10¬»(1))u( ‹M(V)±0¯M$(V)²""§ 2590†2 ‹M(V)²0§2630¥< X$²Ç(Vª64)ª"$":Y$²MS$(V):ŽÔF M(V)²D:S%(P)²V:S$(P)²XX$:S$(Pª1)²YY$:P²Pª2ÞP �2000Z P²P«2:V²S%(P):XX$²S$(P):YY$²S$(Pª1)*d MS$(V)²Y$:M$(V)²Ç(Vª64)ª"$="ªX$?n X$²Ç(Vª64)ª"$":Ž ™"�“ 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!"F�J²1¤12:‡Y$:‚P‡NZ†Z(N)3d�J²1¤N:Z(N)²0:‚<nSC²0Gx�J²1¤NY‚‹Z(J)±²0§ 200`Œ‚Js–¡T$:‹T$²""§150�—™"�“ YOU SCORED";SC¯ ™:™"QUESTIONS RIGHT FIRST"Áª™:™"OUT OF";Nì´™:™"THIS IS";µ(100¬SC­Nª0.5);"PERCENT"ò¾€ÈD²1ªµ(N¬»(1))Ò‹ Z(D)²«1§200#ÜC²2¬Z(D)-æ�12008ð�T²1¤3Kú¡A$:‹A$²""§250U�1000_�1300i�1600†‹R²1¯T²1¯Z(D)²0§ SC²SCª1¤"‹ R²1 ¯ T²1 §Z(D)²«1:‰400´,‹ R²1 § 320»6‚TÐ@Z(D)²Z(D)ª1:‰120Ù�‰120âè™"“"ëò™"“"!ü�J²0¤21:—7680ªJ,160:—38400ªJ,C:‚ J�J²0¤440©22:—7723ªJ,160:—38443ªJ,C:‚r�J²21¤0©«1:—8164ªJ,160:—38884ªJ,C:‚œ�J²440¤0©«22:—7702ªJ,160:—38422ªJ,C:‚³W²2:‹Ã(X$)±100§W²1Ä$P²1:J²3: K²3Û.A$²Ê(X$,P,1):P²Pª1í8‹A$²"#"§ 1150 B‹A$²"%"§J²JªW:K²3:‰1070:L—7680ª22¬JªK,Æ(A$)¯ 63:—38400ª22¬JªK,0:K²Kª1DV‰1070J~ŽP°Œb¿�J²1¤12:‡X$:‚ićNtÎ�J²1¤D€Ø‡X$:‡Y$‘ÝX$²X$ªY$:‡Y$™â‚ JŸì޾™"¦�";Æ(…A$Ý)P²Ã(A$):‹ P²0§1300ö*‹Æ(É(A$,1))³±32§1330 +A$²Ê(A$,1,P«1).‰1321+2‹ È(Y$,1)³±"%"§13803<P²2SF‹Ê(Y$,P,1)³±"-"§P²Pª1:‰1350ŽP‹Å(A$)±²Å(Ê(Y$,2,P«1))¯Å(A$)³²Å(Ê(Y$,Pª1,Ã(Y$))) §1500˜ZR²0:Ž dP²1¸n‹Ê(Y$,P,1)²"#"§1370ÀxQ²Pà‚‹Ê(Y$,Q,1)³±"%"§Q²Qª1:‰1410ùŒ‹Ê(Y$,P,Q«P)²A$§1500 –P²Qª1:‰1390Ü:R²1:Ž@Œ4TS²6¬(1«R)ªµ(6¬»(1))ª1E^�J²1¤S:‡Z$:‚eh™"";Z$wr‹T³²2 § ‰1750›|™"THE RIGHT ANSWER IS":™"";²†‹ È(Y$,1)²"%"§1710º�P²1Óš‹Ê(Y$,P,1)²"%"§‰1750酪Ê(Y$,P,1);:P²Pª1:‰1690®™Ê(Y$,2,Ã(Y$)):‰1750=Ö™" NOW TYPE ANY KEY":ŽKÐX$²"ABCD"SÚ…Y$cä‹X$²Y$§2050sî™"NO":‰2000~™"YES"„ �²JƒYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OKõTƒNO,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 N²13U†P(13,2)_�2000h(�100q-™"“"Œ.X$²Ê(X$,2,Ã(X$)«1)ª"."–2�5000¾<™:™:™:™:™:™:™"FORTHE NEXT SENTENCE"ÑF™"HIT ANY KEY"ÜPX²»(1)öZ¡A$:‹A$²""§80 ›0«100þ_‰40d� MAIN SENTENCE GENERATOR&iX$²""9n‹ »(1)³0.5§300Cx�1100U‚‹»(1)³0.3§700gŒ‹»(1)³0.5§170u–A²2:�1000„ �1200:‰800’ªA²3:�1000 ´A²4:�1000©¾‰800³,�1200Å6‹»(1)³0.3§700×@‹»(1)±0.5§370åJA²2:�1000ïT�1100ø^‰800rA²3:�1000|A²5:�1000†‰8000¼A²1:�1000:‰900A ‹»(1)³0.6§ ŽQ*A²6:�1000:Žb„‹»(1)±0.5§ ŽrŽA²7:�1000:ެè� SUBROUTINE TO SELECT A RANDOM WORD FROM CATEGORY A.ÓíY²P(A,1)ªµ((P(A,2)«P(A,1)ª1)¬»(1))æòŒ:�Z²1¤Y:‡Y$:‚÷üX$²X$ª" "ªY$ýŽL� SELECT MALE SUBJECT.+Q‹»(1)±0.5§1120;VA²8:�1000:ŽL`X$²X$ª" THE"ej‹ »(1)³0.4§A²9:�1000ttA²10:�1000z~Ž—°� SELECT FEMALE SUBJECT.ªµ‹»(1)±0.5§1220»ºA²11:�1000:ŽÌÄX$²X$ª" THE"å΋»(1)³0.4§A²12:�1000öØA²13:�1000:ŽÐ� SET UP POINTER TABLEÚX²1$ä�J²1¤N1îP(J,1)²X9ø‡X$R‹X$³±"Z"§X²Xª1:‰2040g P(J,2)²X«1:X²Xª1n‚Jt*޵ˆ� DISPLAY SENTENCE X$ WITHOUT BREAKING UP WORDS ACROSS LINESÈ�‹Ã(X$)±22§5020Ò’™X$:Žîœ‹ Ê(X$,23,1)³±" "§ 5050¦™Ê(X$,1,22)5040X$²É(X$,Ã(X$)«23):™µ‰50009º‹Ê(X$,22,1)³±" "§5080IÄ™Ê(X$,1,21)dÉX$²Ê(X$,23,Ã(X$)«22):™nΉ5000wØP²21—â‹Ê(X$,P,1)³±" "§P²P«1:‰5090«ì™Ê(X$,1,P«1) :™ÄöX$²Ê(X$,Pª1,Ã(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,ZÉF#ƒ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,Z�d#ƒALL THE TIME,OFTEN,IN THE BATH,QUIETLY,LOUDLY,Zìn#ƒ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!"F�J²1¤12:‡Y$:‚P‡NZ†Z(N)3d�J²1¤N:Z(N)²0:‚<nSC²0Gx�J²1¤NY‚‹Z(J)±²0§ 200`Œ‚J}–™"“ YOU SCORED";SCœ ™:™"QUESTIONS RIGHT FIRST"®ª™:™"OUT OF";NÙ´™:™"THIS IS";µ(100¬SC­Nª0.5);"PERCENT"ß¾€ñÈD²1ªµ(N¬»(1))Ò‹ Z(D)²«1§200ÜC²2¬Z(D)æ�1200%ð�T²1¤38ú¡A$:‹A$²""§250B�1000L�1300V�1600s‹R²1¯T²1¯Z(D)²0§ SC²SCª1‘"‹ R²1 ¯ T²1 §Z(D)²«1:‰400¡,‹ R²1 § 320¨6‚T½@Z(D)²Z(D)ª1:‰120Æ�‰120Ïè™"“"ü�J²0¤21:—7680ªJ,160:—38400ªJ,C:‚ .�J²0¤440©22:—7723ªJ,160:—38443ªJ,C:‚V�J²21¤0©«1:—8164ªJ,160:—38884ªJ,C:‚€�J²440¤0©«22:—7702ªJ,160:—38422ªJ,C:‚—W²2:‹Ã(X$)±100§W²1¨$P²1:J²3: K²3¿.A$²Ê(X$,P,1):P²Pª1Ñ8‹A$²"#"§ 1150íB‹A$²"%"§J²JªW:K²3:‰1070G‹A$²"\"§A$²Ç(34)3L—7680ª22¬JªK,Æ(A$)¯ 63:—38400ª22¬JªK,0:K²Kª1=V‰1070C~ŽI°Œ[¿�J²1¤12:‡X$:‚bćNmÎ�J²1¤Dy؇X$:‡Y$ŠÝX$²X$ªY$:‡Y$’â‚ J˜ìŽ·™"¦�";ÅP²0:A$²""Ù¡G$:‹G$²""§1307åR²Æ(G$)‹R²20¯P±0§A$²È(A$,P«1):P²P«1:™"� �";:‰1307V!‹(R±64¯R³91)°(R±47¯R³58)°(R²32¯P±0)§P²Pª1:A$²A$ªG$:™G$;:‰1307j#‹R³±13°P²0§1307–%‹Æ(É(A$,1))²32§A$²È(A$,P«1):P²P«1:‰1315œ'™´2‹ È(Y$,1)³±"%"§1380¼<P²2ÜF‹Ê(Y$,P,1)³±"-"§P²Pª1:‰1350P‹Å(A$)±²Å(Ê(Y$,2,P«1))¯Å(A$)³²Å(Ê(Y$,Pª1,Ã(Y$))) §1500!ZR²0:Ž)dP²1An‹Ê(Y$,P,1)²"#"§1370IxQ²Pi‚‹Ê(Y$,Q,1)³±"%"§Q²Qª1:‰1410‚Œ‹Ê(Y$,P,Q«P)²A$§1500’–P²Qª1:‰1390�Ü:R²1:Ž£@Œ½TS²6¬(1«R)ªµ(6¬»(1))ª1Î^�J²1¤S:‡Z$:‚îh™"";Z$r‹T³²2 § ‰1750$|™"THE RIGHT ANSWER IS":™"";;†‹ È(Y$,1)²"%"§1710C�P²1\š‹Ê(Y$,P,1)²"%"§‰1750x¤™Ê(Y$,P,1);:P²Pª1:‰1690‘®™Ê(Y$,2,Ã(Y$)):‰1750ÆÖ™" NOW TYPE ANY KEY":ŽôJƒYES,CORRECT,RIGHT,GOOD,"THAT'S RIGHT",OK7TƒNO,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'�J²1¤256?'™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$)±57§180tÒRA²10¬Å(A$)}Ü™A$;�æ¡A$:‹A$²""§230°ð‹ Æ(A$)³48 ° Æ(A$)±57 § 230Åú™A$;:RA²RAªÅ(A$)Ï�2000Ù�3000ã�500:ù"N²µ(2000­RA):�600 ,Y²(Z­Ã(X$))­606RB²10ª90­(1ªY)8@RA²µ(0.8¬RAª0.2¬RB )BED²Dª1KJ‰260Wô™""™ù™" COPY THE FOLLOWING":™" SENTENCE AS FAST AS":™" YOU CAN"·ü™" START WITH A SPACE":™ÇþR²Ã(X$):J²1Õ‹R³23§550æ™Ê(X$,J,22);ýJ²Jª22:R²R«22:‰520O&™Ê(X$,J,R);" "U0Ž–5™" "­X™""»b—7878,160ÇlR²Ã(X$)Úv¡A$:‹A$²""§630뀋A$³±" "§630øŠ—7878,32”Z²TI ž™A$;¨�J²2¤R:W²7877ªJ2²—W,Â(W)ª128:T²0FÆ¡A$:‹A$³±""§740ZÐT²Tª1:‹T³±N§710sÚQ²245:�1000:T²0:‰710‰ä‹A$²Ê(X$,J,1)§760§îQ²210:�K²1¤5:�1000:‚:‰710¼ø™A$;:—W,Â(W)«128à ‚JÐZ²TI«Z:Žä RA²10:D²«5:‰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$²""§946¶‰800 è‹ D³0§ Žé—36878,15(ò—36876,Q7ü�T²1¤10:‚TD—36878,0JŽol� SELECTS A WORD BETWEEN A AND BuvŒƒ€C²A:Q²245”Š‹ C²0 § 1950©”‡ Y$:C²C«1:‰1930¿žC²µ((B«Aª1)¬»(1))ͨ‹C²0§1980粇Y$:C²C«1:Q²230:‰1960ø¼X$²X$ª" "ªY$þÆŽ!ЋD³0§™"“TEST SENTENCE";Dª6:Ž;Ú™"“ °ÀÀÀÀÀÀ®"[Û™ "RATING: Ý  ";RA;"�Ý"wÜ™ " ­ÀÀÀÀÀÀ½"}ÝŽ�¸ X$²"":�4000¢Ì ‹ »(1)±0.5§ 3060²à �4200:�4600¼ê ‰3070Æô �4400Úþ ‹»(1)±0.25§3090ä �4800ê Žþ ‹ »(1)±0.3§4030 ´�5000:޾X$²X$ª" THE"/È‹ »(1)±0.3§40609Ò�5200EÜ�5400:Ž[hA²43:B²50:�1900:Žq0A²26:B²35:�1900:Ž…ø‹ »(1)±0.6§4700™X$²X$ª" "ª"THE"° ‹REN(1)³0.35§�5600¼�6000:Žâ\‹ »(1)±0.5§X$²X$ª" "ª"SOME":‰4720ìf�5800p‹»(1)³0.35§�5600 z�6200:Ž-À‹ »(1)±0.7§X$²X$ª" "ª"VERY":Ô� 6400:ŽOˆA²1:B²10:�1900:ŽePA²11:B²17:�1900:Ž{A²18:B²25:�1900:Ž‘àA²75:B²79:�1900:ާ¨A²58:B²68:�1900:޽pA²51:B²57:�1900:ŽÓ8A²69:B²74:�1900:ŽéA²36:B²42:�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,DANCERéF#ƒ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,BOILEDžd#ƒDUCK,WINE,WHISKY,BEANS,RABBIT,LOAF,SYNTHETIC CREAMÃn#ƒTWO,THREE,4,5,6,7,8,10,13,18,20ðx#ƒCAKES,POTATOES,APPLES,PIES,SCONES,ROLLS‚#ƒFOUL,MOULDY,ROTTEN,STALE,GOOD