WACKY STORIES
FILE INFORMATION
FILENAME(S): WACKY STORIES
FILE TYPE(S): PRG
FILE SIZE: 12.8K
FIRST SEEN: 2025-11-30 16:57:16
APPEARS ON: 3 disk(s)
FILE HASH
3ae547a1a9334c847463ef83dba917ed5ea4980c2cc098dceef0946d746fb01e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XX | WACKY STORIES | PRG | High Voltage Complete C64 Collection, Markus Merz | 31 | 9 | DOWNLOAD FILE |
| TALENTED RULERZ | WACKY STORIES | PRG | High Voltage Complete C64 Collection, Markus Merz | 31 | 9 | DOWNLOAD FILE |
| TALENTED RULERZ | WACKY STORIES | PRG | High Voltage Complete C64 Collection, Markus Merz | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 02 0A 5F 00 8B 55 46 B2 31 A7 8D 32 |+++..._..UF.1..2|
00000200: 34 30 00 0F 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 |40...d.UF.0:.:..|
00000210: 28 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 |(.f.. ++ CHECK D|
00000220: 45 4C 45 54 45 20 2B 2B 00 39 0A 69 00 8B C3 28 |ELETE ++.9.i...(|
00000230: 55 52 24 29 B3 31 A7 35 30 00 51 0A 6E 00 55 52 |UR$).1.50.Q.n.UR|
00000240: 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 |$..(UR$,.(UR$).1|
00000250: 29 00 63 0A 73 00 99 22 9D 20 20 9D 9D 22 3B 3A |).c.s..". ..";:|
00000260: 89 35 30 00 8A 0A 78 00 8F 20 2B 2B 20 43 48 45 |.50...x.. ++ CHE|
00000270: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
00000280: 52 41 43 54 45 52 53 20 2B 2B 00 9C 0A 7D 00 8B |RACTERS ++...}..|
00000290: C3 28 55 53 24 29 B2 30 A7 31 35 30 00 AD 0A 82 |.(US$).0.150....|
000002A0: 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 C4 0A |..US.1..(US$)...|
000002B0: 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C |...UI$..(US$,US,|
000002C0: 31 29 A7 8E 00 CA 0A 8C 00 82 00 D7 0A 91 00 55 |1).............U|
000002D0: 49 24 B2 22 22 3A 8E 00 F2 0A 96 00 8F 20 2A 2A |I$."":....... **|
000002E0: 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 | STANDARD INPUT |
000002F0: 2A 2A 00 03 0B 98 00 8B C6 28 55 49 24 29 B2 34 |**.......(UI$).4|
00000300: 36 A7 8E 00 14 0B 9B 00 8B 55 49 24 B2 C7 28 33 |6........UI$..(3|
00000310: 32 29 A7 8E 00 31 0B A0 00 8B C6 28 55 49 24 29 |2)...1.....(UI$)|
00000320: B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 |.48..(UI$).57.17|
00000330: 30 00 37 0B A5 00 8E 00 54 0B AA 00 8B C6 28 55 |0.7.....T.....(U|
00000340: 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 |I$).65..(UI$).90|
00000350: A7 31 38 30 00 5A 0B AF 00 8E 00 7E 0B B4 00 8B |.180.Z.....~....|
00000360: C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 |.(UI$).193..(UI$|
00000370: 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 A1 |).218.UI$."":...|
00000380: 0B B9 00 8B C2 28 55 54 29 B2 55 4C 25 A7 55 49 |.....(UT).UL%.UI|
00000390: 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 3A |$..(.(UI$).128):|
000003A0: 8E 00 A7 0B BB 00 8E 00 B4 0B BE 00 55 49 24 B2 |............UI$.|
000003B0: 22 22 3A 8E 00 D9 0B C3 00 55 46 B2 31 3A 8F 20 |"":......UF.1:. |
000003C0: 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 |+++ HELP ROUTINE|
000003D0: 20 45 58 49 54 20 2B 2B 2B 00 E2 0B C5 00 8D 32 | EXIT +++......2|
000003E0: 35 30 00 EB 0B C8 00 8D 32 34 35 00 0A 0C CD 00 |50......245.....|
000003F0: 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA |.UQ.UB.(U2%.256.|
00000400: 55 31 25 AA 55 33 25 AB 32 29 00 26 0C D2 00 55 |U1%.U3%.2).&...U|
00000410: 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A |Q%(UQ.UB)..(UQ):|
00000420: 82 3A 99 22 93 22 00 39 0C D7 00 55 5A B2 31 3A |.:.".".9...UZ.1:|
00000430: 55 56 25 B2 C2 28 55 54 29 00 42 0C D8 00 89 33 |UV%..(UT).B....3|
00000440: 30 30 00 86 0C D9 00 55 5A B2 30 3A 55 53 24 B2 |00.....UZ.0:US$.|
00000450: 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 |UJ$:UG$.UK$:UP.U|
00000460: 4A 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 30 30 33 |J:UL.UK:..(50003|
00000470: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
00000480: 32 38 30 2C 31 34 00 B3 0C DC 00 99 22 93 22 3B |280,14......".";|
00000490: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004A0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004B0: AB 33 29 00 C8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004C0: 55 51 AB 55 42 29 3A 82 00 D4 0C E6 00 97 55 31 |UQ.UB):.......U1|
000004D0: 2C 55 31 25 00 E0 0C E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
000004E0: 00 EC 0C E9 00 97 55 34 2C 55 34 25 00 FA 0C EA |......U4,U4%....|
000004F0: 00 97 55 33 2C 55 33 25 AB 31 00 02 0D EB 00 89 |..U3,U3%.1......|
00000500: 33 35 00 34 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.4...UD%.((U2%|
00000510: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000520: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000530: 31 29 3A 8E 00 6F 0D F5 00 99 C8 28 55 44 24 2C |1):..o.....(UD$,|
00000540: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000550: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000560: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
00000570: 9B 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
00000580: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
00000590: 29 3A 55 34 25 B2 C2 28 55 34 29 00 AD 0D FB 00 |):U4%..(U4).....|
000005A0: 55 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 CD 0D |UJ$.US$:UJ.UL...|
000005B0: FC 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 |..UJ$.US$:UK$.UG|
000005C0: 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 D3 0D |$:UJ.UP:UK.UL...|
000005D0: FF 00 8E 00 E4 0D 2C 01 8F 20 2A 2A 20 4D 45 4E |......,.. ** MEN|
000005E0: 55 20 2A 2A 00 EA 0D 2D 01 3A 00 19 0E 2E 01 99 |U **...-.:......|
000005F0: 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |".":.UT,UU%:..(5|
00000600: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 |0003).0..53281,9|
00000610: 3A 97 35 33 32 38 30 2C 38 00 1F 0E 2F 01 3A 00 |:.53280,8.../.:.|
00000620: 3E 0E 31 01 99 22 13 11 11 20 20 20 20 20 20 20 |>.1.."... |
00000630: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 6E | MENU".n|
00000640: 0E 36 01 99 22 11 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.6..". ---------|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 93 |-------------"..|
00000670: 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 20 20 |.;..".. |
00000680: 31 2E 20 20 20 57 41 43 4B 59 20 53 54 4F 52 49 |1. WACKY STORI|
00000690: 45 53 22 00 B7 0E 40 01 99 22 11 11 20 20 20 20 |ES"...@..".. |
000006A0: 20 20 20 20 20 32 2E 20 20 20 49 4E 53 54 52 55 | 2. INSTRU|
000006B0: 43 54 49 4F 4E 53 22 00 E1 0E 45 01 99 22 11 11 |CTIONS"...E.."..|
000006C0: 20 20 20 20 20 20 20 20 20 33 2E 20 20 20 41 44 | 3. AD|
000006D0: 44 45 44 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |DED INSTRUCTIONS|
000006E0: 22 00 FE 0E 51 01 99 22 11 11 20 20 20 20 20 20 |"...Q..".. |
000006F0: 20 20 20 34 2E 20 20 20 51 55 49 54 11 22 00 2E | 4. QUIT."..|
00000700: 0F 54 01 99 22 11 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T..". ---------|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 5A |-------------".Z|
00000730: 0F 59 01 99 22 11 11 11 20 20 20 20 20 20 20 50 |.Y.."... P|
00000740: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE|
00000750: 59 20 28 31 2D 34 29 20 22 3B 00 82 0F 5E 01 55 |Y (1-4) ";...^.U|
00000760: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D |L.1:US$."1234":.|
00000770: 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 |35:. INPUT ROUTI|
00000780: 4E 45 00 94 0F 5F 01 8B C3 28 55 52 24 29 B1 31 |NE..._...(UR$).1|
00000790: A7 33 30 30 00 9F 0F 60 01 55 53 24 B2 22 22 00 |.300...`.US$."".|
000007A0: BD 0F 63 01 91 20 C5 28 55 52 24 29 8D 31 30 30 |..c.. .(UR$).100|
000007B0: 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 00 C6 0F |0,400,500,396...|
000007C0: 68 01 89 33 30 30 00 ED 0F 8B 01 8F 20 2A 2A 20 |h..300...... ** |
000007D0: 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B |RE-ENABLE STOP K|
000007E0: 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 1C 10 |EY AND END **...|
000007F0: 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 |....(50003)..1..|
00000800: 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 |(50003)..160..(5|
00000810: 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 27 10 8D |0003)..0.399.'..|
00000820: 01 9E 55 55 AA 37 31 00 32 10 8E 01 89 36 33 30 |..UU.71.2....630|
00000830: 30 30 00 3D 10 8F 01 8D 38 37 35 3A 8E 00 5E 10 |00.=....875:..^.|
00000840: 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 |... ** STUDENT I|
00000850: 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 8D |NSTRUCTIONS **..|
00000860: 10 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000870: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000880: 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 AE 10 |81,0:.53280,0...|
00000890: 9A 01 55 50 B2 30 3A 55 47 24 B2 22 C9 4E 53 54 |..UP.0:UG$.".NST|
000008A0: 52 55 43 54 49 4F 4E 53 22 3A 8D 38 35 30 00 DD |RUCTIONS":.850..|
000008B0: 10 9F 01 99 22 11 11 20 D5 53 49 4E 47 20 54 48 |....".. .SING TH|
000008C0: 49 53 20 50 52 4F 47 52 41 4D 20 59 4F 55 20 41 |IS PROGRAM YOU A|
000008D0: 52 45 20 47 4F 49 4E 47 20 54 4F 20 22 00 03 11 |RE GOING TO "...|
000008E0: A2 01 99 22 11 20 43 52 45 41 54 45 20 41 20 52 |...". CREATE A R|
000008F0: 41 54 48 45 52 20 57 45 49 52 44 20 53 54 4F 52 |ATHER WEIRD STOR|
00000900: 59 2E 22 00 30 11 A9 01 99 22 11 20 C5 4E 54 45 |Y.".0....". .NTE|
00000910: 52 20 59 4F 55 52 20 57 4F 52 44 53 20 49 4E 54 |R YOUR WORDS INT|
00000920: 4F 20 54 48 45 20 43 4F 4D 50 55 54 45 52 2E 22 |O THE COMPUTER."|
00000930: 00 5D 11 AE 01 99 22 11 20 D0 4C 45 41 53 45 20 |.]....". .LEASE |
00000940: 52 45 4D 45 4D 42 45 52 20 54 4F 20 50 52 45 53 |REMEMBER TO PRES|
00000950: 53 20 3C 52 45 54 55 52 4E 3E 20 2E 22 00 8C 11 |S <RETURN> ."...|
00000960: AF 01 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 20 20 20 20 20 20 20 20 20 22 00 BB 11 B0 | "....|
00000990: 01 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009B0: 20 20 20 20 20 20 20 20 20 20 22 00 EA 11 B1 01 | ".....|
000009C0: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009E0: 20 20 20 20 20 20 20 20 20 22 00 F3 11 E5 01 8D | "......|
000009F0: 38 33 35 00 07 12 EA 01 8B 55 5A B2 31 A7 9E 55 |835......UZ.1..U|
00000A00: 50 25 3A 89 32 31 37 00 0D 12 F3 01 8E 00 2E 12 |P%:.217.........|
00000A10: F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 |... ** TEACHER I|
00000A20: 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 5E |NSTRUCTIONS **.^|
00000A30: 12 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000A40: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000A50: 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 7F |81,2:.53280,10..|
00000A60: 12 F6 01 55 50 B2 30 3A 55 47 24 B2 22 C9 4E 53 |...UP.0:UG$.".NS|
00000A70: 54 52 55 43 54 49 4F 4E 53 22 3A 8D 38 35 30 00 |TRUCTIONS":.850.|
00000A80: A3 12 F7 01 99 22 11 11 20 20 20 20 20 20 20 20 |.....".. |
00000A90: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000AA0: 55 52 22 00 CA 12 F8 01 99 22 11 20 20 20 20 20 |UR"......". |
00000AB0: 20 20 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 49 | KNOWLEDGE THI|
00000AC0: 53 20 50 52 4F 47 52 41 4D 22 00 F2 12 F9 01 99 |S PROGRAM"......|
00000AD0: 22 11 20 20 20 20 20 20 20 20 49 53 20 49 4E 20 |". IS IN |
00000AE0: 54 48 45 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 |THE PUBLIC DOMAI|
00000AF0: 4E 2E 00 1E 13 FB 01 99 22 11 11 20 20 20 20 20 |N.......".. |
00000B00: 20 C7 52 45 45 4E 20 D6 41 4C 4C 45 59 20 D0 55 | .REEN .ALLEY .U|
00000B10: 42 4C 49 53 48 49 4E 47 20 C9 4E 43 2E 22 00 40 |BLISHING .NC.".@|
00000B20: 13 FC 01 99 22 11 20 20 20 20 20 20 37 31 32 32 |....". 7122|
00000B30: 20 D3 48 41 44 59 20 CF 41 4B 20 D2 4F 41 44 22 | .HADY .AK .OAD"|
00000B40: 00 66 13 FD 01 99 22 11 20 20 20 20 20 20 C5 44 |.f....". .D|
00000B50: 45 4E 20 D0 52 41 49 52 49 45 2C 20 CD CE 20 20 |EN .RAIRIE, .. |
00000B60: 35 35 33 34 34 22 00 7C 13 00 02 55 50 B2 31 3A |55344".|...UP.1:|
00000B70: 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 A6 13 01 |. 835:. 850:....|
00000B80: 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 |.." ...ROGRA|
00000B90: 4D 20 CE 41 4D 45 3A 20 D7 41 43 4B 59 20 D3 54 |M .AME: .ACKY .T|
00000BA0: 4F 52 49 45 53 11 00 CC 13 02 02 99 22 20 20 20 |ORIES......." |
00000BB0: 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 | .RITTEN .Y : |
00000BC0: C4 41 56 49 44 20 DA 49 4E 4E 20 11 00 F2 13 03 |.AVID .INN .....|
00000BD0: 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 |.." .PGRADED|
00000BE0: 20 C2 59 20 3A 20 D3 43 4F 54 54 20 C2 52 55 4E | .Y : .COTT .RUN|
00000BF0: 53 11 00 1D 14 04 02 99 22 20 20 20 20 20 11 D4 |S......." ..|
00000C00: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000C10: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 46 14 | RUN ON ANY...F.|
00000C20: 08 02 99 22 11 11 11 11 20 20 20 20 20 20 20 20 |...".... |
00000C30: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000C40: CD D0 D5 D4 C5 D2 00 4F 14 09 02 8D 38 33 35 00 |.......O....835.|
00000C50: 63 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |c.N..UZ.1..UP%:.|
00000C60: 32 31 37 00 69 14 57 02 8E 00 8F 14 58 02 8F 20 |217.i.W.....X.. |
00000C70: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000C80: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000C90: A0 14 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000CA0: 00 C0 14 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".|
00000CB0: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000CC0: 00 CB 14 62 02 8D 31 30 30 30 30 00 DF 14 B2 02 |...b..10000.....|
00000CD0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000CE0: E5 14 BB 02 8E 00 0A 15 BC 02 8F 20 2A 2A 20 54 |........... ** T|
00000CF0: 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 |O USE 8032 LOAD |
00000D00: 43 42 4D 34 30 33 32 20 2A 2A 00 40 15 C6 02 99 |CBM4032 **.@....|
00000D10: 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E |".....BEFORE RUN|
00000D20: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
00000D30: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
00000D40: 00 76 15 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 |.v...." LOA|
00000D50: 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 |D THE 'CBM 4032'|
00000D60: 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 | PROGRAM........|
00000D70: 11 11 11 11 11 22 00 81 15 DA 02 9E 55 55 AA 37 |....."......UU.7|
00000D80: 31 00 87 15 E4 02 80 00 A7 15 20 03 8F 20 2A 2A |1......... .. **|
00000D90: 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 | T I T L E P A|
00000DA0: 20 47 20 45 20 2A 2A 00 DB 15 22 03 99 22 93 11 | G E **...".."..|
00000DB0: 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |..";:.UT,UU%:..(|
00000DC0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C |50003).0..53280,|
00000DD0: 31 34 3A 97 35 33 32 38 31 2C 36 00 F1 15 24 03 |14:.53281,6...$.|
00000DE0: 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A |.I.1.38:."...";:|
00000DF0: 82 00 09 16 26 03 81 49 B2 31 A4 32 32 3A 99 22 |....&..I.1.22:."|
00000E00: 11 9D 12 A6 92 22 3B 3A 82 00 21 16 28 03 81 49 |.....";:..!.(..I|
00000E10: B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A |.1.37:.".....";:|
00000E20: 82 00 39 16 2A 03 81 49 B2 31 A4 32 32 3A 99 22 |..9.*..I.1.22:."|
00000E30: 91 9D 12 A6 92 22 3B 3A 82 00 60 16 2C 03 99 22 |.....";:..`.,.."|
00000E40: 13 11 11 11 11 1D 1D 1D 1D 20 20 20 20 20 20 20 |......... |
00000E50: 20 20 57 41 43 4B 59 20 53 54 4F 52 49 45 53 22 | WACKY STORIES"|
00000E60: 00 8D 16 2E 03 99 22 11 11 1D 1D 1D 1D 48 41 56 |......"......HAV|
00000E70: 45 20 54 48 45 20 54 49 4D 45 20 4F 46 20 59 4F |E THE TIME OF YO|
00000E80: 55 52 20 4C 49 46 45 21 20 54 48 45 22 00 BA 16 |UR LIFE! THE"...|
00000E90: 30 03 99 22 11 1D 1D 1D 1D 43 4F 4D 50 55 54 45 |0..".....COMPUTE|
00000EA0: 52 20 57 49 4C 4C 20 57 52 49 54 45 20 54 48 45 |R WILL WRITE THE|
00000EB0: 20 53 54 4F 52 49 45 53 2E 22 00 E4 16 32 03 99 | STORIES."...2..|
00000EC0: 22 11 1D 1D 1D 1D 20 20 41 4C 4C 20 59 4F 55 20 |"..... ALL YOU |
00000ED0: 48 41 56 45 20 54 4F 20 44 4F 20 49 53 20 45 4E |HAVE TO DO IS EN|
00000EE0: 54 45 52 22 00 0D 17 34 03 99 22 11 1D 1D 1D 1D |TER"...4..".....|
00000EF0: 20 20 20 56 45 52 42 53 2C 20 4E 4F 55 4E 53 2C | VERBS, NOUNS,|
00000F00: 20 41 44 4A 45 43 54 49 56 45 53 2C 22 00 39 17 | ADJECTIVES,".9.|
00000F10: 36 03 99 22 11 1D 1D 1D 1D 41 44 56 45 52 42 53 |6..".....ADVERBS|
00000F20: 20 41 4E 44 20 32 20 46 41 4D 4F 55 53 20 42 55 | AND 2 FAMOUS BU|
00000F30: 49 4C 44 49 4E 47 53 2E 22 00 60 17 38 03 99 22 |ILDINGS.".`.8.."|
00000F40: 11 1D 1D 1D 1D 20 20 20 20 20 20 54 48 45 20 4C |..... THE L|
00000F50: 41 55 47 48 53 20 41 52 45 20 46 52 45 45 2C 22 |AUGHS ARE FREE,"|
00000F60: 00 87 17 39 03 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |...9..".........|
00000F70: 1D 20 53 4F 20 48 41 56 45 20 4C 4F 54 53 20 4F |. SO HAVE LOTS O|
00000F80: 46 20 46 55 4E 2E 22 00 A2 17 3A 03 8F 20 2A 2A |F FUN."...:.. **|
00000F90: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00000FA0: 2A 2A 00 DA 17 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00000FB0: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00000FC0: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00000FD0: 57 41 49 54 92 22 3A 49 B2 30 00 FC 17 3C 03 A1 |WAIT.":I.0...<..|
00000FE0: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
00000FF0: 31 3A 8B 49 B3 38 30 30 A7 38 32 38 00 20 18 3E |1:.I.800.828. .>|
00001000: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
00001010: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
00001020: 00 29 18 40 03 89 33 30 30 00 45 18 43 03 8F 20 |.).@..300.E.C.. |
00001030: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001040: 53 53 20 2A 2A 00 56 18 45 03 81 58 B2 31 A4 33 |SS **.V.E..X.1.3|
00001050: 30 30 30 3A 82 58 00 91 18 48 03 97 55 4F 2C 30 |000:.X...H..UO,0|
00001060: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |:..(UD$,24);"...|
00001070: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001080: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |BAR TO CONTINUE.|
00001090: 22 00 A8 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |"...L..UI$:.UI$.|
000010A0: B1 22 20 22 A7 38 34 34 00 AE 18 4E 03 8E 00 CE |." ".844...N....|
000010B0: 18 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
000010C0: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 DA |IGN ROUTINE **..|
000010D0: 18 54 03 55 50 B2 55 50 AA 31 00 04 19 57 03 99 |.T.UP.UP.1...W..|
000010E0: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
000010F0: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
00001100: 2C 31 38 29 00 33 19 5C 03 99 22 20 2D 2D 2D 2D |,18).3.\.." ----|
00001110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001130: 2D 2D 22 00 42 19 60 03 8B 55 48 B3 B1 30 A7 38 |--".B.`..UH..0.8|
00001140: 37 30 00 5B 19 61 03 99 C8 28 55 44 24 2C 32 34 |70.[.a...(UD$,24|
00001150: 29 3B C8 28 55 50 24 2C 36 29 3B 00 6C 19 66 03 |);.(UP$,6);.l.f.|
00001160: 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 8B 19 6B |UH.0:."..":....k|
00001170: 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 |.. ** PLEASE WAI|
00001180: 54 20 52 45 4D 41 52 4B 20 2A 2A 00 C1 19 70 03 |T REMARK **...p.|
00001190: 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 |..(UD$,24);" |
000011A0: 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E | ONE MOMEN|
000011B0: 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 |T PLEASE... |
000011C0: 22 00 C7 19 75 03 8E 00 E4 19 84 03 8F 20 2A 2A |"...u........ **|
000011D0: 20 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 | SET UP VARIABLE|
000011E0: 53 20 2A 2A 00 2F 1A 85 03 55 58 24 B2 22 48 22 |S **./...UX$."H"|
000011F0: 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 |:.UQ%(1000):UB.3|
00001200: 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 |2768:U1.196:U2.1|
00001210: 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 |97:U3.198:U4.216|
00001220: 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 |:UC.167:UU.1024.|
00001230: 6D 1A 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 |m...UT.59468:UU%|
00001240: B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 |.12:UL%.14:UP%.1|
00001250: 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 |146:UM.32768:UO.|
00001260: 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 B0 1A |158:. 50003,0...|
00001270: 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 |....(50003).0.UB|
00001280: B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 |.1024:U1.209:U2.|
00001290: 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 |210:U3.211:U4.21|
000012A0: 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 |4:UC.204:UU.2048|
000012B0: 00 EF 1A 88 03 8B C2 28 35 30 30 30 33 29 B2 30 |.......(50003).0|
000012C0: A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 |.UT.53272:UU%.21|
000012D0: 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 |:UL%.23:UP%.2139|
000012E0: 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 |:UM.1024:UO.198.|
000012F0: 13 1B 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 |....UD$.".......|
00001300: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001310: 11 11 22 00 45 1B 8A 03 55 50 24 B2 22 20 20 20 |..".E...UP$." |
00001320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001340: 20 20 20 20 22 00 92 1B 8B 03 55 54 24 B2 22 20 | ".....UT$." |
00001350: D7 41 43 4B 59 20 D3 54 4F 52 49 45 53 A0 A0 A0 |.ACKY .TORIES...|
00001360: A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 |.":. PLACE PROGR|
00001370: 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 |AM TITLE HERE !!|
00001380: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A |!!!!!!!!!!!!!!!*|
00001390: 2A 2A 00 98 1B 8C 03 8E 00 B2 1B 8E 03 8F 20 2A |**............ *|
000013A0: 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 |* SET VARIABLES |
000013B0: 2A 2A 00 BB 1B 93 03 8D 39 30 30 00 D6 1B 98 03 |**......900.....|
000013C0: 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 |. ** CHECK FOR 8|
000013D0: 30 33 32 20 2A 2A 00 F4 1B 9D 03 99 22 93 22 3A |032 **......".":|
000013E0: 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 |.".":. SHIFTED S|
000013F0: 50 41 43 45 00 0B 1C A2 03 8B C2 28 55 42 AA 34 |PACE.......(UB.4|
00001400: 30 29 B3 B1 39 36 A7 8D 37 30 30 00 24 1C A3 03 |0)..96..700.$...|
00001410: 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 |. ** MEMORY CHEC|
00001420: 4B 20 2A 2A 00 38 1C A4 03 8B 20 B8 28 30 29 B1 |K **.8.... .(0).|
00001430: 32 30 30 30 A7 39 33 37 00 66 1C A5 03 99 22 93 |2000.937.f....".|
00001440: 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 |...THIS MACHINE |
00001450: 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E |DOES NOT HAVE EN|
00001460: 4F 55 47 48 11 22 00 8A 1C A6 03 99 22 4D 45 4D |OUGH."......"MEM|
00001470: 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 |ORY TO RUN THIS |
00001480: 50 52 4F 47 52 41 4D 20 21 22 00 95 1C A7 03 9E |PROGRAM !"......|
00001490: 55 55 AA 37 31 00 9B 1C A8 03 80 00 B5 1C A9 03 |UU.71...........|
000014A0: 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 |."..":..(50003).|
000014B0: 30 A7 39 36 32 00 E4 1C AC 03 8F 20 2A 2A 20 42 |0.962...... ** B|
000014C0: 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E |ASIC 2.0 OR 4.|
000014D0: 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 |0 OR C-64 SETU|
000014E0: 50 20 2A 2A 00 22 1D AD 03 97 31 30 37 35 2C 31 |P **."....1075,1|
000014F0: 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 |33:.1076,144:.10|
00001500: 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 |77,234:.1079,4:.|
00001510: 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 |1080,133:.1081,1|
00001520: 34 35 00 58 1D AE 03 97 31 30 39 31 2C 31 35 35 |45.X....1091,155|
00001530: 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 |:.1098,133:.1099|
00001540: 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 |,144:.1100,234:.|
00001550: 31 31 30 33 2C 31 33 33 00 7A 1D AF 03 97 31 31 |1103,133.z....11|
00001560: 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 |04,145:.1105,234|
00001570: 3A 97 31 30 38 32 2C 32 33 34 00 91 1D B1 03 8B |:.1082,234......|
00001580: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 |.(50003)..160.95|
00001590: 35 00 C0 1D B6 03 97 31 30 39 33 2C 38 38 3A 97 |5......1093,88:.|
000015A0: 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 |1094,228:.1097,8|
000015B0: 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 |5:.1102,228:.965|
000015C0: 00 D5 1D BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.......(50003)..|
000015D0: 31 A7 39 39 30 00 04 1E C0 03 97 31 30 39 33 2C |1.990......1093,|
000015E0: 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 |49:.1094,230:.10|
000015F0: 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A |97,46:.1102,230:|
00001600: 89 39 36 35 00 3E 1E C2 03 97 32 30 39 39 2C 31 |.965.>....2099,1|
00001610: 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 |41:.2100,20:.210|
00001620: 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 |1,3:.2103,8:.210|
00001630: 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 7A |4,141:.2105,21.z|
00001640: 1E C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 |....2106,3:.2115|
00001650: 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 |,145:.2117,52:.2|
00001660: 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 |118,234:.2121,49|
00001670: 3A 97 32 31 32 32 2C 31 34 31 00 B4 1E C4 03 97 |:.2122,141......|
00001680: 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A |2123,20:.2124,3:|
00001690: 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C |.2126,234:.2127,|
000016A0: 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 |141:.2128,21:.21|
000016B0: 32 39 2C 33 00 D2 1E C5 03 9E 55 55 AA 34 38 3A |29,3......UU.48:|
000016C0: 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B |. DISABLE STOP K|
000016D0: 45 59 00 E3 1E CA 03 8D 38 30 30 3A 8F 20 54 49 |EY......800:. TI|
000016E0: 54 4C 45 00 F3 1E D4 03 89 33 30 30 3A 8F 20 4D |TLE......300:. M|
000016F0: 45 4E 55 00 24 1F DE 03 99 22 93 54 48 45 20 50 |ENU.$....".THE P|
00001700: 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B |GM WILL NOT WORK|
00001710: 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 | ON THIS MACHINE|
00001720: 21 22 3A 80 00 59 1F E8 03 8B 55 5A B2 31 A7 9E |!":..Y....UZ.1..|
00001730: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 |UP%:.UP%:UZ.0:. |
00001740: 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 |** PROGRAM START|
00001750: 53 20 48 45 52 45 20 2A 2A 00 84 1F E9 03 99 22 |S HERE **......"|
00001760: 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 |..";:.:..(50003)|
00001770: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
00001780: 38 30 2C 36 00 95 1F 9C 04 99 22 93 22 3A 97 55 |80,6......".":.U|
00001790: 54 2C 55 55 25 00 C4 1F BA 04 99 22 11 11 20 50 |T,UU%......".. P|
000017A0: 4C 45 41 53 45 20 47 49 56 45 20 4D 45 20 54 57 |LEASE GIVE ME TW|
000017B0: 4F 20 4E 41 4D 45 53 20 28 4F 46 20 50 45 4F 50 |O NAMES (OF PEOP|
000017C0: 4C 45 29 22 00 D7 1F C3 04 99 22 20 4E 41 4D 45 |LE)"......" NAME|
000017D0: 20 23 31 3F 20 22 3B 00 F9 1F C4 04 55 53 24 B2 | #1? ";.....US$.|
000017E0: 22 22 3A 55 4C B2 32 30 3A 8D 33 35 3A 4E 41 4D |"":UL.20:.35:NAM|
000017F0: 45 24 28 31 29 B2 55 52 24 00 1D 20 C9 04 99 22 |E$(1).UR$.. ..."|
00001800: 20 4E 41 4D 45 20 23 32 3F 20 22 3B 3A 8D 33 35 | NAME #2? ";:.35|
00001810: 3A 4E 41 4D 45 24 28 32 29 B2 55 52 24 00 26 20 |:NAME$(2).UR$.& |
00001820: D3 04 99 22 93 22 00 5D 20 D8 04 81 49 B2 31 A4 |...".".] ...I.1.|
00001830: 34 3A 99 22 20 4E 4F 55 4E 20 23 22 3B 49 3B 22 |4:." NOUN #";I;"|
00001840: 3F 20 22 3B 3A 8D 33 35 3A 4E 4F 55 4E 24 28 49 |? ";:.35:NOUN$(I|
00001850: 29 B2 55 52 24 3A 82 49 3A 99 22 93 22 00 7F 20 |).UR$:.I:.".".. |
00001860: E2 04 99 22 11 20 45 49 47 48 54 20 41 44 4A 45 |...". EIGHT ADJE|
00001870: 43 54 49 56 45 53 2C 20 50 4C 45 41 53 45 22 00 |CTIVES, PLEASE".|
00001880: B9 20 EC 04 81 20 49 B2 31 20 A4 20 38 3A 99 22 |. ... I.1 . 8:."|
00001890: 20 41 44 4A 45 43 54 49 56 45 20 23 22 3B 49 3B | ADJECTIVE #";I;|
000018A0: 22 3F 20 22 3B 3A 8D 33 35 3A 41 44 4A 24 28 49 |"? ";:.35:ADJ$(I|
000018B0: 29 B2 55 52 24 3A 82 20 49 00 DA 20 F6 04 99 22 |).UR$:. I.. ..."|
000018C0: 11 20 46 4F 55 52 20 56 45 52 42 53 20 57 4F 55 |. FOUR VERBS WOU|
000018D0: 4C 44 20 42 45 20 4E 49 43 45 00 15 21 00 05 81 |LD BE NICE..!...|
000018E0: 20 49 B2 31 20 A4 20 34 3A 99 22 20 56 45 52 42 | I.1 . 4:." VERB|
000018F0: 20 23 22 3B 49 3B 22 3F 20 22 3B 3A 8D 33 35 3A | #";I;"? ";:.35:|
00001900: 56 45 52 42 24 28 49 29 B2 55 52 24 3A 82 20 49 |VERB$(I).UR$:. I|
00001910: 3A 99 22 93 22 00 2C 21 0A 05 99 22 11 4E 4F 57 |:.".".,!...".NOW|
00001920: 20 53 49 58 20 41 44 56 45 52 42 53 00 65 21 14 | SIX ADVERBS.e!.|
00001930: 05 81 20 49 B2 31 20 A4 20 36 3A 99 22 20 41 44 |.. I.1 . 6:." AD|
00001940: 56 45 52 42 20 23 22 3B 49 3B 22 3F 20 22 3B 3A |VERB #";I;"? ";:|
00001950: 8D 33 35 3A 41 56 45 52 42 24 28 49 29 B2 55 52 |.35:AVERB$(I).UR|
00001960: 24 3A 82 20 49 00 90 21 1E 05 99 22 11 20 46 49 |$:. I..!...". FI|
00001970: 4E 41 4C 4C 59 20 54 48 45 20 4E 41 4D 45 53 20 |NALLY THE NAMES |
00001980: 4F 46 20 54 57 4F 20 42 55 49 4C 44 49 4E 47 53 |OF TWO BUILDINGS|
00001990: 00 A7 21 27 05 99 22 20 42 55 49 4C 44 49 4E 47 |..!'.." BUILDING|
000019A0: 20 23 31 3F 20 22 3B 00 DC 21 28 05 8D 33 35 3A | #1? ";..!(..35:|
000019B0: 42 55 24 28 31 29 B2 55 52 24 3A 99 22 20 42 55 |BU$(1).UR$:." BU|
000019C0: 49 4C 44 49 4E 47 20 23 32 3F 20 22 3B 3A 8D 33 |ILDING #2? ";:.3|
000019D0: 35 3A 42 55 24 28 32 29 B2 55 52 24 00 F1 21 29 |5:BU$(2).UR$..!)|
000019E0: 05 55 53 24 B2 22 31 32 33 34 48 22 3A 55 4C B2 |.US$."1234H":UL.|
000019F0: 31 00 23 22 2A 05 99 22 93 20 20 57 48 49 43 48 |1.#"*..". WHICH|
00001A00: 20 53 54 4F 52 59 20 46 49 52 53 54 20 28 31 2C | STORY FIRST (1,|
00001A10: 32 2C 33 2C 34 3D 51 55 49 54 29 3F 20 22 3B 3A |2,3,4=QUIT)? ";:|
00001A20: 8D 33 35 00 2E 22 2D 05 56 24 B2 55 52 24 00 51 |.35.."-.V$.UR$.Q|
00001A30: 22 32 05 91 20 C5 28 56 24 29 20 8D 20 31 33 33 |"2.. .(V$) . 133|
00001A40: 35 2C 32 30 30 30 2C 33 30 30 30 2C 32 30 30 30 |5,2000,3000,2000|
00001A50: 30 00 5B 22 34 05 89 31 33 32 32 00 71 22 37 05 |0.["4..1322.q"7.|
00001A60: 99 22 93 11 11 20 48 45 52 45 20 57 45 20 47 4F |."... HERE WE GO|
00001A70: 21 00 B1 22 3C 05 99 22 11 20 54 48 45 20 47 52 |!.."<..". THE GR|
00001A80: 45 41 54 20 57 49 5A 2C 20 22 3B 4E 41 4D 45 24 |EAT WIZ, ";NAME$|
00001A90: 28 31 29 3B 22 20 44 52 49 46 54 45 44 20 22 3B |(1);" DRIFTED ";|
00001AA0: 41 56 45 52 42 24 28 31 29 3B 22 20 44 4F 57 4E |AVERB$(1);" DOWN|
00001AB0: 22 00 B7 22 41 05 99 00 F9 22 46 05 99 22 20 54 |".."A...."F.." T|
00001AC0: 48 45 20 22 3B 41 44 24 28 31 29 3B 22 20 22 3B |HE ";AD$(1);" ";|
00001AD0: 4E 4F 24 28 31 29 3B 22 20 4F 46 20 53 4F 55 54 |NO$(1);" OF SOUT|
00001AE0: 48 20 4C 59 4F 4E 2E 22 3A 99 3A 99 22 20 54 57 |H LYON.":.:." TW|
00001AF0: 4F 20 42 4C 4F 43 4B 53 22 00 FF 22 4B 05 99 00 |O BLOCKS".."K...|
00001B00: 3D 23 50 05 99 22 20 46 52 4F 4D 20 54 48 45 20 |=#P.." FROM THE |
00001B10: 22 3B 41 44 4A 24 28 32 29 3B 22 20 45 4C 45 4D |";ADJ$(2);" ELEM|
00001B20: 45 4E 54 41 52 59 20 53 43 48 4F 4F 4C 22 3A 99 |ENTARY SCHOOL":.|
00001B30: 3A 99 22 20 41 50 50 45 41 52 45 44 22 00 43 23 |:." APPEARED".C#|
00001B40: 55 05 99 00 78 23 5A 05 99 22 20 41 4E 20 4F 4C |U...x#Z.." AN OL|
00001B50: 44 20 45 4E 45 4D 59 20 22 3B 4E 41 4D 45 24 28 |D ENEMY ";NAME$(|
00001B60: 32 29 3B 22 20 52 55 4E 4E 49 4E 47 20 22 3B 41 |2);" RUNNING ";A|
00001B70: 56 45 52 42 24 28 32 29 00 7E 23 5F 05 99 00 A9 |VERB$(2).~#_....|
00001B80: 23 64 05 99 22 20 41 43 52 4F 53 53 20 54 48 45 |#d.." ACROSS THE|
00001B90: 20 22 3B 41 44 4A 24 28 33 29 3B 22 20 22 3B 4E | ";ADJ$(3);" ";N|
00001BA0: 4F 55 4E 24 28 32 29 3A 99 00 D0 23 67 05 99 22 |OUN$(2):...#g.."|
00001BB0: 20 4F 46 20 41 20 22 3B 41 44 4A 24 28 34 29 3B | OF A ";ADJ$(4);|
00001BC0: 22 20 22 3B 4E 4F 55 4E 24 28 33 29 3B 22 2E 22 |" ";NOUN$(3);"."|
00001BD0: 00 D6 23 69 05 99 00 E7 23 6A 05 8D 20 38 33 35 |..#i....#j.. 835|
00001BE0: 3A 99 22 93 11 11 22 00 29 24 6E 05 99 22 20 27 |:."...".)$n.." '|
00001BF0: 49 20 57 49 4C 4C 20 22 3B 56 45 52 42 24 28 31 |I WILL ";VERB$(1|
00001C00: 29 3B 22 20 59 4F 55 20 57 49 54 48 20 41 20 22 |);" YOU WITH A "|
00001C10: 3A 99 3A 99 22 20 22 41 44 4A 24 28 35 29 3B 22 |:.:." "ADJ$(5);"|
00001C20: 20 53 50 45 4C 4C 2C 27 22 00 2F 24 73 05 99 00 | SPELL,'"./$s...|
00001C30: 5B 24 78 05 99 22 20 53 48 4F 55 54 45 44 20 22 |[$x.." SHOUTED "|
00001C40: 3B 4E 41 4D 45 24 28 31 29 3B 22 20 22 3B 41 56 |;NAME$(1);" ";AV|
00001C50: 45 52 42 24 28 33 29 3B 22 2E 22 00 61 24 7D 05 |ERB$(3);".".a$}.|
00001C60: 99 00 9B 24 82 05 99 22 20 27 49 20 43 41 4E 20 |...$..." 'I CAN |
00001C70: 22 3B 56 45 52 42 24 28 32 29 3B 22 20 59 4F 55 |";VERB$(2);" YOU|
00001C80: 20 57 49 54 48 20 41 20 22 3B 41 44 4A 24 28 36 | WITH A ";ADJ$(6|
00001C90: 29 3B 22 20 53 50 45 4C 4C 21 27 00 A1 24 87 05 |);" SPELL!'..$..|
00001CA0: 99 00 E7 24 8C 05 99 22 20 52 45 50 4C 49 45 44 |...$..." REPLIED|
00001CB0: 20 22 3B 4E 41 4D 45 24 28 32 29 3B 22 20 22 3B | ";NAME$(2);" ";|
00001CC0: 41 56 45 52 42 24 28 34 29 3B 22 20 41 4E 44 20 |AVERB$(4);" AND |
00001CD0: 22 3B 56 45 52 42 24 28 33 29 3B 20 22 45 44 20 |";VERB$(3); "ED |
00001CE0: 41 43 52 4F 53 53 22 00 ED 24 91 05 99 00 13 25 |ACROSS"..$.....%|
00001CF0: 96 05 99 22 20 53 4F 55 54 48 20 4C 59 4F 4E 20 |..." SOUTH LYON |
00001D00: 54 4F 20 54 48 45 20 22 3B 42 55 24 28 31 29 3B |TO THE ";BU$(1);|
00001D10: 22 2E 22 00 1D 25 9A 05 8D 20 38 33 35 00 28 25 |"."..%... 835.(%|
00001D20: 9B 05 99 22 93 22 3A 99 00 69 25 A0 05 99 22 20 |...".":..i%..." |
00001D30: 22 4E 41 4D 45 24 28 31 29 3B 22 20 53 48 4F 54 |"NAME$(1);" SHOT|
00001D40: 20 41 20 22 3B 41 44 4A 24 28 35 29 3B 22 20 22 | A ";ADJ$(5);" "|
00001D50: 3B 4E 4F 55 4E 24 28 34 29 3B 22 20 57 48 49 43 |;NOUN$(4);" WHIC|
00001D60: 48 20 4D 45 4C 54 45 44 22 00 6F 25 A5 05 99 00 |H MELTED".o%....|
00001D70: B1 25 AA 05 99 22 20 54 48 45 20 22 3B 42 55 24 |.%..." THE ";BU$|
00001D80: 28 31 29 3B 22 2C 20 41 4E 44 20 22 3B 4E 41 4D |(1);", AND ";NAM|
00001D90: 45 24 28 32 29 3B 20 22 20 52 45 53 50 4F 4E 44 |E$(2); " RESPOND|
00001DA0: 45 44 22 3A 99 22 11 20 57 49 54 48 20 54 48 45 |ED":.". WITH THE|
00001DB0: 22 00 B7 25 AF 05 99 00 F9 25 B4 05 99 22 20 22 |"..%.....%..." "|
00001DC0: 41 44 24 28 36 29 3B 22 20 53 50 45 4C 4C 20 57 |AD$(6);" SPELL W|
00001DD0: 48 49 43 48 20 46 52 4F 5A 45 20 54 48 45 20 22 |HICH FROZE THE "|
00001DE0: 3A 99 22 11 20 22 20 42 55 24 28 32 29 3B 22 20 |:.". " BU$(2);" |
00001DF0: 42 45 48 49 4E 44 22 3A 99 00 33 26 BE 05 99 22 |BEHIND":..3&..."|
00001E00: 20 57 48 49 43 48 20 22 3B 4E 41 4D 45 24 28 31 | WHICH ";NAME$(1|
00001E10: 29 3B 22 20 48 41 44 20 44 55 43 4B 45 44 2E 22 |);" HAD DUCKED."|
00001E20: 3A 99 3A 99 22 20 41 46 54 45 52 20 41 20 57 48 |:.:." AFTER A WH|
00001E30: 49 4C 45 00 39 26 C3 05 99 00 6A 26 C8 05 99 22 |ILE.9&....j&..."|
00001E40: 20 4D 52 53 2E 20 4A 4F 48 4E 53 4F 4E 20 43 41 | MRS. JOHNSON CA|
00001E50: 4D 45 20 4F 55 54 20 41 4E 44 20 4D 41 44 45 20 |ME OUT AND MADE |
00001E60: 22 3B 4E 41 4D 45 24 28 31 29 00 70 26 CD 05 99 |";NAME$(1).p&...|
00001E70: 00 A8 26 D2 05 99 22 20 41 4E 44 20 22 3B 4E 41 |..&..." AND ";NA|
00001E80: 4D 45 24 28 32 29 3B 22 20 43 4C 45 41 4E 20 55 |ME$(2);" CLEAN U|
00001E90: 50 20 54 48 45 20 22 3B 20 20 41 44 4A 24 28 37 |P THE "; ADJ$(7|
00001EA0: 29 3B 22 20 4D 45 53 53 00 AE 26 D7 05 99 00 E2 |);" MESS..&.....|
00001EB0: 26 DC 05 99 22 20 54 48 45 59 20 48 41 44 20 4D |&..." THEY HAD M|
00001EC0: 41 44 45 20 4F 46 20 54 48 45 20 22 3B 41 44 4A |ADE OF THE ";ADJ|
00001ED0: 24 28 38 29 3B 22 20 53 43 48 4F 4F 4C 59 41 52 |$(8);" SCHOOLYAR|
00001EE0: 44 2E 00 EC 26 E6 05 8D 20 38 33 35 00 F2 26 EB |D...&... 835..&.|
00001EF0: 05 8E 00 1B 27 FA 05 8F 20 57 45 20 4D 49 47 48 |....'... WE MIGH|
00001F00: 54 20 50 55 54 20 41 4E 4F 54 48 45 52 20 53 54 |T PUT ANOTHER ST|
00001F10: 4F 52 59 20 49 4E 20 48 45 52 45 00 48 27 04 06 |ORY IN HERE.H'..|
00001F20: 8F 20 54 48 49 53 20 49 53 20 4F 4E 45 20 53 45 |. THIS IS ONE SE|
00001F30: 54 20 4F 46 20 57 4F 52 44 53 20 54 4F 20 48 41 |T OF WORDS TO HA|
00001F40: 56 45 20 48 41 4E 44 59 00 74 27 0E 06 8F 20 54 |VE HANDY.t'... T|
00001F50: 48 45 20 4C 49 4E 45 20 4E 55 4D 42 45 52 53 20 |HE LINE NUMBERS |
00001F60: 41 52 45 20 53 49 4D 49 4C 41 52 20 54 4F 20 54 |ARE SIMILAR TO T|
00001F70: 48 4F 53 45 00 7A 27 18 06 8C 00 80 27 22 06 8C |HOSE.z'.....'"..|
00001F80: 00 99 27 27 06 87 20 20 4E 41 4D 45 24 28 31 29 |..''.. NAME$(1)|
00001F90: 2C 4E 41 4D 45 24 28 32 29 00 C4 27 2C 06 87 20 |,NAME$(2)..',.. |
00001FA0: 20 4E 4F 55 4E 24 28 31 29 2C 4E 4F 55 4E 24 28 | NOUN$(1),NOUN$(|
00001FB0: 32 29 2C 4E 4F 55 4E 24 28 33 29 2C 4E 4F 55 4E |2),NOUN$(3),NOUN|
00001FC0: 24 28 34 29 00 E3 27 36 06 81 20 49 B2 31 20 A4 |$(4)..'6.. I.1 .|
00001FD0: 20 38 3A 20 87 20 20 41 44 4A 24 28 49 29 3A 20 | 8: . ADJ$(I): |
00001FE0: 82 20 49 00 03 28 40 06 81 20 49 B2 31 20 A4 20 |. I..(@.. I.1 . |
00001FF0: 34 3A 20 87 20 20 56 45 52 42 24 28 49 29 3A 20 |4: . VERB$(I): |
00002000: 82 20 49 00 24 28 4A 06 81 20 49 B2 31 20 A4 20 |. I.$(J.. I.1 . |
00002010: 36 3A 20 87 20 20 41 56 45 52 42 24 28 49 29 3A |6: . AVERB$(I):|
00002020: 20 82 20 49 00 39 28 54 06 87 20 20 42 55 24 28 | . I.9(T.. BU$(|
00002030: 31 29 2C 42 55 24 28 32 29 00 44 28 5E 06 89 20 |1),BU$(2).D(^.. |
00002040: 31 33 33 35 00 54 28 68 06 83 20 46 52 45 44 2C |1335.T(h.. FRED,|
00002050: 44 41 56 45 00 74 28 72 06 83 20 53 54 52 45 45 |DAVE.t(r.. STREE|
00002060: 54 2C 42 4F 55 4C 44 45 52 2C 52 49 56 45 52 2C |T,BOULDER,RIVER,|
00002070: 54 52 45 45 00 A8 28 7C 06 83 20 48 4F 54 2C 53 |TREE..(|.. HOT,S|
00002080: 4C 49 43 4B 2C 48 49 47 48 2C 53 54 52 4F 4E 47 |LICK,HIGH,STRONG|
00002090: 2C 4D 45 53 53 59 2C 4C 4F 55 44 2C 42 52 49 47 |,MESSY,LOUD,BRIG|
000020A0: 48 54 2C 47 4F 4F 45 59 00 C0 28 86 06 83 20 44 |HT,GOOEY..(... D|
000020B0: 41 53 48 2C 52 55 4E 2C 4C 45 41 50 2C 53 49 54 |ASH,RUN,LEAP,SIT|
000020C0: 00 F5 28 90 06 83 20 53 4C 4F 57 4C 59 2C 48 41 |..(... SLOWLY,HA|
000020D0: 50 50 49 4C 59 2C 51 55 49 43 4B 4C 59 2C 53 41 |PPILY,QUICKLY,SA|
000020E0: 44 4C 59 2C 48 4F 50 45 46 55 4C 4C 59 2C 51 55 |DLY,HOPEFULLY,QU|
000020F0: 49 45 54 4C 59 00 0A 29 9A 06 83 20 4C 49 42 52 |IETLY..)... LIBR|
00002100: 41 52 59 2C 53 43 48 4F 4F 4C 00 1D 29 9F 06 83 |ARY,SCHOOL..)...|
00002110: 20 53 48 55 54 20 55 50 2C 4C 49 46 45 00 32 29 | SHUT UP,LIFE.2)|
00002120: A4 06 4E 41 4D 45 24 28 31 29 B2 22 4E 41 4D 45 |..NAME$(1)."NAME|
00002130: 31 22 00 47 29 AE 06 4E 41 4D 45 24 28 32 29 B2 |1".G)..NAME$(2).|
00002140: 22 4E 41 4D 45 32 22 00 5C 29 B8 06 4E 4F 55 4E |"NAME2".\)..NOUN|
00002150: 24 28 31 29 B2 22 4E 4F 55 4E 31 22 00 71 29 C2 |$(1)."NOUN1".q).|
00002160: 06 4E 4F 55 4E 24 28 32 29 B2 22 4E 4F 55 4E 32 |.NOUN$(2)."NOUN2|
00002170: 22 00 86 29 CC 06 4E 4F 55 4E 24 28 33 29 B2 22 |"..)..NOUN$(3)."|
00002180: 4E 4F 55 4E 33 22 00 9B 29 D6 06 4E 4F 55 4E 24 |NOUN3"..)..NOUN$|
00002190: 28 34 29 B2 22 4E 4F 55 4E 34 22 00 AE 29 E0 06 |(4)."NOUN4"..)..|
000021A0: 41 44 4A 24 28 31 29 B2 22 41 44 4A 31 22 00 C1 |ADJ$(1)."ADJ1"..|
000021B0: 29 EA 06 41 44 4A 24 28 32 29 B2 22 41 44 4A 32 |)..ADJ$(2)."ADJ2|
000021C0: 22 00 D4 29 F4 06 41 44 4A 24 28 33 29 B2 22 41 |"..)..ADJ$(3)."A|
000021D0: 44 4A 33 22 00 E7 29 FE 06 41 44 4A 24 28 34 29 |DJ3"..)..ADJ$(4)|
000021E0: B2 22 41 44 4A 34 22 00 FA 29 08 07 41 44 4A 24 |."ADJ4"..)..ADJ$|
000021F0: 28 35 29 B2 22 41 44 4A 35 22 00 0D 2A 12 07 41 |(5)."ADJ5"..*..A|
00002200: 44 4A 24 28 36 29 B2 22 41 44 4A 36 22 00 20 2A |DJ$(6)."ADJ6". *|
00002210: 1C 07 41 44 4A 24 28 37 29 B2 22 41 44 4A 37 22 |..ADJ$(7)."ADJ7"|
00002220: 00 33 2A 26 07 41 44 4A 24 28 38 29 B2 22 41 44 |.3*&.ADJ$(8)."AD|
00002230: 4A 38 22 00 48 2A 30 07 56 45 52 42 24 28 31 29 |J8".H*0.VERB$(1)|
00002240: B2 22 56 45 52 42 31 22 00 5D 2A 3A 07 56 45 52 |."VERB1".]*:.VER|
00002250: 42 24 28 32 29 B2 22 56 45 52 42 32 22 00 72 2A |B$(2)."VERB2".r*|
00002260: 44 07 56 45 52 42 24 28 33 29 B2 22 56 45 52 42 |D.VERB$(3)."VERB|
00002270: 33 22 00 87 2A 4E 07 56 45 52 42 24 28 34 29 B2 |3"..*N.VERB$(4).|
00002280: 22 56 45 52 42 34 22 00 9F 2A 58 07 41 56 45 52 |"VERB4"..*X.AVER|
00002290: 42 24 28 31 29 B2 22 41 44 56 45 52 42 31 22 00 |B$(1)."ADVERB1".|
000022A0: B7 2A 62 07 41 56 45 52 42 24 28 32 29 B2 22 41 |.*b.AVERB$(2)."A|
000022B0: 44 56 45 52 42 32 22 00 CF 2A 6C 07 41 56 45 52 |DVERB2"..*l.AVER|
000022C0: 42 24 28 33 29 B2 22 41 44 56 45 52 42 33 22 00 |B$(3)."ADVERB3".|
000022D0: E7 2A 76 07 41 56 45 52 42 24 28 34 29 B2 22 41 |.*v.AVERB$(4)."A|
000022E0: 44 56 45 52 42 34 22 00 FE 2A 80 07 42 55 24 28 |DVERB4"..*..BU$(|
000022F0: 31 29 B2 22 42 55 49 4C 44 49 4E 47 31 22 00 15 |1)."BUILDING1"..|
00002300: 2B 8A 07 42 55 24 28 32 29 B2 22 42 55 49 4C 44 |+..BU$(2)."BUILD|
00002310: 49 4E 47 32 22 00 20 2B 94 07 89 20 31 33 33 30 |ING2". +... 1330|
00002320: 00 34 2B D0 07 99 22 93 20 48 45 52 45 20 57 45 |.4+...". HERE WE|
00002330: 20 47 4F 21 00 78 2B DA 07 99 22 11 20 54 48 45 | GO!.x+...". THE|
00002340: 20 50 4F 4F 52 20 53 57 49 4E 45 48 45 52 44 2C | POOR SWINEHERD,|
00002350: 20 22 3B 4E 41 4D 45 24 28 32 29 3B 22 20 57 41 | ";NAME$(2);" WA|
00002360: 4C 4B 45 44 20 22 3B 41 56 45 52 42 24 28 31 29 |LKED ";AVERB$(1)|
00002370: 3B 22 20 44 4F 57 4E 22 00 7E 2B E4 07 99 00 C2 |;" DOWN".~+.....|
00002380: 2B EE 07 99 22 20 54 48 45 20 22 3B 41 44 4A 24 |+..." THE ";ADJ$|
00002390: 28 31 29 3B 22 20 22 3B 4E 4F 55 4E 24 28 31 29 |(1);" ";NOUN$(1)|
000023A0: 3B 22 20 4F 46 20 46 4F 52 54 20 45 52 49 45 2E |;" OF FORT ERIE.|
000023B0: 20 20 54 57 4F 20 22 3B 42 55 24 28 32 29 3B 22 | TWO ";BU$(2);"|
000023C0: 53 22 00 C8 2B F8 07 99 00 F1 2B 02 08 99 22 20 |S"..+.....+..." |
000023D0: 46 52 4F 4D 20 54 48 45 20 22 3B 41 44 4A 24 28 |FROM THE ";ADJ$(|
000023E0: 32 29 3B 22 20 49 4E 4E 20 48 45 20 53 41 57 20 |2);" INN HE SAW |
000023F0: 22 00 F7 2B 0C 08 99 00 2C 2C 16 08 99 22 20 41 |"..+....,,..." A|
00002400: 4E 20 4F 4C 44 20 45 4E 45 4D 59 20 22 3B 4E 41 |N OLD ENEMY ";NA|
00002410: 4D 45 24 28 31 29 3B 22 20 52 55 4E 4E 49 4E 47 |ME$(1);" RUNNING|
00002420: 20 22 3B 41 56 45 52 42 24 28 32 29 00 32 2C 20 | ";AVERB$(2).2, |
00002430: 08 99 00 7D 2C 2A 08 99 22 20 41 43 52 4F 53 53 |...},*.." ACROSS|
00002440: 20 54 48 45 20 22 3B 41 44 4A 24 28 33 29 3B 22 | THE ";ADJ$(3);"|
00002450: 20 22 3B 4E 4F 55 4E 24 28 32 29 3B 22 20 4F 46 | ";NOUN$(2);" OF|
00002460: 20 41 20 22 3B 41 44 4A 24 28 34 29 3B 22 20 22 | A ";ADJ$(4);" "|
00002470: 3B 4E 4F 55 4E 24 28 33 29 3B 22 2E 22 00 83 2C |;NOUN$(3);"."..,|
00002480: 34 08 99 00 BD 2C 3E 08 99 22 20 27 49 20 57 49 |4....,>.." 'I WI|
00002490: 4C 4C 20 22 3B 56 45 52 42 24 28 31 29 3B 22 20 |LL ";VERB$(1);" |
000024A0: 59 4F 55 20 57 49 54 48 20 4D 59 20 22 41 44 4A |YOU WITH MY "ADJ|
000024B0: 24 28 35 29 3B 22 20 41 58 45 2C 27 22 00 C3 2C |$(5);" AXE,'"..,|
000024C0: 48 08 99 00 F0 2C 52 08 99 22 20 53 43 52 45 41 |H....,R.." SCREA|
000024D0: 4D 45 44 20 22 3B 4E 41 4D 45 24 28 31 29 3B 22 |MED ";NAME$(1);"|
000024E0: 20 22 3B 41 56 45 52 42 24 28 33 29 3B 22 2E 22 | ";AVERB$(3);"."|
000024F0: 00 F6 2C 5C 08 99 00 32 2D 66 08 99 22 20 27 49 |..,\...2-f.." 'I|
00002500: 20 43 41 4E 20 22 3B 56 45 52 42 24 28 32 29 3B | CAN ";VERB$(2);|
00002510: 22 20 59 4F 55 20 57 49 54 48 20 4D 59 20 22 3B |" YOU WITH MY ";|
00002520: 41 44 4A 24 28 36 29 3B 22 20 42 4C 41 44 45 21 |ADJ$(6);" BLADE!|
00002530: 27 22 00 57 2D 6B 08 99 3A 99 22 20 53 41 49 44 |'".W-k..:." SAID|
00002540: 20 22 3B 4E 41 4D 45 24 28 32 29 3B 22 20 22 3B | ";NAME$(2);" ";|
00002550: 41 44 56 24 28 32 29 00 61 2D 70 08 8D 20 38 33 |ADV$(2).a-p.. 83|
00002560: 35 00 67 2D 8E 08 99 00 AE 2D 98 08 99 22 93 20 |5.g-.....-...". |
00002570: 52 45 50 4C 49 45 44 20 22 3B 4E 41 4D 45 24 28 |REPLIED ";NAME$(|
00002580: 32 29 3B 22 20 22 3B 41 56 45 52 42 24 28 34 29 |2);" ";AVERB$(4)|
00002590: 3B 22 20 41 4E 44 20 22 3B 56 45 52 42 24 28 33 |;" AND ";VERB$(3|
000025A0: 29 3B 20 22 45 44 20 41 43 52 4F 53 53 22 00 B4 |); "ED ACROSS"..|
000025B0: 2D A2 08 99 00 D9 2D AC 08 99 22 20 46 4F 52 54 |-.....-..." FORT|
000025C0: 20 45 52 49 45 20 54 4F 20 54 48 45 20 22 3B 42 | ERIE TO THE ";B|
000025D0: 55 24 28 31 29 3B 22 2E 22 00 DF 2D B6 08 99 00 |U$(1);"."..-....|
000025E0: 23 2E C0 08 99 22 20 22 4E 41 4D 45 24 28 31 29 |#...." "NAME$(1)|
000025F0: 3B 22 20 42 4F 4C 44 4C 59 20 20 22 3B 41 44 4A |;" BOLDLY ";ADJ|
00002600: 24 28 35 29 3B 22 20 22 3B 4E 4F 55 4E 24 28 34 |$(5);" ";NOUN$(4|
00002610: 29 3B 22 20 57 48 49 43 48 20 57 4F 55 4E 44 45 |);" WHICH WOUNDE|
00002620: 44 20 22 00 29 2E CA 08 99 00 61 2E D4 08 99 22 |D ".).....a...."|
00002630: 20 22 20 4E 41 4D 45 24 28 32 29 22 20 42 55 54 | " NAME$(2)" BUT|
00002640: 20 22 3B 4E 41 4D 45 24 28 32 29 3B 20 22 20 43 | ";NAME$(2); " C|
00002650: 4F 55 4E 54 45 52 2D 41 54 54 41 43 4B 45 44 20 |OUNTER-ATTACKED |
00002660: 22 00 67 2E DE 08 99 00 98 2E E8 08 99 20 22 20 |".g.......... " |
00002670: 57 49 54 48 20 48 49 53 20 22 41 44 4A 24 28 35 |WITH HIS "ADJ$(5|
00002680: 29 3B 22 20 22 3B 4E 4F 55 4E 24 28 28 BB 28 54 |);" ";NOUN$((.(T|
00002690: 49 29 AC 34 29 AA 31 29 00 9E 2E F2 08 99 00 E1 |I).4).1)........|
000026A0: 2E 10 09 99 22 20 22 4E 4F 24 28 31 29 22 20 46 |...." "NO$(1)" F|
000026B0: 45 4C 4C 20 54 4F 20 54 48 45 20 22 3B 41 44 56 |ELL TO THE ";ADV|
000026C0: 24 28 32 29 3A 99 3A 99 22 20 4F 4E 53 4C 41 55 |$(2):.:." ONSLAU|
000026D0: 47 48 54 20 4F 46 20 22 3B 4E 41 4D 45 24 28 32 |GHT OF ";NAME$(2|
000026E0: 29 00 E7 2E 1A 09 99 00 17 2F 24 09 99 22 20 41 |)......../$.." A|
000026F0: 4E 44 20 22 3B 4E 41 4D 45 24 28 32 29 3B 22 20 |ND ";NAME$(2);" |
00002700: 53 48 45 41 54 48 45 44 20 48 49 53 20 53 57 4F |SHEATHED HIS SWO|
00002710: 52 44 20 41 4E 44 22 00 1D 2F 2E 09 99 00 54 2F |RD AND"../....T/|
00002720: 38 09 99 22 20 57 41 4C 4B 45 44 20 22 41 44 56 |8.." WALKED "ADV|
00002730: 24 28 32 29 3B 22 20 49 4E 54 4F 20 54 48 45 20 |$(2);" INTO THE |
00002740: 22 41 44 4A 24 28 31 29 22 20 53 55 4E 53 45 54 |"ADJ$(1)" SUNSET|
00002750: 2E 2E 2E 22 00 5D 2F 3D 09 8D 38 33 35 00 66 2F |...".]/=..835.f/|
00002760: 3E 09 99 22 93 22 00 6C 2F 42 09 8E 00 77 2F B8 |>..".".l/B...w/.|
00002770: 0B 99 22 93 22 3A 99 00 99 2F C2 0B 99 22 20 54 |..".":.../..." T|
00002780: 48 45 52 45 20 4F 4E 43 45 20 57 41 53 20 41 20 |HERE ONCE WAS A |
00002790: 43 52 45 41 54 55 52 45 22 00 9F 2F C7 0B 99 00 |CREATURE"../....|
000027A0: BF 2F CC 0B 99 22 20 43 41 4C 4C 45 44 20 22 3B |./..." CALLED ";|
000027B0: 4E 41 4D 45 24 28 31 29 3B 22 20 49 54 20 22 00 |NAME$(1);" IT ".|
000027C0: C5 2F D1 0B 99 00 EB 2F D6 0B 99 22 20 4C 49 56 |./...../..." LIV|
000027D0: 45 44 20 49 4E 20 41 20 22 41 44 4A 24 28 32 29 |ED IN A "ADJ$(2)|
000027E0: 3B 22 20 22 3B 42 55 24 28 31 29 00 F1 2F DB 0B |;" ";BU$(1)../..|
000027F0: 99 00 15 30 E0 0B 99 22 20 49 54 20 57 41 53 20 |...0..." IT WAS |
00002800: 56 45 52 59 20 22 41 44 56 24 28 34 29 3B 22 20 |VERY "ADV$(4);" |
00002810: 41 4E 44 20 22 00 1B 30 E5 0B 99 00 42 30 EA 0B |AND "..0....B0..|
00002820: 99 22 20 56 45 52 59 20 22 3B 41 44 56 24 28 33 |." VERY ";ADV$(3|
00002830: 29 3B 22 2E 20 4F 4E 20 54 55 45 53 44 41 59 53 |);". ON TUESDAYS|
00002840: 20 22 00 48 30 EF 0B 99 00 66 30 F4 0B 99 22 20 | ".H0....f0..." |
00002850: 49 54 20 4C 49 4B 45 44 20 54 4F 20 22 3B 56 45 |IT LIKED TO ";VE|
00002860: 52 42 24 28 32 29 00 6C 30 F9 0B 99 00 75 30 FA |RB$(2).l0....u0.|
00002870: 0B 8D 38 33 35 00 7E 30 FB 0B 99 22 93 22 00 A8 |..835.~0..."."..|
00002880: 30 FE 0B 99 22 20 22 3B 4E 41 4D 45 24 28 32 29 |0..." ";NAME$(2)|
00002890: 3B 22 20 48 41 44 20 41 20 46 52 49 45 4E 44 20 |;" HAD A FRIEND |
000028A0: 43 41 4C 4C 45 44 20 22 00 AE 30 03 0C 99 00 D5 |CALLED "..0.....|
000028B0: 30 08 0C 99 22 20 22 3B 4E 41 4D 45 24 28 31 29 |0..." ";NAME$(1)|
000028C0: 3B 22 20 57 48 4F 20 4C 49 56 45 44 20 49 4E 20 |;" WHO LIVED IN |
000028D0: 54 48 45 20 22 00 DB 30 0D 0C 99 00 06 31 12 0C |THE "..0.....1..|
000028E0: 99 22 20 22 3B 42 55 24 28 32 29 3B 22 2E 20 22 |." ";BU$(2);". "|
000028F0: 3B 4E 41 4D 45 24 28 31 29 3B 22 20 57 41 53 20 |;NAME$(1);" WAS |
00002900: 56 45 52 59 20 22 00 0C 31 17 0C 99 00 37 31 1C |VERY "..1....71.|
00002910: 0C 99 22 20 22 3B 41 44 56 24 28 35 29 3B 22 20 |.." ";ADV$(5);" |
00002920: 41 4E 44 20 56 45 52 59 20 22 3B 41 44 56 24 28 |AND VERY ";ADV$(|
00002930: 36 29 3B 22 2E 20 22 00 3D 31 21 0C 99 00 5D 31 |6);". ".=1!...]1|
00002940: 26 0C 99 22 20 54 48 45 59 20 57 45 52 45 20 56 |&.." THEY WERE V|
00002950: 45 52 59 20 22 3B 41 44 4A 24 28 38 29 00 63 31 |ERY ";ADJ$(8).c1|
00002960: 2B 0C 99 00 88 31 30 0C 99 22 20 46 52 49 45 4E |+....10.." FRIEN|
00002970: 44 53 20 41 4E 44 20 48 41 44 20 4D 41 4E 59 20 |DS AND HAD MANY |
00002980: 22 41 44 4A 24 28 31 29 00 8E 31 35 0C 99 00 B0 |"ADJ$(1)..15....|
00002990: 31 3A 0C 99 22 20 54 49 4D 45 53 20 54 4F 47 45 |1:.." TIMES TOGE|
000029A0: 54 48 45 52 2E 20 22 3B 4E 41 4D 45 24 28 31 29 |THER. ";NAME$(1)|
000029B0: 00 B6 31 3F 0C 99 00 DB 31 44 0C 99 22 20 57 41 |..1?....1D.." WA|
000029C0: 53 20 52 41 54 48 45 52 20 4C 41 5A 59 20 41 4E |S RATHER LAZY AN|
000029D0: 44 20 44 49 44 20 4E 4F 54 20 22 00 E1 31 49 0C |D DID NOT "..1I.|
000029E0: 99 00 0A 32 4E 0C 99 22 20 57 4F 52 4B 20 41 53 |...2N.." WORK AS|
000029F0: 20 48 41 52 44 20 41 53 20 22 3B 4E 41 4D 45 24 | HARD AS ";NAME$|
00002A00: 28 32 29 3B 22 20 44 49 44 22 00 10 32 53 0C 99 |(2);" DID"..2S..|
00002A10: 00 1A 32 58 0C 8D 20 38 33 35 00 25 32 62 0C 99 |..2X.. 835.%2b..|
00002A20: 22 93 22 3A 99 00 4D 32 6C 0C 99 22 20 41 4E 44 |".":..M2l.." AND|
00002A30: 20 53 4F 20 57 48 45 4E 20 46 41 4C 4C 20 43 41 | SO WHEN FALL CA|
00002A40: 4D 45 20 22 3B 4E 41 4D 45 24 28 32 29 00 53 32 |ME ";NAME$(2).S2|
00002A50: 71 0C 99 00 7D 32 76 0C 99 22 20 54 4F 4C 44 20 |q...}2v.." TOLD |
00002A60: 22 4E 41 4D 45 24 28 31 29 3B 22 20 27 59 4F 55 |"NAME$(1);" 'YOU|
00002A70: 20 48 41 44 20 42 45 54 54 45 52 20 22 00 83 32 | HAD BETTER "..2|
00002A80: 7B 0C 99 00 A6 32 80 0C 99 22 20 57 4F 52 4B 20 |{....2..." WORK |
00002A90: 4E 4F 57 20 4F 52 20 59 4F 55 20 57 49 4C 4C 20 |NOW OR YOU WILL |
00002AA0: 48 41 56 45 20 22 00 AC 32 85 0C 99 00 D1 32 8A |HAVE "..2.....2.|
00002AB0: 0C 99 22 20 4E 4F 54 48 49 4E 47 20 54 4F 20 45 |.." NOTHING TO E|
00002AC0: 41 54 20 41 4C 4C 20 57 49 4E 54 45 52 2E 27 20 |AT ALL WINTER.' |
00002AD0: 22 00 D7 32 8F 0C 99 00 F6 32 94 0C 99 22 20 42 |"..2.....2..." B|
00002AE0: 55 54 20 22 3B 4E 41 4D 45 24 28 31 29 3B 22 20 |UT ";NAME$(1);" |
00002AF0: 53 41 49 44 20 22 00 FC 32 99 0C 99 00 1D 33 9E |SAID "..2.....3.|
00002B00: 0C 99 22 20 49 20 57 4F 55 4C 44 20 52 41 54 48 |.." I WOULD RATH|
00002B10: 45 52 20 22 3B 56 45 52 42 24 28 32 29 00 23 33 |ER ";VERB$(2).#3|
00002B20: A3 0C 99 00 38 33 A8 0C 99 22 20 46 4F 52 20 54 |....83..." FOR T|
00002B30: 48 45 20 46 41 4C 4C 2E 00 42 33 AB 0C 8D 20 38 |HE FALL..B3... 8|
00002B40: 33 35 00 4B 33 AC 0C 99 22 93 22 00 51 33 AD 0C |35.K3...".".Q3..|
00002B50: 99 00 6E 33 B2 0C 99 22 20 41 4E 44 20 53 4F 20 |..n3..." AND SO |
00002B60: 22 3B 4E 41 4D 45 24 28 31 29 3B 22 20 22 00 74 |";NAME$(1);" ".t|
00002B70: 33 B7 0C 99 00 98 33 BC 0C 99 22 20 22 3B 56 45 |3.....3..." ";VE|
00002B80: 52 42 24 28 32 29 3B 22 45 44 20 41 4C 4C 20 54 |RB$(2);"ED ALL T|
00002B90: 48 45 20 46 41 4C 4C 22 00 9E 33 C1 0C 99 00 C5 |HE FALL"..3.....|
00002BA0: 33 C6 0C 99 22 20 41 4E 44 20 22 3B 4E 41 4D 45 |3..." AND ";NAME|
00002BB0: 24 28 32 29 3B 22 20 4C 49 56 45 44 20 48 41 50 |$(2);" LIVED HAP|
00002BC0: 50 49 4C 59 22 00 CB 33 CB 0C 99 00 EC 33 D0 0C |PILY"..3.....3..|
00002BD0: 99 22 20 41 4C 4C 20 57 49 4E 54 45 52 20 41 4E |." ALL WINTER AN|
00002BE0: 44 20 22 3B 4E 41 4D 45 24 28 31 29 00 F2 33 D5 |D ";NAME$(1)..3.|
00002BF0: 0C 99 00 19 34 DA 0C 99 22 20 53 55 46 46 45 52 |....4..." SUFFER|
00002C00: 45 44 20 49 4E 20 54 48 45 20 43 4F 4C 44 20 41 |ED IN THE COLD A|
00002C10: 4E 44 20 53 4E 4F 57 2E 22 00 23 34 E4 0C 8D 20 |ND SNOW.".#4... |
00002C20: 38 33 35 00 2E 34 EE 0C 99 22 93 22 3A 8E 00 59 |835..4...".":..Y|
00002C30: 34 A0 0F 99 22 93 22 3A 99 22 20 20 12 49 4E 53 |4...".":." .INS|
00002C40: 45 52 54 20 59 4F 55 52 20 4F 57 4E 20 53 54 4F |ERT YOUR OWN STO|
00002C50: 52 59 20 48 45 52 45 20 22 00 71 34 AA 0F 99 22 |RY HERE ".q4..."|
00002C60: 20 20 20 49 4E 20 4C 49 4E 45 53 20 34 30 30 30 | IN LINES 4000|
00002C70: 2D 00 9A 34 B4 0F 99 22 20 59 4F 55 20 4D 41 59 |-..4..." YOU MAY|
00002C80: 20 55 53 45 20 3C 47 4F 53 55 42 20 38 33 35 3E | USE <GOSUB 835>|
00002C90: 20 46 4F 52 20 54 48 45 20 22 00 C9 34 BE 0F 99 | FOR THE "..4...|
00002CA0: 22 20 57 41 49 54 20 46 4F 52 20 53 50 41 43 45 |" WAIT FOR SPACE|
00002CB0: 20 42 41 52 20 53 55 42 52 4F 55 54 49 4E 45 20 | BAR SUBROUTINE |
00002CC0: 54 4F 20 50 41 47 45 20 22 00 13 35 C8 0F 99 22 |TO PAGE "..5..."|
00002CD0: 20 59 4F 55 52 20 53 54 4F 52 59 2E 20 4E 4F 54 | YOUR STORY. NOT|
00002CE0: 45 20 57 48 45 4E 20 41 53 4B 45 44 20 57 48 49 |E WHEN ASKED WHI|
00002CF0: 43 48 20 53 54 4F 52 59 20 41 20 34 20 57 49 4C |CH STORY A 4 WIL|
00002D00: 4C 20 4F 42 54 41 49 4E 20 54 48 49 53 20 4F 4E |L OBTAIN THIS ON|
00002D10: 45 2E 22 00 43 35 CD 0F 99 22 20 46 4F 52 20 49 |E.".C5..." FOR I|
00002D20: 4E 53 54 52 55 43 54 49 4F 4E 53 20 4F 4E 20 48 |NSTRUCTIONS ON H|
00002D30: 4F 57 20 54 4F 20 49 4E 53 45 52 54 20 59 4F 55 |OW TO INSERT YOU|
00002D40: 52 20 22 00 73 35 CE 0F 99 22 20 53 54 4F 52 59 |R ".s5..." STORY|
00002D50: 20 54 59 50 45 20 27 35 27 20 41 46 54 45 52 20 | TYPE '5' AFTER |
00002D60: 52 45 54 55 52 4E 49 4E 47 20 54 4F 20 54 48 45 |RETURNING TO THE|
00002D70: 20 20 22 00 82 35 CF 0F 99 22 20 4D 45 4E 55 2E | "..5..." MENU.|
00002D80: 20 22 00 8C 35 D2 0F 8D 20 38 33 35 00 92 35 5E | "..5... 835..5^|
00002D90: 1F 8E 00 98 35 10 27 8F 00 C9 35 24 27 99 22 20 |....5.'...5$'." |
00002DA0: C9 4E 20 4F 52 44 45 52 20 54 4F 20 45 4E 54 45 |.N ORDER TO ENTE|
00002DB0: 52 20 59 4F 55 52 20 4F 57 4E 20 53 54 4F 52 59 |R YOUR OWN STORY|
00002DC0: 20 49 4E 54 4F 20 22 3A 99 00 FA 35 2E 27 99 22 | INTO ":...5.'."|
00002DD0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 46 49 | THIS PROGRAM FI|
00002DE0: 52 53 54 20 45 58 49 54 20 54 48 45 20 50 52 4F |RST EXIT THE PRO|
00002DF0: 47 52 41 4D 20 20 20 22 3A 99 00 21 36 38 27 99 |GRAM ":..!68'.|
00002E00: 22 20 42 59 20 45 4E 54 45 52 49 4E 47 20 27 36 |" BY ENTERING '6|
00002E10: 27 20 4F 4E 20 54 48 45 20 4D 45 4E 55 2E 22 3A |' ON THE MENU.":|
00002E20: 99 00 50 36 42 27 99 22 20 D4 48 45 4E 20 54 59 |..P6B'." .HEN TY|
00002E30: 50 45 20 27 4C 49 53 54 20 34 30 30 30 2D 35 30 |PE 'LIST 4000-50|
00002E40: 30 30 27 41 46 54 45 52 20 54 48 45 20 22 3A 99 |00'AFTER THE ":.|
00002E50: 00 80 36 4C 27 99 22 20 4D 45 53 53 41 47 45 20 |..6L'." MESSAGE |
00002E60: 27 52 45 41 44 59 2E 27 20 49 53 20 44 49 53 50 |'READY.' IS DISP|
00002E70: 4C 41 59 45 44 20 42 59 20 54 48 45 20 22 3A 99 |LAYED BY THE ":.|
00002E80: 00 AD 36 56 27 99 22 20 43 4F 4D 50 55 54 45 52 |..6V'." COMPUTER|
00002E90: 2E 20 20 CE 4F 57 20 59 4F 55 20 4D 41 59 20 45 |. .OW YOU MAY E|
00002EA0: 4E 54 45 52 20 59 4F 55 52 20 22 3A 99 00 CC 36 |NTER YOUR ":...6|
00002EB0: 60 27 99 22 20 53 54 4F 52 59 2E 20 C5 58 41 4D |`'." STORY. .XAM|
00002EC0: 50 4C 45 20 4C 49 4E 45 3A 22 3A 99 00 0C 37 6A |PLE LINE:":...7j|
00002ED0: 27 99 22 20 34 30 31 30 20 50 52 49 4E 54 22 3B |'." 4010 PRINT";|
00002EE0: C7 28 33 34 29 3B 22 20 4F 4E 43 45 20 55 50 4F |.(34);" ONCE UPO|
00002EF0: 4E 20 41 20 54 49 4D 45 22 3B C7 28 33 34 29 3B |N A TIME";.(34);|
00002F00: 22 3B 4E 41 4D 45 24 28 31 29 22 3B 00 4A 37 74 |";NAME$(1)";.J7t|
00002F10: 27 99 C7 28 33 34 29 3B 22 20 57 41 53 20 22 3B |'..(34);" WAS ";|
00002F20: C7 28 33 34 29 3B 22 56 45 52 42 24 28 32 29 22 |.(34);"VERB$(2)"|
00002F30: 3B C7 28 33 34 29 3B 22 49 4E 47 20 4F 4E 45 20 |;.(34);"ING ONE |
00002F40: 44 41 59 22 3B C7 28 33 34 29 00 70 37 79 27 99 |DAY";.(34).p7y'.|
00002F50: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00002F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 91 27 22 |..............'"|
00002F70: 00 93 37 7E 27 99 3A 99 22 20 D4 48 49 53 20 4C |..7~'.:." .HIS L|
00002F80: 49 4E 45 20 57 4F 55 4C 44 20 50 52 49 4E 54 3A |INE WOULD PRINT:|
00002F90: 22 3A 99 00 B7 37 83 27 4E 41 4D 45 24 28 31 29 |":...7.'NAME$(1)|
00002FA0: B2 22 C6 52 45 44 22 3A 56 45 52 42 24 28 32 29 |.".RED":VERB$(2)|
00002FB0: B2 22 57 41 4C 4B 22 00 F2 37 88 27 99 22 20 4F |."WALK"..7.'." O|
00002FC0: 4E 43 45 20 55 50 4F 4E 20 41 20 54 49 4D 45 20 |NCE UPON A TIME |
00002FD0: 22 3B 4E 41 4D 45 24 28 31 29 3B 22 20 57 41 53 |";NAME$(1);" WAS|
00002FE0: 20 22 3B 56 45 52 42 24 28 32 29 3B 22 49 4E 47 | ";VERB$(2);"ING|
00002FF0: 20 22 00 02 38 92 27 8D 20 38 33 35 3A 8D 20 38 | "..8.'. 835:. 8|
00003000: 35 30 00 36 38 94 27 99 22 11 11 11 20 20 C9 4E |50.68.'."... .N|
00003010: 20 54 48 45 20 45 58 41 4D 50 4C 45 20 54 48 45 | THE EXAMPLE THE|
00003020: 20 56 41 52 49 41 42 4C 45 53 20 20 20 20 20 20 | VARIABLES |
00003030: 20 20 20 20 20 22 00 61 38 95 27 99 22 20 56 45 | ".a8.'." VE|
00003040: 52 42 24 28 32 29 3D 57 41 4C 4B 20 20 20 4E 41 |RB$(2)=WALK NA|
00003050: 4D 45 24 28 31 29 3D C6 52 45 44 2E 11 20 20 20 |ME$(1)=.RED.. |
00003060: 22 00 8D 38 96 27 99 22 20 D4 48 45 20 53 54 41 |"..8.'." .HE STA|
00003070: 54 4D 45 4E 54 20 27 50 52 49 4E 54 27 20 43 41 |TMENT 'PRINT' CA|
00003080: 55 53 45 53 20 54 48 45 53 45 11 20 22 00 BE 38 |USES THESE. "..8|
00003090: 97 27 99 22 20 56 41 52 49 41 42 4C 45 53 20 41 |.'." VARIABLES A|
000030A0: 4E 44 20 41 43 43 4F 4D 50 41 4E 59 49 4E 47 20 |ND ACCOMPANYING |
000030B0: 57 4F 52 44 53 20 54 4F 20 42 45 22 3A 99 00 DB |WORDS TO BE":...|
000030C0: 38 98 27 99 22 20 44 49 53 50 4C 41 59 45 44 2E |8.'." DISPLAYED.|
000030D0: 22 3A 8D 38 33 35 3A 8D 38 35 30 00 09 39 9C 27 |":.835:.850..9.'|
000030E0: 99 22 20 C8 45 52 45 20 49 53 20 41 20 4C 49 53 |." .ERE IS A LIS|
000030F0: 54 20 4F 46 20 54 48 45 20 56 41 52 49 41 42 4C |T OF THE VARIABL|
00003100: 45 53 20 55 53 45 44 20 22 00 39 39 A6 27 99 22 |ES USED ".99.'."|
00003110: 20 57 48 49 43 48 20 43 4F 55 4C 44 20 42 45 20 | WHICH COULD BE |
00003120: 45 4E 54 45 52 45 44 20 49 4E 54 4F 20 54 48 45 |ENTERED INTO THE|
00003130: 20 53 54 4F 52 59 2E 11 22 00 58 39 B0 27 81 20 | STORY..".X9.'. |
00003140: 49 B2 31 A4 32 3A 99 22 20 4E 41 4D 45 24 28 22 |I.1.2:." NAME$("|
00003150: 49 22 9D 29 22 3A 82 49 00 77 39 BA 27 81 20 49 |I".)":.I.w9.'. I|
00003160: B2 31 A4 34 3A 99 22 20 4E 4F 55 4E 24 28 22 49 |.1.4:." NOUN$("I|
00003170: 22 9D 29 22 3A 82 49 00 95 39 C4 27 81 20 49 B2 |".)":.I..9.'. I.|
00003180: 31 A4 38 3A 99 22 20 41 44 4A 24 28 22 49 22 9D |1.8:." ADJ$("I".|
00003190: 29 22 3A 82 49 00 A5 39 C8 27 8D 20 38 33 35 3A |)":.I..9.'. 835:|
000031A0: 8D 20 38 35 30 00 C3 39 C9 27 81 20 49 B2 31 A4 |. 850..9.'. I.1.|
000031B0: 34 3A 99 22 20 56 45 52 42 24 28 22 49 22 29 22 |4:." VERB$("I")"|
000031C0: 3A 82 49 00 E1 39 CE 27 81 20 49 B2 31 A4 36 3A |:.I..9.'. I.1.6:|
000031D0: 99 22 20 41 44 56 24 28 22 49 22 9D 29 22 3A 82 |." ADV$("I".)":.|
000031E0: 49 00 FE 39 D8 27 81 20 49 B2 31 A4 32 3A 99 22 |I..9.'. I.1.2:."|
000031F0: 20 42 55 24 28 22 49 22 9D 29 22 3A 82 49 00 08 | BU$("I".)":.I..|
00003200: 3A E2 27 8D 20 38 33 35 00 0E 3A EC 27 8E 00 19 |:.'. 835..:.'...|
00003210: 3A 20 4E 9E 55 50 25 3A 8E 00 3D 3A 18 F6 97 20 |: N.UP%:..=:... |
00003220: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0|
00003230: 3A 99 C7 28 31 34 32 29 C7 28 38 29 3B 00 60 3A |:..(142).(8);.`:|
00003240: 22 F6 99 22 93 90 4C 4F 41 44 22 C7 28 33 34 29 |".."..LOAD".(34)|
00003250: 22 4D 45 4E 55 32 22 C7 28 33 34 29 22 2C 38 22 |"MENU2".(34)",8"|
00003260: 00 80 3A 2C F6 97 20 36 33 36 2C 30 3A 97 36 34 |..:,.. 636,0:.64|
00003270: 2C 30 3A 97 34 38 2C 38 3A 97 35 32 2C 31 36 30 |,0:.48,8:.52,160|
00003280: 00 A1 3A 36 F6 97 20 35 34 2C 30 3A 97 35 36 2C |..:6.. 54,0:.56,|
00003290: 31 36 30 3A 97 35 37 2C 30 3A 97 35 38 2C 32 35 |160:.57,0:.58,25|
000032A0: 35 00 AB 3A 40 F6 97 36 32 2C 30 00 BA 3A 4A F6 |5..:@..62,0..:J.|
000032B0: 99 22 11 11 11 11 52 55 4E 22 00 E3 3A 54 F6 99 |."....RUN"..:T..|
000032C0: 22 11 11 11 11 11 11 11 22 A3 31 34 29 22 9A 4C |".......".14)".L|
000032D0: 4F 41 44 49 4E 47 2E 2E 2E 2E 90 22 3A 97 31 39 |OADING.....":.19|
000032E0: 38 2C 33 00 0D 3B 5E F6 97 36 33 31 2C 31 39 3A |8,3..;^..631,19:|
000032F0: 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A |.632,13:.633,13:|
00003300: 97 35 39 2C 30 3A 97 36 30 2C 30 3A A2 00 00 00 |.59,0:.60,0:....|
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++..._..UF.1..240...D.U
F.0:.:..(.F.. ++ CHECK DELETE ++.9.I..C(
UR$).1.50.Q.N.UR$.H(UR$,C(UR$).1).C.S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++...}..C(US$).0.150......US.1.C
(US$).D....UI$.J(US$,US,1)...J.....W...U
I$."":....... ** STANDARD INPUT **......
F(UI$).46........UI$.G(32)...1. ..F(UI$)
.48.F(UI$).57.170.7.....T....F(UI$).65.F
(UI$).90.180.Z.....~....F(UI$).193.F(UI$
).218.UI$."":.......B(UT).UL%.UI$.G(F(UI
$).128):............UI$."":..Y.C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245...M..UQ.UB.(U2%.256.U1%.U3%.2).&.R.U
Q%(UQ.UB).B(UQ):.:.".".9.W.UZ.1:UV%.B(UT
).B.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
....".";:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%
.3).H....UQ,UQ%(UQ.UB):..T....U1,U1%....
..U2,U2%......U4,U4%......U3,U3%.1......
35.4...UD%.((U2%.256.U1%.U3%).UB).40:.H(
UD$,UD%.1):..O....H(UD$,24);"
. HELP COMING . ":......U1%.
B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4).....
UJ$.US$:UJ.UL.M...UJ$.US$:UK$.UG$:UJ.UP:
UK.UL.S.......,.. ** MENU **...-.:......
".":.UT,UU%:.B(50003).0..53281,9:.53280,
8.../.:.>.1.."... MENU".N
.6..". ---------------------------------
-----"...;..".. 1. WACKY STORI
ES"...@..".. 2. INSTRUCTIONS".
..E..".. 3. ADDED INSTRUCTIONS
"...Q..".. 4. QUIT."...T..". -
-------------------------------------".Z
.Y.."... PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUTI
NE..._..C(UR$).1.300...`.US$.""...C.. E(
UR$).1000,400,500,396.F.H..300...... **
RE-ENABLE STOP KEY AND END **......B(500
03)..1.B(50003)..160.B(50003)..0.399.'..
..UU.71.2....63000.=....875:..^.... ** S
TUDENT INSTRUCTIONS **......".":.UT,UL%:
.B(50003).0..53281,0:.53280,0.....UP.0:U
G$."INSTRUCTIONS":.850......".. USING TH
IS PROGRAM YOU ARE GOING TO "......". CR
EATE A RATHER WEIRD STORY.".0....". ENTE
R YOUR WORDS INTO THE COMPUTER.".]....".
PLEASE REMEMBER TO PRESS <RETURN> ."...
...".
"......".
"......".
"......835......UZ.1..U
P%:.217............ ** TEACHER INSTRUCTI
ONS **.^....".":.UT,UL%:.B(50003).0..532
81,2:.53280,10....UP.0:UG$."INSTRUCTION
S":.850......".. TO THE BEST OF O
UR".J....". KNOWLEDGE THIS PROGRA
M"......". IS IN THE PUBLIC DOMAI
N.......".. GREEN VALLEY PUBLISHING
INC.".@....". 7122 SHADY OAK ROAD"
.F....". EDEN PRAIRIE, MN 55344".|
...UP.1:. 835:. 850:......" ..PROGRA
M NAME: WACKY STORIES..L...." WRITTE
N BY : DAVID ZINN ......." UPGRADED
BY : SCOTT BRUNS......." .THIS PROG
RAM WILL RUN ON ANY...F...."....
COMMODORE 64 COMPUTER.O....835.C.N..UZ.
1..UP%:.217.I.W.....X.. ** PROGRAM MODIF
ICATION INST **. .Y..".":.UT,UL%...].UP.
0:UG$."PROGRAM MOD":.850.K.B..10000.....
.UZ.1..UP%:.217............ ** TO USE 80
32 LOAD CBM4032 **.@.F..".....BEFORE RUN
NING THIS PROGRAM ON AN 8032 ...V.P.."
LOAD THE 'CBM 4032' PROGRAM........
....."...Z..UU.71......... .. ** T I T L
E P A G E **...".."....";:.UT,UU%:.B(
50003).0..53280,14:.53281,6...$..I.1.38:
."...";:....&..I.1.22:.".....";:..!.(..I
.1.37:.".....";:..9.*..I.1.22:.".....";:
..`.,.."......... WACKY STORIES"
......"......HAVE THE TIME OF YOUR LIFE!
THE"...0..".....COMPUTER WILL WRITE THE
STORIES."...2.."..... ALL YOU HAVE TO
DO IS ENTER"...4.."..... VERBS, NOUNS,
ADJECTIVES,".9.6..".....ADVERBS AND 2 F
AMOUS BUILDINGS.".`.8.."..... THE L
AUGHS ARE FREE,"...9..".......... SO HAV
E LOTS OF FUN."...:.. ** COMMODORE LOGO
**.Z.;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0...<..A$:.A$.." ".I.I.
1:.I.800.828. .>.T1$."":T2$."":T3$."":T4
$."":I.0.).@..300.E.C.. ** SPACE BAR PRE
SS **.V.E..X.1.3000:.X...H..UO,0:.H(UD$,
24);".......PRESS SPACE BAR TO CONTINUE.
"...L..UI$:.UI$.." ".844...N...N.R.. **
PAGE DESIGN ROUTINE **.Z.T.UP.UP.1...W..
"."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).3.\
.." ------------------------------------
--".B.`..UH..0.870.[.A..H(UD$,24);H(UP$,
6);.L.F.UH.0:."..":....K.. ** PLEASE WAI
T REMARK **.A.P..H(UD$,24);" O
NE MOMENT PLEASE... ".G.U........ **
SET UP VARIABLES **./...UX$."H":.UQ%(10
00):UB.32768:U1.196:U2.197:U3.198:U4.216
:UC.167:UU.1024.M...UT.59468:UU%.12:UL%.
14:UP%.1146:UM.32768:UO.158:. 50003,0...
...B(50003).0.UB.1024:U1.209:U2.210:U3.2
11:U4.214:UC.204:UU.2048......B(50003).0
.UT.53272:UU%.21:UL%.23:UP%.2139:UM.1024
:UO.198.....UD$.".......................
..".E...UP$."
".....UT$." WACKY STORIES
":. PLACE PROGRAM TITLE HERE !!!!!!!!!!
!!!!!!!***............ ** SET VARIABLES
**......900.V.... ** CHECK FOR 8032 **..
....".":." ":. SHIFTED SPACE......B(UB.4
0)..96..700.$.... ** MEMORY CHECK **.8..
.. .(0).2000.937.F...."....THIS MACHINE
DOES NOT HAVE ENOUGH."......"MEMORY TO R
UN THIS PROGRAM !"......UU.71...........
."..":.B(50003).0.962...... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **."....1075,1
33:.1076,144:.1077,234:.1079,4:.1080,133
:.1081,145.X....1091,155:.1098,133:.1099
,144:.1100,234:.1103,133.Z....1104,145:.
1105,234:.1082,234......B(50003)..160.95
5......1093,88:.1094,228:.1097,85:.1102,
228:.965.U....B(50003)..1.990......1093,
49:.1094,230:.1097,46:.1102,230:.965.>.B
..2099,141:.2100,20:.2101,3:.2103,8:.210
4,141:.2105,21.Z.C..2106,3:.2115,145:.21
17,52:.2118,234:.2121,49:.2122,141...D..
2123,20:.2124,3:.2126,234:.2127,141:.212
8,21:.2129,3.R.E..UU.48:. DISABLE STOP K
EY...J..800:. TITLE...T..300:. MENU.$...
.".THE PGM WILL NOT WORK ON THIS MACHINE
!":..Y....UZ.1..UP%:.UP%:UZ.0:. ** PROGR
AM STARTS HERE **......"..";:.:.B(50003)
.0..53281,6:.53280,6......".":.UT,UU%.D.
...".. PLEASE GIVE ME TWO NAMES (OF PEOP
LE)".W.C.." NAME #1? ";...D.US$."":UL.20
:.35:NAME$(1).UR$.. I.." NAME #2? ";:.35
:NAME$(2).UR$.& S..".".] X..I.1.4:." NOU
N #";I;"? ";:.35:NOUN$(I).UR$:.I:.".".
...". EIGHT ADJECTIVES, PLEASE".. ... I.
1 . 8:." ADJECTIVE #";I;"? ";:.35:ADJ$(I
).UR$:. I.Z ...". FOUR VERBS WOULD BE NI
CE..!... I.1 . 4:." VERB #";I;"? ";:.35:
VERB$(I).UR$:. I:.".".,!...".NOW SIX ADV
ERBS.E!... I.1 . 6:." ADVERB #";I;"? ";:
.35:AVERB$(I).UR$:. I..!...". FINALLY TH
E NAMES OF TWO BUILDINGS..!'.." BUILDING
#1? ";..!(..35:BU$(1).UR$:." BUILDING #
2? ";:.35:BU$(2).UR$..!).US$."1234H":UL.
1.#"*..". WHICH STORY FIRST (1,2,3,4=QU
IT)? ";:.35.."-.V$.UR$.Q"2.. E(V$) . 133
5,2000,3000,20000.["4..1322.Q"7.."... HE
RE WE GO!.."<..". THE GREAT WIZ, ";NAME$
(1);" DRIFTED ";AVERB$(1);" DOWN".."A...
."F.." THE ";AD$(1);" ";NO$(1);" OF SOUT
H LYON.":.:." TWO BLOCKS".."K...=#P.." F
ROM THE ";ADJ$(2);" ELEMENTARY SCHOOL":.
:." APPEARED".C#U...X#Z.." AN OLD ENEMY
";NAME$(2);" RUNNING ";AVERB$(2).~#_....
#D.." ACROSS THE ";ADJ$(3);" ";NOUN$(2):
..P#G.." OF A ";ADJ$(4);" ";NOUN$(3);"."
.V#I....#J.. 835:."...".)$N.." 'I WILL "
;VERB$(1);" YOU WITH A ":.:." "ADJ$(5);"
SPELL,'"./$S...[$X.." SHOUTED ";NAME$(1
);" ";AVERB$(3);".".A$}....$..." 'I CAN
";VERB$(2);" YOU WITH A ";ADJ$(6);" SPEL
L!'..$.....$..." REPLIED ";NAME$(2);" ";
AVERB$(4);" AND ";VERB$(3); "ED ACROSS".
.$.....%..." SOUTH LYON TO THE ";BU$(1);
"."..%... 835.(%...".":..I% .." "NAME$(1
);" SHOT A ";ADJ$(5);" ";NOUN$(4);" WHIC
H MELTED".O%.....%..." THE ";BU$(1);", A
ND ";NAME$(2); " RESPONDED":.". WITH THE
"..%.....%..." "AD$(6);" SPELL WHICH FRO
ZE THE ":.". " BU$(2);" BEHIND":..3&..."
WHICH ";NAME$(1);" HAD DUCKED.":.:." AF
TER A WHILE.9&C...J&H.." MRS. JOHNSON CA
ME OUT AND MADE ";NAME$(1).P&M....&R.."
AND ";NAME$(2);" CLEAN UP THE "; ADJ$(7
);" MESS..&W....&..." THEY HAD MADE OF T
HE ";ADJ$(8);" SCHOOLYARD...&... 835..&.
....'... WE MIGHT PUT ANOTHER STORY IN H
ERE.H'... THIS IS ONE SET OF WORDS TO HA
VE HANDY.T'... THE LINE NUMBERS ARE SIMI
LAR TO THOSE.Z'.....'"....''.. NAME$(1)
,NAME$(2).D',.. NOUN$(1),NOUN$(2),NOUN$
(3),NOUN$(4)..'6.. I.1 . 8: . ADJ$(I):
. I..(@.. I.1 . 4: . VERB$(I): . I.$(J.
. I.1 . 6: . AVERB$(I): . I.9(T.. BU$(
1),BU$(2).D(^.. 1335.T(H.. FRED,DAVE.T(R
.. STREET,BOULDER,RIVER,TREE..(|.. HOT,S
LICK,HIGH,STRONG,MESSY,LOUD,BRIGHT,GOOEY
..(... DASH,RUN,LEAP,SIT..(... SLOWLY,HA
PPILY,QUICKLY,SADLY,HOPEFULLY,QUIETLY..)
... LIBRARY,SCHOOL..)... SHUT UP,LIFE.2)
..NAME$(1)."NAME1".G)..NAME$(2)."NAME2".
\)..NOUN$(1)."NOUN1".Q)B.NOUN$(2)."NOUN2
"..)L.NOUN$(3)."NOUN3"..)V.NOUN$(4)."NOU
N4"..)..ADJ$(1)."ADJ1".A)..ADJ$(2)."ADJ2
".T)..ADJ$(3)."ADJ3"..)..ADJ$(4)."ADJ4".
.)..ADJ$(5)."ADJ5"..*..ADJ$(6)."ADJ6". *
..ADJ$(7)."ADJ7".3*&.ADJ$(8)."ADJ8".H*0.
VERB$(1)."VERB1".]*:.VERB$(2)."VERB2".R*
D.VERB$(3)."VERB3"..*N.VERB$(4)."VERB4".
.*X.AVERB$(1)."ADVERB1"..*B.AVERB$(2)."A
DVERB2".O*L.AVERB$(3)."ADVERB3"..*V.AVER
B$(4)."ADVERB4"..*..BU$(1)."BUILDING1"..
+..BU$(2)."BUILDING2". +... 1330.4+P..".
HERE WE GO!.X+Z..". THE POOR SWINEHERD,
";NAME$(2);" WALKED ";AVERB$(1);" DOWN"
.~+....B+..." THE ";ADJ$(1);" ";NOUN$(1)
;" OF FORT ERIE. TWO ";BU$(2);"S".H+...
..+..." FROM THE ";ADJ$(2);" INN HE SAW
"..+....,,..." AN OLD ENEMY ";NAME$(1);"
RUNNING ";AVERB$(2).2, ...},*.." ACROSS
THE ";ADJ$(3);" ";NOUN$(2);" OF A ";ADJ
$(4);" ";NOUN$(3);"."..,4....,>.." 'I WI
LL ";VERB$(1);" YOU WITH MY "ADJ$(5);" A
XE,'".C,H....,R.." SCREAMED ";NAME$(1);"
";AVERB$(3);"."..,\...2-F.." 'I CAN ";V
ERB$(2);" YOU WITH MY ";ADJ$(6);" BLADE!
'".W-K..:." SAID ";NAME$(2);" ";ADV$(2).
A-P.. 835.G-.....-...". REPLIED ";NAME$(
2);" ";AVERB$(4);" AND ";VERB$(3); "ED A
CROSS"..-....Y-..." FORT ERIE TO THE ";B
U$(1);"."..-....#...." "NAME$(1);" BOLDL
Y ";ADJ$(5);" ";NOUN$(4);" WHICH WOUNDE
D ".).J...A.T.." " NAME$(2)" BUT ";NAME$
(2); " COUNTER-ATTACKED ".G.......... "
WITH HIS "ADJ$(5);" ";NOUN$((.(TI).4).1)
............" "NO$(1)" FELL TO THE ";ADV
$(2):.:." ONSLAUGHT OF ";NAME$(2).......
./$.." AND ";NAME$(2);" SHEATHED HIS SWO
RD AND"../....T/8.." WALKED "ADV$(2);" I
NTO THE "ADJ$(1)" SUNSET...".]/=..835.F/
>..".".L/B...W/...".":.../B.." THERE ONC
E WAS A CREATURE"../G..../L.." CALLED ";
NAME$(1);" IT ".E/Q..../V.." LIVED IN A
"ADJ$(2);" ";BU$(1)../.....0..." IT WAS
VERY "ADV$(4);" AND "..0....B0..." VERY
";ADV$(3);". ON TUESDAYS ".H0....F0..."
IT LIKED TO ";VERB$(2).L0....U0...835.~0
..."."..0..." ";NAME$(2);" HAD A FRIEND
CALLED "..0....U0..." ";NAME$(1);" WHO L
IVED IN THE "..0.....1..." ";BU$(2);". "
;NAME$(1);" WAS VERY "..1....71..." ";AD
V$(5);" AND VERY ";ADV$(6);". ".=1!...]1
&.." THEY WERE VERY ";ADJ$(8).C1+....10.
." FRIENDS AND HAD MANY "ADJ$(1)..15....
1:.." TIMES TOGETHER. ";NAME$(1)..1?....
1D.." WAS RATHER LAZY AND DID NOT "..1I.
...2N.." WORK AS HARD AS ";NAME$(2);" DI
D"..2S....2X.. 835.%2B..".":..M2L.." AND
SO WHEN FALL CAME ";NAME$(2).S2Q...}2V.
." TOLD "NAME$(1);" 'YOU HAD BETTER "..2
{....2..." WORK NOW OR YOU WILL HAVE "..
2....Q2..." NOTHING TO EAT ALL WINTER.'
".W2.....2..." BUT ";NAME$(1);" SAID "..
2.....3..." I WOULD RATHER ";VERB$(2).#3
....83..." FOR THE FALL..B3... 835.K3...
".".Q3....N3..." AND SO ";NAME$(1);" ".T
3.....3..." ";VERB$(2);"ED ALL THE FALL"
..3A...E3F.." AND ";NAME$(2);" LIVED HAP
PILY".K3K....3P.." ALL WINTER AND ";NAME
$(1)..3U....4Z.." SUFFERED IN THE COLD A
ND SNOW.".#4... 835..4...".":..Y4 ..".":
." .INSERT YOUR OWN STORY HERE ".Q4..."
IN LINES 4000-..4..." YOU MAY USE <GO
SUB 835> FOR THE ".I4..." WAIT FOR SPACE
BAR SUBROUTINE TO PAGE "..5H.." YOUR ST
ORY. NOTE WHEN ASKED WHICH STORY A 4 WIL
L OBTAIN THIS ONE.".C5M.." FOR INSTRUCTI
ONS ON HOW TO INSERT YOUR ".S5N.." STORY
TYPE '5' AFTER RETURNING TO THE "..5O.
." MENU. "..5R.. 835..5^....5.'..I5$'."
IN ORDER TO ENTER YOUR OWN STORY INTO ":
...5.'." THIS PROGRAM FIRST EXIT THE PRO
GRAM ":..!68'." BY ENTERING '6' ON THE
MENU.":..P6B'." THEN TYPE 'LIST 4000-50
00'AFTER THE ":...6L'." MESSAGE 'READY.'
IS DISPLAYED BY THE ":...6V'." COMPUTER
. NOW YOU MAY ENTER YOUR ":..L6`'." STO
RY. EXAMPLE LINE:":...7J'." 4010 PRINT";
G(34);" ONCE UPON A TIME";G(34);";NAME$(
1)";.J7T'.G(34);" WAS ";G(34);"VERB$(2)"
;G(34);"ING ONE DAY";G(34).P7Y'.".......
......................'"..7~'.:." THIS L
INE WOULD PRINT:":...7.'NAME$(1)."FRED":
VERB$(2)."WALK"..7.'." ONCE UPON A TIME
";NAME$(1);" WAS ";VERB$(2);"ING "..8.'.
835:. 850.68.'."... IN THE EXAMPLE THE
VARIABLES ".A8.'." VERB$(2)=W
ALK NAME$(1)=FRED.. "..8.'." THE STA
TMENT 'PRINT' CAUSES THESE. "..8.'." VAR
IABLES AND ACCOMPANYING WORDS TO BE":...
8.'." DISPLAYED.":.835:.850..9.'." HERE
IS A LIST OF THE VARIABLES USED ".99.'."
WHICH COULD BE ENTERED INTO THE STORY..
".X9.'. I.1.2:." NAME$("I".)":.I.W9.'. I
.1.4:." NOUN$("I".)":.I..9D'. I.1.8:." A
DJ$("I".)":.I..9H'. 835:. 850.C9I'. I.1.
4:." VERB$("I")":.I..9N'. I.1.6:." ADV$(
"I".)":.I..9X'. I.1.2:." BU$("I".)":.I..
:.'. 835..:.'...: N.UP%:..=:... 53280,0:
.53281,0:.G(142)G(8);.`:".."..LOAD"G(34)
"MENU2"G(34)",8"..:,.. 636,0:.64,0:.48,8
:.52,160..:6.. 54,0:.56,160:.57,0:.58,25
5..:@..62,0..:J.."....RUN"..:T..".......
".14)".LOADING.....":.198,3..;^..631,19:
.632,13:.633,13:.59,0:.60,0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL