SUBPROGRAM XX/10
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/10
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
e0ed560ad47482d3c3ab87b77ce2158c7e0b6d4e8028d58b842b247089741468
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/10 | PRG | DuncanTwain | 26 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 02 00 97 34 35 2C C2 28 31 37 34 29 |../....45,.(174)|
00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 97 34 37 2C |:.46,.(175):.47,|
00000020: C2 28 34 35 29 3A 97 34 38 2C C2 28 34 36 29 00 |.(45):.48,.(46).|
00000030: 47 08 03 00 97 34 39 2C C2 28 34 35 29 3A 97 35 |G....49,.(45):.5|
00000040: 30 2C C2 28 34 36 29 00 69 08 0A 00 97 35 35 2C |0,.(46).i....55,|
00000050: 32 35 35 3A 97 35 36 2C 36 33 3A 97 38 36 39 2C |255:.56,63:.869,|
00000060: 31 30 3A 97 38 37 30 2C 30 00 81 08 0B 00 97 35 |10:.870,0......5|
00000070: 31 2C C2 28 35 35 29 3A 97 35 32 2C C2 28 35 36 |1,.(55):.52,.(56|
00000080: 29 00 8C 08 19 00 9E 31 39 33 32 38 00 A4 08 1E |)......19328....|
00000090: 00 8F 20 20 20 53 55 42 50 52 4F 47 52 41 4D 20 |.. SUBPROGRAM |
000000A0: 58 58 2F 31 00 C5 08 22 00 53 50 20 B2 31 30 3A |XX/1...".SP .10:|
000000B0: 4E 53 20 B2 20 31 3A 52 52 25 20 B2 20 34 3A 4E |NS . 1:RR% . 4:N|
000000C0: 51 20 B2 20 31 00 D7 08 28 00 53 54 25 20 B2 20 |Q . 1...(.ST% . |
000000D0: 33 3A 20 26 20 52 45 00 E5 08 2C 00 4C 24 20 B2 |3: & RE...,.L$ .|
000000E0: 20 22 20 20 22 00 27 09 32 00 4C 31 B2 C2 28 38 | " ".'.2.L1..(8|
000000F0: 37 31 29 3A 4E 31 24 B2 22 22 3A 81 49 B2 31 A4 |71):N1$."":.I.1.|
00000100: 4C 31 3A 4E 31 24 B2 4E 31 24 AA C7 28 C2 28 49 |L1:N1$.N1$..(.(I|
00000110: AA 38 37 31 29 29 3A 82 3A 4E 46 24 B2 22 53 52 |.871)):.:NF$."SR|
00000120: 46 2D 22 AA 4E 31 24 00 3D 09 3C 00 86 20 4C 24 |F-".N1$.=.<.. L$|
00000130: 28 31 30 30 29 2C 49 58 24 28 31 30 29 00 56 09 |(100),IX$(10).V.|
00000140: 46 00 57 52 20 B2 20 30 3A 52 4E 20 B2 20 30 3A |F.WR . 0:RN . 0:|
00000150: 4A 20 B2 20 30 3A 00 73 09 50 00 52 20 B2 20 30 |J . 0:.s.P.R . 0|
00000160: 3A 52 52 20 B2 20 30 3A 58 20 B2 20 30 3A 4B 20 |:RR . 0:X . 0:K |
00000170: B2 20 30 00 85 09 64 00 8D 20 34 30 31 30 3A 8D |. 0...d.. 4010:.|
00000180: 20 35 30 31 30 00 BA 09 65 00 26 43 4F 2C 35 3A | 5010...e.&CO,5:|
00000190: 26 44 45 2C 31 2C 31 2C 34 30 2C 31 35 3A 26 46 |&DE,1,1,40,15:&F|
000001A0: 49 3A 26 43 4F 2C 36 39 3A 26 44 45 2C 32 2C 32 |I:&CO,69:&DE,2,2|
000001B0: 2C 33 39 2C 31 34 3A 26 46 49 00 D7 09 66 00 26 |,39,14:&FI...f.&|
000001C0: 43 4F 2C 32 37 3A 26 44 45 2C 32 2C 32 2C 33 39 |CO,27:&DE,2,2,39|
000001D0: 2C 31 34 3A 26 46 49 00 0A 0A 67 00 26 53 59 2C |,14:&FI...g.&SY,|
000001E0: 31 3A 26 53 50 2C 32 32 30 3A 26 43 4F 2C 31 36 |1:&SP,220:&CO,16|
000001F0: 30 3A 26 44 45 2C 32 2C 32 2C 33 39 2C 33 3A 26 |0:&DE,2,2,39,3:&|
00000200: 46 49 3A 26 50 43 2C 33 2C 32 00 39 0A 68 00 26 |FI:&PC,3,2.9.h.&|
00000210: 54 58 2C 22 31 2D D4 4F 20 49 4E 46 4F 52 4D 20 |TX,"1-.O INFORM |
00000220: 20 20 20 20 20 20 20 20 20 20 20 32 2D D4 4F 20 | 2-.O |
00000230: 50 45 52 53 55 41 44 45 22 00 79 0A 69 00 26 50 |PERSUADE".y.i.&P|
00000240: 43 2C 33 2C 33 3A 26 54 58 2C 22 33 2D D4 4F 20 |C,3,3:&TX,"3-.O |
00000250: 54 45 41 43 48 20 41 20 4C 45 53 53 4F 4E 20 20 |TEACH A LESSON |
00000260: 20 20 34 2D D4 4F 20 45 4E 54 45 52 54 41 49 4E | 4-.O ENTERTAIN|
00000270: 22 3A 26 53 50 2C 32 35 35 00 9C 0A 6A 00 26 43 |":&SP,255...j.&C|
00000280: 4F 2C 38 3A 26 44 45 2C 32 2C 34 2C 33 39 2C 34 |O,8:&DE,2,4,39,4|
00000290: 3A 26 49 4E 3A 26 46 49 3A 26 4E 4F 00 A2 0A 78 |:&IN:&FI:&NO...x|
000002A0: 00 3A 00 AD 0A A0 00 8D 20 31 30 31 30 00 DB 0A |.:...... 1010...|
000002B0: D7 00 26 53 59 2C 31 3A 26 50 43 2C 35 2C 36 3A |..&SY,1:&PC,5,6:|
000002C0: 26 54 58 2C 4C 24 28 35 29 3A 26 50 43 2C 35 2C |&TX,L$(5):&PC,5,|
000002D0: 38 3A 26 54 58 2C 4C 24 28 36 29 00 05 0B DC 00 |8:&TX,L$(6).....|
000002E0: 26 50 43 2C 35 2C 31 30 3A 26 54 58 2C 4C 24 28 |&PC,5,10:&TX,L$(|
000002F0: 37 29 3A 26 50 43 2C 35 2C 31 32 3A 26 54 58 2C |7):&PC,5,12:&TX,|
00000300: 4C 24 28 38 29 00 28 0B E6 00 81 20 4B 20 B2 20 |L$(8).(.... K . |
00000310: 31 20 A4 20 34 3A 4A 20 B2 28 28 4B 20 AB 31 29 |1 . 4:J .((K .1)|
00000320: AC 20 32 29 20 AA 20 35 00 3B 0B EB 00 26 50 43 |. 2) . 5.;...&PC|
00000330: 2C 31 38 2C 4A 3A 26 53 59 2C 32 00 48 0B 03 01 |,18,J:&SY,2.H...|
00000340: 4C 24 20 B2 20 22 32 22 00 79 0B 04 01 26 43 4F |L$ . "2".y...&CO|
00000350: 2C 31 32 33 3A 26 44 45 2C 31 37 2C 35 2C 32 31 |,123:&DE,17,5,21|
00000360: 2C 31 33 3A 26 46 49 3A 26 20 45 4E 53 2C 4C 24 |,13:&FI:& ENS,L$|
00000370: 2C 31 2C 54 25 2C 41 4C 25 00 8F 0B 05 01 8B 20 |,1,T%,AL%...... |
00000380: 41 4C 25 20 B2 20 30 20 A7 20 89 20 32 36 30 00 |AL% . 0 . . 260.|
00000390: A3 0B 06 01 4C 24 B2 20 20 C8 20 28 4C 24 2C 41 |....L$. . (L$,A|
000003A0: 4C 25 29 00 BB 0B 08 01 8B 20 20 C6 28 4C 24 29 |L%)...... .(L$)|
000003B0: 20 B2 20 33 20 20 A7 20 32 37 32 00 DA 0B 09 01 | . 3 . 272.....|
000003C0: 8B 28 28 4C 24 B3 B1 22 31 22 29 AF 28 4C 24 B3 |.((L$.."1").(L$.|
000003D0: B1 22 32 22 29 29 A7 32 36 37 00 E3 0B 0A 01 89 |."2")).267......|
000003E0: 32 38 30 00 1C 0C 0B 01 8B 28 28 4C 24 B3 B1 22 |280......((L$.."|
000003F0: 33 22 29 AF 28 4C 24 B3 B1 22 34 22 29 29 A7 3A |3").(L$.."4")).:|
00000400: 26 50 43 2C 31 38 2C 4A 3A 26 53 59 2C 32 3A 26 |&PC,18,J:&SY,2:&|
00000410: 54 58 2C 22 20 20 22 3A 89 32 33 35 00 26 0C 0D |TX," ":.235.&..|
00000420: 01 89 20 32 38 30 00 5B 0C 10 01 26 52 45 3A 26 |.. 280.[...&RE:&|
00000430: 53 59 2C 32 3A 26 50 43 2C 39 2C 35 3A 26 54 58 |SY,2:&PC,9,5:&TX|
00000440: 2C 22 C2 59 45 22 3A 9E 31 39 33 34 31 3A 93 22 |,".YE":.19341:."|
00000450: 48 45 4C 4C 4F 48 49 31 22 2C 38 00 7E 0C 18 01 |HELLOHI1",8.~...|
00000460: 8B 20 4C 24 B2 4C 24 28 4B 29 20 20 A7 20 41 58 |. L$.L$(K) . AX|
00000470: 24 20 B2 20 22 59 45 53 22 3A 89 32 38 32 00 94 |$ . "YES":.282..|
00000480: 0C 19 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 89 |...AX$ . "NO": .|
00000490: 20 32 39 30 00 CE 0C 1A 01 26 20 53 59 2C 32 3A | 290.....& SY,2:|
000004A0: 26 43 4F 2C 31 36 3A 26 44 45 2C 31 2C 31 36 2C |&CO,16:&DE,1,16,|
000004B0: 33 36 2C 31 37 3A 26 46 49 3A 26 50 43 2C 31 36 |36,17:&FI:&PC,16|
000004C0: 2C 31 36 3A 26 54 58 2C 22 C7 4F 4F 44 22 00 F5 |,16:&TX,".OOD"..|
000004D0: 0C 1B 01 81 20 49 20 B2 20 31 36 30 20 A4 20 34 |.... I . 160 . 4|
000004E0: 38 20 A9 20 20 AB 20 38 3A 20 26 20 54 4E 2C 49 |8 . . 8: & TN,I|
000004F0: 2C 31 3A 20 82 00 1D 0D 1D 01 26 50 43 2C 31 36 |,1: ......&PC,16|
00000500: 2C 31 36 3A 26 54 58 2C 22 20 20 20 20 20 20 22 |,16:&TX," "|
00000510: 3A 26 53 59 2C 31 3A 20 89 20 33 30 30 00 3D 0D |:&SY,1: . 300.=.|
00000520: 22 01 81 20 49 20 B2 20 31 20 A4 20 35 3A 20 26 |".. I . 1 . 5: &|
00000530: 20 54 4E 2C 32 35 35 2C 31 30 3A 20 82 00 78 0D | TN,255,10: ..x.|
00000540: 24 01 26 53 50 2C 32 32 30 3A 20 26 53 59 2C 31 |$.&SP,220: &SY,1|
00000550: 3A 26 43 4F 2C 31 31 32 3A 26 44 45 2C 32 2C 31 |:&CO,112:&DE,2,1|
00000560: 34 2C 33 39 2C 31 34 3A 26 46 49 3A 26 4E 4F 3A |4,39,14:&FI:&NO:|
00000570: 26 50 43 2C 34 2C 31 34 00 AF 0D 25 01 26 54 58 |&PC,4,14...%.&TX|
00000580: 2C 22 D4 48 45 20 43 4F 52 52 45 43 54 20 41 4E |,".HE CORRECT AN|
00000590: 53 57 45 52 20 49 53 3A 20 22 AA 4C 24 28 4B 29 |SWER IS: ".L$(K)|
000005A0: 3A 97 31 39 38 2C 30 3A 26 53 50 2C 32 35 35 00 |:.198,0:&SP,255.|
000005B0: C8 0D 28 01 A1 20 52 24 3A 8B 20 52 24 B3 B1 C7 |..(.. R$:. R$...|
000005C0: 28 31 33 29 A7 32 39 36 00 04 0E 29 01 3A 26 50 |(13).296...).:&P|
000005D0: 43 2C 32 2C 31 34 3A 26 54 58 2C 22 20 20 20 20 |C,2,14:&TX," |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 22 00 3B 0E 2A 01 26 43 4F 2C 35 3A 26 | ".;.*.&CO,5:&|
00000610: 44 45 2C 31 2C 31 34 2C 33 39 2C 31 34 3A 26 46 |DE,1,14,39,14:&F|
00000620: 49 3A 26 43 4F 2C 36 39 3A 26 44 45 2C 32 2C 31 |I:&CO,69:&DE,2,1|
00000630: 34 2C 33 39 2C 31 34 3A 26 46 49 00 59 0E 2B 01 |4,39,14:&FI.Y.+.|
00000640: 26 43 4F 2C 32 37 3A 26 44 45 2C 32 2C 31 34 2C |&CO,27:&DE,2,14,|
00000650: 33 39 2C 31 34 3A 26 46 49 00 68 0E 2C 01 8F 20 |39,14:&FI.h.,.. |
00000660: 20 53 43 4F 52 49 4E 47 00 9B 0E 31 01 8B 20 28 | SCORING...1.. (|
00000670: 41 58 24 20 B2 20 22 59 45 53 22 29 20 A7 20 52 |AX$ . "YES") . R|
00000680: 20 B2 20 52 20 AA 20 31 3A 52 52 20 B2 20 52 52 | . R . 1:RR . RR|
00000690: 20 AA 20 31 3A 57 52 20 B2 20 30 00 D1 0E 36 01 | . 1:WR . 0...6.|
000006A0: 8B 20 28 41 58 24 20 B3 20 20 B1 20 22 59 45 53 |. (AX$ . . "YES|
000006B0: 22 29 20 A7 20 57 20 B2 20 57 20 AA 20 31 3A 57 |") . W . W . 1:W|
000006C0: 52 20 B2 20 57 52 20 AA 20 31 3A 52 52 20 B2 20 |R . WR . 1:RR . |
000006D0: 30 00 DC 0E 40 01 8D 20 35 30 31 30 00 13 0F 4A |0...@.. 5010...J|
000006E0: 01 8B 20 52 52 20 B1 20 20 B2 20 52 52 25 20 A7 |.. RR . . RR% .|
000006F0: 20 41 32 20 B2 20 37 3A 97 38 37 30 2C 41 32 3A | A2 . 7:.870,A2:|
00000700: 97 38 39 35 2C 57 3A 97 39 31 30 2C 52 3A 89 36 |.895,W:.910,R:.6|
00000710: 30 30 30 00 55 0F 54 01 8B 20 28 57 52 20 B1 B2 |000.U.T.. (WR ..|
00000720: 20 35 29 20 B0 20 28 57 20 B1 B2 20 31 38 29 20 | 5) . (W .. 18) |
00000730: A7 20 41 32 20 B2 20 35 3A 97 38 37 30 2C 41 32 |. A2 . 5:.870,A2|
00000740: 3A 9E 31 39 33 34 31 3A 93 22 48 45 4C 4C 4F 48 |:.19341:."HELLOH|
00000750: 49 31 22 2C 38 00 7B 0F 5E 01 26 53 59 2C 32 3A |I1",8.{.^.&SY,2:|
00000760: 26 50 43 2C 31 38 2C 4A 3A 26 54 58 2C 22 20 20 |&PC,18,J:&TX," |
00000770: 20 20 20 20 22 3A 26 53 59 2C 31 00 81 0F 68 01 | ":&SY,1...h.|
00000780: 82 00 8A 0F 86 01 89 31 32 30 00 A4 0F E8 03 8F |.......120......|
00000790: 20 20 44 41 54 41 20 46 4F 52 20 51 55 45 53 54 | DATA FOR QUEST|
000007A0: 49 4F 4E 53 00 D4 0F F2 03 4C 24 28 31 29 20 B2 |IONS.....L$(1) .|
000007B0: 20 22 32 22 3A 4C 24 28 32 29 20 B2 20 22 34 22 | "2":L$(2) . "4"|
000007C0: 3A 4C 24 28 33 29 B2 22 31 22 3A 4C 24 28 34 29 |:L$(3)."1":L$(4)|
000007D0: B2 22 33 22 00 EC 0F FC 03 4C 24 28 35 29 20 B2 |."3".....L$(5) .|
000007E0: 20 22 D0 41 53 53 41 47 45 20 31 22 00 02 10 01 | ".ASSAGE 1"....|
000007F0: 04 4C 24 28 36 29 B2 22 D0 41 53 53 41 47 45 20 |.L$(6).".ASSAGE |
00000800: 32 22 00 1A 10 06 04 4C 24 28 37 29 20 B2 20 22 |2".....L$(7) . "|
00000810: D0 41 53 53 41 47 45 20 33 22 00 30 10 0B 04 4C |.ASSAGE 3".0...L|
00000820: 24 28 38 29 B2 22 D0 41 53 53 41 47 45 20 34 22 |$(8).".ASSAGE 4"|
00000830: 00 36 10 42 04 8E 00 48 10 B8 0B 8F 20 20 50 41 |.6.B...H.... PA|
00000840: 55 53 45 20 53 55 42 53 00 4E 10 C2 0B 8E 00 54 |USE SUBS.N.....T|
00000850: 10 CC 0B 8E 00 73 10 A0 0F 8F 20 20 49 4E 53 54 |.....s.... INST|
00000860: 52 55 43 54 49 4F 4E 53 20 41 4E 44 20 42 4C 4F |RUCTIONS AND BLO|
00000870: 41 44 53 00 7F 10 AA 0F 26 53 50 2C 32 32 30 00 |ADS.....&SP,220.|
00000880: AC 10 B6 0F 26 53 59 2C 31 3A 26 43 4F 2C 31 36 |....&SY,1:&CO,16|
00000890: 3A 26 44 45 2C 31 2C 32 30 2C 34 30 2C 32 33 3A |:&DE,1,20,40,23:|
000008A0: 26 46 49 3A 26 50 43 2C 31 2C 32 30 00 C4 10 B8 |&FI:&PC,1,20....|
000008B0: 0F 26 54 58 2C 22 D2 45 41 44 20 D3 54 4F 52 59 |.&TX,".EAD .TORY|
000008C0: 20 36 2E 22 00 F4 10 BA 0F 26 50 43 2C 31 2C 32 | 6.".....&PC,1,2|
000008D0: 31 3A 26 54 58 2C 22 D4 48 45 4E 2C 20 54 59 50 |1:&TX,".HEN, TYP|
000008E0: 45 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 |E THE NUMBER OF |
000008F0: 54 48 45 22 00 27 11 BB 0F 26 50 43 2C 31 2C 32 |THE".'...&PC,1,2|
00000900: 32 3A 26 54 58 2C 22 50 55 52 50 4F 53 45 20 53 |2:&TX,"PURPOSE S|
00000910: 45 52 56 45 44 20 42 59 20 45 41 43 48 20 50 41 |ERVED BY EACH PA|
00000920: 53 53 41 47 45 2E 22 00 6B 11 BD 0F 26 43 4F 2C |SSAGE.".k...&CO,|
00000930: 31 36 30 3A 26 44 45 2C 31 2C 32 34 2C 34 30 2C |160:&DE,1,24,40,|
00000940: 32 34 3A 26 46 49 3A 26 50 43 2C 31 31 2C 32 34 |24:&FI:&PC,11,24|
00000950: 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 D4 D5 D2 CE |:&TX,".IT ......|
00000960: 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 77 11 D2 0F | TO GO ON.".w...|
00000970: 26 53 50 2C 32 35 35 00 7D 11 24 13 8E 00 92 11 |&SP,255.}.$.....|
00000980: 88 13 8F 20 20 44 49 53 50 4C 41 59 20 53 43 4F |... DISPLAY SCO|
00000990: 52 45 00 C1 11 92 13 3A 26 53 59 2C 31 3A 26 43 |RE.....:&SY,1:&C|
000009A0: 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 31 37 2C 34 |O,160:&DE,1,17,4|
000009B0: 30 2C 31 39 3A 26 46 49 3A 26 50 43 2C 31 2C 31 |0,19:&FI:&PC,1,1|
000009C0: 38 00 EE 11 93 13 26 54 58 2C 22 C7 4F 41 4C 20 |8.....&TX,".OAL |
000009D0: 3D 20 34 20 52 49 47 48 54 20 49 4E 20 41 20 52 |= 4 RIGHT IN A R|
000009E0: 4F 57 2E 20 20 D9 4F 55 20 48 41 56 45 22 00 0F |OW. .OU HAVE"..|
000009F0: 12 9C 13 3A 26 53 59 2C 32 3A 26 49 4E 3A 26 50 |...:&SY,2:&IN:&P|
00000A00: 43 2C 33 37 2C 31 37 3A 26 54 58 2C 22 A0 22 00 |C,37,17:&TX,".".|
00000A10: 20 12 9D 13 52 52 24 B2 C7 28 52 52 AA 34 38 29 | ...RR$..(RR.48)|
00000A20: 00 37 12 A6 13 3A 26 50 43 2C 33 37 2C 31 38 3A |.7...:&PC,37,18:|
00000A30: 26 54 58 2C 52 52 24 00 46 12 B0 13 3A 26 4E 4F |&TX,RR$.F...:&NO|
00000A40: 3A 26 53 59 2C 31 00 4C 12 E2 13 8E 00 63 12 70 |:&SY,1.L.....c.p|
00000A50: 17 26 52 45 3A 26 44 4B 2C 22 49 2E 54 45 4E 54 |.&RE:&DK,"I.TENT|
00000A60: 22 2C 31 00 7B 12 72 17 81 49 B2 33 A4 33 30 3A |",1.{.r..I.3.30:|
00000A70: 26 44 50 2C 31 2C 49 2C 34 3A 82 00 99 12 74 17 |&DP,1,I,4:....t.|
00000A80: 81 20 4B 20 B2 20 31 A4 20 31 33 3A 43 43 B2 32 |. K . 1. 13:CC.2|
00000A90: 32 34 AB 28 31 36 AC 4B 29 00 D3 12 76 17 26 43 |24.(16.K)...v.&C|
00000AA0: 4F 2C 43 43 3A 26 44 45 2C 31 2C 31 32 2C 34 30 |O,CC:&DE,1,12,40|
00000AB0: 2C 32 30 3A 26 46 49 3A 26 53 59 2C 32 3A 26 50 |,20:&FI:&SY,2:&P|
00000AC0: 43 2C 32 2C 31 32 3A 26 54 58 2C 4E 31 24 AA 22 |C,2,12:&TX,N1$."|
00000AD0: 2D 2D 22 00 F9 12 78 17 26 50 43 2C 32 2C 31 36 |--"...x.&PC,2,16|
00000AE0: 3A 26 54 58 2C 22 D4 52 59 20 41 20 D4 45 4E 54 |:&TX,".RY A .ENT|
00000AF0: 20 D4 55 4E 45 3F 3F 3F 22 00 41 13 7A 17 82 3A | .UNE???".A.z..:|
00000B00: 26 43 4F 2C 31 36 3A 26 44 45 2C 31 2C 32 31 2C |&CO,16:&DE,1,21,|
00000B10: 34 30 2C 32 34 3A 26 46 49 3A 26 53 59 2C 31 3A |40,24:&FI:&SY,1:|
00000B20: 26 50 43 2C 31 2C 32 32 3A 26 54 58 2C 22 D0 52 |&PC,1,22:&TX,".R|
00000B30: 45 53 53 20 20 59 20 20 46 4F 52 20 59 45 53 2E |ESS Y FOR YES.|
00000B40: 22 00 8F 13 7C 17 26 43 4F 2C 31 36 30 3A 26 44 |"...|.&CO,160:&D|
00000B50: 45 2C 31 2C 32 35 2C 34 30 2C 32 35 3A 26 46 49 |E,1,25,40,25:&FI|
00000B60: 3A 26 50 43 2C 31 2C 32 35 3A 26 54 58 2C 22 CF |:&PC,1,25:&TX,".|
00000B70: 54 48 45 52 57 49 53 45 2C 20 48 49 54 20 D2 C5 |THERWISE, HIT ..|
00000B80: D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 |.... TO GO ON.".|
00000B90: 9B 13 7E 17 97 20 31 39 38 2C 30 00 B6 13 80 17 |..~.. 198,0.....|
00000BA0: A1 20 52 24 3A 20 8B 20 52 24 20 B2 20 22 22 20 |. R$: . R$ . "" |
00000BB0: A7 20 36 30 31 36 00 CF 13 82 17 8B 20 C6 28 52 |. 6016...... .(R|
00000BC0: 24 29 20 B3 B1 20 31 33 20 A7 20 36 30 32 32 00 |$) .. 13 . 6022.|
00000BD0: D9 13 84 17 89 36 30 36 30 00 28 14 86 17 26 54 |.....6060.(...&T|
00000BE0: 4E 2C 32 30 30 2C 31 30 3A 26 54 4E 2C 32 30 30 |N,200,10:&TN,200|
00000BF0: 2C 31 30 3A 26 54 4E 2C 31 38 30 2C 31 30 3A 26 |,10:&TN,180,10:&|
00000C00: 54 4E 2C 31 37 32 2C 32 30 3A 26 54 4E 2C 31 36 |TN,172,20:&TN,16|
00000C10: 34 2C 32 30 3A 26 54 4E 2C 31 38 30 2C 35 3A 26 |4,20:&TN,180,5:&|
00000C20: 54 4E 2C 31 38 38 2C 35 00 6C 14 88 17 26 54 4E |TN,188,5.l...&TN|
00000C30: 2C 31 39 32 2C 31 30 3A 26 54 4E 2C 31 36 30 2C |,192,10:&TN,160,|
00000C40: 31 30 3A 26 54 4E 2C 31 36 30 2C 31 30 3A 26 54 |10:&TN,160,10:&T|
00000C50: 4E 2C 31 36 30 2C 32 30 3A 26 54 4E 2C 31 36 30 |N,160,20:&TN,160|
00000C60: 2C 35 3A 26 54 4E 2C 31 36 30 2C 35 00 B2 14 8A |,5:&TN,160,5....|
00000C70: 17 26 54 4E 2C 31 36 34 2C 32 30 3A 26 54 4E 2C |.&TN,164,20:&TN,|
00000C80: 31 38 30 2C 31 30 3A 26 54 4E 2C 31 38 30 2C 31 |180,10:&TN,180,1|
00000C90: 30 3A 26 54 4E 2C 31 38 30 2C 31 30 3A 26 54 4E |0:&TN,180,10:&TN|
00000CA0: 2C 31 38 34 2C 31 30 3A 26 54 4E 2C 31 38 30 2C |,184,10:&TN,180,|
00000CB0: 31 30 00 F8 14 8C 17 26 54 4E 2C 31 37 32 2C 35 |10.....&TN,172,5|
00000CC0: 30 3A 26 54 4E 2C 32 30 30 2C 31 30 3A 26 54 4E |0:&TN,200,10:&TN|
00000CD0: 2C 32 30 30 2C 31 30 3A 26 54 4E 2C 31 38 30 2C |,200,10:&TN,180,|
00000CE0: 31 30 3A 26 54 4E 2C 31 37 32 2C 31 30 3A 26 54 |10:&TN,172,10:&T|
00000CF0: 4E 2C 31 36 34 2C 32 30 00 3C 15 8E 17 26 54 4E |N,164,20.<...&TN|
00000D00: 2C 31 38 30 2C 35 3A 26 54 4E 2C 31 38 34 2C 35 |,180,5:&TN,184,5|
00000D10: 3A 26 54 4E 2C 31 39 32 2C 31 30 3A 26 54 4E 2C |:&TN,192,10:&TN,|
00000D20: 31 36 30 2C 31 30 3A 26 54 4E 2C 31 36 30 2C 31 |160,10:&TN,160,1|
00000D30: 30 3A 26 54 4E 2C 31 36 30 2C 32 30 00 7F 15 90 |0:&TN,160,20....|
00000D40: 17 26 54 4E 2C 31 36 30 2C 35 3A 26 54 4E 2C 31 |.&TN,160,5:&TN,1|
00000D50: 36 30 2C 35 3A 26 54 4E 2C 31 36 34 2C 31 35 3A |60,5:&TN,164,15:|
00000D60: 26 54 4E 2C 31 37 32 2C 35 3A 26 54 4E 2C 31 38 |&TN,172,5:&TN,18|
00000D70: 30 2C 31 30 3A 26 54 4E 2C 31 38 34 2C 31 30 00 |0,10:&TN,184,10.|
00000D80: A4 15 92 17 26 54 4E 2C 31 38 30 2C 31 30 3A 26 |....&TN,180,10:&|
00000D90: 54 4E 2C 31 37 32 2C 31 30 3A 26 54 4E 2C 31 38 |TN,172,10:&TN,18|
00000DA0: 30 2C 36 30 00 F2 15 94 17 26 54 4E 2C 31 35 32 |0,60.....&TN,152|
00000DB0: 2C 33 30 3A 26 54 4E 2C 31 36 30 2C 31 30 3A 26 |,30:&TN,160,10:&|
00000DC0: 54 4E 2C 31 36 34 2C 31 35 3A 26 54 4E 2C 31 37 |TN,164,15:&TN,17|
00000DD0: 32 2C 35 3A 26 54 4E 2C 31 36 34 2C 35 30 3A 26 |2,5:&TN,164,50:&|
00000DE0: 54 4E 2C 31 37 32 2C 35 3A 26 54 4E 2C 31 37 32 |TN,172,5:&TN,172|
00000DF0: 2C 35 00 38 16 96 17 26 54 4E 2C 31 38 30 2C 31 |,5.8...&TN,180,1|
00000E00: 30 3A 26 54 4E 2C 31 38 30 2C 31 30 3A 26 54 4E |0:&TN,180,10:&TN|
00000E10: 2C 31 38 30 2C 31 30 3A 26 54 4E 2C 31 38 30 2C |,180,10:&TN,180,|
00000E20: 31 30 3A 26 54 4E 2C 31 38 34 2C 31 30 3A 26 54 |10:&TN,184,10:&T|
00000E30: 4E 2C 31 38 30 2C 31 30 00 7E 16 98 17 26 54 4E |N,180,10.~...&TN|
00000E40: 2C 31 37 32 2C 35 30 3A 26 54 4E 2C 32 30 30 2C |,172,50:&TN,200,|
00000E50: 31 30 3A 26 54 4E 2C 32 30 30 2C 31 30 3A 26 54 |10:&TN,200,10:&T|
00000E60: 4E 2C 31 38 30 2C 31 30 3A 26 54 4E 2C 31 37 32 |N,180,10:&TN,172|
00000E70: 2C 31 30 3A 26 54 4E 2C 31 36 34 2C 32 30 00 C2 |,10:&TN,164,20..|
00000E80: 16 9A 17 26 54 4E 2C 31 38 30 2C 35 3A 26 54 4E |...&TN,180,5:&TN|
00000E90: 2C 31 38 34 2C 35 3A 26 54 4E 2C 31 39 32 2C 31 |,184,5:&TN,192,1|
00000EA0: 30 3A 26 54 4E 2C 31 36 30 2C 31 30 3A 26 54 4E |0:&TN,160,10:&TN|
00000EB0: 2C 31 36 30 2C 31 30 3A 26 54 4E 2C 31 36 30 2C |,160,10:&TN,160,|
00000EC0: 32 30 00 E7 16 9C 17 26 54 4E 2C 31 36 30 2C 35 |20.....&TN,160,5|
00000ED0: 20 3A 26 54 4E 2C 31 36 30 2C 35 20 3A 26 54 4E | :&TN,160,5 :&TN|
00000EE0: 2C 31 36 34 2C 31 35 00 2C 17 9E 17 26 54 4E 2C |,164,15.,...&TN,|
00000EF0: 31 37 32 2C 35 3A 26 54 4E 2C 31 38 30 2C 31 30 |172,5:&TN,180,10|
00000F00: 3A 26 54 4E 2C 31 38 34 2C 31 30 3A 26 54 4E 2C |:&TN,184,10:&TN,|
00000F10: 31 38 30 2C 31 30 3A 26 54 4E 2C 31 37 32 2C 31 |180,10:&TN,172,1|
00000F20: 30 3A 26 54 4E 2C 31 38 30 2C 36 30 00 6A 17 AC |0:&TN,180,60.j..|
00000F30: 17 26 52 45 3A 81 49 B2 31 A4 39 3A 26 43 4F 2C |.&RE:.I.1.9:&CO,|
00000F40: 49 AA 33 3A 26 44 45 2C 49 2C 49 2C 34 31 AB 49 |I.3:&DE,I,I,41.I|
00000F50: 2C 32 36 AB 49 3A 26 46 49 3A 82 3A 26 53 59 2C |,26.I:&FI:.:&SY,|
00000F60: 32 3A 26 50 43 2C 39 2C 31 33 00 A4 17 B6 17 26 |2:&PC,9,13.....&|
00000F70: 54 58 2C 22 20 20 D0 55 52 50 4F 53 45 53 20 20 |TX," .URPOSES |
00000F80: 22 3A 8D 36 32 30 30 3A 9E 31 39 33 34 31 3A 93 |":.6200:.19341:.|
00000F90: 22 53 55 42 50 52 4F 47 52 41 4D 20 58 58 2F 31 |"SUBPROGRAM XX/1|
00000FA0: 31 22 2C 38 00 D4 17 38 18 A0 31 35 3A 9F 31 35 |1",8...8..15:.15|
00000FB0: 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 4E 46 24 3A |,8,15,"S0:".NF$:|
00000FC0: A0 31 35 3A 26 42 53 2C 4E 46 24 2C 38 36 38 2C |.15:&BS,NF$,868,|
00000FD0: 36 33 3A 8E 00 00 00 4A 9C 97 38 37 30 2C 41 32 |63:....J..870,A2|
00000FE0: 3A 26 48 47 3A 26 53 59 2C 31 3A 26 50 43 2C 35 |:&HG:&SY,1:&PC,5|
00000FF0: 2C 31 30 3A 26 54 58 2C 22 57 4F 52 4B 49 4E 47 |,10:&TX,"WORKING|
00001000: 2E 2E 2E 22 3A 9E 31 39 33 34 31 3A 93 22 4C 45 |...":.19341:."LE|
00001010: 53 53 4F 4E 58 58 22 2C 38 00 74 12 22 9D 26 43 |SSONXX",8.t.".&C|
00001020: 4F 2C 32 30 38 3A 26 44 45 2C 31 2C 32 30 2C 34 |O,208:&DE,1,20,4|
00001030: 30 2C 32 32 3A 26 46 49 3A 26 50 43 2C 31 2C 32 |0,22:&FI:&PC,1,2|
00001040: 30 00 8E 12 6A EA 9E 31 39 33 34 31 3A 93 20 22 |0...j..19341:. "|
00001050: 48 45 4C 4C 4F 48 49 31 22 2C 38 00 00 00 |HELLOHI1",8... |
../....45,B(174):.46,B(175):.47,B(45):.4
8,B(46).G....49,B(45):.50,B(46).I....55,
255:.56,63:.869,10:.870,0......51,B(55):
.52,B(56)......19328...... SUBPROGRAM
XX/1.E.".SP .10:NS . 1:RR% . 4:NQ . 1.W.
(.ST% . 3: & RE...,.L$ . " ".'.2.L1.B(8
71):N1$."":.I.1.L1:N1$.N1$.G(B(I.871)):.
:NF$."SRF-".N1$.=.<.. L$(100),IX$(10).V.
F.WR . 0:RN . 0:J . 0:.S.P.R . 0:RR . 0:
X . 0:K . 0...D.. 4010:. 5010...E.&CO,5:
&DE,1,1,40,15:&FI:&CO,69:&DE,2,2,39,14:&
FI.W.F.&CO,27:&DE,2,2,39,14:&FI...G.&SY,
1:&SP,220:&CO,160:&DE,2,2,39,3:&FI:&PC,3
,2.9.H.&TX,"1-TO INFORM 2-TO
PERSUADE".Y.I.&PC,3,3:&TX,"3-TO TEACH A
LESSON 4-TO ENTERTAIN":&SP,255...J.&C
O,8:&DE,2,4,39,4:&IN:&FI:&NO...X.:... ..
1010...W.&SY,1:&PC,5,6:&TX,L$(5):&PC,5,
8:&TX,L$(6).....&PC,5,10:&TX,L$(7):&PC,5
,12:&TX,L$(8).(.... K . 1 . 4:J .((K .1)
. 2) . 5.;...&PC,18,J:&SY,2.H...L$ . "2"
.Y...&CO,123:&DE,17,5,21,13:&FI:& ENS,L$
,1,T%,AL%...... AL% . 0 . . 260.....L$.
H (L$,AL%)...... F(L$) . 3 . 272.Z...
.((L$.."1").(L$.."2")).267......280.....
.((L$.."3").(L$.."4")).:&PC,18,J:&SY,2:&
TX," ":.235.&.... 280.[...&RE:&SY,2:&PC
,9,5:&TX,"BYE":.19341:."HELLOHI1",8.~...
. L$.L$(K) . AX$ . "YES":.282.....AX$ .
"NO": . 290.N...& SY,2:&CO,16:&DE,1,16,
36,17:&FI:&PC,16,16:&TX,"GOOD"...... I .
160 . 48 . . 8: & TN,I,1: ......&PC,16
,16:&TX," ":&SY,1: . 300.=.".. I .
1 . 5: & TN,255,10: ..X.$.&SP,220: &SY,1
:&CO,112:&DE,2,14,39,14:&FI:&NO:&PC,4,14
...%.&TX,"THE CORRECT ANSWER IS: ".L$(K)
:.198,0:&SP,255.H.(.. R$:. R$..G(13).296
...).:&PC,2,14:&TX,"
".;.*.&CO,5:&DE,1,14,
39,14:&FI:&CO,69:&DE,2,14,39,14:&FI.Y.+.
&CO,27:&DE,2,14,39,14:&FI.H.,.. SCORING
...1.. (AX$ . "YES") . R . R . 1:RR . RR
. 1:WR . 0.Q.6.. (AX$ . . "YES") . W .
W . 1:WR . WR . 1:RR . 0...@.. 5010...J
.. RR . . RR% . A2 . 7:.870,A2:.895,W:.
910,R:.6000.U.T.. (WR .. 5) . (W .. 18)
. A2 . 5:.870,A2:.19341:."HELLOHI1",8.{.
^.&SY,2:&PC,18,J:&TX," ":&SY,1...H.
.......120...... DATA FOR QUESTIONS.T..
.L$(1) . "2":L$(2) . "4":L$(3)."1":L$(4)
."3".....L$(5) . "PASSAGE 1".....L$(6)."
PASSAGE 2".....L$(7) . "PASSAGE 3".0...L
$(8)."PASSAGE 4".6.B...H.... PAUSE SUBS
.N.B...T.L...S. .. INSTRUCTIONS AND BLO
ADS....&SP,220.....&SY,1:&CO,16:&DE,1,2
0,40,23:&FI:&PC,1,20.D...&TX,"READ STORY
6.".....&PC,1,21:&TX,"THEN, TYPE THE NU
MBER OF THE".'...&PC,1,22:&TX,"PURPOSE S
ERVED BY EACH PASSAGE.".K...&CO,160:&DE,
1,24,40,24:&FI:&PC,11,24:&TX,"HIT RETURN
TO GO ON.".W.R.&SP,255.}.$........ DIS
PLAY SCORE.A...:&SY,1:&CO,160:&DE,1,17,4
0,19:&FI:&PC,1,18.....&TX,"GOAL = 4 RIGH
T IN A ROW. YOU HAVE".....:&SY,2:&IN:&P
C,37,17:&TX," ". ...RR$.G(RR.48).7...:&P
C,37,18:&TX,RR$.F...:&NO:&SY,1.L.....C.P
.&RE:&DK,"I.TENT",1.{.R..I.3.30:&DP,1,I,
4:....T.. K . 1. 13:CC.224.(16.K).S.V.&C
O,CC:&DE,1,12,40,20:&FI:&SY,2:&PC,2,12:&
TX,N1$."--"...X.&PC,2,16:&TX,"TRY A TENT
TUNE???".A.Z..:&CO,16:&DE,1,21,40,24:&F
I:&SY,1:&PC,1,22:&TX,"PRESS Y FOR YES.
"...|.&CO,160:&DE,1,25,40,25:&FI:&PC,1,2
5:&TX,"OTHERWISE, HIT RETURN TO GO ON.".
..~.. 198,0...... R$: . R$ . "" . 6016.O
.... F(R$) .. 13 . 6022.Y....6060.(...&T
N,200,10:&TN,200,10:&TN,180,10:&TN,172,2
0:&TN,164,20:&TN,180,5:&TN,188,5.L...&TN
,192,10:&TN,160,10:&TN,160,10:&TN,160,20
:&TN,160,5:&TN,160,5.....&TN,164,20:&TN,
180,10:&TN,180,10:&TN,180,10:&TN,184,10:
&TN,180,10.....&TN,172,50:&TN,200,10:&TN
,200,10:&TN,180,10:&TN,172,10:&TN,164,20
.<...&TN,180,5:&TN,184,5:&TN,192,10:&TN,
160,10:&TN,160,10:&TN,160,20....&TN,160
,5:&TN,160,5:&TN,164,15:&TN,172,5:&TN,18
0,10:&TN,184,10.....&TN,180,10:&TN,172,1
0:&TN,180,60.....&TN,152,30:&TN,160,10:&
TN,164,15:&TN,172,5:&TN,164,50:&TN,172,5
:&TN,172,5.8...&TN,180,10:&TN,180,10:&TN
,180,10:&TN,180,10:&TN,184,10:&TN,180,10
.~...&TN,172,50:&TN,200,10:&TN,200,10:&T
N,180,10:&TN,172,10:&TN,164,20.B...&TN,1
80,5:&TN,184,5:&TN,192,10:&TN,160,10:&TN
,160,10:&TN,160,20.....&TN,160,5 :&TN,16
0,5 :&TN,164,15.,...&TN,172,5:&TN,180,10
:&TN,184,10:&TN,180,10:&TN,172,10:&TN,18
0,60.J...&RE:.I.1.9:&CO,I.3:&DE,I,I,41.I
,26.I:&FI:.:&SY,2:&PC,9,13.....&TX," PU
RPOSES ":.6200:.19341:."SUBPROGRAM XX/1
1",8.T.8. 15:.15,8,15,"S0:".NF$: 15:&BS,
NF$,868,63:....J..870,A2:&HG:&SY,1:&PC,5
,10:&TX,"WORKING...":.19341:."LESSONXX",
8.T.".&CO,208:&DE,1,20,40,22:&FI:&PC,1,2
0...J..19341:. "HELLOHI1",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL