Multiple names: COMP.POETRY, COMP. POETRY
FILE INFORMATION
FILENAME(S):
• COMP.POETRY<br>• COMP. POETRY
FILE TYPE(S): PRG
FILE SIZE: 13.5K
FIRST SEEN: 2025-11-30 21:13:29
APPEARS ON: 2 disk(s)
FILE HASH
c6910f3383d20ad087fbcacfc2109e018fe4794eb0029db752df758f440410b0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ALGEMEEN 1 | COMP.POETRY | PRG | DuncanTwain | 5 | 0 | DOWNLOAD FILE |
| PUB DOMAIN | COMP. POETRY | PRG | Maestro | 17 | 1 | 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 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 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 E4 08 23 00 8F 20 2B |UTINE **...#.. +|
000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION|
000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U|
000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*|
00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 16 09 2D |..UL.0.UL.80...-|
00000110: 00 97 55 43 2C 30 00 2A 09 32 00 A1 55 49 24 3A |..UC,0.*.2..UI$:|
00000120: 8B 55 49 24 B2 22 22 A7 35 30 00 54 09 37 00 8B |.UI$."".50.T.7..|
00000130: 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 |UI$..(13)..(UR$)|
00000140: B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B |..1..UC,1:." .";|
00000150: 3A 89 38 35 00 67 09 3C 00 8B 55 49 24 B2 C7 28 |:.85.g.<..UI$..(|
00000160: 32 30 29 A7 31 30 35 00 7B 09 3E 00 8B 20 C3 28 |20).105.{.>.. .(|
00000170: 55 52 24 29 B2 B1 55 4C A7 35 30 00 A0 09 41 00 |UR$)..UL.50...A.|
00000180: 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |.120:. CHECK FOR|
00000190: 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 | VALID CHARACTER|
000001A0: 00 B0 09 46 00 55 52 24 B2 55 52 24 AA 55 49 24 |...F.UR$.UR$.UI$|
000001B0: 00 BA 09 4B 00 99 55 49 24 3B 00 C2 09 50 00 89 |...K..UI$;...P..|
000001C0: 35 30 00 E7 09 55 00 8F 20 2B 2B 2B 20 43 48 45 |50...U.. +++ CHE|
000001D0: 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 |CK FOR HELP REQU|
000001E0: 45 53 54 20 2B 2B 2B 00 0F 0A 5A 00 8B 55 52 24 |EST +++...Z..UR$|
000001F0: B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 |.UX$.195:. EXIT |
00000200: 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 |TO HELP ROUTINE.|
00000210: 1E 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 2B |.._..UF.1..240.+|
00000220: 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 44 0A 66 00 |.d.UF.0:.:..D.f.|
00000230: 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 |. ++ CHECK DELET|
00000240: 45 20 2B 2B 00 55 0A 69 00 8B C3 28 55 52 24 29 |E ++.U.i...(UR$)|
00000250: B3 31 A7 35 30 00 6D 0A 6E 00 55 52 24 B2 C8 28 |.1.50.m.n.UR$..(|
00000260: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 7F 0A |UR$,.(UR$).1)...|
00000270: 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 |s..". ..";:.50.|
00000280: A6 0A 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 |..x.. ++ CHECK F|
00000290: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT|
000002A0: 45 52 53 20 2B 2B 00 B8 0A 7D 00 8B C3 28 55 53 |ERS ++...}...(US|
000002B0: 24 29 B2 30 A7 31 35 30 00 C8 0A 7F 00 55 53 24 |$).0.150.....US$|
000002C0: B2 55 53 24 AA 55 58 24 00 D9 0A 82 00 81 55 53 |.US$.UX$......US|
000002D0: B2 31 A4 C3 28 55 53 24 29 00 F0 0A 87 00 8B 55 |.1..(US$)......U|
000002E0: 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E |I$..(US$,US,1)..|
000002F0: 00 F6 0A 8C 00 82 00 03 0B 91 00 55 49 24 B2 22 |...........UI$."|
00000300: 22 3A 8E 00 1E 0B 96 00 8F 20 2A 2A 20 53 54 41 |":....... ** STA|
00000310: 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 2F |NDARD INPUT **./|
00000320: 0B 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 |.....(UI$).46...|
00000330: 40 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E |@....UI$..(32)..|
00000340: 00 5D 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 |.].....(UI$).48.|
00000350: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 63 0B |.(UI$).57.170.c.|
00000360: A5 00 8E 00 80 0B AA 00 8B C6 28 55 49 24 29 B3 |..........(UI$).|
00000370: 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 |65..(UI$).90.180|
00000380: 00 86 0B AF 00 8E 00 AA 0B B4 00 8B C6 28 55 49 |.............(UI|
00000390: 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 |$).193..(UI$).21|
000003A0: 38 A7 55 49 24 B2 22 22 3A 8E 00 CD 0B B9 00 8B |8.UI$."":.......|
000003B0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(|
000003C0: C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 D3 0B |.(UI$).128):....|
000003D0: BB 00 8E 00 E0 0B BE 00 55 49 24 B2 22 22 3A 8E |........UI$."":.|
000003E0: 00 05 0C C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 |.....UF.1:. +++ |
000003F0: 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 |HELP ROUTINE EXI|
00000400: 54 20 2B 2B 2B 00 0E 0C C5 00 8D 32 35 30 00 17 |T +++......250..|
00000410: 0C C8 00 8D 32 34 35 00 36 0C CD 00 81 55 51 B2 |....245.6....UQ.|
00000420: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.|
00000430: 55 33 25 AB 32 29 00 52 0C D2 00 55 51 25 28 55 |U3%.2).R...UQ%(U|
00000440: 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 |Q.UB)..(UQ):.:."|
00000450: 93 22 00 65 0C D7 00 55 5A B2 31 3A 55 56 25 B2 |.".e...UZ.1:UV%.|
00000460: C2 28 55 54 29 00 6E 0C D8 00 89 33 30 30 00 B2 |.(UT).n....300..|
00000470: 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A |...UZ.0:US$.UJ$:|
00000480: 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C |UG$.UK$:UP.UJ:UL|
00000490: B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.UK:..(50003).0.|
000004A0: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
000004B0: 31 34 00 E7 0C DC 00 55 54 24 B2 55 4C 24 3A 99 |14.....UT$.UL$:.|
000004C0: 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 |".";:.UT,UV%:.UQ|
000004D0: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
000004E0: AA 55 33 25 AB 33 29 00 FC 0C E1 00 97 55 51 2C |.U3%.3)......UQ,|
000004F0: 55 51 25 28 55 51 AB 55 42 29 3A 82 00 08 0D E6 |UQ%(UQ.UB):.....|
00000500: 00 97 55 31 2C 55 31 25 00 14 0D E8 00 97 55 32 |..U1,U1%......U2|
00000510: 2C 55 32 25 00 20 0D E9 00 97 55 34 2C 55 34 25 |,U2%. ....U4,U4%|
00000520: 00 2E 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 36 |......U3,U3%.1.6|
00000530: 0D EB 00 89 33 35 00 68 0D F0 00 55 44 25 B2 28 |....35.h...UD%.(|
00000540: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
00000550: 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C |).UB).40:..(UD$,|
00000560: 55 44 25 AA 31 29 3A 8E 00 A3 0D F5 00 99 C8 28 |UD%.1):........(|
00000570: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
00000590: 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 | HELP COMING . |
000005A0: 22 3A 8E 00 CF 0D FA 00 55 31 25 B2 C2 28 55 31 |":......U1%..(U1|
000005B0: 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 |):U2%..(U2):U3%.|
000005C0: C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 |.(U3):U4%..(U4).|
000005D0: F7 0D FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |....UJ$.US$:UK$.|
000005E0: 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 |UG$:UL$.UT$:UJ.U|
000005F0: 50 3A 55 4B B2 55 4C 00 FD 0D FF 00 8E 00 0E 0E |P:UK.UL.........|
00000600: 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 14 |,.. ** MENU **..|
00000610: 0E 2D 01 3A 00 43 0E 2E 01 99 22 93 22 3A 97 55 |.-.:.C....".":.U|
00000620: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).|
00000630: 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 |0..53281,9:.5328|
00000640: 30 2C 38 00 49 0E 2F 01 3A 00 66 0E 31 01 99 22 |0,8.I./.:.f.1.."|
00000650: 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000660: 20 4D 45 4E 55 22 00 95 0E 36 01 99 22 20 2D 2D | MENU"...6.." --|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 22 00 BA 0E 3B 01 99 22 11 11 20 20 |----"...;..".. |
000006A0: 20 20 20 20 20 31 2E 20 20 20 43 4F 4D 50 55 54 | 1. COMPUT|
000006B0: 45 52 20 50 4F 45 54 52 59 22 00 E4 0E 40 01 99 |ER POETRY"...@..|
000006C0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
000006D0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
000006E0: 4F 4E 53 22 00 0E 0F 45 01 99 22 11 11 20 20 20 |ONS"...E..".. |
000006F0: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000700: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 3B | INSTRUCTIONS".;|
00000710: 0F 4A 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.J..".. 4.|
00000720: 20 20 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 | MODIFICATION |
00000730: 4F 46 20 50 52 4F 47 52 41 4D 22 00 57 0F 4F 01 |OF PROGRAM".W.O.|
00000740: 99 22 11 11 20 20 20 20 20 20 20 35 2E 20 20 20 |.".. 5. |
00000750: 51 55 49 54 11 11 22 00 86 0F 54 01 99 22 20 2D |QUIT.."...T.." -|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 22 00 B1 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
00000790: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
000007A0: 4D 42 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 |MBER KEY (1-5) "|
000007B0: 3B 00 DA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007C0: 31 32 33 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 |12345":.35:. INP|
000007D0: 55 54 20 52 4F 55 54 49 4E 45 00 EC 0F 5F 01 8B |UT ROUTINE..._..|
000007E0: C3 28 55 52 24 29 B1 31 A7 33 30 30 00 F7 0F 60 |.(UR$).1.300...`|
000007F0: 01 55 53 24 B2 22 22 00 10 10 62 01 8B 20 46 4C |.US$.""...b.. FL|
00000800: 41 47 B2 31 AF 55 52 24 B2 22 31 22 A7 32 32 30 |AG.1.UR$."1".220|
00000810: 00 31 10 63 01 91 C5 28 55 52 24 29 8D 31 30 30 |.1.c...(UR$).100|
00000820: 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 |0,400,500,600,39|
00000830: 36 00 3A 10 68 01 89 33 30 30 00 61 10 8B 01 8F |6.:.h..300.a....|
00000840: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000850: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000860: 2A 00 90 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).|
00000870: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000880: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000890: 00 BA 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5|
000008A0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
000008B0: 3A 97 35 33 32 38 30 2C 31 34 00 C6 10 8E 01 99 |:.53280,14......|
000008C0: 22 9A 93 22 3A 80 00 D1 10 8F 01 8D 38 37 35 3A |"..":.......875:|
000008D0: 8E 00 F2 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000008E0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
000008F0: 2A 2A 00 21 11 95 01 99 22 93 22 3A 97 55 54 2C |**.!....".":.UT,|
00000900: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000910: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
00000920: 30 00 59 11 9A 01 55 54 24 B2 22 20 C3 CF CD D0 |0.Y...UT$." ....|
00000930: D5 D4 C5 D2 20 D0 CF C5 D4 D2 D9 22 3A 55 50 B2 |.... ......":UP.|
00000940: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
00000950: 4E 53 54 22 3A 8D 38 35 30 00 94 11 9F 01 99 22 |NST":.850......"|
00000960: 11 11 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 |.. .HIS PROGRAM |
00000970: 49 53 20 54 4F 20 48 45 4C 50 20 59 4F 55 20 4C |IS TO HELP YOU L|
00000980: 45 41 52 4E 20 20 20 20 20 20 20 11 50 4F 45 54 |EARN .POET|
00000990: 52 59 2E 22 00 BA 11 A4 01 99 22 11 11 20 D9 4F |RY."......".. .O|
000009A0: 55 20 57 49 4C 4C 20 4C 45 41 52 4E 20 54 57 4F |U WILL LEARN TWO|
000009B0: 20 44 49 46 46 45 52 45 4E 54 00 E5 11 A9 01 99 | DIFFERENT......|
000009C0: 22 11 20 54 59 50 45 53 20 4F 46 20 50 4F 45 4D |". TYPES OF POEM|
000009D0: 53 3B 20 27 C3 CF CD D0 C1 D2 C9 D3 CF CE 27 20 |S; '..........' |
000009E0: 50 4F 45 4D 53 00 0D 12 AE 01 99 22 11 20 41 4E |POEMS......". AN|
000009F0: 44 20 27 C9 A0 D5 D3 C5 C4 A0 D4 CF 2F C2 D5 D4 |D '........./...|
00000A00: A0 CE CF D7 27 20 50 4F 45 4D 53 2E 22 00 1B 12 |....' POEMS."...|
00000A10: C7 01 8D 38 33 35 3A 8D 38 35 30 00 4A 12 CC 01 |...835:.850.J...|
00000A20: 99 22 11 11 20 CE 4F 54 45 3A 11 11 11 D4 4F 20 |.".. .OTE:....O |
00000A30: 41 44 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 |ADVANCE FROM ONE|
00000A40: 20 51 55 45 53 54 49 4F 4E 22 00 73 12 D6 01 99 | QUESTION".s....|
00000A50: 22 11 20 54 4F 20 54 48 45 20 4E 45 58 54 20 50 |". TO THE NEXT P|
00000A60: 52 45 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 42 |RESS THE ..... B|
00000A70: 41 52 22 00 A4 12 DB 01 99 22 11 11 1D 1D 1D 1D |AR"......"......|
00000A80: 1D 20 C9 46 20 41 54 20 41 4E 59 20 54 49 4D 45 |. .F AT ANY TIME|
00000A90: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 | YOU WISH TO RET|
00000AA0: 55 52 4E 22 00 C8 12 E0 01 99 22 11 20 54 4F 20 |URN"......". TO |
00000AB0: 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 |THE .... PRESS H|
00000AC0: 20 D2 C5 D4 D5 D2 CE 22 00 D1 12 E5 01 8D 38 33 | ......"......83|
00000AD0: 35 00 E5 12 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
00000AE0: 3A 89 32 31 37 00 EB 12 F3 01 8E 00 0C 13 F4 01 |:.217...........|
00000AF0: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000B00: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 3C 13 F5 |TRUCTIONS **.<..|
00000B10: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000B20: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000B30: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 74 13 F6 |,2:.53280,10.t..|
00000B40: 01 55 54 24 B2 22 20 C3 CF CD D0 D5 D4 C5 D2 20 |.UT$." ........ |
00000B50: D0 CF C5 D4 D2 D9 22 3A 55 50 B2 30 3A 55 47 24 |......":UP.0:UG$|
00000B60: B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A |.".EACHER .NST":|
00000B70: 8D 38 35 30 00 A2 13 F7 01 99 22 11 11 20 20 20 |.850......".. |
00000B80: 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F | .O THE BEST O|
00000B90: 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C |F OUR KNOWLEDGE,|
00000BA0: 11 22 00 CB 13 F8 01 99 22 20 20 20 54 48 49 53 |."......" THIS|
00000BB0: 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 | PROGRAM IS IN T|
00000BC0: 48 45 20 50 55 42 4C 49 43 11 22 00 F7 13 F9 01 |HE PUBLIC.".....|
00000BD0: 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 |." DOMAIN. .F|
00000BE0: 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 | THIS IS NOT THE|
00000BF0: 20 43 41 53 45 11 22 00 14 14 FA 01 99 22 20 20 | CASE."......" |
00000C00: 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A | PLEASE CONTACT:|
00000C10: 11 11 11 22 00 3E 14 FB 01 99 22 20 20 20 20 20 |...".>...." |
00000C20: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E | .OMMODORE .USIN|
00000C30: 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 61 |ESS .ACHINES.".a|
00000C40: 14 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 33 |...." 3|
00000C50: 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 |370 .HARMACY .VE|
00000C60: 2E 00 85 14 FD 01 99 22 20 20 20 20 20 20 20 20 |......." |
00000C70: 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 | .GINCOURT, .NT|
00000C80: 41 52 49 4F 22 00 A7 14 FE 01 99 22 20 20 20 20 |ARIO"......" |
00000C90: 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD | .ANADA .|
00000CA0: 31 D7 20 32 CB 34 22 00 C7 14 FF 01 99 22 20 20 |1. 2.4"......" |
00000CB0: 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 | (416) 49|
00000CC0: 39 2D 34 32 39 32 22 00 D8 14 00 02 8D 20 38 33 |9-4292"...... 83|
00000CD0: 35 3A 8D 20 38 35 30 3A 00 04 15 01 02 99 22 20 |5:. 850:......" |
00000CE0: 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 | ...ROGRAM .A|
00000CF0: 4D 45 3A 20 C3 4F 4D 50 55 54 45 52 20 D0 4F 45 |ME: .OMPUTER .OE|
00000D00: 54 52 59 11 00 2C 15 02 02 99 22 20 20 20 20 20 |TRY..,...." |
00000D10: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 CC 4F |.RITTEN .Y : .O|
00000D20: 52 45 45 4E 20 C8 41 4E 53 45 4E 11 00 50 15 03 |REEN .ANSEN..P..|
00000D30: 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 |.." .PGRADED|
00000D40: 20 C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 | .Y : .|
00000D50: 00 7B 15 04 02 99 22 20 20 20 20 20 11 D4 48 49 |.{...." ..HI|
00000D60: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 |S PROGRAM WILL R|
00000D70: 55 4E 20 4F 4E 20 41 4E 59 11 11 00 A2 15 05 02 |UN ON ANY.......|
00000D80: 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 |." .....|
00000D90: A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 |.2.0 ... .......|
00000DA0: D2 11 00 C9 15 06 02 99 22 20 20 20 20 20 20 20 |........" |
00000DB0: 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 | ..... 4.0 ....|
00000DC0: C3 CF CD D0 D5 D4 C5 D2 11 00 EB 15 07 02 99 22 |..............."|
00000DD0: 20 20 20 20 20 20 20 20 20 38 30 33 32 20 C3 C2 | 8032 ..|
00000DE0: CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 10 16 08 02 |. ..............|
00000DF0: 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF |." .....|
00000E00: C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 |.... 64 ........|
00000E10: 00 1E 16 09 02 8D 38 33 35 3A 8D 38 35 30 00 4E |......835:.850.N|
00000E20: 16 0A 02 99 22 11 11 20 20 D4 48 49 53 20 49 53 |....".. .HIS IS|
00000E30: 20 41 20 47 4F 4F 44 20 45 58 45 52 43 49 53 45 | A GOOD EXERCISE|
00000E40: 20 46 4F 52 20 53 54 55 44 45 4E 54 53 22 00 79 | FOR STUDENTS".y|
00000E50: 16 0B 02 99 22 11 20 57 48 4F 20 52 45 41 4C 4C |....". WHO REALL|
00000E60: 59 20 44 4F 4E 27 54 20 4C 49 4B 45 20 50 4F 45 |Y DON'T LIKE POE|
00000E70: 54 52 59 2E 20 D4 48 45 22 00 A7 16 0C 02 99 22 |TRY. .HE"......"|
00000E80: 11 20 50 4F 45 4D 53 20 54 48 45 59 20 57 49 4C |. POEMS THEY WIL|
00000E90: 4C 20 57 52 49 54 45 20 41 52 45 20 53 49 4D 50 |L WRITE ARE SIMP|
00000EA0: 4C 45 20 41 4E 44 22 00 E1 16 0D 02 99 22 11 20 |LE AND"......". |
00000EB0: 53 48 4F 52 54 20 41 4E 44 20 4D 41 59 20 49 4E |SHORT AND MAY IN|
00000EC0: 53 50 49 52 45 20 53 4F 4D 45 20 49 4E 54 45 52 |SPIRE SOME INTER|
00000ED0: 45 53 54 20 49 4E 20 20 11 50 4F 45 54 52 59 2E |EST IN .POETRY.|
00000EE0: 22 00 EA 16 44 02 8D 38 33 35 00 FE 16 4E 02 8B |"...D..835...N..|
00000EF0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 04 |UZ.1..UP%:.217..|
00000F00: 17 57 02 8E 00 2A 17 58 02 8F 20 2A 2A 20 50 52 |.W...*.X.. ** PR|
00000F10: 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 |OGRAM MODIFICATI|
00000F20: 4F 4E 20 49 4E 53 54 20 2A 2A 00 3B 17 59 02 99 |ON INST **.;.Y..|
00000F30: 22 93 22 3A 97 55 54 2C 55 4C 25 00 72 17 5D 02 |".":.UT,UL%.r.].|
00000F40: 55 54 24 B2 22 20 C3 CF CD D0 D5 D4 C5 D2 20 D0 |UT$." ........ .|
00000F50: CF C5 D4 D2 D9 22 3A 55 50 B2 30 3A 55 47 24 B2 |.....":UP.0:UG$.|
00000F60: 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 |".ROGRAM .OD":.8|
00000F70: 35 30 00 9F 17 62 02 99 22 11 11 20 D4 48 49 53 |50...b..".. .HIS|
00000F80: 20 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 45 20 | PROGRAM CAN BE |
00000F90: 4D 4F 44 49 46 49 45 44 2C 20 42 55 54 2C 22 00 |MODIFIED, BUT,".|
00000FA0: C9 17 67 02 99 22 20 53 48 4F 55 4C 44 20 42 45 |..g.." SHOULD BE|
00000FB0: 20 44 4F 4E 45 20 42 59 20 53 4F 4D 45 4F 4E 45 | DONE BY SOMEONE|
00000FC0: 20 57 48 4F 20 49 53 20 22 00 03 18 6C 02 99 22 | WHO IS "...l.."|
00000FD0: 20 46 41 4D 49 4C 49 41 52 20 57 49 54 48 20 54 | FAMILIAR WITH T|
00000FE0: 48 45 20 4F 50 45 52 41 54 49 4F 4E 20 4F 46 20 |HE OPERATION OF |
00000FF0: 54 48 49 53 22 3A 99 22 20 50 52 4F 47 52 41 4D |THIS":." PROGRAM|
00001000: 2E 11 22 00 32 18 71 02 99 22 20 CC 49 4E 45 53 |..".2.q.." .INES|
00001010: 20 32 33 30 30 2D 32 37 30 30 20 43 4F 4E 54 41 | 2300-2700 CONTA|
00001020: 49 4E 20 54 48 45 20 52 4F 55 54 49 4E 45 20 54 |IN THE ROUTINE T|
00001030: 4F 22 00 56 18 76 02 99 22 20 50 52 49 4E 54 20 |O".V.v.." PRINT |
00001040: 54 48 45 20 43 4F 4D 50 41 52 49 53 4F 4E 20 50 |THE COMPARISON P|
00001050: 4F 45 4D 53 2E 22 00 84 18 7B 02 99 22 11 20 C2 |OEMS."...{..". .|
00001060: 59 20 43 48 41 4E 47 49 4E 47 20 54 48 45 20 50 |Y CHANGING THE P|
00001070: 52 49 4E 54 20 53 54 41 54 45 4D 45 4E 54 53 20 |RINT STATEMENTS |
00001080: 59 4F 55 22 00 B0 18 80 02 99 22 20 43 41 4E 20 |YOU"......" CAN |
00001090: 55 53 45 20 59 4F 55 52 20 4F 57 4E 20 50 4F 45 |USE YOUR OWN POE|
000010A0: 4D 20 54 4F 50 49 43 53 20 49 4E 20 54 48 45 22 |M TOPICS IN THE"|
000010B0: 00 C1 18 85 02 99 22 20 50 52 4F 47 52 41 4D 2E |......" PROGRAM.|
000010C0: 22 00 CA 18 94 02 8D 38 33 35 00 DE 18 B2 02 8B |"......835......|
000010D0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 E4 |UZ.1..UP%:.217..|
000010E0: 18 BB 02 8E 00 09 19 BC 02 8F 20 2A 2A 20 54 4F |.......... ** TO|
000010F0: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
00001100: 42 4D 34 30 33 32 20 2A 2A 00 3F 19 C6 02 99 22 |BM4032 **.?...."|
00001110: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
00001120: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
00001130: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
00001140: 75 19 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |u...." LOAD|
00001150: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001160: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001170: 11 11 11 11 22 00 80 19 DA 02 9E 55 55 AA 37 31 |...."......UU.71|
00001180: 00 86 19 E4 02 80 00 AB 19 1D 03 8F 20 2A 2A 20 |............ ** |
00001190: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
000011A0: 20 43 42 4D 34 30 33 32 20 2A 2A 00 F6 19 1E 03 | CBM4032 **.....|
000011B0: 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 55 4E |."....BEFORE RUN|
000011C0: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
000011D0: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
000011E0: 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 50 52 |LOAD CBM 4032 PR|
000011F0: 4F 47 52 41 4D 22 00 02 1A 1F 03 9E 31 30 39 33 |OGRAM"......1093|
00001200: 3A 80 00 22 1A 20 03 8F 20 2A 2A 20 54 20 49 20 |:..". .. ** T I |
00001210: 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 |T L E P A G E |
00001220: 2A 2A 00 56 1A 22 03 99 22 93 11 1D 05 22 3B 3A |**.V.".."....";:|
00001230: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00001240: 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 |).0..53280,14:.5|
00001250: 33 32 38 31 2C 36 00 6C 1A 24 03 81 49 B2 31 A4 |3281,6.l.$..I.1.|
00001260: 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 84 1A 26 |38:."...";:....&|
00001270: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 |..I.1.22:.".....|
00001280: 22 3B 3A 82 00 9C 1A 28 03 81 49 B2 31 A4 33 37 |";:....(..I.1.37|
00001290: 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 B4 1A 2A |:.".....";:....*|
000012A0: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
000012B0: 22 3B 3A 82 00 D9 1A 2C 03 99 22 13 11 11 11 11 |";:....,..".....|
000012C0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012D0: 1D 1D 1D 1D 12 A9 20 20 92 00 FB 1A 2E 03 99 22 |...... ......."|
000012E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012F0: 1D 1D 12 20 92 20 20 12 20 92 A9 00 1C 1B 30 03 |... . . .....0.|
00001300: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001310: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 3A 1B 32 |..... . ....:.2|
00001320: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001330: 1D 1D 1D 1D 1D DF 12 20 20 92 00 62 1B 34 03 99 |....... ..b.4..|
00001340: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
00001350: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
00001360: 11 11 00 85 1B 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....6..".......|
00001370: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
00001380: 4E 41 4C 11 11 00 A4 1B 38 03 99 22 1D 1D 1D 1D |NAL.....8.."....|
00001390: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
000013A0: 57 41 52 45 00 BF 1B 3A 03 8F 20 2A 2A 20 43 4F |WARE...:.. ** CO|
000013B0: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
000013C0: F7 1B 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..;...(UD$,24);"|
000013D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
000013E0: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
000013F0: 54 92 22 3A 49 B2 30 00 19 1C 3C 03 A1 41 24 3A |T.":I.0...<..A$:|
00001400: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
00001410: 49 B3 32 35 30 A7 38 32 38 00 3D 1C 3E 03 54 31 |I.250.828.=.>.T1|
00001420: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
00001430: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 46 1C |"":T4$."":I.0.F.|
00001440: 40 03 89 33 30 30 00 62 1C 43 03 8F 20 2A 2A 20 |@..300.b.C.. ** |
00001450: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
00001460: 2A 2A 00 9D 1C 48 03 97 55 4F 2C 30 3A 99 C8 28 |**...H..UO,0:..(|
00001470: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00001480: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001490: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 B4 1C |TO CONTINUE."...|
000014A0: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
000014B0: A7 38 34 34 00 BA 1C 4E 03 8E 00 DA 1C 52 03 8F |.844...N.....R..|
000014C0: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
000014D0: 52 4F 55 54 49 4E 45 20 2A 2A 00 E6 1C 54 03 55 |ROUTINE **...T.U|
000014E0: 50 B2 55 50 AA 31 00 10 1D 57 03 99 22 93 22 C8 |P.UP.1...W..".".|
000014F0: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
00001500: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
00001510: 00 3F 1D 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |.?.\.." --------|
00001520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001540: 45 1D 5E 03 8E 00 54 1D 60 03 8B 55 48 B3 B1 30 |E.^...T.`..UH..0|
00001550: A7 38 37 30 00 88 1D 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,|
00001560: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE|
00001570: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <|
00001580: 52 45 54 55 52 4E 3E 22 00 9A 1D 66 03 97 55 4F |RETURN>"...f..UO|
00001590: 2C 30 3A 99 22 13 11 22 3A 8E 00 B9 1D 6B 03 8F |,0:."..":....k..|
000015A0: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT |
000015B0: 52 45 4D 41 52 4B 20 2A 2A 00 EF 1D 70 03 99 C8 |REMARK **...p...|
000015C0: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000015D0: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT |
000015E0: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".|
000015F0: F5 1D 75 03 8E 00 12 1E 84 03 8F 20 2A 2A 20 53 |..u........ ** S|
00001600: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES |
00001610: 2A 2A 00 5D 1E 85 03 55 58 24 B2 22 48 22 3A 86 |**.]...UX$."H":.|
00001620: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327|
00001630: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197|
00001640: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U|
00001650: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 9B 1E |C.167:UU.1024...|
00001660: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1|
00001670: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114|
00001680: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15|
00001690: 38 3A 97 20 35 30 30 30 33 2C 30 00 DE 1E 87 03 |8:. 50003,0.....|
000016A0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1|
000016B0: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21|
000016C0: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:|
000016D0: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 1D |UC.204:UU.2048..|
000016E0: 1F 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
000016F0: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U|
00001700: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U|
00001710: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 41 1F |M.1024:UO.198.A.|
00001720: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........|
00001730: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001740: 22 00 73 1F 8A 03 55 50 24 B2 22 20 20 20 20 20 |".s...UP$." |
00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001770: 20 20 22 00 9E 1F 8B 03 55 54 24 B2 22 20 C3 CF | ".....UT$." ..|
00001780: CD D0 D5 D4 C5 D2 20 D0 CF C5 D4 D2 D9 22 3A 8F |...... ......":.|
00001790: 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 00 A4 | PROGRAM TITLE..|
000017A0: 1F 8C 03 8E 00 BE 1F 8E 03 8F 20 2A 2A 20 53 45 |.......... ** SE|
000017B0: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 C7 |T VARIABLES **..|
000017C0: 1F 93 03 8D 39 30 30 00 CD 1F 94 03 3A 00 D3 1F |....900.....:...|
000017D0: 95 03 3A 00 EE 1F 98 03 8F 20 2A 2A 20 43 48 45 |..:...... ** CHE|
000017E0: 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 0C |CK FOR 8032 **..|
000017F0: 20 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 | ...".":.".":. S|
00001800: 48 49 46 54 45 44 20 53 50 41 43 45 00 23 20 A2 |HIFTED SPACE.# .|
00001810: 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D |...(UB.40)..96..|
00001820: 37 30 30 00 3C 20 A3 03 8F 20 2A 2A 20 4D 45 4D |700.< ... ** MEM|
00001830: 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 50 20 A4 |ORY CHECK **.P .|
00001840: 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 |.. .(0).2000.937|
00001850: 00 7E 20 A5 03 99 22 93 11 11 05 54 48 49 53 20 |.~ ..."....THIS |
00001860: 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 |MACHINE DOES NOT|
00001870: 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 A2 | HAVE ENOUGH."..|
00001880: 20 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 | ..."MEMORY TO R|
00001890: 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |UN THIS PROGRAM |
000018A0: 21 22 00 AD 20 A7 03 9E 55 55 AA 37 31 00 B3 20 |!".. ...UU.71.. |
000018B0: A8 03 80 00 CD 20 A9 03 99 22 93 05 22 3A 8B C2 |..... ..."..":..|
000018C0: 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 FC 20 |(50003).0.962.. |
000018D0: AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 |... ** BASIC 2.0|
000018E0: 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 | OR 4.0 OR C|
000018F0: 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 3A 21 AD |-64 SETUP **.:!.|
00001900: 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 |..1075,133:.1076|
00001910: 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 |,144:.1077,234:.|
00001920: 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 |1079,4:.1080,133|
00001930: 3A 97 31 30 38 31 2C 31 34 35 00 70 21 AE 03 97 |:.1081,145.p!...|
00001940: 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 |1091,155:.1098,1|
00001950: 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 |33:.1099,144:.11|
00001960: 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 |00,234:.1103,133|
00001970: 00 92 21 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 |..!...1104,145:.|
00001980: 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 |1105,234:.1082,2|
00001990: 33 34 00 A9 21 B1 03 8B C2 28 35 30 30 30 33 29 |34..!....(50003)|
000019A0: B3 B1 31 36 30 A7 39 35 35 00 D8 21 B6 03 97 31 |..160.955..!...1|
000019B0: 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 |093,88:.1094,228|
000019C0: 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C |:.1097,85:.1102,|
000019D0: 32 32 38 3A 89 39 36 35 00 ED 21 BB 03 8B C2 28 |228:.965..!....(|
000019E0: 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 1C 22 |50003)..1.990.."|
000019F0: C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 |...1093,49:.1094|
00001A00: 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 |,230:.1097,46:.1|
00001A10: 31 30 32 2C 32 33 30 3A 89 39 36 35 00 56 22 C2 |102,230:.965.V".|
00001A20: 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 |..2099,141:.2100|
00001A30: 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 |,20:.2101,3:.210|
00001A40: 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 |3,8:.2104,141:.2|
00001A50: 31 30 35 2C 32 31 00 92 22 C3 03 97 32 31 30 36 |105,21.."...2106|
00001A60: 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 |,3:.2115,145:.21|
00001A70: 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A |17,52:.2118,234:|
00001A80: 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 |.2121,49:.2122,1|
00001A90: 34 31 00 CC 22 C4 03 97 32 31 32 33 2C 32 30 3A |41.."...2123,20:|
00001AA0: 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 |.2124,3:.2126,23|
00001AB0: 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 |4:.2127,141:.212|
00001AC0: 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 EA 22 C5 |8,21:.2129,3..".|
00001AD0: 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C |..UU.48:. DISABL|
00001AE0: 45 20 53 54 4F 50 20 4B 45 59 00 FB 22 CA 03 8D |E STOP KEY.."...|
00001AF0: 38 30 30 3A 8F 20 54 49 54 4C 45 00 0B 23 D4 03 |800:. TITLE..#..|
00001B00: 89 33 30 30 3A 8F 20 4D 45 4E 55 00 3C 23 DE 03 |.300:. MENU.<#..|
00001B10: 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 |.".THE PGM WILL |
00001B20: 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 |NOT WORK ON THIS|
00001B30: 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 71 23 E8 | MACHINE!":..q#.|
00001B40: 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 |..UZ.1..UP%:.UP%|
00001B50: 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 |:UZ.0:. ** PROGR|
00001B60: 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A |AM STARTS HERE *|
00001B70: 2A 00 9D 23 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B |*..#..."..";:.:.|
00001B80: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00001B90: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 CB 23 |1,6:.53280,14..#|
00001BA0: 1A 04 55 50 B2 30 3A 46 4C 41 47 B2 31 3A 55 54 |..UP.0:FLAG.1:UT|
00001BB0: 24 B2 22 20 43 4F 4D 50 55 54 45 52 20 50 4F 45 |$." COMPUTER POE|
00001BC0: 54 52 59 22 3A 55 47 24 B2 22 22 00 EA 23 DC 05 |TRY":UG$.""..#..|
00001BD0: 8D 20 31 35 37 30 3A 20 8F 20 3D 3D 20 49 4E 49 |. 1570: . == INI|
00001BE0: 54 49 41 4C 49 5A 45 20 3D 3D 00 F4 23 E1 05 8D |TIALIZE ==..#...|
00001BF0: 31 35 39 37 00 14 24 E6 05 8D 20 32 31 37 30 3A |1597..$... 2170:|
00001C00: 20 8F 20 3D 3D 20 43 4F 4D 50 41 52 49 53 4F 4E | . == COMPARISON|
00001C10: 53 20 3D 3D 00 36 24 F0 05 8D 20 32 37 37 30 3A |S ==.6$... 2770:|
00001C20: 20 8F 20 3D 3D 55 53 45 44 20 54 4F 2F 42 55 54 | . ==USED TO/BUT|
00001C30: 20 4E 4F 57 3D 3D 00 4F 24 FA 05 8D 20 33 31 38 | NOW==.O$... 318|
00001C40: 30 3A 20 8F 20 3D 3D 43 48 4F 49 43 45 3D 3D 00 |0: . ==CHOICE==.|
00001C50: 99 24 04 06 99 22 11 11 20 54 48 41 4E 4B 20 59 |.$...".. THANK Y|
00001C60: 4F 55 20 46 4F 52 20 57 52 49 54 49 4E 47 20 57 |OU FOR WRITING W|
00001C70: 49 54 48 20 4D 45 21 21 21 20 20 20 20 20 20 20 |ITH ME!!! |
00001C80: 20 11 11 D3 D3 47 4F 4F 44 2D 42 59 45 2C 20 46 | ....GOOD-BYE, F|
00001C90: 52 49 45 4E 44 21 D3 D3 22 00 A2 24 06 06 8D 38 |RIEND!.."..$...8|
00001CA0: 33 35 00 AF 24 09 06 46 4C 41 47 B2 30 3A 8E 00 |35..$..FLAG.0:..|
00001CB0: B5 24 0E 06 80 00 BB 24 18 06 8F 00 D2 24 22 06 |.$.....$.....$".|
00001CC0: 8F 20 3D 3D 20 49 4E 49 54 49 41 4C 49 5A 45 20 |. == INITIALIZE |
00001CD0: 3D 3D 00 06 25 2C 06 8D 38 35 30 3A 99 22 11 20 |==..%,..850:.". |
00001CE0: 48 49 21 20 20 4D 59 20 4E 41 4D 45 20 49 53 20 |HI! MY NAME IS |
00001CF0: 45 2E 20 45 2E 20 43 4F 4D 50 55 54 45 52 2E 20 |E. E. COMPUTER. |
00001D00: 20 49 20 41 4D 22 00 36 25 36 06 99 22 11 20 41 | I AM".6%6..". A|
00001D10: 20 50 4F 45 54 2E 20 20 48 4F 57 20 44 4F 20 59 | POET. HOW DO Y|
00001D20: 4F 55 20 46 45 45 4C 20 41 42 4F 55 54 20 50 4F |OU FEEL ABOUT PO|
00001D30: 45 54 52 59 3F 22 00 41 25 3B 06 8D 38 33 35 3A |ETRY?".A%;..835:|
00001D40: 8E 00 4C 25 3D 06 8D 38 35 30 3A 3A 00 75 25 40 |..L%=..850::.u%@|
00001D50: 06 99 22 11 20 53 45 4C 45 43 54 20 41 20 4E 55 |..". SELECT A NU|
00001D60: 4D 42 45 52 20 42 45 4C 4F 57 20 54 48 41 54 20 |MBER BELOW THAT |
00001D70: 42 45 53 54 22 00 A6 25 4A 06 99 22 11 20 44 45 |BEST"..%J..". DE|
00001D80: 53 43 52 49 42 45 53 20 54 48 45 20 57 41 59 20 |SCRIBES THE WAY |
00001D90: 59 4F 55 20 46 45 45 4C 20 41 42 4F 55 54 20 50 |YOU FEEL ABOUT P|
00001DA0: 4F 45 54 52 59 22 00 CE 25 54 06 99 22 11 20 12 |OETRY"..%T..". .|
00001DB0: 31 92 91 9D A4 11 20 50 4F 45 54 52 59 20 49 53 |1..... POETRY IS|
00001DC0: 20 46 4F 52 20 53 49 53 53 49 45 53 2E 22 00 01 | FOR SISSIES."..|
00001DD0: 26 5E 06 99 22 11 20 12 32 92 91 9D A4 11 20 50 |&^..". .2..... P|
00001DE0: 4F 45 54 52 59 20 49 53 20 4A 55 53 54 20 41 20 |OETRY IS JUST A |
00001DF0: 42 55 4E 43 48 20 4F 46 20 52 48 59 4D 45 53 2E |BUNCH OF RHYMES.|
00001E00: 22 00 35 26 68 06 99 22 11 20 12 33 92 91 9D A4 |".5&h..". .3....|
00001E10: 11 20 49 20 55 53 55 41 4C 4C 59 20 44 4F 4E 27 |. I USUALLY DON'|
00001E20: 54 20 55 4E 44 45 52 53 54 41 4E 44 20 50 4F 45 |T UNDERSTAND POE|
00001E30: 54 52 59 2E 22 00 5A 26 72 06 99 22 11 20 12 34 |TRY.".Z&r..". .4|
00001E40: 92 91 9D A4 11 20 49 20 4C 49 4B 45 20 53 4F 4D |..... I LIKE SOM|
00001E50: 45 20 50 4F 45 54 52 59 2E 22 00 83 26 7C 06 99 |E POETRY."..&|..|
00001E60: 22 11 20 12 35 92 91 9D A4 11 20 49 20 4C 49 4B |". .5..... I LIK|
00001E70: 45 20 54 4F 20 57 52 49 54 45 20 50 4F 45 54 52 |E TO WRITE POETR|
00001E80: 59 2E 22 00 B9 26 86 06 99 22 11 20 12 36 92 91 |Y."..&...". .6..|
00001E90: 9D A4 11 20 49 20 44 4F 4E 27 54 20 4B 4E 4F 57 |... I DON'T KNOW|
00001EA0: 20 48 4F 57 20 49 20 46 45 45 4C 20 41 42 4F 55 | HOW I FEEL ABOU|
00001EB0: 54 20 50 4F 45 54 52 59 2E 00 C1 26 8B 06 99 3A |T POETRY...&...:|
00001EC0: 99 00 DB 26 8C 06 99 22 20 20 20 59 4F 55 52 20 |...&..." YOUR |
00001ED0: 43 48 4F 49 43 45 20 3F 20 22 3B 00 F8 26 90 06 |CHOICE ? ";..&..|
00001EE0: 55 53 24 B2 22 48 31 32 33 34 35 36 22 3A 8D 33 |US$."H123456":.3|
00001EF0: 35 3A 50 24 B2 55 52 24 00 04 27 9A 06 50 B2 C5 |5:P$.UR$..'..P..|
00001F00: 28 50 24 29 00 15 27 A4 06 8B 20 50 B2 31 20 A7 |(P$)..'... P.1 .|
00001F10: 20 31 37 38 30 00 26 27 AE 06 8B 20 50 B2 32 20 | 1780.&'... P.2 |
00001F20: A7 20 31 38 34 30 00 37 27 B8 06 8B 20 50 B2 33 |. 1840.7'... P.3|
00001F30: 20 A7 20 31 39 33 30 00 48 27 C2 06 8B 20 50 B2 | . 1930.H'... P.|
00001F40: 34 20 A7 20 32 30 39 30 00 59 27 CC 06 8B 20 50 |4 . 2090.Y'... P|
00001F50: B2 35 20 A7 20 32 31 31 30 00 6A 27 D6 06 8B 20 |.5 . 2110.j'... |
00001F60: 50 B2 36 20 A7 20 32 31 33 30 00 74 27 E0 06 89 |P.6 . 2130.t'...|
00001F70: 31 36 38 30 00 97 27 EA 06 8F 20 23 23 23 20 20 |1680..'... ### |
00001F80: 52 45 53 50 4F 4E 53 45 53 20 54 4F 20 41 4E 53 |RESPONSES TO ANS|
00001F90: 57 45 52 20 23 23 23 00 C9 27 F4 06 8D 38 35 30 |WER ###..'...850|
00001FA0: 3A 99 22 11 20 4F 4E 45 20 4F 46 20 4D 59 20 46 |:.". ONE OF MY F|
00001FB0: 52 49 45 4E 44 53 2C 20 4F 2E 4A 2E 53 49 4D 50 |RIENDS, O.J.SIMP|
00001FC0: 53 4F 4E 2C 20 54 48 45 22 00 F6 27 FE 06 99 22 |SON, THE"..'..."|
00001FD0: 20 50 52 4F 46 45 53 53 49 4F 4E 41 4C 20 46 4F | PROFESSIONAL FO|
00001FE0: 4F 54 42 41 4C 4C 20 50 4C 41 59 45 52 2C 20 57 |OTBALL PLAYER, W|
00001FF0: 52 49 54 45 53 22 00 25 28 08 07 99 22 20 50 4F |RITES".%(..." PO|
00002000: 45 54 52 59 20 41 4E 44 20 49 20 44 4F 4E 27 54 |ETRY AND I DON'T|
00002010: 20 54 48 49 4E 4B 20 48 45 27 53 20 41 20 53 49 | THINK HE'S A SI|
00002020: 53 53 59 21 22 00 2E 28 0D 07 8D 38 33 35 00 5D |SSY!"..(...835.]|
00002030: 28 12 07 8D 38 35 30 3A 99 22 11 20 4C 45 54 27 |(...850:.". LET'|
00002040: 53 20 57 52 49 54 45 20 53 4F 4D 45 20 50 4F 45 |S WRITE SOME POE|
00002050: 54 52 59 20 54 4F 47 45 54 48 45 52 21 00 89 28 |TRY TOGETHER!..(|
00002060: 1C 07 99 22 20 49 27 4D 20 53 55 52 45 20 59 4F |..." I'M SURE YO|
00002070: 55 20 57 49 4C 4C 20 48 41 56 45 20 4C 4F 54 53 |U WILL HAVE LOTS|
00002080: 20 4F 46 20 46 55 4E 21 22 00 94 28 26 07 89 20 | OF FUN!"..(&.. |
00002090: 32 31 35 30 00 D7 28 30 07 8D 38 35 30 3A 99 22 |2150..(0..850:."|
000020A0: 11 20 59 4F 55 27 52 45 20 52 49 47 48 54 20 2D |. YOU'RE RIGHT -|
000020B0: 2D 20 4D 4F 53 54 20 50 4F 45 54 52 59 20 49 53 |- MOST POETRY IS|
000020C0: 20 46 49 4C 4C 45 44 20 20 20 57 49 54 48 20 52 | FILLED WITH R|
000020D0: 48 59 4D 45 53 2E 22 00 01 29 3A 07 99 22 20 42 |HYMES."..):.." B|
000020E0: 55 54 20 50 4F 45 54 52 59 20 44 4F 45 53 4E 27 |UT POETRY DOESN'|
000020F0: 54 20 48 41 56 45 20 54 4F 20 52 48 59 4D 45 2E |T HAVE TO RHYME.|
00002100: 22 00 48 29 44 07 99 22 20 48 45 52 45 20 49 53 |".H)D.." HERE IS|
00002110: 20 41 20 27 48 41 49 4B 55 27 20 50 4F 45 4D 20 | A 'HAIKU' POEM |
00002120: 28 50 52 4F 4E 4F 55 4E 43 45 44 20 20 20 20 20 |(PRONOUNCED |
00002130: 20 27 48 49 2D 4B 4F 4F 27 29 20 42 59 20 4F 4E | 'HI-KOO') BY ON|
00002140: 49 54 53 55 52 41 3A 22 00 65 29 4E 07 99 22 11 |ITSURA:".e)N..".|
00002150: 1D 1D 1D 1D 1D 41 20 54 52 4F 55 54 20 4C 45 41 |.....A TROUT LEA|
00002160: 50 53 20 55 50 00 8E 29 58 07 99 22 1D 1D 1D 1D |PS UP..)X.."....|
00002170: 1D 42 45 4C 4F 57 20 48 49 4D 20 49 4E 20 54 48 |.BELOW HIM IN TH|
00002180: 45 20 52 49 56 45 52 20 42 4F 54 54 4F 4D 00 A9 |E RIVER BOTTOM..|
00002190: 29 62 07 99 22 1D 1D 1D 1D 1D 43 4C 4F 55 44 53 |)b..".....CLOUDS|
000021A0: 20 46 4C 4F 41 54 20 42 59 00 D4 29 6C 07 99 22 | FLOAT BY..)l.."|
000021B0: 11 11 20 4C 45 54 27 53 20 57 52 49 54 45 20 53 |.. LET'S WRITE S|
000021C0: 4F 4D 45 20 50 4F 45 54 52 59 20 54 4F 47 45 54 |OME POETRY TOGET|
000021D0: 48 45 52 21 00 FF 29 76 07 99 22 20 49 27 4D 20 |HER!..)v.." I'M |
000021E0: 53 55 52 45 20 59 4F 55 27 4C 4C 20 48 41 56 45 |SURE YOU'LL HAVE|
000021F0: 20 4C 4F 54 53 20 4F 46 20 46 55 4E 21 21 22 00 | LOTS OF FUN!!".|
00002200: 09 2A 80 07 89 32 31 35 30 00 47 2A 8A 07 8D 38 |.*...2150.G*...8|
00002210: 35 30 3A 99 22 11 20 49 20 44 4F 4E 27 54 20 55 |50:.". I DON'T U|
00002220: 4E 44 45 52 53 54 41 4E 44 20 50 4F 45 54 52 59 |NDERSTAND POETRY|
00002230: 20 41 4C 4C 20 54 48 45 20 54 49 4D 45 20 20 45 | ALL THE TIME E|
00002240: 49 54 48 45 52 2E 22 00 70 2A 8F 07 99 22 20 53 |ITHER.".p*..." S|
00002250: 4F 20 4C 45 54 27 53 20 52 45 4C 41 58 20 41 4E |O LET'S RELAX AN|
00002260: 44 20 4A 55 53 54 20 45 4E 4A 4F 59 20 49 54 22 |D JUST ENJOY IT"|
00002270: 00 A7 2A 94 07 99 22 20 54 4F 47 45 54 48 45 52 |..*..." TOGETHER|
00002280: 21 20 48 45 52 45 20 49 53 20 4F 4E 45 20 4F 46 |! HERE IS ONE OF|
00002290: 20 20 4D 59 20 46 41 56 4F 52 49 54 45 20 20 20 | MY FAVORITE |
000022A0: 50 4F 45 4D 53 3A 22 00 C4 2A 9E 07 99 22 11 20 |POEMS:"..*...". |
000022B0: 53 50 41 47 48 45 54 54 49 2C 20 53 50 41 47 48 |SPAGHETTI, SPAGH|
000022C0: 45 54 54 49 00 DE 2A A8 07 99 22 20 41 4C 4C 20 |ETTI..*..." ALL |
000022D0: 4F 56 45 52 20 54 48 45 20 50 4C 41 43 45 00 04 |OVER THE PLACE..|
000022E0: 2B B2 07 99 22 20 55 50 20 54 4F 20 4D 59 20 45 |+..." UP TO MY E|
000022F0: 4C 42 4F 57 53 2C 20 55 50 20 54 4F 20 4D 59 20 |LBOWS, UP TO MY |
00002300: 46 41 43 45 00 32 2B BC 07 99 22 20 46 49 4C 4C |FACE.2+..." FILL|
00002310: 49 4E 47 20 54 48 45 20 42 41 54 48 54 55 42 2C |ING THE BATHTUB,|
00002320: 20 43 4F 56 45 52 49 4E 47 20 54 48 45 20 44 45 | COVERING THE DE|
00002330: 53 4B 00 5B 2B C6 07 99 22 20 4D 41 4B 49 4E 47 |SK.[+..." MAKING|
00002340: 20 54 48 45 20 53 4F 46 41 20 41 20 4D 41 44 20 | THE SOFA A MAD |
00002350: 4D 55 53 48 59 20 4D 45 53 53 2E 00 61 2B D0 07 |MUSHY MESS..a+..|
00002360: 99 00 90 2B DA 07 99 22 20 54 48 45 20 50 41 52 |...+..." THE PAR|
00002370: 54 59 27 53 20 52 55 49 4E 45 44 2C 20 41 4E 44 |TY'S RUINED, AND|
00002380: 20 49 20 41 4D 20 53 4F 20 57 4F 52 52 49 45 44 | I AM SO WORRIED|
00002390: 00 B0 2B E4 07 99 22 20 4D 59 20 47 55 45 53 54 |..+..." MY GUEST|
000023A0: 53 20 48 41 56 45 20 41 4C 4C 20 4C 45 46 54 2C |S HAVE ALL LEFT,|
000023B0: 00 D3 2B EE 07 99 22 20 28 55 4E 4C 45 53 53 20 |..+..." (UNLESS |
000023C0: 54 48 45 59 27 52 45 20 41 4C 4C 20 42 55 52 49 |THEY'RE ALL BURI|
000023D0: 45 44 29 00 F7 2B F8 07 99 22 20 49 20 54 4F 4C |ED)..+..." I TOL|
000023E0: 44 20 54 48 45 4D 20 27 42 52 49 4E 47 20 50 52 |D THEM 'BRING PR|
000023F0: 45 53 45 4E 54 53 27 00 16 2C 02 08 99 22 20 49 |ESENTS'..,..." I|
00002400: 20 53 41 49 44 20 27 54 48 52 4F 57 20 43 4F 4E | SAID 'THROW CON|
00002410: 46 45 54 54 49 27 00 36 2C 0C 08 99 22 20 49 20 |FETTI'.6,..." I |
00002420: 47 55 45 53 53 20 54 48 45 59 20 48 45 41 52 44 |GUESS THEY HEARD|
00002430: 20 57 52 4F 4E 47 00 5F 2C 16 08 99 22 20 27 43 | WRONG._,..." 'C|
00002440: 41 55 53 45 20 54 48 45 59 20 41 4C 4C 20 54 48 |AUSE THEY ALL TH|
00002450: 52 45 57 20 53 50 41 47 48 45 54 54 49 21 22 00 |REW SPAGHETTI!".|
00002460: 68 2C 1B 08 8D 38 33 35 00 73 2C 20 08 89 20 31 |h,...835.s, .. 1|
00002470: 38 31 30 00 BA 2C 2A 08 8D 38 35 30 3A 99 22 11 |810..,*..850:.".|
00002480: 20 49 20 4C 49 4B 45 20 53 4F 4D 45 20 50 4F 45 | I LIKE SOME POE|
00002490: 54 52 59 2C 20 54 4F 4F 21 20 48 45 52 45 20 49 |TRY, TOO! HERE I|
000024A0: 53 20 4F 4E 45 20 20 20 20 4F 46 20 4D 59 20 46 |S ONE OF MY F|
000024B0: 41 56 4F 52 49 54 45 53 3A 22 00 C5 2C 34 08 89 |AVORITES:"..,4..|
000024C0: 20 31 39 35 30 00 F1 2C 3E 08 8D 38 35 30 3A 99 | 1950..,>..850:.|
000024D0: 22 11 20 4F 48 2C 20 42 4F 59 21 21 21 20 57 45 |". OH, BOY!!! WE|
000024E0: 20 41 52 45 20 42 4F 54 48 20 50 4F 45 54 53 21 | ARE BOTH POETS!|
000024F0: 22 00 FC 2C 48 08 89 20 31 39 30 30 00 1D 2D 52 |"..,H.. 1900..-R|
00002500: 08 8D 38 35 30 3A 99 22 11 20 57 45 4C 4C 20 2E |..850:.". WELL .|
00002510: 20 2E 20 2E 22 3A 20 89 20 31 39 30 30 00 3D 2D | . .": . 1900.=-|
00002520: 5C 08 90 3A 20 20 20 20 20 85 22 11 41 52 45 20 |\..: .".ARE |
00002530: 59 4F 55 20 52 45 41 44 59 22 3B 41 24 00 48 2D |YOU READY";A$.H-|
00002540: 66 08 8D 38 33 35 3A 3A 00 4E 2D 70 08 8E 00 66 |f..835::.N-p...f|
00002550: 2D 7A 08 8F 20 3D 3D 20 43 4F 4D 50 41 52 49 53 |-z.. == COMPARIS|
00002560: 4F 4E 53 20 3D 3D 00 94 2D 84 08 8D 38 35 30 3A |ONS ==..-...850:|
00002570: 99 22 11 20 48 45 52 45 20 49 53 20 41 20 50 4F |.". HERE IS A PO|
00002580: 45 4D 20 42 59 20 41 20 59 4F 55 4E 47 20 47 49 |EM BY A YOUNG GI|
00002590: 52 4C 3A 22 00 C1 2D 8E 08 99 22 11 20 53 4E 4F |RL:"..-...". SNO|
000025A0: 57 46 4C 41 4B 45 53 20 41 52 45 20 4C 49 4B 45 |WFLAKES ARE LIKE|
000025B0: 20 53 48 49 4E 49 4E 47 20 44 49 41 4D 4F 4E 44 | SHINING DIAMOND|
000025C0: 53 00 EF 2D 98 08 99 22 20 41 20 42 52 45 45 5A |S..-..." A BREEZ|
000025D0: 45 20 49 53 20 4C 49 4B 45 20 54 48 45 20 53 4B |E IS LIKE THE SK|
000025E0: 59 20 43 4F 4D 49 4E 47 20 54 4F 20 59 4F 55 00 |Y COMING TO YOU.|
000025F0: 1D 2E A2 08 99 22 20 54 48 45 20 53 55 4E 20 49 |....." THE SUN I|
00002600: 53 20 4C 49 4B 45 20 47 4F 4C 44 45 4E 20 42 52 |S LIKE GOLDEN BR|
00002610: 49 47 48 54 20 45 41 52 52 49 4E 47 53 00 45 2E |IGHT EARRINGS.E.|
00002620: AC 08 99 22 11 11 20 53 48 45 20 55 53 45 53 20 |...".. SHE USES |
00002630: 41 20 4C 4F 54 20 4F 46 20 57 48 41 54 20 49 20 |A LOT OF WHAT I |
00002640: 43 41 4C 4C 22 00 66 2E B1 08 99 22 20 27 43 4F |CALL".f...." 'CO|
00002650: 4D 50 41 52 49 53 4F 4E 53 27 20 49 4E 20 48 45 |MPARISONS' IN HE|
00002660: 52 20 50 4F 45 4D 00 93 2E B6 08 99 22 20 46 4F |R POEM......" FO|
00002670: 52 20 49 4E 53 54 41 4E 43 45 2C 20 53 48 45 20 |R INSTANCE, SHE |
00002680: 55 53 45 53 20 27 44 49 41 4D 4F 4E 44 53 27 20 |USES 'DIAMONDS' |
00002690: 54 4F 22 00 C3 2E BB 08 99 22 20 44 45 53 43 52 |TO"......" DESCR|
000026A0: 49 42 45 20 57 48 41 54 20 54 48 45 20 53 4E 4F |IBE WHAT THE SNO|
000026B0: 57 46 4C 41 4B 45 53 20 4C 4F 4F 4B 20 4C 49 4B |WFLAKES LOOK LIK|
000026C0: 45 2E 22 00 D1 2E C5 08 8D 38 33 35 3A 8D 38 35 |E."......835:.85|
000026D0: 30 00 0B 2F CA 08 99 22 11 20 4E 4F 57 20 4C 45 |0../...". NOW LE|
000026E0: 54 27 53 20 54 52 59 20 57 52 49 54 49 4E 47 20 |T'S TRY WRITING |
000026F0: 41 20 43 4F 4D 50 41 52 49 53 4F 4E 20 50 4F 45 |A COMPARISON POE|
00002700: 4D 20 54 4F 47 45 54 48 45 52 2E 00 3B 2F D4 08 |M TOGETHER..;/..|
00002710: 99 22 11 20 49 20 57 49 4C 4C 20 57 52 49 54 45 |.". I WILL WRITE|
00002720: 20 4F 4E 45 20 50 41 52 54 20 4F 46 20 54 48 45 | ONE PART OF THE|
00002730: 20 53 45 4E 54 45 4E 43 45 2C 22 00 60 2F D9 08 | SENTENCE,".`/..|
00002740: 99 22 20 41 4E 44 20 54 48 45 4E 20 59 4F 55 20 |." AND THEN YOU |
00002750: 46 49 4E 49 53 48 20 49 54 20 57 49 54 48 20 41 |FINISH IT WITH A|
00002760: 00 8D 2F DE 08 99 22 20 43 4F 4D 50 41 52 49 54 |../..." COMPARIT|
00002770: 49 56 45 20 50 48 52 41 53 45 20 4F 52 20 4E 4F |IVE PHRASE OR NO|
00002780: 55 4E 2E 20 54 48 45 4E 20 59 4F 55 22 00 AF 2F |UN. THEN YOU"../|
00002790: E3 08 99 22 20 42 45 47 49 4E 20 41 20 53 45 4E |..." BEGIN A SEN|
000027A0: 54 45 4E 43 45 20 41 4E 44 20 49 27 4C 4C 22 00 |TENCE AND I'LL".|
000027B0: D8 2F E8 08 99 22 20 46 49 4E 49 53 48 20 49 54 |./..." FINISH IT|
000027C0: 2E 20 57 45 27 4C 4C 20 44 4F 20 54 48 49 53 20 |. WE'LL DO THIS |
000027D0: 55 4E 54 49 4C 20 57 45 00 FC 2F ED 08 99 22 20 |UNTIL WE../..." |
000027E0: 48 41 56 45 20 54 48 52 45 45 20 4C 49 4E 45 53 |HAVE THREE LINES|
000027F0: 2E 49 27 4C 4C 20 42 45 47 49 4E 2E 00 0B 30 F2 |.I'LL BEGIN...0.|
00002800: 08 8D 38 33 35 3A 88 20 41 B2 30 00 2C 30 FC 08 |..835:. A.0.,0..|
00002810: 88 20 41 B2 41 AA 31 20 3A 20 8F 20 2D 2D 50 4F |. A.A.1 : . --PO|
00002820: 45 4D 20 43 4F 55 4E 54 45 52 2D 2D 00 48 30 06 |EM COUNTER--.H0.|
00002830: 09 8B 20 41 B2 31 20 A7 20 89 20 32 33 35 30 3A |.. A.1 . . 2350:|
00002840: 8F 20 50 4F 45 4D 20 31 00 64 30 10 09 8B 20 41 |. POEM 1.d0... A|
00002850: B2 32 20 A7 20 89 20 32 34 32 30 3A 8F 20 50 4F |.2 . . 2420:. PO|
00002860: 45 4D 20 32 00 80 30 1A 09 8B 20 41 B2 33 20 A7 |EM 2..0... A.3 .|
00002870: 20 89 20 32 34 39 30 3A 8F 20 50 4F 45 4D 20 33 | . 2490:. POEM 3|
00002880: 00 86 30 24 09 8F 00 A2 30 2E 09 8F 20 2D 2D 43 |..0$....0... --C|
00002890: 4F 4D 50 41 52 49 53 4F 4E 20 50 4F 45 4D 20 31 |OMPARISON POEM 1|
000028A0: 2D 2D 00 AD 30 33 09 8D 38 35 30 3A 3A 00 DF 30 |--..03..850::..0|
000028B0: 38 09 99 22 11 11 20 47 52 41 53 53 20 49 53 20 |8..".. GRASS IS |
000028C0: 4C 49 4B 45 20 22 3B 3A 55 53 24 B2 22 22 3A 55 |LIKE ";:US$."":U|
000028D0: 4C B2 32 30 3A 8D 33 35 3A 41 24 B2 55 52 24 00 |L.20:.35:A$.UR$.|
000028E0: 13 31 42 09 99 22 11 20 A4 A4 A4 A4 A4 A4 A4 A4 |.1B..". ........|
000028F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 46 52 |............. FR|
00002900: 45 53 48 20 46 41 4C 4C 45 4E 20 53 4E 4F 57 20 |ESH FALLEN SNOW |
00002910: 91 22 3B 00 29 31 4C 09 55 53 24 B2 22 22 3A 8D |.";.)1L.US$."":.|
00002920: 33 35 3A 42 24 B2 55 52 24 00 58 31 56 09 99 22 |35:B$.UR$.X1V.."|
00002930: 20 53 41 54 55 52 44 41 59 53 20 41 52 45 20 4C | SATURDAYS ARE L|
00002940: 49 4B 45 20 22 3B 3A 55 53 24 B2 22 22 3A 8D 33 |IKE ";:US$."":.3|
00002950: 35 3A 43 24 B2 55 52 24 00 61 31 5B 09 8D 38 33 |5:C$.UR$.a1[..83|
00002960: 35 00 6C 31 60 09 89 20 32 35 36 30 00 72 31 6A |5.l1`.. 2560.r1j|
00002970: 09 8F 00 8E 31 74 09 8F 20 2D 2D 43 4F 4D 50 41 |....1t.. --COMPA|
00002980: 52 49 53 4F 4E 20 50 4F 45 4D 20 32 2D 2D 00 99 |RISON POEM 2--..|
00002990: 31 79 09 8D 38 35 30 3A 3A 00 CD 31 7E 09 99 22 |1y..850::..1~.."|
000029A0: 11 11 20 52 55 4E 4E 49 4E 47 20 49 53 20 4C 49 |.. RUNNING IS LI|
000029B0: 4B 45 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 |KE ";:US$."":UL.|
000029C0: 32 30 3A 8D 33 35 3A 41 24 B2 55 52 24 00 00 32 |20:.35:A$.UR$..2|
000029D0: 88 09 99 22 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..." ...........|
000029E0: A4 A4 A4 A4 20 50 41 4E 43 41 4B 45 53 20 57 49 |.... PANCAKES WI|
000029F0: 54 48 20 48 4F 54 20 53 59 52 55 50 20 91 22 3B |TH HOT SYRUP .";|
00002A00: 00 16 32 92 09 55 53 24 B2 22 22 3A 8D 33 35 3A |..2..US$."":.35:|
00002A10: 42 24 B2 55 52 24 00 43 32 9C 09 99 22 20 53 55 |B$.UR$.C2..." SU|
00002A20: 4E 53 48 49 4E 45 20 49 53 20 4C 49 4B 45 20 22 |NSHINE IS LIKE "|
00002A30: 3B 3A 55 53 24 B2 22 22 3A 8D 33 35 3A 43 24 B2 |;:US$."":.35:C$.|
00002A40: 55 52 24 00 4C 32 A1 09 8D 38 33 35 00 57 32 A6 |UR$.L2...835.W2.|
00002A50: 09 89 20 32 36 31 30 00 5D 32 B0 09 8F 00 79 32 |.. 2610.]2....y2|
00002A60: BA 09 8F 20 2D 2D 43 4F 4D 50 41 52 49 53 4F 4E |... --COMPARISON|
00002A70: 20 50 4F 45 4D 20 33 2D 2D 00 84 32 BF 09 8D 38 | POEM 3--..2...8|
00002A80: 35 30 3A 3A 00 C0 32 C4 09 99 22 11 11 20 53 48 |50::..2...".. SH|
00002A90: 41 52 50 20 50 45 4E 43 49 4C 53 20 41 52 45 20 |ARP PENCILS ARE |
00002AA0: 4C 49 4B 45 20 22 3B 3A 55 4C B2 32 30 3A 3A 55 |LIKE ";:UL.20::U|
00002AB0: 53 24 B2 22 22 3A 8D 33 35 3A 41 24 B2 55 52 24 |S$."":.35:A$.UR$|
00002AC0: 00 F3 32 CE 09 99 22 20 A4 A4 A4 A4 A4 A4 A4 A4 |..2..." ........|
00002AD0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002AE0: 20 53 54 49 43 4B 59 20 46 49 4E 47 45 52 53 20 | STICKY FINGERS |
00002AF0: 91 22 3B 00 09 33 D8 09 55 53 24 B2 22 22 3A 8D |.";..3..US$."":.|
00002B00: 33 35 3A 42 24 B2 55 52 24 00 36 33 E2 09 99 22 |35:B$.UR$.63..."|
00002B10: 20 4C 41 55 47 48 54 45 52 20 49 53 20 4C 49 4B | LAUGHTER IS LIK|
00002B20: 45 20 22 3B 3A 55 53 24 B2 22 22 3A 8D 33 35 3A |E ";:US$."":.35:|
00002B30: 43 24 B2 55 52 24 00 3F 33 E7 09 8D 38 33 35 00 |C$.UR$.?3...835.|
00002B40: 4A 33 EC 09 89 20 32 36 36 30 00 50 33 F6 09 8F |J3... 2660.P3...|
00002B50: 00 7E 33 00 0A 8D 38 35 30 3A 3A 3A 99 22 11 20 |.~3...850:::.". |
00002B60: 41 4E 44 20 48 45 52 45 27 53 20 4F 55 52 20 46 |AND HERE'S OUR F|
00002B70: 49 4E 49 53 48 45 44 20 50 4F 45 4D 3A 22 00 9C |INISHED POEM:"..|
00002B80: 33 0A 0A 99 22 11 11 11 20 47 52 41 53 53 20 49 |3..."... GRASS I|
00002B90: 53 20 4C 49 4B 45 20 22 3B 20 41 24 00 BE 33 14 |S LIKE "; A$..3.|
00002BA0: 0A 99 22 20 22 3B 42 24 3B 20 22 20 46 52 45 53 |.." ";B$; " FRES|
00002BB0: 48 20 46 41 4C 4C 45 4E 20 53 4E 4F 57 22 00 DE |H FALLEN SNOW"..|
00002BC0: 33 1E 0A 99 22 20 53 41 54 55 52 44 41 59 53 20 |3..." SATURDAYS |
00002BD0: 41 52 45 20 4C 49 4B 45 20 22 3B 20 43 24 00 E9 |ARE LIKE "; C$..|
00002BE0: 33 28 0A 89 20 32 37 32 30 00 17 34 32 0A 8D 38 |3(.. 2720..42..8|
00002BF0: 35 30 3A 3A 3A 99 22 11 20 41 4E 44 20 48 45 52 |50:::.". AND HER|
00002C00: 45 27 53 20 4F 55 52 20 46 49 4E 49 53 48 45 44 |E'S OUR FINISHED|
00002C10: 20 50 4F 45 4D 3A 22 00 36 34 3C 0A 99 22 11 11 | POEM:".64<.."..|
00002C20: 11 20 52 55 4E 4E 49 4E 47 20 49 53 20 4C 49 4B |. RUNNING IS LIK|
00002C30: 45 20 22 3B 41 24 00 5E 34 46 0A 99 22 20 22 3B |E ";A$.^4F.." ";|
00002C40: 42 24 3B 20 22 20 50 41 4E 43 41 4B 45 53 20 57 |B$; " PANCAKES W|
00002C50: 49 54 48 20 48 4F 54 20 53 59 52 55 50 22 00 7C |ITH HOT SYRUP".||
00002C60: 34 50 0A 99 22 20 53 55 4E 53 48 49 4E 45 20 49 |4P.." SUNSHINE I|
00002C70: 53 20 4C 49 4B 45 20 22 3B 20 43 24 00 87 34 5A |S LIKE "; C$..4Z|
00002C80: 0A 89 20 32 37 32 30 00 B9 34 64 0A 8D 38 35 30 |.. 2720..4d..850|
00002C90: 3A 8D 20 38 36 35 3A 99 22 11 20 41 4E 44 20 48 |:. 865:.". AND H|
00002CA0: 45 52 45 27 53 20 4F 55 52 20 46 49 4E 49 53 48 |ERE'S OUR FINISH|
00002CB0: 45 44 20 50 4F 45 4D 3A 22 00 DF 34 6E 0A 99 22 |ED POEM:"..4n.."|
00002CC0: 11 11 11 20 53 48 41 52 50 20 50 45 4E 43 49 4C |... SHARP PENCIL|
00002CD0: 53 20 41 52 45 20 4C 49 4B 45 20 22 3B 41 24 00 |S ARE LIKE ";A$.|
00002CE0: FD 34 78 0A 99 22 20 22 3B 42 24 3B 22 20 53 54 |.4x.." ";B$;" ST|
00002CF0: 49 43 4B 59 20 46 49 4E 47 45 52 53 22 00 1B 35 |ICKY FINGERS"..5|
00002D00: 82 0A 99 22 20 4C 41 55 47 48 54 45 52 20 49 53 |..." LAUGHTER IS|
00002D10: 20 4C 49 4B 45 20 22 3B 20 43 24 00 26 35 8C 0A | LIKE "; C$.&5..|
00002D20: 89 20 32 37 32 30 00 2C 35 96 0A 8F 00 3A 35 A0 |. 2720.,5....:5.|
00002D30: 0A 8B 20 41 B2 30 20 A7 20 8E 00 5D 35 AA 0A 99 |.. A.0 . ..]5...|
00002D40: 20 22 11 11 20 57 45 27 52 45 20 50 52 45 54 54 | ".. WE'RE PRETT|
00002D50: 59 20 47 4F 4F 44 20 50 4F 45 54 53 21 00 86 35 |Y GOOD POETS!..5|
00002D60: B4 0A 99 22 11 11 20 57 4F 55 4C 44 20 59 4F 55 |...".. WOULD YOU|
00002D70: 20 4C 49 4B 45 20 54 4F 20 57 52 49 54 45 20 41 | LIKE TO WRITE A|
00002D80: 4E 4F 54 48 45 52 00 A2 35 B5 0A 99 22 20 43 4F |NOTHER..5..." CO|
00002D90: 4D 50 41 52 49 53 4F 4E 20 50 4F 45 4D 20 3F 20 |MPARISON POEM ? |
00002DA0: 22 3B 00 BF 35 B6 0A 55 53 24 B2 22 59 4E 22 3A |";..5..US$."YN":|
00002DB0: 55 4C B2 31 3A 8D 33 35 3A 44 24 B2 55 52 24 00 |UL.1:.35:D$.UR$.|
00002DC0: DA 35 BE 0A 8B 20 44 24 B2 22 4E 22 20 B0 20 44 |.5... D$."N" . D|
00002DD0: 24 B2 22 4E 4F 22 20 A7 20 8E 00 E5 35 C8 0A 89 |$."NO" . ...5...|
00002DE0: 20 32 33 30 30 00 03 36 D2 0A 8F 20 3D 3D 3D 3D | 2300..6... ====|
00002DF0: 55 53 45 44 20 54 4F 2F 42 55 54 20 4E 4F 57 3D |USED TO/BUT NOW=|
00002E00: 3D 3D 3D 00 0B 36 DC 0A 58 B2 30 00 3E 36 E6 0A |===..6..X.0.>6..|
00002E10: 8D 38 35 30 3A 99 22 11 20 49 20 48 4F 50 45 20 |.850:.". I HOPE |
00002E20: 59 4F 55 20 45 4E 4A 4F 59 45 44 20 57 52 49 54 |YOU ENJOYED WRIT|
00002E30: 49 4E 47 20 43 4F 4D 50 41 52 49 53 4F 4E 00 62 |ING COMPARISON.b|
00002E40: 36 EB 0A 99 22 20 50 4F 45 4D 53 20 57 49 54 48 |6..." POEMS WITH|
00002E50: 20 4D 45 21 20 20 49 20 4C 4F 56 45 44 20 49 54 | ME! I LOVED IT|
00002E60: 21 22 00 8F 36 F0 0A 99 22 11 20 4C 45 54 27 53 |!"..6...". LET'S|
00002E70: 20 57 52 49 54 45 20 53 4F 4D 45 20 44 49 46 46 | WRITE SOME DIFF|
00002E80: 45 52 45 4E 54 20 4B 49 4E 44 53 20 4F 46 22 00 |ERENT KINDS OF".|
00002E90: BB 36 FA 0A 99 22 20 50 4F 45 4D 53 20 4E 4F 57 |.6..." POEMS NOW|
00002EA0: 2E 20 54 48 45 53 45 20 41 52 45 20 43 41 4C 4C |. THESE ARE CALL|
00002EB0: 45 44 20 27 49 20 55 53 45 44 22 00 E8 36 04 0B |ED 'I USED"..6..|
00002EC0: 99 22 20 54 4F CE 42 55 54 20 4E 4F 57 27 20 50 |." TO.BUT NOW' P|
00002ED0: 4F 45 4D 53 2E 20 49 27 4C 4C 20 50 52 49 4E 54 |OEMS. I'LL PRINT|
00002EE0: 20 27 49 20 55 53 45 44 00 16 37 0E 0B 99 22 20 | 'I USED..7..." |
00002EF0: 54 4F 27 20 41 4E 44 20 54 48 45 4E 20 59 4F 55 |TO' AND THEN YOU|
00002F00: 20 46 49 4E 49 53 48 20 54 48 45 20 53 45 4E 54 | FINISH THE SENT|
00002F10: 45 4E 43 45 2E 22 00 5A 37 18 0B 99 22 20 54 48 |ENCE.".Z7..." TH|
00002F20: 45 4E 20 49 27 4C 4C 20 50 52 49 4E 54 20 27 42 |EN I'LL PRINT 'B|
00002F30: 55 54 20 4E 4F 57 27 20 41 4E 44 20 59 4F 55 20 |UT NOW' AND YOU |
00002F40: 20 20 20 20 20 20 46 49 4E 49 53 48 45 44 20 54 | FINISHED T|
00002F50: 48 41 54 20 4C 49 4E 45 2E 22 00 68 37 1D 0B 8D |HAT LINE.".h7...|
00002F60: 38 33 35 3A 8D 38 35 30 00 95 37 22 0B 99 22 11 |835:.850..7"..".|
00002F70: 20 48 45 52 45 27 53 20 41 4E 20 45 58 41 4D 50 | HERE'S AN EXAMP|
00002F80: 4C 45 20 42 59 20 41 20 59 4F 55 4E 47 20 46 52 |LE BY A YOUNG FR|
00002F90: 49 45 4E 44 22 00 A6 37 2C 0B 99 22 20 4F 46 20 |IEND"..7,.." OF |
00002FA0: 4D 49 4E 45 3A 22 00 C3 37 36 0B 99 22 11 11 20 |MINE:"..76..".. |
00002FB0: 49 20 55 53 45 44 20 54 4F 20 42 45 20 41 20 42 |I USED TO BE A B|
00002FC0: 4F 4F 4B 00 E3 37 40 0B 99 22 20 42 55 54 20 4E |OOK..7@.." BUT N|
00002FD0: 4F 57 20 49 27 4D 20 41 20 54 59 50 45 57 52 49 |OW I'M A TYPEWRI|
00002FE0: 54 45 52 00 FF 37 4A 0B 99 22 20 49 20 55 53 45 |TER..7J.." I USE|
00002FF0: 44 20 54 4F 20 42 45 20 41 20 44 52 45 41 4D 00 |D TO BE A DREAM.|
00003000: 19 38 54 0B 99 22 20 42 55 54 20 4E 4F 57 20 49 |.8T.." BUT NOW I|
00003010: 27 4D 20 41 20 57 49 53 48 00 36 38 5E 0B 99 22 |'M A WISH.68^.."|
00003020: 20 49 20 55 53 45 44 20 54 4F 20 42 45 20 41 20 | I USED TO BE A |
00003030: 50 45 4E 43 49 4C 00 53 38 68 0B 99 22 20 42 55 |PENCIL.S8h.." BU|
00003040: 54 20 4E 4F 57 20 49 27 4D 20 41 4E 20 45 52 41 |T NOW I'M AN ERA|
00003050: 53 45 52 00 5C 38 72 0B 8D 38 33 35 00 78 38 86 |SER.\8r..835.x8.|
00003060: 0B 88 20 58 B2 58 AA 31 20 3A 20 8F 20 50 4F 45 |.. X.X.1 : . POE|
00003070: 4D 20 4E 55 4D 42 45 52 00 B0 38 90 0B 8D 38 35 |M NUMBER..8...85|
00003080: 30 3A 3A 3A 99 22 11 11 20 49 20 55 53 45 44 20 |0:::.".. I USED |
00003090: 54 4F 20 42 45 20 22 3B 3A 55 4C B2 32 30 3A 55 |TO BE ";:UL.20:U|
000030A0: 53 24 B2 22 22 3A 8D 33 35 3A 47 24 B2 55 52 24 |S$."":.35:G$.UR$|
000030B0: 00 D4 38 9A 0B 99 22 20 42 55 54 20 4E 4F 57 20 |..8..." BUT NOW |
000030C0: 22 3B 3A 55 53 24 B2 22 22 3A 8D 33 35 3A 48 24 |";:US$."":.35:H$|
000030D0: B2 55 52 24 00 FD 38 A4 0B 99 22 20 49 20 55 53 |.UR$..8..." I US|
000030E0: 45 44 20 54 4F 20 42 45 20 22 3B 3A 55 53 24 B2 |ED TO BE ";:US$.|
000030F0: 22 22 3A 8D 33 35 3A 49 24 B2 55 52 24 00 21 39 |"":.35:I$.UR$.!9|
00003100: AE 0B 99 22 20 42 55 54 20 4E 4F 57 20 22 3B 3A |..." BUT NOW ";:|
00003110: 55 53 24 B2 22 22 3A 8D 33 35 3A 4A 24 B2 55 52 |US$."":.35:J$.UR|
00003120: 24 00 4A 39 B8 0B 99 22 20 49 20 55 53 45 44 20 |$.J9..." I USED |
00003130: 54 4F 20 42 45 20 22 3B 3A 55 53 24 B2 22 22 3A |TO BE ";:US$."":|
00003140: 8D 33 35 3A 4B 24 B2 55 52 24 00 73 39 C2 0B 99 |.35:K$.UR$.s9...|
00003150: 22 20 42 55 54 20 4E 4F 57 20 22 3B 3A 55 53 24 |" BUT NOW ";:US$|
00003160: B2 22 22 3A 8D 33 35 3A 4C 24 B2 55 52 24 3A 8D |."":.35:L$.UR$:.|
00003170: 38 33 35 00 A3 39 CC 0B 8D 38 35 30 3A 3A 3A 99 |835..9...850:::.|
00003180: 22 11 11 11 20 41 4E 44 20 48 45 52 45 27 53 20 |"... AND HERE'S |
00003190: 4F 55 52 20 46 49 4E 49 53 48 45 44 20 50 4F 45 |OUR FINISHED POE|
000031A0: 4D 3A 22 00 C0 39 D6 0B 99 22 11 11 20 49 20 55 |M:"..9...".. I U|
000031B0: 53 45 44 20 54 4F 20 42 45 20 22 20 3B 20 47 24 |SED TO BE " ; G$|
000031C0: 00 D4 39 E0 0B 99 22 20 42 55 54 20 4E 4F 57 20 |..9..." BUT NOW |
000031D0: 22 3B 48 24 00 ED 39 EA 0B 99 22 20 49 20 55 53 |";H$..9..." I US|
000031E0: 45 44 20 54 4F 20 42 45 20 22 3B 49 24 00 02 3A |ED TO BE ";I$..:|
000031F0: F4 0B 99 22 20 42 55 54 20 4E 4F 57 20 22 3B 20 |..." BUT NOW "; |
00003200: 4A 24 00 1C 3A FE 0B 99 22 20 49 20 55 53 45 44 |J$..:..." I USED|
00003210: 20 54 4F 20 42 45 20 22 3B 20 4B 24 00 31 3A 08 | TO BE "; K$.1:.|
00003220: 0C 99 22 20 42 55 54 20 4E 4F 57 20 22 3B 20 4C |.." BUT NOW "; L|
00003230: 24 00 37 3A 12 0C 8F 00 3D 3A 1C 0C 8F 00 71 3A |$.7:....=:....q:|
00003240: 26 0C 8B 58 B2 31 A7 99 22 11 11 20 48 45 59 2C |&..X.1..".. HEY,|
00003250: 54 48 41 54 27 53 20 47 52 45 41 54 20 46 4F 52 |THAT'S GREAT FOR|
00003260: 20 4F 55 52 20 46 49 52 53 54 20 54 52 59 20 41 | OUR FIRST TRY A|
00003270: 54 00 91 3A 2B 0C 8B 58 B2 31 A7 99 22 20 54 48 |T..:+..X.1.." TH|
00003280: 41 54 20 4B 49 4E 44 20 4F 46 20 50 4F 45 4D 21 |AT KIND OF POEM!|
00003290: 22 00 C2 3A 30 0C 8B 58 B2 32 A7 99 22 11 11 20 |"..:0..X.2..".. |
000032A0: 49 20 4C 49 4B 45 44 20 54 48 49 53 20 50 4F 45 |I LIKED THIS POE|
000032B0: 4D 20 42 45 54 54 45 52 20 54 48 41 4E 20 54 48 |M BETTER THAN TH|
000032C0: 45 22 00 E8 3A 35 0C 8B 58 B2 32 A7 99 22 11 20 |E"..:5..X.2..". |
000032D0: 46 49 52 53 54 20 59 4F 55 20 41 52 45 20 49 4D |FIRST YOU ARE IM|
000032E0: 50 52 4F 56 49 4E 47 21 00 1C 3B 3A 0C 8B 20 58 |PROVING!..;:.. X|
000032F0: B1 32 20 A7 20 99 22 20 44 4F 20 59 4F 55 20 46 |.2 . ." DO YOU F|
00003300: 45 45 4C 20 47 4F 4F 44 20 41 42 4F 55 54 20 59 |EEL GOOD ABOUT Y|
00003310: 4F 55 52 20 50 4F 45 4D 53 3F 22 3B 00 3F 3B 3F |OUR POEMS?";.?;?|
00003320: 0C 8B 58 B1 32 A7 20 55 53 24 B2 22 4E 59 22 3A |..X.2. US$."NY":|
00003330: 55 4C B2 31 3A 8D 33 35 3A 4E 24 B2 55 52 24 00 |UL.1:.35:N$.UR$.|
00003340: 84 3B 44 0C 99 22 11 20 57 4F 55 4C 44 20 59 4F |.;D..". WOULD YO|
00003350: 55 20 4C 49 4B 45 20 54 4F 20 57 52 49 54 45 20 |U LIKE TO WRITE |
00003360: 41 4E 4F 54 48 45 52 20 27 49 20 55 53 45 44 20 |ANOTHER 'I USED |
00003370: 54 4F 2F 42 55 54 20 4E 4F 57 27 20 50 4F 45 4D |TO/BUT NOW' POEM|
00003380: 3F 20 22 3B 00 A1 3B 4E 0C 55 53 24 B2 22 59 4E |? ";..;N.US$."YN|
00003390: 22 3A 55 4C B2 31 3A 8D 33 35 3A 4D 24 B2 55 52 |":UL.1:.35:M$.UR|
000033A0: 24 00 B7 3B 58 0C 8B 4D 24 B2 22 4E 22 B0 4D 24 |$..;X..M$."N".M$|
000033B0: B2 22 4E 4F 22 A7 8E 00 C2 3B 62 0C 89 20 32 39 |."NO"....;b.. 29|
000033C0: 35 30 00 D7 3B 6C 0C 8F 20 3D 3D 3D 20 43 48 4F |50..;l.. === CHO|
000033D0: 49 43 45 20 3D 3D 3D 00 09 3C 76 0C 8D 38 35 30 |ICE ===..<v..850|
000033E0: 3A 3A 3A 99 22 11 20 41 52 45 20 59 4F 55 20 54 |:::.". ARE YOU T|
000033F0: 49 52 45 44 20 4F 46 20 57 52 49 54 49 4E 47 20 |IRED OF WRITING |
00003400: 50 4F 45 4D 53 20 3F 22 3B 00 26 3C 80 0C 55 53 |POEMS ?";.&<..US|
00003410: 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A |$."YN":UL.1:.35:|
00003420: 5A 24 B2 55 52 24 00 49 3C 8A 0C 8B 20 5A 24 B2 |Z$.UR$.I<... Z$.|
00003430: 22 59 22 20 B0 20 5A 24 B2 22 59 45 53 22 20 A7 |"Y" . Z$."YES" .|
00003440: 20 46 4C 41 47 B2 30 3A 8E 00 84 3C 94 0C 99 22 | FLAG.0:...<..."|
00003450: 11 11 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B |.. WOULD YOU LIK|
00003460: 45 20 54 4F 20 57 52 49 54 45 20 4D 4F 52 45 20 |E TO WRITE MORE |
00003470: 43 4F 4D 50 41 52 49 53 4F 4E 20 50 4F 45 4D 53 |COMPARISON POEMS|
00003480: 20 3F 22 3B 00 A1 3C 9E 0C 55 4C B2 31 3A 55 53 | ?";..<..UL.1:US|
00003490: 24 B2 22 59 4E 22 3A 8D 33 35 3A 58 24 B2 55 52 |$."YN":.35:X$.UR|
000034A0: 24 00 CA 3C A8 0C 8B 20 58 24 B2 22 59 22 20 B0 |$..<... X$."Y" .|
000034B0: 20 58 24 B2 22 59 45 53 22 20 A7 20 8D 32 33 30 | X$."YES" . .230|
000034C0: 30 3A 46 4C 41 47 B2 30 3A 8E 00 F8 3C B2 0C 99 |0:FLAG.0:...<...|
000034D0: 22 11 20 57 45 4C 4C 2C 20 49 27 4D 20 46 52 45 |". WELL, I'M FRE|
000034E0: 53 48 20 4F 55 54 20 4F 46 20 49 44 45 41 53 20 |SH OUT OF IDEAS |
000034F0: 46 4F 52 20 4D 4F 52 45 00 0F 3D B7 0C 99 22 20 |FOR MORE..=..." |
00003500: 4B 49 4E 44 53 20 4F 46 20 50 4F 45 4D 53 2E 00 |KINDS OF POEMS..|
00003510: 3E 3D BC 0C 99 22 11 20 59 4F 55 20 4B 4E 4F 57 |>=...". YOU KNOW|
00003520: 2C 20 57 48 41 54 20 59 4F 55 20 53 48 4F 55 4C |, WHAT YOU SHOUL|
00003530: 44 20 44 4F 20 49 53 20 52 45 41 44 20 41 00 63 |D DO IS READ A.c|
00003540: 3D C1 0C 99 22 20 42 4F 4F 4B 20 45 4E 54 49 54 |=..." BOOK ENTIT|
00003550: 4C 45 44 20 27 57 49 53 48 45 53 2C 20 4C 49 45 |LED 'WISHES, LIE|
00003560: 53 2C 22 00 87 3D C6 0C 99 22 20 41 4E 44 20 44 |S,"..=..." AND D|
00003570: 52 45 41 4D 53 27 20 42 59 20 4B 45 4E 4E 45 54 |REAMS' BY KENNET|
00003580: 48 20 4B 4F 43 48 2E 00 A9 3D CB 0C 99 22 20 48 |H KOCH...=..." H|
00003590: 45 20 48 41 53 20 4C 4F 54 53 20 4F 46 20 4E 45 |E HAS LOTS OF NE|
000035A0: 41 54 20 49 44 45 41 53 21 00 D3 3D D0 0C 99 22 |AT IDEAS!..=..."|
000035B0: 20 44 49 44 20 59 4F 55 20 48 41 56 45 20 46 55 | DID YOU HAVE FU|
000035C0: 4E 20 57 52 49 54 49 4E 47 20 57 49 54 48 20 4D |N WRITING WITH M|
000035D0: 45 3F 22 00 F6 3D DA 0C 99 22 20 22 3B 3A 55 50 |E?"..=..." ";:UP|
000035E0: B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 35 3A |.1:US$."YN":.35:|
000035F0: 57 24 B2 55 52 24 00 0B 3E DF 0C 46 4C 41 47 B2 |W$.UR$..>..FLAG.|
00003600: 30 3A 8D 38 33 35 3A 8D 38 35 30 00 11 3E E4 0C |0:.835:.850..>..|
00003610: 8E 00 00 00 |.... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-..UC,0.*
.2..UI$:.UI$."".50.T.7..UI$.G(13).C(UR$)
..1..UC,1:." .";:.85.G.<..UI$.G(20).105.
{.>.. C(UR$)..UL.50. .A..120:. CHECK FOR
VALID CHARACTER...F.UR$.UR$.UI$...K..UI
$;.B.P..50...U.. +++ CHECK FOR HELP REQU
EST +++...Z..UR$.UX$.195:. EXIT TO HELP
ROUTINE..._..UF.1..240.+.D.UF.0:.:..D.F.
. ++ CHECK DELETE ++.U.I..C(UR$).1.50.M.
N.UR$.H(UR$,C(UR$).1)..S..". ..";:.50.
..X.. ++ CHECK FOR VALID CHARACTERS ++..
.}..C(US$).0.150.H..US$.US$.UX$.Y....US
.1.C(US$)......UI$.J(US$,US,1)..........
...UI$."":....... ** STANDARD INPUT **./
....F(UI$).46...@....UI$.G(32)...]. ..F(
UI$).48.F(UI$).57.170.C..........F(UI$).
65.F(UI$).90.180............F(UI$).193.F
(UI$).218.UI$."":..M....B(UT).UU%.UI$.G(
F(UI$).128):..S.........UI$."":....C.UF.
1:. +++ HELP ROUTINE EXIT +++...E..250..
.H..245.6.M..UQ.UB.(U2%.256.U1%.U3%.2).R
.R.UQ%(UQ.UB).B(UQ):.:.".".E.W.UZ.1:UV%.
B(UT).N.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:
UP.UJ:UL.UK:.B(50003).0..53281,6:.53280,
14.....UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%
.256.U1%.U3%.3)......UQ,UQ%(UQ.UB):.....
..U1,U1%......U2,U2%. ....U4,U4%......U3
,U3%.1.6....35.H...UD%.((U2%.256.U1%.U3%
).UB).40:.H(UD$,UD%.1):.......H(UD$,24);
" . HELP COMING .
":..O...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4
%.B(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.U
P:UK.UL.........,.. ** MENU **...-.:.C..
..".":.UT,UU%:.B(50003).0..53281,9:.5328
0,8.I./.:.F.1..". MENU"..
.6.." ----------------------------------
----"...;..".. 1. COMPUTER POETR
Y"...@..".. 2. STUDENT INSTRUCTI
ONS"...E..".. 3. TEACHER INSTRUC
TIONS".;.J..".. 4. MODIFICATION
OF PROGRAM".W.O..".. 5. QUIT..".
..T.." ---------------------------------
-----"...Y..".. PRESS A NUMBER KEY
(1-5) ";.Z.^.UL.1:US$."12345":.35:. INP
UT ROUTINE..._..C(UR$).1.300...`.US$."".
..B.. FLAG.1.UR$."1".220.1.C..E(UR$).100
0,400,500,600,396.:.H..300.A.... ** RE-E
NABLE STOP KEY AND END **......B(50003).
.1.B(50003)..160.B(50003)..0.399......UU
.71:.B(50003).0..53281,6:.53280,14.F....
"..":..Q....875:....... ** STUDENT INSTR
UCTIONS **.!....".":.UT,UL%:.B(50003).0.
.53281,0:.53280,0.Y...UT$." COMPUTER POE
TRY":UP.0:UG$."STUDENT INST":.850......"
.. THIS PROGRAM IS TO HELP YOU LEARN
.POETRY."......".. YOU WILL LEARN TWO
DIFFERENT......". TYPES OF POEMS; 'COMP
ARISON' POEMS......". AND 'I USED TO/BUT
NOW' POEMS."...G..835:.850.J.L..".. NOT
E:...TO ADVANCE FROM ONE QUESTION".S.V..
". TO THE NEXT PRESS THE SPACE BAR".....
."....... IF AT ANY TIME YOU WISH TO RET
URN".H....". TO THE MENU PRESS H RETURN"
.Q....835......UZ.1..UP%:.217...........
. ** TEACHER INSTRUCTIONS **.<....".":.U
T,UL%:.B(50003).0..53281,2:.53280,10.T..
.UT$." COMPUTER POETRY":UP.0:UG$."TEACHE
R INST":.850......".. TO THE BEST O
F OUR KNOWLEDGE,.".K...." THIS PROGRAM
IS IN THE PUBLIC."......" DOMAIN. IF
THIS IS NOT THE CASE."......" PLEASE
CONTACT:...".>...." COMMODORE BUSIN
ESS MACHINES.".A...." 3370 PHAR
MACY AVE......." AGINCOURT, ONT
ARIO"......" CANADA M1W 2K4".
G...." (416) 499-4292".X.... 83
5:. 850:......" ..PROGRAM NAME: COMP
UTER POETRY..,...." WRITTEN BY : LO
REEN HANSEN..P...." UPGRADED BY :
..{...." .THIS PROGRAM WILL R
UN ON ANY........" BASIC 2.0 PET
COMPUTER..I...." BASIC 4.0 PET
COMPUTER......." 8032 CBM COMPUT
ER......." COMMODORE 64 COMPUTER
......835:.850.N....".. THIS IS A GOOD
EXERCISE FOR STUDENTS".Y....". WHO REALL
Y DON'T LIKE POETRY. THE"......". POEMS
THEY WILL WRITE ARE SIMPLE AND"......".
SHORT AND MAY INSPIRE SOME INTEREST IN
.POETRY."...D..835...N..UZ.1..UP%:.217..
.W...*.X.. ** PROGRAM MODIFICATION INST
**.;.Y..".":.UT,UL%.R.].UT$." COMPUTER P
OETRY":UP.0:UG$."PROGRAM MOD":.850...B..
".. THIS PROGRAM CAN BE MODIFIED, BUT,".
I.G.." SHOULD BE DONE BY SOMEONE WHO IS
"...L.." FAMILIAR WITH THE OPERATION OF
THIS":." PROGRAM..".2.Q.." LINES 2300-27
00 CONTAIN THE ROUTINE TO".V.V.." PRINT
THE COMPARISON POEMS."...{..". BY CHANGI
NG THE PRINT STATEMENTS YOU"......" CAN
USE YOUR OWN POEM TOPICS IN THE".A...."
PROGRAM.".J....835......UZ.1..UP%:.217..
.......... ** TO USE 8032 LOAD CBM4032 *
*.?.F..".....BEFORE RUNNING THIS PROGRAM
ON AN 8032 ...U.P.." LOAD THE 'CB
M 4032' PROGRAM............."...Z..UU.71
............ ** TO USE 8032 LOAD CBM4032
**......"....BEFORE RUNNING THIS PROGRA
M ON AN 8032 ..LOAD CBM 4032 PROGRAM"..
....1093:..". .. ** T I T L E P A G E
**.V.".."....";:.UT,UU%:.B(50003).0..532
80,14:.53281,6.L.$..I.1.38:."...";:....&
..I.1.22:.".....";:....(..I.1.37:.".....
";:....*..I.1.22:.".....";:..Y.,..".....
...................... ......."........
........... . . .....0.."..............
..... . ....:.2.."....................
..B.4.."..............C O M M O D O R E
.....6.."...............EDUCATIONAL.....
8.."................SOFTWARE...:.. ** CO
MMODORE LOGO **...;..H(UD$,24);"........
..PRESS SPACE BAR OR WAIT.":I.0...<..A$:
.A$.." ".I.I.1:.I.250.828.=.>.T1$."":T2$
."":T3$."":T4$."":I.0.F.@..300.B.C.. **
SPACE BAR PRESS **...H..UO,0:.H(UD$,24);
".......PRESS SPACE BAR TO CONTINUE."...
L..UI$:.UI$.." ".844...N...Z.R.. ** PAGE
DESIGN ROUTINE **...T.UP.UP.1...W.."."H
(UT$.UP$,21);I(UP$.UG$.D(UP),18).?.\.."
--------------------------------------".
E.^...T.`..UH..0.870...A..H(UD$,24);H(UP
$,7);"HELP - PRESS H <RETURN>"...F..UO
,0:."..":....K.. ** PLEASE WAIT REMARK *
*...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U........ ** SET UP VA
RIABLES **.]...UX$."H":.UQ%(1000):UB.327
68:U1.196:U2.197:U3.198:U4.216:UC.167:UU
.1024.....UT.59468:UU%.12:UL%.14:UP%.114
6:UM.32768:UO.158:. 50003,0......B(50003
).0.UB.1024:U1.209:U2.210:U3.211:U4.214:
UC.204:UU.2048......B(50003).0.UT.53272:
UU%.21:UL%.23:UP%.2139:UM.1024:UO.198.A.
..UD$.".........................".S...UP
$."
".....UT$." COMPUTER POETRY":. PROGRAM
TITLE............ ** SET VARIABLES **.G
....900.M...:.S...:...... ** CHECK FOR 8
032 **.. ...".":." ":. SHIFTED SPACE.# .
..B(UB.40)..96..700.< ... ** MEMORY CHEC
K **.P ... .(0).2000.937.~ ..."....THIS
MACHINE DOES NOT HAVE ENOUGH.".. ..."MEM
ORY TO RUN THIS PROGRAM !".. ...UU.71..
....M ..."..":.B(50003).0.962.. ... ** B
ASIC 2.0 OR 4.0 OR C-64 SETUP **.:!.
..1075,133:.1076,144:.1077,234:.1079,4:.
1080,133:.1081,145.P!...1091,155:.1098,1
33:.1099,144:.1100,234:.1103,133..!...11
04,145:.1105,234:.1082,234..!...B(50003)
..160.955.X!...1093,88:.1094,228:.1097,8
5:.1102,228:.965..!...B(50003)..1.990.."
...1093,49:.1094,230:.1097,46:.1102,230:
.965.V"B..2099,141:.2100,20:.2101,3:.210
3,8:.2104,141:.2105,21.."C..2106,3:.2115
,145:.2117,52:.2118,234:.2121,49:.2122,1
41.L"D..2123,20:.2124,3:.2126,234:.2127,
141:.2128,21:.2129,3.."E..UU.48:. DISABL
E STOP KEY.."J..800:. TITLE..#T..300:. M
ENU.<#...".THE PGM WILL NOT WORK ON THIS
MACHINE!":..Q#...UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **..#..."..";:.:.
B(50003).0..53281,6:.53280,14.K#..UP.0:F
LAG.1:UT$." COMPUTER POETRY":UG$.""..#..
. 1570: . == INITIALIZE ==..#...1597..$.
.. 2170: . == COMPARISONS ==.6$... 2770:
. ==USED TO/BUT NOW==.O$... 3180: . ==C
HOICE==..$...".. THANK YOU FOR WRITING W
ITH ME!!! ..SSGOOD-BYE, FRIEND!SS
"..$...835..$..FLAG.0:...$.....$....R$".
. == INITIALIZE ==..%,..850:.". HI! MY
NAME IS E. E. COMPUTER. I AM".6%6..". A
POET. HOW DO YOU FEEL ABOUT POETRY?".A
%;..835:..L%=..850::.U%@..". SELECT A NU
MBER BELOW THAT BEST"..%J..". DESCRIBES
THE WAY YOU FEEL ABOUT POETRY".N%T..". .
1..... POETRY IS FOR SISSIES."..&^..". .
2..... POETRY IS JUST A BUNCH OF RHYMES.
".5&H..". .3..... I USUALLY DON'T UNDERS
TAND POETRY.".Z&R..". .4..... I LIKE SOM
E POETRY."..&|..". .5..... I LIKE TO WRI
TE POETRY."..&...". .6..... I DON'T KNOW
HOW I FEEL ABOUT POETRY..A&...:...&..."
YOUR CHOICE ? ";..&..US$."H123456":.3
5:P$.UR$..'..P.E(P$)..'... P.1 . 1780.&'
... P.2 . 1840.7'... P.3 . 1930.H'B.. P.
4 . 2090.Y'L.. P.5 . 2110.J'V.. P.6 . 21
30.T'...1680..'... ### RESPONSES TO ANS
WER ###.I'...850:.". ONE OF MY FRIENDS,
O.J.SIMPSON, THE"..'..." PROFESSIONAL FO
OTBALL PLAYER, WRITES".%(..." POETRY AND
I DON'T THINK HE'S A SISSY!"..(...835.]
(...850:.". LET'S WRITE SOME POETRY TOGE
THER!..(..." I'M SURE YOU WILL HAVE LOTS
OF FUN!"..(&.. 2150.W(0..850:.". YOU'RE
RIGHT -- MOST POETRY IS FILLED WITH R
HYMES."..):.." BUT POETRY DOESN'T HAVE T
O RHYME.".H)D.." HERE IS A 'HAIKU' POEM
(PRONOUNCED 'HI-KOO') BY ONITSURA:"
.E)N.."......A TROUT LEAPS UP..)X.."....
.BELOW HIM IN THE RIVER BOTTOM..)B.."...
..CLOUDS FLOAT BY.T)L..".. LET'S WRITE S
OME POETRY TOGETHER!..)V.." I'M SURE YOU
'LL HAVE LOTS OF FUN!!"..*...2150.G*...8
50:.". I DON'T UNDERSTAND POETRY ALL THE
TIME EITHER.".P*..." SO LET'S RELAX AN
D JUST ENJOY IT"..*..." TOGETHER! HERE I
S ONE OF MY FAVORITE POEMS:".D*...".
SPAGHETTI, SPAGHETTI..*..." ALL OVER THE
PLACE..+..." UP TO MY ELBOWS, UP TO MY
FACE.2+..." FILLING THE BATHTUB, COVERIN
G THE DESK.[+F.." MAKING THE SOFA A MAD
MUSHY MESS..A+P....+Z.." THE PARTY'S RUI
NED, AND I AM SO WORRIED..+..." MY GUEST
S HAVE ALL LEFT,.S+..." (UNLESS THEY'RE
ALL BURIED)..+..." I TOLD THEM 'BRING PR
ESENTS'..,..." I SAID 'THROW CONFETTI'.6
,..." I GUESS THEY HEARD WRONG._,..." 'C
AUSE THEY ALL THREW SPAGHETTI!".H,...835
.S, .. 1810..,*..850:.". I LIKE SOME POE
TRY, TOO! HERE IS ONE OF MY FAVORITES
:".E,4.. 1950..,>..850:.". OH, BOY!!! WE
ARE BOTH POETS!"..,H.. 1900..-R..850:."
. WELL . . .": . 1900.=-\..: .".ARE
YOU READY";A$.H-F..835::.N-P...F-Z.. ==
COMPARISONS ==..-...850:.". HERE IS A PO
EM BY A YOUNG GIRL:".A-...". SNOWFLAKES
ARE LIKE SHINING DIAMONDS..-..." A BREEZ
E IS LIKE THE SKY COMING TO YOU......" T
HE SUN IS LIKE GOLDEN BRIGHT EARRINGS.E.
...".. SHE USES A LOT OF WHAT I CALL".F.
..." 'COMPARISONS' IN HER POEM......" FO
R INSTANCE, SHE USES 'DIAMONDS' TO".C...
." DESCRIBE WHAT THE SNOWFLAKES LOOK LIK
E.".Q.E..835:.850../J..". NOW LET'S TRY
WRITING A COMPARISON POEM TOGETHER..;/T.
.". I WILL WRITE ONE PART OF THE SENTENC
E,".`/Y.." AND THEN YOU FINISH IT WITH A
../..." COMPARITIVE PHRASE OR NOUN. THEN
YOU"../..." BEGIN A SENTENCE AND I'LL".
X/..." FINISH IT. WE'LL DO THIS UNTIL WE
../..." HAVE THREE LINES.I'LL BEGIN...0.
..835:. A.0.,0... A.A.1 : . --POEM COUNT
ER--.H0... A.1 . . 2350:. POEM 1.D0... A
.2 . . 2420:. POEM 2..0... A.3 . . 2490:
. POEM 3..0$....0... --COMPARISON POEM 1
--..03..850::..08..".. GRASS IS LIKE ";:
US$."":UL.20:.35:A$.UR$..1B..". ........
............. FRESH FALLEN SNOW .";.)1L.
US$."":.35:B$.UR$.X1V.." SATURDAYS ARE L
IKE ";:US$."":.35:C$.UR$.A1[..835.L1`..
2560.R1J....1T.. --COMPARISON POEM 2--..
1Y..850::.M1~..".. RUNNING IS LIKE ";:US
$."":UL.20:.35:A$.UR$..2..." ...........
.... PANCAKES WITH HOT SYRUP .";..2..US$
."":.35:B$.UR$.C2..." SUNSHINE IS LIKE "
;:US$."":.35:C$.UR$.L2...835.W2... 2610.
]2....Y2... --COMPARISON POEM 3--..2...8
50::..2D..".. SHARP PENCILS ARE LIKE ";:
UL.20::US$."":.35:A$.UR$..2N.." ........
................ STICKY FINGERS .";..3X.
US$."":.35:B$.UR$.63..." LAUGHTER IS LIK
E ";:US$."":.35:C$.UR$.?3...835.J3... 26
60.P3....~3...850:::.". AND HERE'S OUR F
INISHED POEM:"..3..."... GRASS IS LIKE "
; A$..3..." ";B$; " FRESH FALLEN SNOW"..
3..." SATURDAYS ARE LIKE "; C$..3(.. 272
0..42..850:::.". AND HERE'S OUR FINISHED
POEM:".64<.."... RUNNING IS LIKE ";A$.^
4F.." ";B$; " PANCAKES WITH HOT SYRUP".|
4P.." SUNSHINE IS LIKE "; C$..4Z.. 2720.
.4D..850:. 865:.". AND HERE'S OUR FINISH
ED POEM:"..4N.."... SHARP PENCILS ARE LI
KE ";A$..4X.." ";B$;" STICKY FINGERS"..5
..." LAUGHTER IS LIKE "; C$.&5... 2720.,
5....:5 .. A.0 . ..]5... ".. WE'RE PRETT
Y GOOD POETS!..5...".. WOULD YOU LIKE TO
WRITE ANOTHER..5..." COMPARISON POEM ?
";..5..US$."YN":UL.1:.35:D$.UR$.Z5... D$
."N" . D$."NO" . ...5H.. 2300..6R.. ====
USED TO/BUT NOW====..6..X.0.>6...850:.".
I HOPE YOU ENJOYED WRITING COMPARISON.B
6..." POEMS WITH ME! I LOVED IT!"..6...
". LET'S WRITE SOME DIFFERENT KINDS OF".
.6..." POEMS NOW. THESE ARE CALLED 'I US
ED"..6..." TONBUT NOW' POEMS. I'LL PRINT
'I USED..7..." TO' AND THEN YOU FINISH
THE SENTENCE.".Z7..." THEN I'LL PRINT 'B
UT NOW' AND YOU FINISHED THAT LINE
.".H7...835:.850..7"..". HERE'S AN EXAMP
LE BY A YOUNG FRIEND"..7,.." OF MINE:".C
76..".. I USED TO BE A BOOK..7@.." BUT N
OW I'M A TYPEWRITER..7J.." I USED TO BE
A DREAM..8T.." BUT NOW I'M A WISH.68^.."
I USED TO BE A PENCIL.S8H.." BUT NOW I'
M AN ERASER.\8R..835.X8... X.X.1 : . POE
M NUMBER..8...850:::.".. I USED TO BE ";
:UL.20:US$."":.35:G$.UR$.T8..." BUT NOW
";:US$."":.35:H$.UR$..8..." I USED TO BE
";:US$."":.35:I$.UR$.!9..." BUT NOW ";:
US$."":.35:J$.UR$.J9..." I USED TO BE ";
:US$."":.35:K$.UR$.S9B.." BUT NOW ";:US$
."":.35:L$.UR$:.835..9L..850:::."... AND
HERE'S OUR FINISHED POEM:"..9V..".. I U
SED TO BE " ; G$.T9..." BUT NOW ";H$..9.
.." I USED TO BE ";I$..:..." BUT NOW ";
J$..:..." I USED TO BE "; K$.1:..." BUT
NOW "; L$.7:....=:....Q:&..X.1..".. HEY,
THAT'S GREAT FOR OUR FIRST TRY AT..:+..X
.1.." THAT KIND OF POEM!".B:0..X.2.."..
I LIKED THIS POEM BETTER THAN THE"..:5..
X.2..". FIRST YOU ARE IMPROVING!..;:.. X
.2 . ." DO YOU FEEL GOOD ABOUT YOUR POEM
S?";.?;?..X.2. US$."NY":UL.1:.35:N$.UR$.
.;D..". WOULD YOU LIKE TO WRITE ANOTHER
'I USED TO/BUT NOW' POEM? ";..;N.US$."YN
":UL.1:.35:M$.UR$..;X..M$."N".M$."NO"...
B;B.. 2950.W;L.. === CHOICE ===..<V..850
:::.". ARE YOU TIRED OF WRITING POEMS ?"
;.&<..US$."YN":UL.1:.35:Z$.UR$.I<... Z$.
"Y" . Z$."YES" . FLAG.0:...<...".. WOULD
YOU LIKE TO WRITE MORE COMPARISON POEMS
?";..<..UL.1:US$."YN":.35:X$.UR$.J<...
X$."Y" . X$."YES" . .2300:FLAG.0:...<...
". WELL, I'M FRESH OUT OF IDEAS FOR MORE
..=..." KINDS OF POEMS..>=...". YOU KNOW
, WHAT YOU SHOULD DO IS READ A.C=A.." BO
OK ENTITLED 'WISHES, LIES,"..=F.." AND D
REAMS' BY KENNETH KOCH...=K.." HE HAS LO
TS OF NEAT IDEAS!.S=P.." DID YOU HAVE FU
N WRITING WITH ME?"..=Z.." ";:UP.1:US$."
YN":.35:W$.UR$..>..FLAG.0:.835:.850..>..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL