SUBPROGRAM XX/6
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/6
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
c3f2a83d15a1fa3f02037dff5e5e31ceb1327fad750b2c93b97e76ad9b8d29fb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/6 | PRG | DuncanTwain | 23 | 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: 36 3A 97 38 37 30 2C 30 00 80 08 0B 00 97 35 31 |6:.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 36 20 3A 4E |X/8...".SP .6 :N|
000000B0: 53 20 B2 20 39 3A 52 52 25 20 B2 20 36 3A 4E 51 |S . 9: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 85 09 64 00 8D 20 34 30 31 30 3A 8D |. 0...d.. 4010:.|
00000180: 20 35 30 31 30 00 8B 09 78 00 3A 00 AB 09 82 00 | 5010...x.:.....|
00000190: 8B 20 52 4E 20 B2 20 30 20 A7 20 4A 20 B2 20 4A |. RN . 0 . J . J|
000001A0: 20 AA 20 31 3A 20 89 20 31 35 30 00 D8 09 8C 00 | . 1: . 150.....|
000001B0: 4A 20 B2 20 20 B5 20 28 4E 53 20 AC 20 20 BB 20 |J . . (NS . . |
000001C0: 28 31 29 20 AA 20 31 29 3A 20 8B 20 4A 20 B2 20 |(1) . 1): . J . |
000001D0: 4A 31 20 A7 20 31 34 30 00 F9 09 96 00 4A 31 20 |J1 . 140.....J1 |
000001E0: B2 20 4A 3A 20 8B 20 4A 20 B1 20 20 B2 20 4E 53 |. J: . J . . NS|
000001F0: 20 A7 20 52 4E 20 B2 20 31 00 30 0A A0 00 91 20 | . RN . 1.0.... |
00000200: 4A 20 8D 20 31 30 31 30 2C 31 31 31 30 2C 31 32 |J . 1010,1110,12|
00000210: 31 30 2C 31 33 31 30 2C 31 34 31 30 2C 31 35 31 |10,1310,1410,151|
00000220: 30 2C 31 36 31 30 2C 31 37 31 30 2C 31 38 31 30 |0,1610,1710,1810|
00000230: 00 43 0A AF 00 8B 20 4A 20 B3 B1 20 31 20 A7 20 |.C.... J .. 1 . |
00000240: 32 34 35 00 78 0A B4 00 26 43 4F 2C 35 3A 26 44 |245.x...&CO,5:&D|
00000250: 45 2C 31 2C 31 2C 34 30 2C 31 35 3A 26 46 49 3A |E,1,1,40,15:&FI:|
00000260: 26 43 4F 2C 36 39 3A 26 44 45 2C 32 2C 32 2C 33 |&CO,69:&DE,2,2,3|
00000270: 39 2C 31 34 3A 26 46 49 00 95 0A BE 00 26 43 4F |9,14:&FI.....&CO|
00000280: 2C 32 37 3A 26 44 45 2C 32 2C 32 2C 33 39 2C 31 |,27:&DE,2,2,39,1|
00000290: 34 3A 26 46 49 00 BD 0A F5 00 26 50 43 2C 33 2C |4:&FI.....&PC,3,|
000002A0: 38 3A 26 54 58 2C 4C 24 28 32 29 3A 26 50 43 2C |8:&TX,L$(2):&PC,|
000002B0: 33 2C 39 3A 26 54 58 2C 4C 24 28 33 29 00 D5 0A |3,9:&TX,L$(3)...|
000002C0: F6 00 26 50 43 2C 33 2C 31 30 20 3A 26 54 58 2C |..&PC,3,10 :&TX,|
000002D0: 4C 24 28 34 29 00 F8 0A FA 00 26 43 4F 2C 31 36 |L$(4).....&CO,16|
000002E0: 30 3A 26 44 45 2C 31 2C 31 36 2C 31 30 2C 31 37 |0:&DE,1,16,10,17|
000002F0: 3A 26 46 49 3A 26 4E 4F 00 0B 0B 02 01 26 50 43 |:&FI:&NO.....&PC|
00000300: 2C 32 2C 31 36 3A 26 53 59 2C 32 00 18 0B 03 01 |,2,16:&SY,2.....|
00000310: 4C 24 20 B2 20 22 46 22 00 2E 0B 04 01 26 20 45 |L$ . "F".....& E|
00000320: 4E 53 2C 4C 24 2C 31 2C 54 25 2C 41 4C 25 00 40 |NS,L$,1,T%,AL%.@|
00000330: 0B 05 01 8B 20 41 4C 25 B2 30 20 A7 20 32 36 30 |.... AL%.0 . 260|
00000340: 00 59 0B 06 01 26 53 59 2C 31 3A 4C 24 B2 20 C8 |.Y...&SY,1:L$. .|
00000350: 20 28 4C 24 2C 41 4C 25 29 00 72 0B 08 01 8B 20 | (L$,AL%).r.... |
00000360: 20 C6 20 28 4C 24 29 20 B2 20 33 20 20 A7 20 32 | . (L$) . 3 . 2|
00000370: 37 32 00 AB 0B 09 01 8B 28 28 4C 24 B3 B1 22 4F |72......((L$.."O|
00000380: 22 29 AF 28 4C 24 B3 B1 22 46 22 29 29 A7 3A 26 |").(L$.."F")).:&|
00000390: 50 43 2C 32 2C 31 36 3A 26 53 59 2C 32 3A 26 54 |PC,2,16:&SY,2:&T|
000003A0: 58 2C 22 20 20 22 3A 89 32 35 38 00 B5 0B 0C 01 |X," ":.258.....|
000003B0: 89 20 32 38 30 00 EA 0B 10 01 26 52 45 3A 26 53 |. 280.....&RE:&S|
000003C0: 59 2C 32 3A 26 50 43 2C 39 2C 35 3A 26 54 58 2C |Y,2:&PC,9,5:&TX,|
000003D0: 22 C2 59 45 22 3A 9E 31 39 33 34 31 3A 93 22 48 |".YE":.19341:."H|
000003E0: 45 4C 4C 4F 48 49 31 22 2C 38 00 0E 0C 18 01 8B |ELLOHI1",8......|
000003F0: 20 4C 24 20 B2 20 4C 24 28 31 29 20 A7 20 41 58 | L$ . L$(1) . AX|
00000400: 24 20 B2 20 22 59 45 53 22 3A 89 32 38 32 00 24 |$ . "YES":.282.$|
00000410: 0C 19 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 89 |...AX$ . "NO": .|
00000420: 20 32 39 30 00 74 0C 1A 01 26 53 59 2C 32 3A 20 | 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 31 2C 57 3A 97 39 30 36 2C 52 3A 89 36 30 |891,W:.906,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 CD |...L$(1) . "O"..|
000007A0: 0F F7 03 4C 24 28 32 29 20 B2 20 22 C9 20 42 45 |...L$(2) . ". BE|
000007B0: 4C 49 45 56 45 20 54 48 41 54 20 50 45 4F 50 4C |LIEVE THAT PEOPL|
000007C0: 45 20 53 48 4F 55 4C 44 20 4E 4F 54 22 00 E7 0F |E SHOULD NOT"...|
000007D0: F8 03 4C 24 28 33 29 B2 22 42 4F 52 52 4F 57 20 |..L$(3)."BORROW |
000007E0: 4D 4F 4E 45 59 2E 22 00 FC 0F FC 03 4C 24 28 34 |MONEY.".....L$(4|
000007F0: 29 B2 22 20 20 20 20 20 20 20 20 22 00 02 10 42 |)." "...B|
00000800: 04 8E 00 10 10 56 04 4C 24 28 31 29 B2 22 4F 22 |.....V.L$(1)."O"|
00000810: 00 3E 10 60 04 4C 24 28 32 29 20 B2 20 22 D3 50 |.>.`.L$(2) . ".P|
00000820: 41 47 48 45 54 54 49 20 4D 41 4B 45 53 20 41 20 |AGHETTI MAKES A |
00000830: 44 45 4C 49 43 49 4F 55 53 20 41 4E 44 22 00 5C |DELICIOUS AND".\|
00000840: 10 61 04 4C 24 28 33 29 B2 22 49 4E 45 58 50 45 |.a.L$(3)."INEXPE|
00000850: 4E 53 49 56 45 20 4D 45 41 4C 2E 22 00 70 10 6F |NSIVE MEAL.".p.o|
00000860: 04 4C 24 28 34 29 B2 22 20 20 20 20 20 20 20 22 |.L$(4)." "|
00000870: 00 76 10 A6 04 8E 00 84 10 BA 04 4C 24 28 31 29 |.v.........L$(1)|
00000880: B2 22 46 22 00 B1 10 C4 04 4C 24 28 32 29 20 B2 |."F".....L$(2) .|
00000890: 20 22 C9 4E 20 31 39 34 33 2C 20 50 45 4E 4E 49 | ".N 1943, PENNI|
000008A0: 45 53 20 57 45 52 45 20 4E 4F 54 20 4D 41 44 45 |ES WERE NOT MADE|
000008B0: 22 00 CF 10 C5 04 4C 24 28 33 29 B2 22 4F 46 20 |".....L$(3)."OF |
000008C0: 43 4F 50 50 45 52 2E 20 20 20 20 20 20 20 22 00 |COPPER. ".|
000008D0: EA 10 CE 04 4C 24 28 34 29 20 B2 20 22 20 20 20 |....L$(4) . " |
000008E0: 20 20 20 20 20 20 20 20 20 22 00 F0 10 0A 05 8E | "......|
000008F0: 00 FE 10 1E 05 4C 24 28 31 29 B2 22 4F 22 00 29 |.....L$(1)."O".)|
00000900: 11 28 05 4C 24 28 32 29 20 B2 20 22 D3 41 56 49 |.(.L$(2) . ".AVI|
00000910: 4E 47 20 4D 4F 4E 45 59 20 49 53 20 41 20 47 4F |NG MONEY IS A GO|
00000920: 4F 44 20 49 44 45 41 2E 22 00 44 11 29 05 4C 24 |OD IDEA.".D.).L$|
00000930: 28 33 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |(3)." |
00000940: 20 20 20 22 00 5F 11 32 05 4C 24 28 34 29 20 B2 | "._.2.L$(4) .|
00000950: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | " ".|
00000960: 65 11 6E 05 8E 00 73 11 82 05 4C 24 28 31 29 B2 |e.n...s...L$(1).|
00000970: 22 46 22 00 A0 11 8C 05 4C 24 28 32 29 20 B2 20 |"F".....L$(2) . |
00000980: 22 C9 4E 54 45 52 45 53 54 20 49 53 20 4D 4F 4E |".NTEREST IS MON|
00000990: 45 59 20 50 41 49 44 20 46 4F 52 20 54 48 45 22 |EY PAID FOR THE"|
000009A0: 00 BA 11 96 05 4C 24 28 33 29 B2 22 55 53 45 20 |.....L$(3)."USE |
000009B0: 4F 46 20 4D 4F 4E 45 59 2E 22 00 CF 11 A0 05 4C |OF MONEY.".....L|
000009C0: 24 28 34 29 20 B2 20 22 20 20 20 20 20 20 22 00 |$(4) . " ".|
000009D0: D5 11 D2 05 8E 00 E5 11 E6 05 4C 24 28 31 29 20 |..........L$(1) |
000009E0: B2 20 22 46 22 00 11 12 F0 05 4C 24 28 32 29 B2 |. "F".....L$(2).|
000009F0: 22 D0 41 50 45 52 20 4D 4F 4E 45 59 20 57 41 53 |".APER MONEY WAS|
00000A00: 20 49 4E 56 45 4E 54 45 44 20 42 59 20 54 48 45 | INVENTED BY THE|
00000A10: 22 00 26 12 FA 05 4C 24 28 33 29 B2 22 C3 48 49 |".&...L$(3).".HI|
00000A20: 4E 45 53 45 2E 22 00 3A 12 04 06 4C 24 28 34 29 |NESE.".:...L$(4)|
00000A30: B2 22 20 20 20 20 20 20 20 22 00 40 12 36 06 8E |." ".@.6..|
00000A40: 00 4E 12 4A 06 4C 24 28 31 29 B2 22 46 22 00 79 |.N.J.L$(1)."F".y|
00000A50: 12 54 06 4C 24 28 32 29 B2 22 D4 48 45 20 57 4F |.T.L$(2).".HE WO|
00000A60: 52 44 20 27 42 41 4E 4B 27 20 43 4F 4D 45 53 20 |RD 'BANK' COMES |
00000A70: 46 52 4F 4D 20 54 48 45 22 00 9B 12 5E 06 4C 24 |FROM THE"...^.L$|
00000A80: 28 33 29 B2 22 C9 54 41 4C 49 41 4E 20 57 4F 52 |(3).".TALIAN WOR|
00000A90: 44 20 27 42 41 4E 43 41 27 2E 22 00 AE 12 68 06 |D 'BANCA'."...h.|
00000AA0: 4C 24 28 34 29 B2 22 20 20 20 20 20 20 22 00 B4 |L$(4)." "..|
00000AB0: 12 9A 06 8E 00 C2 12 AE 06 4C 24 28 31 29 B2 22 |.........L$(1)."|
00000AC0: 4F 22 00 F0 12 B8 06 4C 24 28 32 29 B2 22 C1 4E |O".....L$(2).".N|
00000AD0: 20 45 44 55 43 41 54 49 4F 4E 20 49 53 20 52 45 | EDUCATION IS RE|
00000AE0: 41 4C 4C 59 20 41 20 47 4F 4F 44 20 49 4E 2D 22 |ALLY A GOOD IN-"|
00000AF0: 00 06 13 C2 06 4C 24 28 33 29 B2 22 56 45 53 54 |.....L$(3)."VEST|
00000B00: 4D 45 4E 54 2E 22 00 1B 13 CC 06 4C 24 28 34 29 |MENT.".....L$(4)|
00000B10: B2 22 20 20 20 20 20 20 20 20 22 00 21 13 FE 06 |." ".!...|
00000B20: 8E 00 2F 13 12 07 4C 24 28 31 29 B2 22 46 22 00 |../...L$(1)."F".|
00000B30: 59 13 1C 07 4C 24 28 32 29 B2 22 C1 20 24 31 30 |Y...L$(2).". $10|
00000B40: 30 20 42 49 4C 4C 20 48 41 53 20 41 20 50 4F 52 |0 BILL HAS A POR|
00000B50: 54 52 41 49 54 20 4F 46 22 00 75 13 26 07 4C 24 |TRAIT OF".u.&.L$|
00000B60: 28 33 29 B2 22 C6 52 41 4E 4B 4C 49 4E 20 4F 4E |(3).".RANKLIN ON|
00000B70: 20 49 54 2E 22 00 8A 13 30 07 4C 24 28 34 29 B2 | IT."...0.L$(4).|
00000B80: 22 20 20 20 20 20 20 20 20 22 00 90 13 6B 07 8E |" "...k..|
00000B90: 00 A2 13 B8 0B 8F 20 20 50 41 55 53 45 20 53 55 |...... PAUSE SU|
00000BA0: 42 53 00 A8 13 C2 0B 8E 00 AE 13 CC 0B 8E 00 CD |BS..............|
00000BB0: 13 A0 0F 8F 20 20 49 4E 53 54 52 55 43 54 49 4F |.... INSTRUCTIO|
00000BC0: 4E 53 20 41 4E 44 20 42 4C 4F 41 44 53 00 D9 13 |NS AND BLOADS...|
00000BD0: AA 0F 26 53 50 2C 32 32 30 00 29 14 B6 0F 26 53 |..&SP,220.)...&S|
00000BE0: 59 2C 31 3A 26 43 4F 2C 31 36 3A 26 44 45 2C 31 |Y,1:&CO,16:&DE,1|
00000BF0: 2C 32 31 2C 35 2C 32 33 3A 26 46 49 3A 26 44 45 |,21,5,23:&FI:&DE|
00000C00: 2C 39 2C 32 31 2C 34 30 2C 32 33 3A 26 46 49 3A |,9,21,40,23:&FI:|
00000C10: 26 43 4F 2C 31 36 30 3A 26 44 45 2C 36 2C 32 31 |&CO,160:&DE,6,21|
00000C20: 2C 38 2C 32 33 3A 26 46 49 00 5B 14 BA 0F 26 50 |,8,23:&FI.[...&P|
00000C30: 43 2C 31 2C 32 31 3A 26 54 58 2C 22 D4 59 50 45 |C,1,21:&TX,".YPE|
00000C40: 20 20 4F 20 20 49 46 20 54 48 45 20 53 45 4E 54 | O IF THE SENT|
00000C50: 45 4E 43 45 20 41 42 4F 56 45 22 00 84 14 BB 0F |ENCE ABOVE".....|
00000C60: 26 50 43 2C 31 30 2C 32 32 3A 26 54 58 2C 22 53 |&PC,10,22:&TX,"S|
00000C70: 54 41 54 45 53 20 41 4E 20 28 4F 29 50 49 4E 49 |TATES AN (O)PINI|
00000C80: 4F 4E 2E 22 00 B7 14 BC 0F 26 50 43 2C 31 2C 32 |ON.".....&PC,1,2|
00000C90: 33 3A 26 54 58 2C 22 D4 59 50 45 20 20 46 20 20 |3:&TX,".YPE F |
00000CA0: 49 46 20 49 54 20 53 54 41 54 45 53 20 41 20 28 |IF IT STATES A (|
00000CB0: 46 29 41 43 54 2E 22 00 FB 14 BD 0F 26 43 4F 2C |F)ACT.".....&CO,|
00000CC0: 31 36 30 3A 26 44 45 2C 31 2C 32 35 2C 34 30 2C |160:&DE,1,25,40,|
00000CD0: 32 35 3A 26 46 49 3A 26 50 43 2C 31 31 2C 32 35 |25:&FI:&PC,11,25|
00000CE0: 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 D4 D5 D2 CE |:&TX,".IT ......|
00000CF0: 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 07 15 D2 0F | TO GO ON.".....|
00000D00: 26 53 50 2C 32 35 35 00 0D 15 24 13 8E 00 22 15 |&SP,255...$...".|
00000D10: 88 13 8F 20 20 44 49 53 50 4C 41 59 20 53 43 4F |... DISPLAY SCO|
00000D20: 52 45 00 51 15 92 13 3A 26 53 59 2C 31 3A 26 43 |RE.Q...:&SY,1:&C|
00000D30: 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 31 38 2C 34 |O,160:&DE,1,18,4|
00000D40: 30 2C 32 30 3A 26 46 49 3A 26 50 43 2C 31 2C 31 |0,20:&FI:&PC,1,1|
00000D50: 39 00 7E 15 93 13 26 54 58 2C 22 C7 4F 41 4C 20 |9.~...&TX,".OAL |
00000D60: 3D 20 36 20 52 49 47 48 54 20 49 4E 20 41 20 52 |= 6 RIGHT IN A R|
00000D70: 4F 57 2E 20 20 D9 4F 55 20 48 41 56 45 22 00 9F |OW. .OU HAVE"..|
00000D80: 15 9C 13 3A 26 53 59 2C 32 3A 26 49 4E 3A 26 50 |...:&SY,2:&IN:&P|
00000D90: 43 2C 33 37 2C 31 38 3A 26 54 58 2C 22 20 22 00 |C,37,18:&TX," ".|
00000DA0: B4 15 9D 13 52 52 24 20 B2 20 20 C7 20 28 52 52 |....RR$ . . (RR|
00000DB0: AA 34 38 29 00 CB 15 A6 13 3A 26 50 43 2C 33 37 |.48).....:&PC,37|
00000DC0: 2C 31 39 3A 26 54 58 2C 52 52 24 00 DA 15 B0 13 |,19:&TX,RR$.....|
00000DD0: 3A 26 4E 4F 3A 26 53 59 2C 31 00 E0 15 E2 13 8E |:&NO:&SY,1......|
00000DE0: 00 F8 15 70 17 26 20 52 45 3A 26 44 4B 2C 22 49 |...p.& RE:&DK,"I|
00000DF0: 2E 53 4C 45 44 22 2C 31 00 38 16 72 17 26 43 4F |.SLED",1.8.r.&CO|
00000E00: 2C 31 31 32 3A 26 44 45 2C 31 2C 31 2C 34 30 2C |,112:&DE,1,1,40,|
00000E10: 31 32 3A 26 46 49 3A 26 53 59 2C 32 3A 26 50 43 |12:&FI:&SY,2:&PC|
00000E20: 2C 34 2C 38 3A 26 54 58 2C 22 C3 4F 4F 4C 20 D3 |,4,8:&TX,".OOL .|
00000E30: 4C 45 44 44 45 52 21 22 00 5B 16 74 17 81 20 49 |LEDDER!".[.t.. I|
00000E40: 20 B2 20 31 20 A4 20 33 30 20 20 A9 20 31 3A 26 | . 1 . 30 . 1:&|
00000E50: 44 50 2C 31 2C 49 2C 31 36 3A 82 00 6B 16 76 17 |DP,1,I,16:..k.v.|
00000E60: 81 20 49 20 B2 20 31 20 A4 20 32 00 B1 16 78 17 |. I . 1 . 2...x.|
00000E70: 26 54 4E 2C 31 39 32 2C 31 30 3A 26 54 4E 2C 31 |&TN,192,10:&TN,1|
00000E80: 39 32 2C 31 30 3A 26 54 4E 2C 31 39 32 2C 32 30 |92,10:&TN,192,20|
00000E90: 3A 26 54 4E 2C 31 39 32 2C 31 30 3A 26 54 4E 2C |:&TN,192,10:&TN,|
00000EA0: 31 39 32 2C 31 30 3A 26 54 4E 2C 31 39 32 2C 32 |192,10:&TN,192,2|
00000EB0: 30 00 EC 16 7A 17 26 54 4E 2C 31 39 32 2C 31 30 |0...z.&TN,192,10|
00000EC0: 3A 26 54 4E 2C 31 38 30 2C 31 30 3A 26 54 4E 2C |:&TN,180,10:&TN,|
00000ED0: 32 30 38 2C 31 30 3A 26 54 4E 2C 32 30 30 2C 31 |208,10:&TN,200,1|
00000EE0: 30 3A 26 54 4E 2C 31 39 32 2C 33 30 00 31 17 7C |0:&TN,192,30.1.||
00000EF0: 17 26 54 4E 2C 31 38 38 2C 31 30 3A 26 54 4E 2C |.&TN,188,10:&TN,|
00000F00: 31 38 38 2C 31 30 3A 26 54 4E 2C 31 38 38 2C 31 |188,10:&TN,188,1|
00000F10: 30 3A 26 54 4E 2C 31 38 38 2C 35 3A 26 54 4E 2C |0:&TN,188,5:&TN,|
00000F20: 31 38 38 2C 31 30 3A 26 54 4E 2C 31 39 32 2C 31 |188,10:&TN,192,1|
00000F30: 30 00 77 17 7E 17 26 54 4E 2C 31 39 32 2C 33 30 |0.w.~.&TN,192,30|
00000F40: 3A 26 54 4E 2C 31 38 30 2C 31 30 3A 26 54 4E 2C |:&TN,180,10:&TN,|
00000F50: 31 38 30 2C 31 30 3A 26 54 4E 2C 31 38 38 2C 31 |180,10:&TN,188,1|
00000F60: 30 3A 26 54 4E 2C 32 30 30 2C 31 30 3A 26 54 4E |0:&TN,200,10:&TN|
00000F70: 2C 32 30 38 2C 34 30 00 7D 17 80 17 82 00 BB 17 |,208,40.}.......|
00000F80: 8E 17 26 52 45 3A 81 49 B2 31 A4 39 3A 26 43 4F |..&RE:.I.1.9:&CO|
00000F90: 2C 49 AA 33 3A 26 44 45 2C 49 2C 49 2C 34 31 AB |,I.3:&DE,I,I,41.|
00000FA0: 49 2C 32 36 AB 49 3A 26 46 49 3A 82 3A 26 53 59 |I,26.I:&FI:.:&SY|
00000FB0: 2C 32 3A 26 50 43 2C 39 2C 31 33 00 F5 17 A2 17 |,2:&PC,9,13.....|
00000FC0: 26 54 58 2C 22 C6 41 43 54 2D CF 50 49 4E 49 4F |&TX,".ACT-.PINIO|
00000FD0: 4E 22 3A 8D 36 32 30 30 3A 26 9E 31 39 33 34 31 |N":.6200:&.19341|
00000FE0: 3A 93 22 53 55 42 50 52 4F 47 52 41 4D 20 58 58 |:."SUBPROGRAM XX|
00000FF0: 2F 37 22 2C 38 00 25 18 38 18 A0 31 35 3A 9F 31 |/7",8.%.8..15:.1|
00001000: 35 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 4E 46 24 |5,8,15,"S0:".NF$|
00001010: 3A A0 31 35 3A 26 42 53 2C 4E 46 24 2C 38 36 38 |:.15:&BS,NF$,868|
00001020: 2C 36 33 3A 8E 00 00 00 FF 15 26 07 4C 24 28 33 |,63:......&.L$(3|
00001030: 29 B2 22 C6 52 41 4E 4B 4C 49 4E 20 4F 4E 20 49 |).".RANKLIN ON I|
00001040: 54 2E 22 00 14 16 30 07 4C 24 28 34 29 B2 22 20 |T."...0.L$(4)." |
00001050: 20 20 20 20 20 20 20 22 00 1A 16 6B 07 8E 00 2C | "...k...,|
00001060: 16 B8 0B 8F 20 20 50 41 55 53 45 20 53 55 42 53 |.... PAUSE SUBS|
00001070: 00 32 16 C2 0B 8E 00 38 16 CC 0B 8E 00 57 16 A0 |.2.....8.....W..|
00001080: 0F 8F 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |.. INSTRUCTIONS|
00001090: 20 41 4E 44 20 42 4C 4F 41 44 53 00 63 16 AA 0F | AND BLOADS.c...|
000010A0: 26 53 50 2C 32 32 30 00 91 16 B6 0F 26 53 59 2C |&SP,220.....&SY,|
000010B0: 31 3A 26 43 4F 2C 31 36 3A 26 44 45 2C 31 2C 32 |1:&CO,16:&DE,1,2|
000010C0: 31 2C 34 30 2C 32 33 3A 26 46 49 3A 20 26 50 43 |1,40,23:&FI: &PC|
000010D0: 2C 31 2C 32 31 00 BA 16 BA 0F 26 54 58 2C 22 D4 |,1,21.....&TX,".|
000010E0: 59 50 45 20 20 4F 20 20 49 46 20 54 48 45 20 53 |YPE O IF THE S|
000010F0: 45 4E 54 45 4E 43 45 20 41 42 4F 56 45 22 00 E3 |ENTENCE ABOVE"..|
00001100: 16 BB 0F 26 50 43 2C 31 30 2C 32 32 3A 26 54 58 |...&PC,10,22:&TX|
00001110: 2C 22 53 54 41 54 45 53 20 41 4E 20 28 4F 29 50 |,"STATES AN (O)P|
00001120: 49 4E 49 4F 4E 2E 22 00 16 17 BC 0F 26 50 43 2C |INION.".....&PC,|
00001130: 31 2C 32 33 3A 26 54 58 2C 22 D4 59 50 45 20 20 |1,23:&TX,".YPE |
00001140: 46 20 20 49 46 20 49 54 20 53 54 41 54 45 53 20 |F IF IT STATES |
00001150: 41 20 28 46 29 41 43 54 2E 22 00 5A 17 BD 0F 26 |A (F)ACT.".Z...&|
00001160: 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 32 35 2C |CO,160:&DE,1,25,|
00001170: 34 30 2C 32 35 3A 26 46 49 3A 26 50 43 2C 31 31 |40,25:&FI:&PC,11|
00001180: 2C 32 35 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 D4 |,25:&TX,".IT ...|
00001190: D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 66 |... TO GO ON.".f|
000011A0: 17 D2 0F 26 53 50 2C 32 35 35 00 6C 17 24 13 8E |...&SP,255.l.$..|
000011B0: 00 81 17 88 13 8F 20 20 44 49 53 50 4C 41 59 20 |...... DISPLAY |
000011C0: 53 43 4F 52 45 00 AF 17 92 13 26 53 59 2C 31 3A |SCORE.....&SY,1:|
000011D0: 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 31 39 |&CO,160:&DE,1,19|
000011E0: 2C 34 30 2C 32 30 3A 26 46 49 3A 26 50 43 2C 31 |,40,20:&FI:&PC,1|
000011F0: 2C 31 39 00 DC 17 93 13 26 54 58 2C 22 C7 4F 41 |,19.....&TX,".OA|
00001200: 4C 20 3D 20 36 20 52 49 47 48 54 20 49 4E 20 41 |L = 6 RIGHT IN A|
00001210: 20 52 4F 57 2E 20 20 D9 4F 55 20 48 41 56 45 22 | ROW. .OU HAVE"|
00001220: 00 F0 17 9C 13 26 20 53 59 2C 32 3A 20 26 20 43 |.....& SY,2: & C|
00001230: 4C 2C 34 30 00 0C 18 9D 13 52 52 24 20 B2 20 20 |L,40.....RR$ . |
00001240: C7 20 28 52 52 AA 34 38 29 3A 20 26 20 49 4E 56 |. (RR.48): & INV|
00001250: 00 34 18 A6 13 81 20 4A 4A 20 B2 20 30 20 A4 20 |.4.... JJ . 0 . |
00001260: 52 52 3A 20 26 50 43 2C 33 37 2C 31 39 3A 26 54 |RR: &PC,37,19:&T|
00001270: 58 2C 52 52 24 3A 20 82 00 53 18 B0 13 26 20 4E |X,RR$: ..S...& N|
00001280: 4F 3A 20 26 20 43 4C 2C 30 3A 20 26 20 44 49 2C |O: & CL,0: & DI,|
00001290: 30 3A 26 53 59 2C 31 00 59 18 E2 13 8E 00 9E 18 |0:&SY,1.Y.......|
000012A0: 4A 9C 97 38 37 30 2C 41 32 3A 26 48 47 3A 26 53 |J..870,A2:&HG:&S|
000012B0: 59 2C 31 3A 26 50 43 2C 35 2C 31 30 3A 26 54 58 |Y,1:&PC,5,10:&TX|
000012C0: 2C 22 57 4F 52 4B 49 4E 47 2E 2E 2E 22 3A 9E 31 |,"WORKING...":.1|
000012D0: 39 33 34 31 3A 93 22 4C 45 53 53 4F 4E 58 58 22 |9341:."LESSONXX"|
000012E0: 2C 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,6:.870,0......51,B(55):.
52,B(56)......19328...... SUBPROGRAM X
X/8.D.".SP .6 :NS . 9: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.X...J . . (
NS . . (1) . 1): . J . J1 . 140.....J1
. J: . J . . NS . RN . 1.0. .. J . 1010
,1110,1210,1310,1410,1510,1610,1710,1810
.C.... J .. 1 . 245.X...&CO,5:&DE,1,1,40
,15:&FI:&CO,69:&DE,2,2,39,14:&FI.....&CO
,27:&DE,2,2,39,14:&FI.....&PC,3,8:&TX,L$
(2):&PC,3,9:&TX,L$(3).U...&PC,3,10 :&TX,
L$(4).....&CO,160:&DE,1,16,10,17:&FI:&NO
.....&PC,2,16:&SY,2.....L$ . "F".....& E
NS,L$,1,T%,AL%.@.... AL%.0 . 260.Y...&SY
,1:L$. H (L$,AL%).R.... F (L$) . 3 . 2
72......((L$.."O").(L$.."F")).:&PC,2,16:
&SY,2:&TX," ":.258...... 280.....&RE:&S
Y,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:.891,W:.906,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".M...L$(2)
. "I BELIEVE THAT PEOPLE SHOULD NOT"...
..L$(3)."BORROW MONEY.".....L$(4)."
"...B.....V.L$(1)."O".>.`.L$(2) . "SP
AGHETTI MAKES A DELICIOUS AND".\.A.L$(3)
."INEXPENSIVE MEAL.".P.O.L$(4)." "
.V.........L$(1)."F"...D.L$(2) . "IN 194
3, PENNIES WERE NOT MADE".O.E.L$(3)."OF
COPPER. "...N.L$(4) . "
"...........L$(1)."O".).(.L$(2) . "SAVI
NG MONEY IS A GOOD IDEA.".D.).L$(3)."
"._.2.L$(4) . " ".
E.N...S...L$(1)."F". ...L$(2) . "INTERES
T IS MONEY PAID FOR THE".....L$(3)."USE
OF MONEY.".O. .L$(4) . " ".U.R.....
..L$(1) . "F".....L$(2)."PAPER MONEY WAS
INVENTED BY THE".&...L$(3)."CHINESE.".:
...L$(4)." ".@.6...N.J.L$(1)."F".Y
.T.L$(2)."THE WORD 'BANK' COMES FROM THE
"...^.L$(3)."ITALIAN WORD 'BANCA'."...H.
L$(4)." ".......B...L$(1)."O".....L
$(2)."AN EDUCATION IS REALLY A GOOD IN-"
...B.L$(3)."VESTMENT."...L.L$(4)."
".!...../...L$(1)."F".Y...L$(2)."A $10
0 BILL HAS A PORTRAIT OF".U.&.L$(3)."FRA
NKLIN ON IT."...0.L$(4)." "...K..
...... PAUSE SUBS...B.....L...M. .. IN
STRUCTIONS AND BLOADS.Y...&SP,220.)...&S
Y,1:&CO,16:&DE,1,21,5,23:&FI:&DE,9,21,40
,23:&FI:&CO,160:&DE,6,21,8,23:&FI.[...&P
C,1,21:&TX,"TYPE O IF THE SENTENCE ABO
VE".....&PC,10,22:&TX,"STATES AN (O)PINI
ON.".....&PC,1,23:&TX,"TYPE F IF IT ST
ATES A (F)ACT.".....&CO,160:&DE,1,25,40,
25:&FI:&PC,11,25:&TX,"HIT RETURN TO GO O
N."...R.&SP,255...$...".... DISPLAY SCO
RE.Q...:&SY,1:&CO,160:&DE,1,18,40,20:&FI
:&PC,1,19.~...&TX,"GOAL = 6 RIGHT IN A R
OW. YOU HAVE".....:&SY,2:&IN:&PC,37,18:
&TX," ".....RR$ . G (RR.48).K...:&PC,37
,19:&TX,RR$.Z...:&NO:&SY,1.........P.& R
E:&DK,"I.SLED",1.8.R.&CO,112:&DE,1,1,40,
12:&FI:&SY,2:&PC,4,8:&TX,"COOL SLEDDER!"
.[.T.. I . 1 . 30 . 1:&DP,1,I,16:..K.V.
. I . 1 . 2...X.&TN,192,10:&TN,192,10:&T
N,192,20:&TN,192,10:&TN,192,10:&TN,192,2
0...Z.&TN,192,10:&TN,180,10:&TN,208,10:&
TN,200,10:&TN,192,30.1.|.&TN,188,10:&TN,
188,10:&TN,188,10:&TN,188,5:&TN,188,10:&
TN,192,10.W.~.&TN,192,30:&TN,180,10:&TN,
180,10:&TN,188,10:&TN,200,10:&TN,208,40.
}.........&RE:.I.1.9:&CO,I.3:&DE,I,I,41.
I,26.I:&FI:.:&SY,2:&PC,9,13.....&TX,"FAC
T-OPINION":.6200:&.19341:."SUBPROGRAM XX
/7",8.%.8. 15:.15,8,15,"S0:".NF$: 15:&BS
,NF$,868,63:......&.L$(3)."FRANKLIN ON I
T."...0.L$(4)." "...K...,.... PA
USE SUBS.2.B...8.L...W. .. INSTRUCTIONS
AND BLOADS.C...&SP,220.....&SY,1:&CO,16
:&DE,1,21,40,23:&FI: &PC,1,21.....&TX,"T
YPE O IF THE SENTENCE ABOVE".....&PC,1
0,22:&TX,"STATES AN (O)PINION.".....&PC,
1,23:&TX,"TYPE F IF IT STATES A (F)ACT
.".Z...&CO,160:&DE,1,25,40,25:&FI:&PC,11
,25:&TX,"HIT RETURN TO GO ON.".F.R.&SP,2
55.L.$........ DISPLAY SCORE.....&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.4.... JJ . 0 . RR: &PC,37,19:&T
X,RR$: ..S...& NO: & CL,0: & DI,0:&SY,1.
Y.......J..870,A2:&HG:&SY,1:&PC,5,10:&TX
,"WORKING...":.19341:."LESSONXX",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL