SUBPROGRAM XX/7
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/7
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
a78259247568d81dce04fa663de6c6e3753eee859bbf9354f6e114de56dad1a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/7 | PRG | DuncanTwain | 12 | 0 | 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: 37 3A 97 38 37 30 2C 30 00 80 08 0B 00 97 35 31 |7:.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 38 00 C4 08 22 00 53 50 20 B2 37 20 3A 4E |X/8...".SP .7 :N|
000000B0: 53 20 B2 31 31 3A 52 52 25 20 B2 20 36 3A 4E 51 |S .11:RR% . 6:NQ|
000000C0: 20 B2 20 32 00 D6 08 28 00 53 54 25 20 B2 20 33 | . 2...(.ST% . 3|
000000D0: 3A 20 26 20 52 45 00 E5 08 2C 00 4C 24 20 B2 20 |: & RE...,.L$ . |
000000E0: 22 20 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 86 09 64 00 8D 34 30 31 30 3A 20 20 |. 0...d..4010: |
00000180: 8D 20 35 30 31 30 00 8C 09 78 00 3A 00 AC 09 82 |. 5010...x.:....|
00000190: 00 8B 20 52 4E 20 B2 20 30 20 A7 20 4A 20 B2 20 |.. RN . 0 . J . |
000001A0: 4A 20 AA 20 31 3A 20 89 20 31 35 30 00 D9 09 8C |J . 1: . 150....|
000001B0: 00 4A 20 B2 20 20 B5 20 28 4E 53 20 AC 20 20 BB |.J . . (NS . .|
000001C0: 20 28 31 29 20 AA 20 31 29 3A 20 8B 20 4A 20 B2 | (1) . 1): . J .|
000001D0: 20 4A 31 20 A7 20 31 34 30 00 FA 09 96 00 4A 31 | J1 . 140.....J1|
000001E0: 20 B2 20 4A 3A 20 8B 20 4A 20 B1 20 20 B2 20 4E | . J: . J . . N|
000001F0: 53 20 A7 20 52 4E 20 B2 20 31 00 3B 0A A0 00 91 |S . RN . 1.;....|
00000200: 20 4A 20 8D 20 31 30 31 30 2C 31 31 31 30 2C 31 | J . 1010,1110,1|
00000210: 32 31 30 2C 31 33 31 30 2C 31 34 31 30 2C 31 35 |210,1310,1410,15|
00000220: 31 30 2C 31 36 31 30 2C 31 37 31 30 2C 31 38 31 |10,1610,1710,181|
00000230: 30 2C 31 39 31 30 2C 32 30 31 30 00 4E 0A AF 00 |0,1910,2010.N...|
00000240: 8B 20 4A 20 B3 B1 20 31 20 A7 20 32 34 35 00 83 |. J .. 1 . 245..|
00000250: 0A B4 00 26 43 4F 2C 35 3A 26 44 45 2C 31 2C 31 |...&CO,5:&DE,1,1|
00000260: 2C 34 30 2C 31 35 3A 26 46 49 3A 26 43 4F 2C 36 |,40,15:&FI:&CO,6|
00000270: 39 3A 26 44 45 2C 32 2C 32 2C 33 39 2C 31 34 3A |9:&DE,2,2,39,14:|
00000280: 26 46 49 00 A0 0A BE 00 26 43 4F 2C 32 37 3A 26 |&FI.....&CO,27:&|
00000290: 44 45 2C 32 2C 32 2C 33 39 2C 31 34 3A 26 46 49 |DE,2,2,39,14:&FI|
000002A0: 00 D4 0A F5 00 26 53 59 2C 32 3A 26 50 43 2C 33 |.....&SY,2:&PC,3|
000002B0: 2C 36 3A 26 54 58 2C 4C 24 28 32 29 3A 26 50 43 |,6:&TX,L$(2):&PC|
000002C0: 2C 33 2C 39 3A 26 54 58 2C 4C 24 28 33 29 3A 26 |,3,9:&TX,L$(3):&|
000002D0: 53 59 2C 31 00 F7 0A FA 00 26 43 4F 2C 31 36 30 |SY,1.....&CO,160|
000002E0: 3A 26 44 45 2C 31 2C 31 36 2C 31 30 2C 31 37 3A |:&DE,1,16,10,17:|
000002F0: 26 46 49 3A 26 4E 4F 00 0A 0B 02 01 26 50 43 2C |&FI:&NO.....&PC,|
00000300: 32 2C 31 36 3A 26 53 59 2C 32 00 17 0B 03 01 4C |2,16:&SY,2.....L|
00000310: 24 20 B2 20 22 4F 22 00 2D 0B 04 01 26 20 45 4E |$ . "O".-...& EN|
00000320: 53 2C 4C 24 2C 31 2C 54 25 2C 41 4C 25 00 3F 0B |S,L$,1,T%,AL%.?.|
00000330: 05 01 8B 20 41 4C 25 B2 30 20 A7 20 32 36 30 00 |... AL%.0 . 260.|
00000340: 5A 0B 06 01 26 53 59 2C 31 3A 4C 24 20 B2 20 20 |Z...&SY,1:L$ . |
00000350: C8 20 28 4C 24 2C 41 4C 25 29 00 73 0B 08 01 8B |. (L$,AL%).s....|
00000360: 20 20 C6 20 28 4C 24 29 20 B2 20 33 20 20 A7 20 | . (L$) . 3 . |
00000370: 32 37 32 00 AC 0B 09 01 8B 28 28 4C 24 B3 B1 22 |272......((L$.."|
00000380: 4F 22 29 AF 28 4C 24 B3 B1 22 46 22 29 29 A7 3A |O").(L$.."F")).:|
00000390: 26 50 43 2C 32 2C 31 36 3A 26 53 59 2C 32 3A 26 |&PC,2,16:&SY,2:&|
000003A0: 54 58 2C 22 20 20 22 3A 89 32 35 38 00 B6 0B 0C |TX," ":.258....|
000003B0: 01 89 20 32 38 30 00 EB 0B 10 01 26 52 45 3A 26 |.. 280.....&RE:&|
000003C0: 53 59 2C 32 3A 26 50 43 2C 39 2C 35 3A 26 54 58 |SY,2:&PC,9,5:&TX|
000003D0: 2C 22 C2 59 45 22 3A 9E 31 39 33 34 31 3A 93 22 |,".YE":.19341:."|
000003E0: 48 45 4C 4C 4F 48 49 31 22 2C 38 00 0F 0C 18 01 |HELLOHI1",8.....|
000003F0: 8B 20 4C 24 20 B2 20 4C 24 28 31 29 20 A7 20 41 |. L$ . L$(1) . A|
00000400: 58 24 20 B2 20 22 59 45 53 22 3A 89 32 38 32 00 |X$ . "YES":.282.|
00000410: 25 0C 19 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 |%...AX$ . "NO": |
00000420: 89 20 32 39 30 00 74 0C 1A 01 26 53 59 2C 32 3A |. 290.t...&SY,2:|
00000430: 26 50 43 2C 32 2C 31 36 3A 26 54 58 2C 22 20 20 |&PC,2,16:&TX," |
00000440: 20 20 20 20 22 3A 26 43 4F 2C 31 36 3A 26 44 45 | ":&CO,16:&DE|
00000450: 2C 31 2C 31 36 2C 34 30 2C 31 37 3A 26 46 49 3A |,1,16,40,17:&FI:|
00000460: 26 50 43 2C 31 36 2C 31 36 3A 26 54 58 2C 22 C7 |&PC,16,16:&TX,".|
00000470: 4F 4F 44 22 00 9B 0C 1B 01 81 20 49 20 B2 20 31 |OOD"...... I . 1|
00000480: 36 30 20 A4 20 34 38 20 A9 20 20 AB 20 38 3A 20 |60 . 48 . . 8: |
00000490: 26 20 54 4E 2C 49 2C 31 3A 20 82 00 E3 0C 1D 01 |& TN,I,1: ......|
000004A0: 26 50 43 2C 32 2C 31 36 3A 26 54 58 2C 22 20 20 |&PC,2,16:&TX," |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 22 3A 26 53 59 2C 31 3A 20 89 20 | ":&SY,1: . |
000004E0: 33 30 30 00 03 0D 22 01 81 20 49 20 B2 20 31 20 |300...".. I . 1 |
000004F0: A4 20 35 3A 20 26 20 54 4E 2C 32 35 35 2C 31 30 |. 5: & TN,255,10|
00000500: 3A 20 82 00 3F 0D 23 01 26 53 50 2C 32 32 30 3A |: ..?.#.&SP,220:|
00000510: 20 26 53 59 2C 31 3A 26 43 4F 2C 31 36 3A 26 44 | &SY,1:&CO,16:&D|
00000520: 45 2C 31 32 2C 31 35 2C 34 30 2C 31 35 3A 26 46 |E,12,15,40,15:&F|
00000530: 49 3A 26 4E 4F 3A 26 50 43 2C 31 32 2C 31 35 00 |I:&NO:&PC,12,15.|
00000540: 67 0D 25 01 26 54 58 2C 22 D4 48 45 20 43 4F 52 |g.%.&TX,".HE COR|
00000550: 52 45 43 54 20 41 4E 53 57 45 52 20 49 53 3A 20 |RECT ANSWER IS: |
00000560: 22 AA 4C 24 28 31 29 00 7B 0D 26 01 97 20 31 39 |".L$(1).{.&.. 19|
00000570: 38 2C 30 3A 26 53 50 2C 32 35 35 00 90 0D 27 01 |8,0:&SP,255...'.|
00000580: A1 20 52 24 3A 8B 20 52 24 B2 22 22 A7 32 39 35 |. R$:. R$."".295|
00000590: 00 A7 0D 28 01 8B 20 C6 28 52 24 29 B3 B1 20 31 |...(.. .(R$).. 1|
000005A0: 33 20 A7 20 32 39 35 00 E2 0D 29 01 26 50 43 2C |3 . 295...).&PC,|
000005B0: 34 2C 31 35 3A 26 54 58 2C 22 20 20 20 20 20 20 |4,15:&TX," |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 22 00 0A 0E 2A 01 26 53 59 2C 32 3A 26 50 43 | "...*.&SY,2:&PC|
000005F0: 2C 31 2C 31 36 3A 26 54 58 2C 22 20 20 20 20 20 |,1,16:&TX," |
00000600: 20 20 20 22 3A 26 53 59 2C 31 00 28 0E 2B 01 26 | ":&SY,1.(.+.&|
00000610: 43 4F 2C 35 3A 26 44 45 2C 31 32 2C 31 35 2C 34 |CO,5:&DE,12,15,4|
00000620: 30 2C 31 35 3A 26 46 49 00 37 0E 2C 01 8F 20 20 |0,15:&FI.7.,.. |
00000630: 53 43 4F 52 49 4E 47 00 6A 0E 31 01 8B 20 28 41 |SCORING.j.1.. (A|
00000640: 58 24 20 B2 20 22 59 45 53 22 29 20 A7 20 52 20 |X$ . "YES") . R |
00000650: B2 20 52 20 AA 20 31 3A 52 52 20 B2 20 52 52 20 |. R . 1:RR . RR |
00000660: AA 20 31 3A 57 52 20 B2 20 30 00 A0 0E 36 01 8B |. 1:WR . 0...6..|
00000670: 20 28 41 58 24 20 B3 20 20 B1 20 22 59 45 53 22 | (AX$ . . "YES"|
00000680: 29 20 A7 20 57 20 B2 20 57 20 AA 20 31 3A 57 52 |) . W . W . 1:WR|
00000690: 20 B2 20 57 52 20 AA 20 31 3A 52 52 20 B2 20 30 | . WR . 1:RR . 0|
000006A0: 00 AB 0E 40 01 8D 20 35 30 31 30 00 E2 0E 4A 01 |...@.. 5010...J.|
000006B0: 8B 20 52 52 20 B1 20 20 B2 20 52 52 25 20 A7 20 |. RR . . RR% . |
000006C0: 41 32 20 B2 20 37 3A 97 38 37 30 2C 41 32 3A 97 |A2 . 7:.870,A2:.|
000006D0: 38 39 32 2C 57 3A 97 39 30 37 2C 52 3A 89 36 30 |892,W:.907,R:.60|
000006E0: 30 30 00 24 0F 54 01 8B 20 28 57 52 20 B1 B2 20 |00.$.T.. (WR .. |
000006F0: 35 29 20 B0 20 28 57 20 B1 B2 20 31 38 29 20 A7 |5) . (W .. 18) .|
00000700: 20 41 32 20 B2 20 35 3A 97 38 37 30 2C 41 32 3A | A2 . 5:.870,A2:|
00000710: 9E 31 39 33 34 31 3A 93 22 48 45 4C 4C 4F 48 49 |.19341:."HELLOHI|
00000720: 31 22 2C 38 00 6A 0F 59 01 81 49 B2 30 A4 31 32 |1",8.j.Y..I.0.12|
00000730: 3A 26 50 43 2C 31 2C 32 AA 49 3A 26 54 58 2C 22 |:&PC,1,2.I:&TX,"|
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 20 20 20 20 20 20 22 3A 82 00 74 0F 72 01 89 | ":..t.r..|
00000770: 20 31 32 30 00 8E 0F E8 03 8F 20 20 44 41 54 41 | 120...... DATA|
00000780: 20 46 4F 52 20 51 55 45 53 54 49 4F 4E 53 00 9E | FOR QUESTIONS..|
00000790: 0F F2 03 4C 24 28 31 29 20 B2 20 22 4F 22 00 B3 |...L$(1) . "O"..|
000007A0: 0F F7 03 4C 24 28 32 29 20 B2 20 22 D0 41 52 54 |...L$(2) . ".ART|
000007B0: 20 31 22 00 CA 0F F8 03 4C 24 28 33 29 B2 22 D3 | 1".....L$(3).".|
000007C0: 45 4E 54 45 4E 43 45 20 31 22 00 DF 0F FC 03 4C |ENTENCE 1".....L|
000007D0: 24 28 34 29 B2 22 20 20 20 20 20 20 20 20 22 00 |$(4)." ".|
000007E0: E5 0F 42 04 8E 00 F3 0F 56 04 4C 24 28 31 29 B2 |..B.....V.L$(1).|
000007F0: 22 46 22 00 08 10 60 04 4C 24 28 32 29 20 B2 20 |"F"...`.L$(2) . |
00000800: 22 D0 41 52 54 20 31 22 00 1F 10 61 04 4C 24 28 |".ART 1"...a.L$(|
00000810: 33 29 B2 22 D3 45 4E 54 45 4E 43 45 20 32 22 00 |3).".ENTENCE 2".|
00000820: 33 10 6F 04 4C 24 28 34 29 B2 22 20 20 20 20 20 |3.o.L$(4)." |
00000830: 20 20 22 00 39 10 A6 04 8E 00 47 10 BA 04 4C 24 | ".9.....G...L$|
00000840: 28 31 29 B2 22 46 22 00 5C 10 C4 04 4C 24 28 32 |(1)."F".\...L$(2|
00000850: 29 20 B2 20 22 D0 41 52 54 20 31 22 00 73 10 C5 |) . ".ART 1".s..|
00000860: 04 4C 24 28 33 29 B2 22 D3 45 4E 54 45 4E 43 45 |.L$(3).".ENTENCE|
00000870: 20 33 22 00 8E 10 CE 04 4C 24 28 34 29 20 B2 20 | 3".....L$(4) . |
00000880: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 94 |" "..|
00000890: 10 0A 05 8E 00 A2 10 1E 05 4C 24 28 31 29 B2 22 |.........L$(1)."|
000008A0: 4F 22 00 B7 10 28 05 4C 24 28 32 29 20 B2 20 22 |O"...(.L$(2) . "|
000008B0: D0 41 52 54 20 31 22 00 D2 10 29 05 4C 24 28 33 |.ART 1"...).L$(3|
000008C0: 29 B2 22 D3 45 4E 54 45 4E 43 45 20 34 20 20 20 |).".ENTENCE 4 |
000008D0: 20 22 00 ED 10 32 05 4C 24 28 34 29 20 B2 20 22 | "...2.L$(4) . "|
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F3 10 | "...|
000008F0: 6E 05 8E 00 01 11 82 05 4C 24 28 31 29 B2 22 46 |n.......L$(1)."F|
00000900: 22 00 14 11 8C 05 4C 24 28 32 29 B2 22 D0 41 52 |".....L$(2).".AR|
00000910: 54 20 31 22 00 2B 11 96 05 4C 24 28 33 29 B2 22 |T 1".+...L$(3)."|
00000920: D3 45 4E 54 45 4E 43 45 20 35 22 00 41 11 A0 05 |.ENTENCE 5".A...|
00000930: 4C 24 28 34 29 B2 22 20 20 20 20 20 20 20 20 20 |L$(4)." |
00000940: 22 00 47 11 D2 05 8E 00 57 11 E6 05 4C 24 28 31 |".G.....W...L$(1|
00000950: 29 20 B2 20 22 4F 22 00 6A 11 F0 05 4C 24 28 32 |) . "O".j...L$(2|
00000960: 29 B2 22 D0 41 52 54 20 31 22 00 81 11 FA 05 4C |).".ART 1".....L|
00000970: 24 28 33 29 B2 22 D3 45 4E 54 45 4E 43 45 20 36 |$(3).".ENTENCE 6|
00000980: 22 00 95 11 04 06 4C 24 28 34 29 B2 22 20 20 20 |".....L$(4)." |
00000990: 20 20 20 20 22 00 9B 11 36 06 8E 00 A9 11 4A 06 | "...6.....J.|
000009A0: 4C 24 28 31 29 B2 22 4F 22 00 BC 11 54 06 4C 24 |L$(1)."O"...T.L$|
000009B0: 28 32 29 B2 22 D0 41 52 54 20 32 22 00 D3 11 5E |(2).".ART 2"...^|
000009C0: 06 4C 24 28 33 29 B2 22 D3 45 4E 54 45 4E 43 45 |.L$(3).".ENTENCE|
000009D0: 20 31 22 00 E6 11 68 06 4C 24 28 34 29 B2 22 20 | 1"...h.L$(4)." |
000009E0: 20 20 20 20 20 22 00 EC 11 9A 06 8E 00 FA 11 AE | "..........|
000009F0: 06 4C 24 28 31 29 B2 22 46 22 00 0D 12 B8 06 4C |.L$(1)."F".....L|
00000A00: 24 28 32 29 B2 22 D0 41 52 54 20 32 22 00 24 12 |$(2).".ART 2".$.|
00000A10: C2 06 4C 24 28 33 29 B2 22 D3 45 4E 54 45 4E 43 |..L$(3).".ENTENC|
00000A20: 45 20 32 22 00 39 12 CC 06 4C 24 28 34 29 B2 22 |E 2".9...L$(4)."|
00000A30: 20 20 20 20 20 20 20 20 22 00 3F 12 FE 06 8E 00 | ".?.....|
00000A40: 4D 12 12 07 4C 24 28 31 29 B2 22 4F 22 00 60 12 |M...L$(1)."O".`.|
00000A50: 1C 07 4C 24 28 32 29 B2 22 D0 41 52 54 20 32 22 |..L$(2).".ART 2"|
00000A60: 00 77 12 26 07 4C 24 28 33 29 B2 22 D3 45 4E 54 |.w.&.L$(3).".ENT|
00000A70: 45 4E 43 45 20 33 22 00 8C 12 30 07 4C 24 28 34 |ENCE 3"...0.L$(4|
00000A80: 29 B2 22 20 20 20 20 20 20 20 20 22 00 92 12 6B |)." "...k|
00000A90: 07 8E 00 A0 12 76 07 4C 24 28 31 29 B2 22 46 22 |.....v.L$(1)."F"|
00000AA0: 00 B3 12 80 07 4C 24 28 32 29 B2 22 D0 41 52 54 |.....L$(2).".ART|
00000AB0: 20 32 22 00 CA 12 8A 07 4C 24 28 33 29 B2 22 D3 | 2".....L$(3).".|
00000AC0: 45 4E 54 45 4E 43 45 20 34 22 00 E0 12 94 07 4C |ENTENCE 4".....L|
00000AD0: 24 28 34 29 B2 22 20 20 20 20 20 20 20 20 20 22 |$(4)." "|
00000AE0: 00 E6 12 C6 07 8E 00 F4 12 DA 07 4C 24 28 31 29 |...........L$(1)|
00000AF0: B2 22 4F 22 00 07 13 E4 07 4C 24 28 32 29 B2 22 |."O".....L$(2)."|
00000B00: D0 41 52 54 20 32 22 00 1E 13 EE 07 4C 24 28 33 |.ART 2".....L$(3|
00000B10: 29 B2 22 D3 45 4E 54 45 4E 43 45 20 35 22 00 32 |).".ENTENCE 5".2|
00000B20: 13 F8 07 4C 24 28 34 29 B2 22 20 20 20 20 20 20 |...L$(4)." |
00000B30: 20 22 00 38 13 2A 08 8E 00 4A 13 B8 0B 8F 20 20 | ".8.*...J.... |
00000B40: 50 41 55 53 45 20 53 55 42 53 00 50 13 C2 0B 8E |PAUSE SUBS.P....|
00000B50: 00 56 13 CC 0B 8E 00 75 13 A0 0F 8F 20 20 49 4E |.V.....u.... IN|
00000B60: 53 54 52 55 43 54 49 4F 4E 53 20 41 4E 44 20 42 |STRUCTIONS AND B|
00000B70: 4C 4F 41 44 53 00 81 13 AA 0F 26 53 50 2C 32 32 |LOADS.....&SP,22|
00000B80: 30 00 A5 13 B6 0F 26 53 59 2C 31 3A 26 43 4F 2C |0.....&SY,1:&CO,|
00000B90: 31 36 3A 26 44 45 2C 31 2C 32 31 2C 34 30 2C 32 |16:&DE,1,21,40,2|
00000BA0: 33 3A 26 46 49 00 C3 13 B7 0F 26 43 4F 2C 31 36 |3:&FI.....&CO,16|
00000BB0: 30 3A 26 44 45 2C 36 2C 32 31 2C 36 2C 32 33 3A |0:&DE,6,21,6,23:|
00000BC0: 26 46 49 00 F8 13 BA 0F 26 50 43 2C 31 2C 32 31 |&FI.....&PC,1,21|
00000BD0: 3A 26 54 58 2C 22 D4 59 50 45 20 4F 20 49 46 20 |:&TX,".YPE O IF |
00000BE0: 54 48 45 20 53 45 4E 54 45 4E 43 45 20 49 4E 20 |THE SENTENCE IN |
00000BF0: D3 54 4F 52 59 20 33 22 00 2C 14 BB 0F 26 50 43 |.TORY 3".,...&PC|
00000C00: 2C 37 2C 32 32 3A 26 54 58 2C 22 53 48 4F 57 4E |,7,22:&TX,"SHOWN|
00000C10: 20 41 42 4F 56 45 20 53 54 41 54 45 53 20 41 4E | ABOVE STATES AN|
00000C20: 20 28 4F 29 50 49 4E 49 4F 4E 2E 22 00 5D 14 BC | (O)PINION.".]..|
00000C30: 0F 26 50 43 2C 31 2C 32 33 3A 26 54 58 2C 22 D4 |.&PC,1,23:&TX,".|
00000C40: 59 50 45 20 46 20 49 46 20 49 54 20 53 54 41 54 |YPE F IF IT STAT|
00000C50: 45 53 20 41 20 28 46 29 41 43 54 2E 22 00 A1 14 |ES A (F)ACT."...|
00000C60: BD 0F 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C |..&CO,160:&DE,1,|
00000C70: 32 35 2C 34 30 2C 32 35 3A 26 46 49 3A 26 50 43 |25,40,25:&FI:&PC|
00000C80: 2C 31 31 2C 32 35 3A 26 54 58 2C 22 C8 49 54 20 |,11,25:&TX,".IT |
00000C90: D2 C5 D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 2E |...... TO GO ON.|
00000CA0: 22 00 AD 14 D2 0F 26 53 50 2C 32 35 35 00 B3 14 |".....&SP,255...|
00000CB0: 24 13 8E 00 C8 14 88 13 8F 20 20 44 49 53 50 4C |$........ DISPL|
00000CC0: 41 59 20 53 43 4F 52 45 00 F7 14 92 13 3A 26 53 |AY SCORE.....:&S|
00000CD0: 59 2C 31 3A 26 43 4F 2C 31 36 30 3A 26 44 45 2C |Y,1:&CO,160:&DE,|
00000CE0: 31 2C 31 38 2C 34 30 2C 32 30 3A 26 46 49 3A 26 |1,18,40,20:&FI:&|
00000CF0: 50 43 2C 31 2C 31 39 00 24 15 93 13 26 54 58 2C |PC,1,19.$...&TX,|
00000D00: 22 C7 4F 41 4C 20 3D 20 36 20 52 49 47 48 54 20 |".OAL = 6 RIGHT |
00000D10: 49 4E 20 41 20 52 4F 57 2E 20 20 D9 4F 55 20 48 |IN A ROW. .OU H|
00000D20: 41 56 45 22 00 45 15 9C 13 3A 26 53 59 2C 32 3A |AVE".E...:&SY,2:|
00000D30: 26 49 4E 3A 26 50 43 2C 33 37 2C 31 38 3A 26 54 |&IN:&PC,37,18:&T|
00000D40: 58 2C 22 20 22 00 57 15 9D 13 52 52 24 B2 C7 20 |X," ".W...RR$.. |
00000D50: 28 52 52 AA 34 38 29 00 6E 15 A6 13 3A 26 50 43 |(RR.48).n...:&PC|
00000D60: 2C 33 37 2C 31 39 3A 26 54 58 2C 52 52 24 00 7D |,37,19:&TX,RR$.}|
00000D70: 15 B0 13 3A 26 4E 4F 3A 26 53 59 2C 31 00 83 15 |...:&NO:&SY,1...|
00000D80: E2 13 8E 00 C1 15 70 17 26 52 45 3A 26 43 4F 2C |......p.&RE:&CO,|
00000D90: 32 31 31 3A 26 44 45 2C 31 2C 31 2C 34 30 2C 32 |211:&DE,1,1,40,2|
00000DA0: 35 3A 26 46 49 3A 26 53 50 2C 32 35 35 3A 81 4A |5:&FI:&SP,255:.J|
00000DB0: B2 31 A4 32 35 A9 32 3A 81 49 B2 31 A4 33 39 A9 |.1.25.2:.I.1.39.|
00000DC0: 32 00 DF 15 71 17 26 53 59 2C 32 3A 26 50 43 2C |2...q.&SY,2:&PC,|
00000DD0: 49 2C 4A 3A 26 54 58 2C 22 DB 22 3A 82 3A 82 00 |I,J:&TX,".":.:..|
00000DE0: 13 16 72 17 81 49 B2 33 39 A4 31 A9 AB 32 3A 81 |..r..I.39.1..2:.|
00000DF0: 4A B2 32 35 A4 31 A9 AB 36 3A 26 43 4F 2C 31 33 |J.25.1..6:&CO,13|
00000E00: 34 3A 26 44 45 2C 31 2C 31 2C 34 30 2C 32 35 3A |4:&DE,1,1,40,25:|
00000E10: 26 46 49 00 2B 16 73 17 26 50 43 2C 49 2C 4A 3A |&FI.+.s.&PC,I,J:|
00000E20: 26 54 58 2C 22 20 22 3A 82 3A 82 00 65 16 74 17 |&TX," ":.:..e.t.|
00000E30: 26 43 4F 2C 32 35 31 3A 26 44 45 2C 31 2C 31 2C |&CO,251:&DE,1,1,|
00000E40: 34 30 2C 32 35 3A 26 46 49 3A 81 4A B2 31 A4 32 |40,25:&FI:.J.1.2|
00000E50: 35 A9 32 3A 81 49 B2 31 A4 33 38 A9 36 3A 26 50 |5.2:.I.1.38.6:&P|
00000E60: 43 2C 49 2C 4A 00 93 16 76 17 26 54 58 2C 22 A9 |C,I,J...v.&TX,".|
00000E70: DF 22 3A 82 3A 82 3A 20 81 20 4B 20 B2 20 35 20 |.":.:.: . K . 5 |
00000E80: A4 20 31 30 3A 43 43 20 B2 20 31 31 AA 28 31 36 |. 10:CC . 11.(16|
00000E90: AC 4B 29 00 D0 16 78 17 26 20 43 4F 2C 43 43 3A |.K)...x.& CO,CC:|
00000EA0: 26 44 45 2C 31 2C 31 2C 34 30 2C 32 35 3A 26 46 |&DE,1,1,40,25:&F|
00000EB0: 49 3A 81 4C B2 31 33 A4 36 A9 AB 31 3A 43 43 B2 |I:.L.13.6..1:CC.|
00000EC0: 31 32 AA 28 31 36 AC 4C 29 3A 26 43 4F 2C 43 43 |12.(16.L):&CO,CC|
00000ED0: 00 07 17 7A 17 26 44 45 2C 31 34 2C 31 34 2C 32 |...z.&DE,14,14,2|
00000EE0: 35 2C 31 35 3A 26 46 49 3A 26 4E 4F 3A 26 50 43 |5,15:&FI:&NO:&PC|
00000EF0: 2C 31 34 2C 31 34 3A 26 54 58 2C 22 C8 4F 4F 50 |,14,14:&TX,".OOP|
00000F00: 41 21 22 3A 82 3A 82 00 17 17 82 17 81 20 49 20 |A!":.:....... I |
00000F10: B2 20 31 20 A4 20 32 00 59 17 84 17 26 54 4E 2C |. 1 . 2.Y...&TN,|
00000F20: 31 38 30 2C 35 3A 26 54 4E 2C 31 37 32 2C 35 3A |180,5:&TN,172,5:|
00000F30: 26 54 4E 2C 31 36 34 2C 35 3A 26 54 4E 2C 31 35 |&TN,164,5:&TN,15|
00000F40: 32 2C 31 30 3A 26 54 4E 2C 31 36 34 2C 35 3A 26 |2,10:&TN,164,5:&|
00000F50: 54 4E 2C 31 35 32 2C 34 30 00 5F 17 86 17 82 00 |TN,152,40._.....|
00000F60: 8D 17 87 17 81 49 B2 33 39 A4 31 A9 AB 32 3A 81 |.....I.39.1..2:.|
00000F70: 4A B2 32 34 A4 31 A9 AB 31 3A 26 50 43 2C 49 2C |J.24.1..1:&PC,I,|
00000F80: 4A 3A 26 54 58 2C 22 20 22 3A 82 3A 82 00 C6 17 |J:&TX," ":.:....|
00000F90: 89 17 81 49 B2 31 A4 31 32 3A 43 43 B2 36 AA 28 |...I.1.12:CC.6.(|
00000FA0: 31 36 AC 49 29 3A 26 43 4F 2C 43 43 3A 26 44 45 |16.I):&CO,CC:&DE|
00000FB0: 2C 31 31 2C 31 34 2C 33 30 2C 31 35 3A 26 46 49 |,11,14,30,15:&FI|
00000FC0: 3A 26 53 59 2C 32 00 F5 17 8A 17 26 50 43 2C 32 |:&SY,2.....&PC,2|
00000FD0: 31 AB C3 28 4E 31 24 29 2C 31 34 3A 20 26 54 58 |1..(N1$),14: &TX|
00000FE0: 2C 4E 31 24 AA 22 21 22 3A 81 4B B2 31 A4 32 30 |,N1$."!":.K.1.20|
00000FF0: 30 3A 82 3A 82 00 33 18 8E 17 26 52 45 3A 81 49 |0:.:..3...&RE:.I|
00001000: B2 31 A4 39 3A 26 43 4F 2C 49 AA 33 3A 26 44 45 |.1.9:&CO,I.3:&DE|
00001010: 2C 49 2C 49 2C 34 31 AB 49 2C 32 36 AB 49 3A 26 |,I,I,41.I,26.I:&|
00001020: 46 49 3A 82 3A 26 53 59 2C 32 3A 26 50 43 2C 39 |FI:.:&SY,2:&PC,9|
00001030: 2C 31 33 00 6C 18 A2 17 26 54 58 2C 22 D0 41 52 |,13.l...&TX,".AR|
00001040: 41 47 52 41 50 48 49 4E 47 22 3A 8D 36 32 30 30 |AGRAPHING":.6200|
00001050: 3A 9E 31 39 33 34 31 3A 93 22 53 55 42 50 52 4F |:.19341:."SUBPRO|
00001060: 47 52 41 4D 20 58 58 2F 38 22 2C 38 00 9C 18 38 |GRAM XX/8",8...8|
00001070: 18 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 |..15:.15,8,15,"S|
00001080: 30 3A 22 AA 4E 46 24 3A A0 31 35 3A 26 42 53 2C |0:".NF$:.15:&BS,|
00001090: 4E 46 24 2C 38 36 38 2C 36 33 3A 8E 00 00 00 34 |NF$,868,63:....4|
000010A0: 22 00 69 15 94 07 4C 24 28 34 29 B2 22 20 20 20 |".i...L$(4)." |
000010B0: 20 20 20 20 20 20 22 00 6F 15 C6 07 8E 00 7D 15 | ".o.....}.|
000010C0: DA 07 4C 24 28 31 29 B2 22 4F 22 00 90 15 E4 07 |..L$(1)."O".....|
000010D0: 4C 24 28 32 29 B2 22 D0 41 52 54 20 32 22 00 A7 |L$(2).".ART 2"..|
000010E0: 15 EE 07 4C 24 28 33 29 B2 22 D3 45 4E 54 45 4E |...L$(3).".ENTEN|
000010F0: 43 45 20 35 22 00 BB 15 F8 07 4C 24 28 34 29 B2 |CE 5".....L$(4).|
00001100: 22 20 20 20 20 20 20 20 22 00 C1 15 2A 08 8E 00 |" "...*...|
00001110: D3 15 B8 0B 8F 20 20 50 41 55 53 45 20 53 55 42 |..... PAUSE SUB|
00001120: 53 00 D9 15 C2 0B 8E 00 DF 15 CC 0B 8E 00 FE 15 |S...............|
00001130: A0 0F 8F 20 20 49 4E 53 54 52 55 43 54 49 4F 4E |... INSTRUCTION|
00001140: 53 20 41 4E 44 20 42 4C 4F 41 44 53 00 0A 16 AA |S AND BLOADS....|
00001150: 0F 26 53 50 2C 32 32 30 00 38 16 B6 0F 26 53 59 |.&SP,220.8...&SY|
00001160: 2C 31 3A 26 43 4F 2C 31 36 3A 26 44 45 2C 31 2C |,1:&CO,16:&DE,1,|
00001170: 32 31 2C 34 30 2C 32 33 3A 26 46 49 3A 20 26 50 |21,40,23:&FI: &P|
00001180: 43 2C 31 2C 32 31 00 64 16 BA 0F 26 54 58 2C 22 |C,1,21.d...&TX,"|
00001190: D4 59 50 45 20 20 4F 20 20 49 46 20 54 48 45 20 |.YPE O IF THE |
000011A0: 53 45 4E 54 45 4E 43 45 20 52 45 46 45 52 52 45 |SENTENCE REFERRE|
000011B0: 44 22 00 96 16 BB 0F 26 50 43 2C 31 30 2C 32 32 |D".....&PC,10,22|
000011C0: 3A 26 54 58 2C 22 54 4F 20 41 42 4F 56 45 20 53 |:&TX,"TO ABOVE S|
000011D0: 54 41 54 45 53 20 41 4E 20 28 4F 29 50 49 4E 49 |TATES AN (O)PINI|
000011E0: 4F 4E 2E 22 00 C9 16 BC 0F 26 50 43 2C 31 2C 32 |ON.".....&PC,1,2|
000011F0: 33 3A 26 54 58 2C 22 D4 59 50 45 20 20 46 20 20 |3:&TX,".YPE F |
00001200: 49 46 20 49 54 20 53 54 41 54 45 53 20 41 20 28 |IF IT STATES A (|
00001210: 46 29 41 43 54 2E 22 00 0D 17 BD 0F 26 43 4F 2C |F)ACT.".....&CO,|
00001220: 31 36 30 3A 26 44 45 2C 31 2C 32 35 2C 34 30 2C |160:&DE,1,25,40,|
00001230: 32 35 3A 26 46 49 3A 26 50 43 2C 31 31 2C 32 35 |25:&FI:&PC,11,25|
00001240: 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 D4 D5 D2 CE |:&TX,".IT ......|
00001250: 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 19 17 D2 0F | TO GO ON.".....|
00001260: 26 53 50 2C 32 35 35 00 1F 17 24 13 8E 00 34 17 |&SP,255...$...4.|
00001270: 88 13 8F 20 20 44 49 53 50 4C 41 59 20 53 43 4F |... DISPLAY SCO|
00001280: 52 45 00 62 17 92 13 26 53 59 2C 31 3A 26 43 4F |RE.b...&SY,1:&CO|
00001290: 2C 31 36 30 3A 26 44 45 2C 31 2C 31 39 2C 34 30 |,160:&DE,1,19,40|
000012A0: 2C 32 30 3A 26 46 49 3A 26 50 43 2C 31 2C 31 39 |,20:&FI:&PC,1,19|
000012B0: 00 8F 17 93 13 26 54 58 2C 22 C7 4F 41 4C 20 3D |.....&TX,".OAL =|
000012C0: 20 36 20 52 49 47 48 54 20 49 4E 20 41 20 52 4F | 6 RIGHT IN A RO|
000012D0: 57 2E 20 20 D9 4F 55 20 48 41 56 45 22 00 A2 17 |W. .OU HAVE"...|
000012E0: 9C 13 26 20 53 59 2C 32 3A 26 20 43 4C 2C 34 30 |..& SY,2:& CL,40|
000012F0: 00 BE 17 9D 13 52 52 24 20 B2 20 20 C7 20 28 52 |.....RR$ . . (R|
00001300: 52 AA 34 38 29 3A 20 26 20 49 4E 56 00 E6 17 A6 |R.48): & INV....|
00001310: 13 81 20 4A 4A 20 B2 20 30 20 A4 20 52 52 3A 20 |.. JJ . 0 . RR: |
00001320: 26 50 43 2C 33 37 2C 31 39 3A 26 54 58 2C 52 52 |&PC,37,19:&TX,RR|
00001330: 24 3A 20 82 00 05 18 B0 13 26 20 4E 4F 3A 20 26 |$: ......& NO: &|
00001340: 20 43 4C 2C 30 3A 20 26 20 44 49 2C 30 3A 26 53 | CL,0: & DI,0:&S|
00001350: 59 2C 31 00 0B 18 E2 13 8E 00 00 00 |Y,1......... |
../....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,7:.870,0......51,B(55):.
52,B(56)......19328...... SUBPROGRAM X
X/8.D.".SP .7 :NS .11:RR% . 6:NQ . 2.V.(
.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...X.:....
.. RN . 0 . J . J . 1: . 150.Y...J . .
(NS . . (1) . 1): . J . J1 . 140.....J1
. J: . J . . NS . RN . 1.;. .. J . 101
0,1110,1210,1310,1410,1510,1610,1710,181
0,1910,2010.N.... J .. 1 . 245.....&CO,5
:&DE,1,1,40,15:&FI:&CO,69:&DE,2,2,39,14:
&FI. ...&CO,27:&DE,2,2,39,14:&FI.T...&SY
,2:&PC,3,6:&TX,L$(2):&PC,3,9:&TX,L$(3):&
SY,1.....&CO,160:&DE,1,16,10,17:&FI:&NO.
....&PC,2,16:&SY,2.....L$ . "O".-...& EN
S,L$,1,T%,AL%.?.... AL%.0 . 260.Z...&SY,
1:L$ . H (L$,AL%).S.... F (L$) . 3 .
272......((L$.."O").(L$.."F")).:&PC,2,16
:&SY,2:&TX," ":.258...... 280.....&RE:&
SY,2:&PC,9,5:&TX,"BYE":.19341:."HELLOHI1
",8...... L$ . L$(1) . AX$ . "YES":.282.
%...AX$ . "NO": . 290.T...&SY,2:&PC,2,16
:&TX," ":&CO,16:&DE,1,16,40,17:&FI:
&PC,16,16:&TX,"GOOD"...... I . 160 . 48
. . 8: & TN,I,1: ......&PC,2,16:&TX,"
":&
SY,1: . 300...".. I . 1 . 5: & TN,255,10
: ..?.#.&SP,220: &SY,1:&CO,16:&DE,12,15,
40,15:&FI:&NO:&PC,12,15.G.%.&TX,"THE COR
RECT ANSWER IS: ".L$(1).{.&.. 198,0:&SP,
255...'.. R$:. R$."".295...(.. F(R$).. 1
3 . 295...).&PC,4,15:&TX,"
"...*.&SY,2:&PC
,1,16:&TX," ":&SY,1.(.+.&CO,5:&DE
,12,15,40,15:&FI.7.,.. SCORING.J.1.. (A
X$ . "YES") . R . R . 1:RR . RR . 1:WR .
0. .6.. (AX$ . . "YES") . W . W . 1:WR
. WR . 1:RR . 0...@.. 5010...J.. RR .
. RR% . A2 . 7:.870,A2:.892,W:.907,R:.60
00.$.T.. (WR .. 5) . (W .. 18) . A2 . 5:
.870,A2:.19341:."HELLOHI1",8.J.Y..I.0.12
:&PC,1,2.I:&TX,"
":..T.R.. 120...... DATA
FOR QUESTIONS.....L$(1) . "O".....L$(2)
. "PART 1".J...L$(3)."SENTENCE 1".....L
$(4)." "...B.....V.L$(1)."F"...`.
L$(2) . "PART 1"...A.L$(3)."SENTENCE 2".
3.O.L$(4)." ".9.....G...L$(1)."F".
\.D.L$(2) . "PART 1".S.E.L$(3)."SENTENCE
3"...N.L$(4) . " "..........
.L$(1)."O"...(.L$(2) . "PART 1".R.).L$(3
)."SENTENCE 4 "...2.L$(4) . "
"...N.......L$(1)."F".....L$(2)."PAR
T 1".+...L$(3)."SENTENCE 5".A. .L$(4)."
".G.R...W...L$(1) . "O".J...L$(2
)."PART 1".....L$(3)."SENTENCE 6".....L$
(4)." "...6.....J.L$(1)."O"...T.L$
(2)."PART 2".S.^.L$(3)."SENTENCE 1"...H.
L$(4)." "...........L$(1)."F".....L
$(2)."PART 2".$.B.L$(3)."SENTENCE 2".9.L
.L$(4)." ".?.....M...L$(1)."O".`.
..L$(2)."PART 2".W.&.L$(3)."SENTENCE 3".
..0.L$(4)." "...K... .V.L$(1)."F"
.....L$(2)."PART 2".J...L$(3)."SENTENCE
4".....L$(4)." "...F.....Z.L$(1)
."O".....L$(2)."PART 2".....L$(3)."SENTE
NCE 5".2...L$(4)." ".8.*...J....
PAUSE SUBS.P.B...V.L...U. .. INSTRUCTIO
NS AND BLOADS.....&SP,220.....&SY,1:&CO,
16:&DE,1,21,40,23:&FI.C...&CO,160:&DE,6,
21,6,23:&FI.....&PC,1,21:&TX,"TYPE O IF
THE SENTENCE IN STORY 3".,...&PC,7,22:&T
X,"SHOWN ABOVE STATES AN (O)PINION.".]..
.&PC,1,23:&TX,"TYPE F IF IT STATES A (F)
ACT.".....&CO,160:&DE,1,25,40,25:&FI:&PC
,11,25:&TX,"HIT RETURN TO GO ON."...R.&S
P,255...$...H.... DISPLAY SCORE.....:&S
Y,1:&CO,160:&DE,1,18,40,20:&FI:&PC,1,19.
$...&TX,"GOAL = 6 RIGHT IN A ROW. YOU H
AVE".E...:&SY,2:&IN:&PC,37,18:&TX," ".W.
..RR$.G (RR.48).N...:&PC,37,19:&TX,RR$.}
...:&NO:&SY,1.......A.P.&RE:&CO,211:&DE,
1,1,40,25:&FI:&SP,255:.J.1.25.2:.I.1.39.
2...Q.&SY,2:&PC,I,J:&TX,".":.:....R..I.3
9.1..2:.J.25.1..6:&CO,134:&DE,1,1,40,25:
&FI.+.S.&PC,I,J:&TX," ":.:..E.T.&CO,251:
&DE,1,1,40,25:&FI:.J.1.25.2:.I.1.38.6:&P
C,I,J...V.&TX,"..":.:.: . K . 5 . 10:CC
. 11.(16.K).P.X.& CO,CC:&DE,1,1,40,25:&F
I:.L.13.6..1:CC.12.(16.L):&CO,CC...Z.&DE
,14,14,25,15:&FI:&NO:&PC,14,14:&TX,"HOOP
A!":.:....... I . 1 . 2.Y...&TN,180,5:&T
N,172,5:&TN,164,5:&TN,152,10:&TN,164,5:&
TN,152,40._..........I.39.1..2:.J.24.1..
1:&PC,I,J:&TX," ":.:..F....I.1.12:CC.6.(
16.I):&CO,CC:&DE,11,14,30,15:&FI:&SY,2..
...&PC,21.C(N1$),14: &TX,N1$."!":.K.1.20
0:.:..3...&RE:.I.1.9:&CO,I.3:&DE,I,I,41.
I,26.I:&FI:.:&SY,2:&PC,9,13.L...&TX,"PAR
AGRAPHING":.6200:.19341:."SUBPROGRAM XX/
8",8...8. 15:.15,8,15,"S0:".NF$: 15:&BS,
NF$,868,63:....4".I...L$(4)." ".
O.F...}.Z.L$(1)."O".....L$(2)."PART 2"..
...L$(3)."SENTENCE 5".....L$(4)."
".A.*...S.... PAUSE SUBS.Y.B.....L.....
.. INSTRUCTIONS AND BLOADS.....&SP,220
.8...&SY,1:&CO,16:&DE,1,21,40,23:&FI: &P
C,1,21.D...&TX,"TYPE O IF THE SENTENCE
REFERRED".....&PC,10,22:&TX,"TO ABOVE S
TATES AN (O)PINION.".I...&PC,1,23:&TX,"T
YPE F IF IT STATES A (F)ACT.".....&CO,
160:&DE,1,25,40,25:&FI:&PC,11,25:&TX,"HI
T RETURN TO GO ON."...R.&SP,255...$...4.
... DISPLAY SCORE.B...&SY,1:&CO,160:&DE
,1,19,40,20:&FI:&PC,1,19.....&TX,"GOAL =
6 RIGHT IN A ROW. YOU HAVE".....& SY,2
:& CL,40.....RR$ . G (RR.48): & INV....
.. JJ . 0 . RR: &PC,37,19:&TX,RR$: .....
.& NO: & CL,0: & DI,0:&SY,1.........
> CLICK IMAGE PREVIEW FOR FULL MODAL