WORLD CAPTALS.C3
FILE INFORMATION
FILENAME(S): WORLD CAPTALS.C3
FILE TYPE(S): PRG
FILE SIZE: 11.6K
FIRST SEEN: 2025-11-02 16:39:39
APPEARS ON: 1 disk(s)
FILE HASH
5cb0a11204df7426a85e0c92fff7f7c70cfaef93b20f97e761e0162754d7d89c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 012A | WORLD CAPTALS.C3 | PRG | Treasure Chest - Plattfuss | 19 | 17 | 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 AB 10 20 36 FF E3 FF 43 F2 EE 20 2F DF F3 FF |... 6...C.. /...|
00000050: 20 27 D0 E3 FF FF 40 FF FF FF 33 00 43 FF FF FF | '....@...3.C...|
00000060: FF FF FF FF FF FF FF FF FF FF 22 FF 30 FF E3 FF |..........".0...|
00000070: 07 07 07 00 FF 2E FF FF FF 33 10 FF FF FF FF FF |.........3......|
00000080: FF FF FF 07 00 FF F4 FF F0 FF 31 0F 0F 0F 0F 0D |..........1.....|
00000090: 0F 0B 00 E0 D0 EF 00 DA FF FF FF EE D0 FF D0 EE |................|
000000A0: E0 D2 D0 FF 0F 0F 00 FF A2 FF F0 FF 31 0F 0F 00 |............1...|
000000B0: D4 FF D0 FF FF FF FF 00 D2 FF E0 EE ED FF FF D0 |................|
000000C0: EE FF D2 D0 FF 0F 0F 00 FF FF FF F0 FF FF FF A0 |................|
000000D0: FF FF FF 00 FF FF FF FF FF 31 0F 07 07 07 00 D2 |.........1......|
000000E0: D0 FF EE ED 00 FF FF F0 E0 D2 D0 DD 0F 07 07 06 |................|
000000F0: FF F0 F3 02 FF EE FF 0D 70 00 80 00 EE D2 24 B2 |........p.....$.|
00000100: 22 22 00 12 09 2A 00 8B 55 4C B2 30 A7 55 4C B2 |""...*..UL.0.UL.|
00000110: 38 30 00 25 09 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.%.-.." ..";:|
00000120: 97 55 43 2C 30 00 39 09 32 00 A1 55 49 24 3A 8B |.UC,0.9.2..UI$:.|
00000130: 55 49 24 B2 22 22 A7 35 30 00 63 09 37 00 8B 55 |UI$."".50.c.7..U|
00000140: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).|
00000150: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:|
00000160: 89 38 35 00 76 09 3C 00 8B 55 49 24 B2 C7 28 32 |.85.v.<..UI$..(2|
00000170: 30 29 A7 31 30 35 00 8A 09 3E 00 8B 20 C3 28 55 |0).105...>.. .(U|
00000180: 52 24 29 B2 B1 55 4C A7 35 30 00 AF 09 41 00 8D |R$)..UL.50...A..|
00000190: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR |
000001A0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.|
000001B0: BF 09 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.|
000001C0: C9 09 4B 00 99 55 49 24 3B 00 D1 09 50 00 89 35 |..K..UI$;...P..5|
000001D0: 30 00 F6 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC|
000001E0: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE|
000001F0: 53 54 20 2B 2B 2B 00 1E 0A 5A 00 8B 55 52 24 B2 |ST +++...Z..UR$.|
00000200: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T|
00000210: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 2D |O HELP ROUTINE.-|
00000220: 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 3A 0A |._..UF.1..240.:.|
00000230: 64 00 55 46 B2 30 3A 99 3A 8E 00 53 0A 66 00 8F |d.UF.0:.:..S.f..|
00000240: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE|
00000250: 20 2B 2B 00 64 0A 69 00 8B C3 28 55 52 24 29 B3 | ++.d.i...(UR$).|
00000260: 31 A7 35 30 00 7C 0A 6E 00 55 52 24 B2 C8 28 55 |1.50.|.n.UR$..(U|
00000270: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 8E 0A 73 |R$,.(UR$).1)...s|
00000280: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B5 |..". ..";:.50..|
00000290: 0A 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO|
000002A0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
000002B0: 52 53 20 2B 2B 00 C7 0A 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$|
000002C0: 29 B2 30 A7 31 35 30 00 D8 0A 82 00 81 55 53 B2 |).0.150......US.|
000002D0: 31 A4 C3 28 55 53 24 29 00 EF 0A 87 00 8B 55 49 |1..(US$)......UI|
000002E0: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...|
000002F0: F5 0A 8C 00 82 00 02 0B 91 00 55 49 24 B2 22 22 |..........UI$.""|
00000300: 3A 8E 00 1D 0B 96 00 8F 20 2A 2A 20 53 54 41 4E |:....... ** STAN|
00000310: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 2E 0B |DARD INPUT **...|
00000320: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 3F |....(UI$).46...?|
00000330: 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000340: 5C 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |\.....(UI$).48..|
00000350: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 62 0B A5 |(UI$).57.170.b..|
00000360: 00 8E 00 7F 0B AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
00000370: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
00000380: 85 0B AF 00 8E 00 A9 0B B4 00 8B C6 28 55 49 24 |............(UI$|
00000390: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218|
000003A0: A7 55 49 24 B2 22 22 3A 8E 00 CC 0B B9 00 8B C2 |.UI$."":........|
000003B0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.|
000003C0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 D2 0B BB |(UI$).128):.....|
000003D0: 00 8E 00 DF 0B BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
000003E0: 04 0C C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |....UF.1:. +++ H|
000003F0: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT|
00000400: 20 2B 2B 2B 00 0D 0C C5 00 8D 32 35 30 00 16 0C | +++......250...|
00000410: C8 00 8D 32 34 35 00 35 0C CD 00 81 55 51 B2 55 |...245.5....UQ.U|
00000420: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
00000430: 33 25 AB 32 29 00 51 0C D2 00 55 51 25 28 55 51 |3%.2).Q...UQ%(UQ|
00000440: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000450: 22 00 64 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".d...UZ.1:UV%..|
00000460: 28 55 54 29 00 6D 0C D8 00 89 33 30 30 00 92 0C |(UT).m....300...|
00000470: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
00000480: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
00000490: 55 4B 00 C9 0C DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)|
000004A0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."|
000004B0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328|
000004C0: 30 2C 31 34 3A 89 32 32 30 00 D3 0C DB 00 99 22 |0,14:.220......"|
000004D0: 93 22 3B 00 02 0D DC 00 55 54 24 B2 55 4C 24 3A |.";.....UT$.UL$:|
000004E0: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
000004F0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000500: 33 29 00 17 0D E1 00 97 55 51 2C 55 51 25 28 55 |3)......UQ,UQ%(U|
00000510: 51 AB 55 42 29 3A 82 00 23 0D E6 00 97 55 31 2C |Q.UB):..#....U1,|
00000520: 55 31 25 00 2F 0D E8 00 97 55 32 2C 55 32 25 00 |U1%./....U2,U2%.|
00000530: 3B 0D E9 00 97 55 34 2C 55 34 25 00 49 0D EA 00 |;....U4,U4%.I...|
00000540: 97 55 33 2C 55 33 25 AB 31 00 51 0D EB 00 89 33 |.U3,U3%.1.Q....3|
00000550: 35 00 83 0D F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.|
00000560: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000570: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000580: 29 3A 8E 00 BE 0D F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
00000590: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
000005B0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 EA | COMING . ":...|
000005C0: 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
000005D0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000005E0: 3A 55 34 25 B2 C2 28 55 34 29 00 FC 0D FB 00 55 |:U4%..(U4).....U|
000005F0: 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 1C 0E FC |J$.US$:UJ.UL....|
00000600: 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 |.UJ$.US$:UK$.UG$|
00000610: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 22 0E FF |:UJ.UP:UK.UL."..|
00000620: 00 8E 00 33 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...3.,.. ** MENU|
00000630: 20 2A 2A 00 39 0E 2D 01 3A 00 68 0E 2E 01 99 22 | **.9.-.:.h...."|
00000640: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000650: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000660: 97 35 33 32 38 30 2C 38 00 6E 0E 2F 01 3A 00 8B |.53280,8.n./.:..|
00000670: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000680: 20 20 20 20 20 20 4D 45 4E 55 22 00 BA 0E 36 01 | MENU"...6.|
00000690: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E8 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006D0: 45 47 49 4E 20 57 4F 52 4C 44 20 43 41 50 49 54 |EGIN WORLD CAPIT|
000006E0: 41 4C 20 51 55 49 5A 22 00 12 0F 40 01 99 22 11 |AL QUIZ"...@..".|
000006F0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
00000700: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
00000710: 53 22 00 3C 0F 45 01 99 22 11 11 20 20 20 20 20 |S".<.E..".. |
00000720: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000730: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 6A 0F 4A |NSTRUCTIONS".j.J|
00000740: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000750: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 | MODIFICATION OF|
00000760: 20 50 52 4F 47 52 52 41 4D 22 00 86 0F 4F 01 99 | PROGRRAM"...O..|
00000770: 22 11 11 20 20 20 20 20 20 20 35 2E 20 20 20 51 |".. 5. Q|
00000780: 55 49 54 11 11 22 00 B5 0F 54 01 99 22 20 2D 2D |UIT.."...T.." --|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007B0: 2D 2D 2D 2D 22 00 E0 0F 59 01 99 22 11 11 20 20 |----"...Y..".. |
000007C0: 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D | PRESS A NUM|
000007D0: 42 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 3B |BER KEY (1-5) ";|
000007E0: 00 09 10 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 |...^.UL.1:US$."1|
000007F0: 32 33 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |2345":.35:. INPU|
00000800: 54 20 52 4F 55 54 49 4E 45 00 2A 10 60 01 55 53 |T ROUTINE.*.`.US|
00000810: 24 B2 22 22 3A 55 54 24 B2 22 20 D7 CF D2 CC C4 |$."":UT$." .....|
00000820: 20 C3 C1 D0 C9 D4 C1 CC D3 22 00 4B 10 63 01 91 | ........".K.c..|
00000830: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
00000840: 35 30 30 2C 36 30 30 2C 33 39 36 00 54 10 68 01 |500,600,396.T.h.|
00000850: 89 33 30 30 00 7B 10 8B 01 8F 20 2A 2A 20 52 45 |.300.{.... ** RE|
00000860: 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |-ENABLE STOP KEY|
00000870: 20 41 4E 44 20 45 4E 44 20 2A 2A 00 AA 10 8C 01 | AND END **.....|
00000880: 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 |..(50003)..1..(5|
00000890: 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 |0003)..160..(500|
000008A0: 30 33 29 B3 B1 30 A7 33 39 39 00 D4 10 8D 01 9E |03)..0.399......|
000008B0: 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 |UU.71:..(50003).|
000008C0: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
000008D0: 30 2C 31 34 00 E0 10 8E 01 99 22 9A 93 22 3A 80 |0,14......"..":.|
000008E0: 00 EB 10 8F 01 8D 38 37 35 3A 8E 00 0C 11 90 01 |......875:......|
000008F0: 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 |. ** STUDENT INS|
00000900: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 3B 11 95 |TRUCTIONS **.;..|
00000910: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000920: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000930: 2C 30 3A 97 35 33 32 38 30 2C 30 00 5C 11 9A 01 |,0:.53280,0.\...|
00000940: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
00000950: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 8D 11 9C |T .NST":.850....|
00000960: 01 3A 20 20 99 22 11 11 11 11 20 20 20 20 D2 45 |.: .".... .E|
00000970: 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 20 3C 52 |MEMBER TO HIT <R|
00000980: 45 54 55 52 4E 3E 20 41 46 54 45 52 22 00 B9 11 |ETURN> AFTER"...|
00000990: 9E 01 3A 20 20 99 22 20 20 20 54 59 50 49 4E 47 |..: ." TYPING|
000009A0: 20 59 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 | YOUR ANSWER. .H|
000009B0: 49 53 20 54 45 4C 4C 53 22 00 E6 11 A0 01 3A 20 |IS TELLS".....: |
000009C0: 20 99 22 20 20 20 54 48 45 20 43 4F 4D 50 55 54 | ." THE COMPUT|
000009D0: 45 52 20 54 4F 20 41 43 43 45 50 54 20 57 48 41 |ER TO ACCEPT WHA|
000009E0: 54 20 59 4F 55 22 00 00 12 A2 01 3A 20 20 99 22 |T YOU".....: ."|
000009F0: 20 20 20 48 41 56 45 20 54 59 50 45 44 2E 11 22 | HAVE TYPED.."|
00000A00: 00 2D 12 A4 01 3A 20 20 99 22 20 20 20 20 D4 59 |.-...: ." .Y|
00000A10: 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 54 49 |PE <H> AT ANY TI|
00000A20: 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 00 5A 12 |ME TO RETURN".Z.|
00000A30: A6 01 3A 20 20 99 22 20 20 20 54 4F 20 54 48 45 |..: ." TO THE|
00000A40: 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 | MENU FOR HELP. |
00000A50: 20 D9 4F 55 20 57 49 4C 4C 22 00 87 12 A8 01 3A | .OU WILL".....:|
00000A60: 20 20 99 22 20 20 20 42 45 20 52 45 54 55 52 4E | ." BE RETURN|
00000A70: 45 44 20 54 4F 20 54 48 45 20 50 4C 41 43 45 20 |ED TO THE PLACE |
00000A80: 49 4E 20 54 48 45 22 00 B2 12 AA 01 3A 20 20 99 |IN THE".....: .|
00000A90: 22 20 20 20 50 52 4F 47 52 41 4D 20 57 48 45 52 |" PROGRAM WHER|
00000AA0: 45 20 59 4F 55 20 4C 45 46 54 20 4F 46 46 20 41 |E YOU LEFT OFF A|
00000AB0: 53 22 00 E0 12 AC 01 3A 20 20 99 22 20 20 20 53 |S".....: ." S|
00000AC0: 4F 4F 4E 20 41 53 20 54 48 45 20 4F 50 54 49 4F |OON AS THE OPTIO|
00000AD0: 4E 20 46 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 |N FROM THE MENU"|
00000AE0: 00 04 13 AE 01 3A 20 20 99 22 20 20 20 49 53 20 |.....: ." IS |
00000AF0: 43 4F 4D 50 4C 45 54 45 2E 22 3A 8D 38 33 35 3A |COMPLETE.":.835:|
00000B00: 8D 38 35 30 00 36 13 B8 01 99 22 11 11 20 20 D4 |.850.6....".. .|
00000B10: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 44 |HIS PROGRAM IS D|
00000B20: 45 53 49 47 4E 45 44 20 54 4F 20 54 45 53 54 20 |ESIGNED TO TEST |
00000B30: 59 4F 55 52 11 22 00 5D 13 B9 01 99 22 20 20 4B |YOUR.".]...." K|
00000B40: 4E 4F 57 4C 45 44 47 45 20 4F 46 20 D7 CF D2 CC |NOWLEDGE OF ....|
00000B50: C4 20 C3 C1 D0 C9 D4 C1 CC D3 2E 11 22 00 8B 13 |. .........."...|
00000B60: BA 01 99 22 20 20 D4 48 45 20 43 4F 4D 50 55 54 |..." .HE COMPUT|
00000B70: 45 52 20 57 49 4C 4C 20 52 41 4E 44 4F 4D 4C 59 |ER WILL RANDOMLY|
00000B80: 20 53 45 4C 45 43 54 20 41 11 22 00 CD 13 BB 01 | SELECT A.".....|
00000B90: 99 22 20 20 43 4F 55 4E 54 52 59 20 41 4E 44 20 |." COUNTRY AND |
00000BA0: 59 4F 55 20 57 49 4C 4C 20 48 41 56 45 20 54 4F |YOU WILL HAVE TO|
00000BB0: 20 47 49 56 45 20 11 22 3A 99 22 20 20 49 54 27 | GIVE .":." IT'|
00000BC0: 53 20 43 41 50 49 54 41 4C 2E 11 11 22 00 E1 13 |S CAPITAL..."...|
00000BD0: BC 01 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 |..." ..........|
00000BE0: 22 00 0A 14 BD 01 99 22 20 20 D7 48 41 54 20 49 |"......" .HAT I|
00000BF0: 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F 46 |S THE CAPITAL OF|
00000C00: 20 C3 41 4E 41 44 41 3F 11 22 00 29 14 BE 01 99 | .ANADA?.".)....|
00000C10: 22 20 20 CF 54 54 41 57 41 22 3A 8D 38 33 35 3A |" .TTAWA":.835:|
00000C20: 55 50 B2 32 3A 8D 38 35 30 00 5B 14 BF 01 99 22 |UP.2:.850.[...."|
00000C30: 11 11 11 11 11 20 20 20 20 D9 4F 55 20 57 49 4C |..... .OU WIL|
00000C40: 4C 20 42 45 20 47 49 56 45 4E 20 54 57 4F 20 43 |L BE GIVEN TWO C|
00000C50: 48 41 4E 43 45 53 20 54 4F 11 22 00 8B 14 C0 01 |HANCES TO.".....|
00000C60: 99 22 20 20 47 45 54 20 54 48 45 20 52 49 47 48 |." GET THE RIGH|
00000C70: 54 20 41 4E 53 57 45 52 2E 20 C9 46 20 59 4F 55 |T ANSWER. .F YOU|
00000C80: 20 41 52 45 20 57 52 4F 4E 47 22 00 B9 14 C1 01 | ARE WRONG".....|
00000C90: 99 22 20 20 54 57 49 43 45 20 54 48 45 20 C3 4F |." TWICE THE .O|
00000CA0: 4D 50 55 54 45 52 20 57 49 4C 4C 20 47 49 56 45 |MPUTER WILL GIVE|
00000CB0: 20 59 4F 55 20 54 48 45 22 00 E2 14 C2 01 99 22 | YOU THE"......"|
00000CC0: 11 20 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |. CORRECT ANSWE|
00000CD0: 52 2E 22 3A 8D 38 33 35 3A 55 50 B2 33 3A 8D 38 |R.":.835:UP.3:.8|
00000CE0: 35 30 00 15 15 C3 01 99 22 11 11 11 11 11 20 20 |50......"..... |
00000CF0: C1 46 54 45 52 20 45 56 45 52 59 20 31 30 20 51 |.FTER EVERY 10 Q|
00000D00: 55 45 53 54 49 4F 4E 53 2C 20 41 20 53 55 4D 4D |UESTIONS, A SUMM|
00000D10: 41 52 59 11 22 00 42 15 C4 01 99 22 20 20 4F 46 |ARY.".B...." OF|
00000D20: 20 59 4F 55 52 20 52 45 53 55 4C 54 53 20 57 49 | YOUR RESULTS WI|
00000D30: 4C 4C 20 42 45 20 47 49 56 45 4E 20 41 4E 44 20 |LL BE GIVEN AND |
00000D40: 11 22 00 83 15 C5 01 99 22 20 20 59 4F 55 20 57 |."......" YOU W|
00000D50: 49 4C 4C 20 48 41 56 45 20 54 48 45 20 4F 50 54 |ILL HAVE THE OPT|
00000D60: 49 4F 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |ION TO CONTINUE"|
00000D70: 3A 99 22 11 20 20 54 48 45 20 D1 55 49 5A 2E 11 |:.". THE .UIZ..|
00000D80: 11 11 22 00 9B 15 C6 01 99 22 20 20 12 C7 CF CF |.."......" ....|
00000D90: C4 A0 CC D5 C3 CB 92 21 21 21 22 00 A4 15 E5 01 |.......!!!".....|
00000DA0: 8D 38 33 35 00 C8 15 E7 01 97 35 39 34 36 38 2C |.835......59468,|
00000DB0: 31 32 3A 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 |12:UT$." WORLD C|
00000DC0: 41 50 49 54 41 4C 53 22 00 DC 15 EA 01 8B 55 5A |APITALS"......UZ|
00000DD0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 E2 15 F3 |.1..UP%:.217....|
00000DE0: 01 8E 00 03 16 F4 01 8F 20 2A 2A 20 54 45 41 43 |........ ** TEAC|
00000DF0: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000E00: 20 2A 2A 00 33 16 F5 01 99 22 93 22 3A 97 55 54 | **.3....".":.UT|
00000E10: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
00000E20: A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 |..53281,2:.53280|
00000E30: 2C 31 30 00 55 16 F6 01 55 50 B2 30 3A 55 47 24 |,10.U...UP.0:UG$|
00000E40: B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 2E 22 |.".EACHER .NST."|
00000E50: 3A 8D 38 35 30 00 83 16 F7 01 99 22 11 11 20 20 |:.850......".. |
00000E60: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000E70: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000E80: 2C 11 22 00 AC 16 F8 01 99 22 20 20 20 54 48 49 |,."......" THI|
00000E90: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000EA0: 54 48 45 20 50 55 42 4C 49 43 11 22 00 D8 16 F9 |THE PUBLIC."....|
00000EB0: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000EC0: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000ED0: 45 20 43 41 53 45 11 22 00 F5 16 FA 01 99 22 20 |E CASE."......" |
00000EE0: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000EF0: 3A 11 11 11 22 00 1F 17 FB 01 99 22 20 20 20 20 |:..."......" |
00000F00: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000F10: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000F20: 42 17 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |B...." |
00000F30: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000F40: 45 2E 00 66 17 FD 01 99 22 20 20 20 20 20 20 20 |E..f...." |
00000F50: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000F60: 54 41 52 49 4F 22 00 88 17 FE 01 99 22 20 20 20 |TARIO"......" |
00000F70: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000F80: CD 31 D7 20 32 CB 34 22 00 A8 17 FF 01 99 22 20 |.1. 2.4"......" |
00000F90: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000FA0: 39 39 2D 34 32 39 32 22 00 BE 17 00 02 55 50 B2 |99-4292".....UP.|
00000FB0: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 EE |1:. 835:. 850:..|
00000FC0: 17 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000FD0: 52 41 4D 20 CE 41 4D 45 3A 20 D7 4F 52 4C 44 20 |RAM .AME: .ORLD |
00000FE0: C3 41 50 49 54 41 4C 20 D1 55 49 5A 11 22 00 16 |.APITAL .UIZ."..|
00000FF0: 18 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00001000: 4E 20 C2 59 20 20 3A 20 CA 41 4D 45 53 20 C4 4F |N .Y : .AMES .O|
00001010: 57 4E 45 52 11 22 00 3F 18 03 02 99 22 20 20 20 |WNER.".?...." |
00001020: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00001030: C1 52 4D 41 4E 44 20 C1 49 45 4C 4C 4F 11 22 00 |.RMAND .IELLO.".|
00001040: 6A 18 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |j...." ..HIS|
00001050: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
00001060: 4E 20 4F 4E 20 41 4E 59 11 11 00 8A 18 07 02 99 |N ON ANY........|
00001070: 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 |" ... 64|
00001080: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 AF 18 08 02 99 | ...............|
00001090: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
000010A0: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
000010B0: BD 18 09 02 8D 38 33 35 3A 8D 38 35 30 00 EC 18 |.....835:.850...|
000010C0: 12 02 99 22 11 11 20 20 20 20 D4 48 49 53 20 50 |...".. .HIS P|
000010D0: 52 4F 47 52 41 4D 20 49 53 20 44 45 53 49 47 4E |ROGRAM IS DESIGN|
000010E0: 45 44 20 54 4F 20 54 45 53 54 11 22 00 31 19 13 |ED TO TEST.".1..|
000010F0: 02 99 22 20 20 54 48 45 20 53 54 55 44 45 4E 54 |.." THE STUDENT|
00001100: 53 20 4F 4E 20 54 48 45 49 52 20 4B 4E 4F 57 4C |S ON THEIR KNOWL|
00001110: 45 44 47 45 20 4F 46 22 3A 99 22 11 20 20 D7 CF |EDGE OF":.". ..|
00001120: D2 CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 2E 11 11 11 |... ............|
00001130: 22 00 5F 19 14 02 99 22 20 20 20 20 27 D7 CF D2 |"._...." '...|
00001140: CC C4 A0 C3 C1 D0 C9 D4 C1 CC A0 D1 D5 C9 DA 27 |...............'|
00001150: 20 49 53 20 44 45 53 49 47 4E 45 44 20 11 22 00 | IS DESIGNED .".|
00001160: 8D 19 15 02 99 22 20 20 46 4F 52 20 53 54 55 44 |....." FOR STUD|
00001170: 45 4E 54 53 20 49 4E 20 54 48 45 20 CA 55 4E 49 |ENTS IN THE .UNI|
00001180: 4F 52 20 54 4F 20 C9 4E 54 45 52 2D 22 00 AD 19 |OR TO .NTER-"...|
00001190: 16 02 99 22 11 20 20 4D 45 44 49 41 54 45 20 47 |...". MEDIATE G|
000011A0: 52 41 44 45 20 4C 45 56 45 4C 53 2E 22 00 C0 19 |RADE LEVELS."...|
000011B0: 17 02 8D 38 33 35 3A 55 50 B2 32 3A 8D 38 35 30 |...835:UP.2:.850|
000011C0: 00 ED 19 18 02 99 22 11 11 11 11 11 20 20 20 20 |......"..... |
000011D0: C1 53 20 54 48 45 20 57 4F 52 4C 44 27 53 20 42 |.S THE WORLD'S B|
000011E0: 4F 52 44 45 52 53 20 41 4E 44 20 11 22 00 1A 1A |ORDERS AND ."...|
000011F0: 19 02 99 22 20 20 4C 45 41 44 45 52 53 20 43 48 |..." LEADERS CH|
00001200: 41 4E 47 45 2C 20 53 4F 20 54 48 49 53 20 50 52 |ANGE, SO THIS PR|
00001210: 4F 47 52 41 4D 27 53 20 11 22 00 49 1A 1A 02 99 |OGRAM'S .".I....|
00001220: 22 20 20 4C 49 53 54 20 4F 46 20 43 4F 55 4E 54 |" LIST OF COUNT|
00001230: 52 49 45 53 20 41 4E 44 20 54 48 45 49 52 20 43 |RIES AND THEIR C|
00001240: 41 50 49 54 41 4C 53 11 22 00 77 1A 1B 02 99 22 |APITALS.".w...."|
00001250: 20 20 4D 55 53 54 20 42 45 20 43 48 41 4E 47 45 | MUST BE CHANGE|
00001260: 44 2E 20 D4 4F 20 4C 45 41 52 4E 20 48 4F 57 20 |D. .O LEARN HOW |
00001270: 54 48 49 53 20 11 22 00 A3 1A 1C 02 99 22 20 20 |THIS ."......" |
00001280: 43 41 4E 20 42 45 20 44 4F 4E 45 2C 20 53 45 45 |CAN BE DONE, SEE|
00001290: 20 54 48 45 20 CD CF C4 C9 C6 C9 C3 C1 D4 C9 CF | THE ...........|
000012A0: CE 11 22 00 C5 1A 1D 02 99 22 20 20 D3 C5 C3 D4 |.."......" ....|
000012B0: C9 CF CE 20 4F 46 20 54 48 45 20 CD C5 CE D5 28 |... OF THE ....(|
000012C0: 23 34 29 2E 22 00 CE 1A 44 02 8D 38 33 35 00 F2 |#4)."...D..835..|
000012D0: 1A 49 02 97 35 39 34 36 38 2C 31 32 3A 55 54 24 |.I..59468,12:UT$|
000012E0: B2 22 20 57 4F 52 4C 44 20 43 41 50 49 54 41 4C |." WORLD CAPITAL|
000012F0: 53 22 00 06 1B 4E 02 8B 55 5A B2 31 A7 9E 55 50 |S"...N..UZ.1..UP|
00001300: 25 3A 89 32 31 37 00 0C 1B 57 02 8E 00 32 1B 58 |%:.217...W...2.X|
00001310: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO|
00001320: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST |
00001330: 2A 2A 00 43 1B 59 02 99 22 93 22 3A 97 55 54 2C |**.C.Y..".":.UT,|
00001340: 55 4C 25 00 63 1B 5D 02 55 50 B2 30 3A 55 47 24 |UL%.c.].UP.0:UG$|
00001350: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
00001360: 38 35 30 00 97 1B 5E 02 99 22 11 11 11 11 11 11 |850...^.."......|
00001370: 20 20 20 20 20 D4 48 49 53 20 53 45 43 54 49 4F | .HIS SECTIO|
00001380: 4E 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 4F |N IS DESIGNED TO|
00001390: 20 53 48 4F 57 11 22 00 C1 1B 5F 02 99 22 20 20 | SHOW."..._.." |
000013A0: 20 54 48 45 20 55 53 45 52 20 54 48 41 54 20 54 | THE USER THAT T|
000013B0: 48 45 20 C4 C1 D4 C1 20 49 4E 20 54 48 49 53 11 |HE .... IN THIS.|
000013C0: 22 00 F0 1B 60 02 99 22 20 20 20 50 52 4F 47 52 |"...`.." PROGR|
000013D0: 41 4D 20 43 41 4E 20 42 45 20 43 48 41 4E 47 45 |AM CAN BE CHANGE|
000013E0: 44 20 4F 52 20 41 44 44 45 44 20 54 4F 20 11 22 |D OR ADDED TO ."|
000013F0: 00 1E 1C 61 02 99 22 20 20 20 51 55 49 54 45 20 |...a.." QUITE |
00001400: 45 41 53 49 4C 59 2E 20 20 C1 4C 4C 20 54 48 45 |EASILY. .LL THE|
00001410: 20 D5 53 45 52 20 48 41 53 20 54 4F 11 22 00 51 | .SER HAS TO.".Q|
00001420: 1C 62 02 99 22 20 20 20 44 4F 20 49 53 20 46 4F |.b.." DO IS FO|
00001430: 4C 4C 4F 57 20 54 48 45 53 45 20 53 54 45 50 53 |LLOW THESE STEPS|
00001440: 2E 22 3A 8D 38 33 35 3A 55 50 B2 32 3A 8D 38 35 |.":.835:UP.2:.85|
00001450: 30 00 72 1C 63 02 99 22 11 11 20 20 12 C3 C8 C1 |0.r.c..".. ....|
00001460: CE C7 C9 CE C7 A0 D4 C8 C5 A0 C4 C1 D4 C1 92 11 |................|
00001470: 11 22 00 9E 1C 64 02 99 22 20 20 20 C6 49 4E 44 |."...d.." .IND|
00001480: 20 54 48 45 20 C4 C1 D4 C1 20 49 4E 53 54 52 55 | THE .... INSTRU|
00001490: 43 54 49 4F 4E 20 4E 55 4D 42 45 52 11 22 00 CC |CTION NUMBER."..|
000014A0: 1C 65 02 99 22 20 20 20 57 48 45 52 45 20 54 48 |.e.." WHERE TH|
000014B0: 45 20 43 48 41 4E 47 45 20 49 53 20 4E 45 43 45 |E CHANGE IS NECE|
000014C0: 53 53 41 52 59 2C 20 41 4E 44 11 22 00 00 1D 66 |SSARY, AND."...f|
000014D0: 02 99 22 20 20 20 41 4E 44 20 4D 41 4B 45 20 54 |.." AND MAKE T|
000014E0: 48 45 20 43 4F 52 52 45 43 54 49 4F 4E 2E 11 22 |HE CORRECTION.."|
000014F0: 3A 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 |:." .........."|
00001500: 00 25 1D 67 02 99 22 20 20 20 31 38 33 30 20 C4 |.%.g.." 1830 .|
00001510: C1 D4 C1 A0 C9 D3 D2 C1 C5 CC 2C CA C5 D2 D5 D3 |..........,.....|
00001520: C1 CC C5 CD 22 00 3E 1D 68 02 99 22 20 20 20 11 |....".>.h.." .|
00001530: C3 48 41 4E 47 45 20 54 4F 2E 2E 2E 11 22 00 71 |.HANGE TO....".q|
00001540: 1D 69 02 99 22 20 20 20 31 38 33 30 20 C4 C1 D4 |.i.." 1830 ...|
00001550: C1 A0 C9 D3 D2 C1 C5 CC 2C D4 C5 CC A0 C1 D6 C9 |........,.......|
00001560: D6 22 3A 8D 38 33 35 3A 55 50 B2 33 3A 8D 38 35 |.":.835:UP.3:.85|
00001570: 30 00 92 1D 6A 02 99 22 20 20 11 11 12 C1 C4 C4 |0...j.." ......|
00001580: C9 CE C7 A0 D4 CF A0 D4 C8 C5 A0 C4 C1 D4 C1 92 |................|
00001590: 11 22 00 C2 1D 6B 02 99 22 20 20 20 D7 48 45 4E |."...k.." .HEN|
000015A0: 20 41 44 44 49 4E 47 20 4E 45 57 20 C4 C1 D4 C1 | ADDING NEW ....|
000015B0: 20 54 4F 20 54 48 45 20 50 52 4F 47 52 41 4D 2C | TO THE PROGRAM,|
000015C0: 11 22 00 F1 1D 6C 02 99 22 20 20 20 55 53 45 20 |."...l.." USE |
000015D0: 54 48 45 20 50 52 4F 47 52 41 4D 20 49 4E 53 54 |THE PROGRAM INST|
000015E0: 52 55 43 54 49 4F 4E 20 4E 55 4D 42 45 52 53 11 |RUCTION NUMBERS.|
000015F0: 22 00 09 1E 6D 02 99 22 20 20 20 46 52 4F 4D 20 |"...m.." FROM |
00001600: 33 30 30 30 20 4F 4E 2E 22 00 1F 1E 6E 02 99 22 |3000 ON."...n.."|
00001610: 11 11 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 00 |.. ..........".|
00001620: 42 1E 6F 02 99 22 20 20 20 33 30 30 31 20 C4 C1 |B.o.." 3001 ..|
00001630: D4 C1 20 20 C3 C1 CE C1 C4 C1 2C CF D4 D4 C1 D7 |.. ......,.....|
00001640: C1 22 00 55 1E 70 02 8D 38 33 35 3A 55 50 B2 34 |.".U.p..835:UP.4|
00001650: 3A 8D 38 35 30 00 7A 1E 71 02 99 22 11 11 20 20 |:.850.z.q..".. |
00001660: 12 C8 CF D7 A0 D4 CF A0 C5 CE D4 C5 D2 A0 D4 C8 |................|
00001670: C5 A0 C4 C1 D4 C1 92 11 11 22 00 A9 1E 72 02 99 |........."...r..|
00001680: 22 20 20 20 31 29 C6 49 52 53 54 2C 20 45 4E 54 |" 1).IRST, ENT|
00001690: 45 52 20 54 48 45 20 49 4E 53 54 52 55 43 54 49 |ER THE INSTRUCTI|
000016A0: 4F 4E 20 CE CF 2E 2C 11 22 00 D0 1E 73 02 99 22 |ON ...,."...s.."|
000016B0: 20 20 20 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 | FOLLOWED BY |
000016C0: 54 48 45 20 57 4F 52 44 20 C4 C1 D4 C1 2E 11 22 |THE WORD ......"|
000016D0: 00 FE 1E 74 02 99 22 20 20 20 32 29 D4 48 45 4E |...t.." 2).HEN|
000016E0: 20 54 48 45 20 C3 4F 55 4E 54 52 59 2C 20 46 4F | THE .OUNTRY, FO|
000016F0: 4C 4C 4F 57 45 44 20 42 59 20 41 20 11 22 00 2E |LLOWED BY A ."..|
00001700: 1F 75 02 99 22 20 20 20 20 43 4F 4D 4D 41 20 28 |.u.." COMMA (|
00001710: 2C 29 20 41 4E 44 20 46 49 4E 41 4C 4C 59 20 49 |,) AND FINALLY I|
00001720: 54 27 53 20 C3 41 50 49 54 41 4C 2E 11 22 00 42 |T'S .APITAL..".B|
00001730: 1F 76 02 99 22 20 20 12 C5 D8 C1 CD D0 CC C5 92 |.v.." .........|
00001740: 11 22 00 73 1F 77 02 99 22 20 20 20 33 30 30 31 |.".s.w.." 3001|
00001750: 20 C4 C1 D4 C1 20 C3 C1 CE C1 C4 C1 2C CF D4 D4 | .... ......,...|
00001760: C1 D7 C1 22 3A 8D 38 33 35 3A 55 50 B2 35 3A 8D |...":.835:UP.5:.|
00001770: 38 35 30 00 8A 1F 78 02 99 22 11 11 20 20 12 D2 |850...x..".. ..|
00001780: C5 CD C5 CD C2 C5 D2 92 11 22 00 B9 1F 79 02 99 |........."...y..|
00001790: 22 20 20 20 C6 4F 52 20 45 56 45 52 59 20 4E 45 |" .OR EVERY NE|
000017A0: 57 20 C3 4F 55 4E 54 52 59 20 41 4E 44 20 C3 41 |W .OUNTRY AND .A|
000017B0: 50 49 54 41 4C 2C 20 11 22 00 E5 1F 7A 02 99 22 |PITAL, ."...z.."|
000017C0: 20 20 20 46 4F 52 20 31 20 54 4F 20 36 30 20 49 | FOR 1 TO 60 I|
000017D0: 4E 20 49 4E 53 54 52 55 43 54 49 4F 4E 20 31 33 |N INSTRUCTION 13|
000017E0: 30 30 2E 11 22 00 F9 1F 7B 02 99 22 20 20 12 C5 |00.."...{.." ..|
000017F0: D8 C1 CD D0 CC C5 92 11 22 00 15 20 7C 02 99 22 |........".. |.."|
00001800: 20 20 20 CF 4E 45 20 4E 45 57 20 41 44 44 49 54 | .NE NEW ADDIT|
00001810: 49 4F 4E 11 22 00 43 20 7D 02 99 22 20 20 20 31 |ION.".C }.." 1|
00001820: 33 30 30 20 C6 CF D2 A0 C9 3D 30 20 D4 CF 20 36 |300 .....=0 .. 6|
00001830: 30 2B 31 22 3A 8D 38 33 35 3A 55 50 B2 36 3A 8D |0+1":.835:UP.6:.|
00001840: 38 35 30 00 5A 20 7E 02 99 22 11 11 20 20 12 D2 |850.Z ~..".. ..|
00001850: C5 CD C5 CD C2 C5 D2 92 11 22 00 8A 20 7F 02 99 |.........".. ...|
00001860: 22 20 20 20 C9 46 20 59 4F 55 20 41 44 44 20 4D |" .F YOU ADD M|
00001870: 4F 52 45 20 54 48 41 4E 20 31 30 20 C3 4F 4E 54 |ORE THAN 10 .ONT|
00001880: 52 49 45 53 20 41 4E 44 11 22 00 BA 20 80 02 99 |RIES AND.".. ...|
00001890: 22 20 20 20 C3 41 50 49 54 41 4C 53 20 54 4F 20 |" .APITALS TO |
000018A0: 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 52 45 44 |THE PROGRAM, RED|
000018B0: 49 4D 45 4E 53 49 4F 4E 11 22 00 D9 20 81 02 99 |IMENSION.".. ...|
000018C0: 22 20 20 20 54 48 45 20 41 52 52 41 59 53 20 49 |" THE ARRAYS I|
000018D0: 4E 20 31 32 39 30 2E 11 22 00 ED 20 82 02 99 22 |N 1290..".. ..."|
000018E0: 20 20 12 C5 D8 C1 CD D0 CC C5 92 11 22 00 0E 21 | .........."..!|
000018F0: 83 02 99 22 20 20 20 31 32 39 30 20 C4 C9 CD 20 |..." 1290 ... |
00001900: C1 24 28 37 30 29 2C C2 24 28 37 30 29 22 00 27 |.$(70),.$(70)".'|
00001910: 21 84 02 99 22 20 20 20 11 C3 48 41 4E 47 45 20 |!..." ..HANGE |
00001920: 54 4F 2E 2E 2E 11 22 00 4A 21 85 02 99 22 20 20 |TO....".J!..." |
00001930: 20 31 32 39 30 20 C4 C9 CD 20 C1 24 28 31 30 30 | 1290 ... .$(100|
00001940: 29 2C C2 24 28 31 30 30 29 22 00 53 21 94 02 8D |),.$(100)".S!...|
00001950: 38 33 35 00 77 21 99 02 97 35 39 34 36 38 2C 31 |835.w!...59468,1|
00001960: 32 3A 55 54 24 B2 22 20 57 4F 52 4C 44 20 43 41 |2:UT$." WORLD CA|
00001970: 50 49 54 41 4C 53 22 00 8B 21 B2 02 8B 55 5A B2 |PITALS"..!...UZ.|
00001980: 31 A7 9E 55 50 25 3A 89 32 31 37 00 91 21 BB 02 |1..UP%:.217..!..|
00001990: 8E 00 B6 21 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |...!... ** TO US|
000019A0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
000019B0: 30 33 32 20 2A 2A 00 EC 21 C6 02 99 22 93 11 11 |032 **..!..."...|
000019C0: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
000019D0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
000019E0: 20 41 4E 20 38 30 33 32 20 20 11 11 00 22 22 D0 | AN 8032 ..."".|
000019F0: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001A00: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001A10: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001A20: 11 22 00 2D 22 DA 02 9E 55 55 AA 37 31 00 33 22 |.".-"...UU.71.3"|
00001A30: E4 02 80 00 53 22 20 03 8F 20 2A 2A 20 54 20 49 |....S" .. ** T I|
00001A40: 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 | T L E P A G E|
00001A50: 20 2A 2A 00 87 22 22 03 99 22 93 11 1D 05 22 3B | **.."".."....";|
00001A60: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
00001A70: 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 |3).0..53280,14:.|
00001A80: 35 33 32 38 31 2C 36 00 9D 22 24 03 81 49 B2 31 |53281,6.."$..I.1|
00001A90: A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 B5 22 |.38:."...";:..."|
00001AA0: 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 |&..I.1.22:."....|
00001AB0: 92 22 3B 3A 82 00 CD 22 28 03 81 49 B2 31 A4 33 |.";:..."(..I.1.3|
00001AC0: 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 E5 22 |7:.".....";:..."|
00001AD0: 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 |*..I.1.22:."....|
00001AE0: 92 22 3B 3A 82 00 0A 23 2C 03 99 22 13 11 11 11 |.";:...#,.."....|
00001AF0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B00: 1D 1D 1D 1D 1D 12 A9 20 20 92 00 2C 23 2E 03 99 |....... ..,#...|
00001B10: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001B20: 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 4D 23 30 |.... . . ...M#0|
00001B30: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001B40: 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 6B 23 |...... . ....k#|
00001B50: 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.."............|
00001B60: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 93 23 34 03 |........ ...#4.|
00001B70: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001B80: 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 |C O M M O D O R |
00001B90: 45 11 11 00 B6 23 36 03 99 22 1D 1D 1D 1D 1D 1D |E....#6.."......|
00001BA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 |.........EDUCATI|
00001BB0: 4F 4E 41 4C 11 11 00 D5 23 38 03 99 22 1D 1D 1D |ONAL....#8.."...|
00001BC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 |.............SOF|
00001BD0: 54 57 41 52 45 00 F0 23 3A 03 8F 20 2A 2A 20 43 |TWARE..#:.. ** C|
00001BE0: 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A |OMMODORE LOGO **|
00001BF0: 00 28 24 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B |.($;...(UD$,24);|
00001C00: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |"..........PRESS|
00001C10: 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 | SPACE BAR OR WA|
00001C20: 49 54 92 22 3A 49 B2 30 00 4A 24 3C 03 A1 41 24 |IT.":I.0.J$<..A$|
00001C30: 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A |:.A$.." ".I.I.1:|
00001C40: 8B 49 B3 32 35 30 A7 38 32 38 00 6E 24 3E 03 54 |.I.250.828.n$>.T|
00001C50: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
00001C60: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 77 |."":T4$."":I.0.w|
00001C70: 24 40 03 89 33 30 30 00 93 24 43 03 8F 20 2A 2A |$@..300..$C.. **|
00001C80: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
00001C90: 20 2A 2A 00 C8 24 48 03 99 C8 28 55 44 24 2C 32 | **..$H...(UD$,2|
00001CA0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |4);".......PRESS|
00001CB0: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F | SPACE BAR TO CO|
00001CC0: 4E 54 49 4E 55 45 92 22 00 DF 24 4C 03 A1 55 49 |NTINUE."..$L..UI|
00001CD0: 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 |$:.UI$.." ".844.|
00001CE0: E5 24 4E 03 8E 00 05 25 52 03 8F 20 2A 2A 20 50 |.$N....%R.. ** P|
00001CF0: 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 |AGE DESIGN ROUTI|
00001D00: 4E 45 20 2A 2A 00 11 25 54 03 55 50 B2 55 50 AA |NE **..%T.UP.UP.|
00001D10: 31 00 38 25 57 03 99 22 93 22 C8 28 55 54 24 AA |1.8%W..".".(UT$.|
00001D20: 55 50 24 2C 32 31 29 3B C8 28 55 47 24 AA 55 50 |UP$,21);.(UG$.UP|
00001D30: 24 2C 31 34 29 3B 55 50 00 67 25 5C 03 99 22 20 |$,14);UP.g%\.." |
00001D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D60: 2D 2D 2D 2D 2D 2D 22 00 9B 25 61 03 99 C8 28 55 |------"..%a...(U|
00001D70: 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 36 29 3B |D$,24);.(UP$,6);|
00001D80: 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 |"HELP - PRESS |
00001D90: 48 20 3C 52 45 54 55 52 4E 3E 22 00 A7 25 66 03 |H <RETURN>"..%f.|
00001DA0: 99 22 13 11 22 3A 8E 00 C6 25 6B 03 8F 20 2A 2A |."..":...%k.. **|
00001DB0: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
00001DC0: 41 52 4B 20 2A 2A 00 FC 25 70 03 99 C8 28 55 44 |ARK **..%p...(UD|
00001DD0: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00001DE0: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00001DF0: 41 53 45 2E 2E 2E 20 20 20 20 20 23 A0 02 26 75 |ASE... #..&u|
00001E00: 03 8E 00 1F 26 84 03 8F 20 2A 2A 20 53 45 54 20 |....&... ** SET |
00001E10: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
00001E20: 6A 26 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |j&..UX$."H":.UQ%|
00001E30: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
00001E40: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
00001E50: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
00001E60: 36 37 3A 55 55 B2 31 30 32 34 00 A1 26 86 03 55 |67:UU.1024..&..U|
00001E70: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
00001E80: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
00001E90: 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 33 2C |M.32768:. 50003,|
00001EA0: 30 00 E4 26 87 03 8B C2 28 35 30 30 30 33 29 B2 |0..&....(50003).|
00001EB0: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
00001EC0: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001ED0: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001EE0: 32 30 34 38 00 1C 27 88 03 8B C2 28 35 30 30 30 |2048..'....(5000|
00001EF0: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
00001F00: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
00001F10: 32 31 33 39 3A 55 4D B2 31 30 32 34 00 40 27 89 |2139:UM.1024.@'.|
00001F20: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........|
00001F30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001F40: 00 72 27 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.r'..UP$." |
00001F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F70: 20 22 00 BF 27 8B 03 55 54 24 B2 22 20 D7 CF D2 | "..'..UT$." ...|
00001F80: CC C4 20 C3 C1 D0 C9 D4 C1 CC D3 A0 A0 A0 22 3A |.. ...........":|
00001F90: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
00001FA0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
00001FB0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
00001FC0: C5 27 8C 03 8E 00 DF 27 8E 03 8F 20 2A 2A 20 53 |.'.....'... ** S|
00001FD0: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001FE0: F5 27 90 03 86 20 41 24 28 37 30 29 3A 86 20 42 |.'... A$(70):. B|
00001FF0: 24 28 37 30 29 00 FE 27 93 03 8D 39 30 30 00 19 |$(70)..'...900..|
00002000: 28 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |(... ** CHECK FO|
00002010: 52 20 38 30 33 32 20 2A 2A 00 37 28 9D 03 99 22 |R 8032 **.7(..."|
00002020: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
00002030: 44 20 53 50 41 43 45 00 4E 28 A2 03 8B C2 28 55 |D SPACE.N(....(U|
00002040: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 67 |B.40)..96..700.g|
00002050: 28 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |(... ** MEMORY C|
00002060: 48 45 43 4B 20 2A 2A 00 7B 28 A4 03 8B 20 B8 28 |HECK **.{(... .(|
00002070: 30 29 B1 32 30 30 30 A7 39 33 37 00 A9 28 A5 03 |0).2000.937..(..|
00002080: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00002090: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
000020A0: 20 45 4E 4F 55 47 48 11 22 00 CD 28 A6 03 99 22 | ENOUGH."..(..."|
000020B0: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
000020C0: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 D8 28 |IS PROGRAM !"..(|
000020D0: A7 03 9E 55 55 AA 37 31 00 DE 28 A8 03 80 00 F8 |...UU.71..(.....|
000020E0: 28 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 |(..."..":..(5000|
000020F0: 33 29 B2 30 A7 39 36 32 00 27 29 AC 03 8F 20 2A |3).0.962.')... *|
00002100: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00002110: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00002120: 45 54 55 50 20 2A 2A 00 65 29 AD 03 97 31 30 37 |ETUP **.e)...107|
00002130: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00002140: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00002150: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00002160: 31 2C 31 34 35 00 9B 29 AE 03 97 31 30 39 31 2C |1,145..)...1091,|
00002170: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
00002180: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
00002190: 34 3A 97 31 31 30 33 2C 31 33 33 00 BD 29 AF 03 |4:.1103,133..)..|
000021A0: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
000021B0: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 D4 29 |234:.1082,234..)|
000021C0: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
000021D0: A7 39 35 35 00 03 2A B6 03 97 31 30 39 33 2C 38 |.955..*...1093,8|
000021E0: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
000021F0: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00002200: 39 36 35 00 18 2A BB 03 8B C2 28 35 30 30 30 33 |965..*....(50003|
00002210: 29 B3 B1 31 A7 39 39 30 00 47 2A C0 03 97 31 30 |)..1.990.G*...10|
00002220: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
00002230: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00002240: 33 30 3A 89 39 36 35 00 81 2A C2 03 97 32 30 39 |30:.965..*...209|
00002250: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00002260: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
00002270: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
00002280: 31 00 BD 2A C3 03 97 32 31 30 36 2C 33 3A 97 32 |1..*...2106,3:.2|
00002290: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
000022A0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
000022B0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 F7 2A |,49:.2122,141..*|
000022C0: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
000022D0: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
000022E0: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
000022F0: 97 32 31 32 39 2C 33 00 15 2B C5 03 9E 55 55 AA |.2129,3..+...UU.|
00002300: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00002310: 50 20 4B 45 59 00 26 2B CA 03 8D 38 30 30 3A 8F |P KEY.&+...800:.|
00002320: 20 54 49 54 4C 45 00 36 2B D4 03 89 33 30 30 3A | TITLE.6+...300:|
00002330: 8F 20 4D 45 4E 55 00 67 2B DE 03 99 22 93 54 48 |. MENU.g+...".TH|
00002340: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00002350: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00002360: 49 4E 45 21 22 3A 80 00 9C 2B E8 03 8B 55 5A B2 |INE!":...+...UZ.|
00002370: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00002380: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00002390: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 C8 2B E9 |ARTS HERE **..+.|
000023A0: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
000023B0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
000023C0: 35 33 32 38 30 2C 31 34 00 FB 2B E2 04 97 35 39 |53280,14..+...59|
000023D0: 34 36 38 2C 31 32 3A 55 54 24 B2 22 20 57 4F 52 |468,12:UT$." WOR|
000023E0: 4C 44 20 43 41 50 49 54 41 4C 53 22 3A 99 22 93 |LD CAPITALS":.".|
000023F0: 22 3A 8D 38 37 35 3A 55 50 B2 30 00 0A 2C 14 05 |":.875:UP.0..,..|
00002400: 81 20 49 B2 30 20 A4 20 36 30 00 1C 2C 1E 05 87 |. I.0 . 60..,...|
00002410: 20 41 24 28 49 29 2C 42 24 28 49 29 00 24 2C 28 | A$(I),B$(I).$,(|
00002420: 05 82 20 49 00 34 2C 3C 05 4E B2 30 3A 43 B2 30 |.. I.4,<.N.0:C.0|
00002430: 3A 57 B2 30 00 47 2C 46 05 81 20 4B 31 B2 31 35 |:W.0.G,F.. K1.15|
00002440: 30 20 A4 20 32 35 30 00 5A 2C 50 05 4C B2 28 4B |0 . 250.Z,P.L.(K|
00002450: 31 AD 34 29 AC BC 28 4B 31 29 00 68 2C 5A 05 49 |1.4)..(K1).h,Z.I|
00002460: B2 34 39 AC BB 28 4C 29 00 73 2C 64 05 49 B2 B5 |.49..(L).s,d.I..|
00002470: 28 49 29 00 7B 2C 6E 05 51 B2 30 00 90 2C 73 05 |(I).{,n.Q.0..,s.|
00002480: 55 47 24 B2 22 51 55 45 53 54 49 4F 4E 20 23 22 |UG$."QUESTION #"|
00002490: 00 A8 2C 78 05 4E B2 4E AA 31 3A 8B 20 4E B1 31 |..,x.N.N.1:. N.1|
000024A0: 30 20 A7 20 31 35 36 35 00 BB 2C 82 05 97 35 39 |0 . 1565..,...59|
000024B0: 34 36 38 2C 31 32 3A 8D 38 35 30 00 F7 2C 87 05 |468,12:.850..,..|
000024C0: 99 22 11 11 11 11 11 11 11 20 20 57 48 41 54 20 |."....... WHAT |
000024D0: 49 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F |IS THE CAPITAL O|
000024E0: 46 20 22 3A 99 22 11 20 20 20 22 3B 41 24 28 49 |F ":.". ";A$(I|
000024F0: 29 3B 22 3F 20 22 3B 00 01 2D 8C 05 8D 32 30 32 |);"? ";..-...202|
00002500: 30 00 12 2D 91 05 8B 5A 24 B2 22 20 22 A7 31 39 |0..-...Z$." ".19|
00002510: 37 30 00 28 2D 96 05 8B 20 5A 24 B2 42 24 28 49 |70.(-... Z$.B$(I|
00002520: 29 20 A7 20 31 34 37 30 00 40 2D A0 05 51 B2 51 |) . 1470.@-..Q.Q|
00002530: AA 31 3A 8B 20 51 B1 B2 32 20 A7 20 31 39 36 30 |.1:. Q..2 . 1960|
00002540: 00 6D 2D AA 05 99 22 11 11 20 20 54 52 59 20 41 |.m-...".. TRY A|
00002550: 47 41 49 4E 2E 2E 2E 2E 22 3A 57 B2 57 AA 31 3A |GAIN....":W.W.1:|
00002560: 55 50 B2 55 50 AB 31 3A 8D 32 30 36 30 00 78 2D |UP.UP.1:.2060.x-|
00002570: B4 05 89 20 31 34 31 30 00 90 2D BE 05 52 B2 B5 |... 1410..-..R..|
00002580: 28 36 AC BB 28 49 29 29 AA 31 3A 43 B2 43 AA 31 |(6..(I)).1:C.C.1|
00002590: 00 B8 2D C8 05 91 20 52 20 89 20 31 35 31 30 2C |..-... R . 1510,|
000025A0: 31 35 32 30 2C 31 35 33 30 2C 31 35 34 30 2C 31 |1520,1530,1540,1|
000025B0: 35 35 30 2C 31 35 36 30 00 E2 2D D2 05 99 20 C7 |550,1560..-... .|
000025C0: 28 31 38 29 3B 22 20 20 43 4F 52 52 45 43 54 22 |(18);" CORRECT"|
000025D0: 3B A6 35 29 3B 22 20 20 47 4F 4F 44 20 57 4F 52 |;.5);" GOOD WOR|
000025E0: 4B 22 00 F2 2D DC 05 8D 32 30 36 30 3A 89 31 36 |K"..-...2060:.16|
000025F0: 35 30 00 12 2E E6 05 99 22 11 11 20 20 43 4F 52 |50......".. COR|
00002600: 52 45 43 54 21 22 3A 8D 20 38 33 35 3A 89 31 36 |RECT!":. 835:.16|
00002610: 35 30 00 2F 2E F0 05 99 22 11 11 20 20 52 49 47 |50./....".. RIG|
00002620: 48 54 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 |HT!":.835:.1650.|
00002630: 4E 2E FA 05 99 22 11 11 20 20 43 4F 52 52 45 43 |N....".. CORREC|
00002640: 54 21 22 3A 8D 38 33 35 3A 89 31 36 35 30 00 6B |T!":.835:.1650.k|
00002650: 2E 04 06 99 22 11 11 20 20 52 49 47 48 54 21 22 |....".. RIGHT!"|
00002660: 3A 8D 38 33 35 3A 89 31 36 35 30 00 8A 2E 0E 06 |:.835:.1650.....|
00002670: 99 22 11 11 20 20 43 4F 52 52 45 43 54 21 22 3A |.".. CORRECT!":|
00002680: 8D 38 33 35 3A 89 31 36 35 30 00 A7 2E 18 06 99 |.835:.1650......|
00002690: 22 11 11 20 20 52 49 47 48 54 21 22 3A 8D 38 33 |".. RIGHT!":.83|
000026A0: 35 3A 89 31 36 35 30 00 ED 2E 1D 06 55 47 24 B2 |5:.1650.....UG$.|
000026B0: 22 52 45 53 55 4C 54 22 3A 55 50 B2 55 50 AB 31 |"RESULT":UP.UP.1|
000026C0: 3A 8D 38 35 30 20 20 20 20 20 20 20 53 43 B0 45 |:.850 SC.E|
000026D0: 20 49 53 20 22 3B 43 3B 22 20 43 B0 52 45 43 54 | IS ";C;" C.RECT|
000026E0: 20 22 3B 57 3B 22 20 57 52 91 47 2E 22 00 21 2F | ";W;" WR.G.".!/|
000026F0: 1E 06 99 22 11 11 11 11 20 20 59 4F 55 52 20 53 |...".... YOUR S|
00002700: 43 4F 52 45 20 49 53 20 22 3B 43 3B 22 43 4F 52 |CORE IS ";C;"COR|
00002710: 52 45 43 54 20 22 3B 57 3B 22 57 52 4F 4E 47 2E |RECT ";W;"WRONG.|
00002720: 22 00 3C 2F 1F 06 99 22 11 20 20 59 4F 55 52 20 |".</...". YOUR |
00002730: 52 41 54 49 4E 47 20 49 53 20 22 3B 00 5E 2F 22 |RATING IS ";.^/"|
00002740: 06 99 B5 28 28 43 AD 28 43 AA 57 29 AC 31 30 30 |...((C.(C.W).100|
00002750: 29 AC 31 30 AA 2E 35 29 AD 31 30 22 25 22 00 69 |).10..5).10"%".i|
00002760: 2F 36 06 8D 20 32 30 36 30 00 96 2F 40 06 99 22 |/6.. 2060../@.."|
00002770: 11 11 11 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 |... DO YOU WANT|
00002780: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 3F 20 28 59 | TO CONTINUE? (Y|
00002790: 2F 4E 29 20 22 3B 00 A1 2F 4A 06 8D 20 32 30 38 |/N) ";../J.. 208|
000027A0: 30 00 BB 2F 54 06 8F 20 49 46 43 24 3C 3E 22 4E |0../T.. IFC$<>"N|
000027B0: 22 41 4E 44 43 24 3C 3E 22 59 22 00 CF 2F 5E 06 |"ANDC$<>"Y"../^.|
000027C0: 8B 20 43 24 B2 22 4E 22 20 A7 20 32 30 31 30 00 |. C$."N" . 2010.|
000027D0: D7 2F 68 06 4E B2 30 00 E0 2F 72 06 82 20 4B 31 |./h.N.0../r.. K1|
000027E0: 00 06 30 7C 06 83 41 46 47 48 41 4E 49 53 54 41 |..0|..AFGHANISTA|
000027F0: 4E 2C 4B 41 42 55 4C 2C 41 4C 42 41 4E 49 41 2C |N,KABUL,ALBANIA,|
00002800: 54 49 52 41 4E 41 00 32 30 86 06 83 41 4C 47 45 |TIRANA.20...ALGE|
00002810: 52 49 41 2C 41 4C 47 49 45 52 53 2C 41 52 47 45 |RIA,ALGIERS,ARGE|
00002820: 4E 54 49 4E 41 2C 42 55 45 4E 4F 53 20 41 49 52 |NTINA,BUENOS AIR|
00002830: 45 53 00 59 30 90 06 83 41 55 53 54 52 41 4C 49 |ES.Y0...AUSTRALI|
00002840: 41 2C 43 41 4E 42 45 52 52 41 2C 41 55 53 54 52 |A,CANBERRA,AUSTR|
00002850: 49 41 2C 56 49 45 4E 4E 41 00 80 30 9A 06 83 42 |IA,VIENNA..0...B|
00002860: 41 4E 47 4C 41 44 45 53 48 2C 44 41 43 43 41 2C |ANGLADESH,DACCA,|
00002870: 42 45 4C 47 49 55 4D 2C 42 52 55 53 53 45 4C 53 |BELGIUM,BRUSSELS|
00002880: 00 AA 30 A4 06 83 42 4F 4C 49 56 49 41 2C 53 55 |..0...BOLIVIA,SU|
00002890: 43 52 45 20 4C 41 20 50 41 5A 2C 42 52 41 5A 49 |CRE LA PAZ,BRAZI|
000028A0: 4C 2C 42 52 41 53 49 4C 49 41 00 CC 30 AE 06 83 |L,BRASILIA..0...|
000028B0: 42 55 52 4D 41 2C 52 41 4E 47 4F 4F 4E 2C 43 48 |BURMA,RANGOON,CH|
000028C0: 41 44 2C 4E 27 44 4A 41 4D 45 4E 41 00 ED 30 B8 |AD,N'DJAMENA..0.|
000028D0: 06 83 43 48 49 4C 45 2C 53 41 4E 54 49 41 47 4F |..CHILE,SANTIAGO|
000028E0: 2C 43 48 49 4E 41 2C 50 45 4B 49 4E 47 00 10 31 |,CHINA,PEKING..1|
000028F0: C2 06 83 54 41 49 57 41 4E 2C 54 41 49 50 45 49 |...TAIWAN,TAIPEI|
00002900: 2C 43 4F 4C 4F 4D 42 49 41 2C 42 4F 47 4F 54 41 |,COLOMBIA,BOGOTA|
00002910: 00 3B 31 CC 06 83 43 4F 4E 47 4F 2C 42 52 41 5A |.;1...CONGO,BRAZ|
00002920: 5A 41 56 49 4C 4C 45 2C 43 4F 53 54 41 20 52 49 |ZAVILLE,COSTA RI|
00002930: 43 41 2C 53 41 4E 20 4A 4F 53 45 00 62 31 D6 06 |CA,SAN JOSE.b1..|
00002940: 83 43 55 42 41 2C 48 41 56 41 4E 41 2C 43 5A 45 |.CUBA,HAVANA,CZE|
00002950: 43 48 4F 53 4C 4F 56 41 4B 49 41 2C 50 52 41 47 |CHOSLOVAKIA,PRAG|
00002960: 55 45 00 88 31 E0 06 83 44 45 4E 4D 41 52 4B 2C |UE..1...DENMARK,|
00002970: 43 4F 50 45 4E 48 41 47 45 4E 2C 45 43 55 41 44 |COPENHAGEN,ECUAD|
00002980: 4F 52 2C 51 55 49 54 4F 00 AF 31 EA 06 83 45 47 |OR,QUITO..1...EG|
00002990: 59 50 54 2C 43 41 49 52 4F 2C 45 54 48 49 4F 50 |YPT,CAIRO,ETHIOP|
000029A0: 49 41 2C 41 44 44 49 53 20 41 42 42 41 42 41 00 |IA,ADDIS ABBABA.|
000029B0: D2 31 F4 06 83 46 49 4E 4C 41 4E 44 2C 48 45 4C |.1...FINLAND,HEL|
000029C0: 53 49 4E 4B 49 2C 46 52 41 4E 43 45 2C 50 41 52 |SINKI,FRANCE,PAR|
000029D0: 49 53 00 F7 31 FE 06 83 57 45 53 54 20 47 45 52 |IS..1...WEST GER|
000029E0: 4D 41 4E 59 2C 42 4F 4E 4E 2C 47 52 45 45 43 45 |MANY,BONN,GREECE|
000029F0: 2C 41 54 48 45 4E 53 00 1F 32 08 07 83 48 55 4E |,ATHENS..2...HUN|
00002A00: 47 41 52 59 2C 42 55 44 41 50 45 53 54 2C 49 43 |GARY,BUDAPEST,IC|
00002A10: 45 4C 41 4E 44 2C 52 45 59 4B 4A 41 56 49 4B 00 |ELAND,REYKJAVIK.|
00002A20: 46 32 12 07 83 49 4E 44 49 41 2C 4E 45 57 20 44 |F2...INDIA,NEW D|
00002A30: 45 4C 48 49 2C 49 4E 44 4F 4E 45 53 49 41 2C 4A |ELHI,INDONESIA,J|
00002A40: 41 4B 41 52 54 41 00 67 32 1C 07 83 49 52 41 4E |AKARTA.g2...IRAN|
00002A50: 2C 54 45 48 45 52 41 4E 2C 49 52 45 4C 41 4E 44 |,TEHERAN,IRELAND|
00002A60: 2C 44 55 42 4C 49 4E 00 87 32 26 07 83 49 53 52 |,DUBLIN..2&..ISR|
00002A70: 41 45 4C 2C 54 45 4C 20 41 56 49 56 2C 49 54 41 |AEL,TEL AVIV,ITA|
00002A80: 4C 59 2C 52 4F 4D 45 00 A6 32 30 07 83 4A 41 50 |LY,ROME..20..JAP|
00002A90: 41 4E 2C 54 4F 4B 59 4F 2C 4B 45 4E 59 41 2C 4E |AN,TOKYO,KENYA,N|
00002AA0: 41 49 52 4F 42 49 00 D3 32 3A 07 83 4E 4F 52 54 |AIROBI..2:..NORT|
00002AB0: 48 20 4B 4F 52 45 41 2C 50 59 4F 4E 47 59 41 4E |H KOREA,PYONGYAN|
00002AC0: 47 2C 53 4F 55 54 48 20 4B 4F 52 45 41 2C 53 45 |G,SOUTH KOREA,SE|
00002AD0: 4F 55 4C 00 02 33 44 07 83 4C 55 58 45 4D 42 55 |OUL..3D..LUXEMBU|
00002AE0: 52 47 2C 4C 55 58 45 4D 42 55 52 47 2C 4D 41 4C |RG,LUXEMBURG,MAL|
00002AF0: 41 59 53 49 41 2C 4B 55 41 4C 41 20 4C 55 4D 50 |AYSIA,KUALA LUMP|
00002B00: 55 52 00 29 33 4E 07 83 4D 41 4C 54 41 2C 56 41 |UR.)3N..MALTA,VA|
00002B10: 4C 4C 45 54 54 41 2C 4D 45 58 49 43 4F 2C 4D 45 |LLETTA,MEXICO,ME|
00002B20: 58 49 43 4F 20 43 49 54 59 00 5B 33 58 07 83 4E |XICO CITY.[3X..N|
00002B30: 45 54 48 45 52 4C 41 4E 44 53 2C 41 4D 53 54 45 |ETHERLANDS,AMSTE|
00002B40: 52 44 41 4D 2C 4E 45 57 20 5A 45 41 4C 41 4E 44 |RDAM,NEW ZEALAND|
00002B50: 2C 57 45 4C 4C 49 4E 47 54 4F 4E 00 8C 33 62 07 |,WELLINGTON..3b.|
00002B60: 83 4E 49 47 45 52 2C 4E 49 41 4D 45 59 2C 4E 4F |.NIGER,NIAMEY,NO|
00002B70: 52 57 41 59 2C 4F 53 4C 4F 2C 50 41 4B 49 53 54 |RWAY,OSLO,PAKIST|
00002B80: 41 4E 2C 49 53 4C 41 4D 41 42 41 44 00 C1 33 6C |AN,ISLAMABAD..3l|
00002B90: 07 83 50 41 4E 41 4D 41 2C 50 41 4E 41 4D 41 2C |..PANAMA,PANAMA,|
00002BA0: 50 45 52 55 2C 4C 49 4D 41 2C 50 48 49 4C 49 50 |PERU,LIMA,PHILIP|
00002BB0: 50 49 4E 45 53 2C 51 55 45 5A 4F 4E 20 43 49 54 |PINES,QUEZON CIT|
00002BC0: 59 00 E4 33 76 07 83 50 4F 4C 41 4E 44 2C 57 41 |Y..3v..POLAND,WA|
00002BD0: 52 53 41 57 2C 50 4F 52 54 55 47 41 4C 2C 4C 49 |RSAW,PORTUGAL,LI|
00002BE0: 53 42 4F 4E 00 0A 34 80 07 83 53 49 4E 47 41 50 |SBON..4...SINGAP|
00002BF0: 4F 52 45 2C 53 49 4E 47 41 50 4F 52 45 2C 53 50 |ORE,SINGAPORE,SP|
00002C00: 41 49 4E 2C 4D 41 44 52 49 44 00 2E 34 8A 07 83 |AIN,MADRID..4...|
00002C10: 53 57 49 54 5A 45 52 4C 41 4E 44 2C 42 45 52 4E |SWITZERLAND,BERN|
00002C20: 2C 52 55 53 53 49 41 2C 4D 4F 53 43 4F 57 00 61 |,RUSSIA,MOSCOW.a|
00002C30: 34 94 07 83 47 52 45 41 54 20 42 52 49 54 41 49 |4...GREAT BRITAI|
00002C40: 4E 2C 4C 4F 4E 44 4F 4E 2C 55 4E 49 54 45 44 20 |N,LONDON,UNITED |
00002C50: 53 54 41 54 45 53 2C 57 41 53 48 49 4E 47 54 4F |STATES,WASHINGTO|
00002C60: 4E 00 8C 34 9E 07 83 59 55 47 4F 53 4C 41 56 49 |N..4...YUGOSLAVI|
00002C70: 41 2C 42 45 4C 47 52 41 44 45 2C 56 45 4E 45 5A |A,BELGRADE,VENEZ|
00002C80: 55 45 4C 41 2C 43 41 52 41 43 41 53 00 97 34 A8 |UELA,CARACAS..4.|
00002C90: 07 99 22 11 11 11 22 00 BE 34 B2 07 99 22 20 20 |.."..."..4..." |
00002CA0: 22 3B C7 28 31 38 29 3B 22 54 48 45 20 41 4E 53 |";.(18);"THE ANS|
00002CB0: 57 45 52 20 49 53 20 22 3B 42 24 28 49 29 00 C7 |WER IS ";B$(I)..|
00002CC0: 34 BC 07 8D 38 33 35 00 D1 34 C1 07 57 B2 57 AA |4...835..4..W.W.|
00002CD0: 31 00 DA 34 C6 07 82 20 4B 31 00 E5 34 D0 07 89 |1..4... K1..4...|
00002CE0: 20 31 34 31 30 00 F3 34 DA 07 99 22 93 22 3A 89 | 1410..4...".":.|
00002CF0: 33 30 30 00 07 35 E4 07 8F 20 49 4E 50 55 54 20 |300..5... INPUT |
00002D00: 52 4F 55 54 49 4E 45 00 23 35 EE 07 55 53 24 B2 |ROUTINE.#5..US$.|
00002D10: 22 22 3A 55 4C B2 33 30 3A 8D 33 35 3A 5A 24 B2 |"":UL.30:.35:Z$.|
00002D20: 55 52 24 00 3D 35 F8 07 8B 5A 24 B2 22 A0 22 A7 |UR$.=5...Z$.".".|
00002D30: 99 22 91 91 22 3B 3A 20 89 32 30 33 30 00 43 35 |."..";: .2030.C5|
00002D40: 02 08 8E 00 5A 35 0C 08 8F 20 50 41 55 53 45 20 |....Z5... PAUSE |
00002D50: 53 55 42 52 4F 55 54 49 4E 45 00 6C 35 16 08 81 |SUBROUTINE.l5...|
00002D60: 58 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 8A 35 20 |X.1.1000:.:...5 |
00002D70: 08 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D |.UL.1:US$."YN":.|
00002D80: 20 33 35 3A 43 24 B2 55 52 24 00 90 35 2A 08 8E | 35:C$.UR$..5*..|
00002D90: 00 C9 35 34 08 A1 41 41 24 3A 99 CA 28 22 20 9D |..54..AA$:..(" .|
00002DA0: 2A 9D 22 2C 28 4B AA 31 29 AC 32 AB 31 2C 32 29 |*.",(K.1).2.1,2)|
00002DB0: 3B 3A 4B B2 AB 31 AC 28 4B B2 30 29 3A 8B 41 41 |;:K..1.(K.0):.AA|
00002DC0: 24 B2 22 22 A7 32 31 30 30 00 CF 35 3E 08 8E 00 |$."".2100..5>...|
00002DD0: DE 35 C4 09 8F 20 54 49 54 4C 45 20 49 49 00 EC |.5... TITLE II..|
00002DE0: 35 C5 09 97 35 39 34 36 37 2C 31 36 00 FB 35 C6 |5...59467,16..5.|
00002DF0: 09 97 35 39 34 36 36 2C 31 35 30 00 08 36 C7 09 |..59466,150..6..|
00002E00: 81 4D 55 B2 31 A4 35 30 00 1D 36 C8 09 53 4F B2 |.MU.1.50..6..SO.|
00002E10: B5 28 BB 28 31 29 AC 32 35 35 29 AA 31 00 2B 36 |.(.(1).255).1.+6|
00002E20: C9 09 97 35 39 34 36 34 2C 53 4F 00 33 36 CA 09 |...59464,SO.36..|
00002E30: 82 4D 55 00 40 36 CB 09 97 35 39 34 36 34 2C 30 |.MU.@6...59464,0|
00002E40: 00 4D 36 CC 09 97 35 39 34 36 37 2C 30 00 53 36 |.M6...59467,0.S6|
00002E50: CD 09 8E 00 00 00 |...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` .... 6...C.. /...
'P...@...3.C.............".0...........
.3................1.........P..Z....P.P.
.RP.........1...T.P.....R......P..RP....
....... .........1.....RP........RP.....
........P....R$.""...*..UL.0.UL.80.%.-..
" ..";:.UC,0.9.2..UI$:.UI$."".50.C.7..U
I$.G(13).C(UR$)..1..UC,1:." .";:.85.V.<.
.UI$.G(20).105...>.. C(UR$)..UL.50...A..
120:. CHECK FOR VALID CHARACTER...F.UR$.
UR$.UI$.I.K..UI$;.Q.P..50...U.. +++ CHEC
K FOR HELP REQUEST +++...Z..UR$.UX$.195:
. EXIT TO HELP ROUTINE.-._..UF.1..240.:.
D.UF.0:.:..S.F.. ++ CHECK DELETE ++.D.I.
.C(UR$).1.50.|.N.UR$.H(UR$,C(UR$).1)...S
..". ..";:.50...X.. ++ CHECK FOR VALID
CHARACTERS ++.G.}..C(US$).0.150.X....US.
1.C(US$)......UI$.J(US$,US,1)...........
..UI$."":....... ** STANDARD INPUT **...
...F(UI$).46...?....UI$.G(32)...\. ..F(U
I$).48.F(UI$).57.170.B.........F(UI$).6
5.F(UI$).90.180............F(UI$).193.F(
UI$).218.UI$."":..L....B(UT).UU%.UI$.G(F
(UI$).128):..R.........UI$."":....C.UF.1
:. +++ HELP ROUTINE EXIT +++...E..250...
H..245.5.M..UQ.UB.(U2%.256.U1%.U3%.2).Q.
R.UQ%(UQ.UB).B(UQ):.:.".".D.W.UZ.1:UV%.B
(UT).M.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:U
P.UJ:UL.UK.I.Z..B(50003).0..53281,1:."."
;:.53281,6:.53280,14:.220.S....".";.....
UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.
3)......UQ,UQ%(UQ.UB):..#....U1,U1%./...
.U2,U2%.;....U4,U4%.I....U3,U3%.1.Q....3
5.....UD%.((U2%.256.U1%.U3%).UB).40:.H(U
D$,UD%.1):.......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.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-"...;..".. 1. BEGIN WORLD CAPIT
AL QUIZ"...@..".. 2. STUDENT INS
TRUCTIONS".<.E..".. 3. TEACHER I
NSTRUCTIONS".J.J..".. 4. MODIFIC
ATION OF PROGRRAM"...O..".. 5. Q
UIT.."...T.." --------------------------
------------"...Y..".. PRESS A NUM
BER KEY (1-5) ";...^.UL.1:US$."12345":.3
5:. INPUT ROUTINE.*.`.US$."":UT$." WORLD
CAPITALS".K.C..E(UR$).1000,400,500,600,
396.T.H..300.{.... ** RE-ENABLE STOP KEY
AND END **......B(50003)..1.B(50003)..1
60.B(50003)..0.399.T....UU.71:.B(50003).
0..53281,6:.53280,14......"..":.......87
5:....... ** STUDENT INSTRUCTIONS **.;..
..".":.UT,UL%:.B(50003).0..53281,0:.5328
0,0.\...UP.0:UG$."STUDENT INST":.850....
.: .".... REMEMBER TO HIT <RETURN> A
FTER".....: ." TYPING YOUR ANSWER. TH
IS TELLS"... .: ." THE COMPUTER TO AC
CEPT WHAT YOU".....: ." HAVE TYPED.."
.-...: ." TYPE <H> AT ANY TIME TO RE
TURN".Z...: ." TO THE MENU FOR HELP.
YOU WILL".....: ." BE RETURNED TO TH
E PLACE IN THE".....: ." PROGRAM WHER
E YOU LEFT OFF AS".....: ." SOON AS T
HE OPTION FROM THE MENU".....: ." IS
COMPLETE.":.835:.850.6....".. THIS PROG
RAM IS DESIGNED TO TEST YOUR.".]...." K
NOWLEDGE OF WORLD CAPITALS.."......" TH
E COMPUTER WILL RANDOMLY SELECT A.".M...
." COUNTRY 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 T
O."......" GET THE RIGHT ANSWER. IF YOU
ARE WRONG"...A.." TWICE THE COMPUTER W
ILL GIVE YOU THE"...B..". CORRECT ANSWE
R.":.835:UP.3:.850...C.."..... AFTER EV
ERY 10 QUESTIONS, A SUMMARY.".B.D.." OF
YOUR RESULTS WILL BE GIVEN AND ."...E..
" YOU WILL HAVE THE OPTION TO CONTINUE"
:.". THE QUIZ...."...F.." .GOOD LUCK.!
!!"......835.H....59468,12:UT$." WORLD C
APITALS"......UZ.1..UP%:.217............
** TEACHER INSTRUCTIONS **.3....".":.UT
,UL%:.B(50003).0..53281,2:.53280,10.U...
UP.0:UG$."TEACHER INST.":.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".....
." THIS PROGRAM IS IN THE PUBLIC.".X..
.." DOMAIN. IF THIS IS NOT THE CASE."
......" PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES.".B...."
3370 PHARMACY AVE..F...."
AGINCOURT, ONTARIO"......" C
ANADA M1W 2K4"......" (416) 4
99-4292".....UP.1:. 835:. 850:......"
..PROGRAM NAME: WORLD CAPITAL QUIZ."..
...." WRITTEN BY : JAMES DOWNER.".?
...." UPGRADED BY : ARMAND AIELLO.".
J...." .THIS PROGRAM WILL RUN ON ANY
........" PET 64 COMPUTER.......
" COMMODORE 64 COMPUTER......835
:.850......".. THIS PROGRAM IS DESIGN
ED TO TEST.".1...." THE STUDENTS ON THE
IR KNOWLEDGE OF":.". WORLD CAPITALS....
"._...." 'WORLD CAPITAL QUIZ' IS DESI
GNED ."......" FOR STUDENTS IN THE JUNI
OR TO INTER-"......". MEDIATE GRADE LEV
ELS."......835:UP.2:.850......".....
AS THE WORLD'S BORDERS AND ."......" LE
ADERS CHANGE, SO THIS PROGRAM'S .".I....
" LIST OF COUNTRIES AND THEIR CAPITALS.
".W...." MUST BE CHANGED. TO LEARN HOW
THIS ."......" CAN BE DONE, SEE THE MOD
IFICATION.".E...." SECTION OF THE MENU(
#4).".N.D..835...I..59468,12:UT$." WORLD
CAPITALS"...N..UZ.1..UP%:.217...W...2.X
.. ** PROGRAM MODIFICATION INST **.C.Y..
".":.UT,UL%.C.].UP.0:UG$."PROGRAM MOD":.
850...^.."...... THIS SECTION IS DES
IGNED TO SHOW.".A._.." THE USER THAT T
HE DATA IN THIS."...`.." PROGRAM CAN B
E CHANGED OR ADDED TO ."...A.." QUITE
EASILY. ALL THE USER HAS TO.".Q.B.."
DO IS FOLLOW THESE STEPS.":.835:UP.2:.85
0.R.C..".. .CHANGING THE DATA..."...D..
" FIND THE DATA INSTRUCTION NUMBER.".L
.E.." WHERE THE CHANGE IS NECESSARY, A
ND."...F.." AND MAKE THE CORRECTION.."
:." .EXAMPLE..".%.G.." 1830 DATA ISRA
EL,JERUSALEM".>.H.." .CHANGE TO....".Q
.I.." 1830 DATA ISRAEL,TEL AVIV":.835:
UP.3:.850...J.." ...ADDING TO THE DATA.
.".B.K.." WHEN ADDING NEW DATA TO THE
PROGRAM,."...L.." USE THE PROGRAM INST
RUCTION NUMBERS."...M.." FROM 3000 ON.
"...N..".. .EXAMPLE..".B.O.." 3001 DA
TA CANADA,OTTAWA".U.P..835:UP.4:.850.Z.
Q..".. .HOW TO ENTER THE DATA..."...R..
" 1)FIRST, ENTER THE INSTRUCTION NO.,.
".P.S.." FOLLOWED BY THE WORD DATA.."
...T.." 2)THEN THE COUNTRY, FOLLOWED B
Y A ."...U.." COMMA (,) AND FINALLY I
T'S CAPITAL..".B.V.." .EXAMPLE..".S.W..
" 3001 DATA CANADA,OTTAWA":.835:UP.5:.
850...X..".. .REMEMBER.."...Y.." FOR
EVERY NEW COUNTRY AND CAPITAL, ."...Z.."
FOR 1 TO 60 IN INSTRUCTION 1300.."...
{.." .EXAMPLE..".. |.." ONE NEW ADDIT
ION.".C }.." 1300 FOR I=0 TO 60+1":.83
5:UP.6:.850.Z ~..".. .REMEMBER..".. ..
" IF YOU ADD MORE THAN 10 CONTRIES AND
.".. ..." CAPITALS TO THE PROGRAM, RED
IMENSION.".Y ..." THE ARRAYS IN 1290..
".. ..." .EXAMPLE.."..!..." 1290 DIM
A$(70),B$(70)".'!..." .CHANGE TO....".
J!..." 1290 DIM A$(100),B$(100)".S!...
835.W!...59468,12:UT$." WORLD CAPITALS".
.!...UZ.1..UP%:.217..!.....!... ** TO US
E 8032 LOAD CBM4032 **..!F..".....BEFORE
RUNNING THIS PROGRAM ON AN 8032 ...""P
.." LOAD THE 'CBM 4032' PROGRAM....
.........".-"Z..UU.71.3"....S" .. ** T I
T L E P A G E **.."".."....";:.UT,UU%
:.B(50003).0..53280,14:.53281,6.."$..I.1
.38:."...";:..."&..I.1.22:.".....";:..M"
(..I.1.37:.".....";:..."*..I.1.22:."....
.";:...#,.."...........................
..,#..."................... . . ...M#0
.."................... . ....K#2.."....
................ ...#4.."..............
C O M M O D O R E....#6.."..............
.EDUCATIONAL...U#8.."................SOF
TWARE..#:.. ** COMMODORE LOGO **.($;..H(
UD$,24);"..........PRESS SPACE BAR OR WA
IT.":I.0.J$<..A$:.A$.." ".I.I.1:.I.250.8
28.N$>.T1$."":T2$."":T3$."":T4$."":I.0.W
$@..300..$C.. ** SPACE BAR PRESS **.H$H.
.H(UD$,24);".......PRESS SPACE BAR TO CO
NTINUE."..$L..UI$:.UI$.." ".844..$N....%
R.. ** PAGE DESIGN ROUTINE **..%T.UP.UP.
1.8%W.."."H(UT$.UP$,21);H(UG$.UP$,14);UP
.G%\.." --------------------------------
------"..%A..H(UD$,24);H(UP$,6);"HELP -
PRESS H <RETURN>"..%F.."..":..F%K.. **
PLEASE WAIT REMARK **..%P..H(UD$,24);"
ONE MOMENT PLEASE... # .&U
....&... ** SET UP VARIABLES **.J&..UX$.
"H":.UQ%(1000):UB.32768:U1.196:U2.197:U3
.198:U4.216:UC.167:UU.1024..&..UT.59468:
UU%.12:UL%.14:UP%.1146:UM.32768:. 50003,
0..&...B(50003).0.UB.1024:U1.209:U2.210:
U3.211:U4.214:UC.204:UU.2048..'...B(5000
3).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.
1024.@'..UD$."........................."
.R'..UP$."
"..'..UT$." WORLD CAPITALS ":
. PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!
!!!!***.E'.....'... ** SET VARIABLES **.
.'... A$(70):. B$(70)..'...900..(... **
CHECK FOR 8032 **.7(...".":." ":. SHIFTE
D SPACE.N(...B(UB.40)..96..700.G(... **
MEMORY CHECK **.{(... .(0).2000.937..(..
."....THIS MACHINE DOES NOT HAVE ENOUGH.
".M(..."MEMORY TO RUN THIS PROGRAM !".X(
...UU.71..(.....(..."..":.B(50003).0.962
.')... ** BASIC 2.0 OR 4.0 OR C-64 S
ETUP **.E)...1075,133:.1076,144:.1077,23
4:.1079,4:.1080,133:.1081,145..)...1091,
155:.1098,133:.1099,144:.1100,234:.1103,
133..)...1104,145:.1105,234:.1082,234.T)
...B(50003)..160.955..*...1093,88:.1094,
228:.1097,85:.1102,228:.965..*...B(50003
)..1.990.G*...1093,49:.1094,230:.1097,46
:.1102,230:.965..*B..2099,141:.2100,20:.
2101,3:.2103,8:.2104,141:.2105,21..*C..2
106,3:.2115,145:.2117,52:.2118,234:.2121
,49:.2122,141..*D..2123,20:.2124,3:.2126
,234:.2127,141:.2128,21:.2129,3..+E..UU.
48:. DISABLE STOP KEY.&+J..800:. TITLE.6
+T..300:. MENU.G+...".THE PGM WILL NOT W
ORK ON THIS MACHINE!":...+...UZ.1..UP%:.
UP%:UZ.0:. ** PROGRAM STARTS HERE **.H+.
.."..";:.:.B(50003).0..53281,6:.53280,14
..+...59468,12:UT$." WORLD CAPITALS":.".
":.875:UP.0..,... I.0 . 60..,... A$(I),B
$(I).$,(.. I.4,<.N.0:C.0:W.0.G,F.. K1.15
0 . 250.Z,P.L.(K1.4)..(K1).H,Z.I.49..(L)
.S,D.I..(I).{,N.Q.0..,S.UG$."QUESTION #"
..,X.N.N.1:. N.10 . 1565..,...59468,12:.
850..,..."....... WHAT IS THE CAPITAL O
F ":.". ";A$(I);"? ";..-...2020..-...Z
$." ".1970.(-... Z$.B$(I) . 1470.@- .Q.Q
.1:. Q..2 . 1960.M-...".. TRY AGAIN....
":W.W.1:UP.UP.1:.2060.X-... 1410..-..R..
(6..(I)).1:C.C.1..-H.. R . 1510,1520,153
0,1540,1550,1560..-R.. G(18);" CORRECT"
;.5);" GOOD WORK"..-...2060:.1650......
".. CORRECT!":. 835:.1650./....".. RIG
HT!":.835:.1650.N....".. CORRECT!":.835
:.1650.K....".. RIGHT!":.835:.1650.....
.".. CORRECT!":.835:.1650......".. RIG
HT!":.835:.1650.....UG$."RESULT":UP.UP.1
:.850 SC.E IS ";C;" C.RECT ";W;" W
R.G.".!/...".... YOUR SCORE IS ";C;"COR
RECT ";W;"WRONG.".</...". YOUR RATING I
S ";.^/"...((C.(C.W).100).10..5).10"%".I
/6.. 2060../@.."... DO YOU WANT TO CONT
INUE? (Y/N) ";../J.. 2080../T.. IFC$<>"N
"ANDC$<>"Y".O/^.. C$."N" . 2010.W/H.N.0.
./R.. K1..0|..AFGHANISTAN,KABUL,ALBANIA,
TIRANA.20...ALGERIA,ALGIERS,ARGENTINA,BU
ENOS AIRES.Y0...AUSTRALIA,CANBERRA,AUSTR
IA,VIENNA..0...BANGLADESH,DACCA,BELGIUM,
BRUSSELS..0...BOLIVIA,SUCRE LA PAZ,BRAZI
L,BRASILIA.L0...BURMA,RANGOON,CHAD,N'DJA
MENA..0...CHILE,SANTIAGO,CHINA,PEKING..1
B..TAIWAN,TAIPEI,COLOMBIA,BOGOTA.;1L..CO
NGO,BRAZZAVILLE,COSTA RICA,SAN JOSE.B1V.
.CUBA,HAVANA,CZECHOSLOVAKIA,PRAGUE..1...
DENMARK,COPENHAGEN,ECUADOR,QUITO..1...EG
YPT,CAIRO,ETHIOPIA,ADDIS ABBABA.R1...FIN
LAND,HELSINKI,FRANCE,PARIS..1...WEST GER
MANY,BONN,GREECE,ATHENS..2...HUNGARY,BUD
APEST,ICELAND,REYKJAVIK.F2...INDIA,NEW D
ELHI,INDONESIA,JAKARTA.G2...IRAN,TEHERAN
,IRELAND,DUBLIN..2&..ISRAEL,TEL AVIV,ITA
LY,ROME..20..JAPAN,TOKYO,KENYA,NAIROBI.S
2:..NORTH KOREA,PYONGYANG,SOUTH KOREA,SE
OUL..3D..LUXEMBURG,LUXEMBURG,MALAYSIA,KU
ALA LUMPUR.)3N..MALTA,VALLETTA,MEXICO,ME
XICO CITY.[3X..NETHERLANDS,AMSTERDAM,NEW
ZEALAND,WELLINGTON..3B..NIGER,NIAMEY,NO
RWAY,OSLO,PAKISTAN,ISLAMABAD.A3L..PANAMA
,PANAMA,PERU,LIMA,PHILIPPINES,QUEZON CIT
Y..3V..POLAND,WARSAW,PORTUGAL,LISBON..4.
..SINGAPORE,SINGAPORE,SPAIN,MADRID..4...
SWITZERLAND,BERN,RUSSIA,MOSCOW.A4...GREA
T BRITAIN,LONDON,UNITED STATES,WASHINGTO
N..4...YUGOSLAVIA,BELGRADE,VENEZUELA,CAR
ACAS..4..."..."..4..." ";G(18);"THE ANS
WER IS ";B$(I).G4...835.Q4A.W.W.1.Z4F..
K1..4P.. 1410..4Z..".":.300..5... INPUT
ROUTINE.#5..US$."":UL.30:.35:Z$.UR$.=5..
.Z$." ".."..";: .2030.C5....Z5... PAUSE
SUBROUTINE.L5...X.1.1000:.:...5 .UL.1:US
$."YN":. 35:C$.UR$..5*...I54..AA$:.J(" .
*.",(K.1).2.1,2);:K..1.(K.0):.AA$."".210
0.O5>....5D.. TITLE II..5E..59467,16..5F
..59466,150..6G..MU.1.50..6H.SO..(.(1).2
55).1.+6I..59464,SO.36J..MU.@6K..59464,0
.M6L..59467,0.S6M.....
> CLICK IMAGE PREVIEW FOR FULL MODAL