CAPITALS
FILE INFORMATION
FILENAME(S): CAPITALS
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-12-02 00:17:48
APPEARS ON: 1 disk(s)
FILE HASH
a36ee5094f4cdd76aa93631407c3036db26b10ad02cd14c4dda734139b4900ca
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUB DOMAIN | CAPITALS | PRG | Maestro | 29 | 5 | 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: 99 0A 2D 00 97 55 43 2C 30 00 AD 0A 32 00 A1 55 |..-..UC,0...2..U|
000002A0: 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 D7 0A |I$:.UI$."".50...|
000002B0: 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 |7..UI$..(13)..(U|
000002C0: 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 |R$)..1..UC,1:." |
000002D0: 9D 22 3B 3A 89 38 35 00 EA 0A 3C 00 8B 55 49 24 |.";:.85...<..UI$|
000002E0: B2 C7 28 32 30 29 A7 31 30 35 00 FE 0A 3E 00 8B |..(20).105...>..|
000002F0: 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 00 23 | .(UR$)..UL.50.#|
00000300: 0B 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 |.A..120:. CHECK |
00000310: 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 |FOR VALID CHARAC|
00000320: 54 45 52 00 33 0B 46 00 55 52 24 B2 55 52 24 AA |TER.3.F.UR$.UR$.|
00000330: 55 49 24 00 3D 0B 4B 00 99 55 49 24 3B 00 45 0B |UI$.=.K..UI$;.E.|
00000340: 50 00 89 35 30 00 6A 0B 55 00 8F 20 2B 2B 2B 20 |P..50.j.U.. +++ |
00000350: 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 |CHECK FOR HELP R|
00000360: 45 51 55 45 53 54 20 2B 2B 2B 00 92 0B 5A 00 8B |EQUEST +++...Z..|
00000370: 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 |UR$.UX$.195:. EX|
00000380: 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 |IT TO HELP ROUTI|
00000390: 4E 45 00 A1 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 |NE..._..UF.1..24|
000003A0: 30 00 AE 0B 64 00 55 46 B2 30 3A 99 3A 8E 00 C7 |0...d.UF.0:.:...|
000003B0: 0B 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 |.f.. ++ CHECK DE|
000003C0: 4C 45 54 45 20 2B 2B 00 D8 0B 69 00 8B C3 28 55 |LETE ++...i...(U|
000003D0: 52 24 29 B3 31 A7 35 30 00 F0 0B 6E 00 55 52 24 |R$).1.50...n.UR$|
000003E0: B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 29 |..(UR$,.(UR$).1)|
000003F0: 00 02 0C 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 |...s..". ..";:.|
00000400: 35 30 00 29 0C 78 00 8F 20 2B 2B 20 43 48 45 43 |50.).x.. ++ CHEC|
00000410: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
00000420: 41 43 54 45 52 53 20 2B 2B 00 3B 0C 7D 00 8B C3 |ACTERS ++.;.}...|
00000430: 28 55 53 24 29 B2 30 A7 31 35 30 00 4C 0C 82 00 |(US$).0.150.L...|
00000440: 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 63 0C 87 |.US.1..(US$).c..|
00000450: 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 |..UI$..(US$,US,1|
00000460: 29 A7 8E 00 69 0C 8C 00 82 00 76 0C 91 00 55 49 |)...i.....v...UI|
00000470: 24 B2 22 22 3A 8E 00 91 0C 96 00 8F 20 2A 2A 20 |$."":....... ** |
00000480: 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 2A |STANDARD INPUT *|
00000490: 2A 00 A2 0C 98 00 8B C6 28 55 49 24 29 B2 34 36 |*.......(UI$).46|
000004A0: A7 8E 00 B3 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 |........UI$..(32|
000004B0: 29 A7 8E 00 D0 0C A0 00 8B C6 28 55 49 24 29 B3 |).........(UI$).|
000004C0: 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 30 |48..(UI$).57.170|
000004D0: 00 D6 0C A5 00 8E 00 F3 0C AA 00 8B C6 28 55 49 |.............(UI|
000004E0: 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 |$).65..(UI$).90.|
000004F0: 31 38 30 00 F9 0C AF 00 8E 00 1D 0D B4 00 8B C6 |180.............|
00000500: 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 |(UI$).193..(UI$)|
00000510: B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 40 0D |.218.UI$."":..@.|
00000520: B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 |....(UT).UU%.UI$|
00000530: B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E |..(.(UI$).128):.|
00000540: 00 46 0D BB 00 8E 00 53 0D BE 00 55 49 24 B2 22 |.F.....S...UI$."|
00000550: 22 3A 8E 00 78 0D C3 00 55 46 B2 31 3A 8F 20 2B |":..x...UF.1:. +|
00000560: 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 |++ HELP ROUTINE |
00000570: 45 58 49 54 20 2B 2B 2B 00 81 0D C5 00 8D 32 35 |EXIT +++......25|
00000580: 30 00 8A 0D C8 00 8D 32 34 35 00 A9 0D CD 00 81 |0......245......|
00000590: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
000005A0: 31 25 AA 55 33 25 AB 32 29 00 C5 0D D2 00 55 51 |1%.U3%.2).....UQ|
000005B0: 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 |%(UQ.UB)..(UQ):.|
000005C0: 3A 99 22 93 22 00 D8 0D D7 00 55 5A B2 31 3A 55 |:.".".....UZ.1:U|
000005D0: 56 25 B2 C2 28 55 54 29 00 E1 0D D8 00 89 33 30 |V%..(UT)......30|
000005E0: 30 00 25 0E D9 00 55 5A B2 30 3A 55 53 24 B2 55 |0.%...UZ.0:US$.U|
000005F0: 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A |J$:UG$.UK$:UP.UJ|
00000600: 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 |:UL.UK:..(50003)|
00000610: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
00000620: 38 30 2C 31 34 00 5A 0E DC 00 55 54 24 B2 55 4C |80,14.Z...UT$.UL|
00000630: 24 3A 99 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A |$:.".";:.UT,UV%:|
00000640: 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA |.UQ.UB.(U2%.256.|
00000650: 55 31 25 AA 55 33 25 AB 33 29 00 6F 0E E1 00 97 |U1%.U3%.3).o....|
00000660: 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 |UQ,UQ%(UQ.UB):..|
00000670: 7B 0E E6 00 97 55 31 2C 55 31 25 00 87 0E E8 00 |{....U1,U1%.....|
00000680: 97 55 32 2C 55 32 25 00 93 0E E9 00 97 55 34 2C |.U2,U2%......U4,|
00000690: 55 34 25 00 A1 0E EA 00 97 55 33 2C 55 33 25 AB |U4%......U3,U3%.|
000006A0: 31 00 A9 0E EB 00 89 33 35 00 DB 0E F0 00 55 44 |1......35.....UD|
000006B0: 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |%.((U2%.256.U1%.|
000006C0: 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 |U3%).UB).40:..(U|
000006D0: 44 24 2C 55 44 25 AA 31 29 3A 8E 00 16 0F F5 00 |D$,UD%.1):......|
000006E0: 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 |..(UD$,24);" |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 | . HELP COMING |
00000710: 92 20 20 22 3A 8E 00 42 0F FA 00 55 31 25 B2 C2 |. ":..B...U1%..|
00000720: 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 |(U1):U2%..(U2):U|
00000730: 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 |3%..(U3):U4%..(U|
00000740: 34 29 00 6A 0F FB 00 55 4A 24 B2 55 53 24 3A 55 |4).j...UJ$.US$:U|
00000750: 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 |K$.UG$:UL$.UT$:U|
00000760: 4A B2 55 50 3A 55 4B B2 55 4C 00 70 0F FF 00 8E |J.UP:UK.UL.p....|
00000770: 00 81 0F 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A |...,.. ** MENU *|
00000780: 2A 00 87 0F 2D 01 3A 00 B6 0F 2E 01 99 22 93 22 |*...-.:......"."|
00000790: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
000007A0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 |3).0..53281,9:.5|
000007B0: 33 32 38 30 2C 38 00 BC 0F 2F 01 3A 00 D9 0F 31 |3280,8.../.:...1|
000007C0: 01 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
000007D0: 20 20 20 20 4D 45 4E 55 22 00 08 10 36 01 99 22 | MENU"...6.."|
000007E0: 20 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 2D 2D 2D 2D 2D |----------------|
00000800: 2D 2D 2D 2D 2D 2D 2D 22 00 32 10 3B 01 99 22 11 |-------".2.;..".|
00000810: 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 |. 1. BEG|
00000820: 49 4E 20 57 4F 52 4C 44 20 43 41 50 49 54 41 4C |IN WORLD CAPITAL|
00000830: 53 22 00 5C 10 40 01 99 22 11 11 20 20 20 20 20 |S".\.@..".. |
00000840: 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 | 2. STUDENT I|
00000850: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 86 10 45 |NSTRUCTIONS"...E|
00000860: 01 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 |..".. 3. |
00000870: 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 | TEACHER INSTRUC|
00000880: 54 49 4F 4E 53 22 00 B3 10 4A 01 99 22 11 11 20 |TIONS"...J..".. |
00000890: 20 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 | 4. MODIF|
000008A0: 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 |ICATION OF PROGR|
000008B0: 41 4D 22 00 CF 10 4F 01 99 22 11 11 20 20 20 20 |AM"...O..".. |
000008C0: 20 20 20 35 2E 20 20 20 51 55 49 54 11 11 22 00 | 5. QUIT..".|
000008D0: FE 10 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..T.." ---------|
000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 29 |-------------".)|
00000900: 11 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 |.Y..".. PR|
00000910: 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 |ESS A NUMBER KEY|
00000920: 20 28 31 2D 35 29 20 22 3B 00 52 11 5E 01 55 4C | (1-5) ";.R.^.UL|
00000930: B2 31 3A 55 53 24 B2 22 31 32 33 34 35 22 3A 8D |.1:US$."12345":.|
00000940: 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 |35:. INPUT ROUTI|
00000950: 4E 45 00 5D 11 60 01 55 53 24 B2 22 22 00 7E 11 |NE.].`.US$."".~.|
00000960: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4|
00000970: 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 36 00 87 |00,500,600,396..|
00000980: 11 68 01 89 33 30 30 00 AE 11 8B 01 8F 20 2A 2A |.h..300...... **|
00000990: 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 | RE-ENABLE STOP |
000009A0: 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 DD |KEY AND END **..|
000009B0: 11 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF |.....(50003)..1.|
000009C0: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 |.(50003)..160..(|
000009D0: 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 07 12 |50003)..0.399...|
000009E0: 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 |...UU.71:..(5000|
000009F0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
00000A00: 33 32 38 30 2C 31 34 00 13 12 8E 01 99 22 9A 93 |3280,14......"..|
00000A10: 22 3A 80 00 1E 12 8F 01 8D 38 37 35 3A 8E 00 3F |":.......875:..?|
00000A20: 12 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 |.... ** STUDENT |
00000A30: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000A40: 6E 12 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |n....".":.UT,UL%|
00000A50: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000A60: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 8F |281,0:.53280,0..|
00000A70: 12 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 |...UP.0:UG$.".TU|
00000A80: 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 |DENT .NST":.850.|
00000A90: C0 12 CC 01 99 22 11 11 20 CE 4F 54 45 3A 11 11 |.....".. .OTE:..|
00000AA0: 11 9D 9D D4 4F 20 41 44 56 41 4E 43 45 20 46 52 |....O ADVANCE FR|
00000AB0: 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E 22 |OM ONE QUESTION"|
00000AC0: 00 EA 12 D6 01 99 22 11 20 54 4F 20 54 48 45 20 |......". TO THE |
00000AD0: 4E 45 58 54 20 50 52 45 53 53 20 54 48 45 20 D3 |NEXT PRESS THE .|
00000AE0: D0 C1 C3 C5 20 42 41 52 2E 22 00 17 13 DB 01 99 |.... BAR."......|
00000AF0: 22 11 11 20 20 20 20 C9 46 20 41 54 20 41 4E 59 |".. .F AT ANY|
00000B00: 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 20 54 | TIME YOU WISH T|
00000B10: 4F 20 56 49 45 57 22 00 3D 13 E0 01 99 22 11 20 |O VIEW".=....". |
00000B20: 54 48 45 20 4D 45 4E 55 20 50 52 45 53 53 20 3C |THE MENU PRESS <|
00000B30: 48 3E 20 3C 52 45 54 55 52 4E 3E 2E 22 00 6B 13 |H> <RETURN>.".k.|
00000B40: E1 01 99 22 11 11 20 20 20 20 D0 52 45 53 53 20 |...".. .RESS |
00000B50: 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 20 45 |<RETURN> AFTER E|
00000B60: 41 43 48 20 45 4E 54 52 59 2E 22 00 74 13 E5 01 |ACH ENTRY.".t...|
00000B70: 8D 38 33 35 00 88 13 EA 01 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00000B80: 55 50 25 3A 89 32 31 37 00 8E 13 F3 01 8E 00 AF |UP%:.217........|
00000B90: 13 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 |.... ** TEACHER |
00000BA0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000BB0: DF 13 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |.....".":.UT,UL%|
00000BC0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000BD0: 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 |281,2:.53280,10.|
00000BE0: 00 14 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |....UP.0:UG$.".E|
00000BF0: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
00000C00: 00 2E 14 F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
00000C10: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
00000C20: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 57 |R KNOWLEDGE,.".W|
00000C30: 14 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
00000C40: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
00000C50: 55 42 4C 49 43 11 22 00 83 14 F9 01 99 22 20 20 |UBLIC."......" |
00000C60: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00000C70: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00000C80: 45 11 22 00 A0 14 FA 01 99 22 20 20 20 50 4C 45 |E."......" PLE|
00000C90: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00000CA0: 00 CA 14 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |......" .OM|
00000CB0: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00000CC0: CD 41 43 48 49 4E 45 53 11 22 00 ED 14 FC 01 99 |.ACHINES."......|
00000CD0: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00000CE0: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 11 15 |.HARMACY .VE....|
00000CF0: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
00000D00: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
00000D10: 22 00 33 15 FE 01 99 22 20 20 20 20 20 20 20 20 |".3...." |
00000D20: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
00000D30: CB 34 22 00 53 15 FF 01 99 22 20 20 20 20 20 20 |.4".S...." |
00000D40: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
00000D50: 39 32 22 00 69 15 00 02 55 50 B2 31 3A 8D 20 38 |92".i...UP.1:. 8|
00000D60: 33 35 3A 8D 20 38 35 30 3A 00 94 15 01 02 99 22 |35:. 850:......"|
00000D70: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000D80: 41 4D 45 3A 20 D7 4F 52 4C 44 20 C3 41 50 49 54 |AME: .ORLD .APIT|
00000D90: 41 4C 53 11 00 B6 15 02 02 99 22 20 20 20 20 20 |ALS......." |
00000DA0: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E |.RITTEN .Y : .N|
00000DB0: 4B 4E 4F 57 4E 11 00 DB 15 03 02 99 22 20 20 20 |KNOWN......." |
00000DC0: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00000DD0: CA 41 4D 45 53 20 CD 55 4E 52 4F 00 06 16 04 02 |.AMES .UNRO.....|
00000DE0: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000DF0: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000E00: 20 41 4E 59 11 11 00 2D 16 05 02 99 22 20 20 20 | ANY...-...." |
00000E10: 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 | ......2.0 |
00000E20: D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 54 16 |... ..........T.|
00000E30: 06 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 |..." ...|
00000E40: C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 |.. 4.0 .........|
00000E50: D4 C5 D2 11 00 76 16 07 02 99 22 20 20 20 20 20 |.....v...." |
00000E60: 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD | 8032 ... ...|
00000E70: D0 D5 D4 C5 D2 11 00 9B 16 08 02 99 22 20 20 20 |............" |
00000E80: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... |
00000E90: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 A4 16 44 02 |64 ...........D.|
00000EA0: 8D 38 33 35 00 B8 16 4E 02 8B 55 5A B2 31 A7 9E |.835...N..UZ.1..|
00000EB0: 55 50 25 3A 89 32 31 37 00 BE 16 57 02 8E 00 E4 |UP%:.217...W....|
00000EC0: 16 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000ED0: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000EE0: 54 20 2A 2A 00 F5 16 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000EF0: 54 2C 55 4C 25 00 1A 17 5D 02 55 48 B2 31 3A 55 |T,UL%...].UH.1:U|
00000F00: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM|
00000F10: 20 CD 4F 44 22 3A 8D 38 35 30 00 4B 17 5E 02 99 | .OD":.850.K.^..|
00000F20: 22 11 11 11 11 11 11 20 20 20 20 D4 48 49 53 20 |"...... .HIS |
00000F30: 50 52 4F 47 52 41 4D 20 4D 41 59 20 42 45 20 4D |PROGRAM MAY BE M|
00000F40: 4F 44 49 46 49 45 44 20 53 4F 22 00 76 17 5F 02 |ODIFIED SO".v._.|
00000F50: 99 22 11 20 20 20 4F 4E 4C 59 20 43 45 52 54 41 |.". ONLY CERTA|
00000F60: 49 4E 20 41 52 45 41 53 20 4F 46 20 54 48 45 20 |IN AREAS OF THE |
00000F70: 57 4F 52 4C 44 22 00 A4 17 61 02 99 22 11 20 20 |WORLD"...a..". |
00000F80: 20 41 52 45 20 52 45 50 52 45 53 45 4E 54 45 44 | ARE REPRESENTED|
00000F90: 20 4F 52 20 45 4C 53 45 20 41 44 44 49 54 49 4F | OR ELSE ADDITIO|
00000FA0: 4E 41 4C 22 00 C7 17 63 02 99 22 11 20 20 20 43 |NAL"...c..". C|
00000FB0: 4F 55 4E 54 52 49 45 53 20 4D 41 59 20 42 45 20 |OUNTRIES MAY BE |
00000FC0: 41 44 44 45 44 2E 22 00 DA 17 67 02 55 48 B2 31 |ADDED."...g.UH.1|
00000FD0: 3A 8D 38 33 35 3A 8D 38 35 30 00 0A 18 6C 02 99 |:.835:.850...l..|
00000FE0: 22 11 11 11 11 11 20 20 D4 4F 20 41 44 44 20 4F |"..... .O ADD O|
00000FF0: 52 20 43 48 41 4E 47 45 20 54 48 45 20 43 4F 55 |R CHANGE THE COU|
00001000: 4E 54 52 49 45 53 20 49 4E 22 00 38 18 6D 02 99 |NTRIES IN".8.m..|
00001010: 22 11 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2C |". THIS PROGRAM,|
00001020: 20 59 4F 55 20 4D 41 59 20 41 4C 54 45 52 20 54 | YOU MAY ALTER T|
00001030: 48 45 20 44 41 54 41 22 00 5E 18 6E 02 99 22 11 |HE DATA".^.n..".|
00001040: 20 53 54 41 54 45 4D 45 4E 54 53 20 54 48 41 54 | STATEMENTS THAT|
00001050: 20 41 52 45 20 46 4F 55 4E 44 20 49 4E 22 00 89 | ARE FOUND IN"..|
00001060: 18 6F 02 99 22 11 20 4C 49 4E 45 53 20 31 36 31 |.o..". LINES 161|
00001070: 30 2D 31 38 30 30 2E 20 C9 4E 20 54 48 45 20 44 |0-1800. .N THE D|
00001080: 41 54 41 2C 20 54 48 45 22 00 B3 18 70 02 99 22 |ATA, THE"...p.."|
00001090: 11 20 43 4F 55 4E 54 52 49 45 53 20 41 52 45 20 |. COUNTRIES ARE |
000010A0: 41 4C 57 41 59 53 20 46 4F 4C 4C 4F 57 45 44 20 |ALWAYS FOLLOWED |
000010B0: 42 59 22 00 CC 18 72 02 99 22 11 20 54 48 45 49 |BY"...r..". THEI|
000010C0: 52 20 43 41 50 49 54 41 4C 53 2E 22 00 D5 18 94 |R CAPITALS."....|
000010D0: 02 8D 38 33 35 00 E9 18 B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.|
000010E0: 9E 55 50 25 3A 89 32 31 37 00 EF 18 BB 02 8E 00 |.UP%:.217.......|
000010F0: 14 19 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |..... ** TO USE |
00001100: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403|
00001110: 32 20 2A 2A 00 4A 19 C6 02 99 22 93 11 11 11 05 |2 **.J....".....|
00001120: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00001130: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00001140: 4E 20 38 30 33 32 20 20 11 11 00 80 19 D0 02 99 |N 8032 ........|
00001150: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00001160: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00001170: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00001180: 00 8B 19 DA 02 9E 55 55 AA 37 31 00 91 19 E4 02 |......UU.71.....|
00001190: 80 00 B1 19 20 03 8F 20 2A 2A 20 54 20 49 20 54 |.... .. ** T I T|
000011A0: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *|
000011B0: 2A 00 E5 19 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*...".."....";:.|
000011C0: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
000011D0: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53|
000011E0: 32 38 31 2C 36 00 FB 19 24 03 81 49 B2 31 A4 33 |281,6...$..I.1.3|
000011F0: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 13 1A 26 03 |8:."...";:....&.|
00001200: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."|
00001210: 3B 3A 82 00 2B 1A 28 03 81 49 B2 31 A4 33 37 3A |;:..+.(..I.1.37:|
00001220: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 43 1A 2A 03 |.".....";:..C.*.|
00001230: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."|
00001240: 3B 3A 82 00 68 1A 2C 03 99 22 13 11 11 11 11 11 |;:..h.,.."......|
00001250: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001260: 1D 1D 1D 12 A9 20 20 92 00 8A 1A 2E 03 99 22 1D |..... .......".|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001280: 1D 12 20 92 20 20 12 20 92 A9 00 AB 1A 30 03 99 |.. . . .....0..|
00001290: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000012A0: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 C9 1A 32 03 |.... . ......2.|
000012B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000012C0: 1D 1D 1D 1D DF 12 20 20 92 00 F1 1A 34 03 99 22 |...... ....4.."|
000012D0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C |
000012E0: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.|
000012F0: 11 00 14 1B 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....6.."........|
00001300: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION|
00001310: 41 4C 11 11 00 33 1B 38 03 99 22 1D 1D 1D 1D 1D |AL...3.8..".....|
00001320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW|
00001330: 41 52 45 00 4E 1B 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE.N.:.. ** COM|
00001340: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 86 |MODORE LOGO **..|
00001350: 1B 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |.;...(UD$,24);".|
00001360: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
00001370: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT|
00001380: 92 22 3A 49 B2 30 00 A8 1B 3C 03 A1 41 24 3A 8B |.":I.0...<..A$:.|
00001390: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
000013A0: B3 32 35 30 A7 38 32 38 00 CC 1B 3E 03 54 31 24 |.250.828...>.T1$|
000013B0: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."|
000013C0: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 D5 1B 40 |":T4$."":I.0...@|
000013D0: 03 89 33 30 30 00 F1 1B 43 03 8F 20 2A 2A 20 53 |..300...C.. ** S|
000013E0: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *|
000013F0: 2A 00 2C 1C 48 03 97 55 4F 2C 30 3A 99 C8 28 55 |*.,.H..UO,0:..(U|
00001400: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 |D$,24);".......P|
00001410: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00001420: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 43 1C 4C |O CONTINUE.".C.L|
00001430: 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |..UI$:.UI$.." ".|
00001440: 38 34 34 00 49 1C 4E 03 8E 00 69 1C 52 03 8F 20 |844.I.N...i.R.. |
00001450: 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 |** PAGE DESIGN R|
00001460: 4F 55 54 49 4E 45 20 2A 2A 00 75 1C 54 03 55 50 |OUTINE **.u.T.UP|
00001470: B2 55 50 AA 31 00 9F 1C 57 03 99 22 93 22 C8 28 |.UP.1...W..".".(|
00001480: 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 |UT$.UP$,21);.(UP|
00001490: 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 |$.UG$..(UP),18).|
000014A0: CE 1C 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..\.." ---------|
000014B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 DD |-------------"..|
000014D0: 1C 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 11 1D |.`..UH..0.870...|
000014E0: 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 |a...(UD$,24);.(U|
000014F0: 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 |P$,7);"HELP - PR|
00001500: 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E |ESS H <RETURN>|
00001510: 22 00 22 1D 66 03 55 48 B2 30 3A 99 22 13 11 22 |".".f.UH.0:.".."|
00001520: 3A 8E 00 41 1D 6B 03 8F 20 2A 2A 20 50 4C 45 41 |:..A.k.. ** PLEA|
00001530: 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A |SE WAIT REMARK *|
00001540: 2A 00 77 1D 70 03 99 C8 28 55 44 24 2C 32 34 29 |*.w.p...(UD$,24)|
00001550: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE|
00001560: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..|
00001570: 2E 20 20 20 20 20 22 00 7D 1D 75 03 8E 00 9A 1D |. ".}.u.....|
00001580: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA|
00001590: 52 49 41 42 4C 45 53 20 2A 2A 00 E5 1D 85 03 55 |RIABLES **.....U|
000015A0: 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 |X$."H":.UQ%(1000|
000015B0: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19|
000015C0: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:|
000015D0: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU|
000015E0: B2 31 30 32 34 00 23 1E 86 03 55 54 B2 35 39 34 |.1024.#...UT.594|
000015F0: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14|
00001600: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327|
00001610: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000|
00001620: 33 2C 30 00 66 1E 87 03 8B C2 28 35 30 30 30 33 |3,0.f.....(50003|
00001630: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2|
00001640: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211|
00001650: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U|
00001660: 55 B2 32 30 34 38 00 A5 1E 88 03 8B C2 28 35 30 |U.2048.......(50|
00001670: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:|
00001680: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
00001690: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
000016A0: 4F B2 31 39 38 00 C9 1E 89 03 55 44 24 B2 22 13 |O.198.....UD$.".|
000016B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000016C0: 11 11 11 11 11 11 11 11 22 00 FB 1E 8A 03 55 50 |........".....UP|
000016D0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016F0: 20 20 20 20 20 20 20 20 20 20 22 00 49 1F 8B 03 | ".I...|
00001700: 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 41 50 49 |UT$." WORLD CAPI|
00001710: 54 41 4C 53 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 |TALS....":. PLAC|
00001720: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE |
00001730: 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 |HERE !!!!!!!!!!!|
00001740: 21 21 21 21 21 21 2A 2A 2A 00 4F 1F 8C 03 8E 00 |!!!!!!***.O.....|
00001750: 69 1F 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |i.... ** SET VAR|
00001760: 49 41 42 4C 45 53 20 2A 2A 00 AC 1F 8F 03 55 47 |IABLES **.....UG|
00001770: 24 B2 22 20 20 20 20 50 41 47 45 23 22 3A 86 41 |$." PAGE#":.A|
00001780: 24 28 31 30 30 29 2C 42 24 28 32 32 30 29 3A 43 |$(100),B$(220):C|
00001790: 24 B2 22 22 3A 59 24 B2 22 22 3A 46 24 B2 22 22 |$."":Y$."":F$.""|
000017A0: 3A 58 B2 30 3A 5A B2 30 3A 49 B2 30 00 CF 1F 90 |:X.0:Z.0:I.0....|
000017B0: 03 43 4F B2 30 3A 51 B2 30 3A 4E B2 30 3A 43 B2 |.CO.0:Q.0:N.0:C.|
000017C0: 30 3A 52 B2 30 3A 54 30 B2 30 3A 4A 4B B2 30 00 |0:R.0:T0.0:JK.0.|
000017D0: D8 1F 93 03 8D 39 30 30 00 F3 1F 98 03 8F 20 2A |.....900...... *|
000017E0: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
000017F0: 20 2A 2A 00 11 20 9D 03 99 22 93 22 3A 99 22 A0 | **.. ...".":.".|
00001800: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
00001810: 45 00 28 20 A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.( ....(UB.40).|
00001820: B1 39 36 A7 8D 37 30 30 00 41 20 A3 03 8F 20 2A |.96..700.A ... *|
00001830: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
00001840: 2A 00 55 20 A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*.U ... .(0).200|
00001850: 30 A7 39 33 37 00 83 20 A5 03 99 22 93 11 11 05 |0.937.. ..."....|
00001860: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001870: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001880: 48 11 22 00 A7 20 A6 03 99 22 4D 45 4D 4F 52 59 |H.".. ..."MEMORY|
00001890: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
000018A0: 47 52 41 4D 20 21 22 00 B2 20 A7 03 9E 55 55 AA |GRAM !".. ...UU.|
000018B0: 37 31 00 B8 20 A8 03 80 00 D2 20 A9 03 99 22 93 |71.. ..... ...".|
000018C0: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
000018D0: 36 32 00 01 21 AC 03 8F 20 2A 2A 20 42 41 53 49 |62..!... ** BASI|
000018E0: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
000018F0: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
00001900: 2A 00 3F 21 AD 03 97 31 30 37 35 2C 31 33 33 3A |*.?!...1075,133:|
00001910: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
00001920: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
00001930: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001940: 75 21 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |u!...1091,155:.1|
00001950: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001960: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001970: 33 2C 31 33 33 00 97 21 AF 03 97 31 31 30 34 2C |3,133..!...1104,|
00001980: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001990: 30 38 32 2C 32 33 34 00 AE 21 B1 03 8B C2 28 35 |082,234..!....(5|
000019A0: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 DD |0003)..160.955..|
000019B0: 21 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |!...1093,88:.109|
000019C0: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
000019D0: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 F2 21 |1102,228:.965..!|
000019E0: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
000019F0: 39 30 00 21 22 C0 03 97 31 30 39 33 2C 34 39 3A |90.!"...1093,49:|
00001A00: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
00001A10: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
00001A20: 35 00 5B 22 C2 03 97 32 30 39 39 2C 31 34 31 3A |5.["...2099,141:|
00001A30: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001A40: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001A50: 34 31 3A 97 32 31 30 35 2C 32 31 00 97 22 C3 03 |41:.2105,21.."..|
00001A60: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001A70: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001A80: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001A90: 31 32 32 2C 31 34 31 00 D1 22 C4 03 97 32 31 32 |122,141.."...212|
00001AA0: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001AB0: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001AC0: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001AD0: 33 00 EF 22 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3.."...UU.48:. D|
00001AE0: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001AF0: 00 23 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |.#...800:. TITLE|
00001B00: 00 10 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |..#...300:. MENU|
00001B10: 00 41 23 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |.A#...".THE PGM |
00001B20: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
00001B30: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001B40: 80 00 76 23 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |..v#...UZ.1..UP%|
00001B50: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001B60: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001B70: 45 52 45 20 2A 2A 00 A2 23 E9 03 99 22 93 05 22 |ERE **..#...".."|
00001B80: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001B90: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001BA0: 31 34 00 BE 23 EA 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |14..#...********|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA |**************..|
00001BC0: 23 EB 03 8F 2A 2A 4D 45 4E 55 20 41 44 44 45 44 |#...**MENU ADDED|
00001BD0: 20 41 4E 44 20 50 47 4D 2A 2A 00 F6 23 EC 03 8F | AND PGM**..#...|
00001BE0: 2A 2A 20 20 20 4D 4F 44 49 46 49 45 44 20 42 59 |** MODIFIED BY|
00001BF0: 20 20 20 20 2A 2A 00 12 24 ED 03 8F 2A 2A 20 20 | **..$...** |
00001C00: 20 4A 41 4D 45 53 20 4D 55 4E 52 4F 20 20 20 20 | JAMES MUNRO |
00001C10: 2A 2A 00 2E 24 EE 03 8F 2A 2A 20 20 20 31 39 38 |**..$...** 198|
00001C20: 32 20 30 36 20 33 30 20 20 20 20 20 2A 2A 00 4A |2 06 30 **.J|
00001C30: 24 EF 03 8F 2A 2A 20 4F 53 48 41 57 41 20 2C 20 |$...** OSHAWA , |
00001C40: 4F 4E 54 41 52 49 4F 20 2A 2A 00 68 24 F0 03 8F |ONTARIO **.h$...|
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 00 86 24 F2 03 8F 2A 20 |********..$...* |
00001C70: 52 45 56 49 53 45 44 20 41 4E 44 20 55 50 47 52 |REVISED AND UPGR|
00001C80: 41 44 45 44 20 2A 00 A4 24 F4 03 8F 2A 20 46 4F |ADED *..$...* FO|
00001C90: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 42 |R COMMODORE 64 B|
00001CA0: 59 20 20 2A 00 C2 24 F6 03 8F 2A 20 20 20 20 20 |Y *..$...* |
00001CB0: 20 44 45 52 45 4B 20 4C 45 45 20 20 20 20 20 20 | DEREK LEE |
00001CC0: 20 2A 00 E0 24 F8 03 8F 2A 20 20 20 20 20 20 4A | *..$...* J|
00001CD0: 55 4C 59 20 32 37 2F 38 32 20 20 20 20 20 20 2A |ULY 27/82 *|
00001CE0: 00 FE 24 FA 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$...**********|
00001CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 |**************.3|
00001D00: 25 4D 04 53 45 24 B2 22 11 12 20 57 48 41 54 20 |%M.SE$.".. WHAT |
00001D10: 49 53 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 |IS THE NAME OF T|
00001D20: 48 45 20 43 41 50 49 54 41 4C 20 43 49 54 59 20 |HE CAPITAL CITY |
00001D30: 4F 46 22 00 5D 25 5F 04 8C 3A 99 22 93 22 3A 4E |OF".]%_..:.".":N|
00001D40: B2 AB 31 3A 43 B2 30 3A 52 49 B2 30 3A 57 B2 30 |..1:C.0:RI.0:W.0|
00001D50: 3A 97 55 54 2C 55 55 25 3A 8D 38 37 35 00 6D 25 |:.UT,UU%:.875.m%|
00001D60: 60 04 81 20 49 B2 31 20 A4 20 31 30 30 00 7F 25 |`.. I.1 . 100..%|
00001D70: 6A 04 87 20 41 24 28 49 29 2C 42 24 28 49 29 00 |j.. A$(I),B$(I).|
00001D80: 9D 25 74 04 8B 41 24 28 49 29 B2 22 39 39 39 22 |.%t..A$(I)."999"|
00001D90: A7 54 30 B2 49 AB 31 3A 49 B2 31 30 31 00 A5 25 |.T0.I.1:I.101..%|
00001DA0: 7E 04 82 20 49 00 BE 25 7F 04 55 50 B2 30 3A 55 |~.. I..%..UP.0:U|
00001DB0: 47 24 B2 22 51 55 49 5A 22 3A 8D 38 35 30 00 ED |G$."QUIZ":.850..|
00001DC0: 25 88 04 99 22 11 20 54 48 49 53 20 50 52 4F 47 |%...". THIS PROG|
00001DD0: 52 41 4D 20 57 49 4C 4C 20 54 45 53 54 20 59 4F |RAM WILL TEST YO|
00001DE0: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 22 00 13 26 |UR KNOWLEDGE"..&|
00001DF0: 92 04 99 A3 37 29 22 11 12 20 4F 46 20 57 4F 52 |....7)".. OF WOR|
00001E00: 4C 44 20 43 41 50 49 54 41 4C 20 43 49 54 49 45 |LD CAPITAL CITIE|
00001E10: 53 2E 22 00 3D 26 9C 04 99 22 11 20 41 46 54 45 |S.".=&...". AFTE|
00001E20: 52 20 45 41 43 48 20 53 54 41 54 45 20 50 4C 45 |R EACH STATE PLE|
00001E30: 41 53 45 20 54 59 50 45 20 54 48 45 22 00 6C 26 |ASE TYPE THE".l&|
00001E40: A6 04 99 22 11 20 41 50 50 52 4F 50 52 49 41 54 |...". APPROPRIAT|
00001E50: 45 20 4E 41 4D 45 20 54 48 45 4E 20 50 52 45 53 |E NAME THEN PRES|
00001E60: 53 20 3C 52 45 54 55 52 4E 3E 2E 22 00 9B 26 A7 |S <RETURN>."..&.|
00001E70: 04 99 22 11 20 54 4F 20 53 4B 49 50 20 41 20 43 |..". TO SKIP A C|
00001E80: 4F 55 4E 54 52 59 2C 50 52 45 53 53 20 3C 4E 3E |OUNTRY,PRESS <N>|
00001E90: 20 3C 52 45 54 55 52 4E 3E 2E 22 00 CB 26 BA 04 | <RETURN>."..&..|
00001EA0: 99 22 11 20 57 48 49 43 48 20 57 4F 55 4C 44 20 |.". WHICH WOULD |
00001EB0: 59 4F 55 20 4C 49 4B 45 20 54 4F 20 53 54 41 52 |YOU LIKE TO STAR|
00001EC0: 54 20 57 49 54 48 3F 20 2D 2D 22 00 F0 26 C4 04 |T WITH? --"..&..|
00001ED0: 99 22 11 20 20 20 20 20 20 12 31 92 20 47 49 56 |.". .1. GIV|
00001EE0: 45 4E 20 54 48 45 20 43 41 50 49 54 41 4C 53 22 |EN THE CAPITALS"|
00001EF0: 00 16 27 C6 04 99 22 11 20 20 20 20 20 20 12 32 |..'...". .2|
00001F00: 92 20 47 49 56 45 4E 20 54 48 45 20 43 4F 55 4E |. GIVEN THE COUN|
00001F10: 54 52 49 45 53 22 00 2F 27 C7 04 99 22 11 1D 1D |TRIES"./'..."...|
00001F20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 3F 1D 22 3B 00 |.......... ?.";.|
00001F30: 4D 27 C9 04 55 4C B2 31 3A 55 53 24 B2 22 31 32 |M'..UL.1:US$."12|
00001F40: 48 22 3A 8D 33 35 3A 5A 24 B2 55 52 24 00 56 27 |H":.35:Z$.UR$.V'|
00001F50: CA 04 8D 38 37 35 00 67 27 CE 04 8B 5A 24 B2 22 |...875.g'...Z$."|
00001F60: 31 22 A7 31 39 34 30 00 75 27 D8 04 8B 51 B2 31 |1".1940.u'...Q.1|
00001F70: A7 31 39 37 30 00 7E 27 DD 04 4E B2 AB 31 00 8E |.1970.~'..N..1..|
00001F80: 27 E2 04 4E B2 4E AA 31 3A 43 B2 43 AA 31 00 A1 |'..N.N.1:C.C.1..|
00001F90: 27 EC 04 49 B2 B5 28 54 30 AC BB 28 31 29 29 AA |'..I..(T0..(1)).|
00001FA0: 31 00 B7 27 F6 04 8B 20 41 24 28 49 29 B2 22 2A |1..'... A$(I)."*|
00001FB0: 22 A7 20 31 32 36 30 00 C3 27 00 05 43 4F B2 43 |". 1260..'..CO.C|
00001FC0: 4F AA 31 00 DA 27 0A 05 46 24 B2 41 24 28 49 29 |O.1..'..F$.A$(I)|
00001FD0: 3A 41 24 28 49 29 B2 22 2A 22 00 E2 27 14 05 51 |:A$(I)."*"..'..Q|
00001FE0: B2 30 00 02 28 1D 05 55 50 B2 4E 3A 55 47 24 B2 |.0..(..UP.N:UG$.|
00001FF0: 22 20 51 55 45 53 54 49 4F 4E 20 23 22 3A 8D 38 |" QUESTION #":.8|
00002000: 35 30 00 0C 28 1E 05 99 20 53 45 24 00 1D 28 28 |50..(... SE$..((|
00002010: 05 99 A3 36 29 46 24 3B 22 3F 20 22 3B 00 57 28 |...6)F$;"? ";.W(|
00002020: 32 05 55 4C B2 32 30 3A 55 53 24 B2 22 3F 51 57 |2.UL.20:US$."?QW|
00002030: 45 52 54 59 55 49 4F 50 4C 4B 4A 48 47 46 44 53 |ERTYUIOPLKJHGFDS|
00002040: 41 5A 58 43 56 42 4E 4D 20 22 3A 8D 33 35 3A 5A |AZXCVBNM ":.35:Z|
00002050: 24 B2 55 52 24 3A 99 00 67 28 33 05 8B 5A 24 B2 |$.UR$:..g(3..Z$.|
00002060: 22 51 22 20 A7 20 8E 00 7A 28 3C 05 8B 42 24 28 |"Q" . ..z(<..B$(|
00002070: 49 29 B2 5A 24 A7 31 34 31 30 00 8D 28 46 05 8B |I).Z$.1410..(F..|
00002080: 5A 24 B3 B1 22 4E 22 A7 89 31 33 38 30 00 9D 28 |Z$.."N"..1380..(|
00002090: 50 05 8B 43 4F B2 54 30 89 31 39 30 30 00 A7 28 |P..CO.T0.1900..(|
000020A0: 5A 05 89 32 30 37 30 00 D0 28 64 05 99 22 20 20 |Z..2070..(d.." |
000020B0: 20 20 49 4E 43 4F 52 52 45 43 54 2E 2E 2E 2E 2E | INCORRECT.....|
000020C0: 54 52 59 20 41 47 41 49 4E 22 3A 57 B2 57 AA 31 |TRY AGAIN":W.W.1|
000020D0: 00 E4 28 6E 05 51 B2 51 AA 31 3A 8B 51 B1 32 A7 |..(n.Q.Q.1:.Q.2.|
000020E0: 31 38 30 39 00 EE 28 78 05 89 31 33 31 30 00 1A |1809..(x..1310..|
000020F0: 29 82 05 52 49 B2 52 49 AA 31 3A 99 22 93 11 11 |)..RI.RI.1:."...|
00002100: 11 11 11 11 22 3A 8B 43 B2 30 A7 43 B2 31 3A 52 |....":.C.0.C.1:R|
00002110: B2 B5 28 34 AC BB 28 31 29 29 00 28 29 8C 05 8B |..(4..(1)).()...|
00002120: 52 B2 31 A7 31 34 37 30 00 36 29 96 05 8B 52 B2 |R.1.1470.6)...R.|
00002130: 32 A7 31 34 38 30 00 44 29 A0 05 8B 52 B2 33 A7 |2.1480.D)...R.3.|
00002140: 31 34 39 30 00 52 29 AA 05 8B 52 B2 34 A7 31 35 |1490.R)...R.4.15|
00002150: 30 30 00 7D 29 B4 05 99 22 11 20 20 20 43 4F 52 |00.})...". COR|
00002160: 52 45 43 54 2E 2E 59 4F 55 27 52 45 20 41 20 47 |RECT..YOU'RE A G|
00002170: 45 4E 49 55 53 21 22 3A 89 31 35 33 30 00 98 29 |ENIUS!":.1530..)|
00002180: BE 05 99 22 11 20 20 20 52 49 47 48 54 20 4F 4E |...". RIGHT ON|
00002190: 21 22 3A 89 31 35 33 30 00 B4 29 C8 05 99 22 11 |!":.1530..)...".|
000021A0: 20 20 20 41 4C 4C 20 52 49 47 48 54 21 22 3A 89 | ALL RIGHT!":.|
000021B0: 31 35 33 30 00 D2 29 D2 05 99 22 11 20 20 20 56 |1530..)...". V|
000021C0: 45 52 59 20 47 4F 4F 44 21 21 21 22 3A 89 31 35 |ERY GOOD!!!":.15|
000021D0: 33 30 00 ED 29 DC 05 99 22 11 20 20 20 59 4F 55 |30..)...". YOU|
000021E0: 27 52 45 20 54 4F 4F 20 4D 55 43 48 22 00 13 2A |'RE TOO MUCH"..*|
000021F0: FA 05 99 22 11 20 20 20 59 4F 55 52 20 53 43 4F |...". YOUR SCO|
00002200: 52 45 20 49 53 22 3B 52 49 3B 22 20 43 4F 52 52 |RE IS";RI;" CORR|
00002210: 45 43 54 00 2D 2A 04 06 99 22 11 20 20 20 41 4E |ECT.-*...". AN|
00002220: 44 20 22 57 22 20 57 52 4F 4E 47 2E 22 00 72 2A |D "W" WRONG.".r*|
00002230: 0E 06 99 22 11 20 20 20 44 4F 20 59 4F 55 20 57 |...". DO YOU W|
00002240: 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 28 |ISH TO CONTINUE(|
00002250: 59 2F 4E 29 3F 20 22 3B 3A 55 4C B2 31 3A 55 53 |Y/N)? ";:UL.1:US|
00002260: 24 B2 22 59 4E 48 22 3A 8D 33 35 3A 43 24 B2 55 |$."YNH":.35:C$.U|
00002270: 52 24 00 84 2A 18 06 8B 43 24 B2 22 59 22 A7 89 |R$..*...C$."Y"..|
00002280: 31 35 39 30 00 96 2A 22 06 8B 43 24 B2 22 4E 22 |1590..*"..C$."N"|
00002290: A7 89 31 38 37 35 00 A6 2A 36 06 8B 43 4F B2 54 |..1875..*6..CO.T|
000022A0: 30 89 31 39 30 30 00 B0 2A 40 06 89 31 32 35 30 |0.1900..*@..1250|
000022B0: 00 FC 2A 4A 06 83 41 46 47 48 41 4E 49 53 54 41 |..*J..AFGHANISTA|
000022C0: 4E 2C 4B 41 42 55 4C 2C 41 4E 47 4F 4C 41 2C 4C |N,KABUL,ANGOLA,L|
000022D0: 55 41 4E 44 41 2C 41 4C 47 45 52 49 41 2C 41 4C |UANDA,ALGERIA,AL|
000022E0: 47 49 45 52 53 2C 41 52 47 45 4E 54 49 4E 41 2C |GIERS,ARGENTINA,|
000022F0: 42 55 45 4E 4F 53 20 41 49 52 45 53 00 42 2B 54 |BUENOS AIRES.B+T|
00002300: 06 83 41 55 53 54 52 41 4C 49 41 2C 43 41 4E 42 |..AUSTRALIA,CANB|
00002310: 45 52 52 41 2C 41 55 53 54 52 49 41 2C 56 49 45 |ERRA,AUSTRIA,VIE|
00002320: 4E 4E 41 2C 42 45 4C 47 49 55 4D 2C 42 52 55 53 |NNA,BELGIUM,BRUS|
00002330: 53 45 4C 53 2C 42 4F 4C 49 56 49 41 2C 53 55 43 |SELS,BOLIVIA,SUC|
00002340: 52 45 00 88 2B 5E 06 83 42 52 41 5A 49 4C 2C 42 |RE..+^..BRAZIL,B|
00002350: 52 41 53 49 4C 49 41 2C 42 55 4C 47 41 52 49 41 |RASILIA,BULGARIA|
00002360: 2C 53 4F 46 49 41 2C 42 55 52 4D 41 2C 52 41 4E |,SOFIA,BURMA,RAN|
00002370: 47 4F 4F 4E 2C 43 41 4D 42 4F 44 49 41 2C 50 48 |GOON,CAMBODIA,PH|
00002380: 4E 4F 4D 20 50 45 4E 48 00 CE 2B 68 06 83 43 41 |NOM PENH..+h..CA|
00002390: 4E 41 44 41 2C 4F 54 54 41 57 41 2C 43 48 49 4C |NADA,OTTAWA,CHIL|
000023A0: 45 2C 53 41 4E 54 49 41 47 4F 2C 43 4F 4C 55 4D |E,SANTIAGO,COLUM|
000023B0: 42 49 41 2C 42 4F 47 4F 54 41 2C 43 4F 53 54 41 |BIA,BOGOTA,COSTA|
000023C0: 20 52 49 43 41 2C 53 41 4E 20 4A 4F 53 45 00 17 | RICA,SAN JOSE..|
000023D0: 2C 72 06 83 43 55 42 41 2C 48 41 56 41 4E 41 2C |,r..CUBA,HAVANA,|
000023E0: 43 59 50 52 55 53 2C 4E 49 43 4F 53 49 41 2C 43 |CYPRUS,NICOSIA,C|
000023F0: 5A 45 43 48 4F 53 4C 4F 56 41 4B 49 41 2C 50 52 |ZECHOSLOVAKIA,PR|
00002400: 41 47 55 45 2C 44 45 4E 4D 41 52 4B 2C 43 4F 50 |AGUE,DENMARK,COP|
00002410: 45 4E 48 41 47 45 4E 00 57 2C 7C 06 83 44 4F 4D |ENHAGEN.W,|..DOM|
00002420: 49 4E 49 43 41 4E 20 52 45 50 55 42 4C 49 43 2C |INICAN REPUBLIC,|
00002430: 53 41 4E 54 4F 20 44 4F 4D 49 4E 47 4F 2C 45 51 |SANTO DOMINGO,EQ|
00002440: 55 41 44 4F 52 2C 51 55 49 54 4F 2C 45 47 59 50 |UADOR,QUITO,EGYP|
00002450: 54 2C 43 41 49 52 4F 00 9B 2C 86 06 83 45 4C 20 |T,CAIRO..,...EL |
00002460: 53 41 4C 56 41 44 4F 52 2C 53 41 4E 20 53 41 4C |SALVADOR,SAN SAL|
00002470: 56 41 44 4F 52 2C 45 54 48 49 4F 50 49 41 2C 41 |VADOR,ETHIOPIA,A|
00002480: 44 44 49 53 20 41 42 41 42 41 2C 46 49 4E 4C 41 |DDIS ABABA,FINLA|
00002490: 4E 44 2C 48 45 4C 53 49 4E 4B 49 00 E1 2C 90 06 |ND,HELSINKI..,..|
000024A0: 83 46 52 41 4E 43 45 2C 50 41 52 49 53 2C 57 45 |.FRANCE,PARIS,WE|
000024B0: 53 54 20 47 45 52 4D 41 4E 59 2C 42 4F 4E 4E 2C |ST GERMANY,BONN,|
000024C0: 45 41 53 54 20 47 45 52 4D 41 4E 59 2C 42 45 52 |EAST GERMANY,BER|
000024D0: 4C 49 4E 2C 47 52 45 45 43 45 2C 41 54 48 45 4E |LIN,GREECE,ATHEN|
000024E0: 53 00 11 2D 9A 06 83 47 55 41 54 45 4D 41 4C 41 |S..-...GUATEMALA|
000024F0: 2C 47 55 41 54 45 4D 41 4C 41 20 43 49 54 59 2C |,GUATEMALA CITY,|
00002500: 47 55 59 41 4E 41 2C 47 45 4F 52 47 45 54 4F 57 |GUYANA,GEORGETOW|
00002510: 4E 00 28 2D A4 06 83 49 43 45 4C 41 4E 44 2C 52 |N.(-...ICELAND,R|
00002520: 45 59 4B 4A 41 56 49 4B 00 65 2D AE 06 83 49 4E |EYKJAVIK.e-...IN|
00002530: 44 49 41 2C 4E 45 57 20 44 45 4C 48 49 2C 49 52 |DIA,NEW DELHI,IR|
00002540: 41 4E 2C 54 45 48 52 41 4E 2C 49 52 41 51 2C 42 |AN,TEHRAN,IRAQ,B|
00002550: 41 47 48 44 41 44 2C 49 52 45 4C 41 4E 44 2C 44 |AGHDAD,IRELAND,D|
00002560: 55 42 4C 49 4E 00 B0 2D B8 06 83 49 53 52 41 45 |UBLIN..-...ISRAE|
00002570: 4C 2C 4A 45 52 55 53 41 4C 45 4D 2C 49 54 41 4C |L,JERUSALEM,ITAL|
00002580: 59 2C 52 4F 4D 45 2C 4A 41 4D 41 49 43 41 2C 4B |Y,ROME,JAMAICA,K|
00002590: 49 4E 47 53 54 4F 4E 2C 4A 41 50 41 4E 2C 54 4F |INGSTON,JAPAN,TO|
000025A0: 4B 59 4F 2C 4A 4F 52 44 41 4E 2C 41 4D 4D 41 4E |KYO,JORDAN,AMMAN|
000025B0: 00 FC 2D C2 06 83 4B 45 4E 59 41 2C 4E 41 49 52 |..-...KENYA,NAIR|
000025C0: 4F 42 49 2C 4C 45 42 41 4E 4F 4E 2C 42 45 49 52 |OBI,LEBANON,BEIR|
000025D0: 55 54 2C 4C 49 45 43 48 54 45 4E 53 54 45 49 4E |UT,LIECHTENSTEIN|
000025E0: 2C 56 41 44 55 5A 2C 4C 55 58 45 4D 42 4F 55 52 |,VADUZ,LUXEMBOUR|
000025F0: 47 2C 4C 55 58 45 4D 42 4F 55 52 47 00 47 2E CC |G,LUXEMBOURG.G..|
00002600: 06 83 4D 41 4C 54 41 2C 56 41 4C 4C 45 54 54 41 |..MALTA,VALLETTA|
00002610: 2C 4D 45 58 49 43 4F 2C 4D 45 58 49 43 4F 20 43 |,MEXICO,MEXICO C|
00002620: 49 54 59 2C 4D 4F 52 4F 43 43 4F 2C 52 41 42 41 |ITY,MOROCCO,RABA|
00002630: 54 2C 4E 45 54 48 45 52 4C 41 4E 44 53 2C 41 4D |T,NETHERLANDS,AM|
00002640: 53 54 45 52 44 41 4D 00 8F 2E D6 06 83 4E 45 57 |STERDAM......NEW|
00002650: 20 5A 45 41 4C 41 4E 44 2C 57 45 4C 4C 49 4E 47 | ZEALAND,WELLING|
00002660: 54 4F 4E 2C 4E 49 43 41 52 41 47 55 41 2C 4D 41 |TON,NICARAGUA,MA|
00002670: 4E 41 47 55 41 2C 4E 49 47 45 52 49 41 2C 4C 41 |NAGUA,NIGERIA,LA|
00002680: 47 4F 53 2C 4E 4F 52 57 41 59 2C 4F 53 4C 4F 00 |GOS,NORWAY,OSLO.|
00002690: DB 2E E0 06 83 50 41 52 41 47 55 41 59 2C 41 53 |.....PARAGUAY,AS|
000026A0: 55 4E 43 49 4F 4E 2C 50 45 52 55 2C 4C 49 4D 41 |UNCION,PERU,LIMA|
000026B0: 2C 50 4F 4C 41 4E 44 2C 57 41 52 53 41 57 2C 50 |,POLAND,WARSAW,P|
000026C0: 4F 52 54 55 47 41 4C 2C 4C 49 53 42 4F 4E 2C 53 |ORTUGAL,LISBON,S|
000026D0: 50 41 49 4E 2C 4D 41 44 52 49 44 00 20 2F EA 06 |PAIN,MADRID. /..|
000026E0: 83 53 55 44 41 4E 2C 4B 48 41 52 54 4F 55 4D 2C |.SUDAN,KHARTOUM,|
000026F0: 53 57 45 44 45 4E 2C 53 54 4F 43 4B 48 4F 4C 4D |SWEDEN,STOCKHOLM|
00002700: 2C 53 57 49 54 5A 45 52 4C 41 4E 44 2C 42 45 52 |,SWITZERLAND,BER|
00002710: 4E 2C 53 59 52 49 41 2C 44 41 4D 41 53 43 55 53 |N,SYRIA,DAMASCUS|
00002720: 00 67 2F F4 06 83 54 48 41 49 4C 41 4E 44 2C 42 |.g/...THAILAND,B|
00002730: 41 4E 47 4B 4F 4B 2C 54 55 52 4B 45 59 2C 41 4E |ANGKOK,TURKEY,AN|
00002740: 4B 41 52 41 2C 55 47 41 4E 44 41 2C 4B 41 4D 50 |KARA,UGANDA,KAMP|
00002750: 41 4C 41 2C 53 4F 56 49 45 54 20 55 4E 49 4F 4E |ALA,SOVIET UNION|
00002760: 2C 4D 4F 53 43 4F 57 00 89 2F FE 06 83 55 4E 49 |,MOSCOW../...UNI|
00002770: 54 45 44 20 53 54 41 54 45 53 2C 57 41 53 48 49 |TED STATES,WASHI|
00002780: 4E 47 54 4F 4E 20 44 20 43 00 C9 2F 08 07 83 55 |NGTON D C../...U|
00002790: 4E 49 54 45 44 20 4B 49 4E 47 44 4F 4D 2C 4C 4F |NITED KINGDOM,LO|
000027A0: 4E 44 4F 4E 2C 55 52 41 47 55 41 59 2C 4D 4F 4E |NDON,URAGUAY,MON|
000027B0: 54 45 56 49 44 45 4F 2C 56 45 4E 45 5A 55 45 4C |TEVIDEO,VENEZUEL|
000027C0: 41 2C 43 41 52 41 43 41 53 00 E2 2F 09 07 83 59 |A,CARACAS../...Y|
000027D0: 55 47 4F 53 4C 41 56 49 41 2C 42 45 4C 47 52 41 |UGOSLAVIA,BELGRA|
000027E0: 44 45 00 F0 2F 11 07 8D 38 33 35 3A 8D 38 35 30 |DE../...835:.850|
000027F0: 00 23 30 12 07 99 22 11 11 11 11 11 11 11 11 20 |.#0..."........ |
00002800: 49 20 47 55 45 53 53 20 59 4F 55 20 52 45 41 4C |I GUESS YOU REAL|
00002810: 4C 59 20 44 49 44 4E 27 54 20 4B 4E 4F 57 20 49 |LY DIDN'T KNOW I|
00002820: 54 21 22 00 4D 30 26 07 99 22 11 20 54 48 45 20 |T!".M0&..". THE |
00002830: 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 20 49 |CORRECT ANSWER I|
00002840: 53 20 22 3B 42 24 28 49 29 3B 22 2E 22 00 7B 30 |S ";B$(I);".".{0|
00002850: 30 07 99 22 11 20 54 41 4B 45 20 47 4F 4F 44 20 |0..". TAKE GOOD |
00002860: 4E 4F 54 45 20 4F 46 20 49 54 20 46 4F 52 20 46 |NOTE OF IT FOR F|
00002870: 55 54 55 52 45 20 55 53 45 21 22 00 84 30 3A 07 |UTURE USE!"..0:.|
00002880: 8D 38 33 35 00 8E 30 4E 07 89 31 32 35 30 00 9E |.835..0N..1250..|
00002890: 30 53 07 8B 43 4F B2 54 30 89 31 39 30 30 00 A4 |0S..CO.T0.1900..|
000028A0: 30 58 07 8E 00 D1 30 6C 07 99 22 93 11 11 11 11 |0X....0l..".....|
000028B0: 11 11 11 11 20 20 20 20 20 20 20 59 4F 55 20 48 |.... YOU H|
000028C0: 41 56 45 20 45 58 48 41 55 53 54 45 44 20 4D 59 |AVE EXHAUSTED MY|
000028D0: 22 00 F5 30 6D 07 99 22 11 20 20 20 20 20 20 20 |"..0m..". |
000028E0: 53 55 50 50 4C 59 20 4F 46 20 43 4F 55 4E 54 52 |SUPPLY OF COUNTR|
000028F0: 49 45 53 2E 22 00 37 31 6E 07 99 22 11 20 20 20 |IES.".71n..". |
00002900: 20 20 20 20 4E 55 4D 42 45 52 20 43 4F 52 52 45 | NUMBER CORRE|
00002910: 43 54 20 22 43 3A 99 22 11 20 20 20 20 20 20 20 |CT "C:.". |
00002920: 4E 55 4D 42 45 52 20 49 4E 43 4F 52 52 45 43 54 |NUMBER INCORRECT|
00002930: 22 57 3A 8D 38 33 35 00 3D 31 8A 07 8E 00 43 31 |"W:.835.=1....C1|
00002940: 94 07 8C 00 4B 31 9E 07 51 B2 31 00 5B 31 A8 07 |....K1..Q.1.[1..|
00002950: 81 20 49 B2 31 20 A4 20 31 30 30 00 6D 31 B2 07 |. I.1 . 100.m1..|
00002960: 87 20 42 24 28 49 29 2C 41 24 28 49 29 00 8B 31 |. B$(I),A$(I)..1|
00002970: BC 07 8B 42 24 28 49 29 B2 22 39 39 39 22 A7 54 |...B$(I)."999".T|
00002980: 30 B2 49 AB 31 3A 89 32 30 30 30 00 93 31 C6 07 |0.I.1:.2000..1..|
00002990: 82 20 49 00 C3 31 D0 07 53 45 24 B2 22 11 20 12 |. I..1..SE$.". .|
000029A0: 57 48 41 54 20 43 4F 55 4E 54 52 59 20 48 41 53 |WHAT COUNTRY HAS|
000029B0: 20 41 53 20 49 54 27 53 20 43 41 50 49 54 41 4C | AS IT'S CAPITAL|
000029C0: 20 11 22 00 CD 31 DA 07 89 31 32 35 30 00 DA 31 | ."..1...1250..1|
000029D0: 0C 08 83 39 39 39 2C 39 39 39 00 E6 31 16 08 4A |...999,999..1..J|
000029E0: 4B B2 4A 4B AA 31 00 F7 31 17 08 8B 4A 4B B1 36 |K.JK.1..1...JK.6|
000029F0: 30 A7 89 31 39 30 30 00 07 32 18 08 4E B2 4E AA |0..1900..2..N.N.|
00002A00: 31 3A 89 31 32 36 30 00 00 00 |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.W.7..UI$.G(13).C(UR$)..1..UC,1:."
.";:.85...<..UI$.G(20).105...>.. C(UR$).
.UL.50.#.A..120:. CHECK FOR VALID CHARAC
TER.3.F.UR$.UR$.UI$.=.K..UI$;.E.P..50.J.
U.. +++ CHECK FOR HELP REQUEST +++...Z..
UR$.UX$.195:. EXIT TO HELP ROUTINE..._..
UF.1..240...D.UF.0:.:..G.F.. ++ CHECK DE
LETE ++.X.I..C(UR$).1.50...N.UR$.H(UR$,C
(UR$).1)...S..". ..";:.50.).X.. ++ CHEC
K FOR VALID CHARACTERS ++.;.}..C(US$).0.
150.L....US.1.C(US$).C....UI$.J(US$,US,1
)...I.....V...UI$."":....... ** STANDARD
INPUT **......F(UI$).46........UI$.G(32
)...P. ..F(UI$).48.F(UI$).57.170.V......
....F(UI$).65.F(UI$).90.180............F
(UI$).193.F(UI$).218.UI$."":..@....B(UT)
.UU%.UI$.G(F(UI$).128):..F.....S...UI$."
":..X.C.UF.1:. +++ HELP ROUTINE EXIT +++
...E..250...H..245...M..UQ.UB.(U2%.256.U
1%.U3%.2).E.R.UQ%(UQ.UB).B(UQ):.:.".".X.
W.UZ.1:UV%.B(UT)...X..300.%.Y.UZ.0:US$.U
J$:UG$.UK$:UP.UJ:UL.UK:.B(50003).0..5328
1,6:.53280,14.Z...UT$.UL$:.".";:.UT,UV%:
.UQ.UB.(U2%.256.U1%.U3%.3).O....UQ,UQ%(U
Q.UB):..{....U1,U1%......U2,U2%......U4,
U4%......U3,U3%.1......35.....UD%.((U2%.
256.U1%.U3%).UB).40:.H(UD$,UD%.1):......
.H(UD$,24);" . HELP
COMING . ":..B...U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).J...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.P.......,.. ** MENU *
*...-.:......".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.../.:.Y.1..".
MENU"...6.." -----------------------
---------------".2.;..".. 1. BEG
IN WORLD CAPITALS".\.@..".. 2. S
TUDENT INSTRUCTIONS"...E..".. 3.
TEACHER INSTRUCTIONS"...J..".. 4.
MODIFICATION OF PROGRAM".O.O.."..
5. QUIT.."...T.." -----------------
---------------------".).Y..".. PR
ESS A NUMBER KEY (1-5) ";.R.^.UL.1:US$."
12345":.35:. INPUT ROUTINE.].`.US$."".~.
C..E(UR$).1000,400,500,600,396...H..300.
..... ** RE-ENABLE STOP KEY AND END **..
....B(50003)..1.B(50003)..160.B(50003)..
0.399......UU.71:.B(50003).0..53281,6:.5
3280,14......"..":.......875:..?.... **
STUDENT INSTRUCTIONS **.N....".":.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".
=....". THE MENU PRESS <H> <RETURN>.".K.
...".. PRESS <RETURN> AFTER EACH ENTR
Y.".T....835......UZ.1..UP%:.217........
.... ** TEACHER INSTRUCTIONS **......"."
:.UT,UL%:.B(50003).0..53281,2:.53280,10.
....UP.0:UG$."TEACHER INST":.850......".
. TO THE BEST OF OUR KNOWLEDGE,.".W
...." THIS PROGRAM IS IN THE PUBLIC.".
....." DOMAIN. IF THIS IS NOT THE CAS
E.". ...." PLEASE CONTACT:...".J...."
COMMODORE BUSINESS MACHINES."......
" 3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".3...."
CANADA M1W 2K4".S...." (416
) 499-4292".I...UP.1:. 835:. 850:......"
..PROGRAM NAME: WORLD CAPITALS.....
.." WRITTEN BY : UNKNOWN......."
UPGRADED BY : JAMES MUNRO......" .
THIS PROGRAM WILL RUN ON ANY...-...."
BASIC 2.0 PET COMPUTER..T...."
BASIC 4.0 PET COMPUTER..V...."
8032 CBM COMPUTER......." CO
MMODORE 64 COMPUTER...D..835...N..UZ.1..
UP%:.217...W.....X.. ** PROGRAM MODIFICA
TION INST **...Y..".":.UT,UL%...].UH.1:U
P.0:UG$."PROGRAM MOD":.850.K.^.."......
THIS PROGRAM MAY BE MODIFIED SO".V._.
.". ONLY CERTAIN AREAS OF THE WORLD"..
.A..". ARE REPRESENTED OR ELSE ADDITIO
NAL".G.C..". COUNTRIES MAY BE ADDED.".
Z.G.UH.1:.835:.850...L.."..... TO ADD O
R CHANGE THE COUNTRIES IN".8.M..". THIS
PROGRAM, YOU MAY ALTER THE DATA".^.N..".
STATEMENTS THAT ARE FOUND IN"...O..". L
INES 1610-1800. IN THE DATA, THE"...P.."
. COUNTRIES ARE ALWAYS FOLLOWED BY".L.R.
.". THEIR CAPITALS.".U....835......UZ.1.
.UP%:.217............ ** TO USE 8032 LOA
D CBM4032 **.J.F..".....BEFORE RUNNING T
HIS PROGRAM ON AN 8032 .....P.." L
OAD THE 'CBM 4032' PROGRAM............."
...Z..UU.71......... .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003)
.0..53280,14:.53281,6...$..I.1.38:."..."
;:....&..I.1.22:.".....";:..+.(..I.1.37:
.".....";:..C.*..I.1.22:.".....";:..H.,.
."........................... .......".
.................. . . .....0..".......
............ . ....I.2.."..............
...... ....4.."..............C O M M O
D O R E.....6.."...............EDUCATION
AL...3.8.."................SOFTWARE.N.:.
. ** COMMODORE LOGO **...;..H(UD$,24);".
.........PRESS SPACE BAR OR WAIT.":I.0..
.<..A$:.A$.." ".I.I.1:.I.250.828.L.>.T1$
."":T2$."":T3$."":T4$."":I.0.U.@..300...
C.. ** SPACE BAR PRESS **.,.H..UO,0:.H(U
D$,24);".......PRESS SPACE BAR TO CONTIN
UE.".C.L..UI$:.UI$.." ".844.I.N...I.R..
** PAGE DESIGN ROUTINE **.U.T.UP.UP.1...
W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).
N.\.." ---------------------------------
-----"...`..UH..0.870...A..H(UD$,24);H(U
P$,7);"HELP - PRESS H <RETURN>".".F.UH
.0:."..":..A.K.. ** PLEASE WAIT REMARK *
*.W.P..H(UD$,24);" ONE MOMENT
PLEASE... ".}.U........ ** SET UP VA
RIABLES **.....UX$."H":.UQ%(1000):UB.327
68:U1.196:U2.197:U3.198:U4.216:UC.167:UU
.1024.#...UT.59468:UU%.12:UL%.14:UP%.114
6:UM.32768:UO.158:. 50003,0.F....B(50003
).0.UB.1024:U1.209:U2.210:U3.211:U4.214:
UC.204:UU.2048......B(50003).0.UT.53272:
UU%.21:UL%.23:UP%.2139:UM.1024:UO.198.I.
..UD$.".........................".....UP
$."
".I...UT$." WORLD CAPITALS ":. PLAC
E PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!**
*.O.....I.... ** SET VARIABLES **.....UG
$." PAGE#":.A$(100),B$(220):C$."":Y$.
"":F$."":X.0:Z.0:I.0.O...CO.0:Q.0:N.0:C.
0:R.0:T0.0:JK.0.X....900...... ** CHECK
FOR 8032 **.. ...".":." ":. SHIFTED SPAC
E.( ...B(UB.40)..96..700.A ... ** MEMORY
CHECK **.U ... .(0).2000.937.. ..."....
THIS MACHINE DOES NOT HAVE ENOUGH.".. ..
."MEMORY TO RUN THIS PROGRAM !".. ...UU.
71.. ....R ..."..":.B(50003).0.962..!...
** BASIC 2.0 OR 4.0 OR C-64 SETUP *
*.?!...1075,133:.1076,144:.1077,234:.107
9,4:.1080,133:.1081,145.U!...1091,155:.1
098,133:.1099,144:.1100,234:.1103,133..!
...1104,145:.1105,234:.1082,234..!...B(5
0003)..160.955..!...1093,88:.1094,228:.1
097,85:.1102,228:.965..!...B(50003)..1.9
90.!"...1093,49:.1094,230:.1097,46:.1102
,230:.965.["B..2099,141:.2100,20:.2101,3
:.2103,8:.2104,141:.2105,21.."C..2106,3:
.2115,145:.2117,52:.2118,234:.2121,49:.2
122,141.Q"D..2123,20:.2124,3:.2126,234:.
2127,141:.2128,21:.2129,3.."E..UU.48:. D
ISABLE STOP KEY..#J..800:. TITLE..#T..30
0:. MENU.A#...".THE PGM WILL NOT WORK ON
THIS MACHINE!":..V#...UZ.1..UP%:.UP%:UZ
.0:. ** PROGRAM STARTS HERE **..#...".."
;:.:.B(50003).0..53281,6:.53280,14..#...
**********************.Z#...**MENU ADDED
AND PGM**..#...** MODIFIED BY **..
$...** JAMES MUNRO **..$...** 198
2 06 30 **.J$...** OSHAWA , ONTARIO
**.H$...************************..$...*
REVISED AND UPGRADED *..$...* FOR COMMOD
ORE 64 BY *.B$...* DEREK LEE
*..$...* JULY 27/82 *..$...**
**********************.3%M.SE$.".. WHAT
IS THE NAME OF THE CAPITAL CITY OF".]%_.
.:.".":N..1:C.0:RI.0:W.0:.UT,UU%:.875.M%
`.. I.1 . 100.%J.. A$(I),B$(I)..%T..A$(
I)."999".T0.I.1:I.101..%~.. I..%.UP.0:U
G$."QUIZ":.850..%...". THIS PROGRAM WILL
TEST YOUR KNOWLEDGE"..&....7)".. OF WOR
LD CAPITAL CITIES.".=&...". AFTER EACH S
TATE PLEASE TYPE THE".L&...". APPROPRIAT
E NAME THEN PRESS <RETURN>."..&...". TO
SKIP A COUNTRY,PRESS <N> <RETURN>.".K&..
.". WHICH WOULD YOU LIKE TO START WITH?
--"..&D..". .1. GIVEN THE CAPITALS"
..'F..". .2. GIVEN THE COUNTRIES"./
'G.."............. ?.";.M'I.UL.1:US$."12
H":.35:Z$.UR$.V'J..875.G'N..Z$."1".1940.
U'X..Q.1.1970.~'..N..1..'..N.N.1:C.C.1..
'..I..(T0..(1)).1..'... A$(I)."*". 1260.
C'..CO.CO.1.Z'..F$.A$(I):A$(I)."*"..'..Q
.0..(..UP.N:UG$." QUESTION #":.850..(...
SE$..((...6)F$;"? ";.W(2.UL.20:US$."?QW
ERTYUIOPLKJHGFDSAZXCVBNM ":.35:Z$.UR$:..
G(3..Z$."Q" . ..Z(<..B$(I).Z$.1410..(F..
Z$.."N"..1380..(P..CO.T0.1900..(Z..2070.
P(D.." INCORRECT.....TRY AGAIN":W.W.1
..(N.Q.Q.1:.Q.2.1809..(X..1310..)..RI.RI
.1:.".......":.C.0.C.1:R..(4..(1)).()...
R.1.1470.6)...R.2.1480.D) ..R.3.1490.R).
..R.4.1500.})...". CORRECT..YOU'RE A G
ENIUS!":.1530..)...". RIGHT ON!":.1530
..)H..". ALL RIGHT!":.1530.R)R..". V
ERY GOOD!!!":.1530..)...". YOU'RE TOO
MUCH"..*...". YOUR SCORE IS";RI;" CORR
ECT.-*...". AND "W" WRONG.".R*...".
DO YOU WISH TO CONTINUE(Y/N)? ";:UL.1:US
$."YNH":.35:C$.UR$..*...C$."Y"..1590..*"
..C$."N"..1875..*6..CO.T0.1900..*@..1250
..*J..AFGHANISTAN,KABUL,ANGOLA,LUANDA,AL
GERIA,ALGIERS,ARGENTINA,BUENOS AIRES.B+T
..AUSTRALIA,CANBERRA,AUSTRIA,VIENNA,BELG
IUM,BRUSSELS,BOLIVIA,SUCRE..+^..BRAZIL,B
RASILIA,BULGARIA,SOFIA,BURMA,RANGOON,CAM
BODIA,PHNOM PENH.N+H..CANADA,OTTAWA,CHIL
E,SANTIAGO,COLUMBIA,BOGOTA,COSTA RICA,SA
N JOSE..,R..CUBA,HAVANA,CYPRUS,NICOSIA,C
ZECHOSLOVAKIA,PRAGUE,DENMARK,COPENHAGEN.
W,|..DOMINICAN REPUBLIC,SANTO DOMINGO,EQ
UADOR,QUITO,EGYPT,CAIRO..,...EL SALVADOR
,SAN SALVADOR,ETHIOPIA,ADDIS ABABA,FINLA
ND,HELSINKI..,...FRANCE,PARIS,WEST GERMA
NY,BONN,EAST GERMANY,BERLIN,GREECE,ATHEN
S..-...GUATEMALA,GUATEMALA CITY,GUYANA,G
EORGETOWN.(-...ICELAND,REYKJAVIK.E-...IN
DIA,NEW DELHI,IRAN,TEHRAN,IRAQ,BAGHDAD,I
RELAND,DUBLIN..-...ISRAEL,JERUSALEM,ITAL
Y,ROME,JAMAICA,KINGSTON,JAPAN,TOKYO,JORD
AN,AMMAN..-B..KENYA,NAIROBI,LEBANON,BEIR
UT,LIECHTENSTEIN,VADUZ,LUXEMBOURG,LUXEMB
OURG.G.L..MALTA,VALLETTA,MEXICO,MEXICO C
ITY,MOROCCO,RABAT,NETHERLANDS,AMSTERDAM.
..V..NEW ZEALAND,WELLINGTON,NICARAGUA,MA
NAGUA,NIGERIA,LAGOS,NORWAY,OSLO......PAR
AGUAY,ASUNCION,PERU,LIMA,POLAND,WARSAW,P
ORTUGAL,LISBON,SPAIN,MADRID. /...SUDAN,K
HARTOUM,SWEDEN,STOCKHOLM,SWITZERLAND,BER
N,SYRIA,DAMASCUS.G/...THAILAND,BANGKOK,T
URKEY,ANKARA,UGANDA,KAMPALA,SOVIET UNION
,MOSCOW../...UNITED STATES,WASHINGTON D
C.I/...UNITED KINGDOM,LONDON,URAGUAY,MON
TEVIDEO,VENEZUELA,CARACAS../...YUGOSLAVI
A,BELGRADE../...835:.850.#0..."........
I GUESS YOU REALLY DIDN'T KNOW IT!".M0&.
.". THE CORRECT ANSWER IS ";B$(I);".".{0
0..". TAKE GOOD NOTE OF IT FOR FUTURE US
E!"..0:..835..0N..1250..0S..CO.T0.1900..
0X...Q0L.."......... YOU HAVE EXHA
USTED MY"..0M..". SUPPLY OF COUNTR
IES.".71N..". NUMBER CORRECT "C:."
. NUMBER INCORRECT"W:.835.=1....C1
....K1..Q.1.[1... I.1 . 100.M1... B$(I),
A$(I)..1...B$(I)."999".T0.I.1:.2000..1F.
. I.C1P.SE$.". .WHAT COUNTRY HAS AS IT'S
CAPITAL .".M1Z..1250.Z1...999,999..1..J
K.JK.1..1...JK.60..1900..2..N.N.1:.1260.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL