SUBPROGRAM XX/2
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/2
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
31725f34f96d00f2e0976a6cedd3acc45052c9b6455e4e9ac665cc17cbbcf60a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/2 | PRG | DuncanTwain | 21 | 6 | 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: 32 3A 97 38 37 30 2C 30 00 80 08 0B 00 97 35 31 |2:.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 31 00 C4 08 22 00 53 50 20 B2 20 32 3A 4E |X/1...".SP . 2:N|
000000B0: 53 20 B2 20 35 3A 52 52 25 20 B2 20 36 3A 4E 51 |S . 5:RR% . 6: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 B9 09 65 00 26 43 4F 2C 35 3A 26 |5010...e.&CO,5:&|
00000190: 44 45 2C 32 2C 32 2C 33 39 2C 31 35 3A 26 46 49 |DE,2,2,39,15:&FI|
000001A0: 3A 26 43 4F 2C 36 39 3A 26 44 45 2C 33 2C 33 2C |:&CO,69:&DE,3,3,|
000001B0: 33 38 2C 31 34 3A 26 46 49 00 D6 09 66 00 26 43 |38,14:&FI...f.&C|
000001C0: 4F 2C 32 37 3A 26 44 45 2C 33 2C 33 2C 33 38 2C |O,27:&DE,3,3,38,|
000001D0: 31 34 3A 26 46 49 00 DC 09 78 00 3A 00 FC 09 82 |14:&FI...x.:....|
000001E0: 00 8B 20 52 4E 20 B2 20 30 20 A7 20 4A 20 B2 20 |.. RN . 0 . J . |
000001F0: 4A 20 AA 20 31 3A 20 89 20 31 35 30 00 29 0A 8C |J . 1: . 150.)..|
00000200: 00 4A 20 B2 20 20 B5 20 28 4E 53 20 AC 20 20 BB |.J . . (NS . .|
00000210: 20 28 31 29 20 AA 20 31 29 3A 20 8B 20 4A 20 B2 | (1) . 1): . J .|
00000220: 20 4A 31 20 A7 20 31 34 30 00 4A 0A 96 00 4A 31 | J1 . 140.J...J1|
00000230: 20 B2 20 4A 3A 20 8B 20 4A 20 B1 20 20 B2 20 4E | . J: . J . . N|
00000240: 53 20 A7 20 52 4E 20 B2 20 31 00 6D 0A A0 00 91 |S . RN . 1.m....|
00000250: 20 4A 20 8D 20 31 30 31 30 2C 31 31 31 30 2C 31 | J . 1010,1110,1|
00000260: 32 31 30 2C 31 33 31 30 2C 31 34 31 30 00 9C 0A |210,1310,1410...|
00000270: D7 00 26 53 59 2C 31 3A 26 50 43 2C 34 2C 35 3A |..&SY,1:&PC,4,5:|
00000280: 26 54 58 2C 4C 24 28 34 29 3A 26 50 43 2C 34 2C |&TX,L$(4):&PC,4,|
00000290: 36 3A 26 54 58 2C 4C 24 28 34 31 29 00 DA 0A DC |6:&TX,L$(41)....|
000002A0: 00 26 50 43 2C 36 2C 38 3A 26 54 58 2C 4C 24 28 |.&PC,6,8:&TX,L$(|
000002B0: 35 29 3A 26 50 43 2C 36 2C 31 30 3A 26 54 58 2C |5):&PC,6,10:&TX,|
000002C0: 4C 24 28 35 31 29 3A 26 50 43 2C 36 2C 31 31 3A |L$(51):&PC,6,11:|
000002D0: 26 54 58 2C 4C 24 28 35 32 29 00 EA 0A FA 00 81 |&TX,L$(52)......|
000002E0: 20 4B 20 B2 20 31 20 A4 20 32 00 19 0B FB 00 26 | K . 1 . 2.....&|
000002F0: 53 59 2C 32 3A 26 50 43 2C 33 35 2C 38 3A 26 54 |SY,2:&PC,35,8:&T|
00000300: 58 2C 22 20 20 22 3A 26 50 43 2C 33 35 2C 31 30 |X," ":&PC,35,10|
00000310: 3A 26 54 58 2C 22 20 20 22 00 3B 0B FC 00 8B 20 |:&TX," ".;.... |
00000320: 4B 20 B2 20 31 20 A7 3A 26 50 43 2C 33 35 2C 38 |K . 1 .:&PC,35,8|
00000330: 3A 26 53 59 2C 32 3A 89 32 35 39 00 59 0B 02 01 |:&SY,2:.259.Y...|
00000340: 8B 20 4B 20 B2 20 32 20 A7 3A 26 50 43 2C 33 35 |. K . 2 .:&PC,35|
00000350: 2C 31 30 3A 26 53 59 2C 32 00 66 0B 03 01 4C 24 |,10:&SY,2.f...L$|
00000360: 20 B2 20 22 03 22 00 97 0B 04 01 26 43 4F 2C 31 | . ".".....&CO,1|
00000370: 37 31 3A 26 44 45 2C 33 35 2C 38 2C 33 38 2C 31 |71:&DE,35,8,38,1|
00000380: 32 3A 26 46 49 3A 26 20 45 4E 53 2C 4C 24 2C 31 |2:&FI:& ENS,L$,1|
00000390: 2C 54 25 2C 41 4C 25 00 AD 0B 05 01 8B 20 41 4C |,T%,AL%...... AL|
000003A0: 25 20 B2 20 30 20 A7 20 89 20 32 36 30 00 C1 0B |% . 0 . . 260...|
000003B0: 06 01 4C 24 B2 20 20 C8 20 28 4C 24 2C 41 4C 25 |..L$. . (L$,AL%|
000003C0: 29 00 D9 0B 08 01 8B 20 20 C6 28 4C 24 29 20 B2 |)...... .(L$) .|
000003D0: 20 33 20 20 A7 20 32 37 32 00 F8 0B 09 01 8B 28 | 3 . 272......(|
000003E0: 28 4C 24 B3 B1 22 45 22 29 AF 28 4C 24 B3 B1 22 |(L$.."E").(L$.."|
000003F0: 43 22 29 29 A7 32 35 31 00 0A 0C 0C 01 8B 20 4B |C")).251...... K|
00000400: 20 B2 20 31 20 89 20 32 38 30 00 14 0C 0D 01 89 | . 1 . 280......|
00000410: 20 32 38 36 00 49 0C 10 01 26 52 45 3A 26 53 59 | 286.I...&RE:&SY|
00000420: 2C 32 3A 26 50 43 2C 39 2C 35 3A 26 54 58 2C 22 |,2:&PC,9,5:&TX,"|
00000430: C2 59 45 22 3A 9E 31 39 33 34 31 3A 93 22 48 45 |.YE":.19341:."HE|
00000440: 4C 4C 4F 48 49 31 22 2C 38 00 6C 0C 18 01 8B 20 |LLOHI1",8.l.... |
00000450: 4C 24 B2 4C 24 28 31 29 20 20 A7 20 41 58 24 20 |L$.L$(1) . AX$ |
00000460: B2 20 22 59 45 53 22 3A 89 32 38 32 00 82 0C 19 |. "YES":.282....|
00000470: 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 89 20 32 |.AX$ . "NO": . 2|
00000480: 39 30 00 BC 0C 1A 01 26 20 53 59 2C 32 3A 26 43 |90.....& SY,2:&C|
00000490: 4F 2C 31 36 3A 26 44 45 2C 31 2C 31 36 2C 33 36 |O,16:&DE,1,16,36|
000004A0: 2C 31 37 3A 26 46 49 3A 26 50 43 2C 31 36 2C 31 |,17:&FI:&PC,16,1|
000004B0: 36 3A 26 54 58 2C 22 C7 4F 4F 44 22 00 E3 0C 1B |6:&TX,".OOD"....|
000004C0: 01 81 20 49 20 B2 20 31 36 30 20 A4 20 34 38 20 |.. I . 160 . 48 |
000004D0: A9 20 20 AB 20 38 3A 20 26 20 54 4E 2C 49 2C 31 |. . 8: & TN,I,1|
000004E0: 3A 20 82 00 0B 0D 1D 01 26 50 43 2C 31 36 2C 31 |: ......&PC,16,1|
000004F0: 36 3A 26 54 58 2C 22 20 20 20 20 20 20 22 3A 26 |6:&TX," ":&|
00000500: 53 59 2C 31 3A 20 89 20 33 30 30 00 2D 0D 1E 01 |SY,1: . 300.-...|
00000510: 8B 20 4C 24 B2 4C 24 28 32 29 20 A7 20 41 58 24 |. L$.L$(2) . AX$|
00000520: 20 B2 20 22 59 45 53 22 3A 89 32 38 32 00 43 0D | . "YES":.282.C.|
00000530: 1F 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 89 20 |..AX$ . "NO": . |
00000540: 32 39 30 00 63 0D 22 01 81 20 49 20 B2 20 31 20 |290.c.".. I . 1 |
00000550: A4 20 35 3A 20 26 20 54 4E 2C 32 35 35 2C 31 30 |. 5: & TN,255,10|
00000560: 3A 20 82 00 9D 0D 24 01 26 53 50 2C 32 32 30 3A |: ....$.&SP,220:|
00000570: 20 26 53 59 2C 31 3A 26 43 4F 2C 31 36 3A 26 44 | &SY,1:&CO,16:&D|
00000580: 45 2C 31 2C 31 34 2C 34 30 2C 31 34 3A 26 46 49 |E,1,14,40,14:&FI|
00000590: 3A 26 4E 4F 3A 26 50 43 2C 34 2C 31 34 00 BF 0D |:&NO:&PC,4,14...|
000005A0: 25 01 26 54 58 2C 22 D4 48 45 20 43 4F 52 52 45 |%.&TX,".HE CORRE|
000005B0: 43 54 20 41 4E 53 57 45 52 20 49 53 3A 20 22 00 |CT ANSWER IS: ".|
000005C0: E9 0D 26 01 8B 20 4B 20 B2 20 31 20 A7 3A 20 26 |..&.. K . 1 .: &|
000005D0: 54 58 2C 4C 24 28 31 29 20 3A 97 20 31 39 38 2C |TX,L$(1) :. 198,|
000005E0: 30 3A 26 53 50 2C 32 35 35 00 13 0E 27 01 8B 20 |0:&SP,255...'.. |
000005F0: 4B 20 B2 20 32 20 A7 3A 20 26 54 58 2C 4C 24 28 |K . 2 .: &TX,L$(|
00000600: 32 29 20 3A 97 20 31 39 38 2C 30 3A 26 53 50 2C |2) :. 198,0:&SP,|
00000610: 32 35 35 00 28 0E 28 01 A1 20 52 24 3A 8B 20 52 |255.(.(.. R$:. R|
00000620: 24 B2 22 22 A7 32 39 36 00 71 0E 29 01 8B 20 C6 |$."".296.q.).. .|
00000630: 28 52 24 29 B2 31 33 20 A7 20 3A 26 50 43 2C 32 |(R$).13 . :&PC,2|
00000640: 2C 31 34 3A 26 54 58 2C 22 20 20 20 20 20 20 20 |,14:&TX," |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 22 00 A8 0E 2A 01 26 43 4F 2C 35 3A 26 44 45 2C |"...*.&CO,5:&DE,|
00000680: 32 2C 31 34 2C 33 39 2C 31 34 3A 26 46 49 3A 26 |2,14,39,14:&FI:&|
00000690: 43 4F 2C 36 39 3A 26 44 45 2C 33 2C 31 34 2C 33 |CO,69:&DE,3,14,3|
000006A0: 38 2C 31 34 3A 26 46 49 00 C6 0E 2B 01 26 43 4F |8,14:&FI...+.&CO|
000006B0: 2C 32 37 3A 26 44 45 2C 33 2C 31 34 2C 33 38 2C |,27:&DE,3,14,38,|
000006C0: 31 34 3A 26 46 49 00 D5 0E 2C 01 8F 20 20 53 43 |14:&FI...,.. SC|
000006D0: 4F 52 49 4E 47 00 08 0F 31 01 8B 20 28 41 58 24 |ORING...1.. (AX$|
000006E0: 20 B2 20 22 59 45 53 22 29 20 A7 20 52 20 B2 20 | . "YES") . R . |
000006F0: 52 20 AA 20 31 3A 52 52 20 B2 20 52 52 20 AA 20 |R . 1:RR . RR . |
00000700: 31 3A 57 52 20 B2 20 30 00 3E 0F 36 01 8B 20 28 |1:WR . 0.>.6.. (|
00000710: 41 58 24 20 B3 20 20 B1 20 22 59 45 53 22 29 20 |AX$ . . "YES") |
00000720: A7 20 57 20 B2 20 57 20 AA 20 31 3A 57 52 20 B2 |. W . W . 1:WR .|
00000730: 20 57 52 20 AA 20 31 3A 52 52 20 B2 20 30 00 49 | WR . 1:RR . 0.I|
00000740: 0F 40 01 8D 20 35 30 31 30 00 7D 0F 4A 01 8B 20 |.@.. 5010.}.J.. |
00000750: 52 52 B1 B2 20 52 52 25 20 A7 20 41 32 20 B2 20 |RR.. RR% . A2 . |
00000760: 37 3A 97 38 37 30 2C 41 32 3A 97 38 38 37 2C 57 |7:.870,A2:.887,W|
00000770: 3A 97 39 30 32 2C 52 3A 89 36 30 30 30 00 BF 0F |:.902,R:.6000...|
00000780: 54 01 8B 20 28 57 52 20 B1 B2 20 35 29 20 B0 20 |T.. (WR .. 5) . |
00000790: 28 57 20 B1 B2 20 31 38 29 20 A7 20 41 32 20 B2 |(W .. 18) . A2 .|
000007A0: 20 35 3A 97 38 37 30 2C 41 32 3A 9E 31 39 33 34 | 5:.870,A2:.1934|
000007B0: 31 3A 93 22 48 45 4C 4C 4F 48 49 31 22 2C 38 00 |1:."HELLOHI1",8.|
000007C0: C7 0F 56 01 82 20 4B 00 0D 10 59 01 81 49 B2 30 |..V.. K...Y..I.0|
000007D0: A4 31 30 3A 26 50 43 2C 31 2C 34 AA 49 3A 26 54 |.10:&PC,1,4.I:&T|
000007E0: 58 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |X," |
000007F0: 20 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 22 3A 82 00 17 10 | ":....|
00000810: 72 01 89 20 31 32 30 00 31 10 E8 03 8F 20 20 44 |r.. 120.1.... D|
00000820: 41 54 41 20 46 4F 52 20 51 55 45 53 54 49 4F 4E |ATA FOR QUESTION|
00000830: 53 00 4D 10 F2 03 4C 24 28 31 29 20 B2 20 22 43 |S.M...L$(1) . "C|
00000840: 22 3A 4C 24 28 32 29 20 B2 20 22 45 22 00 76 10 |":L$(2) . "E".v.|
00000850: FC 03 4C 24 28 34 29 20 B2 20 22 C2 45 43 41 55 |..L$(4) . ".ECAU|
00000860: 53 45 20 49 54 20 53 4E 4F 57 45 44 20 41 4C 4C |SE IT SNOWED ALL|
00000870: 20 44 41 59 20 22 00 A7 10 01 04 4C 24 28 34 31 | DAY ".....L$(41|
00000880: 29 B2 22 D3 41 54 55 52 44 41 59 2C 20 57 45 20 |).".ATURDAY, WE |
00000890: 43 4F 55 4C 44 4E 27 54 20 47 4F 20 49 4E 54 4F |COULDN'T GO INTO|
000008A0: 20 54 4F 57 4E 2E 22 00 D3 10 06 04 4C 24 28 35 | TOWN.".....L$(5|
000008B0: 29 20 B2 20 22 31 2D C9 54 20 53 4E 4F 57 45 44 |) . "1-.T SNOWED|
000008C0: 20 41 4C 4C 20 44 41 59 20 D3 41 54 55 52 44 41 | ALL DAY .ATURDA|
000008D0: 59 2E 22 00 FC 10 0B 04 4C 24 28 35 31 29 B2 22 |Y.".....L$(51)."|
000008E0: 32 2D D7 45 20 43 4F 55 4C 44 4E 27 54 20 47 4F |2-.E COULDN'T GO|
000008F0: 20 49 4E 54 4F 20 54 4F 57 4E 2E 22 00 11 11 10 | INTO TOWN."....|
00000900: 04 4C 24 28 35 32 29 B2 22 20 20 20 20 20 20 20 |.L$(52)." |
00000910: 22 00 17 11 42 04 8E 00 33 11 56 04 4C 24 28 31 |"...B...3.V.L$(1|
00000920: 29 20 B2 20 22 45 22 3A 4C 24 28 32 29 20 B2 20 |) . "E":L$(2) . |
00000930: 22 43 22 00 5B 11 60 04 4C 24 28 34 29 20 B2 20 |"C".[.`.L$(4) . |
00000940: 22 D4 48 45 20 53 48 4F 45 53 54 52 49 4E 47 20 |".HE SHOESTRING |
00000950: 42 52 4F 4B 45 20 57 48 45 4E 22 00 7A 11 61 04 |BROKE WHEN".z.a.|
00000960: 4C 24 28 34 31 29 20 B2 20 22 C9 20 54 55 47 47 |L$(41) . ". TUGG|
00000970: 45 44 20 4F 4E 20 49 54 2E 22 00 A0 11 6A 04 4C |ED ON IT."...j.L|
00000980: 24 28 35 29 20 B2 20 22 31 2D D4 48 45 20 53 48 |$(5) . "1-.HE SH|
00000990: 4F 45 53 54 52 49 4E 47 20 42 52 4F 4B 45 2E 22 |OESTRING BROKE."|
000009A0: 00 C8 11 6F 04 4C 24 28 35 31 29 B2 22 32 2D C9 |...o.L$(51)."2-.|
000009B0: 20 54 55 47 47 45 44 20 4F 4E 20 49 54 2E 20 20 | TUGGED ON IT. |
000009C0: 20 20 20 20 20 20 20 22 00 DE 11 74 04 4C 24 28 | "...t.L$(|
000009D0: 35 32 29 B2 22 20 20 20 20 20 20 20 20 22 00 E4 |52)." "..|
000009E0: 11 A6 04 8E 00 00 12 BA 04 4C 24 28 31 29 20 B2 |.........L$(1) .|
000009F0: 20 22 45 22 3A 4C 24 28 32 29 20 B2 20 22 43 22 | "E":L$(2) . "C"|
00000A00: 00 2C 12 C4 04 4C 24 28 34 29 20 B2 20 22 D2 4F |.,...L$(4) . ".O|
00000A10: 42 45 52 54 27 53 20 50 41 4E 54 53 20 52 49 50 |BERT'S PANTS RIP|
00000A20: 50 45 44 20 57 48 45 4E 20 48 45 22 00 54 12 C9 |PED WHEN HE".T..|
00000A30: 04 4C 24 28 34 31 29 B2 22 46 45 4C 4C 20 4F 46 |.L$(41)."FELL OF|
00000A40: 46 20 48 49 53 20 42 49 4B 45 2E 20 20 20 20 20 |F HIS BIKE. |
00000A50: 20 20 20 22 00 7B 12 CE 04 4C 24 28 35 29 20 B2 | ".{...L$(5) .|
00000A60: 20 22 31 2D D2 4F 42 45 52 54 27 53 20 50 41 4E | "1-.OBERT'S PAN|
00000A70: 54 53 20 52 49 50 50 45 44 2E 22 00 A3 12 D3 04 |TS RIPPED.".....|
00000A80: 4C 24 28 35 31 29 B2 22 32 2D C8 45 20 46 45 4C |L$(51)."2-.E FEL|
00000A90: 4C 20 4F 46 46 20 48 49 53 20 42 49 4B 45 2E 20 |L OFF HIS BIKE. |
00000AA0: 20 20 22 00 BA 12 D8 04 4C 24 28 35 32 29 B2 22 | ".....L$(52)."|
00000AB0: 20 20 20 20 20 20 20 20 20 22 00 C0 12 0A 05 8E | "......|
00000AC0: 00 DC 12 1E 05 4C 24 28 31 29 20 B2 20 22 45 22 |.....L$(1) . "E"|
00000AD0: 3A 4C 24 28 32 29 20 B2 20 22 43 22 00 0D 13 28 |:L$(2) . "C"...(|
00000AE0: 05 4C 24 28 34 29 20 B2 20 22 CD 41 52 49 41 20 |.L$(4) . ".ARIA |
00000AF0: 44 49 44 4E 27 54 20 47 4F 20 42 45 43 41 55 53 |DIDN'T GO BECAUS|
00000B00: 45 20 53 48 45 20 44 49 44 4E 27 54 22 00 31 13 |E SHE DIDN'T".1.|
00000B10: 32 05 4C 24 28 34 31 29 20 B2 20 22 4B 4E 4F 57 |2.L$(41) . "KNOW|
00000B20: 20 41 42 4F 55 54 20 54 48 45 20 54 52 49 50 2E | ABOUT THE TRIP.|
00000B30: 22 00 52 13 3C 05 4C 24 28 35 29 20 B2 20 22 31 |".R.<.L$(5) . "1|
00000B40: 2D CD 41 52 49 41 20 44 49 44 4E 27 54 20 47 4F |-.ARIA DIDN'T GO|
00000B50: 2E 22 00 78 13 46 05 4C 24 28 35 31 29 B2 20 22 |.".x.F.L$(51). "|
00000B60: 32 2D D3 48 45 20 44 49 44 4E 27 54 20 4B 4E 4F |2-.HE DIDN'T KNO|
00000B70: 57 20 41 42 4F 55 54 22 00 91 13 4B 05 4C 24 28 |W ABOUT"...K.L$(|
00000B80: 35 32 29 B2 22 20 20 54 48 45 20 54 52 49 50 2E |52)." THE TRIP.|
00000B90: 22 00 97 13 6E 05 8E 00 B3 13 82 05 4C 24 28 31 |"...n.......L$(1|
00000BA0: 29 20 B2 20 22 45 22 3A 4C 24 28 32 29 20 B2 20 |) . "E":L$(2) . |
00000BB0: 22 43 22 00 DF 13 8C 05 4C 24 28 34 29 20 B2 20 |"C".....L$(4) . |
00000BC0: 22 D4 48 45 20 46 4C 4F 57 45 52 53 20 57 45 52 |".HE FLOWERS WER|
00000BD0: 45 20 4E 4F 54 20 57 41 54 45 52 45 44 2C 22 00 |E NOT WATERED,".|
00000BE0: FE 13 96 05 4C 24 28 34 31 29 20 B2 20 22 53 4F |....L$(41) . "SO|
00000BF0: 20 54 48 45 59 20 57 49 4C 54 45 44 2E 22 00 21 | THEY WILTED.".!|
00000C00: 14 A0 05 4C 24 28 35 29 20 B2 22 31 2D D4 48 45 |...L$(5) ."1-.HE|
00000C10: 20 46 4C 4F 57 45 52 53 20 57 49 4C 54 45 44 2E | FLOWERS WILTED.|
00000C20: 22 00 47 14 A5 05 4C 24 28 35 31 29 B2 22 32 2D |".G...L$(51)."2-|
00000C30: D4 48 45 59 20 57 45 52 45 20 4E 4F 54 20 57 41 |.HEY WERE NOT WA|
00000C40: 54 45 52 45 44 2E 22 00 63 14 AA 05 4C 24 28 35 |TERED.".c...L$(5|
00000C50: 32 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |2)." |
00000C60: 20 20 22 00 69 14 D2 05 8E 00 7B 14 B8 0B 8F 20 | ".i.....{.... |
00000C70: 20 50 41 55 53 45 20 53 55 42 53 00 81 14 C2 0B | PAUSE SUBS.....|
00000C80: 8E 00 87 14 CC 0B 8E 00 A6 14 A0 0F 8F 20 20 49 |............. I|
00000C90: 4E 53 54 52 55 43 54 49 4F 4E 53 20 41 4E 44 20 |NSTRUCTIONS AND |
00000CA0: 42 4C 4F 41 44 53 00 B2 14 AA 0F 26 53 50 2C 32 |BLOADS.....&SP,2|
00000CB0: 32 30 00 FB 14 B6 0F 26 53 59 2C 31 3A 26 43 4F |20.....&SY,1:&CO|
00000CC0: 2C 31 36 3A 26 44 45 2C 31 2C 32 32 2C 35 2C 32 |,16:&DE,1,22,5,2|
00000CD0: 33 3A 26 46 49 3A 26 44 45 2C 39 2C 32 32 2C 34 |3:&FI:&DE,9,22,4|
00000CE0: 30 2C 32 33 3A 26 46 49 3A 26 44 45 2C 31 2C 32 |0,23:&FI:&DE,1,2|
00000CF0: 31 2C 34 30 2C 32 31 3A 26 46 49 00 2C 15 B7 0F |1,40,21:&FI.,...|
00000D00: 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 32 30 |&CO,160:&DE,1,20|
00000D10: 2C 34 30 2C 32 30 3A 26 46 49 3A 26 44 45 2C 36 |,40,20:&FI:&DE,6|
00000D20: 2C 32 32 2C 38 2C 32 33 3A 26 46 49 00 55 15 B8 |,22,8,23:&FI.U..|
00000D30: 0F 26 50 43 2C 31 31 2C 32 30 3A 20 26 54 58 2C |.&PC,11,20: &TX,|
00000D40: 22 D2 45 41 44 20 45 41 43 48 20 53 45 4E 54 45 |".EAD EACH SENTE|
00000D50: 4E 43 45 2E 22 00 80 15 BA 0F 26 50 43 2C 31 2C |NCE.".....&PC,1,|
00000D60: 32 31 3A 26 54 58 2C 22 D4 48 45 4E 2C 20 52 45 |21:&TX,".HEN, RE|
00000D70: 41 44 20 45 41 43 48 20 50 48 52 41 53 45 2E 22 |AD EACH PHRASE."|
00000D80: 00 B7 15 BB 0F 26 50 43 2C 31 2C 32 32 3A 26 54 |.....&PC,1,22:&T|
00000D90: 58 2C 22 D4 59 50 45 20 20 43 20 20 49 46 20 49 |X,".YPE C IF I|
00000DA0: 54 20 44 45 53 43 52 49 42 45 53 20 54 48 45 20 |T DESCRIBES THE |
00000DB0: 43 41 55 53 45 2E 22 00 EF 15 BC 0F 26 50 43 2C |CAUSE.".....&PC,|
00000DC0: 31 2C 32 33 3A 26 54 58 2C 22 D4 59 50 45 20 20 |1,23:&TX,".YPE |
00000DD0: 45 20 20 49 46 20 49 54 20 44 45 53 43 52 49 42 |E IF IT DESCRIB|
00000DE0: 45 53 20 54 48 45 20 45 46 46 45 43 54 2E 22 00 |ES THE EFFECT.".|
00000DF0: 33 16 BD 0F 26 43 4F 2C 31 36 30 3A 26 44 45 2C |3...&CO,160:&DE,|
00000E00: 31 2C 32 35 2C 34 30 2C 32 35 3A 26 46 49 3A 26 |1,25,40,25:&FI:&|
00000E10: 50 43 2C 31 31 2C 32 35 3A 26 54 58 2C 22 C8 49 |PC,11,25:&TX,".I|
00000E20: 54 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F |T ...... TO GO O|
00000E30: 4E 2E 22 00 3F 16 D2 0F 26 53 50 2C 32 35 35 00 |N.".?...&SP,255.|
00000E40: 45 16 24 13 8E 00 5A 16 88 13 8F 20 20 44 49 53 |E.$...Z.... DIS|
00000E50: 50 4C 41 59 20 53 43 4F 52 45 00 89 16 92 13 3A |PLAY SCORE.....:|
00000E60: 26 53 59 2C 31 3A 26 43 4F 2C 31 36 30 3A 26 44 |&SY,1:&CO,160:&D|
00000E70: 45 2C 31 2C 31 37 2C 34 30 2C 31 39 3A 26 46 49 |E,1,17,40,19:&FI|
00000E80: 3A 26 50 43 2C 31 2C 31 38 00 B6 16 93 13 26 54 |:&PC,1,18.....&T|
00000E90: 58 2C 22 C7 4F 41 4C 20 3D 20 36 20 52 49 47 48 |X,".OAL = 6 RIGH|
00000EA0: 54 20 49 4E 20 41 20 52 4F 57 2E 20 20 D9 4F 55 |T IN A ROW. .OU|
00000EB0: 20 48 41 56 45 22 00 D7 16 9C 13 3A 26 53 59 2C | HAVE".....:&SY,|
00000EC0: 32 3A 26 49 4E 3A 26 50 43 2C 33 37 2C 31 37 3A |2:&IN:&PC,37,17:|
00000ED0: 26 54 58 2C 22 20 22 00 E8 16 9D 13 52 52 24 B2 |&TX," ".....RR$.|
00000EE0: C7 28 52 52 AA 34 38 29 00 FF 16 A6 13 3A 26 50 |.(RR.48).....:&P|
00000EF0: 43 2C 33 37 2C 31 38 3A 26 54 58 2C 52 52 24 00 |C,37,18:&TX,RR$.|
00000F00: 0E 17 B0 13 3A 26 4E 4F 3A 26 53 59 2C 31 00 14 |....:&NO:&SY,1..|
00000F10: 17 E2 13 8E 00 2B 17 70 17 26 52 45 3A 26 44 4B |.....+.p.&RE:&DK|
00000F20: 2C 22 49 2E 46 49 53 48 22 2C 31 00 73 17 72 17 |,"I.FISH",1.s.r.|
00000F30: 26 43 4F 2C 31 32 38 3A 26 44 45 2C 31 2C 31 2C |&CO,128:&DE,1,1,|
00000F40: 32 30 2C 31 32 3A 26 46 49 3A 26 53 59 2C 32 3A |20,12:&FI:&SY,2:|
00000F50: 26 50 43 2C 35 2C 33 3A 26 54 58 2C 22 D1 55 49 |&PC,5,3:&TX,".UI|
00000F60: 54 45 22 3A 26 50 43 2C 39 2C 36 3A 26 54 58 2C |TE":&PC,9,6:&TX,|
00000F70: 22 41 22 00 AD 17 74 17 26 50 43 2C 35 2C 39 3A |"A"...t.&PC,5,9:|
00000F80: 26 54 58 2C 22 C3 41 54 43 48 22 3A 81 49 B2 31 |&TX,".ATCH":.I.1|
00000F90: 35 A4 33 A9 AB 31 3A 26 44 50 2C 31 2C 32 32 2C |5.3..1:&DP,1,22,|
00000FA0: 49 3A 82 3A 81 49 B2 33 A4 31 35 A9 31 00 EB 17 |I:.:.I.3.15.1...|
00000FB0: 76 17 26 44 50 2C 31 2C 32 32 2C 49 3A 82 3A 20 |v.&DP,1,22,I:.: |
00000FC0: 81 49 B2 32 30 A4 34 30 30 A9 38 3A 26 54 4E 2C |.I.20.400.8:&TN,|
00000FD0: 49 2C 32 3A 82 3A 81 49 B2 31 35 A4 33 A9 AB 31 |I,2:.:.I.15.3..1|
00000FE0: 3A 26 44 50 2C 31 2C 32 32 2C 49 00 08 18 78 17 |:&DP,1,22,I...x.|
00000FF0: 82 3A 81 49 B2 33 A4 31 35 A9 31 3A 26 44 50 2C |.:.I.3.15.1:&DP,|
00001000: 31 2C 32 32 2C 49 3A 82 00 46 18 A2 17 26 52 45 |1,22,I:..F...&RE|
00001010: 3A 81 49 B2 31 A4 39 3A 26 43 4F 2C 49 AA 33 3A |:.I.1.9:&CO,I.3:|
00001020: 26 44 45 2C 49 2C 49 2C 34 31 AB 49 2C 32 36 AB |&DE,I,I,41.I,26.|
00001030: 49 3A 26 46 49 3A 82 3A 26 53 59 2C 32 3A 26 50 |I:&FI:.:&SY,2:&P|
00001040: 43 2C 39 2C 31 33 00 7F 18 AC 17 26 54 58 2C 22 |C,9,13.....&TX,"|
00001050: 20 C3 4C 41 53 53 45 53 20 31 20 20 22 3A 8D 36 | .LASSES 1 ":.6|
00001060: 32 30 30 3A 9E 31 39 33 34 31 3A 93 22 53 55 42 |200:.19341:."SUB|
00001070: 50 52 4F 47 52 41 4D 20 58 58 2F 33 22 2C 38 00 |PROGRAM XX/3",8.|
00001080: AF 18 38 18 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |..8..15:.15,8,15|
00001090: 2C 22 53 30 3A 22 AA 4E 46 24 3A A0 31 35 3A 26 |,"S0:".NF$:.15:&|
000010A0: 42 53 2C 4E 46 24 2C 38 36 38 2C 36 33 3A 8E 00 |BS,NF$,868,63:..|
000010B0: 00 00 41 44 20 45 41 43 48 20 50 48 52 41 53 45 |..AD EACH PHRASE|
000010C0: 2E 22 00 63 17 BB 0F 26 50 43 2C 31 2C 32 32 3A |.".c...&PC,1,22:|
000010D0: 26 54 58 2C 22 D4 59 50 45 20 20 43 20 20 49 46 |&TX,".YPE C IF|
000010E0: 20 49 54 20 44 45 53 43 52 49 42 45 53 20 54 48 | IT DESCRIBES TH|
000010F0: 45 20 43 41 55 53 45 2E 22 00 9B 17 BC 0F 26 50 |E CAUSE.".....&P|
00001100: 43 2C 31 2C 32 33 3A 26 54 58 2C 22 D4 59 50 45 |C,1,23:&TX,".YPE|
00001110: 20 20 45 20 20 49 46 20 49 54 20 44 45 53 43 52 | E IF IT DESCR|
00001120: 49 42 45 53 20 54 48 45 20 45 46 46 45 43 54 2E |IBES THE EFFECT.|
00001130: 22 00 DF 17 BD 0F 26 43 4F 2C 31 36 30 3A 26 44 |".....&CO,160:&D|
00001140: 45 2C 31 2C 32 35 2C 34 30 2C 32 35 3A 26 46 49 |E,1,25,40,25:&FI|
00001150: 3A 26 50 43 2C 31 31 2C 32 35 3A 26 54 58 2C 22 |:&PC,11,25:&TX,"|
00001160: C8 49 54 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 47 4F |.IT ...... TO GO|
00001170: 20 4F 4E 2E 22 00 EB 17 D2 0F 26 53 50 2C 32 35 | ON.".....&SP,25|
00001180: 35 00 F1 17 24 13 8E 00 06 18 88 13 8F 20 20 44 |5...$........ D|
00001190: 49 53 50 4C 41 59 20 53 43 4F 52 45 00 34 18 92 |ISPLAY SCORE.4..|
000011A0: 13 26 53 59 2C 31 3A 26 43 4F 2C 31 36 30 3A 26 |.&SY,1:&CO,160:&|
000011B0: 44 45 2C 31 2C 31 38 2C 34 30 2C 31 39 3A 26 46 |DE,1,18,40,19:&F|
000011C0: 49 3A 26 50 43 2C 31 2C 31 38 00 61 18 93 13 26 |I:&PC,1,18.a...&|
000011D0: 54 58 2C 22 C7 4F 41 4C 20 3D 20 36 20 52 49 47 |TX,".OAL = 6 RIG|
000011E0: 48 54 20 49 4E 20 41 20 52 4F 57 2E 20 20 D9 4F |HT IN A ROW. .O|
000011F0: 55 20 48 41 56 45 22 00 74 18 9C 13 26 20 53 59 |U HAVE".t...& SY|
00001200: 2C 32 3A 26 20 43 4C 2C 34 30 00 90 18 9D 13 52 |,2:& CL,40.....R|
00001210: 52 24 20 B2 20 20 C7 20 28 52 52 AA 34 38 29 3A |R$ . . (RR.48):|
00001220: 20 26 20 49 4E 56 00 B8 18 A6 13 81 20 4A 4A 20 | & INV...... JJ |
00001230: B2 20 30 20 A4 20 52 52 3A 20 26 50 43 2C 33 37 |. 0 . RR: &PC,37|
00001240: 2C 31 38 3A 26 54 58 2C 52 52 24 3A 20 82 00 D7 |,18:&TX,RR$: ...|
00001250: 18 B0 13 26 20 4E 4F 3A 20 26 20 43 4C 2C 30 3A |...& NO: & CL,0:|
00001260: 20 26 20 44 49 2C 30 3A 26 53 59 2C 31 00 DD 18 | & DI,0:&SY,1...|
00001270: E2 13 8E 00 22 19 4A 9C 97 38 37 30 2C 41 32 3A |....".J..870,A2:|
00001280: 26 48 47 3A 26 53 59 2C 31 3A 26 50 43 2C 35 2C |&HG:&SY,1:&PC,5,|
00001290: 31 30 3A 26 54 58 2C 22 57 4F 52 4B 49 4E 47 2E |10:&TX,"WORKING.|
000012A0: 2E 2E 22 3A 9E 31 39 33 34 31 3A 93 22 4C 45 53 |..":.19341:."LES|
000012B0: 53 4F 4E 58 58 22 2C 38 00 4A 19 22 9D 26 43 4F |SONXX",8.J.".&CO|
000012C0: 2C 32 30 38 3A 26 44 45 2C 31 2C 32 30 2C 34 30 |,208:&DE,1,20,40|
000012D0: 2C 32 32 3A 26 46 49 3A 26 50 43 2C 31 2C 32 30 |,22:&FI:&PC,1,20|
000012E0: 00 64 19 6A EA 9E 31 39 33 34 31 3A 93 20 22 48 |.d.j..19341:. "H|
000012F0: 45 4C 4C 4F 48 49 31 22 2C 38 00 00 00 4A 9C 97 |ELLOHI1",8...J..|
00001300: 38 37 30 2C 41 32 3A 26 48 47 3A 26 53 59 2C 31 |870,A2:&HG:&SY,1|
00001310: 3A 26 50 43 2C 35 2C 31 30 3A 26 54 58 2C 22 57 |:&PC,5,10:&TX,"W|
00001320: 4F 52 4B 49 4E 47 2E 2E 2E 22 3A 9E 31 39 33 34 |ORKING...":.1934|
00001330: 31 3A 93 22 4C 45 53 53 4F 4E 58 58 22 2C 38 00 |1:."LESSONXX",8.|
00001340: 4A 19 22 9D 26 43 4F 2C 32 30 38 3A 26 44 45 2C |J.".&CO,208:&DE,|
00001350: 31 2C 32 30 2C 34 30 2C 32 32 3A 26 46 49 3A 26 |1,20,40,22:&FI:&|
00001360: 50 43 2C 31 2C 32 30 00 64 19 6A EA 9E 31 39 33 |PC,1,20.d.j..193|
00001370: 34 31 3A 93 20 22 48 45 4C 4C 4F 48 49 31 22 2C |41:. "HELLOHI1",|
00001380: 38 00 00 00 |8... |
../....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,2:.870,0......51,B(55):.
52,B(56)......19328...... SUBPROGRAM X
X/1.D.".SP . 2:NS . 5:RR% . 6: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...E.&CO,5:&
DE,2,2,39,15:&FI:&CO,69:&DE,3,3,38,14:&F
I.V.F.&CO,27:&DE,3,3,38,14:&FI...X.:....
.. RN . 0 . J . J . 1: . 150.)...J . .
(NS . . (1) . 1): . J . J1 . 140.J...J1
. J: . J . . NS . RN . 1.M. .. J . 101
0,1110,1210,1310,1410...W.&SY,1:&PC,4,5:
&TX,L$(4):&PC,4,6:&TX,L$(41).Z...&PC,6,8
:&TX,L$(5):&PC,6,10:&TX,L$(51):&PC,6,11:
&TX,L$(52)...... K . 1 . 2.....&SY,2:&PC
,35,8:&TX," ":&PC,35,10:&TX," ".;....
K . 1 .:&PC,35,8:&SY,2:.259.Y.... K . 2
.:&PC,35,10:&SY,2.F...L$ . ".".....&CO,1
71:&DE,35,8,38,12:&FI:& ENS,L$,1,T%,AL%.
..... AL% . 0 . . 260.A...L$. H (L$,AL%
).Y.... F(L$) . 3 . 272......((L$.."E"
).(L$.."C")).251...... K . 1 . 280......
286.I...&RE:&SY,2:&PC,9,5:&TX,"BYE":.19
341:."HELLOHI1",8.L.... L$.L$(1) . AX$
. "YES":.282.....AX$ . "NO": . 290.....&
SY,2:&CO,16:&DE,1,16,36,17:&FI:&PC,16,1
6:&TX,"GOOD"...... I . 160 . 48 . . 8:
& TN,I,1: ......&PC,16,16:&TX," ":&
SY,1: . 300.-.... L$.L$(2) . AX$ . "YES"
:.282.C...AX$ . "NO": . 290.C.".. I . 1
. 5: & TN,255,10: ....$.&SP,220: &SY,1:&
CO,16:&DE,1,14,40,14:&FI:&NO:&PC,4,14...
%.&TX,"THE CORRECT ANSWER IS: "...&.. K
. 1 .: &TX,L$(1) :. 198,0:&SP,255...'..
K . 2 .: &TX,L$(2) :. 198,0:&SP,255.(.(.
. R$:. R$."".296.Q.).. F(R$).13 . :&PC,2
,14:&TX,"
"...*.&CO,5:&DE,2,14,39,14:&FI:&
CO,69:&DE,3,14,38,14:&FI.F.+.&CO,27:&DE,
3,14,38,14:&FI.U.,.. SCORING...1.. (AX$
. "YES") . R . R . 1:RR . RR . 1:WR . 0
.>.6.. (AX$ . . "YES") . W . W . 1:WR .
WR . 1:RR . 0.I.@.. 5010.}.J.. RR.. RR%
. A2 . 7:.870,A2:.887,W:.902,R:.6000...
T.. (WR .. 5) . (W .. 18) . A2 . 5:.870,
A2:.19341:."HELLOHI1",8.G.V.. K...Y..I.0
.10:&PC,1,4.I:&TX,"
":....R.. 120.1.... D
ATA FOR QUESTIONS.M...L$(1) . "C":L$(2)
. "E".V...L$(4) . "BECAUSE IT SNOWED ALL
DAY ".....L$(41)."SATURDAY, WE COULDN'T
GO INTO TOWN.".S...L$(5) . "1-IT SNOWED
ALL DAY SATURDAY.".....L$(51)."2-WE COU
LDN'T GO INTO TOWN.".....L$(52)."
"...B...3.V.L$(1) . "E":L$(2) . "C".[.`.
L$(4) . "THE SHOESTRING BROKE WHEN".Z.A.
L$(41) . "I TUGGED ON IT.". .J.L$(5) . "
1-THE SHOESTRING BROKE.".H.O.L$(51)."2-I
TUGGED ON IT. "...T.L$(52)."
"...........L$(1) . "E":L$(2) . "C"
.,.D.L$(4) . "ROBERT'S PANTS RIPPED WHEN
HE".T.I.L$(41)."FELL OFF HIS BIKE.
".{.N.L$(5) . "1-ROBERT'S PANTS RIPPE
D."...S.L$(51)."2-HE FELL OFF HIS BIKE.
"...X.L$(52)." "...........L$(
1) . "E":L$(2) . "C"...(.L$(4) . "MARIA
DIDN'T GO BECAUSE SHE DIDN'T".1.2.L$(41)
. "KNOW ABOUT THE TRIP.".R.<.L$(5) . "1
-MARIA DIDN'T GO.".X.F.L$(51). "2-SHE DI
DN'T KNOW ABOUT"...K.L$(52)." THE TRIP.
"...N.......L$(1) . "E":L$(2) . "C".....
L$(4) . "THE FLOWERS WERE NOT WATERED,".
....L$(41) . "SO THEY WILTED.".!. .L$(5)
."1-THE FLOWERS WILTED.".G...L$(51)."2-
THEY WERE NOT WATERED.".C...L$(52)."
".I.R...{.... PAUSE SUBS...B.
....L..... .. INSTRUCTIONS AND BLOADS..
...&SP,220.....&SY,1:&CO,16:&DE,1,22,5,2
3:&FI:&DE,9,22,40,23:&FI:&DE,1,21,40,21:
&FI.,...&CO,160:&DE,1,20,40,20:&FI:&DE,6
,22,8,23:&FI.U...&PC,11,20: &TX,"READ EA
CH SENTENCE.".....&PC,1,21:&TX,"THEN, RE
AD EACH PHRASE.".....&PC,1,22:&TX,"TYPE
C IF IT DESCRIBES THE CAUSE.".....&PC,
1,23:&TX,"TYPE E IF IT DESCRIBES THE E
FFECT.".3...&CO,160:&DE,1,25,40,25:&FI:&
PC,11,25:&TX,"HIT RETURN TO GO ON.".?.R.
&SP,255.E.$...Z.... DISPLAY SCORE.....:
&SY,1:&CO,160:&DE,1,17,40,19:&FI:&PC,1,1
8.....&TX,"GOAL = 6 RIGHT IN A ROW. YOU
HAVE".W...:&SY,2:&IN:&PC,37,17:&TX," ".
....RR$.G(RR.48).....:&PC,37,18:&TX,RR$.
....:&NO:&SY,1.......+.P.&RE:&DK,"I.FISH
",1.S.R.&CO,128:&DE,1,1,20,12:&FI:&SY,2:
&PC,5,3:&TX,"QUITE":&PC,9,6:&TX,"A"...T.
&PC,5,9:&TX,"CATCH":.I.15.3..1:&DP,1,22,
I:.:.I.3.15.1...V.&DP,1,22,I:.: .I.20.40
0.8:&TN,I,2:.:.I.15.3..1:&DP,1,22,I...X.
.:.I.3.15.1:&DP,1,22,I:..F...&RE:.I.1.9:
&CO,I.3:&DE,I,I,41.I,26.I:&FI:.:&SY,2:&P
C,9,13....&TX," CLASSES 1 ":.6200:.193
41:."SUBPROGRAM XX/3",8...8. 15:.15,8,15
,"S0:".NF$: 15:&BS,NF$,868,63:....AD EAC
H PHRASE.".C...&PC,1,22:&TX,"TYPE C IF
IT DESCRIBES THE CAUSE.".....&PC,1,23:&
TX,"TYPE E IF IT DESCRIBES THE EFFECT.
".....&CO,160:&DE,1,25,40,25:&FI:&PC,11,
25:&TX,"HIT RETURN TO GO ON."...R.&SP,25
5...$........ DISPLAY SCORE.4...&SY,1:&
CO,160:&DE,1,18,40,19:&FI:&PC,1,18.A...&
TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE".
T...& SY,2:& CL,40.....RR$ . G (RR.48):
& INV...... JJ . 0 . RR: &PC,37,18:&TX,
RR$: ..W...& NO: & CL,0: & DI,0:&SY,1...
....".J..870,A2:&HG:&SY,1:&PC,5,10:&TX,"
WORKING...":.19341:."LESSONXX",8.J.".&CO
,208:&DE,1,20,40,22:&FI:&PC,1,20.D.J..19
341:. "HELLOHI1",8...J..870,A2:&HG:&SY,1
:&PC,5,10:&TX,"WORKING...":.19341:."LESS
ONXX",8.J.".&CO,208:&DE,1,20,40,22:&FI:&
PC,1,20.D.J..19341:. "HELLOHI1",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL