CAPITALS.C3
FILE INFORMATION
FILENAME(S): CAPITALS.C3
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-11-02 16:39:52
APPEARS ON: 3 disk(s)
FILE HASH
da360841e15a6b27528eb8e643a1075d93f286a74d698c62f575dce9fbf62f85
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISKETTE NR 036 | CAPITALS.C3 | PRG | Treasure Chest - Plattfuss | 17 | 3 | DOWNLOAD FILE |
| L EHRNEN | CAPITALS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | CAPITALS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 3 | 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 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: 4D 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |M.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 52 41 52 59 00 6A 09 |HAVE CONTRARY.j.|
00000150: 18 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 |... INFORMATI|
00000160: 4F 4E 2C 20 50 4C 45 41 53 45 00 90 09 19 00 8F |ON, PLEASE......|
00000170: 20 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D | CONTACT COMM|
00000180: 4F 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 |ODORE CANADA AND|
00000190: 00 B6 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 |...... EVERY |
000001A0: 45 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D |EFFORT WILL BE M|
000001B0: 41 44 45 20 54 4F 00 D7 09 1B 00 8F 20 20 20 20 |ADE TO...... |
000001C0: 57 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 |WITHDRAW COPIES |
000001D0: 4F 46 20 54 48 49 53 00 E9 09 1C 00 8F 20 20 20 |OF THIS...... |
000001E0: 20 50 52 4F 47 52 41 4D 2E 00 EF 09 1E 00 3A 00 | PROGRAM......:.|
000001F0: 01 0A 21 00 8F 20 20 20 20 43 41 50 49 54 41 4C |..!.. CAPITAL|
00000200: 53 00 4B 0A 22 00 8F 20 20 20 20 55 50 44 41 54 |S.K.".. UPDAT|
00000210: 45 44 20 2D 20 4A 2E 46 2E 20 4D 55 4E 52 4F 20 |ED - J.F. MUNRO |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 44 55 52 48 41 4D 20 42 20 4F 46 20 45 | DURHAM B OF E|
00000240: 2C 20 4A 55 4C 59 2C 31 39 38 32 00 67 0A 23 00 |, JULY,1982.g.#.|
00000250: 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 |. +++ INPUT SECT|
00000260: 49 4F 4E 20 2B 2B 2B 00 7F 0A 28 00 97 55 4F 2C |ION +++...(..UO,|
00000270: 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 |0:UR$."":UI$."".|
00000280: 8F 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 |..*..UL.0.UL.80.|
00000290: A2 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 |..-.." ..";:.UC|
000002A0: 2C 30 00 B6 0A 32 00 A1 55 49 24 3A 8B 55 49 24 |,0...2..UI$:.UI$|
000002B0: B2 22 22 A7 35 30 00 E0 0A 37 00 8B 55 49 24 B2 |."".50...7..UI$.|
000002C0: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
000002D0: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
000002E0: 00 F3 0A 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |...<..UI$..(20).|
000002F0: 31 30 35 00 07 0B 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000300: B2 B1 55 4C A7 35 30 00 2C 0B 41 00 8D 31 32 30 |..UL.50.,.A..120|
00000310: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
00000320: 49 44 20 43 48 41 52 41 43 54 45 52 00 3C 0B 46 |ID CHARACTER.<.F|
00000330: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 46 0B 4B |.UR$.UR$.UI$.F.K|
00000340: 00 99 55 49 24 3B 00 4E 0B 50 00 89 35 30 00 73 |..UI$;.N.P..50.s|
00000350: 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
00000360: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
00000370: 2B 2B 2B 00 9B 0B 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000380: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000390: 45 4C 50 20 52 4F 55 54 49 4E 45 00 AA 0B 5F 00 |ELP ROUTINE..._.|
000003A0: 8B 55 46 B2 31 A7 8D 32 34 30 00 B7 0B 64 00 55 |.UF.1..240...d.U|
000003B0: 46 B2 30 3A 99 3A 8E 00 D0 0B 66 00 8F 20 2B 2B |F.0:.:....f.. ++|
000003C0: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
000003D0: 00 E1 0B 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |...i...(UR$).1.5|
000003E0: 30 00 F9 0B 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0...n.UR$..(UR$,|
000003F0: C3 28 55 52 24 29 AB 31 29 00 0B 0C 73 00 99 22 |.(UR$).1)...s.."|
00000400: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 32 0C 78 00 |. ..";:.50.2.x.|
00000410: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
00000420: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
00000430: 2B 2B 00 44 0C 7D 00 8B C3 28 55 53 24 29 B2 30 |++.D.}...(US$).0|
00000440: A7 31 35 30 00 55 0C 82 00 81 55 53 B2 31 A4 C3 |.150.U....US.1..|
00000450: 28 55 53 24 29 00 6C 0C 87 00 8B 55 49 24 B2 CA |(US$).l....UI$..|
00000460: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 72 0C 8C |(US$,US,1)...r..|
00000470: 00 82 00 7F 0C 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000480: 9A 0C 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000490: 44 20 49 4E 50 55 54 20 2A 2A 00 AB 0C 98 00 8B |D INPUT **......|
000004A0: C6 28 55 49 24 29 B2 34 36 A7 8E 00 BC 0C 9B 00 |.(UI$).46.......|
000004B0: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 D9 0C A0 |.UI$..(32)......|
000004C0: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
000004D0: 24 29 B1 35 37 A7 31 37 30 00 DF 0C A5 00 8E 00 |$).57.170.......|
000004E0: FC 0C AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 |......(UI$).65..|
000004F0: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 02 0D AF |(UI$).90.180....|
00000500: 00 8E 00 26 0D B4 00 8B C6 28 55 49 24 29 B3 31 |...&.....(UI$).1|
00000510: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
00000520: 24 B2 22 22 3A 8E 00 49 0D B9 00 8B C2 28 55 54 |$."":..I.....(UT|
00000530: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
00000540: 24 29 AB 31 32 38 29 3A 8E 00 4F 0D BB 00 8E 00 |$).128):..O.....|
00000550: 5C 0D BE 00 55 49 24 B2 22 22 3A 8E 00 81 0D C3 |\...UI$."":.....|
00000560: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
00000570: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000580: 2B 00 8A 0D C5 00 8D 32 35 30 00 93 0D C8 00 8D |+......250......|
00000590: 32 34 35 00 B2 0D CD 00 81 55 51 B2 55 42 A4 28 |245......UQ.UB.(|
000005A0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
000005B0: 32 29 00 CE 0D D2 00 55 51 25 28 55 51 AB 55 42 |2).....UQ%(UQ.UB|
000005C0: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 E1 |)..(UQ):.:."."..|
000005D0: 0D D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
000005E0: 29 00 EA 0D D8 00 89 33 30 30 00 0F 0E D9 00 55 |)......300.....U|
000005F0: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000600: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 |UK$:UP.UJ:UL.UK.|
00000610: 46 0E DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 |F.....(50003).0.|
00000620: 97 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 |.53281,1:.".";:.|
00000630: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000640: 34 3A 89 32 32 30 00 50 0E DB 00 99 22 93 22 3B |4:.220.P....".";|
00000650: 00 7F 0E DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 |.....UT$.UL$:.UT|
00000660: 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 |,UV%:.UQ.UB.(U2%|
00000670: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 |.256.U1%.U3%.3).|
00000680: 94 0E E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 |.....UQ,UQ%(UQ.U|
00000690: 42 29 3A 82 00 A0 0E E6 00 97 55 31 2C 55 31 25 |B):.......U1,U1%|
000006A0: 00 AC 0E E8 00 97 55 32 2C 55 32 25 00 B8 0E E9 |......U2,U2%....|
000006B0: 00 97 55 34 2C 55 34 25 00 C6 0E EA 00 97 55 33 |..U4,U4%......U3|
000006C0: 2C 55 33 25 AB 31 00 CE 0E EB 00 89 33 35 00 00 |,U3%.1......35..|
000006D0: 0F F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 |...UD%.((U2%.256|
000006E0: AA 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 |.U1%.U3%).UB).40|
000006F0: 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E |:..(UD$,UD%.1):.|
00000700: 00 3B 0F F5 00 99 C8 28 55 44 24 2C 32 34 29 3B |.;.....(UD$,24);|
00000710: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000720: 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F | . HELP CO|
00000730: 4D 49 4E 47 20 92 20 20 22 3A 8E 00 67 0F FA 00 |MING . ":..g...|
00000740: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(|
00000750: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4|
00000760: 25 B2 C2 28 55 34 29 00 8F 0F FB 00 55 4A 24 B2 |%..(U4).....UJ$.|
00000770: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.|
00000780: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UT$:UJ.UP:UK.UL.|
00000790: 95 0F FF 00 8E 00 A6 0F 2C 01 8F 20 2A 2A 20 4D |........,.. ** M|
000007A0: 45 4E 55 20 2A 2A 00 AC 0F 2D 01 3A 00 DB 0F 2E |ENU **...-.:....|
000007B0: 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 |..".":.UT,UU%:..|
000007C0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000007D0: 2C 39 3A 97 35 33 32 38 30 2C 38 00 E1 0F 2F 01 |,9:.53280,8.../.|
000007E0: 3A 00 FE 0F 31 01 99 22 13 20 20 20 20 20 20 20 |:...1..". |
000007F0: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 2D | MENU".-|
00000800: 10 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.6.." ----------|
00000810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 57 10 |------------".W.|
00000830: 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 |;..".. 1. |
00000840: 20 20 42 45 47 49 4E 20 57 4F 52 4C 44 20 43 41 | BEGIN WORLD CA|
00000850: 50 49 54 41 4C 53 22 00 81 10 40 01 99 22 11 11 |PITALS"...@.."..|
00000860: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD|
00000870: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000880: 22 00 AB 10 45 01 99 22 11 11 20 20 20 20 20 20 |"...E..".. |
00000890: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN|
000008A0: 53 54 52 55 43 54 49 4F 4E 53 22 00 D8 10 4A 01 |STRUCTIONS"...J.|
000008B0: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. |
000008C0: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 |MODIFICATION OF |
000008D0: 50 52 4F 47 52 41 4D 22 00 F4 10 4F 01 99 22 11 |PROGRAM"...O..".|
000008E0: 11 20 20 20 20 20 20 20 35 2E 20 20 20 51 55 49 |. 5. QUI|
000008F0: 54 11 11 22 00 23 11 54 01 99 22 20 2D 2D 2D 2D |T..".#.T.." ----|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 22 00 4E 11 59 01 99 22 11 11 20 20 20 20 |--".N.Y..".. |
00000930: 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 | PRESS A NUMBE|
00000940: 52 20 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 77 |R KEY (1-5) ";.w|
00000950: 11 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 |.^.UL.1:US$."123|
00000960: 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 |45":.35:. INPUT |
00000970: 52 4F 55 54 49 4E 45 00 82 11 60 01 55 53 24 B2 |ROUTINE...`.US$.|
00000980: 22 22 00 A3 11 63 01 91 C5 28 55 52 24 29 8D 31 |""...c...(UR$).1|
00000990: 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C |000,400,500,600,|
000009A0: 33 39 36 00 AC 11 68 01 89 33 30 30 00 D3 11 8B |396...h..300....|
000009B0: 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 |.. ** RE-ENABLE |
000009C0: 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 |STOP KEY AND END|
000009D0: 20 2A 2A 00 02 12 8C 01 8B C2 28 35 30 30 30 33 | **.......(50003|
000009E0: 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 |)..1..(50003)..1|
000009F0: 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 |60..(50003)..0.3|
00000A00: 39 39 00 2C 12 8D 01 9E 55 55 AA 37 31 3A 8B C2 |99.,....UU.71:..|
00000A10: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000A20: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 38 12 8E |,6:.53280,14.8..|
00000A30: 01 99 22 9A 93 22 3A 80 00 43 12 8F 01 8D 38 37 |.."..":..C....87|
00000A40: 35 3A 8E 00 64 12 90 01 8F 20 2A 2A 20 53 54 55 |5:..d.... ** STU|
00000A50: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000A60: 53 20 2A 2A 00 93 12 95 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000A70: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000A80: 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 |0..53281,0:.5328|
00000A90: 30 2C 30 00 B4 12 9A 01 55 50 B2 30 3A 55 47 24 |0,0.....UP.0:UG$|
00000AA0: B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A |.".TUDENT .NST":|
00000AB0: 8D 38 35 30 00 E5 12 CC 01 99 22 11 11 20 CE 4F |.850......".. .O|
00000AC0: 54 45 3A 11 11 11 9D 9D D4 4F 20 41 44 56 41 4E |TE:......O ADVAN|
00000AD0: 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 45 53 |CE FROM ONE QUES|
00000AE0: 54 49 4F 4E 22 00 0F 13 D6 01 99 22 11 20 54 4F |TION"......". TO|
00000AF0: 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 | THE NEXT PRESS |
00000B00: 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 2E 22 00 |THE ..... BAR.".|
00000B10: 3C 13 DB 01 99 22 11 11 20 20 20 20 C9 46 20 41 |<....".. .F A|
00000B20: 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 |T ANY TIME YOU W|
00000B30: 49 53 48 20 54 4F 20 56 49 45 57 22 00 62 13 E0 |ISH TO VIEW".b..|
00000B40: 01 99 22 11 20 54 48 45 20 4D 45 4E 55 20 50 52 |..". THE MENU PR|
00000B50: 45 53 53 20 3C 48 3E 20 3C 52 45 54 55 52 4E 3E |ESS <H> <RETURN>|
00000B60: 2E 22 00 90 13 E1 01 99 22 11 11 20 20 20 20 D0 |."......".. .|
00000B70: 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 20 41 46 |RESS <RETURN> AF|
00000B80: 54 45 52 20 45 41 43 48 20 45 4E 54 52 59 2E 22 |TER EACH ENTRY."|
00000B90: 00 99 13 E5 01 8D 38 33 35 00 AD 13 EA 01 8B 55 |......835......U|
00000BA0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B3 13 |Z.1..UP%:.217...|
00000BB0: F3 01 8E 00 D4 13 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000BC0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000BD0: 53 20 2A 2A 00 04 14 F5 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000BE0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000BF0: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000C00: 30 2C 31 30 00 25 14 F6 01 55 50 B2 30 3A 55 47 |0,10.%...UP.0:UG|
00000C10: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000C20: 3A 8D 38 35 30 00 53 14 F7 01 99 22 11 11 20 20 |:.850.S....".. |
00000C30: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000C40: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000C50: 2C 11 22 00 7C 14 F8 01 99 22 20 20 20 54 48 49 |,.".|...." THI|
00000C60: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000C70: 54 48 45 20 50 55 42 4C 49 43 11 22 00 A8 14 F9 |THE PUBLIC."....|
00000C80: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000C90: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000CA0: 45 20 43 41 53 45 11 22 00 C5 14 FA 01 99 22 20 |E CASE."......" |
00000CB0: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000CC0: 3A 11 11 11 22 00 EF 14 FB 01 99 22 20 20 20 20 |:..."......" |
00000CD0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000CE0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000CF0: 12 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000D00: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000D10: 45 2E 00 36 15 FD 01 99 22 20 20 20 20 20 20 20 |E..6...." |
00000D20: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000D30: 54 41 52 49 4F 22 00 58 15 FE 01 99 22 20 20 20 |TARIO".X...." |
00000D40: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000D50: CD 31 D7 20 32 CB 34 22 00 78 15 FF 01 99 22 20 |.1. 2.4".x...." |
00000D60: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000D70: 39 39 2D 34 32 39 32 22 00 8E 15 00 02 55 50 B2 |99-4292".....UP.|
00000D80: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 B9 |1:. 835:. 850:..|
00000D90: 15 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000DA0: 52 41 4D 20 CE 41 4D 45 3A 20 D7 4F 52 4C 44 20 |RAM .AME: .ORLD |
00000DB0: C3 41 50 49 54 41 4C 53 11 00 DB 15 02 02 99 22 |.APITALS......."|
00000DC0: 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 | .RITTEN .Y |
00000DD0: 20 3A 20 D5 4E 4B 4E 4F 57 4E 11 00 00 16 03 02 | : .NKNOWN......|
00000DE0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
00000DF0: C2 59 20 3A 20 CA 41 4D 45 53 20 CD 55 4E 52 4F |.Y : .AMES .UNRO|
00000E00: 00 2B 16 04 02 99 22 20 20 20 20 20 11 D4 48 49 |.+...." ..HI|
00000E10: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 |S PROGRAM WILL R|
00000E20: 55 4E 20 4F 4E 20 41 4E 59 11 11 00 4B 16 07 02 |UN ON ANY...K...|
00000E30: 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 |." ... 6|
00000E40: 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 70 16 08 02 |4 ..........p...|
00000E50: 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF |." .....|
00000E60: C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 |.... 64 ........|
00000E70: 00 79 16 44 02 8D 38 33 35 00 8D 16 4E 02 8B 55 |.y.D..835...N..U|
00000E80: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 93 16 |Z.1..UP%:.217...|
00000E90: 57 02 8E 00 B9 16 58 02 8F 20 2A 2A 20 50 52 4F |W.....X.. ** PRO|
00000EA0: 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F |GRAM MODIFICATIO|
00000EB0: 4E 20 49 4E 53 54 20 2A 2A 00 CA 16 59 02 99 22 |N INST **...Y.."|
00000EC0: 93 22 3A 97 55 54 2C 55 4C 25 00 EF 16 5D 02 55 |.":.UT,UL%...].U|
00000ED0: 48 B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D0 52 |H.1:UP.0:UG$.".R|
00000EE0: 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 |OGRAM .OD":.850.|
00000EF0: 20 17 5E 02 99 22 11 11 11 11 11 11 20 20 20 20 | .^.."...... |
00000F00: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 4D 41 59 |.HIS PROGRAM MAY|
00000F10: 20 42 45 20 4D 4F 44 49 46 49 45 44 20 53 4F 22 | BE MODIFIED SO"|
00000F20: 00 4B 17 5F 02 99 22 11 20 20 20 4F 4E 4C 59 20 |.K._..". ONLY |
00000F30: 43 45 52 54 41 49 4E 20 41 52 45 41 53 20 4F 46 |CERTAIN AREAS OF|
00000F40: 20 54 48 45 20 57 4F 52 4C 44 22 00 79 17 61 02 | THE WORLD".y.a.|
00000F50: 99 22 11 20 20 20 41 52 45 20 52 45 50 52 45 53 |.". ARE REPRES|
00000F60: 45 4E 54 45 44 20 4F 52 20 45 4C 53 45 20 41 44 |ENTED OR ELSE AD|
00000F70: 44 49 54 49 4F 4E 41 4C 22 00 9C 17 63 02 99 22 |DITIONAL"...c.."|
00000F80: 11 20 20 20 43 4F 55 4E 54 52 49 45 53 20 4D 41 |. COUNTRIES MA|
00000F90: 59 20 42 45 20 41 44 44 45 44 2E 22 00 AF 17 67 |Y BE ADDED."...g|
00000FA0: 02 55 48 B2 31 3A 8D 38 33 35 3A 8D 38 35 30 00 |.UH.1:.835:.850.|
00000FB0: DF 17 6C 02 99 22 11 11 11 11 11 20 20 D4 4F 20 |..l.."..... .O |
00000FC0: 41 44 44 20 4F 52 20 43 48 41 4E 47 45 20 54 48 |ADD OR CHANGE TH|
00000FD0: 45 20 43 4F 55 4E 54 52 49 45 53 20 49 4E 22 00 |E COUNTRIES IN".|
00000FE0: 0D 18 6D 02 99 22 11 20 54 48 49 53 20 50 52 4F |..m..". THIS PRO|
00000FF0: 47 52 41 4D 2C 20 59 4F 55 20 4D 41 59 20 41 4C |GRAM, YOU MAY AL|
00001000: 54 45 52 20 54 48 45 20 44 41 54 41 22 00 33 18 |TER THE DATA".3.|
00001010: 6E 02 99 22 11 20 53 54 41 54 45 4D 45 4E 54 53 |n..". STATEMENTS|
00001020: 20 54 48 41 54 20 41 52 45 20 46 4F 55 4E 44 20 | THAT ARE FOUND |
00001030: 49 4E 22 00 5E 18 6F 02 99 22 11 20 4C 49 4E 45 |IN".^.o..". LINE|
00001040: 53 20 31 36 31 30 2D 31 38 30 30 2E 20 C9 4E 20 |S 1610-1800. .N |
00001050: 54 48 45 20 44 41 54 41 2C 20 54 48 45 22 00 88 |THE DATA, THE"..|
00001060: 18 70 02 99 22 11 20 43 4F 55 4E 54 52 49 45 53 |.p..". COUNTRIES|
00001070: 20 41 52 45 20 41 4C 57 41 59 53 20 46 4F 4C 4C | ARE ALWAYS FOLL|
00001080: 4F 57 45 44 20 42 59 22 00 A1 18 72 02 99 22 11 |OWED BY"...r..".|
00001090: 20 54 48 45 49 52 20 43 41 50 49 54 41 4C 53 2E | THEIR CAPITALS.|
000010A0: 22 00 AA 18 94 02 8D 38 33 35 00 BE 18 B2 02 8B |"......835......|
000010B0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 C4 |UZ.1..UP%:.217..|
000010C0: 18 BB 02 8E 00 E9 18 BC 02 8F 20 2A 2A 20 54 4F |.......... ** TO|
000010D0: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
000010E0: 42 4D 34 30 33 32 20 2A 2A 00 1F 19 C6 02 99 22 |BM4032 **......"|
000010F0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
00001100: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
00001110: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
00001120: 55 19 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |U...." LOAD|
00001130: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001140: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001150: 11 11 11 11 22 00 60 19 DA 02 9E 55 55 AA 37 31 |....".`....UU.71|
00001160: 00 66 19 E4 02 80 00 86 19 20 03 8F 20 2A 2A 20 |.f....... .. ** |
00001170: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001180: 47 20 45 20 2A 2A 00 BA 19 22 03 99 22 93 11 1D |G E **...".."...|
00001190: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
000011A0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
000011B0: 34 3A 97 35 33 32 38 31 2C 36 00 D0 19 24 03 81 |4:.53281,6...$..|
000011C0: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
000011D0: 00 E8 19 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |...&..I.1.22:.".|
000011E0: 9D 12 A6 92 22 3B 3A 82 00 00 1A 28 03 81 49 B2 |....";:....(..I.|
000011F0: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
00001200: 00 18 1A 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
00001210: 9D 12 A6 92 22 3B 3A 82 00 3D 1A 2C 03 99 22 13 |....";:..=.,..".|
00001220: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001230: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 5F 1A |.......... .._.|
00001240: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00001250: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
00001260: 80 1A 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..0.."..........|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001280: 00 9E 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...2..".........|
00001290: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 C6 |........... ...|
000012A0: 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
000012B0: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
000012C0: 20 52 20 45 11 11 00 E9 1A 36 03 99 22 1D 1D 1D | R E.....6.."...|
000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
000012E0: 41 54 49 4F 4E 41 4C 11 11 00 08 1B 38 03 99 22 |ATIONAL.....8.."|
000012F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001300: 53 4F 46 54 57 41 52 45 00 23 1B 3A 03 8F 20 2A |SOFTWARE.#.:.. *|
00001310: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
00001320: 20 2A 2A 00 5B 1B 3B 03 99 C8 28 55 44 24 2C 32 | **.[.;...(UD$,2|
00001330: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
00001340: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
00001350: 20 57 41 49 54 92 22 3A 49 B2 30 00 7D 1B 3C 03 | WAIT.":I.0.}.<.|
00001360: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001370: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 A1 1B |.1:.I.250.828...|
00001380: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001390: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
000013A0: 30 00 AA 1B 40 03 89 33 30 30 00 C6 1B 43 03 8F |0...@..300...C..|
000013B0: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
000013C0: 45 53 53 20 2A 2A 00 01 1C 48 03 97 55 4F 2C 30 |ESS **...H..UO,0|
000013D0: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |:..(UD$,24);"...|
000013E0: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
000013F0: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |BAR TO CONTINUE.|
00001400: 22 00 18 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |"...L..UI$:.UI$.|
00001410: B1 22 20 22 A7 38 34 34 00 1E 1C 4E 03 8E 00 3E |." ".844...N...>|
00001420: 1C 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
00001430: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 4A |IGN ROUTINE **.J|
00001440: 1C 54 03 55 50 B2 55 50 AA 31 00 74 1C 57 03 99 |.T.UP.UP.1.t.W..|
00001450: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
00001460: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
00001470: 2C 31 38 29 00 A3 1C 5C 03 99 22 20 2D 2D 2D 2D |,18)...\.." ----|
00001480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014A0: 2D 2D 22 00 B2 1C 60 03 8B 55 48 B3 B1 30 A7 38 |--"...`..UH..0.8|
000014B0: 37 30 00 E6 1C 61 03 99 C8 28 55 44 24 2C 32 34 |70...a...(UD$,24|
000014C0: 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 |);.(UP$,7);"HELP|
000014D0: 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 | - PRESS H <RE|
000014E0: 54 55 52 4E 3E 22 00 F7 1C 66 03 55 48 B2 30 3A |TURN>"...f.UH.0:|
000014F0: 99 22 13 11 22 3A 8E 00 16 1D 6B 03 8F 20 2A 2A |."..":....k.. **|
00001500: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
00001510: 41 52 4B 20 2A 2A 00 4C 1D 70 03 99 C8 28 55 44 |ARK **.L.p...(UD|
00001520: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00001530: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00001540: 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 52 1D 75 |ASE... ".R.u|
00001550: 03 8E 00 6F 1D 84 03 8F 20 2A 2A 20 53 45 54 20 |...o.... ** SET |
00001560: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
00001570: BA 1D 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |....UX$."H":.UQ%|
00001580: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
00001590: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
000015A0: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
000015B0: 36 37 3A 55 55 B2 31 30 32 34 00 F8 1D 86 03 55 |67:UU.1024.....U|
000015C0: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
000015D0: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
000015E0: 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 |M.32768:UO.158:.|
000015F0: 20 35 30 30 30 33 2C 30 00 3B 1E 87 03 8B C2 28 | 50003,0.;.....(|
00001600: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024|
00001610: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U|
00001620: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.|
00001630: 32 30 34 3A 55 55 B2 32 30 34 38 00 7A 1E 88 03 |204:UU.2048.z...|
00001640: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5|
00001650: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.|
00001660: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1|
00001670: 30 32 34 3A 55 4F B2 31 39 38 00 9E 1E 89 03 55 |024:UO.198.....U|
00001680: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00001690: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 D0 |............."..|
000016A0: 1E 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 |...UP$." |
000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000016D0: 00 1E 1F 8B 03 55 54 24 B2 22 20 57 4F 52 4C 44 |.....UT$." WORLD|
000016E0: 20 43 41 50 49 54 41 4C 53 A0 A0 A0 A0 22 3A 8F | CAPITALS....":.|
000016F0: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T|
00001700: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!|
00001710: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 24 |!!!!!!!!!!!***.$|
00001720: 1F 8C 03 8E 00 3E 1F 8E 03 8F 20 2A 2A 20 53 45 |.....>.... ** SE|
00001730: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 81 |T VARIABLES **..|
00001740: 1F 8F 03 55 47 24 B2 22 20 20 20 20 50 41 47 45 |...UG$." PAGE|
00001750: 23 22 3A 86 41 24 28 31 30 30 29 2C 42 24 28 32 |#":.A$(100),B$(2|
00001760: 32 30 29 3A 43 24 B2 22 22 3A 59 24 B2 22 22 3A |20):C$."":Y$."":|
00001770: 46 24 B2 22 22 3A 58 B2 30 3A 5A B2 30 3A 49 B2 |F$."":X.0:Z.0:I.|
00001780: 30 00 A4 1F 90 03 43 4F B2 30 3A 51 B2 30 3A 4E |0.....CO.0:Q.0:N|
00001790: B2 30 3A 43 B2 30 3A 52 B2 30 3A 54 30 B2 30 3A |.0:C.0:R.0:T0.0:|
000017A0: 4A 4B B2 30 00 AD 1F 93 03 8D 39 30 30 00 C8 1F |JK.0......900...|
000017B0: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR|
000017C0: 20 38 30 33 32 20 2A 2A 00 E6 1F 9D 03 99 22 93 | 8032 **......".|
000017D0: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
000017E0: 20 53 50 41 43 45 00 FD 1F A2 03 8B C2 28 55 42 | SPACE.......(UB|
000017F0: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 16 20 |.40)..96..700.. |
00001800: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH|
00001810: 45 43 4B 20 2A 2A 00 2A 20 A4 03 8B 20 B8 28 30 |ECK **.* ... .(0|
00001820: 29 B1 32 30 30 30 A7 39 33 37 00 58 20 A5 03 99 |).2000.937.X ...|
00001830: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN|
00001840: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE |
00001850: 45 4E 4F 55 47 48 11 22 00 7C 20 A6 03 99 22 4D |ENOUGH.".| ..."M|
00001860: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI|
00001870: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 87 20 A7 |S PROGRAM !".. .|
00001880: 03 9E 55 55 AA 37 31 00 8D 20 A8 03 80 00 A7 20 |..UU.71.. ..... |
00001890: A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 |..."..":..(50003|
000018A0: 29 B2 30 A7 39 36 32 00 D6 20 AC 03 8F 20 2A 2A |).0.962.. ... **|
000018B0: 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 | BASIC 2.0 OR |
000018C0: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE|
000018D0: 54 55 50 20 2A 2A 00 14 21 AD 03 97 31 30 37 35 |TUP **..!...1075|
000018E0: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.|
000018F0: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4|
00001900: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081|
00001910: 2C 31 34 35 00 4A 21 AE 03 97 31 30 39 31 2C 31 |,145.J!...1091,1|
00001920: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10|
00001930: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234|
00001940: 3A 97 31 31 30 33 2C 31 33 33 00 6C 21 AF 03 97 |:.1103,133.l!...|
00001950: 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 |1104,145:.1105,2|
00001960: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 83 21 B1 |34:.1082,234..!.|
00001970: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.|
00001980: 39 35 35 00 B2 21 B6 03 97 31 30 39 33 2C 38 38 |955..!...1093,88|
00001990: 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 |:.1094,228:.1097|
000019A0: 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 |,85:.1102,228:.9|
000019B0: 36 35 00 C7 21 BB 03 8B C2 28 35 30 30 30 33 29 |65..!....(50003)|
000019C0: B3 B1 31 A7 39 39 30 00 F6 21 C0 03 97 31 30 39 |..1.990..!...109|
000019D0: 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 |3,49:.1094,230:.|
000019E0: 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 |1097,46:.1102,23|
000019F0: 30 3A 89 39 36 35 00 30 22 C2 03 97 32 30 39 39 |0:.965.0"...2099|
00001A00: 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 |,141:.2100,20:.2|
00001A10: 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 |101,3:.2103,8:.2|
00001A20: 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 |104,141:.2105,21|
00001A30: 00 6C 22 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 |.l"...2106,3:.21|
00001A40: 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A |15,145:.2117,52:|
00001A50: 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C |.2118,234:.2121,|
00001A60: 34 39 3A 97 32 31 32 32 2C 31 34 31 00 A6 22 C4 |49:.2122,141..".|
00001A70: 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C |..2123,20:.2124,|
00001A80: 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 |3:.2126,234:.212|
00001A90: 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 |7,141:.2128,21:.|
00001AA0: 32 31 32 39 2C 33 00 C4 22 C5 03 9E 55 55 AA 34 |2129,3.."...UU.4|
00001AB0: 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 |8:. DISABLE STOP|
00001AC0: 20 4B 45 59 00 D5 22 CA 03 8D 38 30 30 3A 8F 20 | KEY.."...800:. |
00001AD0: 54 49 54 4C 45 00 E5 22 D4 03 89 33 30 30 3A 8F |TITLE.."...300:.|
00001AE0: 20 4D 45 4E 55 00 16 23 DE 03 99 22 93 54 48 45 | MENU..#...".THE|
00001AF0: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO|
00001B00: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI|
00001B10: 4E 45 21 22 3A 80 00 4B 23 E8 03 8B 55 5A B2 31 |NE!":..K#...UZ.1|
00001B20: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:|
00001B30: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA|
00001B40: 52 54 53 20 48 45 52 45 20 2A 2A 00 77 23 E9 03 |RTS HERE **.w#..|
00001B50: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000|
00001B60: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
00001B70: 33 32 38 30 2C 31 34 00 93 23 EA 03 8F 2A 2A 2A |3280,14..#...***|
00001B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B90: 2A 2A 2A 00 AF 23 EB 03 8F 2A 2A 4D 45 4E 55 20 |***..#...**MENU |
00001BA0: 41 44 44 45 44 20 41 4E 44 20 50 47 4D 2A 2A 00 |ADDED AND PGM**.|
00001BB0: CB 23 EC 03 8F 2A 2A 20 20 20 4D 4F 44 49 46 49 |.#...** MODIFI|
00001BC0: 45 44 20 42 59 20 20 20 20 2A 2A 00 E7 23 ED 03 |ED BY **..#..|
00001BD0: 8F 2A 2A 20 20 20 4A 41 4D 45 53 20 4D 55 4E 52 |.** JAMES MUNR|
00001BE0: 4F 20 20 20 20 2A 2A 00 03 24 EE 03 8F 2A 2A 20 |O **..$...** |
00001BF0: 20 20 31 39 38 32 20 30 36 20 33 30 20 20 20 20 | 1982 06 30 |
00001C00: 20 2A 2A 00 1F 24 EF 03 8F 2A 2A 20 4F 53 48 41 | **..$...** OSHA|
00001C10: 57 41 20 2C 20 4F 4E 54 41 52 49 4F 20 2A 2A 00 |WA , ONTARIO **.|
00001C20: 3D 24 F0 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |=$...***********|
00001C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B 24 |*************.[$|
00001C40: F2 03 8F 2A 20 52 45 56 49 53 45 44 20 41 4E 44 |...* REVISED AND|
00001C50: 20 55 50 47 52 41 44 45 44 20 2A 00 79 24 F4 03 | UPGRADED *.y$..|
00001C60: 8F 2A 20 46 4F 52 20 43 4F 4D 4D 4F 44 4F 52 45 |.* FOR COMMODORE|
00001C70: 20 36 34 20 42 59 20 20 2A 00 97 24 F6 03 8F 2A | 64 BY *..$...*|
00001C80: 20 20 20 20 20 20 44 45 52 45 4B 20 4C 45 45 20 | DEREK LEE |
00001C90: 20 20 20 20 20 20 2A 00 B5 24 F8 03 8F 2A 20 20 | *..$...* |
00001CA0: 20 20 20 20 4A 55 4C 59 20 32 37 2F 38 32 20 20 | JULY 27/82 |
00001CB0: 20 20 20 20 2A 00 D3 24 FA 03 8F 2A 2A 2A 2A 2A | *..$...*****|
00001CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CD0: 2A 2A 2A 00 08 25 4D 04 53 45 24 B2 22 11 12 20 |***..%M.SE$.".. |
00001CE0: 57 48 41 54 20 49 53 20 54 48 45 20 4E 41 4D 45 |WHAT IS THE NAME|
00001CF0: 20 4F 46 20 54 48 45 20 43 41 50 49 54 41 4C 20 | OF THE CAPITAL |
00001D00: 43 49 54 59 20 4F 46 22 00 32 25 5F 04 8C 3A 99 |CITY OF".2%_..:.|
00001D10: 22 93 22 3A 4E B2 AB 31 3A 43 B2 30 3A 52 49 B2 |".":N..1:C.0:RI.|
00001D20: 30 3A 57 B2 30 3A 97 55 54 2C 55 55 25 3A 8D 38 |0:W.0:.UT,UU%:.8|
00001D30: 37 35 00 42 25 60 04 81 20 49 B2 31 20 A4 20 31 |75.B%`.. I.1 . 1|
00001D40: 30 30 00 54 25 6A 04 87 20 41 24 28 49 29 2C 42 |00.T%j.. A$(I),B|
00001D50: 24 28 49 29 00 72 25 74 04 8B 41 24 28 49 29 B2 |$(I).r%t..A$(I).|
00001D60: 22 39 39 39 22 A7 54 30 B2 49 AB 31 3A 49 B2 31 |"999".T0.I.1:I.1|
00001D70: 30 31 00 7A 25 7E 04 82 20 49 00 93 25 7F 04 55 |01.z%~.. I..%..U|
00001D80: 50 B2 30 3A 55 47 24 B2 22 51 55 49 5A 22 3A 8D |P.0:UG$."QUIZ":.|
00001D90: 38 35 30 00 C2 25 88 04 99 22 11 20 54 48 49 53 |850..%...". THIS|
00001DA0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 54 45 | PROGRAM WILL TE|
00001DB0: 53 54 20 59 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 |ST YOUR KNOWLEDG|
00001DC0: 45 22 00 E8 25 92 04 99 A3 37 29 22 11 12 20 4F |E"..%....7)".. O|
00001DD0: 46 20 57 4F 52 4C 44 20 43 41 50 49 54 41 4C 20 |F WORLD CAPITAL |
00001DE0: 43 49 54 49 45 53 2E 22 00 12 26 9C 04 99 22 11 |CITIES."..&...".|
00001DF0: 20 41 46 54 45 52 20 45 41 43 48 20 53 54 41 54 | AFTER EACH STAT|
00001E00: 45 20 50 4C 45 41 53 45 20 54 59 50 45 20 54 48 |E PLEASE TYPE TH|
00001E10: 45 22 00 41 26 A6 04 99 22 11 20 41 50 50 52 4F |E".A&...". APPRO|
00001E20: 50 52 49 41 54 45 20 4E 41 4D 45 20 54 48 45 4E |PRIATE NAME THEN|
00001E30: 20 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 2E | PRESS <RETURN>.|
00001E40: 22 00 70 26 A7 04 99 22 11 20 54 4F 20 53 4B 49 |".p&...". TO SKI|
00001E50: 50 20 41 20 43 4F 55 4E 54 52 59 2C 50 52 45 53 |P A COUNTRY,PRES|
00001E60: 53 20 3C 4E 3E 20 3C 52 45 54 55 52 4E 3E 2E 22 |S <N> <RETURN>."|
00001E70: 00 A0 26 BA 04 99 22 11 20 57 48 49 43 48 20 57 |..&...". WHICH W|
00001E80: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO|
00001E90: 20 53 54 41 52 54 20 57 49 54 48 3F 20 2D 2D 22 | START WITH? --"|
00001EA0: 00 C5 26 C4 04 99 22 11 20 20 20 20 20 20 12 31 |..&...". .1|
00001EB0: 92 20 47 49 56 45 4E 20 54 48 45 20 43 41 50 49 |. GIVEN THE CAPI|
00001EC0: 54 41 4C 53 22 00 EB 26 C6 04 99 22 11 20 20 20 |TALS"..&...". |
00001ED0: 20 20 20 12 32 92 20 47 49 56 45 4E 20 54 48 45 | .2. GIVEN THE|
00001EE0: 20 43 4F 55 4E 54 52 49 45 53 22 00 04 27 C7 04 | COUNTRIES"..'..|
00001EF0: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |."............. |
00001F00: 3F 1D 22 3B 00 22 27 C9 04 55 4C B2 31 3A 55 53 |?.";."'..UL.1:US|
00001F10: 24 B2 22 31 32 48 22 3A 8D 33 35 3A 5A 24 B2 55 |$."12H":.35:Z$.U|
00001F20: 52 24 00 2B 27 CA 04 8D 38 37 35 00 3C 27 CE 04 |R$.+'...875.<'..|
00001F30: 8B 5A 24 B2 22 31 22 A7 31 39 34 30 00 4A 27 D8 |.Z$."1".1940.J'.|
00001F40: 04 8B 51 B2 31 A7 31 39 37 30 00 53 27 DD 04 4E |..Q.1.1970.S'..N|
00001F50: B2 AB 31 00 63 27 E2 04 4E B2 4E AA 31 3A 43 B2 |..1.c'..N.N.1:C.|
00001F60: 43 AA 31 00 76 27 EC 04 49 B2 B5 28 54 30 AC BB |C.1.v'..I..(T0..|
00001F70: 28 31 29 29 AA 31 00 8C 27 F6 04 8B 20 41 24 28 |(1)).1..'... A$(|
00001F80: 49 29 B2 22 2A 22 A7 20 31 32 36 30 00 98 27 00 |I)."*". 1260..'.|
00001F90: 05 43 4F B2 43 4F AA 31 00 AF 27 0A 05 46 24 B2 |.CO.CO.1..'..F$.|
00001FA0: 41 24 28 49 29 3A 41 24 28 49 29 B2 22 2A 22 00 |A$(I):A$(I)."*".|
00001FB0: B7 27 14 05 51 B2 30 00 D7 27 1D 05 55 50 B2 4E |.'..Q.0..'..UP.N|
00001FC0: 3A 55 47 24 B2 22 20 51 55 45 53 54 49 4F 4E 20 |:UG$." QUESTION |
00001FD0: 23 22 3A 8D 38 35 30 00 E1 27 1E 05 99 20 53 45 |#":.850..'... SE|
00001FE0: 24 00 F2 27 28 05 99 A3 36 29 46 24 3B 22 3F 20 |$..'(...6)F$;"? |
00001FF0: 22 3B 00 2C 28 32 05 55 4C B2 32 30 3A 55 53 24 |";.,(2.UL.20:US$|
00002000: B2 22 3F 51 57 45 52 54 59 55 49 4F 50 4C 4B 4A |."?QWERTYUIOPLKJ|
00002010: 48 47 46 44 53 41 5A 58 43 56 42 4E 4D 20 22 3A |HGFDSAZXCVBNM ":|
00002020: 8D 33 35 3A 5A 24 B2 55 52 24 3A 99 00 3C 28 33 |.35:Z$.UR$:..<(3|
00002030: 05 8B 5A 24 B2 22 51 22 20 A7 20 8E 00 4F 28 3C |..Z$."Q" . ..O(<|
00002040: 05 8B 42 24 28 49 29 B2 5A 24 A7 31 34 31 30 00 |..B$(I).Z$.1410.|
00002050: 62 28 46 05 8B 5A 24 B3 B1 22 4E 22 A7 89 31 33 |b(F..Z$.."N"..13|
00002060: 38 30 00 72 28 50 05 8B 43 4F B2 54 30 89 31 39 |80.r(P..CO.T0.19|
00002070: 30 30 00 7C 28 5A 05 89 32 30 37 30 00 A5 28 64 |00.|(Z..2070..(d|
00002080: 05 99 22 20 20 20 20 49 4E 43 4F 52 52 45 43 54 |.." INCORRECT|
00002090: 2E 2E 2E 2E 2E 54 52 59 20 41 47 41 49 4E 22 3A |.....TRY AGAIN":|
000020A0: 57 B2 57 AA 31 00 B9 28 6E 05 51 B2 51 AA 31 3A |W.W.1..(n.Q.Q.1:|
000020B0: 8B 51 B1 32 A7 31 38 30 39 00 C3 28 78 05 89 31 |.Q.2.1809..(x..1|
000020C0: 33 31 30 00 EF 28 82 05 52 49 B2 52 49 AA 31 3A |310..(..RI.RI.1:|
000020D0: 99 22 93 11 11 11 11 11 11 22 3A 8B 43 B2 30 A7 |.".......":.C.0.|
000020E0: 43 B2 31 3A 52 B2 B5 28 34 AC BB 28 31 29 29 00 |C.1:R..(4..(1)).|
000020F0: FD 28 8C 05 8B 52 B2 31 A7 31 34 37 30 00 0B 29 |.(...R.1.1470..)|
00002100: 96 05 8B 52 B2 32 A7 31 34 38 30 00 19 29 A0 05 |...R.2.1480..)..|
00002110: 8B 52 B2 33 A7 31 34 39 30 00 27 29 AA 05 8B 52 |.R.3.1490.')...R|
00002120: B2 34 A7 31 35 30 30 00 52 29 B4 05 99 22 11 20 |.4.1500.R)...". |
00002130: 20 20 43 4F 52 52 45 43 54 2E 2E 59 4F 55 27 52 | CORRECT..YOU'R|
00002140: 45 20 41 20 47 45 4E 49 55 53 21 22 3A 89 31 35 |E A GENIUS!":.15|
00002150: 33 30 00 6D 29 BE 05 99 22 11 20 20 20 52 49 47 |30.m)...". RIG|
00002160: 48 54 20 4F 4E 21 22 3A 89 31 35 33 30 00 89 29 |HT ON!":.1530..)|
00002170: C8 05 99 22 11 20 20 20 41 4C 4C 20 52 49 47 48 |...". ALL RIGH|
00002180: 54 21 22 3A 89 31 35 33 30 00 A7 29 D2 05 99 22 |T!":.1530..)..."|
00002190: 11 20 20 20 56 45 52 59 20 47 4F 4F 44 21 21 21 |. VERY GOOD!!!|
000021A0: 22 3A 89 31 35 33 30 00 C2 29 DC 05 99 22 11 20 |":.1530..)...". |
000021B0: 20 20 59 4F 55 27 52 45 20 54 4F 4F 20 4D 55 43 | YOU'RE TOO MUC|
000021C0: 48 22 00 E8 29 FA 05 99 22 11 20 20 20 59 4F 55 |H"..)...". YOU|
000021D0: 52 20 53 43 4F 52 45 20 49 53 22 3B 52 49 3B 22 |R SCORE IS";RI;"|
000021E0: 20 43 4F 52 52 45 43 54 00 02 2A 04 06 99 22 11 | CORRECT..*...".|
000021F0: 20 20 20 41 4E 44 20 22 57 22 20 57 52 4F 4E 47 | AND "W" WRONG|
00002200: 2E 22 00 47 2A 0E 06 99 22 11 20 20 20 44 4F 20 |.".G*...". DO |
00002210: 59 4F 55 20 57 49 53 48 20 54 4F 20 43 4F 4E 54 |YOU WISH TO CONT|
00002220: 49 4E 55 45 28 59 2F 4E 29 3F 20 22 3B 3A 55 4C |INUE(Y/N)? ";:UL|
00002230: B2 31 3A 55 53 24 B2 22 59 4E 48 22 3A 8D 33 35 |.1:US$."YNH":.35|
00002240: 3A 43 24 B2 55 52 24 00 59 2A 18 06 8B 43 24 B2 |:C$.UR$.Y*...C$.|
00002250: 22 59 22 A7 89 31 35 39 30 00 6B 2A 22 06 8B 43 |"Y"..1590.k*"..C|
00002260: 24 B2 22 4E 22 A7 89 31 38 37 35 00 7B 2A 36 06 |$."N"..1875.{*6.|
00002270: 8B 43 4F B2 54 30 89 31 39 30 30 00 85 2A 40 06 |.CO.T0.1900..*@.|
00002280: 89 31 32 35 30 00 D1 2A 4A 06 83 41 46 47 48 41 |.1250..*J..AFGHA|
00002290: 4E 49 53 54 41 4E 2C 4B 41 42 55 4C 2C 41 4E 47 |NISTAN,KABUL,ANG|
000022A0: 4F 4C 41 2C 4C 55 41 4E 44 41 2C 41 4C 47 45 52 |OLA,LUANDA,ALGER|
000022B0: 49 41 2C 41 4C 47 49 45 52 53 2C 41 52 47 45 4E |IA,ALGIERS,ARGEN|
000022C0: 54 49 4E 41 2C 42 55 45 4E 4F 53 20 41 49 52 45 |TINA,BUENOS AIRE|
000022D0: 53 00 17 2B 54 06 83 41 55 53 54 52 41 4C 49 41 |S..+T..AUSTRALIA|
000022E0: 2C 43 41 4E 42 45 52 52 41 2C 41 55 53 54 52 49 |,CANBERRA,AUSTRI|
000022F0: 41 2C 56 49 45 4E 4E 41 2C 42 45 4C 47 49 55 4D |A,VIENNA,BELGIUM|
00002300: 2C 42 52 55 53 53 45 4C 53 2C 42 4F 4C 49 56 49 |,BRUSSELS,BOLIVI|
00002310: 41 2C 53 55 43 52 45 00 5D 2B 5E 06 83 42 52 41 |A,SUCRE.]+^..BRA|
00002320: 5A 49 4C 2C 42 52 41 53 49 4C 49 41 2C 42 55 4C |ZIL,BRASILIA,BUL|
00002330: 47 41 52 49 41 2C 53 4F 46 49 41 2C 42 55 52 4D |GARIA,SOFIA,BURM|
00002340: 41 2C 52 41 4E 47 4F 4F 4E 2C 43 41 4D 42 4F 44 |A,RANGOON,CAMBOD|
00002350: 49 41 2C 50 48 4E 4F 4D 20 50 45 4E 48 00 A3 2B |IA,PHNOM PENH..+|
00002360: 68 06 83 43 41 4E 41 44 41 2C 4F 54 54 41 57 41 |h..CANADA,OTTAWA|
00002370: 2C 43 48 49 4C 45 2C 53 41 4E 54 49 41 47 4F 2C |,CHILE,SANTIAGO,|
00002380: 43 4F 4C 55 4D 42 49 41 2C 42 4F 47 4F 54 41 2C |COLUMBIA,BOGOTA,|
00002390: 43 4F 53 54 41 20 52 49 43 41 2C 53 41 4E 20 4A |COSTA RICA,SAN J|
000023A0: 4F 53 45 00 EC 2B 72 06 83 43 55 42 41 2C 48 41 |OSE..+r..CUBA,HA|
000023B0: 56 41 4E 41 2C 43 59 50 52 55 53 2C 4E 49 43 4F |VANA,CYPRUS,NICO|
000023C0: 53 49 41 2C 43 5A 45 43 48 4F 53 4C 4F 56 41 4B |SIA,CZECHOSLOVAK|
000023D0: 49 41 2C 50 52 41 47 55 45 2C 44 45 4E 4D 41 52 |IA,PRAGUE,DENMAR|
000023E0: 4B 2C 43 4F 50 45 4E 48 41 47 45 4E 00 2C 2C 7C |K,COPENHAGEN.,,||
000023F0: 06 83 44 4F 4D 49 4E 49 43 41 4E 20 52 45 50 55 |..DOMINICAN REPU|
00002400: 42 4C 49 43 2C 53 41 4E 54 4F 20 44 4F 4D 49 4E |BLIC,SANTO DOMIN|
00002410: 47 4F 2C 45 51 55 41 44 4F 52 2C 51 55 49 54 4F |GO,EQUADOR,QUITO|
00002420: 2C 45 47 59 50 54 2C 43 41 49 52 4F 00 70 2C 86 |,EGYPT,CAIRO.p,.|
00002430: 06 83 45 4C 20 53 41 4C 56 41 44 4F 52 2C 53 41 |..EL SALVADOR,SA|
00002440: 4E 20 53 41 4C 56 41 44 4F 52 2C 45 54 48 49 4F |N SALVADOR,ETHIO|
00002450: 50 49 41 2C 41 44 44 49 53 20 41 42 41 42 41 2C |PIA,ADDIS ABABA,|
00002460: 46 49 4E 4C 41 4E 44 2C 48 45 4C 53 49 4E 4B 49 |FINLAND,HELSINKI|
00002470: 00 B6 2C 90 06 83 46 52 41 4E 43 45 2C 50 41 52 |..,...FRANCE,PAR|
00002480: 49 53 2C 57 45 53 54 20 47 45 52 4D 41 4E 59 2C |IS,WEST GERMANY,|
00002490: 42 4F 4E 4E 2C 45 41 53 54 20 47 45 52 4D 41 4E |BONN,EAST GERMAN|
000024A0: 59 2C 42 45 52 4C 49 4E 2C 47 52 45 45 43 45 2C |Y,BERLIN,GREECE,|
000024B0: 41 54 48 45 4E 53 00 E6 2C 9A 06 83 47 55 41 54 |ATHENS..,...GUAT|
000024C0: 45 4D 41 4C 41 2C 47 55 41 54 45 4D 41 4C 41 20 |EMALA,GUATEMALA |
000024D0: 43 49 54 59 2C 47 55 59 41 4E 41 2C 47 45 4F 52 |CITY,GUYANA,GEOR|
000024E0: 47 45 54 4F 57 4E 00 FD 2C A4 06 83 49 43 45 4C |GETOWN..,...ICEL|
000024F0: 41 4E 44 2C 52 45 59 4B 4A 41 56 49 4B 00 3A 2D |AND,REYKJAVIK.:-|
00002500: AE 06 83 49 4E 44 49 41 2C 4E 45 57 20 44 45 4C |...INDIA,NEW DEL|
00002510: 48 49 2C 49 52 41 4E 2C 54 45 48 52 41 4E 2C 49 |HI,IRAN,TEHRAN,I|
00002520: 52 41 51 2C 42 41 47 48 44 41 44 2C 49 52 45 4C |RAQ,BAGHDAD,IREL|
00002530: 41 4E 44 2C 44 55 42 4C 49 4E 00 85 2D B8 06 83 |AND,DUBLIN..-...|
00002540: 49 53 52 41 45 4C 2C 4A 45 52 55 53 41 4C 45 4D |ISRAEL,JERUSALEM|
00002550: 2C 49 54 41 4C 59 2C 52 4F 4D 45 2C 4A 41 4D 41 |,ITALY,ROME,JAMA|
00002560: 49 43 41 2C 4B 49 4E 47 53 54 4F 4E 2C 4A 41 50 |ICA,KINGSTON,JAP|
00002570: 41 4E 2C 54 4F 4B 59 4F 2C 4A 4F 52 44 41 4E 2C |AN,TOKYO,JORDAN,|
00002580: 41 4D 4D 41 4E 00 D1 2D C2 06 83 4B 45 4E 59 41 |AMMAN..-...KENYA|
00002590: 2C 4E 41 49 52 4F 42 49 2C 4C 45 42 41 4E 4F 4E |,NAIROBI,LEBANON|
000025A0: 2C 42 45 49 52 55 54 2C 4C 49 45 43 48 54 45 4E |,BEIRUT,LIECHTEN|
000025B0: 53 54 45 49 4E 2C 56 41 44 55 5A 2C 4C 55 58 45 |STEIN,VADUZ,LUXE|
000025C0: 4D 42 4F 55 52 47 2C 4C 55 58 45 4D 42 4F 55 52 |MBOURG,LUXEMBOUR|
000025D0: 47 00 1C 2E CC 06 83 4D 41 4C 54 41 2C 56 41 4C |G......MALTA,VAL|
000025E0: 4C 45 54 54 41 2C 4D 45 58 49 43 4F 2C 4D 45 58 |LETTA,MEXICO,MEX|
000025F0: 49 43 4F 20 43 49 54 59 2C 4D 4F 52 4F 43 43 4F |ICO CITY,MOROCCO|
00002600: 2C 52 41 42 41 54 2C 4E 45 54 48 45 52 4C 41 4E |,RABAT,NETHERLAN|
00002610: 44 53 2C 41 4D 53 54 45 52 44 41 4D 00 64 2E D6 |DS,AMSTERDAM.d..|
00002620: 06 83 4E 45 57 20 5A 45 41 4C 41 4E 44 2C 57 45 |..NEW ZEALAND,WE|
00002630: 4C 4C 49 4E 47 54 4F 4E 2C 4E 49 43 41 52 41 47 |LLINGTON,NICARAG|
00002640: 55 41 2C 4D 41 4E 41 47 55 41 2C 4E 49 47 45 52 |UA,MANAGUA,NIGER|
00002650: 49 41 2C 4C 41 47 4F 53 2C 4E 4F 52 57 41 59 2C |IA,LAGOS,NORWAY,|
00002660: 4F 53 4C 4F 00 B0 2E E0 06 83 50 41 52 41 47 55 |OSLO......PARAGU|
00002670: 41 59 2C 41 53 55 4E 43 49 4F 4E 2C 50 45 52 55 |AY,ASUNCION,PERU|
00002680: 2C 4C 49 4D 41 2C 50 4F 4C 41 4E 44 2C 57 41 52 |,LIMA,POLAND,WAR|
00002690: 53 41 57 2C 50 4F 52 54 55 47 41 4C 2C 4C 49 53 |SAW,PORTUGAL,LIS|
000026A0: 42 4F 4E 2C 53 50 41 49 4E 2C 4D 41 44 52 49 44 |BON,SPAIN,MADRID|
000026B0: 00 F5 2E EA 06 83 53 55 44 41 4E 2C 4B 48 41 52 |......SUDAN,KHAR|
000026C0: 54 4F 55 4D 2C 53 57 45 44 45 4E 2C 53 54 4F 43 |TOUM,SWEDEN,STOC|
000026D0: 4B 48 4F 4C 4D 2C 53 57 49 54 5A 45 52 4C 41 4E |KHOLM,SWITZERLAN|
000026E0: 44 2C 42 45 52 4E 2C 53 59 52 49 41 2C 44 41 4D |D,BERN,SYRIA,DAM|
000026F0: 41 53 43 55 53 00 3C 2F F4 06 83 54 48 41 49 4C |ASCUS.</...THAIL|
00002700: 41 4E 44 2C 42 41 4E 47 4B 4F 4B 2C 54 55 52 4B |AND,BANGKOK,TURK|
00002710: 45 59 2C 41 4E 4B 41 52 41 2C 55 47 41 4E 44 41 |EY,ANKARA,UGANDA|
00002720: 2C 4B 41 4D 50 41 4C 41 2C 53 4F 56 49 45 54 20 |,KAMPALA,SOVIET |
00002730: 55 4E 49 4F 4E 2C 4D 4F 53 43 4F 57 00 5E 2F FE |UNION,MOSCOW.^/.|
00002740: 06 83 55 4E 49 54 45 44 20 53 54 41 54 45 53 2C |..UNITED STATES,|
00002750: 57 41 53 48 49 4E 47 54 4F 4E 20 44 20 43 00 9E |WASHINGTON D C..|
00002760: 2F 08 07 83 55 4E 49 54 45 44 20 4B 49 4E 47 44 |/...UNITED KINGD|
00002770: 4F 4D 2C 4C 4F 4E 44 4F 4E 2C 55 52 41 47 55 41 |OM,LONDON,URAGUA|
00002780: 59 2C 4D 4F 4E 54 45 56 49 44 45 4F 2C 56 45 4E |Y,MONTEVIDEO,VEN|
00002790: 45 5A 55 45 4C 41 2C 43 41 52 41 43 41 53 00 B7 |EZUELA,CARACAS..|
000027A0: 2F 09 07 83 59 55 47 4F 53 4C 41 56 49 41 2C 42 |/...YUGOSLAVIA,B|
000027B0: 45 4C 47 52 41 44 45 00 C5 2F 11 07 8D 38 33 35 |ELGRADE../...835|
000027C0: 3A 8D 38 35 30 00 F8 2F 12 07 99 22 11 11 11 11 |:.850../..."....|
000027D0: 11 11 11 11 20 49 20 47 55 45 53 53 20 59 4F 55 |.... I GUESS YOU|
000027E0: 20 52 45 41 4C 4C 59 20 44 49 44 4E 27 54 20 4B | REALLY DIDN'T K|
000027F0: 4E 4F 57 20 49 54 21 22 00 22 30 26 07 99 22 11 |NOW IT!"."0&..".|
00002800: 20 54 48 45 20 43 4F 52 52 45 43 54 20 41 4E 53 | THE CORRECT ANS|
00002810: 57 45 52 20 49 53 20 22 3B 42 24 28 49 29 3B 22 |WER IS ";B$(I);"|
00002820: 2E 22 00 50 30 30 07 99 22 11 20 54 41 4B 45 20 |.".P00..". TAKE |
00002830: 47 4F 4F 44 20 4E 4F 54 45 20 4F 46 20 49 54 20 |GOOD NOTE OF IT |
00002840: 46 4F 52 20 46 55 54 55 52 45 20 55 53 45 21 22 |FOR FUTURE USE!"|
00002850: 00 59 30 3A 07 8D 38 33 35 00 63 30 4E 07 89 31 |.Y0:..835.c0N..1|
00002860: 32 35 30 00 73 30 53 07 8B 43 4F B2 54 30 89 31 |250.s0S..CO.T0.1|
00002870: 39 30 30 00 79 30 58 07 8E 00 A6 30 6C 07 99 22 |900.y0X....0l.."|
00002880: 93 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... |
00002890: 59 4F 55 20 48 41 56 45 20 45 58 48 41 55 53 54 |YOU HAVE EXHAUST|
000028A0: 45 44 20 4D 59 22 00 CA 30 6D 07 99 22 11 20 20 |ED MY"..0m..". |
000028B0: 20 20 20 20 20 53 55 50 50 4C 59 20 4F 46 20 43 | SUPPLY OF C|
000028C0: 4F 55 4E 54 52 49 45 53 2E 22 00 0C 31 6E 07 99 |OUNTRIES."..1n..|
000028D0: 22 11 20 20 20 20 20 20 20 4E 55 4D 42 45 52 20 |". NUMBER |
000028E0: 43 4F 52 52 45 43 54 20 22 43 3A 99 22 11 20 20 |CORRECT "C:.". |
000028F0: 20 20 20 20 20 4E 55 4D 42 45 52 20 49 4E 43 4F | NUMBER INCO|
00002900: 52 52 45 43 54 22 57 3A 8D 38 33 35 00 12 31 8A |RRECT"W:.835..1.|
00002910: 07 8E 00 18 31 94 07 8C 00 20 31 9E 07 51 B2 31 |....1.... 1..Q.1|
00002920: 00 30 31 A8 07 81 20 49 B2 31 20 A4 20 31 30 30 |.01... I.1 . 100|
00002930: 00 42 31 B2 07 87 20 42 24 28 49 29 2C 41 24 28 |.B1... B$(I),A$(|
00002940: 49 29 00 60 31 BC 07 8B 42 24 28 49 29 B2 22 39 |I).`1...B$(I)."9|
00002950: 39 39 22 A7 54 30 B2 49 AB 31 3A 89 32 30 30 30 |99".T0.I.1:.2000|
00002960: 00 68 31 C6 07 82 20 49 00 98 31 D0 07 53 45 24 |.h1... I..1..SE$|
00002970: B2 22 11 20 12 57 48 41 54 20 43 4F 55 4E 54 52 |.". .WHAT COUNTR|
00002980: 59 20 48 41 53 20 41 53 20 49 54 27 53 20 43 41 |Y HAS AS IT'S CA|
00002990: 50 49 54 41 4C 20 11 22 00 A2 31 DA 07 89 31 32 |PITAL ."..1...12|
000029A0: 35 30 00 AF 31 0C 08 83 39 39 39 2C 39 39 39 00 |50..1...999,999.|
000029B0: BB 31 16 08 4A 4B B2 4A 4B AA 31 00 CC 31 17 08 |.1..JK.JK.1..1..|
000029C0: 8B 4A 4B B1 36 30 A7 89 31 39 30 30 00 DC 31 18 |.JK.60..1900..1.|
000029D0: 08 4E B2 4E AA 31 3A 89 31 32 36 30 00 00 00 |.N.N.1:.1260... |
.......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 **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..M.... IF YOU
HAVE CONTRARY.J.... INFORMATION, PLEA
SE...... CONTACT COMMODORE CANADA AND
...... EVERY EFFORT WILL BE MADE TO.W
.... WITHDRAW COPIES OF THIS......
PROGRAM......:...!.. CAPITALS.K."..
UPDATED - J.F. MUNRO
DURHAM B OF E, JULY,1982.G.#.. +++ IN
PUT SECTION +++..(..UO,0:UR$."":UI$."".
..*..UL.0.UL.80...-.." ..";:.UC,0...2..
UI$:.UI$."".50...7..UI$.G(13).C(UR$)..1.
.UC,1:." .";:.85...<..UI$.G(20).105...>.
. C(UR$)..UL.50.,.A..120:. CHECK FOR VAL
ID CHARACTER.<.F.UR$.UR$.UI$.F.K..UI$;.N
.P..50.S.U.. +++ CHECK FOR HELP REQUEST
+++...Z..UR$.UX$.195:. EXIT TO HELP ROUT
INE..._..UF.1..240...D.UF.0:.:..P.F.. ++
CHECK DELETE ++...I..C(UR$).1.50...N.UR
$.H(UR$,C(UR$).1)...S..". ..";:.50.2.X.
. ++ CHECK FOR VALID CHARACTERS ++.D.}..
C(US$).0.150.U....US.1.C(US$).L....UI$.J
(US$,US,1)...R........UI$."":....... **
STANDARD INPUT **......F(UI$).46.......
.UI$.G(32)...Y. ..F(UI$).48.F(UI$).57.17
0............F(UI$).65.F(UI$).90.180....
...&....F(UI$).193.F(UI$).218.UI$."":..I
....B(UT).UU%.UI$.G(F(UI$).128):..O.....
\...UI$."":....C.UF.1:. +++ HELP ROUTINE
EXIT +++...E..250...H..245...M..UQ.UB.(
U2%.256.U1%.U3%.2).N.R.UQ%(UQ.UB).B(UQ):
.:."."...W.UZ.1:UV%.B(UT)...X..300...Y.U
Z.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK.F.Z..B(5
0003).0..53281,1:.".";:.53281,6:.53280,1
4:.220.P....".";....UT$.UL$:.UT,UV%:.UQ
.UB.(U2%.256.U1%.U3%.3)......UQ,UQ%(UQ.U
B):.. ....U1,U1%......U2,U2%......U4,U4%
.F....U3,U3%.1.N....35.....UD%.((U2%.256
.U1%.U3%).UB).40:.H(UD$,UD%.1):..;....H(
UD$,24);" . HELP CO
MING . ":..G...U1%.B(U1):U2%.B(U2):U3%.
B(U3):U4%.B(U4).....UJ$.US$:UK$.UG$:UL$.
UT$:UJ.UP:UK.UL.........,.. ** MENU **..
.-.:......".":.UT,UU%:.B(50003).0..53281
,9:.53280,8.../.:...1..".
MENU".-.6.." --------------------------
------------".W.;..".. 1. BEGIN
WORLD CAPITALS"...@..".. 2. STUD
ENT INSTRUCTIONS"...E..".. 3. TE
ACHER INSTRUCTIONS".X.J..".. 4.
MODIFICATION OF PROGRAM"...O.."..
5. QUIT..".#.T.." --------------------
------------------".N.Y..".. PRESS
A NUMBER KEY (1-5) ";.W.^.UL.1:US$."123
45":.35:. INPUT ROUTINE...`.US$.""...C..
E(UR$).1000,400,500,600,396...H..300.S..
.. ** RE-ENABLE STOP KEY AND END **.....
.B(50003)..1.B(50003)..160.B(50003)..0.3
99.,....UU.71:.B(50003).0..53281,6:.5328
0,14.8...."..":..C....875:..D.... ** STU
DENT INSTRUCTIONS **......".":.UT,UL%:.B
(50003).0..53281,0:.53280,0.....UP.0:UG$
."STUDENT INST":.850...L..".. NOTE:.....
TO ADVANCE FROM ONE QUESTION"...V..". TO
THE NEXT PRESS THE SPACE BAR.".<...."..
IF AT ANY TIME YOU WISH TO VIEW".B..
..". THE MENU PRESS <H> <RETURN>."......
".. PRESS <RETURN> AFTER EACH ENTRY."
......835......UZ.1..UP%:.217.......T...
. ** TEACHER INSTRUCTIONS **......".":.U
T,UL%:.B(50003).0..53281,2:.53280,10.%..
.UP.0:UG$."TEACHER INST":.850.S...."..
TO THE BEST OF OUR KNOWLEDGE,.".|...
." THIS PROGRAM IS IN THE PUBLIC."....
.." DOMAIN. IF THIS IS NOT THE CASE."
.E...." PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..6...."
AGINCOURT, ONTARIO".X...." C
ANADA M1W 2K4".X...." (416) 4
99-4292".....UP.1:. 835:. 850:......"
..PROGRAM NAME: WORLD CAPITALS......."
WRITTEN BY : UNKNOWN......." U
PGRADED BY : JAMES MUNRO.+...." .THI
S PROGRAM WILL RUN ON ANY...K...."
PET 64 COMPUTER..P...." COMMO
DORE 64 COMPUTER.Y.D..835...N..UZ.1..UP%
:.217...W.....X.. ** PROGRAM MODIFICATIO
N INST **.J.Y..".":.UT,UL%...].UH.1:UP.0
:UG$."PROGRAM MOD":.850. .^.."......
THIS PROGRAM MAY BE MODIFIED SO".K._..".
ONLY CERTAIN AREAS OF THE WORLD".Y.A.
.". ARE REPRESENTED OR ELSE ADDITIONAL
"...C..". COUNTRIES MAY BE ADDED."...G
.UH.1:.835:.850...L.."..... TO ADD OR C
HANGE THE COUNTRIES IN"...M..". THIS PRO
GRAM, YOU MAY ALTER THE DATA".3.N..". ST
ATEMENTS THAT ARE FOUND IN".^.O..". LINE
S 1610-1800. IN THE DATA, THE"...P..". C
OUNTRIES ARE ALWAYS FOLLOWED BY"...R..".
THEIR CAPITALS."......835......UZ.1..UP
%:.217.D.......... ** TO USE 8032 LOAD C
BM4032 **...F..".....BEFORE RUNNING THIS
PROGRAM ON AN 8032 ...U.P.." LOAD
THE 'CBM 4032' PROGRAM.............".`.
Z..UU.71.F....... .. ** T I T L E P A
G E **...".."....";:.UT,UU%:.B(50003).0.
.53280,14:.53281,6.P.$..I.1.38:."...";:.
...&..I.1.22:.".....";:....(..I.1.37:.".
....";:....*..I.1.22:.".....";:..=.,..".
.......................... .._...."....
............... . . .....0.."..........
......... . ......2..".................
... ..F.4.."..............C O M M O D O
R E.....6.."...............EDUCATIONAL.
....8.."................SOFTWARE.#.:.. *
* COMMODORE LOGO **.[.;..H(UD$,24);"....
......PRESS SPACE BAR OR WAIT.":I.0.}.<.
.A$:.A$.." ".I.I.1:.I.250.828...>.T1$.""
:T2$."":T3$."":T4$."":I.0...@..300.F.C..
** SPACE BAR PRESS **...H..UO,0:.H(UD$,
24);".......PRESS SPACE BAR TO CONTINUE.
"...L..UI$:.UI$.." ".844...N...>.R.. **
PAGE DESIGN ROUTINE **.J.T.UP.UP.1.T.W..
"."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)...\
.." ------------------------------------
--"...`..UH..0.870...A..H(UD$,24);H(UP$,
7);"HELP - PRESS H <RETURN>"...F.UH.0:
."..":....K.. ** PLEASE WAIT REMARK **.L
.P..H(UD$,24);" ONE MOMENT PLE
ASE... ".R.U...O.... ** SET UP VARIA
BLES **.....UX$."H":.UQ%(1000):UB.32768:
U1.196:U2.197:U3.198:U4.216:UC.167:UU.10
24.....UT.59468:UU%.12:UL%.14:UP%.1146:U
M.32768:UO.158:. 50003,0.;....B(50003).0
.UB.1024:U1.209:U2.210:U3.211:U4.214:UC.
204:UU.2048.Z....B(50003).0.UT.53272:UU%
.21:UL%.23:UP%.2139:UM.1024:UO.198.....U
D$.".........................".P...UP$."
"
.....UT$." WORLD CAPITALS ":. PLACE P
ROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***.$
.....>.... ** SET VARIABLES **.....UG$."
PAGE#":.A$(100),B$(220):C$."":Y$."":
F$."":X.0:Z.0:I.0.....CO.0:Q.0:N.0:C.0:R
.0:T0.0:JK.0......900.H.... ** CHECK FOR
8032 **......".":." ":. SHIFTED SPACE..
....B(UB.40)..96..700.. ... ** MEMORY CH
ECK **.* ... .(0).2000.937.X ..."....THI
S MACHINE DOES NOT HAVE ENOUGH.".| ..."M
EMORY TO RUN THIS PROGRAM !".. ...UU.71.
. ..... ..."..":.B(50003).0.962.V ... **
BASIC 2.0 OR 4.0 OR C-64 SETUP **..
!...1075,133:.1076,144:.1077,234:.1079,4
:.1080,133:.1081,145.J!...1091,155:.1098
,133:.1099,144:.1100,234:.1103,133.L!...
1104,145:.1105,234:.1082,234..!...B(5000
3)..160.955..!...1093,88:.1094,228:.1097
,85:.1102,228:.965.G!...B(50003)..1.990.
.!...1093,49:.1094,230:.1097,46:.1102,23
0:.965.0"B..2099,141:.2100,20:.2101,3:.2
103,8:.2104,141:.2105,21.L"C..2106,3:.21
15,145:.2117,52:.2118,234:.2121,49:.2122
,141.."D..2123,20:.2124,3:.2126,234:.212
7,141:.2128,21:.2129,3.D"E..UU.48:. DISA
BLE STOP KEY.U"J..800:. TITLE.."T..300:.
MENU..#...".THE PGM WILL NOT WORK ON TH
IS MACHINE!":..K#...UZ.1..UP%:.UP%:UZ.0:
. ** PROGRAM STARTS HERE **.W#..."..";:.
:.B(50003).0..53281,6:.53280,14..#...***
*******************..#...**MENU ADDED AN
D PGM**.K#...** MODIFIED BY **..#..
.** JAMES MUNRO **..$...** 1982 0
6 30 **..$...** OSHAWA , ONTARIO **.
=$...************************.[$...* REV
ISED AND UPGRADED *.Y$...* FOR COMMODORE
64 BY *..$...* DEREK LEE *.
.$...* JULY 27/82 *.S$...*****
*******************..%M.SE$.".. WHAT IS
THE NAME OF THE CAPITAL CITY OF".2%_..:.
".":N..1:C.0:RI.0:W.0:.UT,UU%:.875.B%`..
I.1 . 100.T%J.. A$(I),B$(I).R%T..A$(I).
"999".T0.I.1:I.101.Z%~.. I..%.UP.0:UG$.
"QUIZ":.850.B%...". THIS PROGRAM WILL TE
ST YOUR KNOWLEDGE"..%....7)".. OF WORLD
CAPITAL CITIES."..&...". AFTER EACH STAT
E PLEASE TYPE THE".A&...". APPROPRIATE N
AME THEN PRESS <RETURN>.".P&...". TO SKI
P A COUNTRY,PRESS <N> <RETURN>.". &...".
WHICH WOULD YOU LIKE TO START WITH? --"
.E&D..". .1. GIVEN THE CAPITALS"..&
F..". .2. GIVEN THE COUNTRIES"..'G.
."............. ?.";."'I.UL.1:US$."12H":
.35:Z$.UR$.+'J..875.<'N..Z$."1".1940.J'X
..Q.1.1970.S'..N..1.C'..N.N.1:C.C.1.V'..
I..(T0..(1)).1..'... A$(I)."*". 1260..'.
.CO.CO.1..'..F$.A$(I):A$(I)."*"..'..Q.0.
W'..UP.N:UG$." QUESTION #":.850..'... SE
$..'(...6)F$;"? ";.,(2.UL.20:US$."?QWERT
YUIOPLKJHGFDSAZXCVBNM ":.35:Z$.UR$:..<(3
..Z$."Q" . ..O(<..B$(I).Z$.1410.B(F..Z$.
."N"..1380.R(P..CO.T0.1900.|(Z..2070..(D
.." INCORRECT.....TRY AGAIN":W.W.1..(
N.Q.Q.1:.Q.2.1809.C(X..1310..(..RI.RI.1:
.".......":.C.0.C.1:R..(4..(1))..(...R.1
.1470..)...R.2.1480..) ..R.3.1490.')...R
.4.1500.R)...". CORRECT..YOU'RE A GENI
US!":.1530.M)...". RIGHT ON!":.1530..)
H..". ALL RIGHT!":.1530..)R..". VERY
GOOD!!!":.1530.B)...". YOU'RE TOO MUC
H"..)...". YOUR SCORE IS";RI;" CORRECT
..*...". AND "W" WRONG.".G*...". DO
YOU WISH TO CONTINUE(Y/N)? ";:UL.1:US$."
YNH":.35:C$.UR$.Y*...C$."Y"..1590.K*"..C
$."N"..1875.{*6..CO.T0.1900..*@..1250.Q*
J..AFGHANISTAN,KABUL,ANGOLA,LUANDA,ALGER
IA,ALGIERS,ARGENTINA,BUENOS AIRES..+T..A
USTRALIA,CANBERRA,AUSTRIA,VIENNA,BELGIUM
,BRUSSELS,BOLIVIA,SUCRE.]+^..BRAZIL,BRAS
ILIA,BULGARIA,SOFIA,BURMA,RANGOON,CAMBOD
IA,PHNOM PENH..+H..CANADA,OTTAWA,CHILE,S
ANTIAGO,COLUMBIA,BOGOTA,COSTA RICA,SAN J
OSE..+R..CUBA,HAVANA,CYPRUS,NICOSIA,CZEC
HOSLOVAKIA,PRAGUE,DENMARK,COPENHAGEN.,,|
..DOMINICAN REPUBLIC,SANTO DOMINGO,EQUAD
OR,QUITO,EGYPT,CAIRO.P,...EL SALVADOR,SA
N SALVADOR,ETHIOPIA,ADDIS ABABA,FINLAND,
HELSINKI..,...FRANCE,PARIS,WEST GERMANY,
BONN,EAST GERMANY,BERLIN,GREECE,ATHENS..
,...GUATEMALA,GUATEMALA CITY,GUYANA,GEOR
GETOWN..,...ICELAND,REYKJAVIK.:-...INDIA
,NEW DELHI,IRAN,TEHRAN,IRAQ,BAGHDAD,IREL
AND,DUBLIN..-...ISRAEL,JERUSALEM,ITALY,R
OME,JAMAICA,KINGSTON,JAPAN,TOKYO,JORDAN,
AMMAN.Q-B..KENYA,NAIROBI,LEBANON,BEIRUT,
LIECHTENSTEIN,VADUZ,LUXEMBOURG,LUXEMBOUR
G...L..MALTA,VALLETTA,MEXICO,MEXICO CITY
,MOROCCO,RABAT,NETHERLANDS,AMSTERDAM.D.V
..NEW ZEALAND,WELLINGTON,NICARAGUA,MANAG
UA,NIGERIA,LAGOS,NORWAY,OSLO......PARAGU
AY,ASUNCION,PERU,LIMA,POLAND,WARSAW,PORT
UGAL,LISBON,SPAIN,MADRID......SUDAN,KHAR
TOUM,SWEDEN,STOCKHOLM,SWITZERLAND,BERN,S
YRIA,DAMASCUS.</...THAILAND,BANGKOK,TURK
EY,ANKARA,UGANDA,KAMPALA,SOVIET UNION,MO
SCOW.^/...UNITED STATES,WASHINGTON D C..
/...UNITED KINGDOM,LONDON,URAGUAY,MONTEV
IDEO,VENEZUELA,CARACAS../...YUGOSLAVIA,B
ELGRADE.E/...835:.850../..."........ I G
UESS YOU REALLY DIDN'T KNOW IT!"."0&..".
THE CORRECT ANSWER IS ";B$(I);".".P00..
". TAKE GOOD NOTE OF IT FOR FUTURE USE!"
.Y0:..835.C0N..1250.S0S..CO.T0.1900.Y0X.
...0L.."......... YOU HAVE EXHAUST
ED MY".J0M..". SUPPLY OF COUNTRIES
."..1N..". NUMBER CORRECT "C:.".
NUMBER INCORRECT"W:.835..1.....1...
. 1..Q.1.01... I.1 . 100.B1... B$(I),A$(
I).`1...B$(I)."999".T0.I.1:.2000.H1F.. I
..1P.SE$.". .WHAT COUNTRY HAS AS IT'S CA
PITAL ."..1Z..1250..1...999,999..1..JK.J
K.1.L1...JK.60..1900..1..N.N.1:.1260...
> CLICK IMAGE PREVIEW FOR FULL MODAL