STATES & CAP.C3
FILE INFORMATION
FILENAME(S): STATES & CAP.C3
FILE TYPE(S): PRG
FILE SIZE: 10.9K
FIRST SEEN: 2025-11-02 16:39:39
APPEARS ON: 1 disk(s)
FILE HASH
96bf3dc4c3a70701fbd57b11e5923c30ba7be97727f4c0d9d72805fb592184b3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 012A | STATES & CAP.C3 | PRG | Treasure Chest - Plattfuss | 4 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C9 08 0A 00 8F 2D 2D 2D |TINE **......---|
000000B0: 47 45 4E 4E FF FF FF 00 D2 FF E0 EE ED FF FF D0 |GENN............|
000000C0: EE FF D2 D0 FF 0B 0B 0B 0A FF B0 FF F0 FF 00 FF |................|
000000D0: AE FF 72 FF 00 FF B6 FF 70 FF 00 FF 02 FF F0 FF |..r.....p.......|
000000E0: 31 0B 0B 0B 0B 0A D2 D0 E0 EE ED 00 FF FF F0 E0 |1...............|
000000F0: D2 D0 DD 0B 0B 0B 0B 0A FF FA F3 02 FF FF 20 20 |.............. |
00000100: 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 21 09 |UR$."":UI$."".!.|
00000110: 2A 00 3A 20 20 8B 20 55 4C B2 30 A7 55 4C B2 38 |*.: . UL.0.UL.8|
00000120: 30 00 34 09 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 |0.4.-.." ..";:.|
00000130: 55 43 2C 30 00 4B 09 32 00 3A 20 20 A1 55 49 24 |UC,0.K.2.: .UI$|
00000140: 3A 8B 55 49 24 B2 22 22 A7 35 30 00 78 09 37 00 |:.UI$."".50.x.7.|
00000150: 3A 20 20 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 |: .UI$..(13)..(|
00000160: 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 |UR$)..1..UC,1:."|
00000170: 20 9D 22 3B 3A 89 38 35 00 8E 09 3C 00 3A 20 20 | .";:.85...<.: |
00000180: 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 A6 |.UI$..(20).105..|
00000190: 09 3E 00 3A 20 20 8B 20 C3 28 55 52 24 29 B2 B1 |.>.: . .(UR$)..|
000001A0: 55 4C 20 A7 35 30 00 CE 09 41 00 3A 20 20 8D 31 |UL .50...A.: .1|
000001B0: 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 |20:. CHECK FOR V|
000001C0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 E1 |ALID CHARACTER..|
000001D0: 09 46 00 3A 20 20 55 52 24 B2 55 52 24 AA 55 49 |.F.: UR$.UR$.UI|
000001E0: 24 00 EE 09 4B 00 3A 20 20 99 55 49 24 3B 00 F9 |$...K.: .UI$;..|
000001F0: 09 50 00 3A 20 20 89 35 30 00 1F 0A 55 00 8F 2D |.P.: .50...U..-|
00000200: 2D 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 20 48 45 |----CHECK FOR HE|
00000210: 4C 50 20 52 45 51 55 45 53 54 2D 2D 2D 2D 2D 00 |LP REQUEST-----.|
00000220: 4A 0A 5A 00 3A 20 20 8B 55 52 24 B2 55 58 24 A7 |J.Z.: .UR$.UX$.|
00000230: 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 |195:. EXIT TO HE|
00000240: 4C 50 20 52 4F 55 54 49 4E 45 00 5C 0A 5F 00 3A |LP ROUTINE.\._.:|
00000250: 20 20 8B 55 46 B2 31 A7 8D 32 34 30 00 6B 0A 64 | .UF.1..240.k.d|
00000260: 00 3A 20 55 46 B2 30 3A 99 3A 8E 00 87 0A 66 00 |.: UF.0:.:....f.|
00000270: 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 44 45 4C 45 |.-----CHECK DELE|
00000280: 54 45 2D 2D 2D 2D 2D 00 9A 0A 69 00 3A 20 8B C3 |TE-----...i.: ..|
00000290: 28 55 52 24 29 B3 31 A7 35 30 00 B4 0A 6E 00 3A |(UR$).1.50...n.:|
000002A0: 20 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 | UR$..(UR$,.(UR$|
000002B0: 29 AB 31 29 00 C8 0A 73 00 3A 20 99 22 9D 20 20 |).1)...s.: .". |
000002C0: 9D 9D 22 3B 3A 89 35 30 00 F2 0A 78 00 8F 2D 2D |..";:.50...x..--|
000002D0: 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |---CHECK FOR VAL|
000002E0: 49 44 20 43 48 41 52 41 43 54 45 52 53 2D 2D 2D |ID CHARACTERS---|
000002F0: 2D 2D 00 07 0B 7D 00 3A 20 20 8B C3 28 55 53 24 |--...}.: ..(US$|
00000300: 29 B2 30 A7 31 35 30 00 1B 0B 82 00 3A 20 20 81 |).0.150.....: .|
00000310: 55 53 B2 31 A4 C3 28 55 53 24 29 00 37 0B 87 00 |US.1..(US$).7...|
00000320: 3A 20 20 20 20 8B 55 49 24 B2 CA 28 55 53 24 2C |: .UI$..(US$,|
00000330: 55 53 2C 31 29 A7 8E 00 40 0B 8C 00 3A 20 20 82 |US,1)...@...: .|
00000340: 00 50 0B 91 00 3A 20 20 55 49 24 B2 22 22 3A 8E |.P...: UI$."":.|
00000350: 00 6E 0B 96 00 8F 2D 2D 2D 2D 2D 53 54 41 4E 44 |.n....-----STAND|
00000360: 41 52 44 20 49 4E 50 55 54 2D 2D 2D 2D 2D 00 83 |ARD INPUT-----..|
00000370: 0B 98 00 3A 20 20 8B C6 28 55 49 24 29 B2 34 36 |...: ..(UI$).46|
00000380: A7 20 8E 00 98 0B 9B 00 3A 20 20 8B 55 49 24 B2 |. ......: .UI$.|
00000390: C7 28 33 32 29 A7 20 8E 00 BA 0B A0 00 3A 20 20 |.(32). ......: |
000003A0: 8B C6 28 55 49 24 29 B3 34 38 20 B0 20 C6 28 55 |..(UI$).48 . .(U|
000003B0: 49 24 29 B1 35 37 A7 31 37 30 00 C3 0B A5 00 3A |I$).57.170.....:|
000003C0: 20 20 8E 00 E5 0B AA 00 3A 20 20 8B C6 28 55 49 | ......: ..(UI|
000003D0: 24 29 B3 36 35 20 B0 20 C6 28 55 49 24 29 B1 39 |$).65 . .(UI$).9|
000003E0: 30 A7 31 38 30 00 EE 0B AF 00 3A 20 20 8E 00 17 |0.180.....: ...|
000003F0: 0C B4 00 3A 20 20 8B C6 28 55 49 24 29 B3 31 39 |...: ..(UI$).19|
00000400: 33 20 B0 20 C6 28 55 49 24 29 B1 32 31 38 A7 55 |3 . .(UI$).218.U|
00000410: 49 24 B2 22 22 3A 8E 00 45 0C B9 00 3A 20 20 8B |I$."":..E...: .|
00000420: C2 28 55 54 29 B2 31 32 B0 C2 28 55 54 29 B2 32 |.(UT).12..(UT).2|
00000430: 31 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 |1.UI$..(.(UI$).1|
00000440: 32 38 29 3A 8E 00 4E 0C BB 00 3A 20 20 8E 00 5E |28):..N...: ..^|
00000450: 0C BE 00 3A 20 20 55 49 24 B2 22 22 3A 8E 00 87 |...: UI$."":...|
00000460: 0C C3 00 3A 20 20 55 46 B2 31 3A 8F 2D 2D 2D 2D |...: UF.1:.----|
00000470: 2D 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 |-HELP ROUTINE EX|
00000480: 49 54 2D 2D 2D 2D 2D 00 93 0C C5 00 3A 20 20 8D |IT-----.....: .|
00000490: 32 35 30 00 9F 0C C8 00 3A 20 20 8D 32 34 35 00 |250.....: .245.|
000004A0: C1 0C CD 00 3A 20 20 81 55 51 B2 55 42 A4 28 55 |....: .UQ.UB.(U|
000004B0: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 |2%.256.U1%.U3%.2|
000004C0: 29 00 E0 0C D2 00 3A 20 20 55 51 25 28 55 51 AB |).....: UQ%(UQ.|
000004D0: 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 |UB)..(UQ):.:."."|
000004E0: 00 F6 0C D7 00 3A 20 20 55 5A B2 31 3A 55 56 25 |.....: UZ.1:UV%|
000004F0: B2 C2 28 55 54 29 00 02 0D D8 00 3A 20 20 89 33 |..(UT).....: .3|
00000500: 30 30 00 27 0D D9 00 55 5A B2 30 3A 55 53 24 B2 |00.'...UZ.0:US$.|
00000510: 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 |UJ$:UG$.UK$:UP.U|
00000520: 4A 3A 55 4C B2 55 4B 00 5E 0D DA 00 8B C2 28 35 |J:UL.UK.^.....(5|
00000530: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 |0003).0..53281,1|
00000540: 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A |:.".";:.53281,6:|
00000550: 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 68 |.53280,14:.220.h|
00000560: 0D DB 00 99 22 93 22 3B 00 97 0D DC 00 55 54 24 |....".";.....UT$|
00000570: B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 |.UL$:.UT,UV%:.UQ|
00000580: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
00000590: AA 55 33 25 AB 33 29 00 AF 0D E1 00 3A 20 20 97 |.U3%.3).....: .|
000005A0: 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 |UQ,UQ%(UQ.UB):..|
000005B0: BE 0D E6 00 3A 20 20 97 55 31 2C 55 31 25 00 CD |....: .U1,U1%..|
000005C0: 0D E8 00 3A 20 20 97 55 32 2C 55 32 25 00 DC 0D |...: .U2,U2%...|
000005D0: E9 00 3A 20 20 97 55 34 2C 55 34 25 00 ED 0D EA |..: .U4,U4%....|
000005E0: 00 3A 20 20 97 55 33 2C 55 33 25 AB 31 00 F8 0D |.: .U3,U3%.1...|
000005F0: EB 00 3A 20 20 89 33 35 00 2D 0E F0 00 3A 20 20 |..: .35.-...: |
00000600: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000610: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000620: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 6B 0E |(UD$,UD%.1):..k.|
00000630: F5 00 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 3B |..: ..(UD$,24);|
00000640: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000650: 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F | . HELP CO|
00000660: 4D 49 4E 47 20 92 20 20 22 3A 8E 00 9A 0E FA 00 |MING . ":......|
00000670: 3A 20 20 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |: U1%..(U1):U2%|
00000680: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
00000690: 3A 55 34 25 B2 C2 28 55 34 29 00 AC 0E FB 00 55 |:U4%..(U4).....U|
000006A0: 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 CF 0E FC |J$.US$:UJ.UL....|
000006B0: 00 3A 20 20 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |.: UJ$.US$:UK$.|
000006C0: 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UG$:UJ.UP:UK.UL.|
000006D0: D8 0E FF 00 3A 20 20 8E 00 EC 0E 2C 01 8F 2D 2D |....: ....,..--|
000006E0: 2D 2D 2D 4D 45 4E 55 2D 2D 2D 2D 2D 00 F2 0E 2D |---MENU-----...-|
000006F0: 01 3A 00 24 0F 2E 01 3A 20 20 99 22 93 22 3A 97 |.:.$...: .".":.|
00000700: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000710: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000720: 38 30 2C 38 00 2A 0F 2F 01 3A 00 4A 0F 31 01 3A |80,8.*./.:.J.1.:|
00000730: 20 20 99 22 93 20 20 20 20 20 20 20 20 20 20 20 | .". |
00000740: 20 20 20 20 20 4D 45 4E 55 22 00 7C 0F 36 01 3A | MENU".|.6.:|
00000750: 20 20 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ." -----------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AD 0F 3B |-----------"...;|
00000780: 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 31 |.: .".. 1|
00000790: 2E 20 20 20 53 54 41 54 45 53 20 41 4E 44 20 43 |. STATES AND C|
000007A0: 41 50 49 54 41 4C 53 20 51 55 49 5A 22 00 DA 0F |APITALS QUIZ"...|
000007B0: 40 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 |@.: .".. |
000007C0: 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 |2. STUDENT INS|
000007D0: 54 52 55 43 54 49 4F 4E 53 22 00 07 10 45 01 3A |TRUCTIONS"...E.:|
000007E0: 20 20 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 | .".. 3. |
000007F0: 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 | TEACHER INSTRU|
00000800: 43 54 49 4F 4E 53 22 00 26 10 4F 01 3A 20 20 99 |CTIONS".&.O.: .|
00000810: 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 |".. 4. Q|
00000820: 55 49 54 11 11 22 00 58 10 54 01 3A 20 20 99 22 |UIT..".X.T.: ."|
00000830: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000850: 2D 2D 2D 2D 2D 2D 2D 22 00 86 10 59 01 3A 20 20 |-------"...Y.: |
00000860: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
00000870: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
00000880: 2D 34 29 20 22 3B 00 B6 10 5E 01 3A 20 20 55 4C |-4) ";...^.: UL|
00000890: B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 |.1:US$."1234":.3|
000008A0: 35 3A 8F 2D 2D 2D 49 4E 50 55 54 20 52 4F 55 54 |5:.---INPUT ROUT|
000008B0: 49 4E 45 2D 2D 2D 00 CB 10 5F 01 3A 20 20 8B C3 |INE---..._.: ..|
000008C0: 28 55 52 24 29 B1 31 A7 33 30 30 00 D9 10 60 01 |(UR$).1.300...`.|
000008D0: 3A 20 20 55 53 24 B2 22 22 00 F9 10 63 01 3A 20 |: US$.""...c.: |
000008E0: 20 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 | ..(UR$).1000,40|
000008F0: 30 2C 35 30 30 2C 33 39 36 00 05 11 68 01 3A 20 |0,500,396...h.: |
00000900: 20 89 33 30 30 00 2F 11 8B 01 8F 2D 2D 2D 2D 2D | .300./....-----|
00000910: 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B |RE-ENABLE STOP K|
00000920: 45 59 20 41 4E 44 20 45 4E 44 2D 2D 2D 2D 2D 00 |EY AND END-----.|
00000930: 61 11 8C 01 3A 20 20 8B C2 28 35 30 30 30 33 29 |a...: ..(50003)|
00000940: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000950: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000960: 39 00 8E 11 8D 01 3A 20 20 9E 55 55 AA 37 31 3A |9.....: .UU.71:|
00000970: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000980: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 9D |81,6:.53280,14..|
00000990: 11 8E 01 3A 20 20 99 22 9A 93 22 3A 80 00 AB 11 |...: ."..":....|
000009A0: 8F 01 3A 20 20 8D 38 37 35 3A 8E 00 CF 11 90 01 |..: .875:......|
000009B0: 8F 2D 2D 2D 2D 2D 53 54 55 44 45 4E 54 20 49 4E |.-----STUDENT IN|
000009C0: 53 54 52 55 43 54 49 4F 4E 53 2D 2D 2D 2D 2D 00 |STRUCTIONS-----.|
000009D0: 01 12 95 01 3A 20 20 99 22 93 22 3A 97 55 54 2C |....: .".":.UT,|
000009E0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000009F0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
00000A00: 30 00 1D 12 9A 01 55 50 B2 30 3A 55 47 24 B2 22 |0.....UP.0:UG$."|
00000A10: D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 00 2C 12 |.TUDENT .NST".,.|
00000A20: 9B 01 8D 31 30 32 30 3A 8D 38 35 30 00 5D 12 9C |...1020:.850.]..|
00000A30: 01 3A 20 20 99 22 11 11 11 11 20 20 20 20 D2 45 |.: .".... .E|
00000A40: 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 20 3C 52 |MEMBER TO HIT <R|
00000A50: 45 54 55 52 4E 3E 20 41 46 54 45 52 22 00 89 12 |ETURN> AFTER"...|
00000A60: 9E 01 3A 20 20 99 22 20 20 20 54 59 50 49 4E 47 |..: ." TYPING|
00000A70: 20 59 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 | YOUR ANSWER. .H|
00000A80: 49 53 20 54 45 4C 4C 53 22 00 B6 12 A0 01 3A 20 |IS TELLS".....: |
00000A90: 20 99 22 20 20 20 54 48 45 20 43 4F 4D 50 55 54 | ." THE COMPUT|
00000AA0: 45 52 20 54 4F 20 41 43 43 45 50 54 20 57 48 41 |ER TO ACCEPT WHA|
00000AB0: 54 20 59 4F 55 22 00 D0 12 A2 01 3A 20 20 99 22 |T YOU".....: ."|
00000AC0: 20 20 20 48 41 56 45 20 54 59 50 45 44 2E 11 22 | HAVE TYPED.."|
00000AD0: 00 FD 12 A4 01 3A 20 20 99 22 20 20 20 20 D4 59 |.....: ." .Y|
00000AE0: 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 54 49 |PE <H> AT ANY TI|
00000AF0: 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 00 2A 13 |ME TO RETURN".*.|
00000B00: A6 01 3A 20 20 99 22 20 20 20 54 4F 20 54 48 45 |..: ." TO THE|
00000B10: 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 | MENU FOR HELP. |
00000B20: 20 D9 4F 55 20 57 49 4C 4C 22 00 57 13 A8 01 3A | .OU WILL".W...:|
00000B30: 20 20 99 22 20 20 20 42 45 20 52 45 54 55 52 4E | ." BE RETURN|
00000B40: 45 44 20 54 4F 20 54 48 45 20 50 4C 41 43 45 20 |ED TO THE PLACE |
00000B50: 49 4E 20 54 48 45 22 00 82 13 AA 01 3A 20 20 99 |IN THE".....: .|
00000B60: 22 20 20 20 50 52 4F 47 52 41 4D 20 57 48 45 52 |" PROGRAM WHER|
00000B70: 45 20 59 4F 55 20 4C 45 46 54 20 4F 46 46 20 41 |E YOU LEFT OFF A|
00000B80: 53 22 00 B0 13 AC 01 3A 20 20 99 22 20 20 20 53 |S".....: ." S|
00000B90: 4F 4F 4E 20 41 53 20 54 48 45 20 4F 50 54 49 4F |OON AS THE OPTIO|
00000BA0: 4E 20 46 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 |N FROM THE MENU"|
00000BB0: 00 CA 13 AE 01 3A 20 20 99 22 20 20 20 49 53 20 |.....: ." IS |
00000BC0: 43 4F 4D 50 4C 45 54 45 2E 22 00 D6 13 E5 01 3A |COMPLETE.".....:|
00000BD0: 20 20 8D 38 33 35 00 ED 13 EA 01 3A 20 20 8B 55 | .835.....: .U|
00000BE0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 F6 13 |Z.1..UP%:.217...|
00000BF0: F3 01 3A 20 20 8E 00 1A 14 F4 01 8F 2D 2D 2D 2D |..: .......----|
00000C00: 2D 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 |-TEACHER INSTRUC|
00000C10: 54 49 4F 4E 53 2D 2D 2D 2D 2D 00 4D 14 F5 01 3A |TIONS-----.M...:|
00000C20: 20 20 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B | .".":.UT,UL%:.|
00000C30: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000C40: 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 72 14 |1,2:.53280,10.r.|
00000C50: F6 01 3A 20 20 55 50 B2 30 3A 55 47 24 B2 22 D4 |..: UP.0:UG$.".|
00000C60: 45 41 43 48 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 |EACHER .NST.":.8|
00000C70: 35 30 00 A3 14 F7 01 3A 20 20 99 22 11 11 20 20 |50.....: .".. |
00000C80: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000C90: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000CA0: 2C 11 22 00 CF 14 F8 01 3A 20 20 99 22 20 20 20 |,.".....: ." |
00000CB0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000CC0: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000CD0: FE 14 F9 01 3A 20 20 99 22 20 20 20 44 4F 4D 41 |....: ." DOMA|
00000CE0: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000CF0: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 1E |NOT THE CASE."..|
00000D00: 15 FA 01 3A 20 20 99 22 20 20 20 50 4C 45 41 53 |...: ." PLEAS|
00000D10: 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 4B |E CONTACT:...".K|
00000D20: 15 FB 01 3A 20 20 99 22 20 20 20 20 20 20 C3 4F |...: ." .O|
00000D30: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
00000D40: 20 CD 41 43 48 49 4E 45 53 11 22 00 71 15 FC 01 | .ACHINES.".q...|
00000D50: 3A 20 20 99 22 20 20 20 20 20 20 20 20 20 20 33 |: ." 3|
00000D60: 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 |370 .HARMACY .VE|
00000D70: 2E 00 98 15 FD 01 3A 20 20 99 22 20 20 20 20 20 |......: ." |
00000D80: 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 | .GINCOURT, |
00000D90: CF 4E 54 41 52 49 4F 22 00 BD 15 FE 01 3A 20 20 |.NTARIO".....: |
00000DA0: 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 |." .ANA|
00000DB0: 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 E0 15 |DA .1. 2.4"...|
00000DC0: FF 01 3A 20 20 99 22 20 20 20 20 20 20 20 20 20 |..: ." |
00000DD0: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000DE0: 00 F6 15 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:|
00000DF0: 8D 20 38 35 30 3A 00 24 16 01 02 99 22 20 20 20 |. 850:.$...." |
00000E00: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000E10: 3A 20 D3 54 41 54 45 53 20 26 20 43 41 50 49 54 |: .TATES & CAPIT|
00000E20: 41 4C 53 11 00 46 16 02 02 99 22 20 20 20 20 20 |ALS..F...." |
00000E30: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E |.RITTEN .Y : .N|
00000E40: 4B 4E 4F 57 4E 11 00 6D 16 03 02 99 22 20 20 20 |KNOWN..m...." |
00000E50: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00000E60: D4 4F 42 59 20 D7 41 4C 4B 45 52 11 22 00 98 16 |.OBY .ALKER."...|
00000E70: 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 |..." ..HIS P|
00000E80: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 |ROGRAM WILL RUN |
00000E90: 4F 4E 20 41 4E 59 11 11 00 B8 16 07 02 99 22 20 |ON ANY........" |
00000EA0: 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 | ... 64 .|
00000EB0: CF CD D0 D5 D4 C5 D2 11 00 DD 16 08 02 99 22 20 |.............." |
00000EC0: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........|
00000ED0: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 F5 16 |. 64 ...........|
00000EE0: 44 02 3A 20 20 8D 38 33 35 3A 8D 38 35 30 3A 8D |D.: .835:.850:.|
00000EF0: 31 30 30 30 30 00 0C 17 4E 02 3A 20 20 8B 55 5A |10000...N.: .UZ|
00000F00: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 15 17 57 |.1..UP%:.217...W|
00000F10: 02 3A 20 20 8E 00 3E 17 58 02 8F 2D 2D 2D 2D 2D |.: ..>.X..-----|
00000F20: 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 |PROGRAM MODIFICA|
00000F30: 54 49 4F 4E 20 49 4E 53 54 2D 2D 2D 2D 2D 00 52 |TION INST-----.R|
00000F40: 17 59 02 3A 20 20 99 22 93 22 3A 97 55 54 2C 55 |.Y.: .".":.UT,U|
00000F50: 4C 25 00 75 17 5D 02 3A 20 20 55 50 B2 30 3A 55 |L%.u.].: UP.0:U|
00000F60: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
00000F70: 3A 8D 38 35 30 00 81 17 94 02 3A 20 20 8D 38 33 |:.850.....: .83|
00000F80: 35 00 98 17 B2 02 3A 20 20 8B 55 5A B2 31 A7 9E |5.....: .UZ.1..|
00000F90: 55 50 25 3A 89 32 31 37 00 A1 17 BB 02 3A 20 20 |UP%:.217.....: |
00000FA0: 8E 00 C9 17 BC 02 8F 2D 2D 2D 2D 2D 54 4F 20 55 |.......-----TO U|
00000FB0: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
00000FC0: 34 30 33 32 2D 2D 2D 2D 2D 00 FF 17 C6 02 99 22 |4032-----......"|
00000FD0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
00000FE0: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
00000FF0: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
00001000: 35 18 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |5...." LOAD|
00001010: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001020: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001030: 11 11 11 11 22 00 43 18 DA 02 3A 20 20 9E 55 55 |....".C...: .UU|
00001040: AA 37 31 00 4C 18 E4 02 3A 20 20 80 00 6C 18 20 |.71.L...: ..l. |
00001050: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E |
00001060: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 A0 18 22 | P A G E **..."|
00001070: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU|
00001080: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00001090: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6|
000010A0: 00 B6 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 |...$..I.1.38:.".|
000010B0: A6 92 22 3B 3A 82 00 CE 18 26 03 81 49 B2 31 A4 |..";:....&..I.1.|
000010C0: 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 E6 |22:.".....";:...|
000010D0: 18 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 |.(..I.1.37:."...|
000010E0: A6 92 22 3B 3A 82 00 FE 18 2A 03 81 49 B2 31 A4 |..";:....*..I.1.|
000010F0: 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 23 |22:.".....";:..#|
00001100: 19 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |.,.."...........|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 |................|
00001120: 20 20 92 00 45 19 2E 03 99 22 1D 1D 1D 1D 1D 1D | ..E...."......|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00001140: 20 12 20 92 A9 00 66 19 30 03 99 22 1D 1D 1D 1D | . ...f.0.."....|
00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00001160: 92 20 20 12 A3 DF 00 84 19 32 03 99 22 1D 1D 1D |. ......2.."...|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF |................|
00001180: 12 20 20 92 00 AC 19 34 03 99 22 11 11 1D 1D 1D |. ....4..".....|
00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D |.........C O M M|
000011A0: 20 4F 20 44 20 4F 20 52 20 45 11 11 00 CF 19 36 | O D O R E.....6|
000011B0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000011C0: 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 |..EDUCATIONAL...|
000011D0: EE 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..8.."..........|
000011E0: 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 09 |......SOFTWARE..|
000011F0: 1A 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 |.:.. ** COMMODOR|
00001200: 45 20 4C 4F 47 4F 20 2A 2A 00 41 1A 3B 03 99 C8 |E LOGO **.A.;...|
00001210: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001220: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001230: 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 |BAR OR WAIT.":I.|
00001240: 30 00 63 1A 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0.c.<..A$:.A$.."|
00001250: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
00001260: 38 32 38 00 8A 1A 3E 03 3A 20 20 54 31 24 B2 22 |828...>.: T1$."|
00001270: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00001280: 54 34 24 B2 22 22 3A 49 B2 30 00 96 1A 40 03 3A |T4$."":I.0...@.:|
00001290: 20 20 89 33 30 30 00 B5 1A 43 03 8F 2D 2D 2D 2D | .300...C..----|
000012A0: 2D 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 |-SPACE BAR PRESS|
000012B0: 2D 2D 2D 2D 2D 00 ED 1A 48 03 3A 20 20 99 C8 28 |-----...H.: ..(|
000012C0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
000012D0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
000012E0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 07 1B |TO CONTINUE."...|
000012F0: 4C 03 3A 20 20 A1 55 49 24 3A 8B 55 49 24 B3 B1 |L.: .UI$:.UI$..|
00001300: 22 20 22 A7 38 34 34 00 10 1B 4E 03 3A 20 20 8E |" ".844...N.: .|
00001310: 00 33 1B 52 03 8F 2D 2D 2D 2D 2D 50 41 47 45 20 |.3.R..-----PAGE |
00001320: 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 2D 2D |DESIGN ROUTINE--|
00001330: 2D 2D 2D 00 42 1B 54 03 3A 20 20 55 50 B2 55 50 |---.B.T.: UP.UP|
00001340: AA 31 00 6C 1B 57 03 3A 20 20 99 22 93 22 C8 28 |.1.l.W.: .".".(|
00001350: 55 54 24 AA 55 50 24 2C 32 31 29 3B C8 28 55 47 |UT$.UP$,21);.(UG|
00001360: 24 AA 55 50 24 2C 31 34 29 3B 55 50 00 9E 1B 5C |$.UP$,14);UP...\|
00001370: 03 3A 20 20 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.: ." ---------|
00001380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D5 |-------------"..|
000013A0: 1B 61 03 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 |.a.: ..(UD$,24)|
000013B0: 3B C8 28 55 50 24 2C 36 29 3B 22 48 45 4C 50 20 |;.(UP$,6);"HELP |
000013C0: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
000013D0: 55 52 4E 3E 22 00 E4 1B 66 03 3A 20 20 99 22 13 |URN>"...f.: .".|
000013E0: 11 22 3A 8E 00 06 1C 6B 03 8F 2D 2D 2D 2D 2D 50 |.":....k..-----P|
000013F0: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001400: 4B 2D 2D 2D 2D 2D 00 3F 1C 70 03 3A 20 20 99 C8 |K-----.?.p.: ..|
00001410: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00001420: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT |
00001430: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".|
00001440: 48 1C 75 03 3A 20 20 8E 00 68 1C 84 03 8F 2D 2D |H.u.: ..h....--|
00001450: 2D 2D 2D 53 45 54 20 55 50 20 56 41 52 49 41 42 |---SET UP VARIAB|
00001460: 4C 45 53 2D 2D 2D 2D 2D 00 B6 1C 85 03 3A 20 20 |LES-----.....: |
00001470: 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 |UX$."H":.UQ%(100|
00001480: 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 |0):UB.32768:U1.1|
00001490: 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 |96:U2.197:U3.198|
000014A0: 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 |:U4.216:UC.167:U|
000014B0: 55 B2 31 30 32 34 00 EF 1C 86 03 3A 20 20 55 54 |U.1024.....: UT|
000014C0: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
000014D0: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
000014E0: B2 33 32 37 36 38 3A 97 35 30 30 30 33 2C 30 00 |.32768:.50003,0.|
000014F0: 32 1D 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |2.....(50003).0.|
00001500: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
00001510: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
00001520: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
00001530: 34 38 00 6A 1D 88 03 8B C2 28 35 30 30 30 33 29 |48.j.....(50003)|
00001540: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
00001550: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
00001560: 33 39 3A 55 4D B2 31 30 32 34 00 91 1D 89 03 3A |39:UM.1024.....:|
00001570: 20 20 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 | UD$.".........|
00001580: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001590: 22 00 C6 1D 8A 03 3A 20 20 55 50 24 B2 22 20 20 |".....: UP$." |
000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015C0: 20 20 20 20 20 22 00 10 1E 8B 03 3A 20 20 55 54 | ".....: UT|
000015D0: 24 B2 22 20 D3 54 41 54 45 53 20 26 20 C3 41 50 |$." .TATES & .AP|
000015E0: 49 54 41 4C 53 A0 22 3A 8F 20 50 4C 41 43 45 20 |ITALS.":. PLACE |
000015F0: 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 |PROGRAM TITLE HE|
00001600: 52 45 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A |RE!!!!!!!!!!!***|
00001610: 00 19 1E 8C 03 3A 20 20 8E 00 36 1E 8E 03 8F 2D |.....: ..6....-|
00001620: 2D 2D 2D 2D 53 45 54 20 56 41 52 49 41 42 4C 45 |----SET VARIABLE|
00001630: 53 2D 2D 2D 2D 2D 00 5A 1E 8F 03 4D 58 B2 35 31 |S-----.Z...MX.51|
00001640: 3A 86 41 28 4D 58 29 2C 42 28 34 29 2C 43 24 28 |:.A(MX),B(4),C$(|
00001650: 4D 58 29 2C 53 24 28 4D 58 29 00 66 1E 93 03 3A |MX),S$(MX).f...:|
00001660: 20 20 8D 39 30 30 00 6C 1E 95 03 3A 00 8A 1E 98 | .900.l...:....|
00001670: 03 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 |..-----CHECK FOR|
00001680: 20 38 30 33 32 2D 2D 2D 2D 2D 00 AB 1E 9D 03 3A | 8032-----.....:|
00001690: 20 20 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 | .".":.".":. SH|
000016A0: 49 46 54 45 44 20 53 50 41 43 45 00 C5 1E A2 03 |IFTED SPACE.....|
000016B0: 3A 20 20 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 |: ..(UB.40)..96|
000016C0: A7 8D 37 30 30 00 E1 1E A3 03 8F 2D 2D 2D 2D 2D |..700......-----|
000016D0: 4D 45 4D 4F 52 59 20 43 48 45 43 4B 2D 2D 2D 2D |MEMORY CHECK----|
000016E0: 2D 00 F8 1E A4 03 3A 20 20 8B 20 B8 28 30 29 B1 |-.....: . .(0).|
000016F0: 32 30 30 30 A7 39 33 37 00 29 1F A5 03 3A 20 20 |2000.937.)...: |
00001700: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
00001710: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
00001720: 20 45 4E 4F 55 47 48 11 22 00 50 1F A6 03 3A 20 | ENOUGH.".P...: |
00001730: 20 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E | ."MEMORY TO RUN|
00001740: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001750: 00 5E 1F A7 03 3A 20 20 9E 55 55 AA 37 31 00 67 |.^...: .UU.71.g|
00001760: 1F A8 03 3A 20 20 80 00 84 1F A9 03 3A 20 20 99 |...: ......: .|
00001770: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0|
00001780: A7 39 36 32 00 B6 1F AC 03 8F 2D 2D 2D 2D 2D 42 |.962......-----B|
00001790: 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E |ASIC 2.0 OR 4.|
000017A0: 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 |0 OR C-64 SETU|
000017B0: 50 2D 2D 2D 2D 2D 00 F4 1F AD 03 97 31 30 37 35 |P-----......1075|
000017C0: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.|
000017D0: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4|
000017E0: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081|
000017F0: 2C 31 34 35 00 2A 20 AE 03 97 31 30 39 31 2C 31 |,145.* ...1091,1|
00001800: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10|
00001810: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234|
00001820: 3A 97 31 31 30 33 2C 31 33 33 00 4C 20 AF 03 97 |:.1103,133.L ...|
00001830: 31 31 30 34 2C 31 34 35 3A 97 31 F1 30 35 2C 32 |1104,145:.1.05,2|
00001840: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 66 20 B1 |34:.1082,234.f .|
00001850: 03 3A 20 20 8B C2 28 35 30 30 30 33 29 B3 B1 31 |.: ..(50003)..1|
00001860: 36 30 A7 39 35 35 00 98 20 B6 03 3A 20 20 97 31 |60.955.. ..: .1|
00001870: 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 |093,88:.1094,228|
00001880: 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C |:.1097,85:.1102,|
00001890: 32 32 38 3A 89 39 36 35 00 B0 20 BB 03 3A 20 20 |228:.965.. ..: |
000018A0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 |..(50003)..1.990|
000018B0: 00 E2 20 C0 03 3A 20 20 97 31 30 39 33 2C 34 39 |.. ..: .1093,49|
000018C0: 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 |:.1094,230:.1097|
000018D0: 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 |,46:.1102,230:.9|
000018E0: 36 35 00 1C 21 C2 03 97 32 30 39 39 2C 31 34 31 |65..!...2099,141|
000018F0: 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C |:.2100,20:.2101,|
00001900: 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C |3:.2103,8:.2104,|
00001910: 31 34 31 3A 97 32 31 30 35 2C 32 31 00 58 21 C3 |141:.2105,21.X!.|
00001920: 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 |..2106,3:.2115,1|
00001930: 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 |45:.2117,52:.211|
00001940: 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 |8,234:.2121,49:.|
00001950: 32 31 32 32 2C 31 34 31 00 92 21 C4 03 97 32 31 |2122,141..!...21|
00001960: 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 |23,20:.2124,3:.2|
00001970: 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 |126,234:.2127,14|
00001980: 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 |1:.2128,21:.2129|
00001990: 2C 33 00 B3 21 C5 03 3A 20 20 9E 55 55 AA 34 38 |,3..!..: .UU.48|
000019A0: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
000019B0: 4B 45 59 00 C7 21 CA 03 3A 20 20 8D 38 30 30 3A |KEY..!..: .800:|
000019C0: 8F 20 54 49 54 4C 45 00 DA 21 D4 03 3A 20 20 89 |. TITLE..!..: .|
000019D0: 33 30 30 3A 8F 20 4D 45 4E 55 00 0E 22 DE 03 3A |300:. MENU.."..:|
000019E0: 20 20 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C | .".THE PGM WIL|
000019F0: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
00001A00: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 48 |IS MACHINE!":..H|
00001A10: 22 E8 03 3A 20 8B 55 5A B2 31 A7 9E 55 50 25 3A |"..: .UZ.1..UP%:|
00001A20: 9E 55 50 25 3A 55 5A B2 30 3A 8F 2D 2D 2D 2D 2D |.UP%:UZ.0:.-----|
00001A30: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001A40: 45 52 45 2D 2D 2D 2D 2D 00 72 22 E9 03 99 22 93 |ERE-----.r"...".|
00001A50: 05 22 3B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |.";:..(50003).0.|
00001A60: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001A70: 31 34 00 7C 22 F2 03 89 31 31 32 30 00 B9 22 FC |14.|"...1120..".|
00001A80: 03 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 55 50 |..".":.UT,UL%:UP|
00001A90: B2 30 3A 8D 38 35 30 3A 99 22 11 20 20 20 20 20 |.0:.850:.". |
00001AA0: 20 20 20 20 20 D3 54 41 54 45 53 20 41 4E 44 20 | .TATES AND |
00001AB0: 43 41 50 49 54 41 4C 53 22 00 E7 22 06 04 99 22 |CAPITALS".."..."|
00001AC0: 20 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 | ......|
00001AD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 20 20 20 |............. |
00001AE0: 22 3A 89 31 31 34 30 00 0E 23 60 04 99 22 93 22 |":.1140..#`.."."|
00001AF0: 3A 8D 38 37 35 3A 8C 3A 81 20 49 B2 31 A4 4D 58 |:.875:.:. I.1.MX|
00001B00: 3A 87 20 53 24 28 49 29 2C 43 24 28 49 29 00 3A |:. S$(I),C$(I).:|
00001B10: 23 61 04 53 24 28 49 29 B2 C7 28 C6 28 CA 28 53 |#a.S$(I)..(.(.(S|
00001B20: 24 28 49 29 2C 31 2C 31 29 29 AA 31 32 38 29 AA |$(I),1,1)).128).|
00001B30: CA 28 53 24 28 49 29 2C 32 29 00 68 23 62 04 43 |.(S$(I),2).h#b.C|
00001B40: 24 28 49 29 B2 C7 28 C6 28 CA 28 43 24 28 49 29 |$(I)..(.(.(C$(I)|
00001B50: 2C 31 2C 31 29 29 AA 31 32 38 29 AA CA 28 43 24 |,1,1)).128)..(C$|
00001B60: 28 49 29 2C 32 29 3A 82 00 8D 23 6A 04 81 20 49 |(I),2):...#j.. I|
00001B70: B2 31 A4 4D 58 3A 41 28 49 29 B2 30 3A 82 49 3A |.1.MX:A(I).0:.I:|
00001B80: 47 B2 30 3A 4E B2 30 3A 5A 5A B2 AB 31 00 97 23 |G.0:N.0:ZZ..1..#|
00001B90: 6F 04 89 31 31 36 39 00 C4 23 74 04 99 22 11 20 |o..1169..#t..". |
00001BA0: 20 20 D4 48 49 53 20 49 53 20 41 4E 20 45 44 55 | .HIS IS AN EDU|
00001BB0: 43 41 54 49 4F 4E 41 4C 20 51 55 49 5A 20 57 48 |CATIONAL QUIZ WH|
00001BC0: 49 43 48 22 00 F2 23 7E 04 99 22 11 20 20 20 54 |ICH"..#~..". T|
00001BD0: 45 53 54 53 20 59 4F 55 52 20 4B 4E 4F 57 4C 45 |ESTS YOUR KNOWLE|
00001BE0: 44 47 45 20 4F 46 20 54 48 45 20 50 52 4F 50 45 |DGE OF THE PROPE|
00001BF0: 52 22 00 12 24 88 04 99 22 11 20 20 20 53 54 41 |R"..$...". STA|
00001C00: 54 45 53 20 41 4E 44 20 43 41 50 49 54 41 4C 53 |TES AND CAPITALS|
00001C10: 2E 22 00 3E 24 89 04 99 22 11 20 20 20 C9 54 20 |.".>$...". .T |
00001C20: 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 45 49 |WILL GIVE YOU EI|
00001C30: 54 48 45 52 20 4D 55 4C 54 49 50 4C 45 22 00 67 |THER MULTIPLE".g|
00001C40: 24 8A 04 99 22 11 20 20 20 43 48 4F 49 43 45 20 |$...". CHOICE |
00001C50: 4F 52 20 46 49 4C 4C 2D 49 4E 20 54 48 45 20 42 |OR FILL-IN THE B|
00001C60: 4C 41 4E 4B 53 2E 22 00 92 24 8B 04 99 22 11 20 |LANKS."..$...". |
00001C70: 20 20 C6 4F 52 20 46 49 4C 4C 2D 49 4E 20 51 55 | .OR FILL-IN QU|
00001C80: 45 53 54 49 4F 4E 53 20 53 50 45 4C 4C 20 54 48 |ESTIONS SPELL TH|
00001C90: 45 22 00 C0 24 8C 04 99 22 11 20 20 20 41 4E 53 |E"..$...". ANS|
00001CA0: 57 45 52 20 45 58 41 43 54 4C 59 20 41 4E 44 20 |WER EXACTLY AND |
00001CB0: 55 53 45 20 12 D3 54 2E 92 20 41 53 20 41 4E 22 |USE ..T.. AS AN"|
00001CC0: 00 EA 24 8D 04 99 22 11 20 20 20 41 42 42 52 45 |..$...". ABBRE|
00001CD0: 56 49 41 54 49 4F 4E 20 46 4F 52 20 D3 41 49 4E |VIATION FOR .AIN|
00001CE0: 54 2E 22 3A 8D 38 33 35 3A 8E 00 00 25 91 04 55 |T.":.835:...%..U|
00001CF0: 47 24 B2 22 D3 54 55 44 45 4E 54 20 51 55 49 5A |G$.".TUDENT QUIZ|
00001D00: 00 3C 25 92 04 99 22 93 22 3A 97 55 54 2C 55 4C |.<%...".":.UT,UL|
00001D10: 25 3A 55 50 B2 30 3A 8D 38 35 30 3A 99 22 11 11 |%:UP.0:.850:."..|
00001D20: 11 11 20 D3 45 4C 45 43 54 20 54 48 45 20 54 59 |.. .ELECT THE TY|
00001D30: 50 45 20 4F 46 20 51 55 49 5A 3A 22 00 66 25 9C |PE OF QUIZ:".f%.|
00001D40: 04 99 22 11 20 20 20 31 20 2D 20 CD 55 4C 54 49 |..". 1 - .ULTI|
00001D50: 50 4C 45 20 43 48 4F 49 43 45 20 51 55 45 53 54 |PLE CHOICE QUEST|
00001D60: 49 4F 4E 53 2E 22 00 89 25 A6 04 99 22 11 20 20 |IONS."..%...". |
00001D70: 20 32 20 2D 20 C6 49 4C 4C 2D 49 4E 20 54 48 45 | 2 - .ILL-IN THE|
00001D80: 20 42 4C 41 4E 4B 53 2E 22 00 A9 25 AB 04 99 22 | BLANKS."..%..."|
00001D90: 11 20 D7 48 41 54 20 49 53 20 59 4F 55 52 20 43 |. .HAT IS YOUR C|
00001DA0: 48 4F 49 43 45 3F 20 22 3B 00 C0 25 B0 04 55 53 |HOICE? ";..%..US|
00001DB0: 24 B2 22 48 31 32 22 3A 55 4C B2 31 3A 8D 33 35 |$."H12":UL.1:.35|
00001DC0: 00 D4 25 BA 04 8B 55 52 24 B2 22 32 22 20 A7 20 |..%...UR$."2" . |
00001DD0: 31 32 36 30 00 E3 25 E2 04 58 B2 31 3A 89 20 31 |1260..%..X.1:. 1|
00001DE0: 33 30 30 00 E9 25 EC 04 8F 00 F1 25 0A 05 58 B2 |300..%.....%..X.|
00001DF0: 32 00 1D 26 14 05 8D 38 35 30 3A 99 22 11 11 11 |2..&...850:."...|
00001E00: 20 D7 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 | .OULD YOU LIKE |
00001E10: 41 20 51 55 49 5A 20 41 42 4F 55 54 22 00 33 26 |A QUIZ ABOUT".3&|
00001E20: 1E 05 99 22 11 20 20 20 31 20 2D 20 D3 54 41 54 |...". 1 - .TAT|
00001E30: 45 53 22 00 4B 26 28 05 99 22 11 20 20 20 32 20 |ES".K&(..". 2 |
00001E40: 2D 20 C3 41 50 49 54 41 4C 53 22 00 79 26 32 05 |- .APITALS".y&2.|
00001E50: 55 53 24 B2 22 31 32 48 22 3A 99 22 11 20 D7 48 |US$."12H":.". .H|
00001E60: 41 54 20 49 53 20 59 4F 55 52 20 43 48 4F 49 43 |AT IS YOUR CHOIC|
00001E70: 45 3F 20 22 3B 3A 8D 33 35 00 97 26 3C 05 59 B2 |E? ";:.35..&<.Y.|
00001E80: 32 3A 8B 55 52 24 B2 22 32 22 20 A7 20 59 B2 31 |2:.UR$."2" . Y.1|
00001E90: 3A 89 20 31 33 36 30 00 AA 26 50 05 8F 20 50 49 |:. 1360..&P.. PI|
00001EA0: 43 4B 20 41 20 53 54 41 54 45 00 D7 26 5A 05 81 |CK A STATE..&Z..|
00001EB0: 20 49 B2 31 A4 31 30 3A 52 B2 B5 28 BB 28 31 29 | I.1.10:R..(.(1)|
00001EC0: AC 4D 58 29 AA 31 3A 8B 20 41 28 52 29 B3 B1 32 |.MX).1:. A(R)..2|
00001ED0: 20 A7 20 31 34 32 30 00 DE 26 64 05 82 49 00 01 | . 1420..&d..I..|
00001EE0: 27 6E 05 8F 20 44 4F 4E 27 54 20 57 41 53 54 45 |'n.. DON'T WASTE|
00001EF0: 20 54 49 4D 45 20 50 49 43 4B 49 4E 47 20 4F 4E | TIME PICKING ON|
00001F00: 45 00 1F 27 78 05 81 20 52 B2 31 A4 4D 58 3A 8B |E..'x.. R.1.MX:.|
00001F10: 20 41 28 52 29 B3 B1 32 20 A7 20 31 34 32 30 00 | A(R)..2 . 1420.|
00001F20: 2C 27 82 05 82 52 3A 89 31 39 32 30 00 4D 27 8C |,'...R:.1920.M'.|
00001F30: 05 5A 5A B2 5A 5A AA 31 3A 52 50 B2 30 3A 8B 20 |.ZZ.ZZ.1:RP.0:. |
00001F40: 41 28 52 29 B2 31 20 A7 20 52 50 B2 31 00 64 27 |A(R).1 . RP.1.d'|
00001F50: 91 05 8B 5A 5A B1 34 39 A7 8D 32 30 33 30 3A 89 |...ZZ.49..2030:.|
00001F60: 31 39 37 30 00 75 27 96 05 8B 20 58 B2 31 20 A7 |1970.u'... X.1 .|
00001F70: 20 31 35 35 30 00 93 27 A0 05 8F 20 41 53 4B 20 | 1550..'... ASK |
00001F80: 46 4F 52 20 46 49 4C 4C 2D 49 4E 20 41 4E 53 57 |FOR FILL-IN ANSW|
00001F90: 45 52 53 00 AB 27 AA 05 8D 20 32 30 30 30 3A 8B |ERS..'... 2000:.|
00001FA0: 20 59 B2 32 20 A7 20 31 34 38 30 00 B8 27 B4 05 | Y.2 . 1480..'..|
00001FB0: 41 24 B2 43 24 28 52 29 00 E5 27 BE 05 8D 31 32 |A$.C$(R)..'...12|
00001FC0: 30 30 30 3A 99 22 11 11 11 20 D4 48 45 20 43 41 |000:."... .HE CA|
00001FD0: 50 49 54 41 4C 20 4F 46 20 22 53 24 28 52 29 3B |PITAL OF "S$(R);|
00001FE0: 22 20 49 53 22 00 EF 27 BF 05 89 31 34 38 31 00 |" IS"..'...1481.|
00001FF0: 21 28 C8 05 8D 31 32 30 30 30 3A 41 24 B2 53 24 |!(...12000:A$.S$|
00002000: 28 52 29 3A 99 22 11 11 11 20 22 43 24 28 52 29 |(R):."... "C$(R)|
00002010: 3B 22 20 49 53 20 43 41 50 49 54 41 4C 20 4F 46 |;" IS CAPITAL OF|
00002020: 22 00 46 28 C9 05 99 3A 99 3A 99 3A 99 3A 99 22 |".F(...:.:.:.:."|
00002030: 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002040: A3 A3 A3 A3 A3 22 00 73 28 D2 05 99 22 13 11 11 |.....".s(..."...|
00002050: 11 11 11 11 11 11 11 11 1D 22 3B 3A 55 53 24 B2 |.........";:US$.|
00002060: 22 22 3A 55 4C B2 32 30 3A 8D 33 35 3A 5A 24 B2 |"":UL.20:.35:Z$.|
00002070: 55 52 24 00 88 28 FA 05 8B 20 5A 24 B2 41 24 20 |UR$..(... Z$.A$ |
00002080: A7 20 89 20 31 38 30 30 00 93 28 04 06 89 20 31 |. . 1800..(... 1|
00002090: 37 39 30 00 B1 28 0E 06 8F 20 41 53 4B 20 46 4F |790..(... ASK FO|
000020A0: 52 20 4D 55 4C 54 49 50 4C 45 20 43 48 4F 49 43 |R MULTIPLE CHOIC|
000020B0: 45 00 D4 28 18 06 8F 20 54 48 45 20 56 41 4C 55 |E..(... THE VALU|
000020C0: 45 20 4F 46 20 43 20 49 53 20 54 48 45 20 41 4E |E OF C IS THE AN|
000020D0: 53 57 45 52 00 E6 28 22 06 43 B2 B5 28 BB 28 31 |SWER..(".C..(.(1|
000020E0: 29 AC 34 29 AA 31 00 0A 29 2C 06 8F 20 50 49 43 |).4).1..),.. PIC|
000020F0: 4B 20 34 20 53 54 41 54 45 53 20 46 4F 52 20 54 |K 4 STATES FOR T|
00002100: 48 45 20 43 48 4F 49 43 45 53 00 2A 29 36 06 81 |HE CHOICES.*)6..|
00002110: 49 B2 31 A4 34 3A 42 28 49 29 B2 B5 28 BB 28 31 |I.1.4:B(I)..(.(1|
00002120: 29 AC 4D 58 29 AA 31 3A 82 49 00 35 29 40 06 42 |).MX).1:.I.5)@.B|
00002130: 28 43 29 B2 52 00 57 29 4A 06 8F 20 4D 41 4B 45 |(C).R.W)J.. MAKE|
00002140: 20 53 55 52 45 20 4E 4F 4E 45 20 41 52 45 20 54 | SURE NONE ARE T|
00002150: 48 45 20 53 41 4D 45 00 86 29 54 06 8B 20 42 28 |HE SAME..)T.. B(|
00002160: 31 29 B2 42 28 32 29 20 B0 20 42 28 31 29 B2 42 |1).B(2) . B(1).B|
00002170: 28 33 29 20 B0 20 42 28 31 29 B2 42 28 34 29 20 |(3) . B(1).B(4) |
00002180: A7 20 31 35 39 30 00 B5 29 5E 06 8B 20 42 28 32 |. 1590..)^.. B(2|
00002190: 29 B2 42 28 33 29 20 B0 20 42 28 32 29 B2 42 28 |).B(3) . B(2).B(|
000021A0: 34 29 20 B0 20 42 28 33 29 B2 42 28 34 29 20 A7 |4) . B(3).B(4) .|
000021B0: 20 31 35 39 30 00 CD 29 68 06 8D 20 32 30 30 30 | 1590..)h.. 2000|
000021C0: 3A 8B 20 59 B2 32 20 A7 20 31 36 39 30 00 E9 29 |:. Y.2 . 1690..)|
000021D0: 72 06 8F 20 50 52 49 4E 54 20 43 41 50 49 54 41 |r.. PRINT CAPITA|
000021E0: 4C 20 43 48 4F 49 43 45 53 00 26 2A 7C 06 8D 31 |L CHOICES.&*|..1|
000021F0: 32 30 30 30 3A 99 22 11 11 11 20 D7 48 41 54 20 |2000:."... .HAT |
00002200: 49 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F |IS THE CAPITAL O|
00002210: 46 20 22 3B 53 24 28 52 29 3B 22 3F 22 3A 41 24 |F ";S$(R);"?":A$|
00002220: B2 43 24 28 52 29 00 5C 2A 86 06 99 22 11 11 20 |.C$(R).\*...".. |
00002230: 20 20 20 20 20 20 28 41 29 20 22 3B 43 24 28 42 | (A) ";C$(B|
00002240: 28 31 29 29 3A 99 22 11 22 A3 37 29 3B 22 28 42 |(1)):.".".7);"(B|
00002250: 29 20 22 3B 43 24 28 42 28 32 29 29 00 95 2A 90 |) ";C$(B(2))..*.|
00002260: 06 99 22 11 22 A3 37 29 3B 22 28 43 29 20 22 43 |..".".7);"(C) "C|
00002270: 24 28 42 28 33 29 29 3A 99 22 11 22 A3 37 29 3B |$(B(3)):.".".7);|
00002280: 22 28 44 29 20 22 43 24 28 42 28 34 29 29 3A 89 |"(D) "C$(B(4)):.|
00002290: 20 31 37 33 30 00 AF 2A 9A 06 8F 20 50 52 49 4E | 1730..*... PRIN|
000022A0: 54 20 53 54 41 54 45 20 43 48 4F 49 43 45 53 00 |T STATE CHOICES.|
000022B0: E5 2A A4 06 8D 31 32 30 30 30 3A 99 22 11 11 11 |.*...12000:."...|
000022C0: 20 22 43 24 28 52 29 3B 22 20 49 53 20 54 48 45 | "C$(R);" IS THE|
000022D0: 20 43 41 50 49 54 41 4C 20 4F 46 22 3A 41 24 B2 | CAPITAL OF":A$.|
000022E0: 53 24 28 52 29 00 1B 2B AE 06 99 22 11 11 22 A3 |S$(R)..+..."..".|
000022F0: 37 29 3B 22 28 41 29 20 22 3B 53 24 28 42 28 31 |7);"(A) ";S$(B(1|
00002300: 29 29 3A 99 22 11 22 20 A3 37 29 3B 22 28 42 29 |)):."." .7);"(B)|
00002310: 20 22 3B 53 24 28 42 28 32 29 29 00 4F 2B B8 06 | ";S$(B(2)).O+..|
00002320: 99 22 11 22 3B A3 37 29 22 28 43 29 20 22 3B 53 |.".";.7)"(C) ";S|
00002330: 24 28 42 28 33 29 29 3A 99 22 11 22 A3 37 29 3B |$(B(3)):.".".7);|
00002340: 22 28 44 29 20 22 3B 53 24 28 42 28 34 29 29 00 |"(D) ";S$(B(4)).|
00002350: 7E 2B C2 06 55 53 24 B2 22 41 42 43 44 48 22 3A |~+..US$."ABCDH":|
00002360: 99 22 11 20 D7 48 41 54 20 49 53 20 54 48 45 20 |.". .HAT IS THE |
00002370: 41 4E 53 57 45 52 3F 20 22 3B 3A 8D 33 35 00 94 |ANSWER? ";:.35..|
00002380: 2B EA 06 5A B2 C6 28 55 52 24 29 AB C6 28 22 41 |+..Z..(UR$)..("A|
00002390: 22 29 AA 31 00 A5 2B F4 06 8B 20 5A B2 43 20 A7 |").1..+... Z.C .|
000023A0: 20 31 38 30 30 00 D2 2B FE 06 41 28 52 29 B2 31 | 1800..+..A(R).1|
000023B0: 3A 99 22 11 11 20 D7 52 4F 4E 47 2C 20 49 54 20 |:.".. .RONG, IT |
000023C0: 49 53 20 22 3B 41 24 3B 22 2E 22 3A 89 20 31 38 |IS ";A$;".":. 18|
000023D0: 32 30 00 E3 2B 08 07 41 28 52 29 B2 32 3A 4E B2 |20..+..A(R).2:N.|
000023E0: 4E AA 31 00 F4 2B 12 07 99 22 11 11 20 D2 49 47 |N.1..+...".. .IG|
000023F0: 48 54 21 22 00 03 2C 1C 07 8D 38 33 35 3A 47 B2 |HT!"..,...835:G.|
00002400: 47 AA 31 00 15 2C 26 07 8B 20 4E B3 4D 58 20 A7 |G.1..,&.. N.MX .|
00002410: 20 31 33 36 30 00 20 2C 30 07 89 20 31 39 32 30 | 1360. ,0.. 1920|
00002420: 00 48 2C 6C 07 99 22 20 C9 20 57 49 4C 4C 20 52 |.H,l.." . WILL R|
00002430: 45 50 45 41 54 20 4D 59 20 51 55 45 53 54 49 4F |EPEAT MY QUESTIO|
00002440: 4E 2E 22 3A 52 50 B2 31 00 5C 2C 76 07 91 20 58 |N.":RP.1.\,v.. X|
00002450: 20 89 20 31 36 34 30 2C 31 34 35 30 00 89 2C 8A | . 1640,1450..,.|
00002460: 07 99 22 93 20 D7 4F 55 4C 44 20 59 4F 55 20 4C |..". .OULD YOU L|
00002470: 49 4B 45 20 54 4F 20 54 52 59 20 41 47 41 49 4E |IKE TO TRY AGAIN|
00002480: 28 59 2F 4E 29 3F 20 22 3B 00 9A 2C 94 07 55 53 |(Y/N)? ";..,..US|
00002490: 24 B2 22 59 4E 22 3A 8D 33 35 00 B0 2C 9E 07 8B |$."YN":.35..,...|
000024A0: 55 52 24 B2 22 59 22 20 A7 20 89 20 31 31 33 30 |UR$."Y" . . 1130|
000024B0: 00 D6 2C B2 07 8D 38 35 30 3A 99 22 11 20 20 20 |..,...850:.". |
000024C0: D4 48 41 4E 4B 20 59 4F 55 20 46 4F 52 20 50 4C |.HANK YOU FOR PL|
000024D0: 41 59 49 4E 47 22 00 F9 2C BC 07 99 22 11 20 20 |AYING"..,...". |
000024E0: 20 D3 54 41 54 45 53 20 41 4E 44 20 C3 41 50 49 | .TATES AND .API|
000024F0: 54 41 4C 53 21 21 21 21 22 00 04 2D C6 07 8D 38 |TALS!!!!"..-...8|
00002500: 33 35 3A 8E 00 1B 2D D0 07 8F 20 43 48 45 43 4B |35:...-... CHECK|
00002510: 20 46 4F 52 20 52 45 50 45 41 54 00 21 2D DA 07 | FOR REPEAT.!-..|
00002520: 8F 00 27 2D E4 07 8E 00 39 2D EE 07 8F 20 50 52 |..'-....9-... PR|
00002530: 49 4E 54 20 53 43 4F 52 45 00 5C 2D F8 07 8D 38 |INT SCORE.\-...8|
00002540: 35 30 3A 8B 20 4E B2 30 20 B0 20 47 B2 30 20 A7 |50:. N.0 . G.0 .|
00002550: 20 50 B2 30 3A 20 89 20 32 30 36 30 00 6C 2D 02 | P.0: . 2060.l-.|
00002560: 08 50 B2 B5 28 4E AC 32 AA 2E 35 29 00 90 2D 0C |.P..(N.2..5)..-.|
00002570: 08 99 22 11 11 11 11 11 20 20 20 D9 4F 55 52 20 |.."..... .OUR |
00002580: 53 43 4F 52 45 20 49 53 22 3B 50 3B 22 25 2E 22 |SCORE IS";P;"%."|
00002590: 00 BB 2D 16 08 99 22 11 20 20 20 D9 4F 55 20 48 |..-...". .OU H|
000025A0: 41 56 45 22 3B 4E 3B 22 52 49 47 48 54 20 49 4E |AVE";N;"RIGHT IN|
000025B0: 22 3B 47 3B 22 54 52 49 45 53 22 00 C4 2D 1B 08 |";G;"TRIES"..-..|
000025C0: 8D 38 33 35 00 CA 2D 20 08 8E 00 D3 2D 2A 08 8D |.835..- ....-*..|
000025D0: 38 35 30 00 00 2E 34 08 99 22 11 11 11 11 20 D9 |850...4..".... .|
000025E0: 4F 55 20 48 41 56 45 20 44 4F 4E 45 20 41 4C 4C |OU HAVE DONE ALL|
000025F0: 20 54 48 45 20 51 55 45 53 54 49 4F 4E 53 2E 22 | THE QUESTIONS."|
00002600: 00 11 2E C0 08 8F 20 2A 2A 2A 44 41 54 41 2A 2A |...... ***DATA**|
00002610: 2A 00 5E 2E CA 08 83 41 4C 41 42 41 4D 41 2C 4D |*.^....ALABAMA,M|
00002620: 4F 4E 54 47 4F 4D 45 52 59 2C 41 4C 41 53 4B 41 |ONTGOMERY,ALASKA|
00002630: 2C 4A 55 4E 45 41 55 2C 41 52 49 5A 4F 4E 41 2C |,JUNEAU,ARIZONA,|
00002640: 50 48 4F 45 4E 49 58 2C 41 52 4B 41 4E 53 41 53 |PHOENIX,ARKANSAS|
00002650: 2C 22 4C 49 54 54 4C 45 20 D2 4F 43 4B 22 00 A7 |,"LITTLE .OCK"..|
00002660: 2E D4 08 83 43 41 4C 49 46 4F 52 4E 49 41 2C 53 |....CALIFORNIA,S|
00002670: 41 43 52 41 4D 45 4E 54 4F 2C 43 4F 4C 4F 52 41 |ACRAMENTO,COLORA|
00002680: 44 4F 2C 44 45 4E 56 45 52 2C 43 4F 4E 4E 45 43 |DO,DENVER,CONNEC|
00002690: 54 49 43 55 54 2C 48 41 52 54 46 4F 52 44 2C 44 |TICUT,HARTFORD,D|
000026A0: 45 4C 41 57 41 52 45 00 EB 2E DE 08 83 44 4F 56 |ELAWARE......DOV|
000026B0: 45 52 2C 22 44 49 53 54 2E 20 4F 46 20 C3 4F 4C |ER,"DIST. OF .OL|
000026C0: 55 4D 2E 22 2C 57 41 53 48 49 4E 47 54 4F 4E 2C |UM.",WASHINGTON,|
000026D0: 46 4C 4F 52 49 44 41 2C 54 41 4C 4C 41 48 41 53 |FLORIDA,TALLAHAS|
000026E0: 53 45 45 2C 47 45 4F 52 47 49 41 00 31 2F E8 08 |SEE,GEORGIA.1/..|
000026F0: 83 41 54 4C 41 4E 54 41 2C 48 41 57 41 49 49 2C |.ATLANTA,HAWAII,|
00002700: 48 4F 4E 4F 4C 55 4C 55 2C 49 44 41 48 4F 2C 42 |HONOLULU,IDAHO,B|
00002710: 4F 49 53 45 2C 49 4C 4C 49 4E 4F 49 53 2C 53 50 |OISE,ILLINOIS,SP|
00002720: 52 49 4E 47 46 49 45 4C 44 2C 49 4E 44 49 41 4E |RINGFIELD,INDIAN|
00002730: 41 00 76 2F F2 08 83 49 4E 44 49 41 4E 41 50 4F |A.v/...INDIANAPO|
00002740: 4C 49 53 2C 49 4F 57 41 2C 22 44 45 53 20 CD 4F |LIS,IOWA,"DES .O|
00002750: 49 4E 45 53 22 2C 4B 41 4E 53 41 53 2C 54 4F 50 |INES",KANSAS,TOP|
00002760: 45 4B 41 2C 4B 45 4E 54 55 43 4B 59 2C 46 52 41 |EKA,KENTUCKY,FRA|
00002770: 4E 4B 46 4F 52 54 00 C2 2F FC 08 83 4C 4F 55 49 |NKFORT../...LOUI|
00002780: 53 49 41 4E 41 2C 22 42 41 54 4F 4E 20 D2 4F 55 |SIANA,"BATON .OU|
00002790: 47 45 22 2C 4D 41 49 4E 45 2C 41 55 47 55 53 54 |GE",MAINE,AUGUST|
000027A0: 41 2C 4D 41 52 59 4C 41 4E 44 2C 41 4E 4E 41 50 |A,MARYLAND,ANNAP|
000027B0: 4F 4C 49 53 2C 4D 41 53 53 41 43 48 55 53 45 54 |OLIS,MASSACHUSET|
000027C0: 54 53 00 08 30 06 09 83 42 4F 53 54 4F 4E 2C 4D |TS..0...BOSTON,M|
000027D0: 49 43 48 49 47 41 4E 2C 4C 41 4E 53 49 4E 47 2C |ICHIGAN,LANSING,|
000027E0: 4D 49 4E 4E 45 53 4F 54 41 2C 22 53 54 2E 20 D0 |MINNESOTA,"ST. .|
000027F0: 41 55 4C 22 2C 4D 49 53 53 49 53 53 49 50 50 49 |AUL",MISSISSIPPI|
00002800: 2C 4A 41 43 4B 53 4F 4E 00 4E 30 10 09 83 4D 49 |,JACKSON.N0...MI|
00002810: 53 53 4F 55 52 49 2C 22 4A 45 46 46 45 52 53 4F |SSOURI,"JEFFERSO|
00002820: 4E 20 C3 49 54 59 22 2C 4D 4F 4E 54 41 4E 41 2C |N .ITY",MONTANA,|
00002830: 48 45 4C 45 4E 41 2C 4E 45 42 52 41 53 4B 41 2C |HELENA,NEBRASKA,|
00002840: 4C 49 4E 43 4F 4C 4E 2C 4E 45 56 41 44 41 00 9B |LINCOLN,NEVADA..|
00002850: 30 1A 09 83 22 43 41 52 53 4F 4E 20 C3 49 54 59 |0..."CARSON .ITY|
00002860: 22 2C 22 4E 45 57 20 C8 41 4D 50 53 48 49 52 45 |","NEW .AMPSHIRE|
00002870: 22 2C 43 4F 4E 43 4F 52 44 2C 22 4E 45 57 20 CA |",CONCORD,"NEW .|
00002880: 45 52 53 45 59 22 2C 54 52 45 4E 54 4F 4E 2C 22 |ERSEY",TRENTON,"|
00002890: 4E 45 57 20 CD 45 58 49 43 4F 22 00 D6 30 24 09 |NEW .EXICO"..0$.|
000028A0: 83 22 53 41 4E 54 41 20 C6 45 22 2C 22 4E 45 57 |."SANTA .E","NEW|
000028B0: 20 D9 4F 52 4B 22 2C 41 4C 42 41 4E 59 2C 22 4E | .ORK",ALBANY,"N|
000028C0: 4F 52 54 48 20 C3 41 52 4F 4C 49 4E 41 22 2C 52 |ORTH .AROLINA",R|
000028D0: 41 4C 45 49 47 48 00 01 31 2E 09 83 22 4E 4F 52 |ALEIGH..1..."NOR|
000028E0: 54 48 20 C4 41 4B 4F 54 41 22 2C 42 49 53 4D 41 |TH .AKOTA",BISMA|
000028F0: 52 43 4B 2C 4F 48 49 4F 2C 43 4F 4C 55 4D 42 55 |RCK,OHIO,COLUMBU|
00002900: 53 00 44 31 38 09 83 4F 4B 4C 41 48 4F 4D 41 2C |S.D18..OKLAHOMA,|
00002910: 22 4F 4B 4C 41 48 4F 4D 41 20 C3 49 54 59 22 2C |"OKLAHOMA .ITY",|
00002920: 4F 52 45 47 4F 4E 2C 53 41 4C 45 4D 2C 50 45 4E |OREGON,SALEM,PEN|
00002930: 4E 53 59 4C 56 41 4E 49 41 2C 48 41 52 52 49 53 |NSYLVANIA,HARRIS|
00002940: 42 55 52 47 00 8C 31 42 09 83 22 52 48 4F 44 45 |BURG..1B.."RHODE|
00002950: 20 C9 53 4C 41 4E 44 22 2C 50 52 4F 56 49 44 45 | .SLAND",PROVIDE|
00002960: 4E 43 45 2C 22 53 4F 55 54 48 20 C3 41 52 4F 4C |NCE,"SOUTH .AROL|
00002970: 49 4E 41 22 2C 43 4F 4C 55 4D 42 49 41 2C 22 53 |INA",COLUMBIA,"S|
00002980: 4F 55 54 48 20 C4 41 4B 4F 54 41 22 00 D7 31 4C |OUTH .AKOTA"..1L|
00002990: 09 83 50 49 45 52 52 45 2C 54 45 4E 4E 45 53 53 |..PIERRE,TENNESS|
000029A0: 45 45 2C 4E 41 53 48 56 49 4C 4C 45 2C 54 45 58 |EE,NASHVILLE,TEX|
000029B0: 41 53 2C 41 55 53 54 49 4E 2C 55 54 41 48 2C 22 |AS,AUSTIN,UTAH,"|
000029C0: 53 41 4C 54 20 CC 41 4B 45 20 C3 49 54 59 22 2C |SALT .AKE .ITY",|
000029D0: 56 45 52 4D 4F 4E 54 00 1C 32 56 09 83 4D 4F 4E |VERMONT..2V..MON|
000029E0: 54 50 45 4C 49 45 52 2C 56 49 52 47 49 4E 49 41 |TPELIER,VIRGINIA|
000029F0: 2C 52 49 43 48 4D 4F 4E 44 2C 57 41 53 48 49 4E |,RICHMOND,WASHIN|
00002A00: 47 54 4F 4E 2C 4F 4C 59 4D 50 49 41 2C 22 57 45 |GTON,OLYMPIA,"WE|
00002A10: 53 54 20 D6 49 52 47 49 4E 49 41 22 00 4F 32 60 |ST .IRGINIA".O2`|
00002A20: 09 83 43 48 41 52 4C 45 53 54 4F 4E 2C 57 49 53 |..CHARLESTON,WIS|
00002A30: 43 4F 4E 53 49 4E 2C 4D 41 44 49 53 4F 4E 2C 57 |CONSIN,MADISON,W|
00002A40: 59 4F 4D 49 4E 47 2C 43 48 45 59 45 4E 4E 45 00 |YOMING,CHEYENNE.|
00002A50: 67 32 10 27 8F 20 4D 4F 52 45 20 49 4E 53 54 52 |g2.'. MORE INSTR|
00002A60: 55 43 54 49 4F 4E 53 00 94 32 1A 27 99 22 11 11 |UCTIONS..2.'."..|
00002A70: 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | .HIS PROGRAM |
00002A80: 51 55 49 5A 5A 45 53 20 54 48 45 20 53 54 55 44 |QUIZZES THE STUD|
00002A90: 45 4E 54 22 00 C0 32 24 27 99 22 11 20 20 20 4F |ENT"..2$'.". O|
00002AA0: 4E 20 48 49 53 20 4B 4E 4F 57 4C 45 44 47 45 20 |N HIS KNOWLEDGE |
00002AB0: 4F 46 20 54 48 45 20 43 41 50 49 54 41 4C 53 22 |OF THE CAPITALS"|
00002AC0: 00 EA 32 2E 27 99 22 11 20 20 20 41 4E 44 20 53 |..2.'.". AND S|
00002AD0: 54 41 54 45 53 20 4F 46 20 54 48 45 20 D5 2E D3 |TATES OF THE ...|
00002AE0: 2E 20 C9 54 20 57 49 4C 4C 22 00 15 33 38 27 99 |. .T WILL"..38'.|
00002AF0: 22 11 20 20 20 50 52 4F 44 55 43 45 20 46 49 46 |". PRODUCE FIF|
00002B00: 54 59 20 52 41 4E 44 4F 4D 20 51 55 45 53 54 49 |TY RANDOM QUESTI|
00002B10: 4F 4E 53 2E 22 00 3B 33 4C 27 99 22 11 20 20 20 |ONS.".;3L'.". |
00002B20: D4 48 45 53 45 20 51 55 45 53 54 49 4F 4E 53 20 |.HESE QUESTIONS |
00002B30: 41 52 45 20 45 49 54 48 45 52 22 00 65 33 56 27 |ARE EITHER".e3V'|
00002B40: 99 22 11 20 20 20 4D 55 4C 54 49 50 4C 45 20 43 |.". MULTIPLE C|
00002B50: 48 4F 49 43 45 20 4F 52 20 46 49 4C 4C 20 49 4E |HOICE OR FILL IN|
00002B60: 20 54 48 45 22 00 7E 33 60 27 99 22 11 20 20 20 | THE".~3`'.". |
00002B70: 42 4C 41 4E 4B 2E 22 3A 8D 38 33 35 3A 8E 00 BA |BLANK.":.835:...|
00002B80: 33 E0 2E 8D 38 35 30 3A 99 22 13 11 11 11 20 D1 |3...850:.".... .|
00002B90: 55 45 53 54 49 4F 4E 22 3B 5A 5A AA 31 2C 22 C3 |UESTION";ZZ.1,".|
00002BA0: 4F 52 52 45 43 54 20 41 4E 53 57 45 52 53 22 3B |ORRECT ANSWERS";|
00002BB0: 4E 3A 99 22 13 11 11 22 3A 8E 00 00 00 |N:."...":.... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.I....---GENN....R......P..RP....
..........R.....P.......1.....RP........
RP............ UR$."":UI$."".!.*.: . U
L.0.UL.80.4.-.." ..";:.UC,0.K.2.: .UI$
:.UI$."".50.X.7.: .UI$.G(13).C(UR$)..1.
.UC,1:." .";:.85...<.: .UI$.G(20).105..
.>.: . C(UR$)..UL .50.N.A.: .120:. CHE
CK FOR VALID CHARACTER...F.: UR$.UR$.UI
$...K.: .UI$;...P.: .50...U..-----CHEC
K FOR HELP REQUEST-----.J.Z.: .UR$.UX$.
195:. EXIT TO HELP ROUTINE.\._.: .UF.1.
.240.K.D.: UF.0:.:....F..-----CHECK DELE
TE-----...I.: .C(UR$).1.50...N.: UR$.H(U
R$,C(UR$).1).H.S.: .". ..";:.50...X..--
---CHECK FOR VALID CHARACTERS-----...}.:
.C(US$).0.150.....: .US.1.C(US$).7...
: .UI$.J(US$,US,1)...@...: ..P...:
UI$."":..N....-----STANDARD INPUT-----..
...: .F(UI$).46. ......: .UI$.G(32). .
... .: .F(UI$).48 . F(UI$).57.170.C...:
......: .F(UI$).65 . F(UI$).90.180...
..: ......: .F(UI$).193 . F(UI$).218.U
I$."":..E...: .B(UT).12.B(UT).21.UI$.G(
F(UI$).128):..N...: ..^...: UI$."":...
.C.: UF.1:.-----HELP ROUTINE EXIT-----.
..E.: .250...H.: .245.A.M.: .UQ.UB.(U
2%.256.U1%.U3%.2)...R.: UQ%(UQ.UB).B(UQ
):.:."."...W.: UZ.1:UV%.B(UT)...X.: .3
00.'.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK.
^.Z..B(50003).0..53281,1:.".";:.53281,6:
.53280,14:.220.H....".";.....UT$.UL$:.UT
,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).....: .
UQ,UQ%(UQ.UB):......: .U1,U1%.M...: .U
2,U2%.....: .U4,U4%.....: .U3,U3%.1...
..: .35.-...: UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..K...: .H(UD$,24);
" . HELP COMING .
":......: U1%.B(U1):U2%.B(U2):U3%.B(U3)
:U4%.B(U4).....UJ$.US$:UJ.UL.O...: UJ$.
US$:UK$.UG$:UJ.UP:UK.UL.X...: ....,..--
---MENU-----...-.:.$...: .".":.UT,UU%:.
B(50003).0..53281,9:.53280,8.*./.:.J.1.:
.". MENU".|.6.: ." ---
-----------------------------------"...;
.: .".. 1. STATES AND CAPITALS
QUIZ".Z.@.: .".. 2. STUDENT INS
TRUCTIONS"...E.: .".. 3. TEACHE
R INSTRUCTIONS".&.O.: .".. 4. Q
UIT..".X.T.: ." -----------------------
---------------"...Y.: .".. PRESS
A NUMBER KEY (1-4) ";...^.: UL.1:US$."
1234":.35:.---INPUT ROUTINE---.K._.: .C
(UR$).1.300.Y.`.: US$.""...C.: .E(UR$)
.1000,400,500,396...H.: .300./....-----
RE-ENABLE STOP KEY AND END-----.A...: .
B(50003)..1.B(50003)..160.B(50003)..0.39
9.....: .UU.71:.B(50003).0..53281,6:.53
280,14.....: ."..":......: .875:..O...
.-----STUDENT INSTRUCTIONS-----.....: .
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0.....UP.0:UG$."STUDENT INST".,....1020:
.850.]...: .".... REMEMBER TO HIT <R
ETURN> AFTER".....: ." TYPING YOUR AN
SWER. THIS TELLS"... .: ." THE COMPUT
ER TO ACCEPT WHAT YOU".P...: ." HAVE
TYPED..".....: ." TYPE <H> AT ANY TI
ME TO RETURN".*...: ." TO THE MENU FO
R HELP. YOU WILL".W...: ." BE RETURN
ED TO THE PLACE IN THE".....: ." PROG
RAM WHERE YOU LEFT OFF AS".....: ." S
OON AS THE OPTION FROM THE MENU".J...:
." IS COMPLETE.".V...: .835.....: .U
Z.1..UP%:.217.....: .......-----TEACHER
INSTRUCTIONS-----.M...: .".":.UT,UL%:.
B(50003).0..53281,2:.53280,10.R...: UP.
0:UG$."TEACHER INST.":.850.....: ."..
TO THE BEST OF OUR KNOWLEDGE,.".O...
: ." THIS PROGRAM IS IN THE PUBLIC.".
....: ." DOMAIN. IF THIS IS NOT THE
CASE.".....: ." PLEASE CONTACT:...".K
...: ." COMMODORE BUSINESS MACHINE
S.".Q...: ." 3370 PHARMACY AVE
......: ." AGINCOURT, ONTARIO"
.....: ." CANADA M1W 2K4"...
..: ." (416) 499-4292".....UP.
1:. 835:. 850:.$...." ..PROGRAM NAME
: STATES & CAPITALS..F...." WRITTEN
BY : UNKNOWN..M...." UPGRADED BY :
TOBY WALKER."......" .THIS PROGRAM W
ILL RUN ON ANY........" PET 64 C
OMPUTER......." COMMODORE 64 COM
PUTER...D.: .835:.850:.10000...N.: .UZ
.1..UP%:.217...W.: ..>.X..-----PROGRAM
MODIFICATION INST-----.R.Y.: .".":.UT,U
L%.U.].: UP.0:UG$."PROGRAM MOD":.850...
..: .835.....: .UZ.1..UP%:.217.....:
..I....-----TO USE 8032 LOAD CBM4032----
-...F..".....BEFORE RUNNING THIS PROGRAM
ON AN 8032 ...5.P.." LOAD THE 'CB
M 4032' PROGRAM.............".C.Z.: .UU
.71.L...: ..L. .. ** T I T L E P A G
E **. .".."....";:.UT,UU%:.B(50003).0..5
3280,14:.53281,6...$..I.1.38:."...";:..N
.&..I.1.22:.".....";:....(..I.1.37:."...
..";:....*..I.1.22:.".....";:..#.,.."...
........................ ..E...."......
............. . . ...F.0.."............
....... . ......2.."...................
. ....4.."..............C O M M O D O R
E...O.6.."...............EDUCATIONAL...
..8.."................SOFTWARE...:.. **
COMMODORE LOGO **.A.;..H(UD$,24);"......
....PRESS SPACE BAR OR WAIT.":I.0.C.<..A
$:.A$.." ".I.I.1:.I.250.828...>.: T1$."
":T2$."":T3$."":T4$."":I.0...@.: .300..
.C..-----SPACE BAR PRESS-----...H.: .H(
UD$,24);".......PRESS SPACE BAR TO CONTI
NUE."...L.: .UI$:.UI$.." ".844...N.: .
.3.R..-----PAGE DESIGN ROUTINE-----.B.T.
: UP.UP.1.L.W.: ."."H(UT$.UP$,21);H(UG
$.UP$,14);UP...\.: ." -----------------
---------------------".U.A.: .H(UD$,24)
;H(UP$,6);"HELP - PRESS H <RETURN>"...
F.: ."..":....K..-----PLEASE WAIT REMAR
K-----.?.P.: .H(UD$,24);" ONE
MOMENT PLEASE... ".H.U.: ..H....--
---SET UP VARIABLES-----.....: UX$."H":
.UQ%(1000):UB.32768:U1.196:U2.197:U3.198
:U4.216:UC.167:UU.1024.....: UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:.50003,0.
2....B(50003).0.UB.1024:U1.209:U2.210:U3
.211:U4.214:UC.204:UU.2048.J....B(50003)
.0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.10
24.....: UD$.".........................
".F...: UP$."
".....: UT$." STATES & CAP
ITALS ":. PLACE PROGRAM TITLE HERE!!!!!!
!!!!!***.....: ..6....-----SET VARIABLE
S-----.Z...MX.51:.A(MX),B(4),C$(MX),S$(M
X).F...: .900.L...:......-----CHECK FOR
8032-----.....: .".":." ":. SHIFTED SP
ACE.E...: .B(UB.40)..96..700......-----
MEMORY CHECK-----.....: . .(0).2000.937
.)...: ."....THIS MACHINE DOES NOT HAVE
ENOUGH.".P...: ."MEMORY TO RUN THIS PR
OGRAM !".^...: .UU.71.G...: ......: .
"..":.B(50003).0.962......-----BASIC 2.0
OR 4.0 OR C-64 SETUP-----......1075
,133:.1076,144:.1077,234:.1079,4:.1080,1
33:.1081,145.* ...1091,155:.1098,133:.10
99,144:.1100,234:.1103,133.L ...1104,145
:.1.05,234:.1082,234.F ..: .B(50003)..1
60.955.. ..: .1093,88:.1094,228:.1097,8
5:.1102,228:.965.. ..: .B(50003)..1.990
.. ..: .1093,49:.1094,230:.1097,46:.110
2,230:.965..!B..2099,141:.2100,20:.2101,
3:.2103,8:.2104,141:.2105,21.X!C..2106,3
:.2115,145:.2117,52:.2118,234:.2121,49:.
2122,141..!D..2123,20:.2124,3:.2126,234:
.2127,141:.2128,21:.2129,3..!E.: .UU.48
:. DISABLE STOP KEY.G!J.: .800:. TITLE.
Z!T.: .300:. MENU.."..: .".THE PGM WIL
L NOT WORK ON THIS MACHINE!":..H"..: .UZ
.1..UP%:.UP%:UZ.0:.-----PROGRAM STARTS H
ERE-----.R"..."..";:.B(50003).0..53281,6
:.53280,14.|"...1120.."...".":.UT,UL%:UP
.0:.850:.". STATES AND CAPITALS
".."..." ...................
":.1140..#`..".":.875:.:. I.1.MX:. S$(I)
,C$(I).:#A.S$(I).G(F(J(S$(I),1,1)).128).
J(S$(I),2).H#B.C$(I).G(F(J(C$(I),1,1)).1
28).J(C$(I),2):...#J.. I.1.MX:A(I).0:.I:
G.0:N.0:ZZ..1..#O..1169.D#T..". THIS I
S AN EDUCATIONAL QUIZ WHICH"..#~..". T
ESTS YOUR KNOWLEDGE OF THE PROPER"..$...
". STATES AND CAPITALS.".>$...". IT
WILL GIVE YOU EITHER MULTIPLE".G$...".
CHOICE OR FILL-IN THE BLANKS."..$...".
FOR FILL-IN QUESTIONS SPELL THE"..$...
". ANSWER EXACTLY AND USE .ST.. AS AN"
..$...". ABBREVIATION FOR SAINT.":.835
:...%..UG$."STUDENT QUIZ.<%...".":.UT,UL
%:UP.0:.850:.".... SELECT THE TYPE OF QU
IZ:".F%...". 1 - MULTIPLE CHOICE QUEST
IONS."..%...". 2 - FILL-IN THE BLANKS.
"..%...". WHAT IS YOUR CHOICE? ";..%..US
$."H12":UL.1:.35.T%...UR$."2" . 1260..%.
.X.1:. 1300..%.....%..X.2..&...850:."...
WOULD YOU LIKE A QUIZ ABOUT".3&...".
1 - STATES".K&(..". 2 - CAPITALS".Y&2.
US$."12H":.". WHAT IS YOUR CHOICE? ";:.3
5..&<.Y.2:.UR$."2" . Y.1:. 1360..&P.. PI
CK A STATE.W&Z.. I.1.10:R..(.(1).MX).1:.
A(R)..2 . 1420..&D..I..'N.. DON'T WASTE
TIME PICKING ONE..'X.. R.1.MX:. A(R)..2
. 1420.,'...R:.1920.M'..ZZ.ZZ.1:RP.0:.
A(R).1 . RP.1.D'...ZZ.49..2030:.1970.U'.
.. X.1 . 1550..' .. ASK FOR FILL-IN ANSW
ERS..'... 2000:. Y.2 . 1480..'..A$.C$(R)
..'...12000:."... THE CAPITAL OF "S$(R);
" IS"..'...1481.!(H..12000:A$.S$(R):."..
. "C$(R);" IS CAPITAL OF".F(I..:.:.:.:."
.....................".S(R.."...........
.";:US$."":UL.20:.35:Z$.UR$..(... Z$.A$
. . 1800..(... 1790..(... ASK FOR MULTIP
LE CHOICE.T(... THE VALUE OF C IS THE AN
SWER..(".C..(.(1).4).1..),.. PICK 4 STAT
ES FOR THE CHOICES.*)6..I.1.4:B(I)..(.(1
).MX).1:.I.5)@.B(C).R.W)J.. MAKE SURE NO
NE ARE THE SAME..)T.. B(1).B(2) . B(1).B
(3) . B(1).B(4) . 1590..)^.. B(2).B(3) .
B(2).B(4) . B(3).B(4) . 1590.M)H.. 2000
:. Y.2 . 1690..)R.. PRINT CAPITAL CHOICE
S.&*|..12000:."... WHAT IS THE CAPITAL O
F ";S$(R);"?":A$.C$(R).\*...".. (A
) ";C$(B(1)):.".".7);"(B) ";C$(B(2))..*.
..".".7);"(C) "C$(B(3)):.".".7);"(D) "C$
(B(4)):. 1730..*... PRINT STATE CHOICES.
.*...12000:."... "C$(R);" IS THE CAPITAL
OF":A$.S$(R)..+..."..".7);"(A) ";S$(B(1
)):."." .7);"(B) ";S$(B(2)).O+...".";.7)
"(C) ";S$(B(3)):.".".7);"(D) ";S$(B(4)).
~+B.US$."ABCDH":.". WHAT IS THE ANSWER?
";:.35..+..Z.F(UR$).F("A").1..+... Z.C .
1800.R+..A(R).1:.".. WRONG, IT IS ";A$;
".":. 1820..+..A(R).2:N.N.1..+...".. RIG
HT!"..,...835:G.G.1..,&.. N.MX . 1360. ,
0.. 1920.H,L.." I WILL REPEAT MY QUESTIO
N.":RP.1.\,V.. X . 1640,1450..,...". WOU
LD YOU LIKE TO TRY AGAIN(Y/N)? ";..,..US
$."YN":.35..,...UR$."Y" . . 1130.V,...85
0:.". THANK YOU FOR PLAYING"..,...".
STATES AND CAPITALS!!!!"..-F..835:...-P
.. CHECK FOR REPEAT.!-Z...'-....9-... PR
INT SCORE.\-...850:. N.0 . G.0 . P.0: .
2060.L-..P..(N.2..5)..-..."..... YOUR
SCORE IS";P;"%."..-...". YOU HAVE";N;"
RIGHT IN";G;"TRIES".D-...835.J- ...S-*..
850...4..".... YOU HAVE DONE ALL THE QUE
STIONS."...... ***DATA***.^.J..ALABAMA,M
ONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,
ARKANSAS,"LITTLE ROCK"...T..CALIFORNIA,S
ACRAMENTO,COLORADO,DENVER,CONNECTICUT,HA
RTFORD,DELAWARE......DOVER,"DIST. OF COL
UM.",WASHINGTON,FLORIDA,TALLAHASSEE,GEOR
GIA.1/...ATLANTA,HAWAII,HONOLULU,IDAHO,B
OISE,ILLINOIS,SPRINGFIELD,INDIANA.V/...I
NDIANAPOLIS,IOWA,"DES MOINES",KANSAS,TOP
EKA,KENTUCKY,FRANKFORT.B/...LOUISIANA,"B
ATON ROUGE",MAINE,AUGUSTA,MARYLAND,ANNAP
OLIS,MASSACHUSETTS..0...BOSTON,MICHIGAN,
LANSING,MINNESOTA,"ST. PAUL",MISSISSIPPI
,JACKSON.N0...MISSOURI,"JEFFERSON CITY",
MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA..
0..."CARSON CITY","NEW HAMPSHIRE",CONCOR
D,"NEW JERSEY",TRENTON,"NEW MEXICO".V0$.
."SANTA FE","NEW YORK",ALBANY,"NORTH CAR
OLINA",RALEIGH..1..."NORTH DAKOTA",BISMA
RCK,OHIO,COLUMBUS.D18..OKLAHOMA,"OKLAHOM
A CITY",OREGON,SALEM,PENNSYLVANIA,HARRIS
BURG..1B.."RHODE ISLAND",PROVIDENCE,"SOU
TH CAROLINA",COLUMBIA,"SOUTH DAKOTA".W1L
..PIERRE,TENNESSEE,NASHVILLE,TEXAS,AUSTI
N,UTAH,"SALT LAKE CITY",VERMONT..2V..MON
TPELIER,VIRGINIA,RICHMOND,WASHINGTON,OLY
MPIA,"WEST VIRGINIA".O2`..CHARLESTON,WIS
CONSIN,MADISON,WYOMING,CHEYENNE.G2.'. MO
RE INSTRUCTIONS..2.'.".. THIS PROGRAM
QUIZZES THE STUDENT"..2$'.". ON HIS KN
OWLEDGE OF THE CAPITALS"..2.'.". AND S
TATES OF THE U.S. IT WILL"..38'.". PRO
DUCE FIFTY RANDOM QUESTIONS.".;3L'.".
THESE QUESTIONS ARE EITHER".E3V'.". MU
LTIPLE CHOICE OR FILL IN THE".~3`'.".
BLANK.":.835:...3...850:.".... QUESTION"
;ZZ.1,"CORRECT ANSWERS";N:."...":....
> CLICK IMAGE PREVIEW FOR FULL MODAL