MEDIAL VOWELS
FILE INFORMATION
FILENAME(S): MEDIAL VOWELS
FILE TYPE(S): PRG
FILE SIZE: 8.7K
FIRST SEEN: 2025-11-30 17:31:34
APPEARS ON: 1 disk(s)
FILE HASH
4267758059d356e119d858a3b9dc6d1abcb41a668df9ca23f0956fbf564a8a9e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERRY TO BOB | MEDIAL VOWELS | PRG | UK CD | 33 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 F2 |UTINE **.....:..|
000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B|
000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH|
000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG|
00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.|
00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA|
00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..|
00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..|
00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO|
00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... |
00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO|
00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.|
00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E|
000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA|
000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W|
000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O|
000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... |
000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..|
000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S|
00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..|
00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.|
00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.|
00000230: 38 30 00 4E 0A 2B 00 8B 20 55 53 24 B3 B1 22 22 |80.N.+.. US$..""|
00000240: 20 A7 20 55 53 24 B2 55 53 24 AA 55 58 24 00 61 | . US$.US$.UX$.a|
00000250: 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C |.-.." ..";:.UC,|
00000260: 30 00 75 0A 32 00 A1 55 49 24 3A 8B 55 49 24 B2 |0.u.2..UI$:.UI$.|
00000270: 22 22 A7 35 30 00 9F 0A 37 00 8B 55 49 24 B2 C7 |"".50...7..UI$..|
00000280: 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 |(13)..(UR$)..1..|
00000290: 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 |UC,1:." .";:.85.|
000002A0: B2 0A 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 |..<..UI$..(20).1|
000002B0: 30 35 00 C6 0A 3E 00 8B 20 C3 28 55 52 24 29 B2 |05...>.. .(UR$).|
000002C0: B1 55 4C A7 35 30 00 EB 0A 41 00 8D 31 32 30 3A |.UL.50...A..120:|
000002D0: 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |. CHECK FOR VALI|
000002E0: 44 20 43 48 41 52 41 43 54 45 52 00 FB 0A 46 00 |D CHARACTER...F.|
000002F0: 55 52 24 B2 55 52 24 AA 55 49 24 00 05 0B 4B 00 |UR$.UR$.UI$...K.|
00000300: 99 55 49 24 3B 00 0D 0B 50 00 89 35 30 00 32 0B |.UI$;...P..50.2.|
00000310: 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F |U.. +++ CHECK FO|
00000320: 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B |R HELP REQUEST +|
00000330: 2B 2B 00 5A 0B 5A 00 8B 55 52 24 B2 55 58 24 A7 |++.Z.Z..UR$.UX$.|
00000340: 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 |195:. EXIT TO HE|
00000350: 4C 50 20 52 4F 55 54 49 4E 45 00 69 0B 5F 00 8B |LP ROUTINE.i._..|
00000360: 55 46 B2 31 A7 8D 32 34 30 00 76 0B 64 00 55 46 |UF.1..240.v.d.UF|
00000370: B2 30 3A 99 3A 8E 00 8F 0B 66 00 8F 20 2B 2B 20 |.0:.:....f.. ++ |
00000380: 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 |CHECK DELETE ++.|
00000390: A0 0B 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 |..i...(UR$).1.50|
000003A0: 00 B8 0B 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 |...n.UR$..(UR$,.|
000003B0: 28 55 52 24 29 AB 31 29 00 CA 0B 73 00 99 22 9D |(UR$).1)...s..".|
000003C0: 20 20 9D 9D 22 3B 3A 89 35 30 00 F1 0B 78 00 8F | ..";:.50...x..|
000003D0: 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 | ++ CHECK FOR VA|
000003E0: 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 2B |LID CHARACTERS +|
000003F0: 2B 00 03 0C 7D 00 8B C3 28 55 53 24 29 B2 30 A7 |+...}...(US$).0.|
00000400: 31 35 30 00 13 0C 7F 00 55 53 24 B2 55 53 24 AA |150.....US$.US$.|
00000410: 55 58 24 00 24 0C 82 00 81 55 53 B2 31 A4 C3 28 |UX$.$....US.1..(|
00000420: 55 53 24 29 00 3B 0C 87 00 8B 55 49 24 B2 CA 28 |US$).;....UI$..(|
00000430: 55 53 24 2C 55 53 2C 31 29 A7 8E 00 41 0C 8C 00 |US$,US,1)...A...|
00000440: 82 00 4E 0C 91 00 55 49 24 B2 22 22 3A 8E 00 69 |..N...UI$."":..i|
00000450: 0C 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 |.... ** STANDARD|
00000460: 20 49 4E 50 55 54 20 2A 2A 00 7A 0C 98 00 8B C6 | INPUT **.z.....|
00000470: 28 55 49 24 29 B2 34 36 A7 8E 00 8B 0C 9B 00 8B |(UI$).46........|
00000480: 55 49 24 B2 C7 28 33 32 29 A7 8E 00 A8 0C A0 00 |UI$..(32).......|
00000490: 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 |..(UI$).48..(UI$|
000004A0: 29 B1 35 37 A7 31 37 30 00 AE 0C A5 00 8E 00 CB |).57.170........|
000004B0: 0C AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 |.....(UI$).65..(|
000004C0: 55 49 24 29 B1 39 30 A7 31 38 30 00 D1 0C AF 00 |UI$).90.180.....|
000004D0: 8E 00 F5 0C B4 00 8B C6 28 55 49 24 29 B3 31 39 |........(UI$).19|
000004E0: 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 |3..(UI$).218.UI$|
000004F0: B2 22 22 3A 8E 00 18 0D B9 00 8B C2 28 55 54 29 |."":........(UT)|
00000500: B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 |.UU%.UI$..(.(UI$|
00000510: 29 AB 31 32 38 29 3A 8E 00 1E 0D BB 00 8E 00 2B |).128):........+|
00000520: 0D BE 00 55 49 24 B2 22 22 3A 8E 00 50 0D C3 00 |...UI$."":..P...|
00000530: 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 |UF.1:. +++ HELP |
00000540: 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B |ROUTINE EXIT +++|
00000550: 00 59 0D C5 00 8D 32 35 30 00 62 0D C8 00 8D 32 |.Y....250.b....2|
00000560: 34 35 00 81 0D CD 00 81 55 51 B2 55 42 A4 28 55 |45......UQ.UB.(U|
00000570: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 |2%.256.U1%.U3%.2|
00000580: 29 00 9D 0D D2 00 55 51 25 28 55 51 AB 55 42 29 |).....UQ%(UQ.UB)|
00000590: B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 B0 0D |..(UQ):.:."."...|
000005A0: D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 |..UZ.1:UV%..(UT)|
000005B0: 00 B9 0D D8 00 89 33 30 30 00 DE 0D D9 00 55 5A |......300.....UZ|
000005C0: B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 |.0:US$.UJ$:UG$.U|
000005D0: 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 15 |K$:UP.UJ:UL.UK..|
000005E0: 0E DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |.....(50003).0..|
000005F0: 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 |53281,1:.".";:.5|
00000600: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000610: 3A 89 32 32 30 00 1F 0E DB 00 99 22 93 22 3B 00 |:.220......".";.|
00000620: 4E 0E DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C |N...UT$.UL$:.UT,|
00000630: 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC |UV%:.UQ.UB.(U2%.|
00000640: 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 63 |256.U1%.U3%.3).c|
00000650: 0E E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
00000660: 29 3A 82 00 6F 0E E6 00 97 55 31 2C 55 31 25 00 |):..o....U1,U1%.|
00000670: 7B 0E E8 00 97 55 32 2C 55 32 25 00 87 0E E9 00 |{....U2,U2%.....|
00000680: 97 55 34 2C 55 34 25 00 95 0E EA 00 97 55 33 2C |.U4,U4%......U3,|
00000690: 55 33 25 AB 31 00 9D 0E EB 00 89 33 35 00 CF 0E |U3%.1......35...|
000006A0: F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA |..UD%.((U2%.256.|
000006B0: 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A |U1%.U3%).UB).40:|
000006C0: 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 |..(UD$,UD%.1):..|
000006D0: 0A 0F F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 |......(UD$,24);"|
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D | . HELP COM|
00000700: 49 4E 47 20 92 20 20 22 3A 8E 00 36 0F FA 00 55 |ING . ":..6...U|
00000710: 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 |1%..(U1):U2%..(U|
00000720: 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 |2):U3%..(U3):U4%|
00000730: B2 C2 28 55 34 29 00 5E 0F FB 00 55 4A 24 B2 55 |..(U4).^...UJ$.U|
00000740: 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 |S$:UK$.UG$:UL$.U|
00000750: 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 64 |T$:UJ.UP:UK.UL.d|
00000760: 0F FF 00 8E 00 75 0F 2C 01 8F 20 2A 2A 20 4D 45 |.....u.,.. ** ME|
00000770: 4E 55 20 2A 2A 00 7B 0F 2D 01 3A 00 AA 0F 2E 01 |NU **.{.-.:.....|
00000780: 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |.".":.UT,UU%:..(|
00000790: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000007A0: 39 3A 97 35 33 32 38 30 2C 38 00 B0 0F 2F 01 3A |9:.53280,8.../.:|
000007B0: 00 CD 0F 31 01 99 22 13 20 20 20 20 20 20 20 20 |...1..". |
000007C0: 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 FC 0F | MENU"...|
000007D0: 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6.." -----------|
000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 25 10 3B |-----------".%.;|
00000800: 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 |..".. 1. |
00000810: 20 42 45 47 49 4E 20 4D 45 44 49 41 4C 20 56 4F | BEGIN MEDIAL VO|
00000820: 57 45 4C 53 22 00 4F 10 40 01 99 22 11 11 20 20 |WELS".O.@..".. |
00000830: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
00000840: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
00000850: 79 10 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |y.E..".. 3|
00000860: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
00000870: 52 55 43 54 49 4F 4E 53 22 00 A6 10 4A 01 99 22 |RUCTIONS"...J.."|
00000880: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F |.. 4. MO|
00000890: 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 |DIFICATION OF PR|
000008A0: 4F 47 52 41 4D 22 00 C2 10 4F 01 99 22 11 11 20 |OGRAM"...O..".. |
000008B0: 20 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 | 5. QUIT.|
000008C0: 11 22 00 F1 10 54 01 99 22 20 2D 2D 2D 2D 2D 2D |."...T.." ------|
000008D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008F0: 22 00 1C 11 59 01 99 22 11 11 20 20 20 20 20 20 |"...Y..".. |
00000900: 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 | PRESS A NUMBER |
00000910: 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 45 11 5E |KEY (1-5) ";.E.^|
00000920: 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 |.UL.1:US$."12345|
00000930: 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F |":.35:. INPUT RO|
00000940: 55 54 49 4E 45 00 66 11 63 01 91 C5 28 55 52 24 |UTINE.f.c...(UR$|
00000950: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 |).1000,400,500,6|
00000960: 30 30 2C 33 39 36 00 6F 11 68 01 89 33 30 30 00 |00,396.o.h..300.|
00000970: 96 11 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |..... ** RE-ENAB|
00000980: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000990: 45 4E 44 20 2A 2A 00 C5 11 8C 01 8B C2 28 35 30 |END **.......(50|
000009A0: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
000009B0: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
000009C0: 30 A7 33 39 39 00 EF 11 8D 01 9E 55 55 AA 37 31 |0.399......UU.71|
000009D0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000009E0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
000009F0: FB 11 8E 01 99 22 9A 93 22 3A 80 00 06 12 8F 01 |....."..":......|
00000A00: 8D 38 37 35 3A 8E 00 27 12 90 01 8F 20 2A 2A 20 |.875:..'.... ** |
00000A10: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
00000A20: 49 4F 4E 53 20 2A 2A 00 56 12 95 01 99 22 93 22 |IONS **.V...."."|
00000A30: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000A40: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
00000A50: 33 32 38 30 2C 30 00 7D 12 9A 01 55 48 B2 31 3A |3280,0.}...UH.1:|
00000A60: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
00000A70: 54 20 C9 4E 53 54 2E 22 3A 8D 38 35 30 00 AA 12 |T .NST.":.850...|
00000A80: 9B 01 99 22 11 11 20 20 20 20 C9 20 57 49 4C 4C |...".. . WILL|
00000A90: 20 53 48 4F 57 20 59 4F 55 20 41 20 53 45 4E 54 | SHOW YOU A SENT|
00000AA0: 45 4E 43 45 20 57 49 54 48 22 00 D6 12 9C 01 99 |ENCE WITH"......|
00000AB0: 22 20 20 54 48 52 45 45 20 44 49 46 46 45 52 45 |" THREE DIFFERE|
00000AC0: 4E 54 20 41 4E 53 57 45 52 53 2E 20 20 D9 4F 55 |NT ANSWERS. .OU|
00000AD0: 20 4D 55 53 54 22 00 05 13 9D 01 99 22 20 20 52 | MUST"......" R|
00000AE0: 45 41 44 20 54 48 45 20 53 45 4E 54 45 4E 43 45 |EAD THE SENTENCE|
00000AF0: 20 41 4E 44 20 43 48 4F 4F 53 45 20 54 48 45 20 | AND CHOOSE THE |
00000B00: 43 4F 52 2D 22 00 33 13 9E 01 99 22 20 20 52 45 |COR-".3...." RE|
00000B10: 43 54 20 57 4F 52 44 2E 20 20 C9 46 20 59 4F 55 |CT WORD. .F YOU|
00000B20: 20 47 45 54 20 49 54 20 57 52 4F 4E 47 20 4A 55 | GET IT WRONG JU|
00000B30: 53 54 22 00 47 13 9F 01 99 22 20 20 54 52 59 20 |ST".G...." TRY |
00000B40: 41 47 41 49 4E 2E 22 00 77 13 CC 01 99 22 11 11 |AGAIN.".w...."..|
00000B50: 20 CE CF D4 C5 3A 11 11 9D 9D D4 4F 20 41 44 56 | ....:.....O ADV|
00000B60: 41 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 |ANCE FROM ONE QU|
00000B70: 45 53 54 49 4F 4E 22 00 A2 13 D6 01 99 22 20 20 |ESTION"......" |
00000B80: 20 54 4F 20 54 48 45 20 4E 45 58 54 20 50 52 45 | TO THE NEXT PRE|
00000B90: 53 53 20 54 48 45 20 53 50 41 43 45 20 42 41 52 |SS THE SPACE BAR|
00000BA0: 2E 22 00 D1 13 DB 01 99 22 11 11 20 20 20 20 C9 |."......".. .|
00000BB0: 46 20 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F |F AT ANY TIME YO|
00000BC0: 55 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E |U WISH TO RETURN|
00000BD0: 22 00 F6 13 E0 01 99 22 20 20 20 54 4F 20 54 48 |"......" TO TH|
00000BE0: 45 20 4D 45 4E 55 20 50 52 45 53 53 20 48 20 52 |E MENU PRESS H R|
00000BF0: 45 54 55 52 4E 22 00 FF 13 E5 01 8D 38 33 35 00 |ETURN"......835.|
00000C00: 13 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |.....UZ.1..UP%:.|
00000C10: 32 31 37 00 19 14 F3 01 8E 00 3A 14 F4 01 8F 20 |217.......:.... |
00000C20: 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 |** TEACHER INSTR|
00000C30: 55 43 54 49 4F 4E 53 20 2A 2A 00 6A 14 F5 01 99 |UCTIONS **.j....|
00000C40: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
00000C50: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 |0003).0..53281,2|
00000C60: 3A 97 35 33 32 38 30 2C 31 30 00 8C 14 F6 01 55 |:.53280,10.....U|
00000C70: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
00000C80: 20 C9 4E 53 54 2E 22 3A 8D 38 35 30 00 BA 14 F7 | .NST.":.850....|
00000C90: 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 |..".. .O TH|
00000CA0: 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E |E BEST OF OUR KN|
00000CB0: 4F 57 4C 45 44 47 45 2C 11 22 00 E3 14 F8 01 99 |OWLEDGE,."......|
00000CC0: 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D |" THIS PROGRAM|
00000CD0: 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 | IS IN THE PUBLI|
00000CE0: 43 11 22 00 0F 15 F9 01 99 22 20 20 20 44 4F 4D |C."......" DOM|
00000CF0: 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 |AIN. .F THIS IS|
00000D00: 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 | NOT THE CASE.".|
00000D10: 2C 15 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 |,...." PLEASE |
00000D20: 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 56 15 FB |CONTACT:...".V..|
00000D30: 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F |.." .OMMODO|
00000D40: 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 |RE .USINESS .ACH|
00000D50: 49 4E 45 53 11 22 00 79 15 FC 01 99 22 20 20 20 |INES.".y...." |
00000D60: 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 | 3370 .HAR|
00000D70: 4D 41 43 59 20 C1 56 45 2E 00 9D 15 FD 01 99 22 |MACY .VE......."|
00000D80: 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F | .GINCO|
00000D90: 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 BF 15 |URT, .NTARIO"...|
00000DA0: FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 |..." .A|
00000DB0: 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 |NADA .1. 2.4".|
00000DC0: DF 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000DD0: 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 |(416) 499-4292".|
00000DE0: F5 15 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D |....UP.1:. 835:.|
00000DF0: 20 38 35 30 3A 00 1F 16 01 02 99 22 20 20 20 20 | 850:......" |
00000E00: 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A | ...ROGRAM .AME:|
00000E10: 20 CD 45 44 49 41 4C 20 D6 4F 57 45 4C 53 11 00 | .EDIAL .OWELS..|
00000E20: 45 16 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 |E...." .RITT|
00000E30: 45 4E 20 C2 59 20 20 3A 20 C2 52 55 43 45 20 D2 |EN .Y : .RUCE .|
00000E40: 4F 55 53 45 11 00 67 16 03 02 99 22 20 20 20 20 |OUSE..g...." |
00000E50: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 C8 | .PGRADED .Y : .|
00000E60: 49 4E 20 CA 41 4E 47 00 8C 16 04 02 99 22 20 20 |IN .ANG......" |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E80: 20 CA 49 4D 20 C2 4F 52 49 54 5A 22 00 B1 16 05 | .IM .ORITZ"....|
00000E90: 02 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000EA0: 20 20 20 20 20 20 C3 41 52 59 20 CC 45 57 49 53 | .ARY .EWIS|
00000EB0: 22 00 DC 16 08 02 99 22 20 20 20 20 20 11 D4 48 |"......" ..H|
00000EC0: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000ED0: 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 FC 16 0B |RUN ON ANY......|
00000EE0: 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 |.." ... |
00000EF0: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 21 17 0C |64 ..........!..|
00000F00: 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD |.." ....|
00000F10: CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 |..... 64 .......|
00000F20: D2 00 2A 17 0D 02 8D 38 33 35 00 4E 17 0E 02 8F |..*....835.N....|
00000F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 6E |--------------.n|
00000F50: 17 0F 02 8F 22 20 20 20 20 20 D5 50 47 52 41 44 |...." .PGRAD|
00000F60: 45 44 20 46 4F 52 20 C3 36 34 20 42 59 3A 00 8B |ED FOR .64 BY:..|
00000F70: 17 10 02 8F 22 20 20 20 20 20 20 20 20 20 CC 59 |...." .Y|
00000F80: 4E 44 41 20 C2 4F 4E 41 4E 4E 4F 00 AF 17 11 02 |NDA .ONANNO.....|
00000F90: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
00000FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000FB0: C3 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000FC0: 32 31 37 00 C9 17 57 02 8E 00 EF 17 58 02 8F 20 |217...W.....X.. |
00000FD0: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000FE0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000FF0: 00 18 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00001000: 00 21 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |.!.].UP.0:UG$.".|
00001010: 52 4F 47 52 41 4D 20 CD 4F 44 2E 22 3A 8D 38 35 |ROGRAM .OD.":.85|
00001020: 30 00 4C 18 5E 02 99 22 11 11 20 20 D4 48 49 53 |0.L.^..".. .HIS|
00001030: 20 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 45 20 | PROGRAM CAN BE |
00001040: 4D 4F 44 49 46 49 45 44 20 42 59 22 00 7B 18 60 |MODIFIED BY".{.`|
00001050: 02 99 22 11 20 43 48 41 4E 47 49 4E 47 20 4F 52 |..". CHANGING OR|
00001060: 20 41 44 44 49 4E 47 20 54 4F 20 54 48 45 20 44 | ADDING TO THE D|
00001070: 41 54 41 20 53 54 41 54 45 2D 22 00 9D 18 62 02 |ATA STATE-"...b.|
00001080: 99 22 11 20 4D 45 4E 54 53 20 49 4E 20 4C 49 4E |.". MENTS IN LIN|
00001090: 45 53 20 31 35 36 30 2D 31 36 36 30 2E 00 CE 18 |ES 1560-1660....|
000010A0: 64 02 99 22 11 11 11 11 20 20 C9 CD D0 CF D2 D4 |d..".... ......|
000010B0: C1 CE D4 3A 20 20 20 D4 48 45 20 4C 41 53 54 20 |...: .HE LAST |
000010C0: 44 41 54 41 20 53 54 41 54 4D 45 4E 54 22 00 F9 |DATA STATMENT"..|
000010D0: 18 66 02 99 22 11 20 4D 55 53 54 20 42 45 20 41 |.f..". MUST BE A|
000010E0: 4E 20 41 53 54 45 52 49 53 4B 2E 20 20 C1 53 20 |N ASTERISK. .S |
000010F0: 49 4E 20 31 36 36 30 2E 22 00 02 19 94 02 8D 38 |IN 1660."......8|
00001100: 33 35 00 16 19 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35......UZ.1..UP|
00001110: 25 3A 89 32 31 37 00 1C 19 BB 02 8E 00 41 19 BC |%:.217.......A..|
00001120: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00001130: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00001140: 2A 00 77 19 C6 02 99 22 93 11 11 11 05 42 45 46 |*.w....".....BEF|
00001150: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00001160: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
00001170: 30 33 32 20 20 11 11 00 AD 19 D0 02 99 22 20 20 |032 ........" |
00001180: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
00001190: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
000011A0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 B8 19 |............"...|
000011B0: DA 02 9E 55 55 AA 37 31 00 BE 19 E4 02 80 00 E3 |...UU.71........|
000011C0: 19 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
000011D0: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
000011E0: 20 2A 2A 00 2E 1A 1E 03 99 22 93 11 11 11 42 45 | **......"....BE|
000011F0: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00001200: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00001210: 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D |8032 ..LOAD CBM|
00001220: 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 00 3A | 4032 PROGRAM".:|
00001230: 1A 1F 03 9E 31 30 39 33 3A 80 00 5A 1A 20 03 8F |....1093:..Z. ..|
00001240: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E |
00001250: 50 20 41 20 47 20 45 20 2A 2A 00 8E 1A 22 03 99 |P A G E **..."..|
00001260: 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A |"....";:.UT,UU%:|
00001270: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001280: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 A4 |80,14:.53281,6..|
00001290: 1A 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...|
000012A0: 22 3B 3A 82 00 BC 1A 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22|
000012B0: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 D4 1A 28 |:.".....";:....(|
000012C0: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....|
000012D0: 22 3B 3A 82 00 EC 1A 29 03 A1 20 41 24 3A 8B 20 |";:....).. A$:. |
000012E0: 41 24 B3 B1 22 22 20 A7 20 33 30 30 00 04 1B 2A |A$.."" . 300...*|
000012F0: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
00001300: 22 3B 3A 82 00 29 1B 2C 03 99 22 13 11 11 11 11 |";:..).,..".....|
00001310: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001320: 1D 1D 1D 1D 12 A9 20 20 92 00 4B 1B 2E 03 99 22 |...... ..K...."|
00001330: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001340: 1D 1D 12 20 92 20 20 12 20 92 A9 00 6C 1B 30 03 |... . . ...l.0.|
00001350: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001360: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 8A 1B 32 |..... . ......2|
00001370: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001380: 1D 1D 1D 1D 1D DF 12 20 20 92 00 B2 1B 34 03 99 |....... ....4..|
00001390: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
000013A0: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
000013B0: 11 11 00 D5 1B 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....6..".......|
000013C0: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
000013D0: 4E 41 4C 11 11 00 F4 1B 38 03 99 22 1D 1D 1D 1D |NAL.....8.."....|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
000013F0: 57 41 52 45 00 0F 1C 3A 03 8F 20 2A 2A 20 43 4F |WARE...:.. ** CO|
00001400: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
00001410: 47 1C 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |G.;...(UD$,24);"|
00001420: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00001430: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
00001440: 54 92 22 3A 49 B2 30 00 69 1C 3C 03 A1 41 24 3A |T.":I.0.i.<..A$:|
00001450: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
00001460: 49 B3 32 35 30 A7 38 32 38 00 8D 1C 3E 03 54 31 |I.250.828...>.T1|
00001470: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
00001480: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 96 1C |"":T4$."":I.0...|
00001490: 40 03 89 33 30 30 00 B2 1C 43 03 8F 20 2A 2A 20 |@..300...C.. ** |
000014A0: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
000014B0: 2A 2A 00 ED 1C 48 03 97 55 4F 2C 30 3A 99 C8 28 |**...H..UO,0:..(|
000014C0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
000014D0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
000014E0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 04 1D |TO CONTINUE."...|
000014F0: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001500: A7 38 34 34 00 0A 1D 4E 03 8E 00 2A 1D 52 03 8F |.844...N...*.R..|
00001510: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001520: 52 4F 55 54 49 4E 45 20 2A 2A 00 36 1D 54 03 55 |ROUTINE **.6.T.U|
00001530: 50 B2 55 50 AA 31 00 60 1D 57 03 99 22 93 22 C8 |P.UP.1.`.W..".".|
00001540: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
00001550: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
00001560: 00 8F 1D 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------|
00001570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001590: 9E 1D 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 D2 |..`..UH..0.870..|
000015A0: 1D 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |.a...(UD$,24);.(|
000015B0: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P|
000015C0: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN|
000015D0: 3E 22 00 E3 1D 66 03 55 48 B2 30 3A 99 22 13 11 |>"...f.UH.0:."..|
000015E0: 22 3A 8E 00 02 1E 6B 03 8F 20 2A 2A 20 50 4C 45 |":....k.. ** PLE|
000015F0: 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 |ASE WAIT REMARK |
00001600: 2A 2A 00 38 1E 70 03 99 C8 28 55 44 24 2C 32 34 |**.8.p...(UD$,24|
00001610: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E |);" ON|
00001620: 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E |E MOMENT PLEASE.|
00001630: 2E 2E 20 20 20 20 20 22 00 3E 1E 75 03 8E 00 5B |.. ".>.u...[|
00001640: 1E 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 |.... ** SET UP V|
00001650: 41 52 49 41 42 4C 45 53 20 2A 2A 00 A6 1E 85 03 |ARIABLES **.....|
00001660: 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 |UX$."H":.UQ%(100|
00001670: 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 |0):UB.32768:U1.1|
00001680: 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 |96:U2.197:U3.198|
00001690: 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 |:U4.216:UC.167:U|
000016A0: 55 B2 31 30 32 34 00 E4 1E 86 03 55 54 B2 35 39 |U.1024.....UT.59|
000016B0: 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 |468:UU%.12:UL%.1|
000016C0: 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 |4:UP%.1146:UM.32|
000016D0: 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 |768:UO.158:. 500|
000016E0: 30 33 2C 30 00 27 1F 87 03 8B C2 28 35 30 30 30 |03,0.'.....(5000|
000016F0: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.|
00001700: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21|
00001710: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:|
00001720: 55 55 B2 32 30 34 38 00 66 1F 88 03 8B C2 28 35 |UU.2048.f.....(5|
00001730: 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 |0003).0.UT.53272|
00001740: 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 |:UU%.21:UL%.23:U|
00001750: 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A |P%.2139:UM.1024:|
00001760: 55 4F B2 31 39 38 00 8A 1F 89 03 55 44 24 B2 22 |UO.198.....UD$."|
00001770: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001780: 11 11 11 11 11 11 11 11 11 22 00 BC 1F 8A 03 55 |.........".....U|
00001790: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017B0: 20 20 20 20 20 20 20 20 20 20 20 22 00 D4 1F 8B | "....|
000017C0: 03 55 54 24 B2 22 20 CD 45 44 49 41 4C 20 D6 4F |.UT$." .EDIAL .O|
000017D0: 57 45 4C 53 00 DA 1F 8C 03 8E 00 F4 1F 8E 03 8F |WELS............|
000017E0: 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 | ** SET VARIABLE|
000017F0: 53 20 2A 2A 00 FD 1F 93 03 8D 39 30 30 00 03 20 |S **......900.. |
00001800: 94 03 3A 00 09 20 95 03 3A 00 24 20 98 03 8F 20 |..:.. ..:.$ ... |
00001810: 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 |** CHECK FOR 803|
00001820: 32 20 2A 2A 00 42 20 9D 03 99 22 93 22 3A 99 22 |2 **.B ...".":."|
00001830: A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 |.":. SHIFTED SPA|
00001840: 43 45 00 59 20 A2 03 8B C2 28 55 42 AA 34 30 29 |CE.Y ....(UB.40)|
00001850: B3 B1 39 36 A7 8D 37 30 30 00 72 20 A3 03 8F 20 |..96..700.r ... |
00001860: 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 |** MEMORY CHECK |
00001870: 2A 2A 00 86 20 A4 03 8B 20 B8 28 30 29 B1 32 30 |**.. ... .(0).20|
00001880: 30 30 A7 39 33 37 00 B4 20 A5 03 99 22 93 11 11 |00.937.. ..."...|
00001890: 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F |.THIS MACHINE DO|
000018A0: 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 |ES NOT HAVE ENOU|
000018B0: 47 48 11 22 00 D8 20 A6 03 99 22 4D 45 4D 4F 52 |GH.".. ..."MEMOR|
000018C0: 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 |Y TO RUN THIS PR|
000018D0: 4F 47 52 41 4D 20 21 22 00 E3 20 A7 03 9E 55 55 |OGRAM !".. ...UU|
000018E0: AA 37 31 00 E9 20 A8 03 80 00 03 21 A9 03 99 22 |.71.. .....!..."|
000018F0: 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |..":..(50003).0.|
00001900: 39 36 32 00 32 21 AC 03 8F 20 2A 2A 20 42 41 53 |962.2!... ** BAS|
00001910: 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 |IC 2.0 OR 4.0 |
00001920: 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 | OR C-64 SETUP |
00001930: 2A 2A 00 70 21 AD 03 97 31 30 37 35 2C 31 33 33 |**.p!...1075,133|
00001940: 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 |:.1076,144:.1077|
00001950: 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 |,234:.1079,4:.10|
00001960: 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 |80,133:.1081,145|
00001970: 00 A6 21 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 |..!...1091,155:.|
00001980: 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 |1098,133:.1099,1|
00001990: 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 |44:.1100,234:.11|
000019A0: 30 33 2C 31 33 33 00 C8 21 AF 03 97 31 31 30 34 |03,133..!...1104|
000019B0: 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 |,145:.1105,234:.|
000019C0: 31 30 38 32 2C 32 33 34 00 DF 21 B1 03 8B C2 28 |1082,234..!....(|
000019D0: 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 |50003)..160.955.|
000019E0: 0E 22 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 |."...1093,88:.10|
000019F0: 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A |94,228:.1097,85:|
00001A00: 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 23 |.1102,228:.965.#|
00001A10: 22 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 |"....(50003)..1.|
00001A20: 39 39 30 00 52 22 C0 03 97 31 30 39 33 2C 34 39 |990.R"...1093,49|
00001A30: 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 |:.1094,230:.1097|
00001A40: 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 |,46:.1102,230:.9|
00001A50: 36 35 00 8C 22 C2 03 97 32 30 39 39 2C 31 34 31 |65.."...2099,141|
00001A60: 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C |:.2100,20:.2101,|
00001A70: 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C |3:.2103,8:.2104,|
00001A80: 31 34 31 3A 97 32 31 30 35 2C 32 31 00 C8 22 C3 |141:.2105,21..".|
00001A90: 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 |..2106,3:.2115,1|
00001AA0: 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 |45:.2117,52:.211|
00001AB0: 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 |8,234:.2121,49:.|
00001AC0: 32 31 32 32 2C 31 34 31 00 02 23 C4 03 97 32 31 |2122,141..#...21|
00001AD0: 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 |23,20:.2124,3:.2|
00001AE0: 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 |126,234:.2127,14|
00001AF0: 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 |1:.2128,21:.2129|
00001B00: 2C 33 00 20 23 C5 03 9E 55 55 AA 34 38 3A 8F 20 |,3. #...UU.48:. |
00001B10: 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |DISABLE STOP KEY|
00001B20: 00 31 23 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C |.1#...800:. TITL|
00001B30: 45 00 41 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E |E.A#...300:. MEN|
00001B40: 55 00 72 23 DE 03 99 22 93 54 48 45 20 50 47 4D |U.r#...".THE PGM|
00001B50: 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F | WILL NOT WORK O|
00001B60: 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 |N THIS MACHINE!"|
00001B70: 3A 80 00 A7 23 E8 03 8B 55 5A B2 31 A7 9E 55 50 |:...#...UZ.1..UP|
00001B80: 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A |%:.UP%:UZ.0:. **|
00001B90: 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 | PROGRAM STARTS |
00001BA0: 48 45 52 45 20 2A 2A 00 D3 23 E9 03 99 22 93 05 |HERE **..#..."..|
00001BB0: 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 |";:.:..(50003).0|
00001BC0: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00001BD0: 2C 31 34 00 F9 23 B0 04 8F 2A 2A 2A 2A 2A 2A 2A |,14..#...*******|
00001BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 24 BA 04 8F 2A |*********..$...*|
00001C00: 20 20 20 43 48 41 4E 47 45 53 20 4D 41 44 45 20 | CHANGES MADE |
00001C10: 42 59 20 48 49 4E 20 4A 41 4E 47 20 20 20 2A 00 |BY HIN JANG *.|
00001C20: 45 24 C4 04 8F 2A 20 20 4A 49 4D 20 42 4F 52 49 |E$...* JIM BORI|
00001C30: 54 5A 20 41 4E 44 20 43 41 52 59 20 4C 45 57 49 |TZ AND CARY LEWI|
00001C40: 53 20 20 20 2A 00 6B 24 CE 04 8F 2A 2A 2A 2A 2A |S *.k$...*****|
00001C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AE 24 D8 04 |***********..$..|
00001C70: 8F 20 2A 2A 2A 20 51 55 45 53 54 49 4F 4E 20 41 |. *** QUESTION A|
00001C80: 4E 44 20 41 4E 53 57 45 52 20 2A 2A 2A 20 20 20 |ND ANSWER *** |
00001C90: 20 20 56 31 2E 30 20 20 41 50 52 38 30 20 20 20 | V1.0 APR80 |
00001CA0: 42 59 20 42 52 55 43 45 20 52 4F 55 53 45 00 C4 |BY BRUCE ROUSE..|
00001CB0: 24 E2 04 8B 20 42 B2 30 20 A7 20 86 20 4C 24 28 |$... B.0 . . L$(|
00001CC0: 35 30 30 29 00 E4 24 E4 04 42 B2 42 AA 31 3A 55 |500)..$..B.B.1:U|
00001CD0: 50 B2 30 3A 55 47 24 B2 22 D1 55 45 53 54 49 4F |P.0:UG$.".UESTIO|
00001CE0: 4E 20 23 22 00 FA 24 E7 04 99 22 93 22 3A 97 55 |N #"..$...".":.U|
00001CF0: 54 2C 55 4C 25 3A 8D 38 37 35 00 05 25 EC 04 87 |T,UL%:.875..%...|
00001D00: 4C 24 28 52 29 00 23 25 F6 04 8B 4C 24 28 52 29 |L$(R).#%...L$(R)|
00001D10: B2 22 2A 22 A7 52 B2 30 3A 99 22 93 22 3A 89 31 |."*".R.0:.".":.1|
00001D20: 32 39 30 00 33 25 00 05 52 B2 52 AA 31 3A 89 31 |290.3%..R.R.1:.1|
00001D30: 32 36 30 00 53 25 0A 05 8B 4C 24 28 52 29 B2 22 |260.S%...L$(R)."|
00001D40: 22 A7 99 22 CE 4F 20 D1 55 45 53 54 49 4F 4E 53 |"..".O .UESTIONS|
00001D50: 22 3A 8E 00 78 25 14 05 8B 4C 24 28 52 29 B2 B3 |":..x%...L$(R)..|
00001D60: 22 39 22 AF 4C 24 28 52 29 B1 22 30 22 A7 8D 38 |"9".L$(R)."0"..8|
00001D70: 35 30 3A 52 B2 52 AA 31 00 B1 25 1E 05 8B C9 28 |50:R.R.1..%....(|
00001D80: 4C 24 28 52 29 2C 31 29 B2 22 5D 22 A7 99 22 11 |L$(R),1)."]"..".|
00001D90: 20 22 C8 28 4C 24 28 52 29 2C C3 28 4C 24 28 52 | ".(L$(R),.(L$(R|
00001DA0: 29 29 AB 31 29 3A 52 B2 52 AA 31 3A 89 31 33 34 |)).1):R.R.1:.134|
00001DB0: 30 00 C5 25 28 05 8B 4C 24 28 52 29 B2 22 2A 22 |0..%(..L$(R)."*"|
00001DC0: 89 31 33 38 30 00 E0 25 32 05 99 22 11 20 22 4C |.1380..%2..". "L|
00001DD0: 24 28 52 29 3A 52 B2 52 AA 31 3A 89 31 32 39 30 |$(R):R.R.1:.1290|
00001DE0: 00 17 26 3C 05 99 22 11 20 20 20 20 20 20 20 20 |..&<..". |
00001DF0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A | ..........";:|
00001E00: 55 53 24 B2 22 22 3A 55 4C B2 31 30 3A 8D 33 35 |US$."":UL.10:.35|
00001E10: 3A 41 24 B2 55 52 24 00 40 26 46 05 8B 41 24 B2 |:A$.UR$.@&F..A$.|
00001E20: 4C 24 28 52 29 A7 99 3A 99 22 11 20 D9 4F 55 20 |L$(R)..:.". .OU |
00001E30: 41 52 45 20 52 49 47 48 54 2E 22 3A 8D 38 33 35 |ARE RIGHT.":.835|
00001E40: 00 66 26 50 05 8B 41 24 B2 4C 24 28 52 29 A7 43 |.f&P..A$.L$(R).C|
00001E50: B2 43 AA 31 3A 54 B2 54 AA 31 3A 52 B2 52 AA 31 |.C.1:T.T.1:R.R.1|
00001E60: 3A 89 31 32 39 30 00 8F 26 5A 05 99 22 11 20 D7 |:.1290..&Z..". .|
00001E70: 52 4F 4E 47 2C 20 54 52 59 20 41 47 41 49 4E 2E |RONG, TRY AGAIN.|
00001E80: 2E 91 22 3A 81 49 B2 31 A4 37 30 30 3A 82 49 00 |..":.I.1.700:.I.|
00001E90: BA 26 5F 05 99 22 20 20 20 20 20 20 20 20 20 20 |.&_.." |
00001EA0: 20 20 20 20 20 20 20 20 20 91 91 91 91 22 3A 54 | ....":T|
00001EB0: B2 54 AA 31 3A 89 31 33 34 30 00 C8 26 64 05 8B |.T.1:.1340..&d..|
00001EC0: 54 B2 30 89 31 32 39 30 00 FF 26 6E 05 99 22 93 |T.0.1290..&n..".|
00001ED0: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |........ |
00001EE0: CF 55 52 20 53 43 4F 52 45 20 49 53 22 B5 28 28 |.UR SCORE IS".((|
00001EF0: 43 AD 54 29 AC 31 30 30 AA 2E 35 29 22 25 22 00 |C.T).100..5)"%".|
00001F00: 1E 27 78 05 8B B5 28 28 43 AD 54 29 AC 31 30 30 |.'x...((C.T).100|
00001F10: AA 2E 35 29 B2 31 30 30 A7 8D 31 34 38 30 00 4D |..5).100..1480.M|
00001F20: 27 82 05 99 22 11 11 20 D7 4F 55 4C 44 20 59 4F |'...".. .OULD YO|
00001F30: 55 20 4C 49 4B 45 20 54 4F 20 54 52 59 20 41 47 |U LIKE TO TRY AG|
00001F40: 41 49 4E 20 57 49 54 48 20 54 48 45 22 00 63 27 |AIN WITH THE".c'|
00001F50: 8C 05 99 22 11 20 53 41 4D 45 20 44 41 54 41 3F |...". SAME DATA?|
00001F60: 20 22 3B 00 80 27 96 05 55 53 24 B2 22 59 4E 22 | ";..'..US$."YN"|
00001F70: 3A 55 4C B2 31 3A 8D 33 35 3A 44 24 B2 55 52 24 |:UL.1:.35:D$.UR$|
00001F80: 00 96 27 A0 05 8B C8 28 44 24 2C 31 29 B2 22 59 |..'....(D$,1)."Y|
00001F90: 22 A7 31 34 37 30 00 A9 27 AA 05 8B C8 28 44 24 |".1470..'....(D$|
00001FA0: 2C 31 29 B2 22 4E 22 A7 8E 00 BA 27 B4 05 99 22 |,1)."N"....'..."|
00001FB0: 91 91 22 3B 3A 89 31 34 32 30 00 D0 27 BE 05 52 |..";:.1420..'..R|
00001FC0: B2 30 3A 43 B2 30 3A 54 B2 30 3A 89 31 32 39 30 |.0:C.0:T.0:.1290|
00001FD0: 00 F3 27 C8 05 99 22 11 11 20 20 20 D8 20 20 20 |..'...".. . |
00001FE0: 20 20 D8 20 20 D8 D8 D8 D8 D8 D8 20 20 20 20 20 | . ...... |
00001FF0: 20 20 D8 00 15 28 D2 05 99 22 20 20 20 20 D8 20 | ...(..." . |
00002000: 20 20 D8 20 20 20 D8 20 20 20 20 20 20 20 20 20 | . . |
00002010: 20 20 D8 20 D8 00 38 28 DC 05 99 22 20 20 20 20 | . ..8(..." |
00002020: 20 D8 20 D8 20 20 20 20 D8 20 20 20 20 20 20 20 | . . . |
00002030: 20 20 20 D8 20 20 20 D8 00 5C 28 E6 05 99 22 20 | . ..\(..." |
00002040: 20 20 20 20 20 D8 20 20 20 20 20 D8 D8 D8 20 20 | . ... |
00002050: 20 20 20 20 20 D8 20 20 20 20 20 D8 00 81 28 F0 | . ...(.|
00002060: 05 99 22 20 20 20 20 20 20 D8 20 20 20 20 20 D8 |.." . .|
00002070: 20 20 20 20 20 20 20 20 D8 D8 D8 D8 D8 D8 D8 D8 | ........|
00002080: D8 00 A7 28 FA 05 99 22 20 20 20 20 20 20 D8 20 |...(..." . |
00002090: 20 20 20 20 D8 20 20 20 20 20 20 20 D8 20 20 20 | . . |
000020A0: 20 20 20 20 20 20 D8 00 CE 28 04 06 99 22 20 20 | ...(..." |
000020B0: 20 20 20 20 D8 20 20 20 20 20 D8 D8 D8 D8 D8 D8 | . ......|
000020C0: 20 D8 20 20 20 20 20 20 20 20 20 20 20 D8 00 D4 | . ...|
000020D0: 28 0E 06 8E 00 0D 29 18 06 83 31 2C 22 D4 4F 4D |(.....)...1,".OM|
000020E0: 20 50 4C 41 59 53 20 57 49 54 48 20 41 20 42 41 | PLAYS WITH A BA|
000020F0: 4C 4C 20 41 4E 44 20 A4 A4 A4 2E 22 2C 42 49 54 |LL AND ....",BIT|
00002100: 20 42 45 54 20 42 41 54 5D 2C 42 41 54 00 37 29 | BET BAT],BAT.7)|
00002110: 22 06 83 32 2C 22 D4 48 45 20 4A 41 4D 20 49 53 |"..2,".HE JAM IS|
00002120: 20 A4 A4 A4 2E 22 2C 52 49 44 20 52 45 44 20 52 | ....",RID RED R|
00002130: 4F 44 5D 2C 52 45 44 00 71 29 2C 06 83 33 2C 22 |OD],RED.q),..3,"|
00002140: D4 48 45 20 54 52 55 43 4B 20 44 52 49 56 45 52 |.HE TRUCK DRIVER|
00002150: 20 52 49 44 45 53 20 54 48 45 20 A4 A4 A4 2E 22 | RIDES THE ...."|
00002160: 2C 43 41 42 20 43 4F 42 20 43 55 42 5D 2C 43 41 |,CAB COB CUB],CA|
00002170: 42 00 AD 29 36 06 83 34 2C 22 D0 41 4D 20 57 41 |B..)6..4,".AM WA|
00002180: 53 20 53 43 52 41 54 43 48 45 44 20 42 59 20 48 |S SCRATCHED BY H|
00002190: 45 52 20 50 45 54 20 A4 A4 A4 2E 22 2C 43 55 54 |ER PET ....",CUT|
000021A0: 20 43 4F 54 20 43 41 54 5D 2C 43 41 54 00 DE 29 | COT CAT],CAT..)|
000021B0: 40 06 83 35 2C 22 D4 48 45 20 50 49 4C 4F 54 20 |@..5,".HE PILOT |
000021C0: 46 4C 49 45 53 20 41 20 A4 A4 A4 2E 22 2C 4A 45 |FLIES A ....",JE|
000021D0: 54 20 4A 4F 54 20 4A 55 54 5D 2C 4A 45 54 00 13 |T JOT JUT],JET..|
000021E0: 2A 4A 06 83 36 2C 22 D4 48 45 20 47 49 52 4C 20 |*J..6,".HE GIRL |
000021F0: 53 4C 45 50 54 20 4F 4E 20 54 48 45 20 A4 A4 A4 |SLEPT ON THE ...|
00002200: 2E 22 2C 43 4F 54 20 43 55 54 20 43 41 54 5D 2C |.",COT CUT CAT],|
00002210: 43 4F 54 00 4D 2A 54 06 83 37 2C 22 D4 48 45 20 |COT.M*T..7,".HE |
00002220: 46 49 53 48 20 57 41 53 20 43 41 55 47 48 54 20 |FISH WAS CAUGHT |
00002230: 49 4E 20 54 48 45 20 A4 A4 A4 2E 22 2C 4E 45 54 |IN THE ....",NET|
00002240: 20 4E 4F 54 20 4E 55 54 5D 2C 4E 45 54 00 7C 2A | NOT NUT],NET.|*|
00002250: 5E 06 83 38 2C 22 D4 48 45 20 4C 41 44 59 20 57 |^..8,".HE LADY W|
00002260: 4F 52 45 20 41 20 A4 A4 A4 2E 22 2C 57 4F 47 20 |ORE A ....",WOG |
00002270: 57 49 47 20 57 55 47 5D 2C 57 49 47 00 B6 2A 68 |WIG WUG],WIG..*h|
00002280: 06 83 39 2C 22 D3 48 45 20 57 52 4F 54 45 20 48 |..9,".HE WROTE H|
00002290: 45 52 20 53 54 4F 52 59 20 57 49 54 48 20 41 1D |ER STORY WITH A.|
000022A0: A4 A4 A4 2E 22 2C 50 41 4E 20 50 49 4E 20 50 45 |....",PAN PIN PE|
000022B0: 4E 5D 2C 50 45 4E 00 EE 2A 72 06 83 31 30 2C 22 |N],PEN..*r..10,"|
000022C0: D4 48 45 20 43 41 4B 45 20 57 41 53 20 42 41 4B |.HE CAKE WAS BAK|
000022D0: 45 44 20 49 4E 20 41 20 A4 A4 A4 2E 22 2C 50 41 |ED IN A ....",PA|
000022E0: 4E 20 50 49 4E 20 50 45 4E 5D 2C 50 41 4E 00 FC |N PIN PEN],PAN..|
000022F0: 2A 7C 06 83 20 22 2A 22 20 20 20 20 00 00 00 |*|.. "*" ... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.N.+.. US$.."" . US$.US$.UX$.A.-.." .
.";:.UC,0.U.2..UI$:.UI$."".50...7..UI$.G
(13).C(UR$)..1..UC,1:." .";:.85...<..UI$
.G(20).105.F.>.. C(UR$)..UL.50...A..120:
. CHECK FOR VALID CHARACTER...F.UR$.UR$.
UI$...K..UI$;...P..50.2.U.. +++ CHECK FO
R HELP REQUEST +++.Z.Z..UR$.UX$.195:. EX
IT TO HELP ROUTINE.I._..UF.1..240.V.D.UF
.0:.:....F.. ++ CHECK DELETE ++. .I..C(U
R$).1.50...N.UR$.H(UR$,C(UR$).1).J.S..".
..";:.50...X.. ++ CHECK FOR VALID CHAR
ACTERS ++...}..C(US$).0.150....US$.US$.
UX$.$....US.1.C(US$).;....UI$.J(US$,US,1
)...A.....N...UI$."":..I.... ** STANDARD
INPUT **.Z....F(UI$).46........UI$.G(32
)..... ..F(UI$).48.F(UI$).57.170.......K
....F(UI$).65.F(UI$).90.180.Q..........F
(UI$).193.F(UI$).218.UI$."":.......B(UT)
.UU%.UI$.G(F(UI$).128):........+...UI$."
":..P.C.UF.1:. +++ HELP ROUTINE EXIT +++
.Y.E..250.B.H..245...M..UQ.UB.(U2%.256.U
1%.U3%.2)...R.UQ%(UQ.UB).B(UQ):.:."."...
W.UZ.1:UV%.B(UT)...X..300...Y.UZ.0:US$.U
J$:UG$.UK$:UP.UJ:UL.UK...Z..B(50003).0..
53281,1:.".";:.53281,6:.53280,14:.220...
...".";.N...UT$.UL$:.UT,UV%:.UQ.UB.(U2%.
256.U1%.U3%.3).C....UQ,UQ%(UQ.UB):..O...
.U1,U1%.{....U2,U2%......U4,U4%......U3,
U3%.1......35.O...UD%.((U2%.256.U1%.U3%)
.UB).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . "
:..6...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%
.B(U4).^...UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP
:UK.UL.D.....U.,.. ** MENU **.{.-.:.....
.".":.UT,UU%:.B(50003).0..53281,9:.53280
,8.../.:.M.1..". MENU"...
6.." -----------------------------------
---".%.;..".. 1. BEGIN MEDIAL VO
WELS".O.@..".. 2. STUDENT INSTRU
CTIONS".Y.E..".. 3. TEACHER INST
RUCTIONS"...J..".. 4. MODIFICATI
ON OF PROGRAM".B.O..".. 5. QUIT.
."...T.." ------------------------------
--------"...Y..".. PRESS A NUMBER
KEY (1-5) ";.E.^.UL.1:US$."12345":.35:.
INPUT ROUTINE.F.C..E(UR$).1000,400,500,6
00,396.O.H..300...... ** RE-ENABLE STOP
KEY AND END **.E....B(50003)..1.B(50003)
..160.B(50003)..0.399......UU.71:.B(5000
3).0..53281,6:.53280,14......"..":......
.875:..'.... ** STUDENT INSTRUCTIONS **.
V....".":.UT,UL%:.B(50003).0..53281,0:.5
3280,0.}...UH.1:UP.0:UG$."STUDENT INST."
:.850......".. I WILL SHOW YOU A SENT
ENCE WITH".V...." THREE DIFFERENT ANSWE
RS. YOU MUST"......" READ THE SENTENCE
AND CHOOSE THE COR-".3...." RECT WORD.
IF YOU GET IT WRONG JUST".G...." TRY
AGAIN.".W.L..".. NOTE:....TO ADVANCE FRO
M ONE QUESTION"...V.." TO THE NEXT PRE
SS THE SPACE BAR.".Q....".. IF AT ANY
TIME YOU WISH TO RETURN"......" TO TH
E MENU PRESS H RETURN"......835......UZ.
1..UP%:.217.......:.... ** TEACHER INSTR
UCTIONS **.J....".":.UT,UL%:.B(50003).0.
.53281,2:.53280,10.....UP.0:UG$."TEACHER
INST.":.850......".. TO THE BEST O
F OUR KNOWLEDGE,."......" THIS PROGRAM
IS IN THE PUBLIC."......" DOMAIN. IF
THIS IS NOT THE CASE.".,...." PLEASE
CONTACT:...".V...." COMMODORE BUSIN
ESS MACHINES.".Y...." 3370 PHAR
MACY AVE......." AGINCOURT, ONT
ARIO"......" CANADA M1W 2K4".
....." (416) 499-4292".....UP.1
:. 835:. 850:......" ..PROGRAM NAME:
MEDIAL VOWELS..E...." WRITTEN BY :
BRUCE ROUSE..G...." UPGRADED BY : H
IN JANG......" JIM BOR
ITZ"......" CARY LEWIS
"......" .THIS PROGRAM WILL RUN ON A
NY........" PET 64 COMPUTER..!..
.." COMMODORE 64 COMPUTER.*....8
35.N....------------------------------.N
...." UPGRADED FOR C64 BY:......"
LYNDA BONANNO......---------------
---------------.C.N..UZ.1..UP%:.217.I.W.
....X.. ** PROGRAM MODIFICATION INST **.
..Y..".":.UT,UL%.!.].UP.0:UG$."PROGRAM M
OD.":.850.L.^..".. THIS PROGRAM CAN BE
MODIFIED BY".{.`..". CHANGING OR ADDING
TO THE DATA STATE-"...B..". MENTS IN LIN
ES 1560-1660..N.D..".... IMPORTANT: T
HE LAST DATA STATMENT"...F..". MUST BE A
N ASTERISK. AS IN 1660."......835......
UZ.1..UP%:.217.......A.... ** TO USE 803
2 LOAD CBM4032 **.W.F..".....BEFORE RUNN
ING THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM.........
...."...Z..UU.71............ ** TO USE 8
032 LOAD CBM4032 **......"....BEFORE RUN
NING THIS PROGRAM ON AN 8032 ..LOAD CBM
4032 PROGRAM".:....1093:..Z. .. ** T I
T L E P A G E **...".."....";:.UT,UU%:
.B(50003).0..53280,14:.53281,6...$..I.1.
38:."...";:....&..I.1.22:.".....";:..T.(
..I.1.37:.".....";:....).. A$:. A$.."" .
300...*..I.1.22:.".....";:..).,..".....
...................... ..K...."........
........... . . ...L.0.."..............
..... . ......2.."....................
....4.."..............C O M M O D O R E
...U.6.."...............EDUCATIONAL.....
8.."................SOFTWARE...:.. ** CO
MMODORE LOGO **.G.;..H(UD$,24);"........
..PRESS SPACE BAR OR WAIT.":I.0.I.<..A$:
.A$.." ".I.I.1:.I.250.828...>.T1$."":T2$
."":T3$."":T4$."":I.0...@..300...C.. **
SPACE BAR PRESS **...H..UO,0:.H(UD$,24);
".......PRESS SPACE BAR TO CONTINUE."...
L..UI$:.UI$.." ".844...N...*.R.. ** PAGE
DESIGN ROUTINE **.6.T.UP.UP.1.`.W.."."H
(UT$.UP$,21);I(UP$.UG$.D(UP),18)...\.."
--------------------------------------".
..`..UH..0.870.R.A..H(UD$,24);H(UP$,7);"
HELP - PRESS H <RETURN>"...F.UH.0:."..
":....K.. ** PLEASE WAIT REMARK **.8.P..
H(UD$,24);" ONE MOMENT PLEASE.
.. ".>.U...[.... ** SET UP VARIABLES
**.....UX$."H":.UQ%(1000):UB.32768:U1.1
96:U2.197:U3.198:U4.216:UC.167:UU.1024..
...UT.59468:UU%.12:UL%.14:UP%.1146:UM.32
768:UO.158:. 50003,0.'....B(50003).0.UB.
1024:U1.209:U2.210:U3.211:U4.214:UC.204:
UU.2048.F....B(50003).0.UT.53272:UU%.21:
UL%.23:UP%.2139:UM.1024:UO.198.....UD$."
.........................".....UP$."
".T..
.UT$." MEDIAL VOWELS.Z.......... ** SET
VARIABLES **......900.. ..:.. ..:.$ ...
** CHECK FOR 8032 **.B ...".":." ":. SHI
FTED SPACE.Y ...B(UB.40)..96..700.R ...
** MEMORY CHECK **.. ... .(0).2000.937..
..."....THIS MACHINE DOES NOT HAVE ENOU
GH.".X ..."MEMORY TO RUN THIS PROGRAM !"
.. ...UU.71.. .....!..."..":.B(50003).0.
962.2!... ** BASIC 2.0 OR 4.0 OR C-6
4 SETUP **.P!...1075,133:.1076,144:.1077
,234:.1079,4:.1080,133:.1081,145..!...10
91,155:.1098,133:.1099,144:.1100,234:.11
03,133.H!...1104,145:.1105,234:.1082,234
..!...B(50003)..160.955.."...1093,88:.10
94,228:.1097,85:.1102,228:.965.#"...B(50
003)..1.990.R"...1093,49:.1094,230:.1097
,46:.1102,230:.965.."B..2099,141:.2100,2
0:.2101,3:.2103,8:.2104,141:.2105,21.H"C
..2106,3:.2115,145:.2117,52:.2118,234:.2
121,49:.2122,141..#D..2123,20:.2124,3:.2
126,234:.2127,141:.2128,21:.2129,3. #E..
UU.48:. DISABLE STOP KEY.1#J..800:. TITL
E.A#T..300:. MENU.R#...".THE PGM WILL NO
T WORK ON THIS MACHINE!":...#...UZ.1..UP
%:.UP%:UZ.0:. ** PROGRAM STARTS HERE **.
S#..."..";:.:.B(50003).0..53281,6:.53280
,14..#...*******************************
*..$...* CHANGES MADE BY HIN JANG *.
E$D..* JIM BORITZ AND CARY LEWIS *.K$
N..********************************..$X.
. *** QUESTION AND ANSWER *** V1.0
APR80 BY BRUCE ROUSE.D$... B.0 . . L$(
500)..$..B.B.1:UP.0:UG$."QUESTION #"..$.
..".":.UT,UL%:.875..%...L$(R).#%...L$(R)
."*".R.0:.".":.1290.3%..R.R.1:.1260.S%..
.L$(R)."".."NO QUESTIONS":..X%...L$(R)..
"9".L$(R)."0"..850:R.R.1..%...I(L$(R),1)
."]"..". "H(L$(R),C(L$(R)).1):R.R.1:.134
0.E%(..L$(R)."*".1380..%2..". "L$(R):R.R
.1:.1290..&<..". ..........";:
US$."":UL.10:.35:A$.UR$.@&F..A$.L$(R)..:
.". YOU ARE RIGHT.":.835.F&P..A$.L$(R).C
.C.1:T.T.1:R.R.1:.1290..&Z..". WRONG, TR
Y AGAIN...":.I.1.700:.I..&_.."
....":T.T.1:.1340.H&D..T.0.1290
..&N.."......... OUR SCORE IS".((
C.T).100..5)"%"..'X...((C.T).100..5).100
..1480.M'...".. WOULD YOU LIKE TO TRY AG
AIN WITH THE".C'...". SAME DATA? ";..'..
US$."YN":UL.1:.35:D$.UR$..' ..H(D$,1)."Y
".1470..'...H(D$,1)."N"....'..."..";:.14
20.P'..R.0:C.0:T.0:.1290..'H..".. X
X XXXXXX X..(R.." X X X
X X.8(..." X X X
X X.\(..." X XXX X
X..(..." X X XXXXXXXX
X..(..." X X X X.
N(..." X XXXXXX X X.T
(.....)...1,"TOM PLAYS WITH A BALL AND .
...",BIT BET BAT],BAT.7)"..2,"THE JAM IS
....",RID RED ROD],RED.Q),..3,"THE TRUC
K DRIVER RIDES THE ....",CAB COB CUB],CA
B..)6..4,"PAM WAS SCRATCHED BY HER PET .
...",CUT COT CAT],CAT..)@..5,"THE PILOT
FLIES A ....",JET JOT JUT],JET..*J..6,"T
HE GIRL SLEPT ON THE ....",COT CUT CAT],
COT.M*T..7,"THE FISH WAS CAUGHT IN THE .
...",NET NOT NUT],NET.|*^..8,"THE LADY W
ORE A ....",WOG WIG WUG],WIG..*H..9,"SHE
WROTE HER STORY WITH A.....",PAN PIN PE
N],PEN..*R..10,"THE CAKE WAS BAKED IN A
....",PAN PIN PEN],PAN..*|.. "*" ...
> CLICK IMAGE PREVIEW FOR FULL MODAL