SUBPROGRAM XX/5
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/5
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
f9fbffb780a9e36f56696f74ba842b572732df89f159ed4f0d5f456741ce82cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/5 | PRG | DuncanTwain | 13 | 1 | 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 68 08 0A 00 97 35 35 2C |0,.(46).h....55,|
00000050: 32 35 35 3A 97 35 36 2C 36 33 3A 97 38 36 39 2C |255:.56,63:.869,|
00000060: 35 3A 97 38 37 30 2C 30 00 80 08 0B 00 97 35 31 |5:.870,0......51|
00000070: 2C C2 28 35 35 29 3A 97 35 32 2C C2 28 35 36 29 |,.(55):.52,.(56)|
00000080: 00 8B 08 19 00 9E 31 39 33 32 38 00 A3 08 1E 00 |......19328.....|
00000090: 8F 20 20 20 53 55 42 50 52 4F 47 52 41 4D 20 58 |. SUBPROGRAM X|
000000A0: 58 2F 33 00 C4 08 22 00 53 50 20 B2 35 20 3A 4E |X/3...".SP .5 :N|
000000B0: 53 20 B2 34 20 3A 52 52 25 20 B2 20 34 3A 4E 51 |S .4 :RR% . 4:NQ|
000000C0: 20 B2 20 31 00 D6 08 28 00 53 54 25 20 B2 20 33 | . 1...(.ST% . 3|
000000D0: 3A 20 26 20 52 45 00 E4 08 2C 00 4C 24 20 B2 20 |: & RE...,.L$ . |
000000E0: 22 20 20 22 00 26 09 32 00 4C 31 B2 C2 28 38 37 |" ".&.2.L1..(87|
000000F0: 31 29 3A 4E 31 24 B2 22 22 3A 81 49 B2 31 A4 4C |1):N1$."":.I.1.L|
00000100: 31 3A 4E 31 24 B2 4E 31 24 AA C7 28 C2 28 49 AA |1:N1$.N1$..(.(I.|
00000110: 38 37 31 29 29 3A 82 3A 4E 46 24 B2 22 53 52 46 |871)):.:NF$."SRF|
00000120: 2D 22 AA 4E 31 24 00 3C 09 3C 00 86 20 4C 24 28 |-".N1$.<.<.. L$(|
00000130: 31 30 30 29 2C 49 58 24 28 31 30 29 00 55 09 46 |100),IX$(10).U.F|
00000140: 00 57 52 20 B2 20 30 3A 52 4E 20 B2 20 30 3A 4A |.WR . 0:RN . 0:J|
00000150: 20 B2 20 30 3A 00 72 09 50 00 52 20 B2 20 30 3A | . 0:.r.P.R . 0:|
00000160: 52 52 20 B2 20 30 3A 58 20 B2 20 30 3A 4B 20 B2 |RR . 0:X . 0:K .|
00000170: 20 30 00 84 09 64 00 8D 20 34 30 31 30 3A 8D 20 | 0...d.. 4010:. |
00000180: 35 30 31 30 00 C1 09 65 00 26 53 50 2C 32 32 30 |5010...e.&SP,220|
00000190: 3A 26 43 4F 2C 35 3A 26 44 45 2C 31 2C 31 2C 34 |:&CO,5:&DE,1,1,4|
000001A0: 30 2C 31 35 3A 26 46 49 3A 26 43 4F 2C 36 39 3A |0,15:&FI:&CO,69:|
000001B0: 26 44 45 2C 32 2C 32 2C 33 39 2C 31 34 3A 26 46 |&DE,2,2,39,14:&F|
000001C0: 49 00 DE 09 66 00 26 43 4F 2C 32 37 3A 26 44 45 |I...f.&CO,27:&DE|
000001D0: 2C 32 2C 32 2C 33 39 2C 31 34 3A 26 46 49 00 09 |,2,2,39,14:&FI..|
000001E0: 0A 67 00 26 53 59 2C 31 3A 26 43 4F 2C 31 36 30 |.g.&SY,1:&CO,160|
000001F0: 3A 26 44 45 2C 32 2C 32 2C 33 39 2C 33 3A 26 46 |:&DE,2,2,39,3:&F|
00000200: 49 3A 26 50 43 2C 33 2C 32 00 39 0A 68 00 26 54 |I:&PC,3,2.9.h.&T|
00000210: 58 2C 22 31 2D C1 50 50 45 41 4C 53 20 54 4F 20 |X,"1-.PPEALS TO |
00000220: 45 4D 4F 54 49 4F 4E 20 4D 4F 52 45 20 54 48 41 |EMOTION MORE THA|
00000230: 4E 20 4C 4F 47 49 43 2E 22 00 79 0A 69 00 26 50 |N LOGIC.".y.i.&P|
00000240: 43 2C 33 2C 33 3A 26 54 58 2C 22 32 2D C1 50 50 |C,3,3:&TX,"2-.PP|
00000250: 45 41 4C 53 20 54 4F 20 4C 4F 47 49 43 20 4D 4F |EALS TO LOGIC MO|
00000260: 52 45 20 54 48 41 4E 20 45 4D 4F 54 49 4F 4E 2E |RE THAN EMOTION.|
00000270: 22 3A 26 53 50 2C 32 35 35 00 9C 0A 6A 00 26 43 |":&SP,255...j.&C|
00000280: 4F 2C 37 3A 26 44 45 2C 32 2C 34 2C 33 39 2C 34 |O,7:&DE,2,4,39,4|
00000290: 3A 26 49 4E 3A 26 46 49 3A 26 4E 4F 00 D2 0A 6B |:&IN:&FI:&NO...k|
000002A0: 00 26 53 50 2C 32 32 30 3A 26 53 59 2C 31 3A 26 |.&SP,220:&SY,1:&|
000002B0: 43 4F 2C 31 36 30 3A 26 44 45 2C 32 2C 31 33 2C |CO,160:&DE,2,13,|
000002C0: 33 39 2C 31 34 3A 26 46 49 3A 26 50 43 2C 33 2C |39,14:&FI:&PC,3,|
000002D0: 31 33 00 FC 0A 6C 00 26 54 58 2C 22 33 2D D3 55 |13...l.&TX,"3-.U|
000002E0: 50 50 4F 52 54 53 20 4F 50 49 4E 49 4F 4E 53 20 |PPORTS OPINIONS |
000002F0: 57 49 54 48 20 46 41 43 54 53 2E 22 00 2C 0B 6D |WITH FACTS.".,.m|
00000300: 00 26 50 43 2C 33 2C 31 34 3A 26 54 58 2C 22 34 |.&PC,3,14:&TX,"4|
00000310: 2D D5 53 45 53 20 4C 4F 41 44 45 44 20 57 4F 52 |-.SES LOADED WOR|
00000320: 44 53 2E 22 3A 26 53 50 2C 32 35 35 00 51 0B 6E |DS.":&SP,255.Q.n|
00000330: 00 26 43 4F 2C 37 3A 26 44 45 2C 32 2C 31 32 2C |.&CO,7:&DE,2,12,|
00000340: 33 39 2C 31 32 3A 26 49 4E 3A 26 46 49 3A 26 4E |39,12:&IN:&FI:&N|
00000350: 4F 00 57 0B 78 00 3A 00 77 0B 82 00 8B 20 52 4E |O.W.x.:.w.... RN|
00000360: 20 B2 20 30 20 A7 20 4A 20 B2 20 4A 20 AA 20 31 | . 0 . J . J . 1|
00000370: 3A 20 89 20 31 35 30 00 A4 0B 8C 00 4A 20 B2 20 |: . 150.....J . |
00000380: 20 B5 20 28 4E 53 20 AC 20 20 BB 20 28 31 29 20 | . (NS . . (1) |
00000390: AA 20 31 29 3A 20 8B 20 4A 20 B2 20 4A 31 20 A7 |. 1): . J . J1 .|
000003A0: 20 31 34 30 00 C5 0B 96 00 4A 31 20 B2 20 4A 3A | 140.....J1 . J:|
000003B0: 20 8B 20 4A 20 B1 20 20 B2 20 4E 53 20 A7 20 52 | . J . . NS . R|
000003C0: 4E 20 B2 20 31 00 E3 0B A0 00 91 20 4A 20 8D 20 |N . 1...... J . |
000003D0: 31 30 31 30 2C 31 31 31 30 2C 31 32 31 30 2C 31 |1010,1110,1210,1|
000003E0: 33 31 30 00 09 0C D7 00 26 53 59 2C 32 3A 26 50 |310.....&SY,2:&P|
000003F0: 43 2C 32 30 AB C3 28 4C 24 28 33 29 29 2C 36 3A |C,20..(L$(3)),6:|
00000400: 26 54 58 2C 4C 24 28 33 29 00 28 0C FA 00 26 43 |&TX,L$(3).(...&C|
00000410: 4F 2C 31 37 31 3A 26 44 45 2C 31 35 2C 39 2C 32 |O,171:&DE,15,9,2|
00000420: 30 2C 31 30 3A 26 46 49 00 3C 0C 02 01 26 50 43 |0,10:&FI.<...&PC|
00000430: 2C 31 35 2C 39 20 3A 26 53 59 2C 32 00 4B 0C 03 |,15,9 :&SY,2.K..|
00000440: 01 4C 24 20 B2 20 22 33 32 32 22 00 61 0C 04 01 |.L$ . "322".a...|
00000450: 26 20 45 4E 53 2C 4C 24 2C 33 2C 54 25 2C 41 4C |& ENS,L$,3,T%,AL|
00000460: 25 00 73 0C 05 01 8B 20 41 4C 25 B2 30 20 A7 20 |%.s.... AL%.0 . |
00000470: 32 36 30 00 8A 0C 06 01 26 53 59 2C 31 3A 4C 24 |260.....&SY,1:L$|
00000480: B2 C8 28 4C 24 2C 41 4C 25 29 00 A3 0C 08 01 8B |..(L$,AL%)......|
00000490: 20 20 C6 20 28 4C 24 29 20 B2 20 33 20 20 A7 20 | . (L$) . 3 . |
000004A0: 32 37 32 00 AD 0C 0C 01 89 20 32 38 30 00 E2 0C |272...... 280...|
000004B0: 10 01 26 52 45 3A 26 53 59 2C 32 3A 26 50 43 2C |..&RE:&SY,2:&PC,|
000004C0: 39 2C 35 3A 26 54 58 2C 22 C2 59 45 22 3A 9E 31 |9,5:&TX,".YE":.1|
000004D0: 39 33 34 31 3A 93 22 48 45 4C 4C 4F 48 49 31 22 |9341:."HELLOHI1"|
000004E0: 2C 38 00 14 0D 18 01 8B 20 4C 24 20 B2 20 4C 24 |,8...... L$ . L$|
000004F0: 28 31 29 20 B0 20 4C 24 20 B2 20 4C 24 28 32 29 |(1) . L$ . L$(2)|
00000500: 20 20 A7 20 41 58 24 20 B2 20 22 59 45 53 22 3A | . AX$ . "YES":|
00000510: 89 32 38 32 00 2A 0D 19 01 41 58 24 20 B2 20 22 |.282.*...AX$ . "|
00000520: 4E 4F 22 3A 20 89 20 32 39 30 00 66 0D 1A 01 26 |NO": . 290.f...&|
00000530: 20 53 59 2C 32 3A 26 43 4F 2C 32 30 38 3A 26 44 | SY,2:&CO,208:&D|
00000540: 45 2C 31 36 2C 31 36 2C 32 34 2C 31 37 3A 26 46 |E,16,16,24,17:&F|
00000550: 49 3A 26 50 43 2C 31 36 2C 31 36 3A 26 54 58 2C |I:&PC,16,16:&TX,|
00000560: 22 C7 4F 4F 44 22 00 8D 0D 1B 01 81 20 49 20 B2 |".OOD"...... I .|
00000570: 20 31 36 30 20 A4 20 34 38 20 A9 20 20 AB 20 38 | 160 . 48 . . 8|
00000580: 3A 20 26 20 54 4E 2C 49 2C 31 3A 20 82 00 AE 0D |: & TN,I,1: ....|
00000590: 1D 01 26 50 43 2C 31 36 2C 31 36 3A 26 54 58 2C |..&PC,16,16:&TX,|
000005A0: 22 20 20 20 20 20 20 22 3A 89 20 33 30 30 00 CE |" ":. 300..|
000005B0: 0D 22 01 81 20 49 20 B2 20 31 20 A4 20 35 3A 20 |.".. I . 1 . 5: |
000005C0: 26 20 54 4E 2C 32 35 35 2C 31 30 3A 20 82 00 14 |& TN,255,10: ...|
000005D0: 0E 24 01 26 53 59 2C 32 3A 26 43 4F 2C 31 34 34 |.$.&SY,2:&CO,144|
000005E0: 3A 26 44 45 2C 32 32 2C 39 20 2C 32 35 2C 31 30 |:&DE,22,9 ,25,10|
000005F0: 3A 26 46 49 3A 81 49 B2 31 A4 31 30 3A 26 4E 4F |:&FI:.I.1.10:&NO|
00000600: 3A 26 50 43 2C 32 32 2C 39 20 3A 26 54 58 2C 4C |:&PC,22,9 :&TX,L|
00000610: 24 28 31 29 00 41 0E 25 01 8D 20 33 39 39 3A 26 |$(1).A.%.. 399:&|
00000620: 49 4E 3A 26 50 43 2C 32 32 2C 39 20 3A 26 54 58 |IN:&PC,22,9 :&TX|
00000630: 2C 4C 24 28 31 29 3A 8D 33 39 39 3A 82 3A 26 4E |,L$(1):.399:.:&N|
00000640: 4F 00 4C 0E 26 01 97 31 39 38 2C 30 00 61 0E 28 |O.L.&..198,0.a.(|
00000650: 01 A1 20 52 24 3A 8B 20 52 24 B2 22 22 A7 32 39 |.. R$:. R$."".29|
00000660: 36 00 88 0E 29 01 8B 20 C6 28 52 24 29 B3 B1 20 |6...).. .(R$).. |
00000670: 31 33 20 A7 20 32 39 36 20 20 20 20 20 20 20 20 |13 . 296 |
00000680: 20 20 20 20 20 20 20 22 00 BD 0E 2A 01 26 50 43 | "...*.&PC|
00000690: 2C 32 32 2C 39 20 3A 26 54 58 2C 22 20 20 20 20 |,22,9 :&TX," |
000006A0: 20 22 3A 26 43 4F 2C 31 31 3A 26 44 45 2C 32 32 | ":&CO,11:&DE,22|
000006B0: 2C 39 20 2C 32 35 2C 31 30 3A 26 46 49 00 DC 0E |,9 ,25,10:&FI...|
000006C0: 2B 01 26 43 4F 2C 32 37 3A 26 44 45 2C 32 32 2C |+.&CO,27:&DE,22,|
000006D0: 39 20 2C 32 35 2C 31 30 3A 26 46 49 00 EB 0E 2C |9 ,25,10:&FI...,|
000006E0: 01 8F 20 20 53 43 4F 52 49 4E 47 00 1E 0F 31 01 |.. SCORING...1.|
000006F0: 8B 20 28 41 58 24 20 B2 20 22 59 45 53 22 29 20 |. (AX$ . "YES") |
00000700: A7 20 52 20 B2 20 52 20 AA 20 31 3A 52 52 20 B2 |. R . R . 1:RR .|
00000710: 20 52 52 20 AA 20 31 3A 57 52 20 B2 20 30 00 54 | RR . 1:WR . 0.T|
00000720: 0F 36 01 8B 20 28 41 58 24 20 B3 20 20 B1 20 22 |.6.. (AX$ . . "|
00000730: 59 45 53 22 29 20 A7 20 57 20 B2 20 57 20 AA 20 |YES") . W . W . |
00000740: 31 3A 57 52 20 B2 20 57 52 20 AA 20 31 3A 52 52 |1:WR . WR . 1:RR|
00000750: 20 B2 20 30 00 5F 0F 40 01 8D 20 35 30 31 30 00 | . 0._.@.. 5010.|
00000760: 94 0F 4A 01 8B 20 52 52 20 B1 B2 20 52 52 25 20 |..J.. RR .. RR% |
00000770: A7 20 41 32 20 B2 20 37 3A 97 38 37 30 2C 41 32 |. A2 . 7:.870,A2|
00000780: 3A 97 38 39 30 2C 57 3A 97 39 30 35 2C 52 3A 89 |:.890,W:.905,R:.|
00000790: 36 30 30 30 00 D6 0F 54 01 8B 20 28 57 52 20 B1 |6000...T.. (WR .|
000007A0: B2 20 35 29 20 B0 20 28 57 20 B1 B2 20 31 38 29 |. 5) . (W .. 18)|
000007B0: 20 A7 20 41 32 20 B2 20 35 3A 97 38 37 30 2C 41 | . A2 . 5:.870,A|
000007C0: 32 3A 9E 31 39 33 34 31 3A 93 22 48 45 4C 4C 4F |2:.19341:."HELLO|
000007D0: 48 49 31 22 2C 38 00 1B 10 59 01 81 49 B2 30 A4 |HI1",8...Y..I.0.|
000007E0: 37 3A 26 50 43 2C 31 2C 34 AA 49 3A 26 54 58 2C |7:&PC,1,4.I:&TX,|
000007F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 20 20 20 20 20 20 20 22 3A 82 00 25 10 72 01 | ":..%.r.|
00000820: 89 20 31 32 30 00 2B 10 8F 01 8E 00 45 10 E8 03 |. 120.+.....E...|
00000830: 8F 20 20 44 41 54 41 20 46 4F 52 20 51 55 45 53 |. DATA FOR QUES|
00000840: 54 49 4F 4E 53 00 61 10 F2 03 4C 24 28 31 29 20 |TIONS.a...L$(1) |
00000850: B2 20 22 32 33 22 3A 4C 24 28 32 29 B2 22 33 32 |. "23":L$(2)."32|
00000860: 22 00 7B 10 FC 03 4C 24 28 33 29 20 B2 20 22 D0 |".{...L$(3) . ".|
00000870: 41 52 41 47 52 41 50 48 20 31 22 00 81 10 42 04 |ARAGRAPH 1"...B.|
00000880: 8E 00 9F 10 56 04 4C 24 28 31 29 20 B2 20 22 34 |....V.L$(1) . "4|
00000890: 31 22 3A 4C 24 28 32 29 20 B2 20 22 31 34 22 00 |1":L$(2) . "14".|
000008A0: B9 10 60 04 4C 24 28 33 29 20 B2 20 22 D0 41 52 |..`.L$(3) . ".AR|
000008B0: 41 47 52 41 50 48 20 32 22 00 BF 10 A6 04 8E 00 |AGRAPH 2".......|
000008C0: DD 10 BA 04 4C 24 28 31 29 20 B2 20 22 31 34 22 |....L$(1) . "14"|
000008D0: 3A 4C 24 28 32 29 20 B2 20 22 34 31 22 00 F7 10 |:L$(2) . "41"...|
000008E0: C4 04 4C 24 28 33 29 20 B2 20 22 D0 41 52 41 47 |..L$(3) . ".ARAG|
000008F0: 52 41 50 48 20 33 22 00 FD 10 0A 05 8E 00 1B 11 |RAPH 3".........|
00000900: 1E 05 4C 24 28 31 29 20 B2 20 22 33 32 22 3A 4C |..L$(1) . "32":L|
00000910: 24 28 32 29 20 B2 20 22 32 33 22 00 35 11 28 05 |$(2) . "23".5.(.|
00000920: 4C 24 28 33 29 20 B2 20 22 D0 41 52 41 47 52 41 |L$(3) . ".ARAGRA|
00000930: 50 48 20 34 22 00 3B 11 6E 05 8E 00 4D 11 B8 0B |PH 4".;.n...M...|
00000940: 8F 20 20 50 41 55 53 45 20 53 55 42 53 00 53 11 |. PAUSE SUBS.S.|
00000950: C2 0B 8E 00 59 11 CC 0B 8E 00 78 11 A0 0F 8F 20 |....Y.....x.... |
00000960: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 41 4E | INSTRUCTIONS AN|
00000970: 44 20 42 4C 4F 41 44 53 00 84 11 AA 0F 26 53 50 |D BLOADS.....&SP|
00000980: 2C 32 32 30 00 B1 11 B6 0F 26 53 59 2C 31 3A 26 |,220.....&SY,1:&|
00000990: 43 4F 2C 31 36 3A 26 44 45 2C 31 2C 32 31 2C 34 |CO,16:&DE,1,21,4|
000009A0: 30 2C 32 34 3A 26 46 49 3A 26 50 43 2C 31 2C 32 |0,24:&FI:&PC,1,2|
000009B0: 31 00 DD 11 B8 0F 26 54 58 2C 22 D2 45 41 44 20 |1.....&TX,".EAD |
000009C0: D3 54 4F 52 59 20 32 20 41 4E 44 20 50 48 52 41 |.TORY 2 AND PHRA|
000009D0: 53 45 53 20 28 31 20 2D 20 34 29 2E 22 00 14 12 |SES (1 - 4)."...|
000009E0: BA 0F 26 50 43 2C 31 2C 32 32 3A 26 54 58 2C 22 |..&PC,1,22:&TX,"|
000009F0: D4 59 50 45 20 54 48 45 20 4E 55 4D 42 45 52 53 |.YPE THE NUMBERS|
00000A00: 20 4F 46 20 54 48 45 20 54 57 4F 20 50 48 52 41 | OF THE TWO PHRA|
00000A10: 53 45 53 22 00 49 12 BB 0F 26 50 43 2C 31 2C 32 |SES".I...&PC,1,2|
00000A20: 33 3A 26 54 58 2C 22 54 48 41 54 20 42 45 53 54 |3:&TX,"THAT BEST|
00000A30: 20 44 45 53 43 52 49 42 45 20 54 48 45 20 50 41 | DESCRIBE THE PA|
00000A40: 52 41 47 52 41 50 48 2E 22 00 71 12 BF 0F 26 43 |RAGRAPH.".q...&C|
00000A50: 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 32 35 2C 34 |O,160:&DE,1,25,4|
00000A60: 30 2C 32 35 3A 26 46 49 3A 26 50 43 2C 31 2C 32 |0,25:&FI:&PC,1,2|
00000A70: 35 00 A0 12 C0 0F 26 54 58 2C 22 C8 49 54 20 D2 |5.....&TX,".IT .|
00000A80: C5 D4 D5 D2 CE 20 41 46 54 45 52 20 54 59 50 49 |..... AFTER TYPI|
00000A90: 4E 47 20 54 48 45 20 4E 55 4D 42 45 52 53 2E 22 |NG THE NUMBERS."|
00000AA0: 00 AC 12 D2 0F 26 53 50 2C 32 35 35 00 B2 12 24 |.....&SP,255...$|
00000AB0: 13 8E 00 C7 12 88 13 8F 20 20 44 49 53 50 4C 41 |........ DISPLA|
00000AC0: 59 20 53 43 4F 52 45 00 ED 12 92 13 3A 26 53 59 |Y SCORE.....:&SY|
00000AD0: 2C 31 3A 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 |,1:&CO,160:&DE,1|
00000AE0: 2C 31 38 2C 34 30 2C 32 30 3A 26 46 49 00 23 13 |,18,40,20:&FI.#.|
00000AF0: 93 13 26 50 43 2C 31 2C 31 39 3A 26 54 58 2C 22 |..&PC,1,19:&TX,"|
00000B00: C7 4F 41 4C 20 3D 20 34 20 52 49 47 48 54 20 49 |.OAL = 4 RIGHT I|
00000B10: 4E 20 41 20 52 4F 57 2E 20 20 D9 4F 55 20 48 41 |N A ROW. .OU HA|
00000B20: 56 45 22 00 44 13 9C 13 3A 26 53 59 2C 32 3A 26 |VE".D...:&SY,2:&|
00000B30: 49 4E 3A 26 50 43 2C 33 37 2C 31 38 3A 26 54 58 |IN:&PC,37,18:&TX|
00000B40: 2C 22 20 22 00 55 13 9D 13 52 52 24 B2 C7 28 52 |," ".U...RR$..(R|
00000B50: 52 AA 34 38 29 00 6C 13 A6 13 3A 26 50 43 2C 33 |R.48).l...:&PC,3|
00000B60: 37 2C 31 39 3A 26 54 58 2C 52 52 24 00 7B 13 B0 |7,19:&TX,RR$.{..|
00000B70: 13 3A 26 4E 4F 3A 26 53 59 2C 31 00 81 13 E2 13 |.:&NO:&SY,1.....|
00000B80: 8E 00 99 13 70 17 26 52 45 3A 26 44 4B 2C 22 49 |....p.&RE:&DK,"I|
00000B90: 2E 48 45 41 52 54 22 2C 31 00 CB 13 76 17 81 49 |.HEART",1...v..I|
00000BA0: B2 32 A4 33 30 A9 31 3A 26 44 50 2C 31 2C 49 2C |.2.30.1:&DP,1,I,|
00000BB0: 32 3A 82 3A 81 49 B2 33 30 A4 32 A9 AB 31 3A 26 |2:.:.I.30.2..1:&|
00000BC0: 44 50 2C 31 2C 49 2C 31 36 3A 82 00 FD 13 78 17 |DP,1,I,16:....x.|
00000BD0: 81 49 B2 32 A4 31 36 A9 37 3A 26 44 50 2C 31 2C |.I.2.16.7:&DP,1,|
00000BE0: 33 30 2C 49 3A 82 3A 81 49 B2 31 36 A4 32 A9 AB |30,I:.:.I.16.2..|
00000BF0: 37 3A 26 44 50 2C 31 2C 32 2C 49 3A 82 00 30 14 |7:&DP,1,2,I:..0.|
00000C00: 7A 17 81 49 B2 32 A4 32 37 A9 39 3A 26 44 50 2C |z..I.2.27.9:&DP,|
00000C10: 31 2C 49 2C 32 3A 82 3A 81 49 B2 33 30 A4 31 32 |1,I,2:.:.I.30.12|
00000C20: A9 AB 39 3A 26 44 50 2C 31 2C 49 2C 31 36 3A 82 |..9:&DP,1,I,16:.|
00000C30: 00 6E 14 84 17 81 4B B2 31 A4 31 32 3A 43 43 B2 |.n....K.1.12:CC.|
00000C40: 31 36 AA 28 4B AC 31 36 29 3A 26 43 4F 2C 43 43 |16.(K.16):&CO,CC|
00000C50: 3A 26 44 45 2C 31 30 2C 31 31 2C 33 30 2C 31 32 |:&DE,10,11,30,12|
00000C60: 3A 26 46 49 3A 26 50 43 2C 31 31 2C 31 31 00 96 |:&FI:&PC,11,11..|
00000C70: 14 85 17 26 53 59 2C 32 3A 26 54 58 2C 22 D3 4D |...&SY,2:&TX,".M|
00000C80: 4F 4F 2D 4F 4F 43 48 21 22 3A 81 49 B2 31 A4 32 |OO-OOCH!":.I.1.2|
00000C90: 30 30 3A 82 3A 82 00 B8 14 8E 17 81 20 49 20 B2 |00:.:....... I .|
00000CA0: 20 34 30 30 20 A4 20 32 30 20 A9 20 AB 38 3A 26 | 400 . 20 . .8:&|
00000CB0: 54 4E 2C 49 2C 32 3A 82 00 F6 14 A2 17 26 52 45 |TN,I,2:......&RE|
00000CC0: 3A 81 49 B2 31 A4 39 3A 26 43 4F 2C 49 AA 33 3A |:.I.1.9:&CO,I.3:|
00000CD0: 26 44 45 2C 49 2C 49 2C 34 31 AB 49 2C 32 36 AB |&DE,I,I,41.I,26.|
00000CE0: 49 3A 26 46 49 3A 82 3A 26 53 59 2C 32 3A 26 50 |I:&FI:.:&SY,2:&P|
00000CF0: 43 2C 39 2C 31 33 00 2F 15 AC 17 26 54 58 2C 22 |C,9,13./...&TX,"|
00000D00: C6 41 43 54 2D CF 50 49 4E 49 4F 4E 22 3A 8D 36 |.ACT-.PINION":.6|
00000D10: 32 30 30 3A 9E 31 39 33 34 31 3A 93 22 53 55 42 |200:.19341:."SUB|
00000D20: 50 52 4F 47 52 41 4D 20 58 58 2F 36 22 2C 38 00 |PROGRAM XX/6",8.|
00000D30: 5F 15 38 18 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |_.8..15:.15,8,15|
00000D40: 2C 22 53 30 3A 22 AA 4E 46 24 3A A0 31 35 3A 26 |,"S0:".NF$:.15:&|
00000D50: 42 53 2C 4E 46 24 2C 38 36 38 2C 36 33 3A 8E 00 |BS,NF$,868,63:..|
00000D60: 00 00 47 20 54 48 45 20 4E 55 4D 42 45 52 53 2E |..G THE NUMBERS.|
00000D70: 22 00 49 14 D2 0F 26 53 50 2C 32 35 35 00 4F 14 |".I...&SP,255.O.|
00000D80: 24 13 8E 00 64 14 88 13 8F 20 20 44 49 53 50 4C |$...d.... DISPL|
00000D90: 41 59 20 53 43 4F 52 45 00 89 14 92 13 26 53 59 |AY SCORE.....&SY|
00000DA0: 2C 31 3A 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 |,1:&CO,160:&DE,1|
00000DB0: 2C 31 39 2C 34 30 2C 32 30 3A 26 46 49 00 BF 14 |,19,40,20:&FI...|
00000DC0: 93 13 26 50 43 2C 31 2C 31 39 3A 26 54 58 2C 22 |..&PC,1,19:&TX,"|
00000DD0: C7 4F 41 4C 20 3D 20 34 20 52 49 47 48 54 20 49 |.OAL = 4 RIGHT I|
00000DE0: 4E 20 41 20 52 4F 57 2E 20 20 D9 4F 55 20 48 41 |N A ROW. .OU HA|
00000DF0: 56 45 22 00 D3 14 9C 13 26 20 53 59 2C 32 3A 20 |VE".....& SY,2: |
00000E00: 26 20 43 4C 2C 34 30 00 EF 14 9D 13 52 52 24 20 |& CL,40.....RR$ |
00000E10: B2 20 20 C7 20 28 52 52 AA 34 38 29 3A 20 26 20 |. . (RR.48): & |
00000E20: 49 4E 56 00 17 15 A6 13 81 20 4A 4A 20 B2 20 30 |INV...... JJ . 0|
00000E30: 20 A4 20 52 52 3A 20 26 50 43 2C 33 37 2C 31 39 | . RR: &PC,37,19|
00000E40: 3A 26 54 58 2C 52 52 24 3A 20 82 00 36 15 B0 13 |:&TX,RR$: ..6...|
00000E50: 26 20 4E 4F 3A 20 26 20 43 4C 2C 30 3A 20 26 20 |& NO: & CL,0: & |
00000E60: 44 49 2C 30 3A 26 53 59 2C 31 00 3C 15 E2 13 8E |DI,0:&SY,1.<....|
00000E70: 00 81 15 4A 9C 97 38 37 30 2C 41 32 3A 26 48 47 |...J..870,A2:&HG|
00000E80: 3A 26 53 59 2C 31 3A 26 50 43 2C 35 2C 31 30 3A |:&SY,1:&PC,5,10:|
00000E90: 26 54 58 2C 22 57 4F 52 4B 49 4E 47 2E 2E 2E 22 |&TX,"WORKING..."|
00000EA0: 3A 9E 31 39 33 34 31 3A 93 22 4C 45 53 53 4F 4E |:.19341:."LESSON|
00000EB0: 58 58 22 2C 38 00 A9 15 22 9D 26 43 4F 2C 32 30 |XX",8...".&CO,20|
00000EC0: 38 3A 26 44 45 2C 31 2C 32 30 2C 34 30 2C 32 32 |8:&DE,1,20,40,22|
00000ED0: 3A 26 46 49 3A 26 50 43 2C 31 2C 32 30 00 C3 15 |:&FI:&PC,1,20...|
00000EE0: 6A EA 9E 31 39 33 34 31 3A 93 20 22 48 45 4C 4C |j..19341:. "HELL|
00000EF0: 4F 48 49 31 22 2C 38 00 00 00 4A 9C 97 38 37 30 |OHI1",8...J..870|
00000F00: 2C 41 32 3A 26 48 47 3A 26 53 59 2C 31 3A 26 50 |,A2:&HG:&SY,1:&P|
00000F10: 43 2C 35 2C 31 30 3A 26 54 58 2C 22 57 4F 52 4B |C,5,10:&TX,"WORK|
00000F20: 49 4E 47 2E 2E 2E 22 3A 9E 31 39 33 34 31 3A 93 |ING...":.19341:.|
00000F30: 22 4C 45 53 53 4F 4E 58 58 22 2C 38 00 A9 15 22 |"LESSONXX",8..."|
00000F40: 9D 26 43 4F 2C 32 30 38 3A 26 44 45 2C 31 2C 32 |.&CO,208:&DE,1,2|
00000F50: 30 2C 34 30 2C 32 32 3A 26 46 49 3A 26 50 43 2C |0,40,22:&FI:&PC,|
00000F60: 31 2C 32 30 00 C3 15 6A EA 9E 31 39 33 34 31 3A |1,20...j..19341:|
00000F70: 93 20 22 48 45 4C 4C 4F 48 49 31 22 2C 38 00 00 |. "HELLOHI1",8..|
00000F80: 00 |. |
../....45,B(174):.46,B(175):.47,B(45):.4
8,B(46).G....49,B(45):.50,B(46).H....55,
255:.56,63:.869,5:.870,0......51,B(55):.
52,B(56)......19328...... SUBPROGRAM X
X/3.D.".SP .5 :NS .4 :RR% . 4:NQ . 1.V.(
.ST% . 3: & RE...,.L$ . " ".&.2.L1.B(87
1):N1$."":.I.1.L1:N1$.N1$.G(B(I.871)):.:
NF$."SRF-".N1$.<.<.. L$(100),IX$(10).U.F
.WR . 0:RN . 0:J . 0:.R.P.R . 0:RR . 0:X
. 0:K . 0...D.. 4010:. 5010.A.E.&SP,220
:&CO,5:&DE,1,1,40,15:&FI:&CO,69:&DE,2,2,
39,14:&FI...F.&CO,27:&DE,2,2,39,14:&FI..
.G.&SY,1:&CO,160:&DE,2,2,39,3:&FI:&PC,3,
2.9.H.&TX,"1-APPEALS TO EMOTION MORE THA
N LOGIC.".Y.I.&PC,3,3:&TX,"2-APPEALS TO
LOGIC MORE THAN EMOTION.":&SP,255...J.&C
O,7:&DE,2,4,39,4:&IN:&FI:&NO.R.K.&SP,220
:&SY,1:&CO,160:&DE,2,13,39,14:&FI:&PC,3,
13...L.&TX,"3-SUPPORTS OPINIONS WITH FAC
TS.".,.M.&PC,3,14:&TX,"4-USES LOADED WOR
DS.":&SP,255.Q.N.&CO,7:&DE,2,12,39,12:&I
N:&FI:&NO.W.X.:.W.... RN . 0 . J . J . 1
: . 150.....J . . (NS . . (1) . 1): .
J . J1 . 140.E...J1 . J: . J . . NS . R
N . 1... .. J . 1010,1110,1210,1310...W.
&SY,2:&PC,20.C(L$(3)),6:&TX,L$(3).(...&C
O,171:&DE,15,9,20,10:&FI.<...&PC,15,9 :&
SY,2.K...L$ . "322".A...& ENS,L$,3,T%,AL
%.S.... AL%.0 . 260.....&SY,1:L$.H(L$,AL
%)...... F (L$) . 3 . 272...... 280...
..&RE:&SY,2:&PC,9,5:&TX,"BYE":.19341:."H
ELLOHI1",8...... L$ . L$(1) . L$ . L$(2)
. AX$ . "YES":.282.*...AX$ . "NO": . 2
90.F...& SY,2:&CO,208:&DE,16,16,24,17:&F
I:&PC,16,16:&TX,"GOOD"...... I . 160 . 4
8 . . 8: & TN,I,1: ......&PC,16,16:&TX,
" ":. 300.N.".. I . 1 . 5: & TN,255
,10: ....$.&SY,2:&CO,144:&DE,22,9 ,25,10
:&FI:.I.1.10:&NO:&PC,22,9 :&TX,L$(1).A.%
.. 399:&IN:&PC,22,9 :&TX,L$(1):.399:.:&N
O.L.&..198,0.A.(.. R$:. R$."".296...)..
F(R$).. 13 . 296 "...*.&PC
,22,9 :&TX," ":&CO,11:&DE,22,9 ,25,1
0:&FI...+.&CO,27:&DE,22,9 ,25,10:&FI...,
.. SCORING...1.. (AX$ . "YES") . R . R
. 1:RR . RR . 1:WR . 0.T.6.. (AX$ . . "
YES") . W . W . 1:WR . WR . 1:RR . 0._.@
.. 5010...J.. RR .. RR% . A2 . 7:.870,A2
:.890,W:.905,R:.6000.V.T.. (WR .. 5) . (
W .. 18) . A2 . 5:.870,A2:.19341:."HELLO
HI1",8...Y..I.0.7:&PC,1,4.I:&TX,"
":..%.R.
. 120.+.....E.... DATA FOR QUESTIONS.A.
..L$(1) . "23":L$(2)."32".{...L$(3) . "P
ARAGRAPH 1"...B.....V.L$(1) . "41":L$(2)
. "14"...`.L$(3) . "PARAGRAPH 2".......
....L$(1) . "14":L$(2) . "41"...D.L$(3)
. "PARAGRAPH 3"...........L$(1) . "32":L
$(2) . "23".5.(.L$(3) . "PARAGRAPH 4".;.
N...M.... PAUSE SUBS.S.B...Y.L...X. ..
INSTRUCTIONS AND BLOADS.....&SP,220....
.&SY,1:&CO,16:&DE,1,21,40,24:&FI:&PC,1,2
1.....&TX,"READ STORY 2 AND PHRASES (1 -
4).".....&PC,1,22:&TX,"TYPE THE NUMBERS
OF THE TWO PHRASES".I...&PC,1,23:&TX,"T
HAT BEST DESCRIBE THE PARAGRAPH.".Q...&C
O,160:&DE,1,25,40,25:&FI:&PC,1,25. ...&T
X,"HIT RETURN AFTER TYPING THE NUMBERS."
...R.&SP,255...$...G.... DISPLAY SCORE.
....:&SY,1:&CO,160:&DE,1,18,40,20:&FI.#.
..&PC,1,19:&TX,"GOAL = 4 RIGHT IN A ROW.
YOU HAVE".D...:&SY,2:&IN:&PC,37,18:&TX
," ".U...RR$.G(RR.48).L...:&PC,37,19:&TX
,RR$.{...:&NO:&SY,1.........P.&RE:&DK,"I
.HEART",1.K.V..I.2.30.1:&DP,1,I,2:.:.I.3
0.2..1:&DP,1,I,16:....X..I.2.16.7:&DP,1,
30,I:.:.I.16.2..7:&DP,1,2,I:..0.Z..I.2.2
7.9:&DP,1,I,2:.:.I.30.12..9:&DP,1,I,16:.
.N....K.1.12:CC.16.(K.16):&CO,CC:&DE,10,
11,30,12:&FI:&PC,11,11.....&SY,2:&TX,"SM
OO-OOCH!":.I.1.200:.:....... I . 400 . 2
0 . .8:&TN,I,2:......&RE:.I.1.9:&CO,I.3:
&DE,I,I,41.I,26.I:&FI:.:&SY,2:&PC,9,13./
...&TX,"FACT-OPINION":.6200:.19341:."SUB
PROGRAM XX/6",8._.8. 15:.15,8,15,"S0:".N
F$: 15:&BS,NF$,868,63:....G THE NUMBERS.
".I.R.&SP,255.O.$...D.... DISPLAY SCORE
.....&SY,1:&CO,160:&DE,1,19,40,20:&FI...
..&PC,1,19:&TX,"GOAL = 4 RIGHT IN A ROW.
YOU HAVE".S...& SY,2: & CL,40.....RR$
. G (RR.48): & INV...... JJ . 0 . RR: &
PC,37,19:&TX,RR$: ..6...& NO: & CL,0: &
DI,0:&SY,1.<.......J..870,A2:&HG:&SY,1:&
PC,5,10:&TX,"WORKING...":.19341:."LESSON
XX",8...".&CO,208:&DE,1,20,40,22:&FI:&PC
,1,20.C.J..19341:. "HELLOHI1",8...J..870
,A2:&HG:&SY,1:&PC,5,10:&TX,"WORKING...":
.19341:."LESSONXX",8...".&CO,208:&DE,1,2
0,40,22:&FI:&PC,1,20.C.J..19341:. "HELLO
HI1",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL