PUB SILLINESS.C2
FILE INFORMATION
FILENAME(S): PUB SILLINESS.C2
FILE TYPE(S): PRG
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-30 21:08:58
APPEARS ON: 1 disk(s)
FILE HASH
c5bbd92c2e42b880669ecdf80f37953363ef7e7135038712ff74d5ee76f27193
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLEN | PUB SILLINESS.C2 | PRG | DuncanTwain | 14 | 4 | 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 B9 0E 3B 01 99 22 11 11 20 20 |----"...;..".. |
000006A0: 20 20 20 20 20 31 2E 20 20 20 50 55 42 2D 53 49 | 1. PUB-SI|
000006B0: 4C 4C 49 4E 45 53 53 20 22 00 E3 0E 40 01 99 22 |LLINESS "...@.."|
000006C0: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 |.. 2. ST|
000006D0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000006E0: 4E 53 22 00 0D 0F 45 01 99 22 11 11 20 20 20 20 |NS"...E..".. |
000006F0: 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 | 3. TEACHER |
00000700: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 29 0F |INSTRUCTIONS".).|
00000710: 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 |O..".. 4. |
00000720: 20 20 51 55 49 54 11 11 22 00 58 0F 54 01 99 22 | QUIT..".X.T.."|
00000730: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 2D 22 00 83 0F 59 01 99 22 11 |-------"...Y..".|
00000760: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A |
00000770: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)|
00000780: 20 22 3B 00 AB 0F 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$|
00000790: B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E |."1234":.35:. IN|
000007A0: 50 55 54 20 52 4F 55 54 49 4E 45 00 BD 0F 5F 01 |PUT ROUTINE..._.|
000007B0: 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 00 C8 0F |..(UR$).1.300...|
000007C0: 60 01 55 53 24 B2 22 22 00 E5 0F 63 01 91 C5 28 |`.US$.""...c...(|
000007D0: 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 |UR$).1000,400,50|
000007E0: 30 2C 33 39 36 00 EE 0F 68 01 89 33 30 30 00 15 |0,396...h..300..|
000007F0: 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C |.... ** RE-ENABL|
00000800: 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 |E STOP KEY AND E|
00000810: 4E 44 20 2A 2A 00 44 10 8C 01 8B C2 28 35 30 30 |ND **.D.....(500|
00000820: 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 |03)..1..(50003).|
00000830: B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 |.160..(50003)..0|
00000840: A7 33 39 39 00 6E 10 8D 01 9E 55 55 AA 37 31 3A |.399.n....UU.71:|
00000850: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000860: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 7A |81,6:.53280,14.z|
00000870: 10 8E 01 99 22 9A 93 22 3A 80 00 85 10 8F 01 8D |...."..":.......|
00000880: 38 37 35 3A 8E 00 A6 10 90 01 8F 20 2A 2A 20 53 |875:....... ** S|
00000890: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
000008A0: 4F 4E 53 20 2A 2A 00 D5 10 95 01 99 22 93 22 3A |ONS **......".":|
000008B0: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
000008C0: 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 |).0..53281,0:.53|
000008D0: 32 38 30 2C 30 00 0B 11 9A 01 55 54 24 B2 22 20 |280,0.....UT$." |
000008E0: D0 D5 C2 2D D3 C9 CC CC C9 CE C5 D3 D3 22 3A 55 |...-.........":U|
000008F0: 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 |P.0:UG$.".TUDENT|
00000900: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 35 11 9C 01 | .NST":.850.5...|
00000910: 99 22 11 11 20 D4 48 49 53 20 50 52 4F 47 52 41 |.".. .HIS PROGRA|
00000920: 4D 20 49 53 20 4C 49 4B 45 20 41 20 4D 41 44 2D |M IS LIKE A MAD-|
00000930: 4C 49 42 2E 22 00 65 11 9F 01 99 22 11 20 D9 4F |LIB.".e....". .O|
00000940: 55 20 48 41 56 45 20 54 4F 20 54 45 4C 4C 20 54 |U HAVE TO TELL T|
00000950: 48 45 20 43 4F 4D 50 55 54 45 52 20 35 20 4E 41 |HE COMPUTER 5 NA|
00000960: 4D 45 53 2C 22 00 95 11 A4 01 99 22 11 20 53 4F |MES,"......". SO|
00000970: 4E 47 53 2C 20 52 4F 4F 4D 53 20 41 4E 44 20 41 |NGS, ROOMS AND A|
00000980: 52 54 49 43 4C 45 53 20 4F 46 20 43 4C 4F 54 48 |RTICLES OF CLOTH|
00000990: 49 4E 47 2E 22 00 C0 11 A5 01 99 22 11 20 C9 46 |ING."......". .F|
000009A0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 54 | YOU WANT TO RET|
000009B0: 55 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 22 |URN TO THE MENU"|
000009C0: 00 EF 11 A6 01 99 22 11 20 41 46 54 45 52 20 59 |......". AFTER Y|
000009D0: 4F 55 20 48 41 56 45 20 52 55 4E 20 54 48 45 20 |OU HAVE RUN THE |
000009E0: 50 52 4F 47 52 41 4D 2C 20 50 52 45 53 53 22 00 |PROGRAM, PRESS".|
000009F0: 04 12 A8 01 99 22 11 20 48 20 46 4F 52 20 48 45 |.....". H FOR HE|
00000A00: 4C 50 2E 22 00 0D 12 E5 01 8D 38 33 35 00 21 12 |LP."......835.!.|
00000A10: EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |...UZ.1..UP%:.21|
00000A20: 37 00 27 12 F3 01 8E 00 48 12 F4 01 8F 20 2A 2A |7.'.....H.... **|
00000A30: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC|
00000A40: 54 49 4F 4E 53 20 2A 2A 00 78 12 F5 01 99 22 93 |TIONS **.x....".|
00000A50: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
00000A60: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 |03).0..53281,2:.|
00000A70: 35 33 32 38 30 2C 31 30 00 AE 12 F6 01 55 54 24 |53280,10.....UT$|
00000A80: B2 22 20 D0 D5 C2 2D D3 C9 CC CC C9 CE C5 D3 D3 |." ...-.........|
00000A90: 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 |":UP.0:UG$.".EAC|
00000AA0: 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 DC |HER .NST":.850..|
00000AB0: 12 F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 |....".. .O |
00000AC0: 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 |THE BEST OF OUR |
00000AD0: 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 05 13 F8 |KNOWLEDGE,."....|
00000AE0: 01 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 |.." THIS PROGR|
00000AF0: 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 |AM IS IN THE PUB|
00000B00: 4C 49 43 11 22 00 31 13 F9 01 99 22 20 20 20 44 |LIC.".1...." D|
00000B10: 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 |OMAIN. .F THIS |
00000B20: 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 |IS NOT THE CASE.|
00000B30: 22 00 4E 13 FA 01 99 22 20 20 20 50 4C 45 41 53 |".N...." PLEAS|
00000B40: 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 78 |E CONTACT:...".x|
00000B50: 13 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F |...." .OMMO|
00000B60: 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 |DORE .USINESS .A|
00000B70: 43 48 49 4E 45 53 11 22 00 9B 13 FC 01 99 22 20 |CHINES."......" |
00000B80: 20 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 | 3370 .H|
00000B90: 41 52 4D 41 43 59 20 C1 56 45 2E 00 BF 13 FD 01 |ARMACY .VE......|
00000BA0: 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E |." .GIN|
00000BB0: 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 |COURT, .NTARIO".|
00000BC0: E1 13 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000BD0: C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 |.ANADA .1. 2.4|
00000BE0: 22 00 01 14 FF 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000BF0: 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 | (416) 499-4292|
00000C00: 22 00 17 14 00 02 55 50 B2 31 3A 8D 20 38 33 35 |".....UP.1:. 835|
00000C10: 3A 8D 20 38 35 30 3A 00 41 14 01 02 99 22 20 20 |:. 850:.A...." |
00000C20: 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D | ...ROGRAM .AM|
00000C30: 45 3A 20 D0 55 42 2D D3 49 4C 4C 49 4E 45 53 53 |E: .UB-.ILLINESS|
00000C40: 11 00 67 14 02 02 99 22 20 20 20 20 20 D7 52 49 |..g...." .RI|
00000C50: 54 54 45 4E 20 C2 59 20 20 3A 20 C4 2E D0 41 52 |TTEN .Y : ...AR|
00000C60: 4B 49 4E 53 4F 4E 11 00 8B 14 03 02 99 22 20 20 |KINSON......." |
00000C70: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00000C80: 20 20 20 20 20 20 20 20 20 20 11 00 B6 14 04 02 | ......|
00000C90: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000CA0: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000CB0: 20 41 4E 59 11 11 00 DD 14 05 02 99 22 20 20 20 | ANY........" |
00000CC0: 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 | ......2.0 |
00000CD0: D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 04 15 |... ............|
00000CE0: 06 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 |..." ...|
00000CF0: C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 |.. 4.0 .........|
00000D00: D4 C5 D2 11 00 26 15 07 02 99 22 20 20 20 20 20 |.....&...." |
00000D10: 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD | 8032 ... ...|
00000D20: D0 D5 D4 C5 D2 11 00 4B 15 08 02 99 22 20 20 20 |.......K...." |
00000D30: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... |
00000D40: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 59 15 09 02 |64 .........Y...|
00000D50: 8D 38 33 35 3A 8D 38 35 30 00 88 15 12 02 99 22 |.835:.850......"|
00000D60: 11 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 |. .HIS PROGRAM I|
00000D70: 53 20 4C 49 4B 45 20 41 20 4D 41 44 2D 4C 49 42 |S LIKE A MAD-LIB|
00000D80: 20 45 58 43 45 50 54 22 00 B7 15 14 02 99 22 11 | EXCEPT"......".|
00000D90: 20 54 48 41 54 20 49 4E 53 54 45 41 44 20 4F 46 | THAT INSTEAD OF|
00000DA0: 20 55 53 49 4E 47 20 4E 4F 55 4E 53 2C 20 56 45 | USING NOUNS, VE|
00000DB0: 52 42 53 20 C5 D4 C3 00 E6 15 16 02 99 22 11 20 |RBS .........". |
00000DC0: 54 48 45 20 53 54 55 44 45 4E 54 53 20 4F 4E 4C |THE STUDENTS ONL|
00000DD0: 59 20 48 41 56 45 20 54 4F 20 45 4E 54 45 52 20 |Y HAVE TO ENTER |
00000DE0: 4E 41 4D 45 53 22 00 15 16 18 02 99 22 11 20 4F |NAMES"......". O|
00000DF0: 46 20 50 45 4F 50 4C 45 20 4F 52 20 52 4F 4F 4D |F PEOPLE OR ROOM|
00000E00: 53 2C 20 C5 D4 C3 2E 20 D4 48 49 53 20 50 52 4F |S, .... .HIS PRO|
00000E10: 47 52 41 4D 22 00 3B 16 1A 02 99 22 11 20 43 41 |GRAM".;....". CA|
00000E20: 4E 20 42 45 20 55 53 45 44 20 42 59 20 47 52 41 |N BE USED BY GRA|
00000E30: 44 45 20 32 20 54 4F 20 35 2E 22 00 44 16 44 02 |DE 2 TO 5.".D.D.|
00000E40: 8D 38 33 35 00 58 16 4E 02 8B 55 5A B2 31 A7 9E |.835.X.N..UZ.1..|
00000E50: 55 50 25 3A 89 32 31 37 00 5E 16 57 02 8E 00 84 |UP%:.217.^.W....|
00000E60: 16 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000E70: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000E80: 54 20 2A 2A 00 95 16 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000E90: 54 2C 55 4C 25 00 B5 16 5D 02 55 50 B2 30 3A 55 |T,UL%...].UP.0:U|
00000EA0: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
00000EB0: 3A 8D 38 35 30 00 BE 16 94 02 8D 38 33 35 00 D2 |:.850......835..|
00000EC0: 16 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000ED0: 31 37 00 D8 16 BB 02 8E 00 FD 16 BC 02 8F 20 2A |17............ *|
00000EE0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00000EF0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 33 17 |AD CBM4032 **.3.|
00000F00: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00000F10: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00000F20: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00000F30: 20 11 11 00 69 17 D0 02 99 22 20 20 20 20 20 20 | ...i...." |
00000F40: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00000F50: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
00000F60: 11 11 11 11 11 11 11 11 22 00 74 17 DA 02 9E 55 |........".t....U|
00000F70: 55 AA 37 31 00 7A 17 E4 02 80 00 9F 17 1D 03 8F |U.71.z..........|
00000F80: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
00000F90: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
00000FA0: EA 17 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 |....."....BEFORE|
00000FB0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00000FC0: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00000FD0: 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 | ..LOAD CBM 403|
00000FE0: 32 20 50 52 4F 47 52 41 4D 22 00 F6 17 1F 03 9E |2 PROGRAM"......|
00000FF0: 31 30 39 33 3A 80 00 16 18 20 03 8F 20 2A 2A 20 |1093:.... .. ** |
00001000: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001010: 47 20 45 20 2A 2A 00 4A 18 22 03 99 22 93 11 1D |G E **.J.".."...|
00001020: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001030: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001040: 34 3A 97 35 33 32 38 31 2C 36 00 60 18 24 03 81 |4:.53281,6.`.$..|
00001050: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
00001060: 00 78 18 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |.x.&..I.1.22:.".|
00001070: 9D 12 A6 92 22 3B 3A 82 00 90 18 28 03 81 49 B2 |....";:....(..I.|
00001080: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
00001090: 00 A8 18 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
000010A0: 9D 12 A6 92 22 3B 3A 82 00 CD 18 2C 03 99 22 13 |....";:....,..".|
000010B0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000010C0: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 EF 18 |.......... ....|
000010D0: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
000010E0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
000010F0: 10 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..0.."..........|
00001100: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001110: 00 2E 19 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...2..".........|
00001120: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 56 |........... ..V|
00001130: 19 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
00001140: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001150: 20 52 20 45 11 11 00 79 19 36 03 99 22 1D 1D 1D | R E...y.6.."...|
00001160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
00001170: 41 54 49 4F 4E 41 4C 11 11 00 98 19 38 03 99 22 |ATIONAL.....8.."|
00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001190: 53 4F 46 54 57 41 52 45 00 B3 19 3A 03 8F 20 2A |SOFTWARE...:.. *|
000011A0: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
000011B0: 20 2A 2A 00 EB 19 3B 03 99 C8 28 55 44 24 2C 32 | **...;...(UD$,2|
000011C0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
000011D0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
000011E0: 20 57 41 49 54 92 22 3A 49 B2 30 00 0D 1A 3C 03 | WAIT.":I.0...<.|
000011F0: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001200: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 31 1A |.1:.I.250.828.1.|
00001210: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001220: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001230: 30 00 3A 1A 40 03 89 33 30 30 00 56 1A 43 03 8F |0.:.@..300.V.C..|
00001240: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001250: 45 53 53 20 2A 2A 00 91 1A 48 03 97 55 4F 2C 30 |ESS **...H..UO,0|
00001260: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |:..(UD$,24);"...|
00001270: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001280: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |BAR TO CONTINUE.|
00001290: 22 00 A8 1A 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |"...L..UI$:.UI$.|
000012A0: B1 22 20 22 A7 38 34 34 00 AE 1A 4E 03 8E 00 CE |." ".844...N....|
000012B0: 1A 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
000012C0: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 DA |IGN ROUTINE **..|
000012D0: 1A 54 03 55 50 B2 55 50 AA 31 00 04 1B 57 03 99 |.T.UP.UP.1...W..|
000012E0: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
000012F0: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
00001300: 2C 31 38 29 00 33 1B 5C 03 99 22 20 2D 2D 2D 2D |,18).3.\.." ----|
00001310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001330: 2D 2D 22 00 42 1B 60 03 8B 55 48 B3 B1 30 A7 38 |--".B.`..UH..0.8|
00001340: 37 30 00 76 1B 61 03 99 C8 28 55 44 24 2C 32 34 |70.v.a...(UD$,24|
00001350: 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 |);.(UP$,7);"HELP|
00001360: 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 | - PRESS H <RE|
00001370: 54 55 52 4E 3E 22 00 88 1B 66 03 97 55 4F 2C 30 |TURN>"...f..UO,0|
00001380: 3A 99 22 13 11 22 3A 8E 00 A7 1B 6B 03 8F 20 2A |:."..":....k.. *|
00001390: 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 |* PLEASE WAIT RE|
000013A0: 4D 41 52 4B 20 2A 2A 00 DD 1B 70 03 99 C8 28 55 |MARK **...p...(U|
000013B0: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
000013C0: 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C | ONE MOMENT PL|
000013D0: 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 E3 1B |EASE... "...|
000013E0: 75 03 8E 00 00 1C 84 03 8F 20 2A 2A 20 53 45 54 |u........ ** SET|
000013F0: 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | UP VARIABLES **|
00001400: 00 4B 1C 85 03 55 58 24 B2 22 48 22 3A 86 55 51 |.K...UX$."H":.UQ|
00001410: 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 |%(1000):UB.32768|
00001420: 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 |:U1.196:U2.197:U|
00001430: 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 |3.198:U4.216:UC.|
00001440: 31 36 37 3A 55 55 B2 31 30 32 34 00 89 1C 86 03 |167:UU.1024.....|
00001450: 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A |UT.59468:UU%.12:|
00001460: 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A |UL%.14:UP%.1146:|
00001470: 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A |UM.32768:UO.158:|
00001480: 97 20 35 30 30 30 33 2C 30 00 CC 1C 87 03 8B C2 |. 50003,0.......|
00001490: 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 |(50003).0.UB.102|
000014A0: 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A |4:U1.209:U2.210:|
000014B0: 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 |U3.211:U4.214:UC|
000014C0: B2 32 30 34 3A 55 55 B2 32 30 34 38 00 0B 1D 88 |.204:UU.2048....|
000014D0: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 |...(50003).0.UT.|
000014E0: 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 |53272:UU%.21:UL%|
000014F0: B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 |.23:UP%.2139:UM.|
00001500: 31 30 32 34 3A 55 4F B2 31 39 38 00 2F 1D 89 03 |1024:UO.198./...|
00001510: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001530: 61 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 |a...UP$." |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001560: 22 00 8A 1D 8B 03 55 54 24 B2 22 20 D0 D5 C2 2D |".....UT$." ...-|
00001570: D3 C9 CC CC C9 CE C5 D3 D3 22 3A 8F 20 50 52 4F |.........":. PRO|
00001580: 47 52 41 4D 20 54 49 54 4C 45 00 90 1D 8C 03 8E |GRAM TITLE......|
00001590: 00 AA 1D 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 |...... ** SET VA|
000015A0: 52 49 41 42 4C 45 53 20 2A 2A 00 B3 1D 93 03 8D |RIABLES **......|
000015B0: 39 30 30 00 B9 1D 94 03 3A 00 BF 1D 95 03 3A 00 |900.....:.....:.|
000015C0: DA 1D 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |..... ** CHECK F|
000015D0: 4F 52 20 38 30 33 32 20 2A 2A 00 F8 1D 9D 03 99 |OR 8032 **......|
000015E0: 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 |".":.".":. SHIFT|
000015F0: 45 44 20 53 50 41 43 45 00 0F 1E A2 03 8B C2 28 |ED SPACE.......(|
00001600: 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 |UB.40)..96..700.|
00001610: 28 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 |(.... ** MEMORY |
00001620: 43 48 45 43 4B 20 2A 2A 00 3C 1E A4 03 8B 20 B8 |CHECK **.<.... .|
00001630: 28 30 29 B1 32 30 30 30 A7 39 33 37 00 6A 1E A5 |(0).2000.937.j..|
00001640: 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 |.."....THIS MACH|
00001650: 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 |INE DOES NOT HAV|
00001660: 45 20 45 4E 4F 55 47 48 11 22 00 8E 1E A6 03 99 |E ENOUGH."......|
00001670: 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 |"MEMORY TO RUN T|
00001680: 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 99 |HIS PROGRAM !"..|
00001690: 1E A7 03 9E 55 55 AA 37 31 00 9F 1E A8 03 80 00 |....UU.71.......|
000016A0: B9 1E A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 |....."..":..(500|
000016B0: 30 33 29 B2 30 A7 39 36 32 00 E8 1E AC 03 8F 20 |03).0.962...... |
000016C0: 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 |** BASIC 2.0 OR|
000016D0: 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 | 4.0 OR C-64 |
000016E0: 53 45 54 55 50 20 2A 2A 00 26 1F AD 03 97 31 30 |SETUP **.&....10|
000016F0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
00001700: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
00001710: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
00001720: 38 31 2C 31 34 35 00 5C 1F AE 03 97 31 30 39 31 |81,145.\....1091|
00001730: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001740: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001750: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 7E 1F AF |34:.1103,133.~..|
00001760: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001770: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 95 |,234:.1082,234..|
00001780: 1F B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 |.....(50003)..16|
00001790: 30 A7 39 35 35 00 C4 1F B6 03 97 31 30 39 33 2C |0.955......1093,|
000017A0: 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 |88:.1094,228:.10|
000017B0: 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A |97,85:.1102,228:|
000017C0: 89 39 36 35 00 D9 1F BB 03 8B C2 28 35 30 30 30 |.965.......(5000|
000017D0: 33 29 B3 B1 31 A7 39 39 30 00 08 20 C0 03 97 31 |3)..1.990.. ...1|
000017E0: 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 |093,49:.1094,230|
000017F0: 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C |:.1097,46:.1102,|
00001800: 32 33 30 3A 89 39 36 35 00 42 20 C2 03 97 32 30 |230:.965.B ...20|
00001810: 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A |99,141:.2100,20:|
00001820: 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A |.2101,3:.2103,8:|
00001830: 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C |.2104,141:.2105,|
00001840: 32 31 00 7E 20 C3 03 97 32 31 30 36 2C 33 3A 97 |21.~ ...2106,3:.|
00001850: 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 |2115,145:.2117,5|
00001860: 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 |2:.2118,234:.212|
00001870: 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 B8 |1,49:.2122,141..|
00001880: 20 C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 | ...2123,20:.212|
00001890: 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 |4,3:.2126,234:.2|
000018A0: 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 |127,141:.2128,21|
000018B0: 3A 97 32 31 32 39 2C 33 00 D6 20 C5 03 9E 55 55 |:.2129,3.. ...UU|
000018C0: AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |.48:. DISABLE ST|
000018D0: 4F 50 20 4B 45 59 00 E7 20 CA 03 8D 38 30 30 3A |OP KEY.. ...800:|
000018E0: 8F 20 54 49 54 4C 45 00 F7 20 D4 03 89 33 30 30 |. TITLE.. ...300|
000018F0: 3A 8F 20 4D 45 4E 55 00 28 21 DE 03 99 22 93 54 |:. MENU.(!...".T|
00001900: 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 |HE PGM WILL NOT |
00001910: 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 |WORK ON THIS MAC|
00001920: 48 49 4E 45 21 22 3A 80 00 5D 21 E8 03 8B 55 5A |HINE!":..]!...UZ|
00001930: B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 |.1..UP%:.UP%:UZ.|
00001940: 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 |0:. ** PROGRAM S|
00001950: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 89 21 |TARTS HERE **..!|
00001960: E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 |..."..";:.:..(50|
00001970: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00001980: 97 35 33 32 38 30 2C 31 34 00 8F 21 1A 04 8C 00 |.53280,14..!....|
00001990: A7 21 BA 04 81 20 58 B2 31 A4 35 3A 87 20 49 24 |.!... X.1.5:. I$|
000019A0: 28 58 29 3A 82 20 58 00 DE 21 C4 04 83 22 C6 49 |(X):. X..!...".I|
000019B0: 52 53 54 20 20 22 2C 22 D3 45 43 4F 4E 44 20 22 |RST ",".ECOND "|
000019C0: 2C 22 D4 48 49 52 44 20 20 22 2C 22 C6 4F 55 52 |,".HIRD ",".OUR|
000019D0: 54 48 20 22 2C 22 C6 49 46 54 48 20 20 22 00 FE |TH ",".IFTH "..|
000019E0: 21 CE 04 81 20 58 B2 31 A4 35 3A 8D 20 31 34 35 |!... X.1.5:. 145|
000019F0: 30 3A 52 24 28 58 29 B2 59 24 3A 82 20 58 00 1A |0:R$(X).Y$:. X..|
00001A00: 22 D8 04 97 20 55 54 2C 55 4C 25 20 20 3A 99 22 |"... UT,UL% :."|
00001A10: 93 11 20 C8 45 4C 4C 4F 2E 22 00 38 22 E2 04 99 |.. .ELLO.".8"...|
00001A20: 3A 99 22 20 CE 41 4D 45 20 46 49 56 45 20 50 45 |:." .AME FIVE PE|
00001A30: 4F 50 4C 45 2E 22 3A 99 00 70 22 EC 04 81 20 58 |OPLE.":..p"... X|
00001A40: B2 31 20 A4 20 35 3A 99 22 1D 1D 1D 1D 1D 22 3B |.1 . 5:.".....";|
00001A50: 49 24 28 58 29 3B 3A 99 22 20 22 3B 3A 8D 35 30 |I$(X);:." ";:.50|
00001A60: 30 30 3A 4E 24 28 58 29 B2 55 52 24 3A 82 20 58 |00:N$(X).UR$:. X|
00001A70: 00 AA 22 F6 04 99 22 93 20 D4 48 41 4E 4B 20 59 |.."...". .HANK Y|
00001A80: 4F 55 2E 22 3A 99 3A 99 22 20 CE 41 4D 45 20 46 |OU.":.:." .AME F|
00001A90: 49 56 45 20 50 41 52 54 53 20 4F 46 20 54 48 45 |IVE PARTS OF THE|
00001AA0: 20 48 4F 55 53 45 2E 22 3A 99 00 E0 22 00 05 81 | HOUSE.":..."...|
00001AB0: 20 58 B2 31 A4 35 3A 99 22 1D 1D 1D 1D 1D 22 3B | X.1.5:.".....";|
00001AC0: 49 24 28 58 29 3B 3A 99 22 20 22 3B 3A 8D 35 30 |I$(X);:." ";:.50|
00001AD0: 30 30 3A 48 24 28 58 29 B2 55 52 24 3A 82 20 58 |00:H$(X).UR$:. X|
00001AE0: 00 19 23 0A 05 99 22 93 20 D4 48 41 4E 4B 20 59 |..#...". .HANK Y|
00001AF0: 4F 55 2E 22 3A 99 3A 99 22 20 CE 41 4D 45 20 46 |OU.":.:." .AME F|
00001B00: 49 56 45 20 50 41 52 54 53 20 4F 46 20 54 48 45 |IVE PARTS OF THE|
00001B10: 20 42 4F 44 59 2E 22 3A 99 00 4F 23 14 05 81 20 | BODY.":..O#... |
00001B20: 58 B2 31 A4 35 3A 99 22 1D 1D 1D 1D 1D 22 3B 49 |X.1.5:.".....";I|
00001B30: 24 28 58 29 3B 3A 99 22 20 22 3B 3A 8D 35 30 30 |$(X);:." ";:.500|
00001B40: 30 3A 42 24 28 58 29 B2 55 52 24 3A 82 20 58 00 |0:B$(X).UR$:. X.|
00001B50: 8B 23 1E 05 99 22 93 20 D4 48 41 4E 4B 20 59 4F |.#...". .HANK YO|
00001B60: 55 2E 22 3A 99 3A 99 22 20 CE 41 4D 45 20 46 49 |U.":.:." .AME FI|
00001B70: 56 45 20 41 52 54 49 43 4C 45 53 20 4F 46 20 43 |VE ARTICLES OF C|
00001B80: 4C 4F 54 48 49 4E 47 2E 22 3A 99 00 C1 23 28 05 |LOTHING.":...#(.|
00001B90: 81 20 58 B2 31 A4 35 3A 99 22 1D 1D 1D 1D 1D 22 |. X.1.5:."....."|
00001BA0: 3B 49 24 28 58 29 3B 3A 99 22 20 22 3B 3A 8D 35 |;I$(X);:." ";:.5|
00001BB0: 30 30 30 3A 43 24 28 58 29 B2 55 52 24 3A 82 20 |000:C$(X).UR$:. |
00001BC0: 58 00 F8 23 32 05 99 22 93 20 D4 48 41 4E 4B 20 |X..#2..". .HANK |
00001BD0: 59 4F 55 2E 22 3A 99 3A 99 22 CE 41 4D 45 20 46 |YOU.":.:.".AME F|
00001BE0: 49 56 45 20 57 45 4C 4C 20 4B 4E 4F 57 4E 20 53 |IVE WELL KNOWN S|
00001BF0: 4F 4E 47 53 2E 22 3A 99 00 2E 24 3C 05 81 20 58 |ONGS.":...$<.. X|
00001C00: B2 31 A4 35 3A 99 22 1D 1D 1D 1D 1D 22 3B 49 24 |.1.5:.".....";I$|
00001C10: 28 58 29 3B 3A 99 22 20 22 3B 3A 8D 35 30 30 30 |(X);:." ";:.5000|
00001C20: 3A 53 24 28 58 29 B2 55 52 24 3A 82 20 58 00 66 |:S$(X).UR$:. X.f|
00001C30: 24 46 05 99 22 93 20 D4 48 41 4E 4B 20 59 4F 55 |$F..". .HANK YOU|
00001C40: 2E 22 3A 99 22 11 20 C9 27 4C 4C 20 54 45 4C 4C |.":.". .'LL TELL|
00001C50: 20 59 4F 55 20 57 48 41 54 27 53 20 47 4F 49 4E | YOU WHAT'S GOIN|
00001C60: 47 20 4F 4E 2E 22 00 74 24 50 05 81 20 58 B2 31 |G ON.".t$P.. X.1|
00001C70: 20 A4 20 35 00 B5 24 64 05 99 22 11 20 22 3B 4E | . 5..$d..". ";N|
00001C80: 24 28 C5 28 CA 28 52 24 28 31 29 2C 58 2C 31 29 |$(.(.(R$(1),X,1)|
00001C90: 29 29 3B 22 20 49 53 20 49 4E 20 54 48 45 20 22 |));" IS IN THE "|
00001CA0: 3B 48 24 28 C5 28 CA 28 52 24 28 32 29 2C 58 2C |;H$(.(.(R$(2),X,|
00001CB0: 31 29 29 29 3B 00 E7 24 6E 05 99 22 20 57 49 54 |1)));..$n.." WIT|
00001CC0: 48 20 48 49 53 20 22 3B 42 24 28 C5 28 CA 28 52 |H HIS ";B$(.(.(R|
00001CD0: 24 28 33 29 2C 58 2C 31 29 29 29 3B 22 20 49 4E |$(3),X,1)));" IN|
00001CE0: 20 48 49 53 20 22 3B 00 28 25 78 05 99 20 43 24 | HIS ";.(%x.. C$|
00001CF0: 28 C5 28 CA 28 52 24 28 34 29 2C 58 2C 31 29 29 |(.(.(R$(4),X,1))|
00001D00: 29 3B 22 2C 20 53 49 4E 47 49 4E 47 20 27 22 3B |);", SINGING '";|
00001D10: 53 24 28 C5 28 CA 28 52 24 28 35 29 2C 58 2C 31 |S$(.(.(R$(5),X,1|
00001D20: 29 29 29 3B 22 27 2E 22 00 30 25 82 05 82 20 58 |)));"'.".0%... X|
00001D30: 00 57 25 96 05 99 22 11 20 CD 41 4B 45 53 20 59 |.W%...". .AKES Y|
00001D40: 4F 55 20 54 48 49 4E 4B 2C 20 44 4F 45 53 4E 27 |OU THINK, DOESN'|
00001D50: 54 20 49 54 2E 22 3A 00 62 25 A0 05 8D 38 33 35 |T IT.":.b%...835|
00001D60: 3A 8E 00 81 25 AA 05 8F 20 52 41 4E 44 4F 4D 49 |:...%... RANDOMI|
00001D70: 53 41 54 49 4F 4E 20 53 55 42 52 4F 55 54 49 4E |SATION SUBROUTIN|
00001D80: 45 00 A1 25 B4 05 58 24 B2 22 31 32 33 34 35 22 |E..%..X$."12345"|
00001D90: 3A 59 24 B2 22 22 3A 5A B2 BB 28 AB BB 28 30 29 |:Y$."":Z..(..(0)|
00001DA0: 29 00 B9 25 BE 05 96 20 A5 52 28 58 29 B2 B5 28 |)..%... .R(X)..(|
00001DB0: 31 AA 58 AC BB 28 31 29 29 00 CC 25 C8 05 81 20 |1.X..(1))..%... |
00001DC0: 59 B2 35 20 A4 20 31 20 A9 20 AB 31 00 FF 25 D2 |Y.5 . 1 . .1..%.|
00001DD0: 05 5A B2 A5 52 28 59 29 3A 59 24 B2 59 24 AA CA |.Z..R(Y):Y$.Y$..|
00001DE0: 28 58 24 2C 5A 2C 31 29 3A 58 24 B2 C8 28 58 24 |(X$,Z,1):X$..(X$|
00001DF0: 2C 5A AB 31 29 AA CA 28 58 24 2C 5A AA 31 29 00 |,Z.1)..(X$,Z.1).|
00001E00: 07 26 DC 05 82 20 59 00 0D 26 E6 05 8E 00 18 26 |.&... Y..&.....&|
00001E10: 88 13 55 53 24 B2 22 22 00 28 26 89 13 55 4C B2 |..US$."".(&..UL.|
00001E20: 31 35 3A 8D 33 35 3A 8E 00 00 00 |15:.35:.... |
.......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. PUB-SILLINESS
"...@..".. 2. STUDENT INSTRUCTIO
NS"...E..".. 3. TEACHER INSTRUCT
IONS".).O..".. 4. QUIT..".X.T.."
--------------------------------------"
...Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUT
INE..._..C(UR$).1.300.H.`.US$.""...C..E(
UR$).1000,400,500,396...H..300...... **
RE-ENABLE STOP KEY AND END **.D....B(500
03)..1.B(50003)..160.B(50003)..0.399.N..
..UU.71:.B(50003).0..53281,6:.53280,14.Z
...."..":.......875:....... ** STUDENT I
NSTRUCTIONS **.U....".":.UT,UL%:.B(50003
).0..53281,0:.53280,0.....UT$." PUB-SILL
INESS":UP.0:UG$."STUDENT INST":.850.5...
.".. THIS PROGRAM IS LIKE A MAD-LIB.".E.
...". YOU HAVE TO TELL THE COMPUTER 5 NA
MES,"......". SONGS, ROOMS AND ARTICLES
OF CLOTHING."......". IF YOU WANT TO RET
URN TO THE MENU"......". AFTER YOU HAVE
RUN THE PROGRAM, PRESS"......". H FOR HE
LP."......835.!....UZ.1..UP%:.217.'.....
H.... ** TEACHER INSTRUCTIONS **.X....".
":.UT,UL%:.B(50003).0..53281,2:.53280,10
.....UT$." PUB-SILLINESS":UP.0:UG$."TEAC
HER INST":.850......".. TO THE BEST
OF OUR KNOWLEDGE,."......" THIS PROGR
AM IS IN THE PUBLIC.".1...." DOMAIN.
IF THIS IS NOT THE CASE.".N...." PLEAS
E CONTACT:...".X...." COMMODORE BUS
INESS MACHINES."......" 3370 PH
ARMACY AVE......." AGINCOURT, O
NTARIO"......" CANADA M1W 2K4
"......" (416) 499-4292".....UP
.1:. 835:. 850:.A...." ..PROGRAM NAM
E: PUB-SILLINESS..G...." WRITTEN BY
: D.PARKINSON......." UPGRADED BY :
......." .THIS PROGRAM WIL
L RUN ON ANY........" BASIC 2.0
PET COMPUTER......." BASIC 4.0 P
ET COMPUTER..&...." 8032 CBM COM
PUTER..K...." COMMODORE 64 COMPU
TER.Y....835:.850......". THIS PROGRAM I
S LIKE A MAD-LIB EXCEPT"......". THAT IN
STEAD OF USING NOUNS, VERBS ETC......".
THE STUDENTS ONLY HAVE TO ENTER NAMES"..
....". OF PEOPLE OR ROOMS, ETC. THIS PRO
GRAM".;....". CAN BE USED BY GRADE 2 TO
5.".D.D..835.X.N..UZ.1..UP%:.217.^.W....
.X.. ** PROGRAM MODIFICATION INST **...Y
..".":.UT,UL%...].UP.0:UG$."PROGRAM MOD"
:.850......835.R....UZ.1..UP%:.217.X....
...... ** TO USE 8032 LOAD CBM4032 **.3.
F..".....BEFORE RUNNING THIS PROGRAM ON
AN 8032 ...I.P.." LOAD THE 'CBM 40
32' PROGRAM.............".T.Z..UU.71.Z..
........ ** TO USE 8032 LOAD CBM4032 **.
....."....BEFORE RUNNING THIS PROGRAM ON
AN 8032 ..LOAD CBM 4032 PROGRAM"......
1093:.... .. ** T I T L E P A G E **.J
.".."....";:.UT,UU%:.B(50003).0..53280,1
4:.53281,6.`.$..I.1.38:."...";:..X.&..I.
1.22:.".....";:....(..I.1.37:.".....";:.
...*..I.1.22:.".....";:..M.,..".........
.................. ......."............
....... . . .....0.."..................
. . ......2..".................... ..V
.4.."..............C O M M O D O R E...Y
.6.."...............EDUCATIONAL.....8.."
................SOFTWARE...:.. ** COMMOD
ORE LOGO **...;..H(UD$,24);"..........PR
ESS SPACE BAR OR WAIT.":I.0...<..A$:.A$.
." ".I.I.1:.I.250.828.1.>.T1$."":T2$."":
T3$."":T4$."":I.0.:.@..300.V.C.. ** SPAC
E BAR PRESS **...H..UO,0:.H(UD$,24);"...
....PRESS SPACE BAR TO CONTINUE."...L..U
I$:.UI$.." ".844...N...N.R.. ** PAGE DES
IGN ROUTINE **.Z.T.UP.UP.1...W.."."H(UT$
.UP$,21);I(UP$.UG$.D(UP),18).3.\.." ----
----------------------------------".B.`.
.UH..0.870.V.A..H(UD$,24);H(UP$,7);"HELP
- PRESS H <RETURN>"...F..UO,0:."..":.
...K.. ** PLEASE WAIT REMARK **...P..H(U
D$,24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **
.K...UX$."H":.UQ%(1000):UB.32768:U1.196:
U2.197:U3.198:U4.216:UC.167:UU.1024.....
UT.59468:UU%.12:UL%.14:UP%.1146:UM.32768
:UO.158:. 50003,0.L....B(50003).0.UB.102
4: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./...UD$."...
......................".A...UP$."
".....UT
$." PUB-SILLINESS":. PROGRAM TITLE......
...... ** SET VARIABLES **......900.....
:.....:.Z.... ** CHECK FOR 8032 **......
".":." ":. SHIFTED SPACE......B(UB.40)..
96..700.(.... ** MEMORY CHECK **.<.... .
(0).2000.937.J...."....THIS MACHINE DOES
NOT HAVE ENOUGH."......"MEMORY TO RUN T
HIS PROGRAM !"......UU.71............"..
":.B(50003).0.962...... ** BASIC 2.0 OR
4.0 OR C-64 SETUP **.&....1075,133:.
1076,144:.1077,234:.1079,4:.1080,133:.10
81,145.\....1091,155:.1098,133:.1099,144
:.1100,234:.1103,133.~....1104,145:.1105
,234:.1082,234......B(50003)..160.955.D.
...1093,88:.1094,228:.1097,85:.1102,228:
.965.Y....B(50003)..1.990.. ...1093,49:.
1094,230:.1097,46:.1102,230:.965.B B..20
99,141:.2100,20:.2101,3:.2103,8:.2104,14
1:.2105,21.~ C..2106,3:.2115,145:.2117,5
2:.2118,234:.2121,49:.2122,141.. D..2123
,20:.2124,3:.2126,234:.2127,141:.2128,21
:.2129,3.V E..UU.48:. DISABLE STOP KEY..
J..800:. TITLE.. T..300:. MENU.(!...".T
HE PGM WILL NOT WORK ON THIS MACHINE!":.
.]!...UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM S
TARTS HERE **..!..."..";:.:.B(50003).0..
53281,6:.53280,14..!.....!... X.1.5:. I$
(X):. X..!D.."FIRST ","SECOND ","THIRD
","FOURTH ","FIFTH "..!N.. X.1.5:. 145
0:R$(X).Y$:. X.."X.. UT,UL% :.".. HELLO
.".8"...:." NAME FIVE PEOPLE.":..P"... X
.1 . 5:.".....";I$(X);:." ";:.5000:N$(X)
.UR$:. X.."...". THANK YOU.":.:." NAME F
IVE PARTS OF THE HOUSE.":..."... X.1.5:.
".....";I$(X);:." ";:.5000:H$(X).UR$:. X
..#...". THANK YOU.":.:." NAME FIVE PART
S OF THE BODY.":..O#... X.1.5:.".....";I
$(X);:." ";:.5000:B$(X).UR$:. X..#...".
THANK YOU.":.:." NAME FIVE ARTICLES OF C
LOTHING.":..A#(.. X.1.5:.".....";I$(X);:
." ";:.5000:C$(X).UR$:. X..#2..". THANK
YOU.":.:."NAME FIVE WELL KNOWN SONGS.":.
..$<.. X.1.5:.".....";I$(X);:." ";:.5000
:S$(X).UR$:. X.F$F..". THANK YOU.":.". I
'LL TELL YOU WHAT'S GOING ON.".T$P.. X.1
. 5..$D..". ";N$(E(J(R$(1),X,1)));" IS
IN THE ";H$(E(J(R$(2),X,1)));..$N.." WIT
H HIS ";B$(E(J(R$(3),X,1)));" IN HIS ";.
(%X.. C$(E(J(R$(4),X,1)));", SINGING '";
S$(E(J(R$(5),X,1)));"'.".0%... X.W%...".
MAKES YOU THINK, DOESN'T IT.":.B% ..835
:...%... RANDOMISATION SUBROUTINE..%..X$
."12345":Y$."":Z..(..(0))..%... .R(X)..(
1.X..(1)).L%H.. Y.5 . 1 . .1..%R.Z..R(Y)
:Y$.Y$.J(X$,Z,1):X$.H(X$,Z.1).J(X$,Z.1).
.&... Y..&.....&..US$."".(&..UL.15:.35:.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL