( * ORIGINAL PET VERSION BY *O * R. CURRIE *v * * * COLOUR FOR THE 64 VERSION BY * * JOHN CURRIE *:I679699:A:I,A:- 169,1,160,0,153,0,216,153,0,217,153,0,218,153,0,219,200,208,241,96,0W Z 53272,21:53280,0:53281,0:""(8) dZZ1024:Z42: 2000:: AZ0 130 n"";: D0 39: "*";: 2910: D: "":AZ1 xA3:D2:A$"ADDING QUIZ * AUTHOR: R. CURRIE": 2060% "":D2:A10:A$"1. START ADDING 1.": 2060:P A$"2. TEACHER INSTRUCTIONS.": 2060:q A$"3. QUIT.": 2060: "" A$"PLEASE TYPE 1, 2 OR 3": 2060 ZZ622,49: ZZ625,178: ZZ630,51: 2900 A$: A$"" 250 ZZ622,177: ZZ625,50: ZZ630,179: 2900' A$: A$"" 200; A$"1" 3000N  A$"2" 400c  A$"3" 20000m " 200 Z42: 2000: 53272,23:A$"Ҡ": 880 A$" HIS PROGRAM WILL DISPLAY ADD-": 2060: A$"ITION QUESTIONS OF VARYING DEGREES": 2060:D A$"OF DIFFICULTY. EPENDING ON THE": 2060:w A$"LEVEL CALLED FOR, ONE OR MORE OF": 2060: A$"THE DIGITS IN THE QUESTION WILL BE": 2060: A$"BLANKED OUT.": 2060: A$" HE STUDENT'S TASK WILL BE TO": 2060:, A$"ENTER THE CORRECT DIGIT(S).": 2060:a A$" NY NUMBER OF QUESTIONS, AT ANY": 2060: A$"LEVEL OF DIFFICULTY CAN BE CALLED FOR.": 2060 X 850 RA$" ٠":A13: 2060 \ A$: A$"" 860 f 53272,21: 100pD2:A9: 2060: 3)"-";: B1 328z 2960: "-";: B::A2:o680,6:"":679: A0 39:ZZA,Z:ZZ960A,Z:A A1 23: ZZ40A,Z: ZZ39(40A),Z: A: C(A$)B1: A)(A$,B,1);: B2 C: (A$,B,1)" " 2090  " ";: 2100* (A$,B,1);: D 2900,2910,2980+4 B::bD1D: A1 5: ZZD,102: 2920:DD40: A:DD1:D1D: A1 4: ZZ(D1)A,102: 2920: A:DD1: 2200: A1 2: B1 2: ZZDB,102: 2920 B:DD160: A:DD317: 2200:DD1: 2200:DD1: 2200:L 2210: ZZD43,102: 2920:DD80: 2210: ZZD40,102g 2920:DD80: 2210: A1 3: ZZ(D1)A,102: 2920: A: 2270:DD3: 2200: ZZD78,102: 2920 ZZD79,102: 2920:DD157: 2270:% A1 3: ZZD,102: 2920:DD40: A: ZZ(D39),102X 2920: ZZ(D38),102: 2920:DD117: 2200: 2210: ZZD40,102: 2920:DD80: 2210 ZZD43,102: 2920:DD80: 2210:$ 2200: ZZD1,102: 2920: ZZD2,102: 2920. DD81: 2270: ZZD42,102:DD80: 2270:,8 2270:DD3: 2200:_B 2200: A1 3: B1 2: ZZDB,102: 2920L B:DD80: A:DD237: 2200:V 2270: ZZD40,102: 2960:DD80: 2270:DD77` 2200: ZZD159,102: 2920: ZZD158,102:j 2200:DD79: 2270:0t D1D:DD1: A1 5: ZZD,103: 2920gy ZZD5,101: 2920:DD40: A:D(D140): A1 4~ ZZD,100: 2920: ZZD240,99: 2920:DD1: A ZZD181,63: ZZD182,63: 680,7:"";:679:A$B$:D2:A0: 2060:R41: A0 8. ZZRA,100: ZZR(A240),99: A:R80: A1 5\ ZZR,103: ZZR10,101:RR40: A: "" 1)RI;:A$"RIGHT":A1: 2060:: 1)WR; A$"WRONG": 2060: "" A$"TYPE 'C' FOR CORRECTION OR 'H' FOR HELP":A0: 2060  A1 10: A$: A:? I 2510,2515,2520,2520,2520,2525,2525,2525X D622:B4:C9: 2530s D629:B11:C99: 2530 D629:B18:C999: 2530 D636:B25:C9999 2540: 2550 A1 B: ZZD,230: 2910:DD1: A: HC 2560  B7: 2540: 2555H( AA1: A10 A: ZZRA1,C: A1:R1RA: D11 D2 RR40: ZZR,C: D1:RR40: A10 A: ZZRA1,C< A1:RR1: D11 D:RR40: ZZR,C: D1:T E1 5: E:^ E1 20: E:h E1 10: E:r E1 100: E:| E1 200: E:/ E1 300: E:D E1 10: E:Y E1 30: E:n E1 40: E: 680,3:"":679:A40:D23:R0:C42: 2600:A36:D19 R82:C170:2600 A32:D15:R164:C42: 2600:A28:D11:R246:C170: 2600. A24:D7:R328:C42: 2600: "": A1 7W 9)"+";: B1 5: 2910: "ADD+";i B: "+": A A38:D21:R41:C48: 2600:A34:D17:R123: 2600 A30:D13:R205: 2600:A26:D9:R287: 2600  2950:680,2:"":679:A$"HELLO, MY NAME IS ADDER."F D2:A8: 2060::A$"WHAT IS YOUR NAME?":A11: 2060^ A1 10: A$: Av B$:: "HELLO,": A(B$): A1 3190& A20 31300 A19: R400:B(A2)1:AB2:D4:B(40A)2:RRB:C42: 2600 N :BB1: A1 (B$): BB1 43X B)(B$,A,1): 2910: BB: ""Ob BB2: 2910: A: 2950}v 680,4:"":679:A$B$:D2:A0: 2060:x A$"PICK A NUMBER FROM 1 TO 8." A7: 2060::A$"1 IS THE EASIEST AND 8 IS THE HARDEST." A0: 2060::A$"TYPE ONE OF THESE-":A11: 2060H R532:A48: C1 2: B1 8: ZZR,AB: 2900{ RR2: B:RR16:A176: C: A$: A$"" 3230 A$"H" 100 C$"12345678": I1 8: (C$,I,1)A$ 3262 I: 3230  "": B$",":A$"HOW MANY QUESTIONS DO YOU WANT?":1 D2:A4: 2060:: 10)" ";: NQ$E NQ$"H" 100a NQ(NQ$): NQ0 3262 I 4000,5000,6000,6000,6000,7000,7000,7000 2450:F2(10(1)):G2(10(1)):FF2:GG2HFG:H3H:H20: H10 4030H3H10:H2(HH3)107D99:BBF:B1(4(1))1: B1 4040,4120,4125,4125T 2420:D379:BBG: 4130eD372: 2410 2500: B1 4060,4060,4080,4100D739:BBH3: 4130: H20 4140D732:BBH2: 4130: 4140D739: 2420: H20 4140 4070  H20 40805D739:BBH3: 4130:D732: 2420: 4140T 4130:D379: 2420: 4045x 4130:D379:BBG: 4130: 4045"BBBB1: BB9 4137' BB 2220,2240,2250,2280,2300,2320,2340,2360,2370: 4138) 2390*, 7800" 2450:F2(9(1))1:F3(10(1)):FF3(F210)[G2(9(1))1:G3(10(1)):GG3(G210):HFG:H20jB1000:D0DD1:BB10:AB AH 5060AAB: 5040AAB:HHA:AAB: D 5080,5090,5100H2A: 5030H3A: 5030 H4A:HFG:D99:BBF2:B1(7(1))1C  B1 5120,5200,5205,5210,5130,5130,5130U  2420: 5135`  4130w D106:BBF3: 4130 D379:BBG2: 4130 D386:BBG3: 4130 D372: 2410: 2500 ( B1 5180,5180,5180,5180,5220,5225,5230!<D746:BBH4: 4130!A:D739:BBH3: 4130,!F H20 7800J!KD732:BBH2: 4130: 7800i!P 4130:D106: 2420: 5140!U 4130:D106:BBF3: 4130:D379: 2420: 5145!Z 4130:D106:BBF3: 4130:D379:BBG2: 4130!_D386: 2420: 5150!dD746: 2420: 5185'"iD746:BBH4: 4130:D739: 2420: 5190L"nD746:BBH4: 4130: H20 5240w"sD739:BBH3: 4130:D732: 2420: 7800"xD739: 2420: 7800"p 2450: 7010:H10:FF3:FF(F210):FF(F1100)#u:GG3:GG(G210):GG(G1100):HFG:B10000:D0:I1I2#z:DD1:BB10:AB'# AH 60408#AAB: 6020h#AAB:HHA:AAB: D 6060,6070,6080,6090x#H1A: 6010#H2A: 6010#H3A: 6010#H4A:HFG#F5(3(1))1:G5(3(1))1: F5G5 6100# H1000 6120$H6(4(1))1: 6125$H6(3(1))18$ H6 6130,6132,6135,6129K$ H7G5 6105^$ H7F5 6105x$ I1 6250,6300,6350$H73: 6127$H72: 6127$H71: 6127$D92:BBF1: 4130$D99:BBF2: 4130$D106:BBF3: 4130$  G50 6400% D372:BBG1: 4130,%D379:BBG2: 4130C%D386:BBG3: 4130[%D365: 2410: 2500n% H60 6450%$D746:BBH4: 4130%)D739:BBH3: 4130%.D732:BBH2: 4130%3 H1000 7800%8D725:BBH1: 4130: 7800%j F5 6260,6270,6280&tF50:H60: 6140)&~F50:G50: 6140>&G50:H60: 6350X& G5 6310,6320,6330h&F50: 6140x&G50: 6350&H60: 6350&D92:BBF1: F5 6360,6370,6380& 2420: 6145& 4130:D99: 2420: 6150' 4130:D99:BBF2: 4130:D106: 2420: 61534'D372:BBG1: G5 6410,6420,6430F'  2420: 6160e' 4130:D379: 2420: 6165' 4130:D379:BBG2: 4130:D386: 2420: 6170'2D746:BBH4: H6 6460,6470,6480,6490'< 2420: 6185'F 4130:D739: 2420: 6190%(P 4130:D739:BBH3: 4130:D732: 2420: 6195\(Z 4130:D739:BBH3: 4130:D732:BBH2: 4130:D725n(_ 2420: 7800(XI1I5: 2450: 7010: 7200(bF1(9(1))1:F2(10(1)):F3(10(1)):F4(10(1)))lG1(9(1))1:G2(10(1)):G3(10(1)):G4(10(1)))v I6 7180Z)FF4:FF(F310):FF(F2100):FF(F11000):GG4:GG(G310))GG(G2100):GG(G11000):HFG) I6 7180)B100000:D0)DD1:BB10:AB) AH 7110)AAB: 7090 *AAB:HHA:AAB: D 7130,7140,7150,7160,7170*H1A: 7080-*H2A: 7080=*H3A: 7080M*H4A: 7080\*H5A:HFGb* * D92:D2D:F50:G50:A(4(1))1: I11 7500**B(2(1))1: B2 7230*4F5A: 7235*>G5A*CJ1F1:J2F2:J3F3:J4F4:J5F5+H AA1 2: J51 7260 +R 2420: 7270X+\ J1 2240,2250,2280,2300,2320,2340,2360,2370,2390x+fD2D27:DD2: J52 7290+p 2420: 7330+zJ2J21: J29 7320+ J2 2220,2240,2250,2280,2300,2320,2340,2360,2370+ 7330+ 2390,D2D27:DD2: J53 7350$, 2420: 7400>,J3J31: J39 7380v, J3 2220,2240,2250,2280,2300,2320,2340,2360,2370, 7400, 2390,D2D27:DD2: J54 7420, 2420: 7470,J4J41: J49 7450- J4 2220,2240,2250,2280,2300,2320,2340,2360,2370- 7470&- 2390_-.D372:D2D:J1G1:J2G2:J3G3:J4G4:J5G5: AA: 7550-LF5A:A(4(1))1:G5A: F5G5 7235-V 7500-~D365: 2410- 2500-H60:H70: I8 7630- H10000 7610-H6(5(1))1: 7612.H6(4(1))13. H6 7620,7622,7624,7626,7630F. H7G5 7590Y. H7F5 7590d. 7630t.H74: 7615.H73: 7615.H72: 7615.H71: 7615.D2760:DD0:J1H5.DDDD1:D2D27:DD2:J1J11. DDH6 7780/ J19 7680?/ J1 2220,2240,2250,2280,2300,2320,2340,2360,2370: 7700J/ 2390n/ DD 7710,7720,7730,7740,7760/J1H4: 7640/(J1H3: 7640/2J1H2: 7640/< H10000 7760/FJ1H1: 7640/P 7800/d 2420: 7700/xR1194:L0:ER00RR1:LL1: (ZZR)63 7855A0RR280:LL1: (ZZR)63 7860g0RR360:LL1: (ZZR)63 78700R1R17: R1159 82000 78100 L1 7820,7830,78330L11: 78750L12: 78750L130 7880: 79501 ZZR,191: ZZR1,63: 2900: ZZR,63;1 ZZR1,191: 2900: A$: A$"" 7880N1 A$"H" 100c1 A$"C" 100501 B1 10:C$"0123456789": A$(C$,B,1) 79301 B: 78801BB1:1 ZZR,32: ZZR1,32:BB1:DR81:BBB: B9 7970*2 B 2220,2240,2250,2280,2300,2320,2340,2360,2370: 799052" 2390Q26BBB:BB1: L9 80102@ L 8030,8040,8050,8060,8070,8080,8090,8100,81102J L9 8120,8130,8140,8160,8160,81502^ F4B 78402c 81602h G4B 78402m 81602r H5B 7840 3w 81603| F3B 7840&3 816083 G3B 7840C3 8160U3 H4B 7840`3 8160r3 F2B 7840}3 81603 G2B 78403 81603 H3B 78403 81603 F1B 78403 81603 G1B 78403 81604 H2B 78404 8160 4 H1B 784004ER1: 7840B4 ER0 8500N4 1000044!: A1 5: 1)" ": A: ""49!:A(3(1))1: A 8510,8530,85504>! 3)"THAT": 2940:: 6)"IS"4C!: 2940: 2)"RIGHT": 2940: ""5H! 2)"RIGHT": 2940: 8555O5R!R3: D1 3:RR80: D11 3:A7:B15:C4: D21 25U! ZZR,A: 2910: ZZR1,B: 2910: ZZR2,B5W! 2910: ZZR3,C: 2910:A135:B143:C132: D25\! D1: D: 2940: 86006f!A$"RIGHT":D3: A1 5: 2060: 2930: A: 29406k! "": 8600T6!680,9:"":679:A(3(1))1: A 8615,8620,8625j6!C86:C187: 86276!C91:C190: 86276!C35:C1376! 8630: 86436!A24:D7:R328: 2600:A28:D11:R246: 26007!A32:D15:R164: 2600:A36:D19:R82: 26007!A40:D23:R0: 2600:.7! ""U7!A(3(1))1: A 8650,8750,87907!R328: B1 7:RR40: A1 22: ZZRA,1027! 2900: A: B:R379: A1 7: ZZR,427! 2900:RR40: A:R495: A1 7: ZZRA,428! 2900: A:R376: A1 7: ZZR,42: 2900:RR41R8! A:R382: A1 7: ZZR,42: 2900:RR39: Ak8! 8680: 2940: 86908!CC1:A26:D9:R287: 2600:A30:D13:R205: 26008!A34:D17:R123: 2600:A38:D21:R41: 2600:8!RE0:ER0:RIRI19! NQRIWR 8700 9! 3270/9! "":A$B$:D2:A0: 2060:c9"A$"DO YOU WANT TO TRY SOME MORE?":A5: 2060:9"A$"TYPE 'Y' OR 'N'":A12: 20609 " ZZ338,153: ZZ345,14: 2960: ZZ338,259" ZZ345,142: 2960: A$: A$"" 87159" A$"H" 100 :" A$"N" 20000!:" A$"Y" 8715;:"RI0:WR0:NQ0: 3190l:."A22:D5:R369: 2600:R370: A1 5:RR40:3"D7:DD15:D14: B1 2: C1 5: ZZR,D:8" 2960: ZZR1,DD: 2960: ZZR2,DD: 2960;=" ZZR3,D1: 2960:RR4: C:RR20:D135:DD143;B"D1132: B: A: 8675P;V"R368: D1 2: A1 3: B1 22: ZZRB,Cu;[" 2960: B:RR40: A:RR40: D;`"C$"KEEP UP THE GOOD WORK.":B30: "";e" A1 22: B)(C$,1,A): 2970: "";j"BB1: A: 8675;'ER0: RE1 101502<'RE1::A$"I'M SORRY":A1:D3: 2060:A$"THAT IS "i<$' 2060:A$"WRONG. ": 2060:A$"PLEASE ": 2060<.'A$"TRY AGAIN": 2060: ""' B:RR245: A: 10350G>'R1R:A1A:B1B: R600 10200R>'RR80>' C1 5: DD1 4: ZZRDD,32: 2910: DD>'RR40: C:RR199:DR: A 10220,10260,10300>' B 10230,10230,10235,10240,10245>'BBF1: 10340?'BBF2: 10340?(BBF3: 10340'?(BBF4: 10340O?( B 10270,10270,10275,10280,10285a?(BBG1: 10340s?#(BBG2: 10340?((BBG3: 10340?-(BBG4: 10340?<( B 10310,10315,10320,10325,10330?F(BBH1: 10340?K(BBH2: 10340?P(BBH3: 10340@U(BBH4: 10340@Z(BBH53@d( 4130:BB1:AA1:RR1: 10170X@n(R960: A0 39: ZZRA,32: A@s( "":A$"PRESS ANY KEY WHEN YOU ARE READY......":A0@x(D3: 2060:RE0:WRWR1@( A$: A$"" 10370@( 8693A N680,2:"":679:R41:C42:A22:D8:2600:R561:A22:D8A"N2600KA*NR57:A22:D8: 2600:R577:A22:D8: 2600rA4NR97: 20030:R617: 20030: 20050A>N B1 8: A1 4: ZZRA,102: 2910: A:RR40AHN B:ARN "":A$B$:A3:D3: (B$)13 20060AWNC12: 2070: 20065B\N 20608BaN "":A$"YOU HAD":A24: 2060:: 24)RI;"RIGHT"]BfN: 26)"AND":: 24)WR;"WRONG"BkN "":A$"IT HAS BEEN":A3: 2060: 6)"NICE"BpN:A$"WORKING WITH": 2060: 6)"YOU": ""BuNA$"I HOPE TO":A24: 2060::A$"SEE YOU AGAIN."&CzN 2060::A$"GOODBYE":A28: 2060::8: 2600:R577:A22:D8: 2600A4NR97: 20030:R617: 20030: 20050