A STORY
FILE INFORMATION
FILENAME(S): A STORY
FILE TYPE(S): PRG
FILE SIZE: 8.7K
FIRST SEEN: 2025-11-30 21:26:14
APPEARS ON: 1 disk(s)
FILE HASH
073db2f3d8abeb82725ee778f7650f05676bd17f8f9dbacba3e4fe85fdccbe8e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDUCATIEF 5A | A STORY | PRG | DuncanTwain | 17 | 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 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 B8 0E 3B 01 99 22 11 11 20 20 |----"...;..".. |
000006A0: 20 20 20 20 20 31 2E 20 20 20 41 20 53 54 4F 52 | 1. A STOR|
000006B0: 59 20 20 20 20 20 20 22 00 E2 0E 40 01 99 22 11 |Y "...@..".|
000006C0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000006D0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
000006E0: 53 22 00 0C 0F 45 01 99 22 11 11 20 20 20 20 20 |S"...E..".. |
000006F0: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000700: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 39 0F 4A |NSTRUCTIONS".9.J|
00000710: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000720: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 | MODIFICATION OF|
00000730: 20 50 52 4F 47 52 41 4D 22 00 55 0F 4F 01 99 22 | PROGRAM".U.O.."|
00000740: 11 11 20 20 20 20 20 20 20 35 2E 20 20 20 51 55 |.. 5. QU|
00000750: 49 54 11 11 22 00 84 0F 54 01 99 22 20 2D 2D 2D |IT.."...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 22 00 AF 0F 59 01 99 22 11 11 20 20 20 |---"...Y..".. |
00000790: 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 | PRESS A NUMB|
000007A0: 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 |ER KEY (1-5) ";.|
000007B0: D8 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 |..^.UL.1:US$."12|
000007C0: 33 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 |345":.35:. INPUT|
000007D0: 20 52 4F 55 54 49 4E 45 00 EA 0F 5F 01 8B C3 28 | ROUTINE..._...(|
000007E0: 55 52 24 29 B1 31 A7 33 30 30 00 F5 0F 60 01 55 |UR$).1.300...`.U|
000007F0: 53 24 B2 22 22 00 16 10 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
00000800: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 |).1000,400,500,6|
00000810: 30 30 2C 33 39 36 00 1F 10 68 01 89 33 30 30 00 |00,396...h..300.|
00000820: 46 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |F.... ** RE-ENAB|
00000830: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000840: 45 4E 44 20 2A 2A 00 75 10 8C 01 8B C2 28 35 30 |END **.u.....(50|
00000850: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000860: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
00000870: 30 A7 33 39 39 00 9F 10 8D 01 9E 55 55 AA 37 31 |0.399......UU.71|
00000880: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000890: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
000008A0: AB 10 8E 01 99 22 9A 93 22 3A 80 00 B6 10 8F 01 |....."..":......|
000008B0: 8D 38 37 35 3A 8E 00 D7 10 90 01 8F 20 2A 2A 20 |.875:....... ** |
000008C0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
000008D0: 49 4F 4E 53 20 2A 2A 00 06 11 95 01 99 22 93 22 |IONS **......"."|
000008E0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
000008F0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
00000900: 33 32 38 30 2C 30 00 27 11 9A 01 55 50 B2 30 3A |3280,0.'...UP.0:|
00000910: 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 |UG$.".TUDENT .NS|
00000920: 54 22 3A 8D 38 35 30 00 57 11 9F 01 99 22 11 11 |T":.850.W...."..|
00000930: 11 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 |. .HIS PROGRAM I|
00000940: 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 48 45 |S DESIGNED TO HE|
00000950: 4C 50 20 59 4F 55 22 00 86 11 A1 01 99 22 11 20 |LP YOU"......". |
00000960: 4C 45 41 52 4E 20 59 4F 55 52 20 50 41 52 54 53 |LEARN YOUR PARTS|
00000970: 20 4F 46 20 53 50 45 45 43 48 2C 20 54 48 45 52 | OF SPEECH, THER|
00000980: 45 46 4F 52 45 22 00 B6 11 A4 01 99 22 11 20 59 |EFORE"......". Y|
00000990: 4F 55 20 4D 41 59 20 46 49 4E 44 20 54 48 45 53 |OU MAY FIND THES|
000009A0: 45 20 44 45 46 49 4E 49 54 49 4F 4E 53 20 55 53 |E DEFINITIONS US|
000009B0: 45 46 55 4C 2E 22 00 E0 11 A9 01 99 22 11 11 11 |EFUL."......"...|
000009C0: 20 CE CF D5 CE 3A 2D D0 45 52 53 4F 4E 2C 20 D0 | ....:-.ERSON, .|
000009D0: 4C 41 43 45 2C 20 4F 52 20 D4 48 49 4E 47 2E 22 |LACE, OR .HING."|
000009E0: 00 11 12 AE 01 99 22 11 20 C1 C4 CA C5 C3 D4 C9 |......". .......|
000009F0: D6 C5 3A 2D CD 4F 44 49 46 49 45 53 20 4F 52 20 |..:-.ODIFIES OR |
00000A00: 44 45 53 43 52 49 42 45 53 20 41 20 4E 4F 55 4E |DESCRIBES A NOUN|
00000A10: 22 00 3F 12 B3 01 99 22 20 C1 C4 D6 C5 D2 C2 3A |".?...." ......:|
00000A20: 2D CD 4F 44 49 46 49 45 53 20 41 20 56 45 52 42 |-.ODIFIES A VERB|
00000A30: 20 4F 52 20 41 44 4A 45 43 54 49 56 45 2E 22 00 | OR ADJECTIVE.".|
00000A40: 6D 12 B8 01 99 22 11 20 D6 C5 D2 C2 3A 2D C5 58 |m....". ....:-.X|
00000A50: 50 52 45 53 53 45 53 20 41 4E 20 41 43 54 20 4F |PRESSES AN ACT O|
00000A60: 52 20 4F 43 43 55 52 41 4E 43 45 2E 22 00 76 12 |R OCCURANCE.".v.|
00000A70: C6 01 8D 38 33 35 00 7F 12 C7 01 8D 38 35 30 00 |...835......850.|
00000A80: AE 12 CC 01 99 22 11 11 20 CE 4F 54 45 3A 11 11 |.....".. .OTE:..|
00000A90: 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 52 4F 4D |..O ADVANCE FROM|
00000AA0: 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E 22 00 D7 | ONE QUESTION"..|
00000AB0: 12 D6 01 99 22 11 20 54 4F 20 54 48 45 20 4E 45 |....". TO THE NE|
00000AC0: 58 54 20 50 52 45 53 53 20 54 48 45 20 D3 D0 C1 |XT PRESS THE ...|
00000AD0: C3 C5 20 42 41 52 22 00 07 13 DB 01 99 22 11 11 |.. BAR"......"..|
00000AE0: 1D 1D 1D 1D 1D C9 46 20 41 54 20 41 4E 59 20 54 |......F AT ANY T|
00000AF0: 49 4D 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |IME YOU WISH TO |
00000B00: 52 45 54 55 52 4E 22 00 2B 13 E0 01 99 22 11 20 |RETURN".+....". |
00000B10: 54 4F 20 54 48 45 20 CD C5 CE D5 20 50 52 45 53 |TO THE .... PRES|
00000B20: 53 20 48 20 D2 C5 D4 D5 D2 CE 22 00 34 13 E5 01 |S H ......".4...|
00000B30: 8D 38 33 35 00 48 13 EA 01 8B 55 5A B2 31 A7 9E |.835.H....UZ.1..|
00000B40: 55 50 25 3A 89 32 31 37 00 4E 13 F3 01 8E 00 6F |UP%:.217.N.....o|
00000B50: 13 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
00000B60: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000B70: 9F 13 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |.....".":.UT,UL%|
00000B80: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000B90: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000BA0: C0 13 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |....UP.0:UG$.".E|
00000BB0: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
00000BC0: 00 EE 13 F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
00000BD0: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
00000BE0: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 17 |R KNOWLEDGE,."..|
00000BF0: 14 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
00000C00: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
00000C10: 55 42 4C 49 43 11 22 00 43 14 F9 01 99 22 20 20 |UBLIC.".C...." |
00000C20: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00000C30: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00000C40: 45 11 22 00 60 14 FA 01 99 22 20 20 20 50 4C 45 |E.".`...." PLE|
00000C50: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00000C60: 00 8A 14 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |......" .OM|
00000C70: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00000C80: CD 41 43 48 49 4E 45 53 11 22 00 AD 14 FC 01 99 |.ACHINES."......|
00000C90: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000CA0: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 D1 14 |.HARMACY .VE....|
00000CB0: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
00000CC0: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000CD0: 22 00 F3 14 FE 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000CE0: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
00000CF0: CB 34 22 00 13 15 FF 01 99 22 20 20 20 20 20 20 |.4"......" |
00000D00: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
00000D10: 39 32 22 00 29 15 00 02 55 50 B2 31 3A 8D 20 38 |92".)...UP.1:. 8|
00000D20: 33 35 3A 8D 20 38 35 30 3A 00 4D 15 01 02 99 22 |35:. 850:.M...."|
00000D30: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000D40: 41 4D 45 3A 20 C1 20 D3 54 4F 52 59 11 00 71 15 |AME: . .TORY..q.|
00000D50: 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |..." .RITTEN|
00000D60: 20 C2 59 20 20 3A 20 D0 41 54 20 D4 55 42 42 53 | .Y : .AT .UBBS|
00000D70: 11 00 95 15 03 02 99 22 20 20 20 20 20 D5 50 47 |......." .PG|
00000D80: 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 |RADED .Y : |
00000D90: 20 20 20 20 11 00 C0 15 04 02 99 22 20 20 20 20 | ......." |
00000DA0: 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | ..HIS PROGRAM W|
00000DB0: 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 |ILL RUN ON ANY..|
00000DC0: 00 E7 15 05 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000DD0: C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF |......2.0 ... ..|
00000DE0: CD D0 D5 D4 C5 D2 11 00 0E 16 06 02 99 22 20 20 |............." |
00000DF0: 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 | ..... 4.0|
00000E00: 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 30 | ..............0|
00000E10: 16 07 02 99 22 20 20 20 20 20 20 20 20 20 38 30 |...." 80|
00000E20: 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 |32 ... .........|
00000E30: 00 55 16 08 02 99 22 20 20 20 20 20 20 20 20 20 |.U...." |
00000E40: C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD |......... 64 ...|
00000E50: D0 D5 D4 C5 D2 00 63 16 09 02 8D 38 33 35 3A 8D |......c....835:.|
00000E60: 38 35 30 00 90 16 0A 02 99 22 11 20 20 D4 48 49 |850......". .HI|
00000E70: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 44 45 53 |S PROGRAM IS DES|
00000E80: 49 47 4E 45 44 20 54 4F 20 48 45 4C 50 20 41 22 |IGNED TO HELP A"|
00000E90: 00 BB 16 0B 02 99 22 11 20 53 54 55 44 45 4E 54 |......". STUDENT|
00000EA0: 20 4C 45 41 52 4E 20 48 49 53 20 50 41 52 54 53 | LEARN HIS PARTS|
00000EB0: 20 4F 46 20 53 50 45 45 43 48 22 00 E8 16 0C 02 | OF SPEECH".....|
00000EC0: 99 22 11 20 42 59 20 54 59 50 49 4E 47 20 49 4E |.". BY TYPING IN|
00000ED0: 20 4E 4F 55 4E 53 2C 20 41 44 56 45 52 42 53 2C | NOUNS, ADVERBS,|
00000EE0: 20 56 45 52 42 53 2C 22 00 01 17 0D 02 99 22 11 | VERBS,"......".|
00000EF0: 20 41 4E 44 20 41 44 4A 45 43 54 49 56 45 53 2E | AND ADJECTIVES.|
00000F00: 22 00 2F 17 12 02 99 22 11 1D 1D C1 46 54 45 52 |"./...."....FTER|
00000F10: 20 54 48 45 59 20 48 41 56 45 20 42 45 45 4E 20 | THEY HAVE BEEN |
00000F20: 54 59 50 45 44 20 49 4E 20 54 48 45 59 20 22 00 |TYPED IN THEY ".|
00000F30: 5F 17 17 02 99 22 11 20 57 49 4C 4C 20 41 50 50 |_....". WILL APP|
00000F40: 45 41 52 20 49 4E 20 41 20 53 54 4F 52 59 2E 20 |EAR IN A STORY. |
00000F50: D4 48 45 4E 20 54 48 45 20 43 48 49 4C 44 22 00 |.HEN THE CHILD".|
00000F60: 8F 17 1C 02 99 22 11 20 4D 41 59 20 52 45 41 44 |.....". MAY READ|
00000F70: 20 57 48 41 54 20 48 45 20 48 41 53 20 54 59 50 | WHAT HE HAS TYP|
00000F80: 45 44 20 49 4E 20 41 20 53 54 4F 52 59 2E 22 00 |ED IN A STORY.".|
00000F90: 98 17 44 02 8D 38 33 35 00 AC 17 4E 02 8B 55 5A |..D..835...N..UZ|
00000FA0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B2 17 57 |.1..UP%:.217...W|
00000FB0: 02 8E 00 D8 17 58 02 8F 20 2A 2A 20 50 52 4F 47 |.....X.. ** PROG|
00000FC0: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000FD0: 20 49 4E 53 54 20 2A 2A 00 E9 17 59 02 99 22 93 | INST **...Y..".|
00000FE0: 22 3A 97 55 54 2C 55 4C 25 00 09 18 5D 02 55 50 |":.UT,UL%...].UP|
00000FF0: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00001000: CD 4F 44 22 3A 8D 38 35 30 00 36 18 62 02 99 22 |.OD":.850.6.b.."|
00001010: 11 20 C9 54 20 53 45 45 4D 53 20 54 48 45 20 4F |. .T SEEMS THE O|
00001020: 4E 4C 59 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |NLY MODIFICATION|
00001030: 20 54 48 41 54 22 00 62 18 67 02 99 22 11 20 4D | THAT".b.g..". M|
00001040: 41 59 20 42 45 20 44 4F 4E 45 20 49 53 20 54 48 |AY BE DONE IS TH|
00001050: 45 20 43 48 41 4E 47 49 4E 47 20 4F 46 20 54 48 |E CHANGING OF TH|
00001060: 45 22 00 91 18 6C 02 99 22 11 20 53 54 4F 52 59 |E"...l..". STORY|
00001070: 2E 20 D4 48 45 20 53 54 4F 52 59 20 43 41 4E 20 |. .HE STORY CAN |
00001080: 42 45 20 46 4F 55 4E 44 20 42 45 54 57 45 45 4E |BE FOUND BETWEEN|
00001090: 22 00 BD 18 71 02 99 22 11 20 54 48 45 20 4C 49 |"...q..". THE LI|
000010A0: 4E 45 53 20 31 32 31 35 2D 31 32 38 35 2E 20 D4 |NES 1215-1285. .|
000010B0: 4F 20 43 48 41 4E 47 45 20 54 48 45 22 00 E8 18 |O CHANGE THE"...|
000010C0: 76 02 99 22 11 20 53 54 4F 52 59 20 59 4F 55 20 |v..". STORY YOU |
000010D0: 4A 55 53 54 20 48 41 56 45 20 54 4F 20 43 48 41 |JUST HAVE TO CHA|
000010E0: 4E 47 45 20 54 48 45 22 00 16 19 7B 02 99 22 11 |NGE THE"...{..".|
000010F0: 20 57 4F 52 44 53 20 49 4E 20 54 48 45 20 51 55 | WORDS IN THE QU|
00001100: 4F 54 45 53 2E 20 C6 55 52 54 48 45 52 4D 4F 52 |OTES. .URTHERMOR|
00001110: 45 20 59 4F 55 22 00 45 19 80 02 99 22 11 20 4D |E YOU".E....". M|
00001120: 55 53 54 20 4B 45 45 50 20 54 48 45 20 53 54 52 |UST KEEP THE STR|
00001130: 49 4E 47 20 46 55 4E 43 54 49 4F 4E 53 20 49 4E |ING FUNCTIONS IN|
00001140: 20 54 48 45 22 00 72 19 85 02 99 22 11 20 53 41 | THE".r....". SA|
00001150: 4D 45 20 50 4F 53 49 54 49 4F 4E 20 41 53 20 54 |ME POSITION AS T|
00001160: 48 45 59 20 41 52 45 20 49 4E 20 4E 4F 57 2E 20 |HEY ARE IN NOW. |
00001170: C1 22 00 A3 19 8A 02 99 22 11 20 53 54 52 49 4E |."......". STRIN|
00001180: 47 20 49 53 20 41 20 4C 45 54 54 45 52 20 57 49 |G IS A LETTER WI|
00001190: 54 48 20 41 20 27 24 27 20 41 46 54 45 52 20 49 |TH A '$' AFTER I|
000011A0: 54 2E 22 00 AC 19 94 02 8D 38 33 35 00 C0 19 B2 |T."......835....|
000011B0: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
000011C0: 00 C6 19 BB 02 8E 00 EB 19 BC 02 8F 20 2A 2A 20 |............ ** |
000011D0: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
000011E0: 20 43 42 4D 34 30 33 32 20 2A 2A 00 21 1A C6 02 | CBM4032 **.!...|
000011F0: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00001200: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00001210: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00001220: 11 00 57 1A D0 02 99 22 20 20 20 20 20 20 4C 4F |..W...." LO|
00001230: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
00001240: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
00001250: 11 11 11 11 11 11 22 00 62 1A DA 02 9E 55 55 AA |......".b....UU.|
00001260: 37 31 00 68 1A E4 02 80 00 8D 1A 1D 03 8F 20 2A |71.h.......... *|
00001270: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00001280: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 D8 1A |AD CBM4032 **...|
00001290: 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 |..."....BEFORE R|
000012A0: 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |UNNING THIS PROG|
000012B0: 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 |RAM ON AN 8032 |
000012C0: 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 |..LOAD CBM 4032 |
000012D0: 50 52 4F 47 52 41 4D 22 00 E4 1A 1F 03 9E 31 30 |PROGRAM"......10|
000012E0: 39 33 3A 80 00 04 1B 20 03 8F 20 2A 2A 20 54 20 |93:.... .. ** T |
000012F0: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00001300: 45 20 2A 2A 00 38 1B 22 03 99 22 93 11 1D 05 22 |E **.8.".."...."|
00001310: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
00001320: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
00001330: 97 35 33 32 38 31 2C 36 00 4E 1B 24 03 81 49 B2 |.53281,6.N.$..I.|
00001340: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 66 |1.38:."...";:..f|
00001350: 1B 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
00001360: A6 92 22 3B 3A 82 00 7E 1B 28 03 81 49 B2 31 A4 |..";:..~.(..I.1.|
00001370: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 96 |37:.".....";:...|
00001380: 1B 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00001390: A6 92 22 3B 3A 82 00 BB 1B 2C 03 99 22 13 11 11 |..";:....,.."...|
000013A0: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013B0: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 DD 1B 2E 03 |........ ......|
000013C0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000013D0: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 FE 1B |..... . . .....|
000013E0: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
000013F0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 1C |....... . .....|
00001400: 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
00001410: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 44 1C 34 |......... ..D.4|
00001420: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001430: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
00001440: 20 45 11 11 00 67 1C 36 03 99 22 1D 1D 1D 1D 1D | E...g.6..".....|
00001450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
00001460: 49 4F 4E 41 4C 11 11 00 86 1C 38 03 99 22 1D 1D |IONAL.....8.."..|
00001470: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
00001480: 46 54 57 41 52 45 00 A1 1C 3A 03 8F 20 2A 2A 20 |FTWARE...:.. ** |
00001490: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
000014A0: 2A 00 D9 1C 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*...;...(UD$,24)|
000014B0: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
000014C0: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
000014D0: 41 49 54 92 22 3A 49 B2 30 00 FB 1C 3C 03 A1 41 |AIT.":I.0...<..A|
000014E0: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
000014F0: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 1F 1D 3E 03 |:.I.250.828...>.|
00001500: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
00001510: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
00001520: 28 1D 40 03 89 33 30 30 00 44 1D 43 03 8F 20 2A |(.@..300.D.C.. *|
00001530: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
00001540: 53 20 2A 2A 00 7F 1D 48 03 97 55 4F 2C 30 3A 99 |S **...H..UO,0:.|
00001550: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00001560: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
00001570: 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |R TO CONTINUE.".|
00001580: 96 1D 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 |..L..UI$:.UI$.."|
00001590: 20 22 A7 38 34 34 00 9C 1D 4E 03 8E 00 BC 1D 52 | ".844...N.....R|
000015A0: 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 |.. ** PAGE DESIG|
000015B0: 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 C8 1D 54 |N ROUTINE **...T|
000015C0: 03 55 50 B2 55 50 AA 31 00 F2 1D 57 03 99 22 93 |.UP.UP.1...W..".|
000015D0: 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 |".(UT$.UP$,21);.|
000015E0: 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 |(UP$.UG$..(UP),1|
000015F0: 38 29 00 21 1E 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8).!.\.." ------|
00001600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001620: 22 00 30 1E 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |".0.`..UH..0.870|
00001630: 00 64 1E 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |.d.a...(UD$,24);|
00001640: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
00001650: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
00001660: 52 4E 3E 22 00 76 1E 66 03 97 55 4F 2C 30 3A 99 |RN>".v.f..UO,0:.|
00001670: 22 13 11 22 3A 8E 00 95 1E 6B 03 8F 20 2A 2A 20 |"..":....k.. ** |
00001680: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
00001690: 52 4B 20 2A 2A 00 CB 1E 70 03 99 C8 28 55 44 24 |RK **...p...(UD$|
000016A0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000016B0: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
000016C0: 53 45 2E 2E 2E 20 20 20 20 20 22 00 D1 1E 75 03 |SE... "...u.|
000016D0: 8E 00 EE 1E 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U|
000016E0: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 39 |P VARIABLES **.9|
000016F0: 1F 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(|
00001700: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
00001710: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
00001720: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001730: 37 3A 55 55 B2 31 30 32 34 00 77 1F 86 03 55 54 |7:UU.1024.w...UT|
00001740: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001750: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001760: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
00001770: 35 30 30 30 33 2C 30 00 BA 1F 87 03 8B C2 28 35 |50003,0.......(5|
00001780: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
00001790: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
000017A0: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
000017B0: 30 34 3A 55 55 B2 32 30 34 38 00 F9 1F 88 03 8B |04:UU.2048......|
000017C0: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
000017D0: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
000017E0: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
000017F0: 32 34 3A 55 4F B2 31 39 38 00 1D 20 89 03 55 44 |24:UO.198.. ..UD|
00001800: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00001810: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 4F 20 |............".O |
00001820: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001850: 72 20 8B 03 55 54 24 B2 22 20 C1 20 D3 D4 CF D2 |r ..UT$." . ....|
00001860: D9 22 3A 8F 20 50 52 4F 47 52 41 4D 20 54 49 54 |.":. PROGRAM TIT|
00001870: 4C 45 00 78 20 8C 03 8E 00 92 20 8E 03 8F 20 2A |LE.x ..... ... *|
00001880: 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 |* SET VARIABLES |
00001890: 2A 2A 00 9B 20 93 03 8D 39 30 30 00 A1 20 94 03 |**.. ...900.. ..|
000018A0: 3A 00 A7 20 95 03 3A 00 C2 20 98 03 8F 20 2A 2A |:.. ..:.. ... **|
000018B0: 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 | CHECK FOR 8032 |
000018C0: 2A 2A 00 E0 20 9D 03 99 22 93 22 3A 99 22 A0 22 |**.. ...".":."."|
000018D0: 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |:. SHIFTED SPACE|
000018E0: 00 F7 20 A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 |.. ....(UB.40)..|
000018F0: 39 36 A7 8D 37 30 30 00 10 21 A3 03 8F 20 2A 2A |96..700..!... **|
00001900: 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A | MEMORY CHECK **|
00001910: 00 24 21 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 |.$!... .(0).2000|
00001920: A7 39 33 37 00 52 21 A5 03 99 22 93 11 11 05 54 |.937.R!..."....T|
00001930: 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 |HIS MACHINE DOES|
00001940: 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 | NOT HAVE ENOUGH|
00001950: 11 22 00 76 21 A6 03 99 22 4D 45 4D 4F 52 59 20 |.".v!..."MEMORY |
00001960: 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 |TO RUN THIS PROG|
00001970: 52 41 4D 20 21 22 00 81 21 A7 03 9E 55 55 AA 37 |RAM !"..!...UU.7|
00001980: 31 00 87 21 A8 03 80 00 A1 21 A9 03 99 22 93 05 |1..!.....!..."..|
00001990: 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 |":..(50003).0.96|
000019A0: 32 00 D0 21 AC 03 8F 20 2A 2A 20 42 41 53 49 43 |2..!... ** BASIC|
000019B0: 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F | 2.0 OR 4.0 O|
000019C0: 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A |R C-64 SETUP **|
000019D0: 00 0E 22 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 |.."...1075,133:.|
000019E0: 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 |1076,144:.1077,2|
000019F0: 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 |34:.1079,4:.1080|
00001A00: 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 44 |,133:.1081,145.D|
00001A10: 22 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 |"...1091,155:.10|
00001A20: 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 |98,133:.1099,144|
00001A30: 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 |:.1100,234:.1103|
00001A40: 2C 31 33 33 00 66 22 AF 03 97 31 31 30 34 2C 31 |,133.f"...1104,1|
00001A50: 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 |45:.1105,234:.10|
00001A60: 38 32 2C 32 33 34 00 7D 22 B1 03 8B C2 28 35 30 |82,234.}"....(50|
00001A70: 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 AC 22 |003)..160.955.."|
00001A80: B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 |...1093,88:.1094|
00001A90: 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 |,228:.1097,85:.1|
00001AA0: 31 30 32 2C 32 32 38 3A 89 39 36 35 00 C1 22 BB |102,228:.965..".|
00001AB0: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 |...(50003)..1.99|
00001AC0: 30 00 F0 22 C0 03 97 31 30 39 33 2C 34 39 3A 97 |0.."...1093,49:.|
00001AD0: 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 |1094,230:.1097,4|
00001AE0: 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 |6:.1102,230:.965|
00001AF0: 00 2A 23 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 |.*#...2099,141:.|
00001B00: 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A |2100,20:.2101,3:|
00001B10: 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 |.2103,8:.2104,14|
00001B20: 31 3A 97 32 31 30 35 2C 32 31 00 66 23 C3 03 97 |1:.2105,21.f#...|
00001B30: 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 |2106,3:.2115,145|
00001B40: 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C |:.2117,52:.2118,|
00001B50: 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 |234:.2121,49:.21|
00001B60: 32 32 2C 31 34 31 00 A0 23 C4 03 97 32 31 32 33 |22,141..#...2123|
00001B70: 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 |,20:.2124,3:.212|
00001B80: 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A |6,234:.2127,141:|
00001B90: 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 |.2128,21:.2129,3|
00001BA0: 00 BE 23 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 |..#...UU.48:. DI|
00001BB0: 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 CF |SABLE STOP KEY..|
00001BC0: 23 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 |#...800:. TITLE.|
00001BD0: DF 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 |.#...300:. MENU.|
00001BE0: 10 24 DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 |.$...".THE PGM W|
00001BF0: 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 |ILL NOT WORK ON |
00001C00: 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 |THIS MACHINE!":.|
00001C10: 00 45 24 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A |.E$...UZ.1..UP%:|
00001C20: 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 |.UP%:UZ.0:. ** P|
00001C30: 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 |ROGRAM STARTS HE|
00001C40: 52 45 20 2A 2A 00 71 24 E9 03 99 22 93 05 22 3B |RE **.q$..."..";|
00001C50: 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |:.:..(50003).0..|
00001C60: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00001C70: 34 00 7E 24 4C 04 97 20 55 54 2C 55 4C 25 00 87 |4.~$L.. UT,UL%..|
00001C80: 24 4D 04 99 22 93 22 00 A2 24 50 04 55 50 B2 30 |$M.."."..$P.UP.0|
00001C90: 3A 55 47 24 B2 22 22 3A 8D 38 35 32 3A 3A 8D 38 |:UG$."":.852::.8|
00001CA0: 36 35 00 CE 24 51 04 99 22 20 D4 48 49 53 20 49 |65..$Q.." .HIS I|
00001CB0: 53 A0 41 A0 CD C1 C4 20 CC C9 C2 2E 20 D9 4F 55 |S.A.... .... .OU|
00001CC0: A0 46 49 4C 4C A0 49 4E A0 54 48 45 A0 22 00 FC |.FILL.IN.THE."..|
00001CD0: 24 56 04 99 22 20 4D 49 53 53 49 4E 47 20 50 41 |$V.." MISSING PA|
00001CE0: 52 54 53 20 4F 46 20 53 50 45 45 43 48 2E 20 C7 |RTS OF SPEECH. .|
00001CF0: 4F 4F 44 20 CC 55 43 4B 20 21 21 22 00 1C 25 5B |OOD .UCK !!"..%[|
00001D00: 04 8F 20 57 52 49 54 54 45 4E 20 42 59 20 50 41 |.. WRITTEN BY PA|
00001D10: 54 20 54 55 42 42 53 20 31 39 37 38 00 22 25 60 |T TUBBS 1978."%`|
00001D20: 04 99 00 3A 25 65 04 8F 20 4D 41 44 20 4C 49 42 |...:%e.. MAD LIB|
00001D30: 20 2D 20 41 20 53 54 4F 52 59 00 75 25 6A 04 99 | - A STORY.u%j..|
00001D40: 22 20 D4 59 50 45 A0 41 4E A0 41 44 4A 45 43 54 |" .YPE.AN.ADJECT|
00001D50: 49 56 45 3A 20 20 20 20 20 20 20 22 3B 3A 55 53 |IVE: ";:US|
00001D60: 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 41 |$."":UL.10:.35:A|
00001D70: 24 B2 55 52 24 00 B0 25 6F 04 99 22 20 D4 59 50 |$.UR$..%o.." .YP|
00001D80: 45 20 54 48 45 A0 4E 41 4D 45 A0 4F 46 A0 41 A0 |E THE.NAME.OF.A.|
00001D90: 47 49 52 4C 3A 20 22 3B 3A 55 53 24 B2 22 22 3A |GIRL: ";:US$."":|
00001DA0: 55 4C B2 31 30 3A 8D 33 35 3A 42 24 B2 55 52 24 |UL.10:.35:B$.UR$|
00001DB0: 00 EB 25 74 04 99 22 20 D4 59 50 45 A0 41 4E A0 |..%t.." .YPE.AN.|
00001DC0: 41 44 4A 45 43 54 49 56 45 3A 20 20 20 20 20 20 |ADJECTIVE: |
00001DD0: 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 31 30 | ";:US$."":UL.10|
00001DE0: 3A 8D 33 35 3A 43 24 B2 55 52 24 00 26 26 79 04 |:.35:C$.UR$.&&y.|
00001DF0: 99 22 20 D4 59 50 45 20 54 48 45 A0 4E 41 4D 45 |." .YPE THE.NAME|
00001E00: A0 4F 46 A0 41 A0 4D 41 4E 3A 20 20 22 3B 3A 55 |.OF.A.MAN: ";:U|
00001E10: 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 3A |S$."":UL.10:.35:|
00001E20: 44 24 B2 55 52 24 00 61 26 7E 04 99 22 20 D4 59 |D$.UR$.a&~.." .Y|
00001E30: 50 45 A0 41 4E A0 41 44 56 45 52 42 3A 20 20 20 |PE.AN.ADVERB: |
00001E40: 20 20 20 20 20 20 20 22 3B 3A 55 53 24 B2 22 22 | ";:US$.""|
00001E50: 3A 55 4C B2 31 30 3A 8D 33 35 3A 45 24 B2 55 52 |:UL.10:.35:E$.UR|
00001E60: 24 00 9C 26 83 04 99 22 20 D4 59 50 45 A0 41 A0 |$..&..." .YPE.A.|
00001E70: 4E 4F 55 4E 3A 20 20 20 20 20 20 20 20 20 20 20 |NOUN: |
00001E80: 20 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 31 | ";:US$."":UL.1|
00001E90: 30 3A 8D 33 35 3A 46 24 B2 55 52 24 00 D7 26 88 |0:.35:F$.UR$..&.|
00001EA0: 04 99 22 20 D4 59 50 45 20 41 A0 4E 4F 55 4E 3A |.." .YPE A.NOUN:|
00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A | ";:|
00001EC0: 55 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 |US$."":UL.10:.35|
00001ED0: 3A 47 24 B2 55 52 24 00 12 27 8D 04 99 22 20 D4 |:G$.UR$..'..." .|
00001EE0: 59 50 45 A0 41 4E A0 41 44 56 45 52 42 3A 20 20 |YPE.AN.ADVERB: |
00001EF0: 20 20 20 20 20 20 20 20 22 3B 3A 55 53 24 B2 22 | ";:US$."|
00001F00: 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 48 24 B2 55 |":UL.10:.35:H$.U|
00001F10: 52 24 00 4D 27 92 04 99 22 20 D4 59 50 45 20 41 |R$.M'..." .YPE A|
00001F20: 4E A0 45 58 43 4C 41 4D 41 54 49 4F 4E 3A 20 20 |N.EXCLAMATION: |
00001F30: 20 20 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 | ";:US$."":UL.|
00001F40: 31 30 3A 8D 33 35 3A 49 24 B2 55 52 24 00 88 27 |10:.35:I$.UR$..'|
00001F50: 97 04 99 22 20 D4 59 50 45 20 41 4E A0 41 44 4A |..." .YPE AN.ADJ|
00001F60: 45 43 54 49 56 45 3A 20 20 20 20 20 20 20 22 3B |ECTIVE: ";|
00001F70: 3A 55 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 |:US$."":UL.10:.3|
00001F80: 35 3A 4A 24 B2 55 52 24 00 C3 27 9C 04 99 22 20 |5:J$.UR$..'..." |
00001F90: D4 59 50 45 20 41 4E A0 41 44 56 45 52 42 3A 20 |.YPE AN.ADVERB: |
00001FA0: 20 20 20 20 20 20 20 20 20 22 3B 3A 55 53 24 B2 | ";:US$.|
00001FB0: 22 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 4B 24 B2 |"":UL.10:.35:K$.|
00001FC0: 55 52 24 00 FE 27 A1 04 99 22 20 D4 59 50 45 20 |UR$..'..." .YPE |
00001FD0: 41 4E A0 41 44 4A 45 43 54 49 56 45 3A 20 20 20 |AN.ADJECTIVE: |
00001FE0: 20 20 20 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C | ";:US$."":UL|
00001FF0: B2 31 30 3A 8D 33 35 3A 4C 24 B2 55 52 24 00 39 |.10:.35:L$.UR$.9|
00002000: 28 A6 04 99 22 20 D4 59 50 45 A0 41 4E A0 41 44 |(..." .YPE.AN.AD|
00002010: 4A 45 43 54 49 56 45 3A 20 20 20 20 20 20 20 22 |JECTIVE: "|
00002020: 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D |;:US$."":UL.10:.|
00002030: 33 35 3A 4D 24 B2 55 52 24 00 74 28 AB 04 99 22 |35:M$.UR$.t(..."|
00002040: 20 D4 59 50 45 A0 41 20 4E 4F 55 4E 3A 20 20 20 | .YPE.A NOUN: |
00002050: 20 20 20 20 20 20 20 20 20 20 22 3B 3A 55 53 24 | ";:US$|
00002060: B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 4E 24 |."":UL.10:.35:N$|
00002070: B2 55 52 24 00 7D 28 B0 04 99 22 93 22 00 86 28 |.UR$.}(..."."..(|
00002080: B4 04 8D 38 35 32 00 91 28 BA 04 99 22 13 11 11 |...852..(..."...|
00002090: 22 00 B9 28 BF 04 99 22 20 20 20 D4 48 45 52 45 |"..(..." .HERE|
000020A0: A0 57 41 53 A0 41 A0 53 55 44 44 45 4E 20 22 41 |.WAS.A.SUDDEN "A|
000020B0: 24 22 20 4B 4E 4F 43 4B 22 00 E0 28 C4 04 99 22 |$" KNOCK"..(..."|
000020C0: 20 4F 4E 20 54 48 45 A0 44 4F 4F 52 2E 20 20 22 | ON THE.DOOR. "|
000020D0: 42 24 22 2C 20 54 55 52 4E 45 44 A0 54 4F A0 22 |B$", TURNED.TO."|
000020E0: 00 07 29 C9 04 99 22 20 48 45 52 20 22 43 24 22 |..)..." HER "C$"|
000020F0: 20 43 4F 55 53 49 4E 2E 20 20 D1 55 49 43 4B 2C | COUSIN. .UICK,|
00002100: 20 22 44 24 22 2C 22 00 27 29 CE 04 99 22 20 53 | "D$",".')..." S|
00002110: 48 45 A0 43 52 49 45 44 20 22 45 24 22 2C 20 48 |HE.CRIED "E$", H|
00002120: 49 44 45 20 49 4E 22 00 40 29 D3 04 99 22 20 54 |IDE IN".@)..." T|
00002130: 48 45 20 22 46 24 22 20 43 4C 4F 53 45 54 2E 22 |HE "F$" CLOSET."|
00002140: 00 69 29 D8 04 99 22 20 C9 54 A0 57 41 53 A0 48 |.i)..." .T.WAS.H|
00002150: 45 52 A0 42 4F 59 A0 46 52 49 45 4E 44 2E 20 20 |ER.BOY.FRIEND. |
00002160: C9 20 46 4F 52 47 4F 54 22 00 8D 29 DD 04 99 22 |. FORGOT"..)..."|
00002170: 20 4D 59 20 22 47 24 22 2C 20 48 45 A0 53 41 49 | MY "G$", HE.SAI|
00002180: 44 20 22 20 48 24 22 2E 20 20 22 49 24 00 B2 29 |D " H$". "I$..)|
00002190: E2 04 99 22 20 48 45 A0 41 44 44 45 44 2E 20 20 |..." HE.ADDED. |
000021A0: D7 48 45 52 45 A0 44 49 44 A0 54 48 49 53 20 22 |.HERE.DID.THIS "|
000021B0: 4A 24 00 D7 29 E7 04 99 22 20 43 49 47 41 52 A0 |J$..)..." CIGAR.|
000021C0: 43 4F 4D 45 A0 46 52 4F 4D 3F 20 D7 48 41 54 A0 |COME.FROM? .HAT.|
000021D0: 43 49 47 41 52 3F 22 00 EF 29 EC 04 99 22 20 D3 |CIGAR?"..)..." .|
000021E0: 48 45 A0 41 53 4B 45 44 20 22 4B 24 22 2E 22 00 |HE.ASKED "K$".".|
000021F0: 14 2A F1 04 99 22 20 C4 4F 4E 27 54 A0 47 49 56 |.*..." .ON'T.GIV|
00002200: 45 A0 4D 45 A0 41 4E 59 A0 4F 46 A0 54 48 41 54 |E.ME.ANY.OF.THAT|
00002210: 20 22 4C 24 00 3A 2A F6 04 99 22 20 53 54 55 46 | "L$.:*..." STUF|
00002220: 46 2C 20 48 45 A0 53 48 4F 55 54 45 44 21 20 20 |F, HE.SHOUTED! |
00002230: CE 45 58 54 20 54 49 4D 45 22 00 61 2A FB 04 99 |.EXT TIME".a*...|
00002240: 22 20 C9 20 43 41 54 43 48 A0 59 4F 55 A0 53 4D |" . CATCH.YOU.SM|
00002250: 4F 4B 49 4E 47 A0 4D 59 A0 43 49 47 41 52 53 2C |OKING.MY.CIGARS,|
00002260: 22 00 88 2A 00 05 99 22 20 C9 27 4D A0 47 4F 49 |"..*..." .'M.GOI|
00002270: 4E 47 A0 54 4F A0 57 48 41 4C 45 A0 54 48 45 20 |NG.TO.WHALE.THE |
00002280: 22 4D 24 22 20 22 4E 24 00 9C 2A 05 05 99 22 20 |"M$" "N$..*..." |
00002290: 4F 55 54 A0 4F 46 A0 59 4F 55 21 22 00 A5 2A 0A |OUT.OF.YOU!"..*.|
000022A0: 05 8D 38 33 35 00 AB 2A 14 05 8E 00 00 00 |..835..*...... |
.......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. A STORY "
...@..".. 2. STUDENT INSTRUCTION
S"...E..".. 3. TEACHER INSTRUCTI
ONS".9.J..".. 4. MODIFICATION OF
PROGRAM".U.O..".. 5. QUIT.."...
T.." -----------------------------------
---"...Y..".. PRESS A NUMBER KEY (
1-5) ";.X.^.UL.1:US$."12345":.35:. INPUT
ROUTINE..._..C(UR$).1.300...`.US$.""...
C..E(UR$).1000,400,500,600,396...H..300.
F.... ** RE-ENABLE STOP KEY AND END **.U
....B(50003)..1.B(50003)..160.B(50003)..
0.399......UU.71:.B(50003).0..53281,6:.5
3280,14......"..":.......875:..W.... **
STUDENT INSTRUCTIONS **......".":.UT,UL%
:.B(50003).0..53281,0:.53280,0.'...UP.0:
UG$."STUDENT INST":.850.W...."... THIS P
ROGRAM IS DESIGNED TO HELP YOU"......".
LEARN YOUR PARTS OF SPEECH, THEREFORE"..
....". YOU MAY FIND THESE DEFINITIONS US
EFUL."......"... NOUN:-PERSON, PLACE, OR
THING."......". ADJECTIVE:-MODIFIES OR
DESCRIBES A NOUN".?...." ADVERB:-MODIFIE
S A VERB OR ADJECTIVE.".M....". VERB:-EX
PRESSES AN ACT OR OCCURANCE.".V.F..835.
.G..850...L..".. NOTE:...TO ADVANCE FROM
ONE QUESTION".W.V..". TO THE NEXT PRESS
THE SPACE BAR"......".......IF AT ANY T
IME YOU WISH TO RETURN".+....". TO THE M
ENU PRESS H RETURN".4....835.H....UZ.1..
UP%:.217.N.....O.... ** TEACHER INSTRUCT
IONS **......".":.UT,UL%:.B(50003).0..53
281,2:.53280,10.....UP.0:UG$."TEACHER IN
ST":.850......".. TO THE BEST OF OU
R KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC.".C...." DOMAIN. IF THI
S IS NOT THE CASE.".`...." PLEASE CONT
ACT:..."......" COMMODORE BUSINESS
MACHINES."......" 3370 PHARMACY
AVE..Q...." AGINCOURT, ONTARIO
"......" CANADA M1W 2K4".....
." (416) 499-4292".)...UP.1:. 8
35:. 850:.M...." ..PROGRAM NAME: A S
TORY..Q...." WRITTEN BY : PAT TUBBS
......." UPGRADED BY : ....
..." .THIS PROGRAM WILL RUN ON ANY..
......" BASIC 2.0 PET COMPUTER..
....." BASIC 4.0 PET COMPUTER..0
...." 8032 CBM COMPUTER..U...."
COMMODORE 64 COMPUTER.C....835:.
850......". THIS PROGRAM IS DESIGNED TO
HELP A"......". STUDENT LEARN HIS PARTS
OF SPEECH"......". BY TYPING IN NOUNS,
ADVERBS, VERBS,"......". AND ADJECTIVES.
"./...."...AFTER THEY HAVE BEEN TYPED IN
THEY "._....". WILL APPEAR IN A STORY.
THEN THE CHILD"......". MAY READ WHAT HE
HAS TYPED IN A STORY."...D..835...N..UZ
.1..UP%:.217...W...X.X.. ** PROGRAM MODI
FICATION INST **...Y..".":.UT,UL%...].UP
.0:UG$."PROGRAM MOD":.850.6.B..". IT SEE
MS THE ONLY MODIFICATION THAT".B.G..". M
AY BE DONE IS THE CHANGING OF THE"...L..
". STORY. THE STORY CAN BE FOUND BETWEEN
"...Q..". THE LINES 1215-1285. TO CHANGE
THE"...V..". STORY YOU JUST HAVE TO CHA
NGE THE"...{..". WORDS IN THE QUOTES. FU
RTHERMORE YOU".E....". MUST KEEP THE STR
ING FUNCTIONS IN THE".R....". SAME POSIT
ION AS THEY ARE IN NOW. A"......". STRIN
G IS A LETTER WITH A '$' AFTER IT.".....
.835......UZ.1..UP%:.217.F.......... **
TO USE 8032 LOAD CBM4032 **.!.F..".....B
EFORE RUNNING THIS PROGRAM ON AN 8032 .
..W.P.." LOAD THE 'CBM 4032' PROGRA
M.............".B.Z..UU.71.H.......... *
* TO USE 8032 LOAD CBM4032 **.X...."....
BEFORE RUNNING THIS PROGRAM ON AN 8032
..LOAD CBM 4032 PROGRAM"......1093:....
.. ** T I T L E P A G E **.8.".."...."
;:.UT,UU%:.B(50003).0..53280,14:.53281,6
.N.$..I.1.38:."...";:..F.&..I.1.22:."...
..";:..~.(..I.1.37:.".....";:....*..I.1.
22:.".....";:....,.."...................
........ ......."................... .
. .....0.."................... . .....
.2..".................... ..D.4..".....
.........C O M M O D O R E...G.6..".....
..........EDUCATIONAL.....8.."..........
......SOFTWARE...:.. ** COMMODORE LOGO *
*.Y.;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0...<..A$:.A$.." ".I.I.1
:.I.250.828...>.T1$."":T2$."":T3$."":T4$
."":I.0.(.@..300.D.C.. ** SPACE BAR PRES
S **..H..UO,0:.H(UD$,24);".......PRESS
SPACE BAR TO CONTINUE."...L..UI$:.UI$.."
".844...N.....R.. ** PAGE DESIGN ROUTIN
E **.H.T.UP.UP.1...W.."."H(UT$.UP$,21);I
(UP$.UG$.D(UP),18).!.\.." --------------
------------------------".0.`..UH..0.870
.D.A..H(UD$,24);H(UP$,7);"HELP - PRESS
H <RETURN>".V.F..UO,0:."..":....K.. **
PLEASE WAIT REMARK **.K.P..H(UD$,24);"
ONE MOMENT PLEASE... ".Q.U.
....... ** SET UP VARIABLES **.9...UX$."
H":.UQ%(1000):UB.32768:U1.196:U2.197:U3.
198:U4.216:UC.167:UU.1024.W...UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:UO.158:.
50003,0......B(50003).0.UB.1024:U1.209:U
2.210:U3.211:U4.214:UC.204:UU.2048......
B(50003).0.UT.53272:UU%.21:UL%.23:UP%.21
39:UM.1024:UO.198.. ..UD$.".............
............".O ..UP$."
".R ..UT$." A STOR
Y":. PROGRAM TITLE.X ..... ... ** SET VA
RIABLES **.. ...900.. ..:.. ..:.B ... **
CHECK FOR 8032 **.. ...".":." ":. SHIFT
ED SPACE.. ...B(UB.40)..96..700..!... **
MEMORY CHECK **.$!... .(0).2000.937.R!.
.."....THIS MACHINE DOES NOT HAVE ENOUGH
.".V!..."MEMORY TO RUN THIS PROGRAM !"..
!...UU.71..!.....!..."..":.B(50003).0.96
2.P!... ** BASIC 2.0 OR 4.0 OR C-64
SETUP **.."...1075,133:.1076,144:.1077,2
34:.1079,4:.1080,133:.1081,145.D"...1091
,155:.1098,133:.1099,144:.1100,234:.1103
,133.F"...1104,145:.1105,234:.1082,234.}
"...B(50003)..160.955.."...1093,88:.1094
,228:.1097,85:.1102,228:.965.A"...B(5000
3)..1.990.."...1093,49:.1094,230:.1097,4
6:.1102,230:.965.*#B..2099,141:.2100,20:
.2101,3:.2103,8:.2104,141:.2105,21.F#C..
2106,3:.2115,145:.2117,52:.2118,234:.212
1,49:.2122,141. #D..2123,20:.2124,3:.212
6,234:.2127,141:.2128,21:.2129,3..#E..UU
.48:. DISABLE STOP KEY.O#J..800:. TITLE.
.#T..300:. MENU..$...".THE PGM WILL NOT
WORK ON THIS MACHINE!":..E$...UZ.1..UP%:
.UP%:UZ.0:. ** PROGRAM STARTS HERE **.Q$
..."..";:.:.B(50003).0..53281,6:.53280,1
4.~$L.. UT,UL%..$M.."."..$P.UP.0:UG$."":
.852::.865.N$Q.." THIS IS A MAD LIB. YOU
FILL IN THE "..$V.." MISSING PARTS OF S
PEECH. GOOD LUCK !!"..%[.. WRITTEN BY PA
T TUBBS 1978."%`...:%E.. MAD LIB - A STO
RY.U%J.." TYPE AN ADJECTIVE: ";:US
$."":UL.10:.35:A$.UR$..%O.." TYPE THE NA
ME OF A GIRL: ";:US$."":UL.10:.35:B$.UR$
..%T.." TYPE AN ADJECTIVE: ";:US$.
"":UL.10:.35:C$.UR$.&&Y.." TYPE THE NAME
OF A MAN: ";:US$."":UL.10:.35:D$.UR$.A
&~.." TYPE AN ADVERB: ";:US$.""
:UL.10:.35:E$.UR$..&..." TYPE A NOUN:
";:US$."":UL.10:.35:F$.UR$.W&.
.." TYPE A NOUN: ";:US$."":U
L.10:.35:G$.UR$..'..." TYPE AN ADVERB:
";:US$."":UL.10:.35:H$.UR$.M'...
" TYPE AN EXCLAMATION: ";:US$."":UL.
10:.35:I$.UR$..'..." TYPE AN ADJECTIVE:
";:US$."":UL.10:.35:J$.UR$.C'..."
TYPE AN ADVERB: ";:US$."":UL.10
:.35:K$.UR$..'..." TYPE AN ADJECTIVE:
";:US$."":UL.10:.35:L$.UR$.9(..." TY
PE AN ADJECTIVE: ";:US$."":UL.10:.
35:M$.UR$.T(..." TYPE A NOUN:
";:US$."":UL.10:.35:N$.UR$.}(..."."..(
...852..(..."..."..(..." THERE WAS A S
UDDEN "A$" KNOCK"..(D.." ON THE DOOR. "
B$", TURNED TO "..)I.." HER "C$" COUSIN.
QUICK, "D$",".')N.." SHE CRIED "E$", H
IDE IN".@)S.." THE "F$" CLOSET.".I)X.."
IT WAS HER BOY FRIEND. I FORGOT"..)..."
MY "G$", HE SAID " H$". "I$..)..." HE
ADDED. WHERE DID THIS "J$.W)..." CIGAR
COME FROM? WHAT CIGAR?"..)..." SHE ASKED
"K$"."..*..." DON'T GIVE ME ANY OF THAT
"L$.:*..." STUFF, HE SHOUTED! NEXT TIM
E".A*..." I CATCH YOU SMOKING MY CIGARS,
"..*..." I'M GOING TO WHALE THE "M$" "N$
..*..." OUT OF YOU!"..*...835..*......
> CLICK IMAGE PREVIEW FOR FULL MODAL