WORLD CAPITALS
FILE INFORMATION
FILENAME(S): WORLD CAPITALS
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 21:07:27
APPEARS ON: 1 disk(s)
FILE HASH
adec353e223c14f0e331ba21949154a8662ec6fc27ea1da2194b3a6255eff59e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN C 128 D0013 | WORLD CAPITALS | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0A 1C 01 00 89 39 31 30 00 2B 1C 0A 00 8F |.......910.+....|
00000010: 20 2A 2A 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 | **GENERAL INPUT|
00000020: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 31 1C 0F 00 | ROUTINE **.1...|
00000030: 3A 00 37 1C 1E 00 3A 00 53 1C 23 00 8F 20 2B 2B |:.7...:.S.#.. ++|
00000040: 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 |+ INPUT SECTION |
00000050: 2B 2B 2B 00 65 1C 28 00 55 52 24 B2 22 22 3A 55 |+++.e.(.UR$."":U|
00000060: 49 24 B2 22 22 00 75 1C 2A 00 8B 55 4C B2 30 A7 |I$."".u.*..UL.0.|
00000070: 55 4C B2 38 30 00 88 1C 2D 00 99 22 20 20 9D 9D |UL.80...-.." ..|
00000080: 22 3B 3A 97 55 43 2C 30 00 9C 1C 32 00 A1 55 49 |";:.UC,0...2..UI|
00000090: 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 C6 1C 37 |$:.UI$."".50...7|
000000A0: 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 |..UI$..(13)..(UR|
000000B0: 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D |$)..1..UC,1:." .|
000000C0: 22 3B 3A 89 38 35 00 D9 1C 3C 00 8B 55 49 24 B2 |";:.85...<..UI$.|
000000D0: C7 28 32 30 29 A7 31 30 35 00 ED 1C 3E 00 8B 20 |.(20).105...>.. |
000000E0: C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 00 12 1D |.(UR$)..UL.50...|
000000F0: 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 |A..120:. CHECK F|
00000100: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT|
00000110: 45 52 00 22 1D 46 00 55 52 24 B2 55 52 24 AA 55 |ER.".F.UR$.UR$.U|
00000120: 49 24 00 2C 1D 4B 00 99 55 49 24 3B 00 34 1D 50 |I$.,.K..UI$;.4.P|
00000130: 00 89 35 30 00 59 1D 55 00 8F 20 2B 2B 2B 20 43 |..50.Y.U.. +++ C|
00000140: 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 |HECK FOR HELP RE|
00000150: 51 55 45 53 54 20 2B 2B 2B 00 81 1D 5A 00 8B 55 |QUEST +++...Z..U|
00000160: 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 |R$.UX$.195:. EXI|
00000170: 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E |T TO HELP ROUTIN|
00000180: 45 00 90 1D 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 |E..._..UF.1..240|
00000190: 00 9D 1D 64 00 55 46 B2 30 3A 99 3A 8E 00 B6 1D |...d.UF.0:.:....|
000001A0: 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C |f.. ++ CHECK DEL|
000001B0: 45 54 45 20 2B 2B 00 C7 1D 69 00 8B C3 28 55 52 |ETE ++...i...(UR|
000001C0: 24 29 B3 31 A7 35 30 00 DF 1D 6E 00 55 52 24 B2 |$).1.50...n.UR$.|
000001D0: C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 |.(UR$,.(UR$).1).|
000001E0: F1 1D 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 |..s..". ..";:.5|
000001F0: 30 00 18 1E 78 00 8F 20 2B 2B 20 43 48 45 43 4B |0...x.. ++ CHECK|
00000200: 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 | FOR VALID CHARA|
00000210: 43 54 45 52 53 20 2B 2B 00 2A 1E 7D 00 8B C3 28 |CTERS ++.*.}...(|
00000220: 55 53 24 29 B2 30 A7 31 35 30 00 3B 1E 82 00 81 |US$).0.150.;....|
00000230: 55 53 B2 31 A4 C3 28 55 53 24 29 00 52 1E 87 00 |US.1..(US$).R...|
00000240: 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 |.UI$..(US$,US,1)|
00000250: A7 8E 00 58 1E 8C 00 82 00 65 1E 91 00 55 49 24 |...X.....e...UI$|
00000260: B2 22 22 3A 8E 00 80 1E 96 00 8F 20 2A 2A 20 53 |."":....... ** S|
00000270: 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A |TANDARD INPUT **|
00000280: 00 91 1E 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 |.......(UI$).46.|
00000290: 8E 00 A2 1E 9B 00 8B 55 49 24 B2 C7 28 33 32 29 |.......UI$..(32)|
000002A0: A7 8E 00 BF 1E A0 00 8B C6 28 55 49 24 29 B3 34 |.........(UI$).4|
000002B0: 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 |8..(UI$).57.170.|
000002C0: C5 1E A5 00 8E 00 E2 1E AA 00 8B C6 28 55 49 24 |............(UI$|
000002D0: 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 |).65..(UI$).90.1|
000002E0: 38 30 00 E8 1E AF 00 8E 00 0C 1F B4 00 8B C6 28 |80.............(|
000002F0: 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 |UI$).193..(UI$).|
00000300: 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 2F 1F B9 |218.UI$."":../..|
00000310: 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 |...(UT).UU%.UI$.|
00000320: C7 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 |.(.(UI$).128):..|
00000330: 35 1F BB 00 8E 00 42 1F BE 00 55 49 24 B2 22 22 |5.....B...UI$.""|
00000340: 3A 8E 00 67 1F C3 00 55 46 B2 31 3A 8F 20 2B 2B |:..g...UF.1:. ++|
00000350: 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 |+ HELP ROUTINE E|
00000360: 58 49 54 20 2B 2B 2B 00 70 1F C5 00 8D 32 35 30 |XIT +++.p....250|
00000370: 00 79 1F C8 00 8D 32 34 35 00 98 1F CD 00 81 55 |.y....245......U|
00000380: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000390: 25 AA 55 33 25 AB 32 29 00 B4 1F D2 00 55 51 25 |%.U3%.2).....UQ%|
000003A0: 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A |(UQ.UB)..(UQ):.:|
000003B0: 99 22 93 22 00 BD 1F D7 00 55 5A B2 31 00 C6 1F |.".".....UZ.1...|
000003C0: D8 00 89 33 30 30 00 EB 1F D9 00 55 5A B2 30 3A |...300.....UZ.0:|
000003D0: 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A |US$.UJ$:UG$.UK$:|
000003E0: 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 12 20 DC 00 |UP.UJ:UL.UK.. ..|
000003F0: 55 54 24 B2 55 4C 24 3A 81 55 51 B2 55 42 A4 28 |UT$.UL$:.UQ.UB.(|
00000400: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000410: 33 29 00 27 20 E1 00 97 55 51 2C 55 51 25 28 55 |3).' ...UQ,UQ%(U|
00000420: 51 AB 55 42 29 3A 82 00 33 20 E6 00 97 55 31 2C |Q.UB):..3 ...U1,|
00000430: 55 31 25 00 3F 20 E8 00 97 55 32 2C 55 32 25 00 |U1%.? ...U2,U2%.|
00000440: 4B 20 E9 00 97 55 34 2C 55 34 25 00 59 20 EA 00 |K ...U4,U4%.Y ..|
00000450: 97 55 33 2C 55 33 25 AB 31 00 61 20 EB 00 89 33 |.U3,U3%.1.a ...3|
00000460: 35 00 93 20 F0 00 55 44 25 B2 28 28 55 32 25 AC |5.. ..UD%.((U2%.|
00000470: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000480: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000490: 29 3A 8E 00 CE 20 F5 00 99 C8 28 55 44 24 2C 32 |):... ....(UD$,2|
000004A0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
000004B0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
000004C0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 FA | COMING . ":...|
000004D0: 20 FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 | ..U1%..(U1):U2%|
000004E0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000004F0: 3A 55 34 25 B2 C2 28 55 34 29 00 0C 21 FB 00 55 |:U4%..(U4)..!..U|
00000500: 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 2C 21 FC |J$.US$:UJ.UL.,!.|
00000510: 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 |.UJ$.US$:UK$.UG$|
00000520: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 32 21 FF |:UJ.UP:UK.UL.2!.|
00000530: 00 8E 00 43 21 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...C!,.. ** MENU|
00000540: 20 2A 2A 00 49 21 2D 01 3A 00 58 21 2E 01 99 22 | **.I!-.:.X!..."|
00000550: 93 22 C7 28 31 34 32 29 00 5E 21 2F 01 3A 00 7B |.".(142).^!/.:.{|
00000560: 21 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |!1..". |
00000570: 20 20 20 20 20 20 4D 45 4E 55 22 00 AA 21 36 01 | MENU"..!6.|
00000580: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
00000590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D8 21 3B 01 99 |---------"..!;..|
000005B0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000005C0: 45 47 49 4E 20 57 4F 52 4C 44 20 43 41 50 49 54 |EGIN WORLD CAPIT|
000005D0: 41 4C 20 51 55 49 5A 22 00 02 22 40 01 99 22 11 |AL QUIZ".."@..".|
000005E0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000005F0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000600: 53 22 00 2C 22 45 01 99 22 11 11 20 20 20 20 20 |S".,"E..".. |
00000610: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000620: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 5A 22 4A |NSTRUCTIONS".Z"J|
00000630: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000640: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 | MODIFICATION OF|
00000650: 20 50 52 4F 47 52 52 41 4D 22 00 76 22 4F 01 99 | PROGRRAM".v"O..|
00000660: 22 11 11 20 20 20 20 20 20 20 35 2E 20 20 20 51 |".. 5. Q|
00000670: 55 49 54 11 11 22 00 A5 22 54 01 99 22 20 2D 2D |UIT..".."T.." --|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 22 00 D0 22 59 01 99 22 11 11 20 20 |----".."Y..".. |
000006B0: 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D | PRESS A NUM|
000006C0: 42 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 3B |BER KEY (1-5) ";|
000006D0: 00 F9 22 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 |.."^.UL.1:US$."1|
000006E0: 32 33 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |2345":.35:. INPU|
000006F0: 54 20 52 4F 55 54 49 4E 45 00 1A 23 60 01 55 53 |T ROUTINE..#`.US|
00000700: 24 B2 22 22 3A 55 54 24 B2 22 20 D7 CF D2 CC C4 |$."":UT$." .....|
00000710: 20 C3 C1 D0 C9 D4 C1 CC D3 22 00 3B 23 63 01 91 | ........".;#c..|
00000720: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
00000730: 35 30 30 2C 36 30 30 2C 33 39 36 00 44 23 68 01 |500,600,396.D#h.|
00000740: 89 33 30 30 00 6B 23 8B 01 8F 20 2A 2A 20 52 45 |.300.k#... ** RE|
00000750: 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |-ENABLE STOP KEY|
00000760: 20 41 4E 44 20 45 4E 44 20 2A 2A 00 71 23 8C 01 | AND END **.q#..|
00000770: 8F 00 7D 23 8E 01 99 22 9A 93 22 3A 80 00 88 23 |..}#..."..":...#|
00000780: 8F 01 8D 38 37 35 3A 8E 00 A9 23 90 01 8F 20 2A |...875:...#... *|
00000790: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
000007A0: 43 54 49 4F 4E 53 20 2A 2A 00 B7 23 95 01 99 22 |CTIONS **..#..."|
000007B0: 93 22 C7 28 31 34 29 00 D8 23 9A 01 55 50 B2 30 |.".(14)..#..UP.0|
000007C0: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
000007D0: 53 54 22 3A 8D 38 35 30 00 09 24 9C 01 3A 20 20 |ST":.850..$..: |
000007E0: 99 22 11 11 11 11 20 20 20 20 D2 45 4D 45 4D 42 |.".... .EMEMB|
000007F0: 45 52 20 54 4F 20 48 49 54 20 3C 52 45 54 55 52 |ER TO HIT <RETUR|
00000800: 4E 3E 20 41 46 54 45 52 22 00 35 24 9E 01 3A 20 |N> AFTER".5$..: |
00000810: 20 99 22 20 20 20 54 59 50 49 4E 47 20 59 4F 55 | ." TYPING YOU|
00000820: 52 20 41 4E 53 57 45 52 2E 20 D4 48 49 53 20 54 |R ANSWER. .HIS T|
00000830: 45 4C 4C 53 22 00 62 24 A0 01 3A 20 20 99 22 20 |ELLS".b$..: ." |
00000840: 20 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 54 | THE COMPUTER T|
00000850: 4F 20 41 43 43 45 50 54 20 57 48 41 54 20 59 4F |O ACCEPT WHAT YO|
00000860: 55 22 00 7C 24 A2 01 3A 20 20 99 22 20 20 20 48 |U".|$..: ." H|
00000870: 41 56 45 20 54 59 50 45 44 2E 11 22 00 A9 24 A4 |AVE TYPED.."..$.|
00000880: 01 3A 20 20 99 22 20 20 20 20 D4 59 50 45 20 3C |.: ." .YPE <|
00000890: 48 3E 20 41 54 20 41 4E 59 20 54 49 4D 45 20 54 |H> AT ANY TIME T|
000008A0: 4F 20 52 45 54 55 52 4E 22 00 D6 24 A6 01 3A 20 |O RETURN"..$..: |
000008B0: 20 99 22 20 20 20 54 4F 20 54 48 45 20 4D 45 4E | ." TO THE MEN|
000008C0: 55 20 46 4F 52 20 48 45 4C 50 2E 20 20 D9 4F 55 |U FOR HELP. .OU|
000008D0: 20 57 49 4C 4C 22 00 03 25 A8 01 3A 20 20 99 22 | WILL"..%..: ."|
000008E0: 20 20 20 42 45 20 52 45 54 55 52 4E 45 44 20 54 | BE RETURNED T|
000008F0: 4F 20 54 48 45 20 50 4C 41 43 45 20 49 4E 20 54 |O THE PLACE IN T|
00000900: 48 45 22 00 2E 25 AA 01 3A 20 20 99 22 20 20 20 |HE"..%..: ." |
00000910: 50 52 4F 47 52 41 4D 20 57 48 45 52 45 20 59 4F |PROGRAM WHERE YO|
00000920: 55 20 4C 45 46 54 20 4F 46 46 20 41 53 22 00 5C |U LEFT OFF AS".\|
00000930: 25 AC 01 3A 20 20 99 22 20 20 20 53 4F 4F 4E 20 |%..: ." SOON |
00000940: 41 53 20 54 48 45 20 4F 50 54 49 4F 4E 20 46 52 |AS THE OPTION FR|
00000950: 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 80 25 AE |OM THE MENU"..%.|
00000960: 01 3A 20 20 99 22 20 20 20 49 53 20 43 4F 4D 50 |.: ." IS COMP|
00000970: 4C 45 54 45 2E 22 3A 8D 38 33 35 3A 8D 38 35 30 |LETE.":.835:.850|
00000980: 00 B2 25 B8 01 99 22 11 11 20 20 D4 48 49 53 20 |..%...".. .HIS |
00000990: 50 52 4F 47 52 41 4D 20 49 53 20 44 45 53 49 47 |PROGRAM IS DESIG|
000009A0: 4E 45 44 20 54 4F 20 54 45 53 54 20 59 4F 55 52 |NED TO TEST YOUR|
000009B0: 11 22 00 D9 25 B9 01 99 22 20 20 4B 4E 4F 57 4C |."..%..." KNOWL|
000009C0: 45 44 47 45 20 4F 46 20 D7 CF D2 CC C4 20 C3 C1 |EDGE OF ..... ..|
000009D0: D0 C9 D4 C1 CC D3 2E 11 22 00 07 26 BA 01 99 22 |........"..&..."|
000009E0: 20 20 D4 48 45 20 43 4F 4D 50 55 54 45 52 20 57 | .HE COMPUTER W|
000009F0: 49 4C 4C 20 52 41 4E 44 4F 4D 4C 59 20 53 45 4C |ILL RANDOMLY SEL|
00000A00: 45 43 54 20 41 11 22 00 49 26 BB 01 99 22 20 20 |ECT A.".I&..." |
00000A10: 43 4F 55 4E 54 52 59 20 41 4E 44 20 59 4F 55 20 |COUNTRY AND YOU |
00000A20: 57 49 4C 4C 20 48 41 56 45 20 54 4F 20 47 49 56 |WILL HAVE TO GIV|
00000A30: 45 20 11 22 3A 99 22 20 20 49 54 27 53 20 43 41 |E .":." IT'S CA|
00000A40: 50 49 54 41 4C 2E 11 11 22 00 5D 26 BC 01 99 22 |PITAL...".]&..."|
00000A50: 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 00 86 26 | .........."..&|
00000A60: BD 01 99 22 20 20 D7 48 41 54 20 49 53 20 54 48 |..." .HAT IS TH|
00000A70: 45 20 43 41 50 49 54 41 4C 20 4F 46 20 C3 41 4E |E CAPITAL OF .AN|
00000A80: 41 44 41 3F 11 22 00 A5 26 BE 01 99 22 20 20 CF |ADA?."..&..." .|
00000A90: 54 54 41 57 41 22 3A 8D 38 33 35 3A 55 50 B2 32 |TTAWA":.835:UP.2|
00000AA0: 3A 8D 38 35 30 00 D7 26 BF 01 99 22 11 11 11 11 |:.850..&..."....|
00000AB0: 11 20 20 20 20 D9 4F 55 20 57 49 4C 4C 20 42 45 |. .OU WILL BE|
00000AC0: 20 47 49 56 45 4E 20 54 57 4F 20 43 48 41 4E 43 | GIVEN TWO CHANC|
00000AD0: 45 53 20 54 4F 11 22 00 07 27 C0 01 99 22 20 20 |ES TO."..'..." |
00000AE0: 47 45 54 20 54 48 45 20 52 49 47 48 54 20 41 4E |GET THE RIGHT AN|
00000AF0: 53 57 45 52 2E 20 C9 46 20 59 4F 55 20 41 52 45 |SWER. .F YOU ARE|
00000B00: 20 57 52 4F 4E 47 22 00 35 27 C1 01 99 22 20 20 | WRONG".5'..." |
00000B10: 54 57 49 43 45 20 54 48 45 20 C3 4F 4D 50 55 54 |TWICE THE .OMPUT|
00000B20: 45 52 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 |ER WILL GIVE YOU|
00000B30: 20 54 48 45 22 00 5E 27 C2 01 99 22 11 20 20 43 | THE".^'...". C|
00000B40: 4F 52 52 45 43 54 20 41 4E 53 57 45 52 2E 22 3A |ORRECT ANSWER.":|
00000B50: 8D 38 33 35 3A 55 50 B2 33 3A 8D 38 35 30 00 91 |.835:UP.3:.850..|
00000B60: 27 C3 01 99 22 11 11 11 11 11 20 20 C1 46 54 45 |'..."..... .FTE|
00000B70: 52 20 45 56 45 52 59 20 31 30 20 51 55 45 53 54 |R EVERY 10 QUEST|
00000B80: 49 4F 4E 53 2C 20 41 20 53 55 4D 4D 41 52 59 11 |IONS, A SUMMARY.|
00000B90: 22 00 BE 27 C4 01 99 22 20 20 4F 46 20 59 4F 55 |"..'..." OF YOU|
00000BA0: 52 20 52 45 53 55 4C 54 53 20 57 49 4C 4C 20 42 |R RESULTS WILL B|
00000BB0: 45 20 47 49 56 45 4E 20 41 4E 44 20 11 22 00 FF |E GIVEN AND ."..|
00000BC0: 27 C5 01 99 22 20 20 59 4F 55 20 57 49 4C 4C 20 |'..." YOU WILL |
00000BD0: 48 41 56 45 20 54 48 45 20 4F 50 54 49 4F 4E 20 |HAVE THE OPTION |
00000BE0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 99 22 11 |TO CONTINUE":.".|
00000BF0: 20 20 54 48 45 20 D1 55 49 5A 2E 11 11 11 22 00 | THE .UIZ....".|
00000C00: 17 28 C6 01 99 22 20 20 12 C7 CF CF C4 A0 CC D5 |.(..." ........|
00000C10: C3 CB 92 21 21 21 22 00 20 28 E5 01 8D 38 33 35 |...!!!". (...835|
00000C20: 00 3A 28 E7 01 55 54 24 B2 22 20 57 4F 52 4C 44 |.:(..UT$." WORLD|
00000C30: 20 43 41 50 49 54 41 4C 53 22 00 40 28 F3 01 8E | CAPITALS".@(...|
00000C40: 00 61 28 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 |.a(... ** TEACHE|
00000C50: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |R INSTRUCTIONS *|
00000C60: 2A 00 6F 28 F5 01 99 22 93 22 C7 28 31 34 29 00 |*.o(...".".(14).|
00000C70: 91 28 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |.(..UP.0:UG$.".E|
00000C80: 41 43 48 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 35 |ACHER .NST.":.85|
00000C90: 30 00 BF 28 F7 01 99 22 11 11 20 20 20 20 20 20 |0..(...".. |
00000CA0: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000CB0: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000CC0: E8 28 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |.(..." THIS PR|
00000CD0: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00000CE0: 50 55 42 4C 49 43 11 22 00 F9 28 F9 01 99 22 20 |PUBLIC."..(..." |
00000CF0: 20 20 44 4F 4D 41 49 4E 2E 00 0F 29 00 02 55 50 | DOMAIN...)..UP|
00000D00: B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 |.1:. 835:. 850:.|
00000D10: 3F 29 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F |?)..." ...RO|
00000D20: 47 52 41 4D 20 CE 41 4D 45 3A 20 D7 4F 52 4C 44 |GRAM .AME: .ORLD|
00000D30: 20 C3 41 50 49 54 41 4C 20 D1 55 49 5A 11 22 00 | .APITAL .UIZ.".|
00000D40: 67 29 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 |g)..." .RITT|
00000D50: 45 4E 20 C2 59 20 20 3A 20 CA 41 4D 45 53 20 C4 |EN .Y : .AMES .|
00000D60: 4F 57 4E 45 52 11 22 00 8B 29 03 02 99 22 20 20 |OWNER."..)..." |
00000D70: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00000D80: 20 D7 2E 20 C1 44 41 4D 53 11 22 00 B4 29 04 02 | .. .DAMS."..)..|
00000D90: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000DA0: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000DB0: 20 41 11 11 00 DA 29 08 02 99 22 20 20 20 20 20 | A....)..." |
00000DC0: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 31 32 | ......... 12|
00000DD0: 38 20 C3 CF CD D0 D5 D4 C5 D2 00 E8 29 09 02 8D |8 ..........)...|
00000DE0: 38 33 35 3A 8D 38 35 30 00 17 2A 12 02 99 22 11 |835:.850..*...".|
00000DF0: 11 20 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 |. .HIS PROGRA|
00000E00: 4D 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 4F |M IS DESIGNED TO|
00000E10: 20 54 45 53 54 11 22 00 5C 2A 13 02 99 22 20 20 | TEST.".\*..." |
00000E20: 54 48 45 20 53 54 55 44 45 4E 54 53 20 4F 4E 20 |THE STUDENTS ON |
00000E30: 54 48 45 49 52 20 4B 4E 4F 57 4C 45 44 47 45 20 |THEIR KNOWLEDGE |
00000E40: 4F 46 22 3A 99 22 11 20 20 D7 CF D2 CC C4 20 C3 |OF":.". ..... .|
00000E50: C1 D0 C9 D4 C1 CC D3 2E 11 11 11 22 00 8A 2A 14 |..........."..*.|
00000E60: 02 99 22 20 20 20 20 27 D7 CF D2 CC C4 A0 C3 C1 |.." '........|
00000E70: D0 C9 D4 C1 CC A0 D1 D5 C9 DA 27 20 49 53 20 44 |..........' IS D|
00000E80: 45 53 49 47 4E 45 44 20 11 22 00 B8 2A 15 02 99 |ESIGNED ."..*...|
00000E90: 22 20 20 46 4F 52 20 53 54 55 44 45 4E 54 53 20 |" FOR STUDENTS |
00000EA0: 49 4E 20 54 48 45 20 CA 55 4E 49 4F 52 20 54 4F |IN THE .UNIOR TO|
00000EB0: 20 C9 4E 54 45 52 2D 22 00 D8 2A 16 02 99 22 11 | .NTER-"..*...".|
00000EC0: 20 20 4D 45 44 49 41 54 45 20 47 52 41 44 45 20 | MEDIATE GRADE |
00000ED0: 4C 45 56 45 4C 53 2E 22 00 EB 2A 17 02 8D 38 33 |LEVELS."..*...83|
00000EE0: 35 3A 55 50 B2 32 3A 8D 38 35 30 00 18 2B 18 02 |5:UP.2:.850..+..|
00000EF0: 99 22 11 11 11 11 11 20 20 20 20 C1 53 20 54 48 |."..... .S TH|
00000F00: 45 20 57 4F 52 4C 44 27 53 20 42 4F 52 44 45 52 |E WORLD'S BORDER|
00000F10: 53 20 41 4E 44 20 11 22 00 45 2B 19 02 99 22 20 |S AND .".E+..." |
00000F20: 20 4C 45 41 44 45 52 53 20 43 48 41 4E 47 45 2C | LEADERS CHANGE,|
00000F30: 20 53 4F 20 54 48 49 53 20 50 52 4F 47 52 41 4D | SO THIS PROGRAM|
00000F40: 27 53 20 11 22 00 74 2B 1A 02 99 22 20 20 4C 49 |'S .".t+..." LI|
00000F50: 53 54 20 4F 46 20 43 4F 55 4E 54 52 49 45 53 20 |ST OF COUNTRIES |
00000F60: 41 4E 44 20 54 48 45 49 52 20 43 41 50 49 54 41 |AND THEIR CAPITA|
00000F70: 4C 53 11 22 00 A2 2B 1B 02 99 22 20 20 4D 55 53 |LS."..+..." MUS|
00000F80: 54 20 42 45 20 43 48 41 4E 47 45 44 2E 20 D4 4F |T BE CHANGED. .O|
00000F90: 20 4C 45 41 52 4E 20 48 4F 57 20 54 48 49 53 20 | LEARN HOW THIS |
00000FA0: 11 22 00 CE 2B 1C 02 99 22 20 20 43 41 4E 20 42 |."..+..." CAN B|
00000FB0: 45 20 44 4F 4E 45 2C 20 53 45 45 20 54 48 45 20 |E DONE, SEE THE |
00000FC0: CD CF C4 C9 C6 C9 C3 C1 D4 C9 CF CE 11 22 00 F0 |............."..|
00000FD0: 2B 1D 02 99 22 20 20 D3 C5 C3 D4 C9 CF CE 20 4F |+..." ....... O|
00000FE0: 46 20 54 48 45 20 CD C5 CE D5 28 23 34 29 2E 22 |F THE ....(#4)."|
00000FF0: 00 F9 2B 44 02 8D 38 33 35 00 13 2C 49 02 55 54 |..+D..835..,I.UT|
00001000: 24 B2 22 20 57 4F 52 4C 44 20 43 41 50 49 54 41 |$." WORLD CAPITA|
00001010: 4C 53 22 00 19 2C 57 02 8E 00 3F 2C 58 02 8F 20 |LS"..,W...?,X.. |
00001020: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00001030: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00001040: 4D 2C 59 02 99 22 93 22 C7 28 31 34 29 00 6D 2C |M,Y..".".(14).m,|
00001050: 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 |].UP.0:UG$.".ROG|
00001060: 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 A1 2C |RAM .OD":.850..,|
00001070: 5E 02 99 22 11 11 11 11 11 11 20 20 20 20 20 D4 |^.."...... .|
00001080: 48 49 53 20 53 45 43 54 49 4F 4E 20 49 53 20 44 |HIS SECTION IS D|
00001090: 45 53 49 47 4E 45 44 20 54 4F 20 53 48 4F 57 11 |ESIGNED TO SHOW.|
000010A0: 22 00 CB 2C 5F 02 99 22 20 20 20 54 48 45 20 55 |"..,_.." THE U|
000010B0: 53 45 52 20 54 48 41 54 20 54 48 45 20 C4 C1 D4 |SER THAT THE ...|
000010C0: C1 20 49 4E 20 54 48 49 53 11 22 00 FA 2C 60 02 |. IN THIS."..,`.|
000010D0: 99 22 20 20 20 50 52 4F 47 52 41 4D 20 43 41 4E |." PROGRAM CAN|
000010E0: 20 42 45 20 43 48 41 4E 47 45 44 20 4F 52 20 41 | BE CHANGED OR A|
000010F0: 44 44 45 44 20 54 4F 20 11 22 00 28 2D 61 02 99 |DDED TO .".(-a..|
00001100: 22 20 20 20 51 55 49 54 45 20 45 41 53 49 4C 59 |" QUITE EASILY|
00001110: 2E 20 20 C1 4C 4C 20 54 48 45 20 D5 53 45 52 20 |. .LL THE .SER |
00001120: 48 41 53 20 54 4F 11 22 00 5B 2D 62 02 99 22 20 |HAS TO.".[-b.." |
00001130: 20 20 44 4F 20 49 53 20 46 4F 4C 4C 4F 57 20 54 | DO IS FOLLOW T|
00001140: 48 45 53 45 20 53 54 45 50 53 2E 22 3A 8D 38 33 |HESE STEPS.":.83|
00001150: 35 3A 55 50 B2 32 3A 8D 38 35 30 00 7C 2D 63 02 |5:UP.2:.850.|-c.|
00001160: 99 22 11 11 20 20 12 C3 C8 C1 CE C7 C9 CE C7 A0 |.".. ..........|
00001170: D4 C8 C5 A0 C4 C1 D4 C1 92 11 11 22 00 A8 2D 64 |..........."..-d|
00001180: 02 99 22 20 20 20 C6 49 4E 44 20 54 48 45 20 C4 |.." .IND THE .|
00001190: C1 D4 C1 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 |... INSTRUCTION |
000011A0: 4E 55 4D 42 45 52 11 22 00 D6 2D 65 02 99 22 20 |NUMBER."..-e.." |
000011B0: 20 20 57 48 45 52 45 20 54 48 45 20 43 48 41 4E | WHERE THE CHAN|
000011C0: 47 45 20 49 53 20 4E 45 43 45 53 53 41 52 59 2C |GE IS NECESSARY,|
000011D0: 20 41 4E 44 11 22 00 0A 2E 66 02 99 22 20 20 20 | AND."...f.." |
000011E0: 41 4E 44 20 4D 41 4B 45 20 54 48 45 20 43 4F 52 |AND MAKE THE COR|
000011F0: 52 45 43 54 49 4F 4E 2E 11 22 3A 99 22 20 20 12 |RECTION..":." .|
00001200: C5 D8 C1 CD D0 CC C5 92 11 22 00 2F 2E 67 02 99 |........."./.g..|
00001210: 22 20 20 20 31 38 33 30 20 C4 C1 D4 C1 A0 C9 D3 |" 1830 .......|
00001220: D2 C1 C5 CC 2C CA C5 D2 D5 D3 C1 CC C5 CD 22 00 |....,.........".|
00001230: 48 2E 68 02 99 22 20 20 20 11 C3 48 41 4E 47 45 |H.h.." ..HANGE|
00001240: 20 54 4F 2E 2E 2E 11 22 00 7B 2E 69 02 99 22 20 | TO....".{.i.." |
00001250: 20 20 31 38 33 30 20 C4 C1 D4 C1 A0 C9 D3 D2 C1 | 1830 .........|
00001260: C5 CC 2C D4 C5 CC A0 C1 D6 C9 D6 22 3A 8D 38 33 |..,........":.83|
00001270: 35 3A 55 50 B2 33 3A 8D 38 35 30 00 9C 2E 6A 02 |5:UP.3:.850...j.|
00001280: 99 22 20 20 11 11 12 C1 C4 C4 C9 CE C7 A0 D4 CF |." ............|
00001290: A0 D4 C8 C5 A0 C4 C1 D4 C1 92 11 22 00 CC 2E 6B |..........."...k|
000012A0: 02 99 22 20 20 20 D7 48 45 4E 20 41 44 44 49 4E |.." .HEN ADDIN|
000012B0: 47 20 4E 45 57 20 C4 C1 D4 C1 20 54 4F 20 54 48 |G NEW .... TO TH|
000012C0: 45 20 50 52 4F 47 52 41 4D 2C 11 22 00 FB 2E 6C |E PROGRAM,."...l|
000012D0: 02 99 22 20 20 20 55 53 45 20 54 48 45 20 50 52 |.." USE THE PR|
000012E0: 4F 47 52 41 4D 20 49 4E 53 54 52 55 43 54 49 4F |OGRAM INSTRUCTIO|
000012F0: 4E 20 4E 55 4D 42 45 52 53 11 22 00 13 2F 6D 02 |N NUMBERS."../m.|
00001300: 99 22 20 20 20 46 52 4F 4D 20 33 30 30 30 20 4F |." FROM 3000 O|
00001310: 4E 2E 22 00 29 2F 6E 02 99 22 11 11 20 20 12 C5 |N.".)/n..".. ..|
00001320: D8 C1 CD D0 CC C5 92 11 22 00 4C 2F 6F 02 99 22 |........".L/o.."|
00001330: 20 20 20 33 30 30 31 20 C4 C1 D4 C1 20 20 C3 C1 | 3001 .... ..|
00001340: CE C1 C4 C1 2C CF D4 D4 C1 D7 C1 22 00 5F 2F 70 |....,......"._/p|
00001350: 02 8D 38 33 35 3A 55 50 B2 34 3A 8D 38 35 30 00 |..835:UP.4:.850.|
00001360: 84 2F 71 02 99 22 11 11 20 20 12 C8 CF D7 A0 D4 |./q..".. ......|
00001370: CF A0 C5 CE D4 C5 D2 A0 D4 C8 C5 A0 C4 C1 D4 C1 |................|
00001380: 92 11 11 22 00 B3 2F 72 02 99 22 20 20 20 31 29 |..."../r.." 1)|
00001390: C6 49 52 53 54 2C 20 45 4E 54 45 52 20 54 48 45 |.IRST, ENTER THE|
000013A0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 CE CF 2E | INSTRUCTION ...|
000013B0: 2C 11 22 00 DA 2F 73 02 99 22 20 20 20 20 46 4F |,."../s.." FO|
000013C0: 4C 4C 4F 57 45 44 20 42 59 20 54 48 45 20 57 4F |LLOWED BY THE WO|
000013D0: 52 44 20 C4 C1 D4 C1 2E 11 22 00 08 30 74 02 99 |RD ......"..0t..|
000013E0: 22 20 20 20 32 29 D4 48 45 4E 20 54 48 45 20 C3 |" 2).HEN THE .|
000013F0: 4F 55 4E 54 52 59 2C 20 46 4F 4C 4C 4F 57 45 44 |OUNTRY, FOLLOWED|
00001400: 20 42 59 20 41 20 11 22 00 38 30 75 02 99 22 20 | BY A .".80u.." |
00001410: 20 20 20 43 4F 4D 4D 41 20 28 2C 29 20 41 4E 44 | COMMA (,) AND|
00001420: 20 46 49 4E 41 4C 4C 59 20 49 54 27 53 20 C3 41 | FINALLY IT'S .A|
00001430: 50 49 54 41 4C 2E 11 22 00 4C 30 76 02 99 22 20 |PITAL..".L0v.." |
00001440: 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 00 7D 30 77 | ..........".}0w|
00001450: 02 99 22 20 20 20 33 30 30 31 20 C4 C1 D4 C1 20 |.." 3001 .... |
00001460: C3 C1 CE C1 C4 C1 2C CF D4 D4 C1 D7 C1 22 3A 8D |......,......":.|
00001470: 38 33 35 3A 55 50 B2 35 3A 8D 38 35 30 00 94 30 |835:UP.5:.850..0|
00001480: 78 02 99 22 11 11 20 20 12 D2 C5 CD C5 CD C2 C5 |x..".. ........|
00001490: D2 92 11 22 00 C3 30 79 02 99 22 20 20 20 C6 4F |..."..0y.." .O|
000014A0: 52 20 45 56 45 52 59 20 4E 45 57 20 C3 4F 55 4E |R EVERY NEW .OUN|
000014B0: 54 52 59 20 41 4E 44 20 C3 41 50 49 54 41 4C 2C |TRY AND .APITAL,|
000014C0: 20 11 22 00 EF 30 7A 02 99 22 20 20 20 41 44 44 | ."..0z.." ADD|
000014D0: 20 31 20 54 4F 20 36 30 20 49 4E 20 49 4E 53 54 | 1 TO 60 IN INST|
000014E0: 52 55 43 54 49 4F 4E 20 31 33 30 30 2E 11 22 00 |RUCTION 1300..".|
000014F0: 03 31 7B 02 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 |.1{.." ........|
00001500: 92 11 22 00 1F 31 7C 02 99 22 20 20 20 CF 4E 45 |.."..1|.." .NE|
00001510: 20 4E 45 57 20 41 44 44 49 54 49 4F 4E 11 22 00 | NEW ADDITION.".|
00001520: 4D 31 7D 02 99 22 20 20 20 31 33 30 30 20 C6 CF |M1}.." 1300 ..|
00001530: D2 A0 C9 3D 30 20 D4 CF 20 36 30 2B 31 22 3A 8D |...=0 .. 60+1":.|
00001540: 38 33 35 3A 55 50 B2 36 3A 8D 38 35 30 00 64 31 |835:UP.6:.850.d1|
00001550: 7E 02 99 22 11 11 20 20 12 D2 C5 CD C5 CD C2 C5 |~..".. ........|
00001560: D2 92 11 22 00 94 31 7F 02 99 22 20 20 20 C9 46 |..."..1..." .F|
00001570: 20 59 4F 55 20 41 44 44 20 4D 4F 52 45 20 54 48 | YOU ADD MORE TH|
00001580: 41 4E 20 31 30 20 C3 4F 4E 54 52 49 45 53 20 41 |AN 10 .ONTRIES A|
00001590: 4E 44 11 22 00 C4 31 80 02 99 22 20 20 20 C3 41 |ND."..1..." .A|
000015A0: 50 49 54 41 4C 53 20 54 4F 20 54 48 45 20 50 52 |PITALS TO THE PR|
000015B0: 4F 47 52 41 4D 2C 20 52 45 44 49 4D 45 4E 53 49 |OGRAM, REDIMENSI|
000015C0: 4F 4E 11 22 00 E3 31 81 02 99 22 20 20 20 54 48 |ON."..1..." TH|
000015D0: 45 20 41 52 52 41 59 53 20 49 4E 20 31 32 39 30 |E ARRAYS IN 1290|
000015E0: 2E 11 22 00 F7 31 82 02 99 22 20 20 12 C5 D8 C1 |.."..1..." ....|
000015F0: CD D0 CC C5 92 11 22 00 18 32 83 02 99 22 20 20 |......"..2..." |
00001600: 20 31 32 39 30 20 C4 C9 CD 20 C1 24 28 37 30 29 | 1290 ... .$(70)|
00001610: 2C C2 24 28 37 30 29 22 00 31 32 84 02 99 22 20 |,.$(70)".12..." |
00001620: 20 20 11 C3 48 41 4E 47 45 20 54 4F 2E 2E 2E 11 | ..HANGE TO....|
00001630: 22 00 54 32 85 02 99 22 20 20 20 31 32 39 30 20 |".T2..." 1290 |
00001640: C4 C9 CD 20 C1 24 28 31 30 30 29 2C C2 24 28 31 |... .$(100),.$(1|
00001650: 30 30 29 22 00 5D 32 94 02 8D 38 33 35 00 77 32 |00)".]2...835.w2|
00001660: 99 02 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 41 |..UT$." WORLD CA|
00001670: 50 49 54 41 4C 53 22 00 7D 32 BB 02 8E 00 9D 32 |PITALS".}2.....2|
00001680: 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 | .. ** T I T L E|
00001690: 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 B5 32 | P A G E **..2|
000016A0: 22 03 99 22 93 11 1D 1F 22 3B 3A E7 30 2C 31 36 |".."....";:.0,16|
000016B0: 3A E7 34 2C 37 00 CB 32 24 03 81 49 B2 31 A4 33 |:.4,7..2$..I.1.3|
000016C0: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 E3 32 26 03 |8:."...";:...2&.|
000016D0: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."|
000016E0: 3B 3A 82 00 FB 32 28 03 81 49 B2 31 A4 33 37 3A |;:...2(..I.1.37:|
000016F0: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 13 33 2A 03 |.".....";:...3*.|
00001700: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."|
00001710: 3B 3A 82 00 38 33 2C 03 99 22 13 11 11 11 11 11 |;:..83,.."......|
00001720: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001730: 1D 1D 1D 12 A9 20 20 92 00 5A 33 2E 03 99 22 1D |..... ..Z3...".|
00001740: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001750: 1D 12 20 92 20 20 12 20 92 A9 00 7B 33 30 03 99 |.. . . ...{30..|
00001760: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001770: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 99 33 32 03 |.... . .....32.|
00001780: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001790: 1D 1D 1D 1D DF 12 20 20 92 00 C1 33 34 03 99 22 |...... ...34.."|
000017A0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C |
000017B0: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.|
000017C0: 11 00 E4 33 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |...36.."........|
000017D0: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION|
000017E0: 41 4C 11 11 00 03 34 38 03 99 22 1D 1D 1D 1D 1D |AL....48..".....|
000017F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW|
00001800: 41 52 45 00 1E 34 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE..4:.. ** COM|
00001810: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 56 |MODORE LOGO **.V|
00001820: 34 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |4;...(UD$,24);".|
00001830: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
00001840: 50 0C 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |P.CE BAR OR WAIT|
00001850: 92 22 3A 49 B2 30 00 78 34 3C 03 A1 41 24 3A 8B |.":I.0.x4<..A$:.|
00001860: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
00001870: B3 32 35 30 A7 38 32 38 00 9C 34 3E 03 54 31 24 |.250.828..4>.T1$|
00001880: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."|
00001890: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 A5 34 40 |":T4$."":I.0..4@|
000018A0: 03 89 33 30 30 00 C1 34 43 03 8F 20 2A 2A 20 53 |..300..4C.. ** S|
000018B0: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *|
000018C0: 2A 00 F6 34 48 03 99 C8 28 55 44 24 2C 32 34 29 |*..4H...(UD$,24)|
000018D0: 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |;".......PRESS S|
000018E0: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT|
000018F0: 49 4E 55 45 92 22 00 0D 35 4C 03 A1 55 49 24 3A |INUE."..5L..UI$:|
00001900: 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 13 35 |.UI$.." ".844..5|
00001910: 4E 03 8E 00 33 35 52 03 8F 20 2A 2A 20 50 41 47 |N...35R.. ** PAG|
00001920: 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 |E DESIGN ROUTINE|
00001930: 20 2A 2A 00 3F 35 54 03 55 50 B2 55 50 AA 31 00 | **.?5T.UP.UP.1.|
00001940: 66 35 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 |f5W..".".(UT$.UP|
00001950: 24 2C 32 31 29 3B C8 28 55 47 24 AA 55 50 24 2C |$,21);.(UG$.UP$,|
00001960: 31 34 29 3B 55 50 00 95 35 5C 03 99 22 20 2D 2D |14);UP..5\.." --|
00001970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001990: 2D 2D 2D 2D 22 00 A1 35 66 03 99 22 13 11 22 3A |----"..5f.."..":|
000019A0: 8E 00 C0 35 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |...5k.. ** PLEAS|
000019B0: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
000019C0: 00 F6 35 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |..5p...(UD$,24);|
000019D0: 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 |" ONE |
000019E0: 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E |MOMENT PLEASE...|
000019F0: 20 20 20 20 20 22 00 FC 35 75 03 8E 00 19 36 84 | "..5u....6.|
00001A00: 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 |.. ** SET UP VAR|
00001A10: 49 41 42 4C 45 53 20 2A 2A 00 50 36 87 03 55 42 |IABLES **.P6..UB|
00001A20: B2 31 30 32 34 3A 55 31 B2 32 32 34 3A 55 32 B2 |.1024:U1.224:U2.|
00001A30: 32 32 35 3A 55 33 B2 32 33 36 3A 55 34 B2 32 33 |225:U3.236:U4.23|
00001A40: 35 3A 55 43 B2 32 32 32 3A 55 55 B2 37 31 36 38 |5:UC.222:UU.7168|
00001A50: 00 5C 36 88 03 55 4D B2 31 30 32 34 00 80 36 89 |.\6..UM.1024..6.|
00001A60: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001A70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001A80: 00 B2 36 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |..6..UP$." |
00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AB0: 20 22 00 FF 36 8B 03 55 54 24 B2 22 20 D7 CF D2 | "..6..UT$." ...|
00001AC0: CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 A0 A0 A0 22 3A |.. ...........":|
00001AD0: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
00001AE0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
00001AF0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
00001B00: 05 37 8C 03 8E 00 1F 37 8E 03 8F 20 2A 2A 20 53 |.7.....7... ** S|
00001B10: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001B20: 35 37 90 03 86 20 41 24 28 37 30 29 3A 86 20 42 |57... A$(70):. B|
00001B30: 24 28 37 30 29 00 3E 37 93 03 8D 39 30 30 00 4F |$(70).>7...900.O|
00001B40: 37 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 |7...800:. TITLE.|
00001B50: 5F 37 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 |_7...300:. MENU.|
00001B60: 7F 37 E8 03 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |.7... ** PROGRAM|
00001B70: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
00001B80: 8B 37 E9 03 99 22 93 22 3B 3A 8C 00 B4 37 E2 04 |.7...".";:...7..|
00001B90: 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 41 50 49 |UT$." WORLD CAPI|
00001BA0: 54 41 4C 53 22 3A 99 22 93 22 3A 8D 38 37 35 3A |TALS":.".":.875:|
00001BB0: 55 50 B2 30 00 C3 37 14 05 81 20 49 B2 30 20 A4 |UP.0..7... I.0 .|
00001BC0: 20 36 30 00 D5 37 1E 05 87 20 41 24 28 49 29 2C | 60..7... A$(I),|
00001BD0: 42 24 28 49 29 00 DD 37 28 05 82 20 49 00 ED 37 |B$(I)..7(.. I..7|
00001BE0: 3C 05 4E B2 30 3A 43 B2 30 3A 57 B2 30 00 00 38 |<.N.0:C.0:W.0..8|
00001BF0: 46 05 81 20 4B 31 B2 31 35 30 20 A4 20 32 35 30 |F.. K1.150 . 250|
00001C00: 00 13 38 50 05 4C B2 28 4B 31 AD 34 29 AC BC 28 |..8P.L.(K1.4)..(|
00001C10: 4B 31 29 00 21 38 5A 05 49 B2 34 39 AC BB 28 4C |K1).!8Z.I.49..(L|
00001C20: 29 00 2C 38 64 05 49 B2 B5 28 49 29 00 34 38 6E |).,8d.I..(I).48n|
00001C30: 05 51 B2 30 00 49 38 73 05 55 47 24 B2 22 51 55 |.Q.0.I8s.UG$."QU|
00001C40: 45 53 54 49 4F 4E 20 23 22 00 61 38 78 05 4E B2 |ESTION #".a8x.N.|
00001C50: 4E AA 31 3A 8B 20 4E B1 31 30 20 A7 20 31 35 36 |N.1:. N.10 . 156|
00001C60: 35 00 6A 38 82 05 8D 38 35 30 00 A6 38 87 05 99 |5.j8...850..8...|
00001C70: 22 11 11 11 11 11 11 11 20 20 57 48 41 54 20 49 |"....... WHAT I|
00001C80: 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F 46 |S THE CAPITAL OF|
00001C90: 20 22 3A 99 22 11 20 20 20 22 3B 41 24 28 49 29 | ":.". ";A$(I)|
00001CA0: 3B 22 3F 20 22 3B 00 B0 38 8C 05 8D 32 30 32 30 |;"? ";..8...2020|
00001CB0: 00 C1 38 91 05 8B 5A 24 B2 22 20 22 A7 31 39 37 |..8...Z$." ".197|
00001CC0: 30 00 D7 38 96 05 8B 20 5A 24 B2 42 24 28 49 29 |0..8... Z$.B$(I)|
00001CD0: 20 A7 20 31 34 37 30 00 EF 38 A0 05 51 B2 51 AA | . 1470..8..Q.Q.|
00001CE0: 31 3A 8B 20 51 B1 B2 32 20 A7 20 31 39 36 30 00 |1:. Q..2 . 1960.|
00001CF0: 1C 39 AA 05 99 22 11 11 20 20 54 52 59 20 41 47 |.9...".. TRY AG|
00001D00: 41 49 4E 2E 2E 2E 2E 22 3A 57 B2 57 AA 31 3A 55 |AIN....":W.W.1:U|
00001D10: 50 B2 55 50 AB 31 3A 8D 32 30 36 30 00 27 39 B4 |P.UP.1:.2060.'9.|
00001D20: 05 89 20 31 34 31 30 00 3F 39 BE 05 52 B2 B5 28 |.. 1410.?9..R..(|
00001D30: 36 AC BB 28 49 29 29 AA 31 3A 43 B2 43 AA 31 00 |6..(I)).1:C.C.1.|
00001D40: 67 39 C8 05 91 20 52 20 89 20 31 35 31 30 2C 31 |g9... R . 1510,1|
00001D50: 35 32 30 2C 31 35 33 30 2C 31 35 34 30 2C 31 35 |520,1530,1540,15|
00001D60: 35 30 2C 31 35 36 30 00 91 39 D2 05 99 20 C7 28 |50,1560..9... .(|
00001D70: 31 38 29 3B 22 20 20 43 4F 52 52 45 43 54 22 3B |18);" CORRECT";|
00001D80: A6 35 29 3B 22 20 20 47 4F 4F 44 20 57 4F 52 4B |.5);" GOOD WORK|
00001D90: 22 00 A1 39 DC 05 8D 32 30 36 30 3A 89 31 36 35 |"..9...2060:.165|
00001DA0: 30 00 C1 39 E6 05 99 22 11 11 20 20 43 4F 52 52 |0..9...".. CORR|
00001DB0: 45 43 54 21 22 3A 8D 20 38 33 35 3A 89 31 36 35 |ECT!":. 835:.165|
00001DC0: 30 00 DE 39 F0 05 99 22 11 11 20 20 52 49 47 48 |0..9...".. RIGH|
00001DD0: 54 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 FD |T!":.835:.1650..|
00001DE0: 39 FA 05 99 22 11 11 20 20 43 4F 52 52 45 43 54 |9...".. CORRECT|
00001DF0: 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 1A 3A |!":.835:.1650..:|
00001E00: 04 06 99 22 11 11 20 20 52 49 47 48 54 21 22 3A |...".. RIGHT!":|
00001E10: 8D 38 33 35 3A 89 31 36 35 30 00 39 3A 0E 06 99 |.835:.1650.9:...|
00001E20: 22 11 11 20 20 43 4F 52 52 45 43 54 21 22 3A 8D |".. CORRECT!":.|
00001E30: 38 33 35 3A 89 31 36 35 30 00 56 3A 18 06 99 22 |835:.1650.V:..."|
00001E40: 11 11 20 20 52 49 47 48 54 21 22 3A 8D 38 33 35 |.. RIGHT!":.835|
00001E50: 3A 89 31 36 35 30 00 9C 3A 1D 06 55 47 24 B2 22 |:.1650..:..UG$."|
00001E60: 52 45 53 55 4C 54 22 3A 55 50 B2 55 50 AB 31 3A |RESULT":UP.UP.1:|
00001E70: 8D 38 35 30 20 20 20 20 20 20 20 53 43 B0 45 20 |.850 SC.E |
00001E80: 49 53 20 22 3B 43 3B 22 20 43 B0 52 45 43 54 20 |IS ";C;" C.RECT |
00001E90: 22 3B 57 3B 22 20 57 52 91 47 2E 22 00 D0 3A 1E |";W;" WR.G."..:.|
00001EA0: 06 99 22 11 11 11 11 20 20 59 4F 55 52 20 53 43 |..".... YOUR SC|
00001EB0: 4F 52 45 20 49 53 20 22 3B 43 3B 22 43 4F 52 52 |ORE IS ";C;"CORR|
00001EC0: 45 43 54 20 22 3B 57 3B 22 57 52 4F 4E 47 2E 22 |ECT ";W;"WRONG."|
00001ED0: 00 EB 3A 1F 06 99 22 11 20 20 59 4F 55 52 20 52 |..:...". YOUR R|
00001EE0: 41 54 49 4E 47 20 49 53 20 22 3B 00 0D 3B 22 06 |ATING IS ";..;".|
00001EF0: 99 B5 28 28 43 AD 28 43 AA 57 29 AC 31 30 30 29 |..((C.(C.W).100)|
00001F00: AC 31 30 AA 2E 35 29 AD 31 30 22 25 22 00 18 3B |.10..5).10"%"..;|
00001F10: 36 06 8D 20 32 30 36 30 00 45 3B 40 06 99 22 11 |6.. 2060.E;@..".|
00001F20: 11 11 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |.. DO YOU WANT |
00001F30: 54 4F 20 43 4F 4E 54 49 4E 55 45 3F 20 28 59 2F |TO CONTINUE? (Y/|
00001F40: 4E 29 20 22 3B 00 50 3B 4A 06 8D 20 32 30 38 30 |N) ";.P;J.. 2080|
00001F50: 00 6A 3B 54 06 8F 20 49 46 43 24 3C 3E 22 4E 22 |.j;T.. IFC$<>"N"|
00001F60: 41 4E 44 43 24 3C 3E 22 59 22 00 7E 3B 5E 06 8B |ANDC$<>"Y".~;^..|
00001F70: 20 43 24 B2 22 4E 22 20 A7 20 32 30 31 30 00 86 | C$."N" . 2010..|
00001F80: 3B 68 06 4E B2 30 00 8F 3B 72 06 82 20 4B 31 00 |;h.N.0..;r.. K1.|
00001F90: B5 3B 7C 06 83 41 46 47 48 41 4E 49 53 54 41 4E |.;|..AFGHANISTAN|
00001FA0: 2C 4B 41 42 55 4C 2C 41 4C 42 41 4E 49 41 2C 54 |,KABUL,ALBANIA,T|
00001FB0: 49 52 41 4E 41 00 E1 3B 86 06 83 41 4C 47 45 52 |IRANA..;...ALGER|
00001FC0: 49 41 2C 41 4C 47 49 45 52 53 2C 41 52 47 45 4E |IA,ALGIERS,ARGEN|
00001FD0: 54 49 4E 41 2C 42 55 45 4E 4F 53 20 41 49 52 45 |TINA,BUENOS AIRE|
00001FE0: 53 00 08 3C 90 06 83 41 55 53 54 52 41 4C 49 41 |S..<...AUSTRALIA|
00001FF0: 2C 43 41 4E 42 45 52 52 41 2C 41 55 53 54 52 49 |,CANBERRA,AUSTRI|
00002000: 41 2C 56 49 45 4E 4E 41 00 2F 3C 9A 06 83 42 41 |A,VIENNA./<...BA|
00002010: 4E 47 4C 41 44 45 53 48 2C 44 41 43 43 41 2C 42 |NGLADESH,DACCA,B|
00002020: 45 4C 47 49 55 4D 2C 42 52 55 53 53 45 4C 53 00 |ELGIUM,BRUSSELS.|
00002030: 59 3C A4 06 83 42 4F 4C 49 56 49 41 2C 53 55 43 |Y<...BOLIVIA,SUC|
00002040: 52 45 20 4C 41 20 50 41 5A 2C 42 52 41 5A 49 4C |RE LA PAZ,BRAZIL|
00002050: 2C 42 52 41 53 49 4C 49 41 00 7B 3C AE 06 83 42 |,BRASILIA.{<...B|
00002060: 55 52 4D 41 2C 52 41 4E 47 4F 4F 4E 2C 43 48 41 |URMA,RANGOON,CHA|
00002070: 44 2C 4E 27 44 4A 41 4D 45 4E 41 00 9C 3C B8 06 |D,N'DJAMENA..<..|
00002080: 83 43 48 49 4C 45 2C 53 41 4E 54 49 41 47 4F 2C |.CHILE,SANTIAGO,|
00002090: 43 48 49 4E 41 2C 50 45 4B 49 4E 47 00 BF 3C C2 |CHINA,PEKING..<.|
000020A0: 06 83 54 41 49 57 41 4E 2C 54 41 49 50 45 49 2C |..TAIWAN,TAIPEI,|
000020B0: 43 4F 4C 4F 4D 42 49 41 2C 42 4F 47 4F 54 41 00 |COLOMBIA,BOGOTA.|
000020C0: EA 3C CC 06 83 43 4F 4E 47 4F 2C 42 52 41 5A 5A |.<...CONGO,BRAZZ|
000020D0: 41 56 49 4C 4C 45 2C 43 4F 53 54 41 20 52 49 43 |AVILLE,COSTA RIC|
000020E0: 41 2C 53 41 4E 20 4A 4F 53 45 00 11 3D D6 06 83 |A,SAN JOSE..=...|
000020F0: 43 55 42 41 2C 48 41 56 41 4E 41 2C 43 5A 45 43 |CUBA,HAVANA,CZEC|
00002100: 48 4F 53 4C 4F 56 41 4B 49 41 2C 50 52 41 47 55 |HOSLOVAKIA,PRAGU|
00002110: 45 00 37 3D E0 06 83 44 45 4E 4D 41 52 4B 2C 43 |E.7=...DENMARK,C|
00002120: 4F 50 45 4E 48 41 47 45 4E 2C 45 43 55 41 44 4F |OPENHAGEN,ECUADO|
00002130: 52 2C 51 55 49 54 4F 00 5E 3D EA 06 83 45 47 59 |R,QUITO.^=...EGY|
00002140: 50 54 2C 43 41 49 52 4F 2C 45 54 48 49 4F 50 49 |PT,CAIRO,ETHIOPI|
00002150: 41 2C 41 44 44 49 53 20 41 42 42 41 42 41 00 81 |A,ADDIS ABBABA..|
00002160: 3D F4 06 83 46 49 4E 4C 41 4E 44 2C 48 45 4C 53 |=...FINLAND,HELS|
00002170: 49 4E 4B 49 2C 46 52 41 4E 43 45 2C 50 41 52 49 |INKI,FRANCE,PARI|
00002180: 53 00 A6 3D FE 06 83 57 45 53 54 20 47 45 52 4D |S..=...WEST GERM|
00002190: 41 4E 59 2C 42 4F 4E 4E 2C 47 52 45 45 43 45 2C |ANY,BONN,GREECE,|
000021A0: 41 54 48 45 4E 53 00 CE 3D 08 07 83 48 55 4E 47 |ATHENS..=...HUNG|
000021B0: 41 52 59 2C 42 55 44 41 50 45 53 54 2C 49 43 45 |ARY,BUDAPEST,ICE|
000021C0: 4C 41 4E 44 2C 52 45 59 4B 4A 41 56 49 4B 00 F5 |LAND,REYKJAVIK..|
000021D0: 3D 12 07 83 49 4E 44 49 41 2C 4E 45 57 20 44 45 |=...INDIA,NEW DE|
000021E0: 4C 48 49 2C 49 4E 44 4F 4E 45 53 49 41 2C 4A 41 |LHI,INDONESIA,JA|
000021F0: 4B 41 52 54 41 00 16 3E 1C 07 83 49 52 41 4E 2C |KARTA..>...IRAN,|
00002200: 54 45 48 45 52 41 4E 2C 49 52 45 4C 41 4E 44 2C |TEHERAN,IRELAND,|
00002210: 44 55 42 4C 49 4E 00 36 3E 26 07 83 49 53 52 41 |DUBLIN.6>&..ISRA|
00002220: 45 4C 2C 54 45 4C 20 41 56 49 56 2C 49 54 41 4C |EL,TEL AVIV,ITAL|
00002230: 59 2C 52 4F 4D 45 00 55 3E 30 07 83 4A 41 50 41 |Y,ROME.U>0..JAPA|
00002240: 4E 2C 54 4F 4B 59 4F 2C 4B 45 4E 59 41 2C 4E 41 |N,TOKYO,KENYA,NA|
00002250: 49 52 4F 42 49 00 82 3E 3A 07 83 4E 4F 52 54 48 |IROBI..>:..NORTH|
00002260: 20 4B 4F 52 45 41 2C 50 59 4F 4E 47 59 41 4E 47 | KOREA,PYONGYANG|
00002270: 2C 53 4F 55 54 48 20 4B 4F 52 45 41 2C 53 45 4F |,SOUTH KOREA,SEO|
00002280: 55 4C 00 B1 3E 44 07 83 4C 55 58 45 4D 42 55 52 |UL..>D..LUXEMBUR|
00002290: 47 2C 4C 55 58 45 4D 42 55 52 47 2C 4D 41 4C 41 |G,LUXEMBURG,MALA|
000022A0: 59 53 49 41 2C 4B 55 41 4C 41 20 4C 55 4D 50 55 |YSIA,KUALA LUMPU|
000022B0: 52 00 D8 3E 4E 07 83 4D 41 4C 54 41 2C 56 41 4C |R..>N..MALTA,VAL|
000022C0: 4C 45 54 54 41 2C 4D 45 58 49 43 4F 2C 4D 45 58 |LETTA,MEXICO,MEX|
000022D0: 49 43 4F 20 43 49 54 59 00 0A 3F 58 07 83 4E 45 |ICO CITY..?X..NE|
000022E0: 54 48 45 52 4C 41 4E 44 53 2C 41 4D 53 54 45 52 |THERLANDS,AMSTER|
000022F0: 44 41 4D 2C 4E 45 57 20 5A 45 41 4C 41 4E 44 2C |DAM,NEW ZEALAND,|
00002300: 57 45 4C 4C 49 4E 47 54 4F 4E 00 3B 3F 62 07 83 |WELLINGTON.;?b..|
00002310: 4E 49 47 45 52 2C 4E 49 41 4D 45 59 2C 4E 4F 52 |NIGER,NIAMEY,NOR|
00002320: 57 41 59 2C 4F 53 4C 4F 2C 50 41 4B 49 53 54 41 |WAY,OSLO,PAKISTA|
00002330: 4E 2C 49 53 4C 41 4D 41 42 41 44 00 70 3F 6C 07 |N,ISLAMABAD.p?l.|
00002340: 83 50 41 4E 41 4D 41 2C 50 41 4E 41 4D 41 2C 50 |.PANAMA,PANAMA,P|
00002350: 45 52 55 2C 4C 49 4D 41 2C 50 48 49 4C 49 50 50 |ERU,LIMA,PHILIPP|
00002360: 49 4E 45 53 2C 51 55 45 5A 4F 4E 20 43 49 54 59 |INES,QUEZON CITY|
00002370: 00 93 3F 76 07 83 50 4F 4C 41 4E 44 2C 57 41 52 |..?v..POLAND,WAR|
00002380: 53 41 57 2C 50 4F 52 54 55 47 41 4C 2C 4C 49 53 |SAW,PORTUGAL,LIS|
00002390: 42 4F 4E 00 B9 3F 80 07 83 53 49 4E 47 41 50 4F |BON..?...SINGAPO|
000023A0: 52 45 2C 53 49 4E 47 41 50 4F 52 45 2C 53 50 41 |RE,SINGAPORE,SPA|
000023B0: 49 4E 2C 4D 41 44 52 49 44 00 DD 3F 8A 07 83 53 |IN,MADRID..?...S|
000023C0: 57 49 54 5A 45 52 4C 41 4E 44 2C 42 45 52 4E 2C |WITZERLAND,BERN,|
000023D0: 52 55 53 53 49 41 2C 4D 4F 53 43 4F 57 00 10 40 |RUSSIA,MOSCOW..@|
000023E0: 94 07 83 47 52 45 41 54 20 42 52 49 54 41 49 4E |...GREAT BRITAIN|
000023F0: 2C 4C 4F 4E 44 4F 4E 2C 55 4E 49 54 45 44 20 53 |,LONDON,UNITED S|
00002400: 54 41 54 45 53 2C 57 41 53 48 49 4E 47 54 4F 4E |TATES,WASHINGTON|
00002410: 00 3B 40 9E 07 83 59 55 47 4F 53 4C 41 56 49 41 |.;@...YUGOSLAVIA|
00002420: 2C 42 45 4C 47 52 41 44 45 2C 56 45 4E 45 5A 55 |,BELGRADE,VENEZU|
00002430: 45 4C 41 2C 43 41 52 41 43 41 53 00 46 40 A8 07 |ELA,CARACAS.F@..|
00002440: 99 22 11 11 11 22 00 6D 40 B2 07 99 22 20 20 22 |."...".m@..." "|
00002450: 3B C7 28 31 38 29 3B 22 54 48 45 20 41 4E 53 57 |;.(18);"THE ANSW|
00002460: 45 52 20 49 53 20 22 3B 42 24 28 49 29 00 76 40 |ER IS ";B$(I).v@|
00002470: BC 07 8D 38 33 35 00 80 40 C1 07 57 B2 57 AA 31 |...835..@..W.W.1|
00002480: 00 89 40 C6 07 82 20 4B 31 00 94 40 D0 07 89 20 |..@... K1..@... |
00002490: 31 34 31 30 00 A2 40 DA 07 99 22 93 22 3A 89 33 |1410..@...".":.3|
000024A0: 30 30 00 B6 40 E4 07 8F 20 49 4E 50 55 54 20 52 |00..@... INPUT R|
000024B0: 4F 55 54 49 4E 45 00 D2 40 EE 07 55 53 24 B2 22 |OUTINE..@..US$."|
000024C0: 22 3A 55 4C B2 33 30 3A 8D 33 35 3A 5A 24 B2 55 |":UL.30:.35:Z$.U|
000024D0: 52 24 00 EC 40 F8 07 8B 5A 24 B2 22 A0 22 A7 99 |R$..@...Z$."."..|
000024E0: 22 91 91 22 3B 3A 20 89 32 30 33 30 00 F2 40 02 |"..";: .2030..@.|
000024F0: 08 8E 00 09 41 0C 08 8F 20 50 41 55 53 45 20 53 |....A... PAUSE S|
00002500: 55 42 52 4F 55 54 49 4E 45 00 1B 41 16 08 81 58 |UBROUTINE..A...X|
00002510: B2 31 A4 31 30 30 30 3A 82 3A 8E 00 39 41 20 08 |.1.1000:.:..9A .|
00002520: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 20 |UL.1:US$."YN":. |
00002530: 33 35 3A 43 24 B2 55 52 24 00 3F 41 2A 08 8E 00 |35:C$.UR$.?A*...|
00002540: 78 41 34 08 A1 41 41 24 3A 99 CA 28 22 20 9D 2A |xA4..AA$:..(" .*|
00002550: 9D 22 2C 28 4B AA 31 29 AC 32 AB 31 2C 32 29 3B |.",(K.1).2.1,2);|
00002560: 3A 4B B2 AB 31 AC 28 4B B2 30 29 3A 8B 41 41 24 |:K..1.(K.0):.AA$|
00002570: B2 22 22 A7 32 31 30 30 00 7E 41 3E 08 8E 00 8D |."".2100.~A>....|
00002580: 41 C4 09 8F 20 54 49 54 4C 45 20 49 49 00 9A 41 |A... TITLE II..A|
00002590: C7 09 81 4D 55 B2 31 A4 35 30 00 AF 41 C8 09 53 |...MU.1.50..A..S|
000025A0: 4F B2 B5 28 BB 28 31 29 AC 32 35 35 29 AA 31 00 |O..(.(1).255).1.|
000025B0: B7 41 CA 09 82 4D 55 00 BD 41 CD 09 8E 00 00 00 |.A...MU..A......|
.......910.+.... **GENERAL INPUT ROUTINE
**.1...:.7...:.S.#.. +++ INPUT SECTION
+++.E.(.UR$."":UI$."".U.*..UL.0.UL.80...
-.." ..";:.UC,0...2..UI$:.UI$."".50.F.7
..UI$.G(13).C(UR$)..1..UC,1:." .";:.85.Y
.<..UI$.G(20).105...>.. C(UR$)..UL.50...
A..120:. CHECK FOR VALID CHARACTER.".F.U
R$.UR$.UI$.,.K..UI$;.4.P..50.Y.U.. +++ C
HECK FOR HELP REQUEST +++...Z..UR$.UX$.1
95:. EXIT TO HELP ROUTINE..._..UF.1..240
...D.UF.0:.:....F.. ++ CHECK DELETE ++.G
.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).1).
..S..". ..";:.50...X.. ++ CHECK FOR VAL
ID CHARACTERS ++.*.}..C(US$).0.150.;....
US.1.C(US$).R....UI$.J(US$,US,1)...X....
.E...UI$."":....... ** STANDARD INPUT **
......F(UI$).46........UI$.G(32)..... ..
F(UI$).48.F(UI$).57.170.E..........F(UI$
).65.F(UI$).90.180............F(UI$).193
.F(UI$).218.UI$."":../....B(UT).UU%.UI$.
G(F(UI$).128):..5.....B...UI$."":..G.C.U
F.1:. +++ HELP ROUTINE EXIT +++.P.E..250
.Y.H..245...M..UQ.UB.(U2%.256.U1%.U3%.2)
...R.UQ%(UQ.UB).B(UQ):.:."."...W.UZ.1.F.
X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL
.UK.. ..UT$.UL$:.UQ.UB.(U2%.256.U1%.U3%.
3).' ...UQ,UQ%(UQ.UB):..3 ...U1,U1%.? ..
.U2,U2%.K ...U4,U4%.Y ...U3,U3%.1.A ...3
5.. ..UD%.((U2%.256.U1%.U3%).UB).40:.H(U
D$,UD%.1):..N ...H(UD$,24);"
. HELP COMING . ":... ..U1%.B
(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)..!..U
J$.US$:UJ.UL.,!..UJ$.US$:UK$.UG$:UJ.UP:U
K.UL.2!....C!,.. ** MENU **.I!-.:.X!..."
."G(142).^!/.:.{!1..". ME
NU"..!6.." -----------------------------
---------".X!;..".. 1. BEGIN WOR
LD CAPITAL QUIZ".."@..".. 2. STU
DENT INSTRUCTIONS".,"E..".. 3. T
EACHER INSTRUCTIONS".Z"J..".. 4.
MODIFICATION OF PROGRRAM".V"O.."..
5. QUIT..".."T.." ------------------
--------------------".P"Y..".. PRE
SS A NUMBER KEY (1-5) ";.."^.UL.1:US$."1
2345":.35:. INPUT ROUTINE..#`.US$."":UT$
." WORLD CAPITALS".;#C..E(UR$).1000,400,
500,600,396.D#H..300.K#... ** RE-ENABLE
STOP KEY AND END **.Q#....}#..."..":...#
...875:...#... ** STUDENT INSTRUCTIONS *
*..#..."."G(14).X#..UP.0:UG$."STUDENT IN
ST":.850..$..: .".... REMEMBER TO HI
T <RETURN> AFTER".5$..: ." TYPING YOU
R ANSWER. THIS TELLS".B$ .: ." THE CO
MPUTER TO ACCEPT WHAT YOU".|$..: ." H
AVE TYPED.."..$..: ." TYPE <H> AT AN
Y TIME TO RETURN".V$..: ." TO THE MEN
U FOR HELP. YOU WILL"..%..: ." BE RE
TURNED TO THE PLACE IN THE"..%..: ."
PROGRAM WHERE YOU LEFT OFF AS".\%..: ."
SOON AS THE OPTION FROM THE MENU"..%.
.: ." IS COMPLETE.":.835:.850..%...".
. THIS PROGRAM IS DESIGNED TO TEST YOUR
.".Y%..." KNOWLEDGE OF WORLD CAPITALS..
"..&..." THE COMPUTER WILL RANDOMLY SEL
ECT A.".I&..." COUNTRY AND YOU WILL HAV
E TO GIVE .":." IT'S CAPITAL...".]&..."
.EXAMPLE.."..&..." WHAT IS THE CAPITA
L OF CANADA?."..&..." OTTAWA":.835:UP.2
:.850.W&..."..... YOU WILL BE GIVEN T
WO CHANCES TO."..'..." GET THE RIGHT AN
SWER. IF YOU ARE WRONG".5'A.." TWICE TH
E COMPUTER WILL GIVE YOU THE".^'B..". C
ORRECT ANSWER.":.835:UP.3:.850..'C.."...
.. AFTER EVERY 10 QUESTIONS, A SUMMARY.
"..'D.." OF YOUR RESULTS WILL BE GIVEN
AND ."..'E.." YOU WILL HAVE THE OPTION
TO CONTINUE":.". THE QUIZ...."..(F.."
.GOOD LUCK.!!!". (...835.:(..UT$." WORLD
CAPITALS".@(....A(... ** TEACHER INSTRU
CTIONS **.O(..."."G(14)..(..UP.0:UG$."TE
ACHER INST.":.850..(...".. TO THE B
EST OF OUR KNOWLEDGE,."..(..." THIS PR
OGRAM IS IN THE PUBLIC."..(..." DOMAIN
...)..UP.1:. 835:. 850:.?)..." ..PRO
GRAM NAME: WORLD CAPITAL QUIZ.".G)..."
WRITTEN BY : JAMES DOWNER."..)..."
UPGRADED BY : W. ADAMS."..)..." .
THIS PROGRAM WILL RUN ON A...Z)..."
COMMODORE 128 COMPUTER..)...835:.850
..*...".. THIS PROGRAM IS DESIGNED TO
TEST.".\*..." THE STUDENTS ON THEIR KN
OWLEDGE OF":.". WORLD CAPITALS...."..*.
.." 'WORLD CAPITAL QUIZ' IS DESIGNED
."..*..." FOR STUDENTS IN THE JUNIOR TO
INTER-".X*...". MEDIATE GRADE LEVELS."
..*...835:UP.2:.850..+..."..... AS TH
E WORLD'S BORDERS AND .".E+..." LEADERS
CHANGE, SO THIS PROGRAM'S .".T+..." LI
ST OF COUNTRIES AND THEIR CAPITALS."..+.
.." MUST BE CHANGED. TO LEARN HOW THIS
.".N+..." CAN BE DONE, SEE THE MODIFICA
TION."..+..." SECTION OF THE MENU(#4)."
..+D..835..,I.UT$." WORLD CAPITALS"..,W.
..?,X.. ** PROGRAM MODIFICATION INST **.
M,Y.."."G(14).M,].UP.0:UG$."PROGRAM MOD"
:.850..,^.."...... THIS SECTION IS D
ESIGNED TO SHOW.".K,_.." THE USER THAT
THE DATA IN THIS."..,`.." PROGRAM CAN
BE CHANGED OR ADDED TO .".(-A.." QUIT
E EASILY. ALL THE USER HAS TO.".[-B.."
DO IS FOLLOW THESE STEPS.":.835:UP.2:.
850.|-C..".. .CHANGING THE DATA..."..-D
.." FIND THE DATA INSTRUCTION NUMBER."
.V-E.." WHERE THE CHANGE IS NECESSARY,
AND."...F.." AND MAKE THE CORRECTION.
.":." .EXAMPLE.."./.G.." 1830 DATA IS
RAEL,JERUSALEM".H.H.." .CHANGE TO...."
.{.I.." 1830 DATA ISRAEL,TEL AVIV":.83
5:UP.3:.850...J.." ...ADDING TO THE DAT
A..".L.K.." WHEN ADDING NEW DATA TO TH
E PROGRAM,."...L.." USE THE PROGRAM IN
STRUCTION NUMBERS."../M.." FROM 3000 O
N.".)/N..".. .EXAMPLE..".L/O.." 3001
DATA CANADA,OTTAWA"._/P..835:UP.4:.850.
./Q..".. .HOW TO ENTER THE DATA..."../R
.." 1)FIRST, ENTER THE INSTRUCTION NO.
,.".Z/S.." FOLLOWED BY THE WORD DATA.
."..0T.." 2)THEN THE COUNTRY, FOLLOWED
BY A .".80U.." COMMA (,) AND FINALLY
IT'S CAPITAL..".L0V.." .EXAMPLE..".}0W
.." 3001 DATA CANADA,OTTAWA":.835:UP.5
:.850..0X..".. .REMEMBER..".C0Y.." FO
R EVERY NEW COUNTRY AND CAPITAL, ."..0Z.
." ADD 1 TO 60 IN INSTRUCTION 1300..".
.1{.." .EXAMPLE.."..1|.." ONE NEW ADD
ITION.".M1}.." 1300 FOR I=0 TO 60+1":.
835:UP.6:.850.D1~..".. .REMEMBER.."..1
.." IF YOU ADD MORE THAN 10 CONTRIES A
ND.".D1..." CAPITALS TO THE PROGRAM, R
EDIMENSION."..1..." THE ARRAYS IN 1290
.."..1..." .EXAMPLE.."..2..." 1290 DI
M A$(70),B$(70)".12..." .CHANGE TO....
".T2..." 1290 DIM A$(100),B$(100)".]2.
..835.W2..UT$." WORLD CAPITALS".}2.....2
.. ** T I T L E P A G E **..2".."....
";:.0,16:.4,7.K2$..I.1.38:."...";:...2&.
.I.1.22:.".....";:...2(..I.1.37:."....."
;:...3*..I.1.22:.".....";:..83,.."......
..................... ..Z3...".........
.......... . . ...{30.."...............
.... . .....32.."....................
..A34.."..............C O M M O D O R E.
...36.."...............EDUCATIONAL....48
.."................SOFTWARE..4:.. ** COM
MODORE LOGO **.V4;..H(UD$,24);".........
.PRESS SP.CE BAR OR WAIT.":I.0.X4<..A$:.
A$.." ".I.I.1:.I.250.828..4>.T1$."":T2$.
"":T3$."":T4$."":I.0..4@..300.A4C.. ** S
PACE BAR PRESS **..4H..H(UD$,24);"......
.PRESS SPACE BAR TO CONTINUE."..5L..UI$:
.UI$.." ".844..5N...35R.. ** PAGE DESIGN
ROUTINE **.?5T.UP.UP.1.F5W.."."H(UT$.UP
$,21);H(UG$.UP$,14);UP..5\.." ----------
----------------------------"..5F.."..":
...5K.. ** PLEASE WAIT REMARK **..5P..H(
UD$,24);" ONE MOMENT PLEASE...
"..5U....6... ** SET UP VARIABLES *
*.P6..UB.1024:U1.224:U2.225:U3.236:U4.23
5:UC.222:UU.7168.\6..UM.1024..6..UD$."..
......................."..6..UP$."
"..6..U
T$." WORLD CAPITALS ":. PLACE PROGRAM
TITLE HERE !!!!!!!!!!!!!!!!!***..7.....7
... ** SET VARIABLES **.57... A$(70):. B
$(70).>7...900.O7J..800:. TITLE._7T..300
:. MENU.7... ** PROGRAM STARTS HERE **.
.7...".";:...7..UT$." WORLD CAPITALS":."
.":.875:UP.0.C7... I.0 . 60.U7... A$(I),
B$(I)..7(.. I..7<.N.0:C.0:W.0..8F.. K1.1
50 . 250..8P.L.(K1.4)..(K1).!8Z.I.49..(L
).,8D.I..(I).48N.Q.0.I8S.UG$."QUESTION #
".A8X.N.N.1:. N.10 . 1565.J8...850..8...
"....... WHAT IS THE CAPITAL OF ":.".
";A$(I);"? ";..8...2020.A8...Z$." ".197
0.W8... Z$.B$(I) . 1470..8 .Q.Q.1:. Q..2
. 1960..9...".. TRY AGAIN....":W.W.1:U
P.UP.1:.2060.'9... 1410.?9..R..(6..(I)).
1:C.C.1.G9H.. R . 1510,1520,1530,1540,15
50,1560..9R.. G(18);" CORRECT";.5);" G
OOD WORK"..9...2060:.1650.A9...".. CORR
ECT!":. 835:.1650..9...".. RIGHT!":.835
:.1650..9...".. CORRECT!":.835:.1650..:
...".. RIGHT!":.835:.1650.9:...".. COR
RECT!":.835:.1650.V:...".. RIGHT!":.835
:.1650..:..UG$."RESULT":UP.UP.1:.850
SC.E IS ";C;" C.RECT ";W;" WR.G.".P:.
..".... YOUR SCORE IS ";C;"CORRECT ";W;
"WRONG."..:...". YOUR RATING IS ";..;".
..((C.(C.W).100).10..5).10"%"..;6.. 2060
.E;@.."... DO YOU WANT TO CONTINUE? (Y/
N) ";.P;J.. 2080.J;T.. IFC$<>"N"ANDC$<>"
Y".~;^.. C$."N" . 2010..;H.N.0..;R.. K1.
.;|..AFGHANISTAN,KABUL,ALBANIA,TIRANA..;
...ALGERIA,ALGIERS,ARGENTINA,BUENOS AIRE
S..<...AUSTRALIA,CANBERRA,AUSTRIA,VIENNA
./<...BANGLADESH,DACCA,BELGIUM,BRUSSELS.
Y<...BOLIVIA,SUCRE LA PAZ,BRAZIL,BRASILI
A.{<...BURMA,RANGOON,CHAD,N'DJAMENA..<..
.CHILE,SANTIAGO,CHINA,PEKING..<B..TAIWAN
,TAIPEI,COLOMBIA,BOGOTA..<L..CONGO,BRAZZ
AVILLE,COSTA RICA,SAN JOSE..=V..CUBA,HAV
ANA,CZECHOSLOVAKIA,PRAGUE.7=...DENMARK,C
OPENHAGEN,ECUADOR,QUITO.^=...EGYPT,CAIRO
,ETHIOPIA,ADDIS ABBABA..=...FINLAND,HELS
INKI,FRANCE,PARIS..=...WEST GERMANY,BONN
,GREECE,ATHENS.N=...HUNGARY,BUDAPEST,ICE
LAND,REYKJAVIK..=...INDIA,NEW DELHI,INDO
NESIA,JAKARTA..>...IRAN,TEHERAN,IRELAND,
DUBLIN.6>&..ISRAEL,TEL AVIV,ITALY,ROME.U
>0..JAPAN,TOKYO,KENYA,NAIROBI..>:..NORTH
KOREA,PYONGYANG,SOUTH KOREA,SEOUL..>D..
LUXEMBURG,LUXEMBURG,MALAYSIA,KUALA LUMPU
R.X>N..MALTA,VALLETTA,MEXICO,MEXICO CITY
..?X..NETHERLANDS,AMSTERDAM,NEW ZEALAND,
WELLINGTON.;?B..NIGER,NIAMEY,NORWAY,OSLO
,PAKISTAN,ISLAMABAD.P?L..PANAMA,PANAMA,P
ERU,LIMA,PHILIPPINES,QUEZON CITY..?V..PO
LAND,WARSAW,PORTUGAL,LISBON..?...SINGAPO
RE,SINGAPORE,SPAIN,MADRID..?...SWITZERLA
ND,BERN,RUSSIA,MOSCOW..@...GREAT BRITAIN
,LONDON,UNITED STATES,WASHINGTON.;@...YU
GOSLAVIA,BELGRADE,VENEZUELA,CARACAS.F@..
."...".M@..." ";G(18);"THE ANSWER IS ";
B$(I).V@...835..@A.W.W.1..@F.. K1..@P..
1410..@Z..".":.300..@... INPUT ROUTINE.R
@..US$."":UL.30:.35:Z$.UR$..@...Z$." "..
"..";: .2030..@.....A... PAUSE SUBROUTIN
E..A...X.1.1000:.:..9A .UL.1:US$."YN":.
35:C$.UR$.?A*...XA4..AA$:.J(" .*.",(K.1)
.2.1,2);:K..1.(K.0):.AA$."".2100.~A>....
AD.. TITLE II..AG..MU.1.50..AH.SO..(.(1)
.255).1..AJ..MU..AM.....
> CLICK IMAGE PREVIEW FOR FULL MODAL