WORLD CAPITALS
FILE INFORMATION
FILENAME(S): WORLD CAPITALS
FILE TYPE(S): PRG
FILE SIZE: 11.6K
FIRST SEEN: 2025-11-30 21:08:11
APPEARS ON: 1 disk(s)
FILE HASH
d18fccad6d50b0603f07c86eeb622a9bbb4d3f1c17eae692640ae89c62dcbf70
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPELLEN | WORLD CAPITALS | PRG | DuncanTwain | 3 | 7 | 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 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 02 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 00 12 09 2A 00 8B 55 4C B2 30 A7 55 4C B2 |""...*..UL.0.UL.|
00000110: 38 30 00 1C 09 2D 00 97 55 43 2C 30 00 30 09 32 |80...-..UC,0.0.2|
00000120: 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 |..UI$:.UI$."".50|
00000130: 00 5A 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF |.Z.7..UI$..(13).|
00000140: C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A |.(UR$)..1..UC,1:|
00000150: 99 22 20 9D 22 3B 3A 89 38 35 00 6D 09 3C 00 8B |." .";:.85.m.<..|
00000160: 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 81 09 |UI$..(20).105...|
00000170: 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 |>.. .(UR$)..UL.5|
00000180: 30 00 A6 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 |0...A..120:. CHE|
00000190: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
000001A0: 52 41 43 54 45 52 00 B6 09 46 00 55 52 24 B2 55 |RACTER...F.UR$.U|
000001B0: 52 24 AA 55 49 24 00 C0 09 4B 00 99 55 49 24 3B |R$.UI$...K..UI$;|
000001C0: 00 C8 09 50 00 89 35 30 00 ED 09 55 00 8F 20 2B |...P..50...U.. +|
000001D0: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C |++ CHECK FOR HEL|
000001E0: 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 15 0A |P REQUEST +++...|
000001F0: 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F |Z..UR$.UX$.195:.|
00000200: 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F | EXIT TO HELP RO|
00000210: 55 54 49 4E 45 00 24 0A 5F 00 8B 55 46 B2 31 A7 |UTINE.$._..UF.1.|
00000220: 8D 32 34 30 00 31 0A 64 00 55 46 B2 30 3A 99 3A |.240.1.d.UF.0:.:|
00000230: 8E 00 4A 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B |..J.f.. ++ CHECK|
00000240: 20 44 45 4C 45 54 45 20 2B 2B 00 5B 0A 69 00 8B | DELETE ++.[.i..|
00000250: C3 28 55 52 24 29 B3 31 A7 35 30 00 73 0A 6E 00 |.(UR$).1.50.s.n.|
00000260: 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 |UR$..(UR$,.(UR$)|
00000270: AB 31 29 00 85 0A 73 00 99 22 9D 20 20 9D 9D 22 |.1)...s..". .."|
00000280: 3B 3A 89 35 30 00 AC 0A 78 00 8F 20 2B 2B 20 43 |;:.50...x.. ++ C|
00000290: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 |HECK FOR VALID C|
000002A0: 48 41 52 41 43 54 45 52 53 20 2B 2B 00 BE 0A 7D |HARACTERS ++...}|
000002B0: 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 CF |...(US$).0.150..|
000002C0: 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).|
000002D0: E6 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U|
000002E0: 53 2C 31 29 A7 8E 00 EC 0A 8C 00 82 00 F9 0A 91 |S,1)............|
000002F0: 00 55 49 24 B2 22 22 3A 8E 00 14 0B 96 00 8F 20 |.UI$."":....... |
00000300: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU|
00000310: 54 20 2A 2A 00 25 0B 98 00 8B C6 28 55 49 24 29 |T **.%.....(UI$)|
00000320: B2 34 36 A7 8E 00 36 0B 9B 00 8B 55 49 24 B2 C7 |.46...6....UI$..|
00000330: 28 33 32 29 A7 8E 00 53 0B A0 00 8B C6 28 55 49 |(32)...S.....(UI|
00000340: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.|
00000350: 31 37 30 00 59 0B A5 00 8E 00 76 0B AA 00 8B C6 |170.Y.....v.....|
00000360: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).|
00000370: 39 30 A7 31 38 30 00 7C 0B AF 00 8E 00 A0 0B B4 |90.180.|........|
00000380: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U|
00000390: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.|
000003A0: 00 C3 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.|
000003B0: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128|
000003C0: 29 3A 8E 00 C9 0B BB 00 8E 00 D6 0B BE 00 55 49 |):............UI|
000003D0: 24 B2 22 22 3A 8E 00 FB 0B C3 00 55 46 B2 31 3A |$."":......UF.1:|
000003E0: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI|
000003F0: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 04 0C C5 00 |NE EXIT +++.....|
00000400: 8D 32 35 30 00 0D 0C C8 00 8D 32 34 35 00 2C 0C |.250......245.,.|
00000410: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25|
00000420: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 48 0C D2 |6.U1%.U3%.2).H..|
00000430: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ|
00000440: 29 3A 82 3A 99 22 93 22 00 5B 0C D7 00 55 5A B2 |):.:.".".[...UZ.|
00000450: 31 3A 55 56 25 B2 C2 28 55 54 29 00 64 0C D8 00 |1:UV%..(UT).d...|
00000460: 89 33 30 30 00 A8 0C D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US|
00000470: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
00000480: B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 30 |.UJ:UL.UK:..(500|
00000490: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
000004A0: 35 33 32 38 30 2C 31 34 00 D5 0C DC 00 99 22 93 |53280,14......".|
000004B0: 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 |";:.UT,UV%:.UQ.U|
000004C0: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
000004D0: 33 25 AB 33 29 00 EA 0C E1 00 97 55 51 2C 55 51 |3%.3)......UQ,UQ|
000004E0: 25 28 55 51 AB 55 42 29 3A 82 00 F6 0C E6 00 97 |%(UQ.UB):.......|
000004F0: 55 31 2C 55 31 25 00 02 0D E8 00 97 55 32 2C 55 |U1,U1%......U2,U|
00000500: 32 25 00 0E 0D E9 00 97 55 34 2C 55 34 25 00 1C |2%......U4,U4%..|
00000510: 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 24 0D EB |....U3,U3%.1.$..|
00000520: 00 89 33 35 00 56 0D F0 00 55 44 25 B2 28 28 55 |..35.V...UD%.((U|
00000530: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB |2%.256.U1%.U3%).|
00000540: 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 |UB).40:..(UD$,UD|
00000550: 25 AA 31 29 3A 8E 00 91 0D F5 00 99 C8 28 55 44 |%.1):........(UD|
00000560: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 48 | . H|
00000580: 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A |ELP COMING . ":|
00000590: 8E 00 BD 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A |......U1%..(U1):|
000005A0: 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 |U2%..(U2):U3%..(|
000005B0: 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 CF 0D |U3):U4%..(U4)...|
000005C0: FB 00 55 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 |..UJ$.US$:UJ.UL.|
000005D0: EF 0D FC 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |....UJ$.US$:UK$.|
000005E0: 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UG$:UJ.UP:UK.UL.|
000005F0: F5 0D FF 00 8E 00 06 0E 2C 01 8F 20 2A 2A 20 4D |........,.. ** M|
00000600: 45 4E 55 20 2A 2A 00 0C 0E 2D 01 3A 00 3B 0E 2E |ENU **...-.:.;..|
00000610: 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 |..".":.UT,UU%:..|
00000620: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000630: 2C 39 3A 97 35 33 32 38 30 2C 38 00 41 0E 2F 01 |,9:.53280,8.A./.|
00000640: 3A 00 5E 0E 31 01 99 22 13 20 20 20 20 20 20 20 |:.^.1..". |
00000650: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 8D | MENU"..|
00000660: 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.6.." ----------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 BB 0E |------------"...|
00000690: 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 |;..".. 1. |
000006A0: 20 20 42 45 47 49 4E 20 57 4F 52 4C 44 20 43 41 | BEGIN WORLD CA|
000006B0: 50 49 54 41 4C 20 51 55 49 5A 22 00 E5 0E 40 01 |PITAL QUIZ"...@.|
000006C0: 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 |.".. 2. |
000006D0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
000006E0: 49 4F 4E 53 22 00 0F 0F 45 01 99 22 11 11 20 20 |IONS"...E..".. |
000006F0: 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 | 3. TEACHE|
00000700: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |R INSTRUCTIONS".|
00000710: 3D 0F 4A 01 99 22 11 11 20 20 20 20 20 20 20 34 |=.J..".. 4|
00000720: 2E 20 20 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |. MODIFICATION|
00000730: 20 4F 46 20 50 52 4F 47 52 52 41 4D 22 00 59 0F | OF PROGRRAM".Y.|
00000740: 4F 01 99 22 11 11 20 20 20 20 20 20 20 35 2E 20 |O..".. 5. |
00000750: 20 20 51 55 49 54 11 11 22 00 88 0F 54 01 99 22 | QUIT.."...T.."|
00000760: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 22 00 B3 0F 59 01 99 22 11 |-------"...Y..".|
00000790: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A |
000007A0: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 35 29 |NUMBER KEY (1-5)|
000007B0: 20 22 3B 00 DC 0F 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$|
000007C0: B2 22 31 32 33 34 35 22 3A 8D 33 35 3A 8F 20 49 |."12345":.35:. I|
000007D0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 FD 0F 60 |NPUT ROUTINE...`|
000007E0: 01 55 53 24 B2 22 22 3A 55 54 24 B2 22 20 D7 CF |.US$."":UT$." ..|
000007F0: D2 CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 22 00 1E 10 |... ........"...|
00000800: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4|
00000810: 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 36 00 27 |00,500,600,396.'|
00000820: 10 68 01 89 33 30 30 00 4E 10 8B 01 8F 20 2A 2A |.h..300.N.... **|
00000830: 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 | RE-ENABLE STOP |
00000840: 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 7D |KEY AND END **.}|
00000850: 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF |.....(50003)..1.|
00000860: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 |.(50003)..160..(|
00000870: 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 A7 10 |50003)..0.399...|
00000880: 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 |...UU.71:..(5000|
00000890: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
000008A0: 33 32 38 30 2C 31 34 00 B3 10 8E 01 99 22 9A 93 |3280,14......"..|
000008B0: 22 3A 80 00 BE 10 8F 01 8D 38 37 35 3A 8E 00 DF |":.......875:...|
000008C0: 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 |.... ** STUDENT |
000008D0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
000008E0: 0E 11 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 |.....".":.UT,UL%|
000008F0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000900: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 2F |281,0:.53280,0./|
00000910: 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 |...UP.0:UG$.".TU|
00000920: 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 |DENT .NST":.850.|
00000930: 60 11 9C 01 3A 20 20 99 22 11 11 11 11 20 20 20 |`...: .".... |
00000940: 20 D2 45 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 | .EMEMBER TO HIT|
00000950: 20 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 22 | <RETURN> AFTER"|
00000960: 00 8C 11 9E 01 3A 20 20 99 22 20 20 20 54 59 50 |.....: ." TYP|
00000970: 49 4E 47 20 59 4F 55 52 20 41 4E 53 57 45 52 2E |ING YOUR ANSWER.|
00000980: 20 D4 48 49 53 20 54 45 4C 4C 53 22 00 B9 11 A0 | .HIS TELLS"....|
00000990: 01 3A 20 20 99 22 20 20 20 54 48 45 20 43 4F 4D |.: ." THE COM|
000009A0: 50 55 54 45 52 20 54 4F 20 41 43 43 45 50 54 20 |PUTER TO ACCEPT |
000009B0: 57 48 41 54 20 59 4F 55 22 00 D3 11 A2 01 3A 20 |WHAT YOU".....: |
000009C0: 20 99 22 20 20 20 48 41 56 45 20 54 59 50 45 44 | ." HAVE TYPED|
000009D0: 2E 11 22 00 00 12 A4 01 3A 20 20 99 22 20 20 20 |..".....: ." |
000009E0: 20 D4 59 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 | .YPE <H> AT ANY|
000009F0: 20 54 49 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 | TIME TO RETURN"|
00000A00: 00 2D 12 A6 01 3A 20 20 99 22 20 20 20 54 4F 20 |.-...: ." TO |
00000A10: 54 48 45 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C |THE MENU FOR HEL|
00000A20: 50 2E 20 20 D9 4F 55 20 57 49 4C 4C 22 00 5A 12 |P. .OU WILL".Z.|
00000A30: A8 01 3A 20 20 99 22 20 20 20 42 45 20 52 45 54 |..: ." BE RET|
00000A40: 55 52 4E 45 44 20 54 4F 20 54 48 45 20 50 4C 41 |URNED TO THE PLA|
00000A50: 43 45 20 49 4E 20 54 48 45 22 00 85 12 AA 01 3A |CE IN THE".....:|
00000A60: 20 20 99 22 20 20 20 50 52 4F 47 52 41 4D 20 57 | ." PROGRAM W|
00000A70: 48 45 52 45 20 59 4F 55 20 4C 45 46 54 20 4F 46 |HERE YOU LEFT OF|
00000A80: 46 20 41 53 22 00 B3 12 AC 01 3A 20 20 99 22 20 |F AS".....: ." |
00000A90: 20 20 53 4F 4F 4E 20 41 53 20 54 48 45 20 4F 50 | SOON AS THE OP|
00000AA0: 54 49 4F 4E 20 46 52 4F 4D 20 54 48 45 20 4D 45 |TION FROM THE ME|
00000AB0: 4E 55 22 00 D7 12 AE 01 3A 20 20 99 22 20 20 20 |NU".....: ." |
00000AC0: 49 53 20 43 4F 4D 50 4C 45 54 45 2E 22 3A 8D 38 |IS COMPLETE.":.8|
00000AD0: 33 35 3A 8D 38 35 30 00 09 13 B8 01 99 22 11 11 |35:.850......"..|
00000AE0: 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | .HIS PROGRAM I|
00000AF0: 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 54 45 |S DESIGNED TO TE|
00000B00: 53 54 20 59 4F 55 52 11 22 00 30 13 B9 01 99 22 |ST YOUR.".0...."|
00000B10: 20 20 4B 4E 4F 57 4C 45 44 47 45 20 4F 46 20 D7 | KNOWLEDGE OF .|
00000B20: CF D2 CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 2E 11 22 |.... .........."|
00000B30: 00 5E 13 BA 01 99 22 20 20 D4 48 45 20 43 4F 4D |.^...." .HE COM|
00000B40: 50 55 54 45 52 20 57 49 4C 4C 20 52 41 4E 44 4F |PUTER WILL RANDO|
00000B50: 4D 4C 59 20 53 45 4C 45 43 54 20 41 11 22 00 A0 |MLY SELECT A."..|
00000B60: 13 BB 01 99 22 20 20 43 4F 55 4E 54 52 59 20 41 |...." COUNTRY A|
00000B70: 4E 44 20 59 4F 55 20 57 49 4C 4C 20 48 41 56 45 |ND YOU WILL HAVE|
00000B80: 20 54 4F 20 47 49 56 45 20 11 22 3A 99 22 20 20 | TO GIVE .":." |
00000B90: 49 54 27 53 20 43 41 50 49 54 41 4C 2E 11 11 22 |IT'S CAPITAL..."|
00000BA0: 00 B4 13 BC 01 99 22 20 20 12 C5 D8 C1 CD D0 CC |......" .......|
00000BB0: C5 92 11 22 00 DD 13 BD 01 99 22 20 20 D7 48 41 |..."......" .HA|
00000BC0: 54 20 49 53 20 54 48 45 20 43 41 50 49 54 41 4C |T IS THE CAPITAL|
00000BD0: 20 4F 46 20 C3 41 4E 41 44 41 3F 11 22 00 FC 13 | OF .ANADA?."...|
00000BE0: BE 01 99 22 20 20 CF 54 54 41 57 41 22 3A 8D 38 |..." .TTAWA":.8|
00000BF0: 33 35 3A 55 50 B2 32 3A 8D 38 35 30 00 2E 14 BF |35:UP.2:.850....|
00000C00: 01 99 22 11 11 11 11 11 20 20 20 20 D9 4F 55 20 |.."..... .OU |
00000C10: 57 49 4C 4C 20 42 45 20 47 49 56 45 4E 20 54 57 |WILL BE GIVEN TW|
00000C20: 4F 20 43 48 41 4E 43 45 53 20 54 4F 11 22 00 5E |O CHANCES TO.".^|
00000C30: 14 C0 01 99 22 20 20 47 45 54 20 54 48 45 20 52 |...." GET THE R|
00000C40: 49 47 48 54 20 41 4E 53 57 45 52 2E 20 C9 46 20 |IGHT ANSWER. .F |
00000C50: 59 4F 55 20 41 52 45 20 57 52 4F 4E 47 22 00 8C |YOU ARE WRONG"..|
00000C60: 14 C1 01 99 22 20 20 54 57 49 43 45 20 54 48 45 |...." TWICE THE|
00000C70: 20 C3 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 47 | .OMPUTER WILL G|
00000C80: 49 56 45 20 59 4F 55 20 54 48 45 22 00 B5 14 C2 |IVE YOU THE"....|
00000C90: 01 99 22 11 20 20 43 4F 52 52 45 43 54 20 41 4E |..". CORRECT AN|
00000CA0: 53 57 45 52 2E 22 3A 8D 38 33 35 3A 55 50 B2 33 |SWER.":.835:UP.3|
00000CB0: 3A 8D 38 35 30 00 E8 14 C3 01 99 22 11 11 11 11 |:.850......"....|
00000CC0: 11 20 20 C1 46 54 45 52 20 45 56 45 52 59 20 31 |. .FTER EVERY 1|
00000CD0: 30 20 51 55 45 53 54 49 4F 4E 53 2C 20 41 20 53 |0 QUESTIONS, A S|
00000CE0: 55 4D 4D 41 52 59 11 22 00 15 15 C4 01 99 22 20 |UMMARY."......" |
00000CF0: 20 4F 46 20 59 4F 55 52 20 52 45 53 55 4C 54 53 | OF YOUR RESULTS|
00000D00: 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E 20 41 | WILL BE GIVEN A|
00000D10: 4E 44 20 11 22 00 56 15 C5 01 99 22 20 20 59 4F |ND .".V...." YO|
00000D20: 55 20 57 49 4C 4C 20 48 41 56 45 20 54 48 45 20 |U WILL HAVE THE |
00000D30: 4F 50 54 49 4F 4E 20 54 4F 20 43 4F 4E 54 49 4E |OPTION TO CONTIN|
00000D40: 55 45 22 3A 99 22 11 20 20 54 48 45 20 D1 55 49 |UE":.". THE .UI|
00000D50: 5A 2E 11 11 11 22 00 6E 15 C6 01 99 22 20 20 12 |Z....".n...." .|
00000D60: C7 CF CF C4 A0 CC D5 C3 CB 92 21 21 21 22 00 77 |..........!!!".w|
00000D70: 15 E5 01 8D 38 33 35 00 9B 15 E7 01 97 35 39 34 |....835......594|
00000D80: 36 38 2C 31 32 3A 55 54 24 B2 22 20 57 4F 52 4C |68,12:UT$." WORL|
00000D90: 44 20 43 41 50 49 54 41 4C 53 22 00 AF 15 EA 01 |D CAPITALS".....|
00000DA0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000DB0: B5 15 F3 01 8E 00 D6 15 F4 01 8F 20 2A 2A 20 54 |........... ** T|
00000DC0: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000DD0: 4F 4E 53 20 2A 2A 00 06 16 F5 01 99 22 93 22 3A |ONS **......".":|
00000DE0: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
00000DF0: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53|
00000E00: 32 38 30 2C 31 30 00 28 16 F6 01 55 50 B2 30 3A |280,10.(...UP.0:|
00000E10: 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 |UG$.".EACHER .NS|
00000E20: 54 2E 22 3A 8D 38 35 30 00 56 16 F7 01 99 22 11 |T.":.850.V....".|
00000E30: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE|
00000E40: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE|
00000E50: 44 47 45 2C 11 22 00 7F 16 F8 01 99 22 20 20 20 |DGE,."......" |
00000E60: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000E70: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000E80: AB 16 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.|
00000E90: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT|
00000EA0: 20 54 48 45 20 43 41 53 45 11 22 00 C8 16 FA 01 | THE CASE.".....|
00000EB0: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT|
00000EC0: 41 43 54 3A 11 11 11 22 00 F2 16 FB 01 99 22 20 |ACT:..."......" |
00000ED0: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .|
00000EE0: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
00000EF0: 11 22 00 15 17 FC 01 99 22 20 20 20 20 20 20 20 |."......" |
00000F00: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY|
00000F10: 20 C1 56 45 2E 00 39 17 FD 01 99 22 20 20 20 20 | .VE..9...." |
00000F20: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,|
00000F30: 20 CF 4E 54 41 52 49 4F 22 00 5B 17 FE 01 99 22 | .NTARIO".[...."|
00000F40: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA|
00000F50: 20 20 20 CD 31 D7 20 32 CB 34 22 00 7B 17 FF 01 | .1. 2.4".{...|
00000F60: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416|
00000F70: 29 20 34 39 39 2D 34 32 39 32 22 00 91 17 00 02 |) 499-4292".....|
00000F80: 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 |UP.1:. 835:. 850|
00000F90: 3A 00 C1 17 01 02 99 22 20 20 20 20 20 11 11 D0 |:......" ...|
00000FA0: 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 D7 4F 52 |ROGRAM .AME: .OR|
00000FB0: 4C 44 20 C3 41 50 49 54 41 4C 20 D1 55 49 5A 11 |LD .APITAL .UIZ.|
00000FC0: 22 00 E9 17 02 02 99 22 20 20 20 20 20 D7 52 49 |"......" .RI|
00000FD0: 54 54 45 4E 20 C2 59 20 20 3A 20 CA 41 4D 45 53 |TTEN .Y : .AMES|
00000FE0: 20 C4 4F 57 4E 45 52 11 22 00 12 18 03 02 99 22 | .OWNER."......"|
00000FF0: 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 | .PGRADED .Y|
00001000: 20 3A 20 C1 52 4D 41 4E 44 20 C1 49 45 4C 4C 4F | : .RMAND .IELLO|
00001010: 11 22 00 3D 18 04 02 99 22 20 20 20 20 20 11 D4 |.".=...." ..|
00001020: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00001030: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 64 18 | RUN ON ANY...d.|
00001040: 05 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 |..." ...|
00001050: C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 |...2.0 ... .....|
00001060: D4 C5 D2 11 00 8B 18 06 02 99 22 20 20 20 20 20 |.........." |
00001070: 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 | ..... 4.0 ..|
00001080: D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 AD 18 07 02 |................|
00001090: 99 22 20 20 20 20 20 20 20 20 20 38 30 33 32 20 |." 8032 |
000010A0: C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 D2 18 |... ............|
000010B0: 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |..." ...|
000010C0: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......|
000010D0: C5 D2 00 E0 18 09 02 8D 38 33 35 3A 8D 38 35 30 |........835:.850|
000010E0: 00 0F 19 12 02 99 22 11 11 20 20 20 20 D4 48 49 |......".. .HI|
000010F0: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 44 45 53 |S PROGRAM IS DES|
00001100: 49 47 4E 45 44 20 54 4F 20 54 45 53 54 11 22 00 |IGNED TO TEST.".|
00001110: 54 19 13 02 99 22 20 20 54 48 45 20 53 54 55 44 |T...." THE STUD|
00001120: 45 4E 54 53 20 4F 4E 20 54 48 45 49 52 20 4B 4E |ENTS ON THEIR KN|
00001130: 4F 57 4C 45 44 47 45 20 4F 46 22 3A 99 22 11 20 |OWLEDGE OF":.". |
00001140: 20 D7 CF D2 CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 2E | ..... .........|
00001150: 11 11 11 22 00 82 19 14 02 99 22 20 20 20 20 27 |..."......" '|
00001160: D7 CF D2 CC C4 A0 C3 C1 D0 C9 D4 C1 CC A0 D1 D5 |................|
00001170: C9 DA 27 20 49 53 20 44 45 53 49 47 4E 45 44 20 |..' IS DESIGNED |
00001180: 11 22 00 B0 19 15 02 99 22 20 20 46 4F 52 20 53 |."......" FOR S|
00001190: 54 55 44 45 4E 54 53 20 49 4E 20 54 48 45 20 CA |TUDENTS IN THE .|
000011A0: 55 4E 49 4F 52 20 54 4F 20 C9 4E 54 45 52 2D 22 |UNIOR TO .NTER-"|
000011B0: 00 D0 19 16 02 99 22 11 20 20 4D 45 44 49 41 54 |......". MEDIAT|
000011C0: 45 20 47 52 41 44 45 20 4C 45 56 45 4C 53 2E 22 |E GRADE LEVELS."|
000011D0: 00 E3 19 17 02 8D 38 33 35 3A 55 50 B2 32 3A 8D |......835:UP.2:.|
000011E0: 38 35 30 00 10 1A 18 02 99 22 11 11 11 11 11 20 |850......"..... |
000011F0: 20 20 20 C1 53 20 54 48 45 20 57 4F 52 4C 44 27 | .S THE WORLD'|
00001200: 53 20 42 4F 52 44 45 52 53 20 41 4E 44 20 11 22 |S BORDERS AND ."|
00001210: 00 3D 1A 19 02 99 22 20 20 4C 45 41 44 45 52 53 |.=...." LEADERS|
00001220: 20 43 48 41 4E 47 45 2C 20 53 4F 20 54 48 49 53 | CHANGE, SO THIS|
00001230: 20 50 52 4F 47 52 41 4D 27 53 20 11 22 00 6C 1A | PROGRAM'S .".l.|
00001240: 1A 02 99 22 20 20 4C 49 53 54 20 4F 46 20 43 4F |..." LIST OF CO|
00001250: 55 4E 54 52 49 45 53 20 41 4E 44 20 54 48 45 49 |UNTRIES AND THEI|
00001260: 52 20 43 41 50 49 54 41 4C 53 11 22 00 9A 1A 1B |R CAPITALS."....|
00001270: 02 99 22 20 20 4D 55 53 54 20 42 45 20 43 48 41 |.." MUST BE CHA|
00001280: 4E 47 45 44 2E 20 D4 4F 20 4C 45 41 52 4E 20 48 |NGED. .O LEARN H|
00001290: 4F 57 20 54 48 49 53 20 11 22 00 C6 1A 1C 02 99 |OW THIS ."......|
000012A0: 22 20 20 43 41 4E 20 42 45 20 44 4F 4E 45 2C 20 |" CAN BE DONE, |
000012B0: 53 45 45 20 54 48 45 20 CD CF C4 C9 C6 C9 C3 C1 |SEE THE ........|
000012C0: D4 C9 CF CE 11 22 00 E8 1A 1D 02 99 22 20 20 D3 |....."......" .|
000012D0: C5 C3 D4 C9 CF CE 20 4F 46 20 54 48 45 20 CD C5 |...... OF THE ..|
000012E0: CE D5 28 23 34 29 2E 22 00 F1 1A 44 02 8D 38 33 |..(#4)."...D..83|
000012F0: 35 00 15 1B 49 02 97 35 39 34 36 38 2C 31 32 3A |5...I..59468,12:|
00001300: 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 41 50 49 |UT$." WORLD CAPI|
00001310: 54 41 4C 53 22 00 29 1B 4E 02 8B 55 5A B2 31 A7 |TALS".).N..UZ.1.|
00001320: 9E 55 50 25 3A 89 32 31 37 00 2F 1B 57 02 8E 00 |.UP%:.217./.W...|
00001330: 55 1B 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |U.X.. ** PROGRAM|
00001340: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E | MODIFICATION IN|
00001350: 53 54 20 2A 2A 00 66 1B 59 02 99 22 93 22 3A 97 |ST **.f.Y..".":.|
00001360: 55 54 2C 55 4C 25 00 86 1B 5D 02 55 50 B2 30 3A |UT,UL%...].UP.0:|
00001370: 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 |UG$.".ROGRAM .OD|
00001380: 22 3A 8D 38 35 30 00 BA 1B 5E 02 99 22 11 11 11 |":.850...^.."...|
00001390: 11 11 11 20 20 20 20 20 D4 48 49 53 20 53 45 43 |... .HIS SEC|
000013A0: 54 49 4F 4E 20 49 53 20 44 45 53 49 47 4E 45 44 |TION IS DESIGNED|
000013B0: 20 54 4F 20 53 48 4F 57 11 22 00 E4 1B 5F 02 99 | TO SHOW."..._..|
000013C0: 22 20 20 20 54 48 45 20 55 53 45 52 20 54 48 41 |" THE USER THA|
000013D0: 54 20 54 48 45 20 C4 C1 D4 C1 20 49 4E 20 54 48 |T THE .... IN TH|
000013E0: 49 53 11 22 00 13 1C 60 02 99 22 20 20 20 50 52 |IS."...`.." PR|
000013F0: 4F 47 52 41 4D 20 43 41 4E 20 42 45 20 43 48 41 |OGRAM CAN BE CHA|
00001400: 4E 47 45 44 20 4F 52 20 41 44 44 45 44 20 54 4F |NGED OR ADDED TO|
00001410: 20 11 22 00 41 1C 61 02 99 22 20 20 20 51 55 49 | .".A.a.." QUI|
00001420: 54 45 20 45 41 53 49 4C 59 2E 20 20 C1 4C 4C 20 |TE EASILY. .LL |
00001430: 54 48 45 20 D5 53 45 52 20 48 41 53 20 54 4F 11 |THE .SER HAS TO.|
00001440: 22 00 74 1C 62 02 99 22 20 20 20 44 4F 20 49 53 |".t.b.." DO IS|
00001450: 20 46 4F 4C 4C 4F 57 20 54 48 45 53 45 20 53 54 | FOLLOW THESE ST|
00001460: 45 50 53 2E 22 3A 8D 38 33 35 3A 55 50 B2 32 3A |EPS.":.835:UP.2:|
00001470: 8D 38 35 30 00 95 1C 63 02 99 22 11 11 20 20 12 |.850...c..".. .|
00001480: C3 C8 C1 CE C7 C9 CE C7 A0 D4 C8 C5 A0 C4 C1 D4 |................|
00001490: C1 92 11 11 22 00 C1 1C 64 02 99 22 20 20 20 C6 |...."...d.." .|
000014A0: 49 4E 44 20 54 48 45 20 C4 C1 D4 C1 20 49 4E 53 |IND THE .... INS|
000014B0: 54 52 55 43 54 49 4F 4E 20 4E 55 4D 42 45 52 11 |TRUCTION NUMBER.|
000014C0: 22 00 EF 1C 65 02 99 22 20 20 20 57 48 45 52 45 |"...e.." WHERE|
000014D0: 20 54 48 45 20 43 48 41 4E 47 45 20 49 53 20 4E | THE CHANGE IS N|
000014E0: 45 43 45 53 53 41 52 59 2C 20 41 4E 44 11 22 00 |ECESSARY, AND.".|
000014F0: 23 1D 66 02 99 22 20 20 20 41 4E 44 20 4D 41 4B |#.f.." AND MAK|
00001500: 45 20 54 48 45 20 43 4F 52 52 45 43 54 49 4F 4E |E THE CORRECTION|
00001510: 2E 11 22 3A 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 |..":." ........|
00001520: 92 11 22 00 48 1D 67 02 99 22 20 20 20 31 38 33 |..".H.g.." 183|
00001530: 30 20 C4 C1 D4 C1 A0 C9 D3 D2 C1 C5 CC 2C CA C5 |0 ...........,..|
00001540: D2 D5 D3 C1 CC C5 CD 22 00 61 1D 68 02 99 22 20 |.......".a.h.." |
00001550: 20 20 11 C3 48 41 4E 47 45 20 54 4F 2E 2E 2E 11 | ..HANGE TO....|
00001560: 22 00 94 1D 69 02 99 22 20 20 20 31 38 33 30 20 |"...i.." 1830 |
00001570: C4 C1 D4 C1 A0 C9 D3 D2 C1 C5 CC 2C D4 C5 CC A0 |...........,....|
00001580: C1 D6 C9 D6 22 3A 8D 38 33 35 3A 55 50 B2 33 3A |....":.835:UP.3:|
00001590: 8D 38 35 30 00 B5 1D 6A 02 99 22 20 20 11 11 12 |.850...j.." ...|
000015A0: C1 C4 C4 C9 CE C7 A0 D4 CF A0 D4 C8 C5 A0 C4 C1 |................|
000015B0: D4 C1 92 11 22 00 E5 1D 6B 02 99 22 20 20 20 D7 |...."...k.." .|
000015C0: 48 45 4E 20 41 44 44 49 4E 47 20 4E 45 57 20 C4 |HEN ADDING NEW .|
000015D0: C1 D4 C1 20 54 4F 20 54 48 45 20 50 52 4F 47 52 |... TO THE PROGR|
000015E0: 41 4D 2C 11 22 00 14 1E 6C 02 99 22 20 20 20 55 |AM,."...l.." U|
000015F0: 53 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 49 |SE THE PROGRAM I|
00001600: 4E 53 54 52 55 43 54 49 4F 4E 20 4E 55 4D 42 45 |NSTRUCTION NUMBE|
00001610: 52 53 11 22 00 2C 1E 6D 02 99 22 20 20 20 46 52 |RS.".,.m.." FR|
00001620: 4F 4D 20 33 30 30 30 20 4F 4E 2E 22 00 42 1E 6E |OM 3000 ON.".B.n|
00001630: 02 99 22 11 11 20 20 12 C5 D8 C1 CD D0 CC C5 92 |..".. .........|
00001640: 11 22 00 65 1E 6F 02 99 22 20 20 20 33 30 30 31 |.".e.o.." 3001|
00001650: 20 C4 C1 D4 C1 20 20 C3 C1 CE C1 C4 C1 2C CF D4 | .... ......,..|
00001660: D4 C1 D7 C1 22 00 78 1E 70 02 8D 38 33 35 3A 55 |....".x.p..835:U|
00001670: 50 B2 34 3A 8D 38 35 30 00 9D 1E 71 02 99 22 11 |P.4:.850...q..".|
00001680: 11 20 20 12 C8 CF D7 A0 D4 CF A0 C5 CE D4 C5 D2 |. .............|
00001690: A0 D4 C8 C5 A0 C4 C1 D4 C1 92 11 11 22 00 CC 1E |............"...|
000016A0: 72 02 99 22 20 20 20 31 29 C6 49 52 53 54 2C 20 |r.." 1).IRST, |
000016B0: 45 4E 54 45 52 20 54 48 45 20 49 4E 53 54 52 55 |ENTER THE INSTRU|
000016C0: 43 54 49 4F 4E 20 CE CF 2E 2C 11 22 00 F3 1E 73 |CTION ...,."...s|
000016D0: 02 99 22 20 20 20 20 46 4F 4C 4C 4F 57 45 44 20 |.." FOLLOWED |
000016E0: 42 59 20 54 48 45 20 57 4F 52 44 20 C4 C1 D4 C1 |BY THE WORD ....|
000016F0: 2E 11 22 00 21 1F 74 02 99 22 20 20 20 32 29 D4 |..".!.t.." 2).|
00001700: 48 45 4E 20 54 48 45 20 C3 4F 55 4E 54 52 59 2C |HEN THE .OUNTRY,|
00001710: 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 20 11 | FOLLOWED BY A .|
00001720: 22 00 51 1F 75 02 99 22 20 20 20 20 43 4F 4D 4D |".Q.u.." COMM|
00001730: 41 20 28 2C 29 20 41 4E 44 20 46 49 4E 41 4C 4C |A (,) AND FINALL|
00001740: 59 20 49 54 27 53 20 C3 41 50 49 54 41 4C 2E 11 |Y IT'S .APITAL..|
00001750: 22 00 65 1F 76 02 99 22 20 20 12 C5 D8 C1 CD D0 |".e.v.." ......|
00001760: CC C5 92 11 22 00 96 1F 77 02 99 22 20 20 20 33 |...."...w.." 3|
00001770: 30 30 31 20 C4 C1 D4 C1 20 C3 C1 CE C1 C4 C1 2C |001 .... ......,|
00001780: CF D4 D4 C1 D7 C1 22 3A 8D 38 33 35 3A 55 50 B2 |......":.835:UP.|
00001790: 35 3A 8D 38 35 30 00 AD 1F 78 02 99 22 11 11 20 |5:.850...x..".. |
000017A0: 20 12 D2 C5 CD C5 CD C2 C5 D2 92 11 22 00 DC 1F | ..........."...|
000017B0: 79 02 99 22 20 20 20 C6 4F 52 20 45 56 45 52 59 |y.." .OR EVERY|
000017C0: 20 4E 45 57 20 C3 4F 55 4E 54 52 59 20 41 4E 44 | NEW .OUNTRY AND|
000017D0: 20 C3 41 50 49 54 41 4C 2C 20 11 22 00 08 20 7A | .APITAL, .".. z|
000017E0: 02 99 22 20 20 20 46 4F 52 20 31 20 54 4F 20 36 |.." FOR 1 TO 6|
000017F0: 30 20 49 4E 20 49 4E 53 54 52 55 43 54 49 4F 4E |0 IN INSTRUCTION|
00001800: 20 31 33 30 30 2E 11 22 00 1C 20 7B 02 99 22 20 | 1300..".. {.." |
00001810: 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 00 38 20 7C | ..........".8 ||
00001820: 02 99 22 20 20 20 CF 4E 45 20 4E 45 57 20 41 44 |.." .NE NEW AD|
00001830: 44 49 54 49 4F 4E 11 22 00 66 20 7D 02 99 22 20 |DITION.".f }.." |
00001840: 20 20 31 33 30 30 20 C6 CF D2 A0 C9 3D 30 20 D4 | 1300 .....=0 .|
00001850: CF 20 36 30 2B 31 22 3A 8D 38 33 35 3A 55 50 B2 |. 60+1":.835:UP.|
00001860: 36 3A 8D 38 35 30 00 7D 20 7E 02 99 22 11 11 20 |6:.850.} ~..".. |
00001870: 20 12 D2 C5 CD C5 CD C2 C5 D2 92 11 22 00 AD 20 | ...........".. |
00001880: 7F 02 99 22 20 20 20 C9 46 20 59 4F 55 20 41 44 |..." .F YOU AD|
00001890: 44 20 4D 4F 52 45 20 54 48 41 4E 20 31 30 20 C3 |D MORE THAN 10 .|
000018A0: 4F 4E 54 52 49 45 53 20 41 4E 44 11 22 00 DD 20 |ONTRIES AND.".. |
000018B0: 80 02 99 22 20 20 20 C3 41 50 49 54 41 4C 53 20 |..." .APITALS |
000018C0: 54 4F 20 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 |TO THE PROGRAM, |
000018D0: 52 45 44 49 4D 45 4E 53 49 4F 4E 11 22 00 FC 20 |REDIMENSION.".. |
000018E0: 81 02 99 22 20 20 20 54 48 45 20 41 52 52 41 59 |..." THE ARRAY|
000018F0: 53 20 49 4E 20 31 32 39 30 2E 11 22 00 10 21 82 |S IN 1290.."..!.|
00001900: 02 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 |.." .........."|
00001910: 00 31 21 83 02 99 22 20 20 20 31 32 39 30 20 C4 |.1!..." 1290 .|
00001920: C9 CD 20 C1 24 28 37 30 29 2C C2 24 28 37 30 29 |.. .$(70),.$(70)|
00001930: 22 00 4A 21 84 02 99 22 20 20 20 11 C3 48 41 4E |".J!..." ..HAN|
00001940: 47 45 20 54 4F 2E 2E 2E 11 22 00 6D 21 85 02 99 |GE TO....".m!...|
00001950: 22 20 20 20 31 32 39 30 20 C4 C9 CD 20 C1 24 28 |" 1290 ... .$(|
00001960: 31 30 30 29 2C C2 24 28 31 30 30 29 22 00 76 21 |100),.$(100)".v!|
00001970: 94 02 8D 38 33 35 00 9A 21 99 02 97 35 39 34 36 |...835..!...5946|
00001980: 38 2C 31 32 3A 55 54 24 B2 22 20 57 4F 52 4C 44 |8,12:UT$." WORLD|
00001990: 20 43 41 50 49 54 41 4C 53 22 00 AE 21 B2 02 8B | CAPITALS"..!...|
000019A0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B4 |UZ.1..UP%:.217..|
000019B0: 21 BB 02 8E 00 D9 21 BC 02 8F 20 2A 2A 20 54 4F |!.....!... ** TO|
000019C0: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
000019D0: 42 4D 34 30 33 32 20 2A 2A 00 0F 22 C6 02 99 22 |BM4032 **.."..."|
000019E0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
000019F0: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
00001A00: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
00001A10: 45 22 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |E"..." LOAD|
00001A20: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001A30: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001A40: 11 11 11 11 22 00 50 22 DA 02 9E 55 55 AA 37 31 |....".P"...UU.71|
00001A50: 00 56 22 E4 02 80 00 76 22 20 03 8F 20 2A 2A 20 |.V"....v" .. ** |
00001A60: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001A70: 47 20 45 20 2A 2A 00 AA 22 22 03 99 22 93 11 1D |G E **.."".."...|
00001A80: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001A90: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001AA0: 34 3A 97 35 33 32 38 31 2C 36 00 C0 22 24 03 81 |4:.53281,6.."$..|
00001AB0: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
00001AC0: 00 D8 22 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |.."&..I.1.22:.".|
00001AD0: 9D 12 A6 92 22 3B 3A 82 00 F0 22 28 03 81 49 B2 |....";:..."(..I.|
00001AE0: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
00001AF0: 00 08 23 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |..#*..I.1.22:.".|
00001B00: 9D 12 A6 92 22 3B 3A 82 00 2D 23 2C 03 99 22 13 |....";:..-#,..".|
00001B10: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B20: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 4F 23 |.......... ..O#|
00001B30: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00001B40: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
00001B50: 70 23 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |p#0.."..........|
00001B60: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001B70: 00 8E 23 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |..#2..".........|
00001B80: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 B6 |........... ...|
00001B90: 23 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |#4.."...........|
00001BA0: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001BB0: 20 52 20 45 11 11 00 D9 23 36 03 99 22 1D 1D 1D | R E....#6.."...|
00001BC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
00001BD0: 41 54 49 4F 4E 41 4C 11 11 00 F8 23 38 03 99 22 |ATIONAL....#8.."|
00001BE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001BF0: 53 4F 46 54 57 41 52 45 00 13 24 3A 03 8F 20 2A |SOFTWARE..$:.. *|
00001C00: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
00001C10: 20 2A 2A 00 4B 24 3B 03 99 C8 28 55 44 24 2C 32 | **.K$;...(UD$,2|
00001C20: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
00001C30: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
00001C40: 20 57 41 49 54 92 22 3A 49 B2 30 00 6D 24 3C 03 | WAIT.":I.0.m$<.|
00001C50: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001C60: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 91 24 |.1:.I.250.828..$|
00001C70: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001C80: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001C90: 30 00 9A 24 40 03 89 33 30 30 00 B6 24 43 03 8F |0..$@..300..$C..|
00001CA0: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001CB0: 45 53 53 20 2A 2A 00 EB 24 48 03 99 C8 28 55 44 |ESS **..$H...(UD|
00001CC0: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 |$,24);".......PR|
00001CD0: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
00001CE0: 20 43 4F 4E 54 49 4E 55 45 92 22 00 02 25 4C 03 | CONTINUE."..%L.|
00001CF0: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 |.UI$:.UI$.." ".8|
00001D00: 34 34 00 08 25 4E 03 8E 00 28 25 52 03 8F 20 2A |44..%N...(%R.. *|
00001D10: 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F |* PAGE DESIGN RO|
00001D20: 55 54 49 4E 45 20 2A 2A 00 34 25 54 03 55 50 B2 |UTINE **.4%T.UP.|
00001D30: 55 50 AA 31 00 5B 25 57 03 99 22 93 22 C8 28 55 |UP.1.[%W..".".(U|
00001D40: 54 24 AA 55 50 24 2C 32 31 29 3B C8 28 55 47 24 |T$.UP$,21);.(UG$|
00001D50: AA 55 50 24 2C 31 34 29 3B 55 50 00 8A 25 5C 03 |.UP$,14);UP..%\.|
00001D60: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
00001D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 BE 25 61 03 99 |---------"..%a..|
00001D90: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,|
00001DA0: 36 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |6);"HELP - PRESS|
00001DB0: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 CA | H <RETURN>"..|
00001DC0: 25 66 03 99 22 13 11 22 3A 8E 00 E9 25 6B 03 8F |%f.."..":...%k..|
00001DD0: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT |
00001DE0: 52 45 4D 41 52 4B 20 2A 2A 00 1F 26 70 03 99 C8 |REMARK **..&p...|
00001DF0: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00001E00: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT |
00001E10: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".|
00001E20: 25 26 75 03 8E 00 42 26 84 03 8F 20 2A 2A 20 53 |%&u...B&... ** S|
00001E30: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES |
00001E40: 2A 2A 00 8D 26 85 03 55 58 24 B2 22 48 22 3A 86 |**..&..UX$."H":.|
00001E50: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327|
00001E60: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197|
00001E70: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U|
00001E80: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 C4 26 |C.167:UU.1024..&|
00001E90: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1|
00001EA0: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114|
00001EB0: 36 3A 55 4D B2 33 32 37 36 38 3A 97 20 35 30 30 |6:UM.32768:. 500|
00001EC0: 30 33 2C 30 00 07 27 87 03 8B C2 28 35 30 30 30 |03,0..'....(5000|
00001ED0: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.|
00001EE0: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21|
00001EF0: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:|
00001F00: 55 55 B2 32 30 34 38 00 3F 27 88 03 8B C2 28 35 |UU.2048.?'....(5|
00001F10: 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 |0003).0.UT.53272|
00001F20: 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 |:UU%.21:UL%.23:U|
00001F30: 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 00 |P%.2139:UM.1024.|
00001F40: 63 27 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 |c'..UD$.".......|
00001F50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001F60: 11 11 22 00 95 27 8A 03 55 50 24 B2 22 20 20 20 |.."..'..UP$." |
00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F90: 20 20 20 20 22 00 E2 27 8B 03 55 54 24 B2 22 20 | "..'..UT$." |
00001FA0: D7 CF D2 CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 A0 A0 |..... ..........|
00001FB0: A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 |.":. PLACE PROGR|
00001FC0: 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 |AM TITLE HERE !!|
00001FD0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A |!!!!!!!!!!!!!!!*|
00001FE0: 2A 2A 00 E8 27 8C 03 8E 00 02 28 8E 03 8F 20 2A |**..'.....(... *|
00001FF0: 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 |* SET VARIABLES |
00002000: 2A 2A 00 18 28 90 03 86 20 41 24 28 37 30 29 3A |**..(... A$(70):|
00002010: 86 20 42 24 28 37 30 29 00 21 28 93 03 8D 39 30 |. B$(70).!(...90|
00002020: 30 00 3C 28 98 03 8F 20 2A 2A 20 43 48 45 43 4B |0.<(... ** CHECK|
00002030: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 5A 28 9D | FOR 8032 **.Z(.|
00002040: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
00002050: 46 54 45 44 20 53 50 41 43 45 00 71 28 A2 03 8B |FTED SPACE.q(...|
00002060: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
00002070: 30 00 8A 28 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0..(... ** MEMOR|
00002080: 59 20 43 48 45 43 4B 20 2A 2A 00 9E 28 A4 03 8B |Y CHECK **..(...|
00002090: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 CC | .(0).2000.937..|
000020A0: 28 A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |(..."....THIS MA|
000020B0: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
000020C0: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 F0 28 A6 |AVE ENOUGH."..(.|
000020D0: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
000020E0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
000020F0: 00 FB 28 A7 03 9E 55 55 AA 37 31 00 01 29 A8 03 |..(...UU.71..)..|
00002100: 80 00 1B 29 A9 03 99 22 93 05 22 3A 8B C2 28 35 |...)..."..":..(5|
00002110: 30 30 30 33 29 B2 30 A7 39 36 32 00 4A 29 AC 03 |0003).0.962.J)..|
00002120: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
00002130: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
00002140: 34 20 53 45 54 55 50 20 2A 2A 00 88 29 AD 03 97 |4 SETUP **..)...|
00002150: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
00002160: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
00002170: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
00002180: 31 30 38 31 2C 31 34 35 00 BE 29 AE 03 97 31 30 |1081,145..)...10|
00002190: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
000021A0: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
000021B0: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 E0 |,234:.1103,133..|
000021C0: 29 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |)...1104,145:.11|
000021D0: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
000021E0: 00 F7 29 B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |..)....(50003)..|
000021F0: 31 36 30 A7 39 35 35 00 26 2A B6 03 97 31 30 39 |160.955.&*...109|
00002200: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
00002210: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
00002220: 38 3A 89 39 36 35 00 3B 2A BB 03 8B C2 28 35 30 |8:.965.;*....(50|
00002230: 30 30 33 29 B3 B1 31 A7 39 39 30 00 6A 2A C0 03 |003)..1.990.j*..|
00002240: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
00002250: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
00002260: 32 2C 32 33 30 3A 89 39 36 35 00 A4 2A C2 03 97 |2,230:.965..*...|
00002270: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
00002280: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
00002290: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
000022A0: 35 2C 32 31 00 E0 2A C3 03 97 32 31 30 36 2C 33 |5,21..*...2106,3|
000022B0: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
000022C0: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
000022D0: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
000022E0: 00 1A 2B C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |..+...2123,20:.2|
000022F0: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00002300: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
00002310: 32 31 3A 97 32 31 32 39 2C 33 00 38 2B C5 03 9E |21:.2129,3.8+...|
00002320: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
00002330: 53 54 4F 50 20 4B 45 59 00 49 2B CA 03 8D 38 30 |STOP KEY.I+...80|
00002340: 30 3A 8F 20 54 49 54 4C 45 00 59 2B D4 03 89 33 |0:. TITLE.Y+...3|
00002350: 30 30 3A 8F 20 4D 45 4E 55 00 8A 2B DE 03 99 22 |00:. MENU..+..."|
00002360: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
00002370: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
00002380: 41 43 48 49 4E 45 21 22 3A 80 00 BF 2B E8 03 8B |ACHINE!":...+...|
00002390: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
000023A0: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
000023B0: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
000023C0: EB 2B E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |.+..."..";:.:..(|
000023D0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000023E0: 36 3A 97 35 33 32 38 30 2C 31 34 00 1E 2C E2 04 |6:.53280,14..,..|
000023F0: 97 35 39 34 36 38 2C 31 32 3A 55 54 24 B2 22 20 |.59468,12:UT$." |
00002400: 57 4F 52 4C 44 20 43 41 50 49 54 41 4C 53 22 3A |WORLD CAPITALS":|
00002410: 99 22 93 22 3A 8D 38 37 35 3A 55 50 B2 30 00 2D |.".":.875:UP.0.-|
00002420: 2C 14 05 81 20 49 B2 30 20 A4 20 36 30 00 3F 2C |,... I.0 . 60.?,|
00002430: 1E 05 87 20 41 24 28 49 29 2C 42 24 28 49 29 00 |... A$(I),B$(I).|
00002440: 47 2C 28 05 82 20 49 00 57 2C 3C 05 4E B2 30 3A |G,(.. I.W,<.N.0:|
00002450: 43 B2 30 3A 57 B2 30 00 6A 2C 46 05 81 20 4B 31 |C.0:W.0.j,F.. K1|
00002460: B2 31 35 30 20 A4 20 32 35 30 00 7D 2C 50 05 4C |.150 . 250.},P.L|
00002470: B2 28 4B 31 AD 34 29 AC BC 28 4B 31 29 00 8B 2C |.(K1.4)..(K1)..,|
00002480: 5A 05 49 B2 34 39 AC BB 28 4C 29 00 96 2C 64 05 |Z.I.49..(L)..,d.|
00002490: 49 B2 B5 28 49 29 00 9E 2C 6E 05 51 B2 30 00 B3 |I..(I)..,n.Q.0..|
000024A0: 2C 73 05 55 47 24 B2 22 51 55 45 53 54 49 4F 4E |,s.UG$."QUESTION|
000024B0: 20 23 22 00 CB 2C 78 05 4E B2 4E AA 31 3A 8B 20 | #"..,x.N.N.1:. |
000024C0: 4E B1 31 30 20 A7 20 31 35 36 35 00 DE 2C 82 05 |N.10 . 1565..,..|
000024D0: 97 35 39 34 36 38 2C 31 32 3A 8D 38 35 30 00 1A |.59468,12:.850..|
000024E0: 2D 87 05 99 22 11 11 11 11 11 11 11 20 20 57 48 |-..."....... WH|
000024F0: 41 54 20 49 53 20 54 48 45 20 43 41 50 49 54 41 |AT IS THE CAPITA|
00002500: 4C 20 4F 46 20 22 3A 99 22 11 20 20 20 22 3B 41 |L OF ":.". ";A|
00002510: 24 28 49 29 3B 22 3F 20 22 3B 00 24 2D 8C 05 8D |$(I);"? ";.$-...|
00002520: 32 30 32 30 00 35 2D 91 05 8B 5A 24 B2 22 20 22 |2020.5-...Z$." "|
00002530: A7 31 39 37 30 00 4B 2D 96 05 8B 20 5A 24 B2 42 |.1970.K-... Z$.B|
00002540: 24 28 49 29 20 A7 20 31 34 37 30 00 63 2D A0 05 |$(I) . 1470.c-..|
00002550: 51 B2 51 AA 31 3A 8B 20 51 B1 B2 32 20 A7 20 31 |Q.Q.1:. Q..2 . 1|
00002560: 39 36 30 00 90 2D AA 05 99 22 11 11 20 20 54 52 |960..-...".. TR|
00002570: 59 20 41 47 41 49 4E 2E 2E 2E 2E 22 3A 57 B2 57 |Y AGAIN....":W.W|
00002580: AA 31 3A 55 50 B2 55 50 AB 31 3A 8D 32 30 36 30 |.1:UP.UP.1:.2060|
00002590: 00 9B 2D B4 05 89 20 31 34 31 30 00 B3 2D BE 05 |..-... 1410..-..|
000025A0: 52 B2 B5 28 36 AC BB 28 49 29 29 AA 31 3A 43 B2 |R..(6..(I)).1:C.|
000025B0: 43 AA 31 00 DB 2D C8 05 91 20 52 20 89 20 31 35 |C.1..-... R . 15|
000025C0: 31 30 2C 31 35 32 30 2C 31 35 33 30 2C 31 35 34 |10,1520,1530,154|
000025D0: 30 2C 31 35 35 30 2C 31 35 36 30 00 05 2E D2 05 |0,1550,1560.....|
000025E0: 99 20 C7 28 31 38 29 3B 22 20 20 43 4F 52 52 45 |. .(18);" CORRE|
000025F0: 43 54 22 3B A6 35 29 3B 22 20 20 47 4F 4F 44 20 |CT";.5);" GOOD |
00002600: 57 4F 52 4B 22 00 15 2E DC 05 8D 32 30 36 30 3A |WORK"......2060:|
00002610: 89 31 36 35 30 00 35 2E E6 05 99 22 11 11 20 20 |.1650.5....".. |
00002620: 43 4F 52 52 45 43 54 21 22 3A 8D 20 38 33 35 3A |CORRECT!":. 835:|
00002630: 89 31 36 35 30 00 52 2E F0 05 99 22 11 11 20 20 |.1650.R....".. |
00002640: 52 49 47 48 54 21 22 3A 8D 38 33 35 3A 89 31 36 |RIGHT!":.835:.16|
00002650: 35 30 00 71 2E FA 05 99 22 11 11 20 20 43 4F 52 |50.q....".. COR|
00002660: 52 45 43 54 21 22 3A 8D 38 33 35 3A 89 31 36 35 |RECT!":.835:.165|
00002670: 30 00 8E 2E 04 06 99 22 11 11 20 20 52 49 47 48 |0......".. RIGH|
00002680: 54 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 AD |T!":.835:.1650..|
00002690: 2E 0E 06 99 22 11 11 20 20 43 4F 52 52 45 43 54 |....".. CORRECT|
000026A0: 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 CA 2E |!":.835:.1650...|
000026B0: 18 06 99 22 11 11 20 20 52 49 47 48 54 21 22 3A |...".. RIGHT!":|
000026C0: 8D 38 33 35 3A 89 31 36 35 30 00 10 2F 1D 06 55 |.835:.1650../..U|
000026D0: 47 24 B2 22 52 45 53 55 4C 54 22 3A 55 50 B2 55 |G$."RESULT":UP.U|
000026E0: 50 AB 31 3A 8D 38 35 30 20 20 20 20 20 20 20 53 |P.1:.850 S|
000026F0: 43 B0 45 20 49 53 20 22 3B 43 3B 22 20 43 B0 52 |C.E IS ";C;" C.R|
00002700: 45 43 54 20 22 3B 57 3B 22 20 57 52 91 47 2E 22 |ECT ";W;" WR.G."|
00002710: 00 44 2F 1E 06 99 22 11 11 11 11 20 20 59 4F 55 |.D/...".... YOU|
00002720: 52 20 53 43 4F 52 45 20 49 53 20 22 3B 43 3B 22 |R SCORE IS ";C;"|
00002730: 43 4F 52 52 45 43 54 20 22 3B 57 3B 22 57 52 4F |CORRECT ";W;"WRO|
00002740: 4E 47 2E 22 00 5F 2F 1F 06 99 22 11 20 20 59 4F |NG."._/...". YO|
00002750: 55 52 20 52 41 54 49 4E 47 20 49 53 20 22 3B 00 |UR RATING IS ";.|
00002760: 81 2F 22 06 99 B5 28 28 43 AD 28 43 AA 57 29 AC |./"...((C.(C.W).|
00002770: 31 30 30 29 AC 31 30 AA 2E 35 29 AD 31 30 22 25 |100).10..5).10"%|
00002780: 22 00 8C 2F 36 06 8D 20 32 30 36 30 00 B9 2F 40 |"../6.. 2060../@|
00002790: 06 99 22 11 11 11 20 20 44 4F 20 59 4F 55 20 57 |.."... DO YOU W|
000027A0: 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 3F |ANT TO CONTINUE?|
000027B0: 20 28 59 2F 4E 29 20 22 3B 00 C4 2F 4A 06 8D 20 | (Y/N) ";../J.. |
000027C0: 32 30 38 30 00 DE 2F 54 06 8F 20 49 46 43 24 3C |2080../T.. IFC$<|
000027D0: 3E 22 4E 22 41 4E 44 43 24 3C 3E 22 59 22 00 F2 |>"N"ANDC$<>"Y"..|
000027E0: 2F 5E 06 8B 20 43 24 B2 22 4E 22 20 A7 20 32 30 |/^.. C$."N" . 20|
000027F0: 31 30 00 FA 2F 68 06 4E B2 30 00 03 30 72 06 82 |10../h.N.0..0r..|
00002800: 20 4B 31 00 29 30 7C 06 83 41 46 47 48 41 4E 49 | K1.)0|..AFGHANI|
00002810: 53 54 41 4E 2C 4B 41 42 55 4C 2C 41 4C 42 41 4E |STAN,KABUL,ALBAN|
00002820: 49 41 2C 54 49 52 41 4E 41 00 55 30 86 06 83 41 |IA,TIRANA.U0...A|
00002830: 4C 47 45 52 49 41 2C 41 4C 47 49 45 52 53 2C 41 |LGERIA,ALGIERS,A|
00002840: 52 47 45 4E 54 49 4E 41 2C 42 55 45 4E 4F 53 20 |RGENTINA,BUENOS |
00002850: 41 49 52 45 53 00 7C 30 90 06 83 41 55 53 54 52 |AIRES.|0...AUSTR|
00002860: 41 4C 49 41 2C 43 41 4E 42 45 52 52 41 2C 41 55 |ALIA,CANBERRA,AU|
00002870: 53 54 52 49 41 2C 56 49 45 4E 4E 41 00 A3 30 9A |STRIA,VIENNA..0.|
00002880: 06 83 42 41 4E 47 4C 41 44 45 53 48 2C 44 41 43 |..BANGLADESH,DAC|
00002890: 43 41 2C 42 45 4C 47 49 55 4D 2C 42 52 55 53 53 |CA,BELGIUM,BRUSS|
000028A0: 45 4C 53 00 CD 30 A4 06 83 42 4F 4C 49 56 49 41 |ELS..0...BOLIVIA|
000028B0: 2C 53 55 43 52 45 20 4C 41 20 50 41 5A 2C 42 52 |,SUCRE LA PAZ,BR|
000028C0: 41 5A 49 4C 2C 42 52 41 53 49 4C 49 41 00 EF 30 |AZIL,BRASILIA..0|
000028D0: AE 06 83 42 55 52 4D 41 2C 52 41 4E 47 4F 4F 4E |...BURMA,RANGOON|
000028E0: 2C 43 48 41 44 2C 4E 27 44 4A 41 4D 45 4E 41 00 |,CHAD,N'DJAMENA.|
000028F0: 10 31 B8 06 83 43 48 49 4C 45 2C 53 41 4E 54 49 |.1...CHILE,SANTI|
00002900: 41 47 4F 2C 43 48 49 4E 41 2C 50 45 4B 49 4E 47 |AGO,CHINA,PEKING|
00002910: 00 33 31 C2 06 83 54 41 49 57 41 4E 2C 54 41 49 |.31...TAIWAN,TAI|
00002920: 50 45 49 2C 43 4F 4C 4F 4D 42 49 41 2C 42 4F 47 |PEI,COLOMBIA,BOG|
00002930: 4F 54 41 00 5E 31 CC 06 83 43 4F 4E 47 4F 2C 42 |OTA.^1...CONGO,B|
00002940: 52 41 5A 5A 41 56 49 4C 4C 45 2C 43 4F 53 54 41 |RAZZAVILLE,COSTA|
00002950: 20 52 49 43 41 2C 53 41 4E 20 4A 4F 53 45 00 85 | RICA,SAN JOSE..|
00002960: 31 D6 06 83 43 55 42 41 2C 48 41 56 41 4E 41 2C |1...CUBA,HAVANA,|
00002970: 43 5A 45 43 48 4F 53 4C 4F 56 41 4B 49 41 2C 50 |CZECHOSLOVAKIA,P|
00002980: 52 41 47 55 45 00 AB 31 E0 06 83 44 45 4E 4D 41 |RAGUE..1...DENMA|
00002990: 52 4B 2C 43 4F 50 45 4E 48 41 47 45 4E 2C 45 43 |RK,COPENHAGEN,EC|
000029A0: 55 41 44 4F 52 2C 51 55 49 54 4F 00 D2 31 EA 06 |UADOR,QUITO..1..|
000029B0: 83 45 47 59 50 54 2C 43 41 49 52 4F 2C 45 54 48 |.EGYPT,CAIRO,ETH|
000029C0: 49 4F 50 49 41 2C 41 44 44 49 53 20 41 42 42 41 |IOPIA,ADDIS ABBA|
000029D0: 42 41 00 F5 31 F4 06 83 46 49 4E 4C 41 4E 44 2C |BA..1...FINLAND,|
000029E0: 48 45 4C 53 49 4E 4B 49 2C 46 52 41 4E 43 45 2C |HELSINKI,FRANCE,|
000029F0: 50 41 52 49 53 00 1A 32 FE 06 83 57 45 53 54 20 |PARIS..2...WEST |
00002A00: 47 45 52 4D 41 4E 59 2C 42 4F 4E 4E 2C 47 52 45 |GERMANY,BONN,GRE|
00002A10: 45 43 45 2C 41 54 48 45 4E 53 00 42 32 08 07 83 |ECE,ATHENS.B2...|
00002A20: 48 55 4E 47 41 52 59 2C 42 55 44 41 50 45 53 54 |HUNGARY,BUDAPEST|
00002A30: 2C 49 43 45 4C 41 4E 44 2C 52 45 59 4B 4A 41 56 |,ICELAND,REYKJAV|
00002A40: 49 4B 00 69 32 12 07 83 49 4E 44 49 41 2C 4E 45 |IK.i2...INDIA,NE|
00002A50: 57 20 44 45 4C 48 49 2C 49 4E 44 4F 4E 45 53 49 |W DELHI,INDONESI|
00002A60: 41 2C 4A 41 4B 41 52 54 41 00 8A 32 1C 07 83 49 |A,JAKARTA..2...I|
00002A70: 52 41 4E 2C 54 45 48 45 52 41 4E 2C 49 52 45 4C |RAN,TEHERAN,IREL|
00002A80: 41 4E 44 2C 44 55 42 4C 49 4E 00 AA 32 26 07 83 |AND,DUBLIN..2&..|
00002A90: 49 53 52 41 45 4C 2C 54 45 4C 20 41 56 49 56 2C |ISRAEL,TEL AVIV,|
00002AA0: 49 54 41 4C 59 2C 52 4F 4D 45 00 C9 32 30 07 83 |ITALY,ROME..20..|
00002AB0: 4A 41 50 41 4E 2C 54 4F 4B 59 4F 2C 4B 45 4E 59 |JAPAN,TOKYO,KENY|
00002AC0: 41 2C 4E 41 49 52 4F 42 49 00 F6 32 3A 07 83 4E |A,NAIROBI..2:..N|
00002AD0: 4F 52 54 48 20 4B 4F 52 45 41 2C 50 59 4F 4E 47 |ORTH KOREA,PYONG|
00002AE0: 59 41 4E 47 2C 53 4F 55 54 48 20 4B 4F 52 45 41 |YANG,SOUTH KOREA|
00002AF0: 2C 53 45 4F 55 4C 00 25 33 44 07 83 4C 55 58 45 |,SEOUL.%3D..LUXE|
00002B00: 4D 42 55 52 47 2C 4C 55 58 45 4D 42 55 52 47 2C |MBURG,LUXEMBURG,|
00002B10: 4D 41 4C 41 59 53 49 41 2C 4B 55 41 4C 41 20 4C |MALAYSIA,KUALA L|
00002B20: 55 4D 50 55 52 00 4C 33 4E 07 83 4D 41 4C 54 41 |UMPUR.L3N..MALTA|
00002B30: 2C 56 41 4C 4C 45 54 54 41 2C 4D 45 58 49 43 4F |,VALLETTA,MEXICO|
00002B40: 2C 4D 45 58 49 43 4F 20 43 49 54 59 00 7E 33 58 |,MEXICO CITY.~3X|
00002B50: 07 83 4E 45 54 48 45 52 4C 41 4E 44 53 2C 41 4D |..NETHERLANDS,AM|
00002B60: 53 54 45 52 44 41 4D 2C 4E 45 57 20 5A 45 41 4C |STERDAM,NEW ZEAL|
00002B70: 41 4E 44 2C 57 45 4C 4C 49 4E 47 54 4F 4E 00 AF |AND,WELLINGTON..|
00002B80: 33 62 07 83 4E 49 47 45 52 2C 4E 49 41 4D 45 59 |3b..NIGER,NIAMEY|
00002B90: 2C 4E 4F 52 57 41 59 2C 4F 53 4C 4F 2C 50 41 4B |,NORWAY,OSLO,PAK|
00002BA0: 49 53 54 41 4E 2C 49 53 4C 41 4D 41 42 41 44 00 |ISTAN,ISLAMABAD.|
00002BB0: E4 33 6C 07 83 50 41 4E 41 4D 41 2C 50 41 4E 41 |.3l..PANAMA,PANA|
00002BC0: 4D 41 2C 50 45 52 55 2C 4C 49 4D 41 2C 50 48 49 |MA,PERU,LIMA,PHI|
00002BD0: 4C 49 50 50 49 4E 45 53 2C 51 55 45 5A 4F 4E 20 |LIPPINES,QUEZON |
00002BE0: 43 49 54 59 00 07 34 76 07 83 50 4F 4C 41 4E 44 |CITY..4v..POLAND|
00002BF0: 2C 57 41 52 53 41 57 2C 50 4F 52 54 55 47 41 4C |,WARSAW,PORTUGAL|
00002C00: 2C 4C 49 53 42 4F 4E 00 2D 34 80 07 83 53 49 4E |,LISBON.-4...SIN|
00002C10: 47 41 50 4F 52 45 2C 53 49 4E 47 41 50 4F 52 45 |GAPORE,SINGAPORE|
00002C20: 2C 53 50 41 49 4E 2C 4D 41 44 52 49 44 00 51 34 |,SPAIN,MADRID.Q4|
00002C30: 8A 07 83 53 57 49 54 5A 45 52 4C 41 4E 44 2C 42 |...SWITZERLAND,B|
00002C40: 45 52 4E 2C 52 55 53 53 49 41 2C 4D 4F 53 43 4F |ERN,RUSSIA,MOSCO|
00002C50: 57 00 84 34 94 07 83 47 52 45 41 54 20 42 52 49 |W..4...GREAT BRI|
00002C60: 54 41 49 4E 2C 4C 4F 4E 44 4F 4E 2C 55 4E 49 54 |TAIN,LONDON,UNIT|
00002C70: 45 44 20 53 54 41 54 45 53 2C 57 41 53 48 49 4E |ED STATES,WASHIN|
00002C80: 47 54 4F 4E 00 AF 34 9E 07 83 59 55 47 4F 53 4C |GTON..4...YUGOSL|
00002C90: 41 56 49 41 2C 42 45 4C 47 52 41 44 45 2C 56 45 |AVIA,BELGRADE,VE|
00002CA0: 4E 45 5A 55 45 4C 41 2C 43 41 52 41 43 41 53 00 |NEZUELA,CARACAS.|
00002CB0: BA 34 A8 07 99 22 11 11 11 22 00 E1 34 B2 07 99 |.4..."..."..4...|
00002CC0: 22 20 20 22 3B C7 28 31 38 29 3B 22 54 48 45 20 |" ";.(18);"THE |
00002CD0: 41 4E 53 57 45 52 20 49 53 20 22 3B 42 24 28 49 |ANSWER IS ";B$(I|
00002CE0: 29 00 EA 34 BC 07 8D 38 33 35 00 F4 34 C1 07 57 |)..4...835..4..W|
00002CF0: B2 57 AA 31 00 FD 34 C6 07 82 20 4B 31 00 08 35 |.W.1..4... K1..5|
00002D00: D0 07 89 20 31 34 31 30 00 16 35 DA 07 99 22 93 |... 1410..5...".|
00002D10: 22 3A 89 33 30 30 00 2A 35 E4 07 8F 20 49 4E 50 |":.300.*5... INP|
00002D20: 55 54 20 52 4F 55 54 49 4E 45 00 46 35 EE 07 55 |UT ROUTINE.F5..U|
00002D30: 53 24 B2 22 22 3A 55 4C B2 33 30 3A 8D 33 35 3A |S$."":UL.30:.35:|
00002D40: 5A 24 B2 55 52 24 00 60 35 F8 07 8B 5A 24 B2 22 |Z$.UR$.`5...Z$."|
00002D50: A0 22 A7 99 22 91 91 22 3B 3A 20 89 32 30 33 30 |.".."..";: .2030|
00002D60: 00 66 35 02 08 8E 00 7D 35 0C 08 8F 20 50 41 55 |.f5....}5... PAU|
00002D70: 53 45 20 53 55 42 52 4F 55 54 49 4E 45 00 8F 35 |SE SUBROUTINE..5|
00002D80: 16 08 81 58 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 |...X.1.1000:.:..|
00002D90: AD 35 20 08 55 4C B2 31 3A 55 53 24 B2 22 59 4E |.5 .UL.1:US$."YN|
00002DA0: 22 3A 8D 20 33 35 3A 43 24 B2 55 52 24 00 B3 35 |":. 35:C$.UR$..5|
00002DB0: 2A 08 8E 00 EC 35 34 08 A1 41 41 24 3A 99 CA 28 |*....54..AA$:..(|
00002DC0: 22 20 9D 2A 9D 22 2C 28 4B AA 31 29 AC 32 AB 31 |" .*.",(K.1).2.1|
00002DD0: 2C 32 29 3B 3A 4B B2 AB 31 AC 28 4B B2 30 29 3A |,2);:K..1.(K.0):|
00002DE0: 8B 41 41 24 B2 22 22 A7 32 31 30 30 00 F2 35 3E |.AA$."".2100..5>|
00002DF0: 08 8E 00 01 36 C4 09 8F 20 54 49 54 4C 45 20 49 |....6... TITLE I|
00002E00: 49 00 0F 36 C5 09 97 35 39 34 36 37 2C 31 36 00 |I..6...59467,16.|
00002E10: 1E 36 C6 09 97 35 39 34 36 36 2C 31 35 30 00 2B |.6...59466,150.+|
00002E20: 36 C7 09 81 4D 55 B2 31 A4 35 30 00 40 36 C8 09 |6...MU.1.50.@6..|
00002E30: 53 4F B2 B5 28 BB 28 31 29 AC 32 35 35 29 AA 31 |SO..(.(1).255).1|
00002E40: 00 4E 36 C9 09 97 35 39 34 36 34 2C 53 4F 00 56 |.N6...59464,SO.V|
00002E50: 36 CA 09 82 4D 55 00 63 36 CB 09 97 35 39 34 36 |6...MU.c6...5946|
00002E60: 34 2C 30 00 70 36 CC 09 97 35 39 34 36 37 2C 30 |4,0.p6...59467,0|
00002E70: 00 76 36 CD 09 8E 00 00 00 |.v6...... |
.......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...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$.""...*..UL.0.UL.80...-..
UC,0.0.2..UI$:.UI$."".50.Z.7..UI$.G(13).
C(UR$)..1..UC,1:." .";:.85.M.<..UI$.G(20
).105...>.. C(UR$)..UL.50...A..120:. CHE
CK FOR VALID CHARACTER...F.UR$.UR$.UI$..
.K..UI$;.H.P..50...U.. +++ CHECK FOR HEL
P REQUEST +++...Z..UR$.UX$.195:. EXIT TO
HELP ROUTINE.$._..UF.1..240.1.D.UF.0:.:
..J.F.. ++ CHECK DELETE ++.[.I..C(UR$).1
.50.S.N.UR$.H(UR$,C(UR$).1)...S..". .."
;:.50...X.. ++ CHECK FOR VALID CHARACTER
S ++...}..C(US$).0.150.O....US.1.C(US$).
.....UI$.J(US$,US,1).............UI$."":
....... ** STANDARD INPUT **.%....F(UI$)
.46...6....UI$.G(32)...S. ..F(UI$).48.F(
UI$).57.170.Y.....V....F(UI$).65.F(UI$).
90.180.|..... ....F(UI$).193.F(UI$).218.
UI$."":..C....B(UT).UU%.UI$.G(F(UI$).128
):..I.....V...UI$."":....C.UF.1:. +++ HE
LP ROUTINE EXIT +++...E..250...H..245.,.
M..UQ.UB.(U2%.256.U1%.U3%.2).H.R.UQ%(UQ.
UB).B(UQ):.:.".".[.W.UZ.1:UV%.B(UT).D.X.
.300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.U
K:.B(50003).0..53281,6:.53280,14.U....".
";:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)...
...UQ,UQ%(UQ.UB):.......U1,U1%......U2,U
2%......U4,U4%......U3,U3%.1.$....35.V..
.UD%.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD
%.1):.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1):
U2%.B(U2):U3%.B(U3):U4%.B(U4).O...UJ$.US
$:UJ.UL.....UJ$.US$:UK$.UG$:UJ.UP:UK.UL.
........,.. ** MENU **...-.:.;....".":.U
T,UU%:.B(50003).0..53281,9:.53280,8.A./.
:.^.1..". MENU"...6.." --
------------------------------------"...
;..".. 1. BEGIN WORLD CAPITAL QU
IZ"...@..".. 2. STUDENT INSTRUCT
IONS"...E..".. 3. TEACHER INSTRU
CTIONS".=.J..".. 4. MODIFICATION
OF PROGRRAM".Y.O..".. 5. QUIT..
"...T.." -------------------------------
-------"...Y..".. PRESS A NUMBER K
EY (1-5) ";...^.UL.1:US$."12345":.35:. I
NPUT ROUTINE...`.US$."":UT$." WORLD CAPI
TALS"...C..E(UR$).1000,400,500,600,396.'
.H..300.N.... ** RE-ENABLE STOP KEY AND
END **.}....B(50003)..1.B(50003)..160.B(
50003)..0.399......UU.71:.B(50003).0..53
281,6:.53280,14......"..":.......875:...
.... ** STUDENT INSTRUCTIONS **......"."
:.UT,UL%:.B(50003).0..53281,0:.53280,0./
...UP.0:UG$."STUDENT INST":.850.`...: .
".... REMEMBER TO HIT <RETURN> AFTER"
.....: ." TYPING YOUR ANSWER. THIS TE
LLS"... .: ." THE COMPUTER TO ACCEPT
WHAT YOU".S...: ." HAVE TYPED..".....
: ." TYPE <H> AT ANY TIME TO RETURN"
.-...: ." TO THE MENU FOR HELP. YOU
WILL".Z...: ." BE RETURNED TO THE PLA
CE IN THE".....: ." PROGRAM WHERE YOU
LEFT OFF AS".....: ." SOON AS THE OP
TION FROM THE MENU".W...: ." IS COMPL
ETE.":.835:.850......".. THIS PROGRAM I
S DESIGNED TO TEST YOUR.".0...." KNOWLE
DGE OF WORLD CAPITALS..".^...." THE COM
PUTER WILL RANDOMLY SELECT A.". ...." C
OUNTRY AND YOU WILL HAVE TO GIVE .":."
IT'S CAPITAL..."......" .EXAMPLE.."....
.." WHAT IS THE CAPITAL OF CANADA?."...
..." OTTAWA":.835:UP.2:.850......".....
YOU WILL BE GIVEN TWO CHANCES TO.".^
...." GET THE RIGHT ANSWER. IF YOU ARE
WRONG"...A.." TWICE THE COMPUTER WILL G
IVE YOU THE"...B..". CORRECT ANSWER.":.
835:UP.3:.850...C.."..... AFTER EVERY 1
0 QUESTIONS, A SUMMARY."...D.." OF YOUR
RESULTS WILL BE GIVEN AND .".V.E.." YO
U WILL HAVE THE OPTION TO CONTINUE":.".
THE QUIZ....".N.F.." .GOOD LUCK.!!!".W
....835......59468,12:UT$." WORLD CAPITA
LS"......UZ.1..UP%:.217.......V.... ** T
EACHER INSTRUCTIONS **......".":.UT,UL%:
.B(50003).0..53281,2:.53280,10.(...UP.0:
UG$."TEACHER INST.":.850.V....".. T
O THE BEST OF OUR KNOWLEDGE,."....."
THIS PROGRAM IS IN THE PUBLIC."......"
DOMAIN. IF THIS IS NOT THE CASE.".H...
." PLEASE CONTACT:..."......" COM
MODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..9...." AG
INCOURT, ONTARIO".[...." CANADA
M1W 2K4".{...." (416) 499-42
92".....UP.1:. 835:. 850:.A...." ..P
ROGRAM NAME: WORLD CAPITAL QUIZ."......"
WRITTEN BY : JAMES DOWNER."......"
UPGRADED BY : ARMAND AIELLO.".=....
" .THIS PROGRAM WILL RUN ON ANY...D.
..." BASIC 2.0 PET COMPUTER.....
.." BASIC 4.0 PET COMPUTER......
." 8032 CBM COMPUTER..R...."
COMMODORE 64 COMPUTER......835:.850
......".. THIS PROGRAM IS DESIGNED TO
TEST.".T...." THE STUDENTS ON THEIR KN
OWLEDGE OF":.". WORLD CAPITALS...."....
.." 'WORLD CAPITAL QUIZ' IS DESIGNED
."......" FOR STUDENTS IN THE JUNIOR TO
INTER-".P....". MEDIATE GRADE LEVELS."
......835:UP.2:.850......"..... AS TH
E WORLD'S BORDERS AND .".=...." LEADERS
CHANGE, SO THIS PROGRAM'S .".L...." LI
ST OF COUNTRIES AND THEIR CAPITALS."....
.." MUST BE CHANGED. TO LEARN HOW THIS
.".F...." CAN BE DONE, SEE THE MODIFICA
TION."......" SECTION OF THE MENU(#4)."
...D..835...I..59468,12:UT$." WORLD CAPI
TALS".).N..UZ.1..UP%:.217./.W...U.X.. **
PROGRAM MODIFICATION INST **.F.Y..".":.
UT,UL%...].UP.0:UG$."PROGRAM MOD":.850..
.^.."...... THIS SECTION IS DESIGNED
TO SHOW."..._.." THE USER THAT THE DA
TA IN THIS."...`.." PROGRAM CAN BE CHA
NGED OR ADDED TO .".A.A.." QUITE EASIL
Y. ALL THE USER HAS TO.".T.B.." DO IS
FOLLOW THESE STEPS.":.835:UP.2:.850...C
..".. .CHANGING THE DATA...".A.D.." F
IND THE DATA INSTRUCTION NUMBER."...E.."
WHERE THE CHANGE IS NECESSARY, AND.".
#.F.." AND MAKE THE CORRECTION..":."
.EXAMPLE..".H.G.." 1830 DATA ISRAEL,JE
RUSALEM".A.H.." .CHANGE TO...."...I.."
1830 DATA ISRAEL,TEL AVIV":.835:UP.3:
.850...J.." ...ADDING TO THE DATA.."...
K.." WHEN ADDING NEW DATA TO THE PROGR
AM,."...L.." USE THE PROGRAM INSTRUCTI
ON NUMBERS.".,.M.." FROM 3000 ON.".B.N
..".. .EXAMPLE..".E.O.." 3001 DATA C
ANADA,OTTAWA".X.P..835:UP.4:.850...Q..".
. .HOW TO ENTER THE DATA...".L.R.." 1
)FIRST, ENTER THE INSTRUCTION NO.,."...S
.." FOLLOWED BY THE WORD DATA..".!.T.
." 2)THEN THE COUNTRY, FOLLOWED BY A .
".Q.U.." COMMA (,) AND FINALLY IT'S C
APITAL..".E.V.." .EXAMPLE.."...W.." 3
001 DATA CANADA,OTTAWA":.835:UP.5:.850..
.X..".. .REMEMBER.."...Y.." FOR EVERY
NEW COUNTRY AND CAPITAL, .".. Z.." FO
R 1 TO 60 IN INSTRUCTION 1300..".. {.."
.EXAMPLE..".8 |.." ONE NEW ADDITION."
.F }.." 1300 FOR I=0 TO 60+1":.835:UP.
6:.850.} ~..".. .REMEMBER..".. .." I
F YOU ADD MORE THAN 10 CONTRIES AND."..
..." CAPITALS TO THE PROGRAM, REDIMENS
ION.".. ..." THE ARRAYS IN 1290.."..!.
.." .EXAMPLE..".1!..." 1290 DIM A$(70
),B$(70)".J!..." .CHANGE TO....".M!...
" 1290 DIM A$(100),B$(100)".V!...835..
!...59468,12:UT$." WORLD CAPITALS"..!...
UZ.1..UP%:.217..!....Y!... ** TO USE 803
2 LOAD CBM4032 **.."F..".....BEFORE RUNN
ING THIS PROGRAM ON AN 8032 ...E"P.."
LOAD THE 'CBM 4032' PROGRAM.........
....".P"Z..UU.71.V"....V" .. ** T I T L
E P A G E **.."".."....";:.UT,UU%:.B(5
0003).0..53280,14:.53281,6.."$..I.1.38:.
"...";:..X"&..I.1.22:.".....";:..."(..I.
1.37:.".....";:...#*..I.1.22:.".....";:.
.-#,.."........................... ..O#
..."................... . . ...P#0.."..
................. . .....#2..".........
........... ...#4.."..............C O M
M O D O R E...Y#6.."...............EDUC
ATIONAL....#8.."................SOFTWARE
..$:.. ** COMMODORE LOGO **.K$;..H(UD$,2
4);"..........PRESS SPACE BAR OR WAIT.":
I.0.M$<..A$:.A$.." ".I.I.1:.I.250.828..$
>.T1$."":T2$."":T3$."":T4$."":I.0..$@..3
00..$C.. ** SPACE BAR PRESS **..$H..H(UD
$,24);".......PRESS SPACE BAR TO CONTINU
E."..%L..UI$:.UI$.." ".844..%N...(%R.. *
* PAGE DESIGN ROUTINE **.4%T.UP.UP.1.[%W
.."."H(UT$.UP$,21);H(UG$.UP$,14);UP..%\.
." -------------------------------------
-"..%A..H(UD$,24);H(UP$,6);"HELP - PRESS
H <RETURN>".J%F.."..":...%K.. ** PLEA
SE WAIT REMARK **..&P..H(UD$,24);"
ONE MOMENT PLEASE... ".%&U...B&
... ** SET UP VARIABLES **..&..UX$."H":.
UQ%(1000):UB.32768:U1.196:U2.197:U3.198:
U4.216:UC.167:UU.1024.D&..UT.59468:UU%.1
2:UL%.14:UP%.1146:UM.32768:. 50003,0..'.
..B(50003).0.UB.1024:U1.209:U2.210:U3.21
1:U4.214:UC.204:UU.2048.?'...B(50003).0.
UT.53272:UU%.21:UL%.23:UP%.2139:UM.1024.
C'..UD$."........................."..'..
UP$."
"..'..UT$." WORLD CAPITALS ":. PLA
CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*
**..'.....(... ** SET VARIABLES **..(...
A$(70):. B$(70).!(...900.<(... ** CHECK
FOR 8032 **.Z(...".":." ":. SHIFTED SPA
CE.Q(...B(UB.40)..96..700..(... ** MEMOR
Y CHECK **..(... .(0).2000.937.L(..."...
.THIS MACHINE DOES NOT HAVE ENOUGH."..(.
.."MEMORY TO RUN THIS PROGRAM !"..(...UU
.71..).....)..."..":.B(50003).0.962.J)..
. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**..)...1075,133:.1076,144:.1077,234:.10
79,4:.1080,133:.1081,145..)...1091,155:.
1098,133:.1099,144:.1100,234:.1103,133..
)...1104,145:.1105,234:.1082,234..)...B(
50003)..160.955.&*...1093,88:.1094,228:.
1097,85:.1102,228:.965.;*...B(50003)..1.
990.J*...1093,49:.1094,230:.1097,46:.110
2,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:.
2122,141..+D..2123,20:.2124,3:.2126,234:
.2127,141:.2128,21:.2129,3.8+E..UU.48:.
DISABLE STOP KEY.I+J..800:. TITLE.Y+T..3
00:. MENU..+...".THE PGM WILL NOT WORK O
N THIS MACHINE!":...+...UZ.1..UP%:.UP%:U
Z.0:. ** PROGRAM STARTS HERE **..+..."..
";:.:.B(50003).0..53281,6:.53280,14..,..
.59468,12:UT$." WORLD CAPITALS":.".":.87
5:UP.0.-,... I.0 . 60.?,... A$(I),B$(I).
G,(.. I.W,<.N.0:C.0:W.0.J,F.. K1.150 . 2
50.},P.L.(K1.4)..(K1)..,Z.I.49..(L)..,D.
I..(I)..,N.Q.0..,S.UG$."QUESTION #".K,X.
N.N.1:. N.10 . 1565..,...59468,12:.850..
-..."....... WHAT IS THE CAPITAL OF ":.
". ";A$(I);"? ";.$-...2020.5-...Z$." "
.1970.K-... Z$.B$(I) . 1470.C- .Q.Q.1:.
Q..2 . 1960..-...".. TRY AGAIN....":W.W
.1:UP.UP.1:.2060..-... 1410..-..R..(6..(
I)).1:C.C.1..-H.. R . 1510,1520,1530,154
0,1550,1560...R.. G(18);" CORRECT";.5);
" GOOD WORK"......2060:.1650.5...."..
CORRECT!":. 835:.1650.R....".. RIGHT!":
.835:.1650.Q....".. CORRECT!":.835:.165
0......".. RIGHT!":.835:.1650......"..
CORRECT!":.835:.1650.J....".. RIGHT!":
.835:.1650../..UG$."RESULT":UP.UP.1:.850
SC.E IS ";C;" C.RECT ";W;" WR.G."
.D/...".... YOUR SCORE IS ";C;"CORRECT
";W;"WRONG."._/...". YOUR RATING IS ";.
./"...((C.(C.W).100).10..5).10"%"../6..
2060../@.."... DO YOU WANT TO CONTINUE?
(Y/N) ";.D/J.. 2080../T.. IFC$<>"N"ANDC
$<>"Y"../^.. C$."N" . 2010../H.N.0..0R..
K1.)0|..AFGHANISTAN,KABUL,ALBANIA,TIRAN
A.U0...ALGERIA,ALGIERS,ARGENTINA,BUENOS
AIRES.|0...AUSTRALIA,CANBERRA,AUSTRIA,VI
ENNA..0...BANGLADESH,DACCA,BELGIUM,BRUSS
ELS.M0...BOLIVIA,SUCRE LA PAZ,BRAZIL,BRA
SILIA..0...BURMA,RANGOON,CHAD,N'DJAMENA.
.1...CHILE,SANTIAGO,CHINA,PEKING.31B..TA
IWAN,TAIPEI,COLOMBIA,BOGOTA.^1L..CONGO,B
RAZZAVILLE,COSTA RICA,SAN JOSE..1V..CUBA
,HAVANA,CZECHOSLOVAKIA,PRAGUE..1...DENMA
RK,COPENHAGEN,ECUADOR,QUITO.R1...EGYPT,C
AIRO,ETHIOPIA,ADDIS ABBABA..1...FINLAND,
HELSINKI,FRANCE,PARIS..2...WEST GERMANY,
BONN,GREECE,ATHENS.B2...HUNGARY,BUDAPEST
,ICELAND,REYKJAVIK.I2...INDIA,NEW DELHI,
INDONESIA,JAKARTA..2...IRAN,TEHERAN,IREL
AND,DUBLIN..2&..ISRAEL,TEL AVIV,ITALY,RO
ME.I20..JAPAN,TOKYO,KENYA,NAIROBI..2:..N
ORTH KOREA,PYONGYANG,SOUTH KOREA,SEOUL.%
3D..LUXEMBURG,LUXEMBURG,MALAYSIA,KUALA L
UMPUR.L3N..MALTA,VALLETTA,MEXICO,MEXICO
CITY.~3X..NETHERLANDS,AMSTERDAM,NEW ZEAL
AND,WELLINGTON..3B..NIGER,NIAMEY,NORWAY,
OSLO,PAKISTAN,ISLAMABAD..3L..PANAMA,PANA
MA,PERU,LIMA,PHILIPPINES,QUEZON CITY..4V
..POLAND,WARSAW,PORTUGAL,LISBON.-4...SIN
GAPORE,SINGAPORE,SPAIN,MADRID.Q4...SWITZ
ERLAND,BERN,RUSSIA,MOSCOW..4...GREAT BRI
TAIN,LONDON,UNITED STATES,WASHINGTON..4.
..YUGOSLAVIA,BELGRADE,VENEZUELA,CARACAS.
.4..."..."..4..." ";G(18);"THE ANSWER I
S ";B$(I)..4...835..4A.W.W.1..4F.. K1..5
P.. 1410..5Z..".":.300.*5... INPUT ROUTI
NE.F5..US$."":UL.30:.35:Z$.UR$.`5...Z$."
".."..";: .2030.F5....}5... PAUSE SUBRO
UTINE..5...X.1.1000:.:...5 .UL.1:US$."YN
":. 35:C$.UR$..5*....54..AA$:.J(" .*.",(
K.1).2.1,2);:K..1.(K.0):.AA$."".2100..5>
....6D.. TITLE II..6E..59467,16..6F..594
66,150.+6G..MU.1.50.@6H.SO..(.(1).255).1
.N6I..59464,SO.V6J..MU.C6K..59464,0.P6L.
.59467,0.V6M.....
> CLICK IMAGE PREVIEW FOR FULL MODAL