CANADA QUIZ
FILE INFORMATION
FILENAME(S): CANADA QUIZ
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-12-02 00:17:48
APPEARS ON: 1 disk(s)
FILE HASH
d0783c7797dabaff2c6b8c29086e994a290658f0325800b352476015d2432a61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUB DOMAIN | CANADA QUIZ | PRG | Maestro | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 ED 08 0B 00 8F 27 27 |UTINE **......''|
000000D0: 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 |''''''''''''''''|
000000E0: 27 27 27 27 27 27 27 27 27 27 27 27 27 00 0B 09 |'''''''''''''...|
000000F0: 0C 00 8F 20 57 52 49 54 54 45 4E 20 42 59 20 44 |... WRITTEN BY D|
00000100: 41 56 49 44 20 48 41 4E 53 45 4E 00 2B 09 0D 00 |AVID HANSEN.+...|
00000110: 8F 20 52 45 56 49 53 45 44 20 42 59 20 53 54 45 |. REVISED BY STE|
00000120: 50 48 45 4E 20 46 45 4E 54 4F 4E 00 45 09 0E 00 |PHEN FENTON.E...|
00000130: 8F 20 20 20 20 20 20 20 20 20 20 20 4A 55 4C 59 |. JULY|
00000140: 20 31 39 38 32 00 4B 09 0F 00 3A 00 64 09 10 00 | 1982.K...:.d...|
00000150: 8F 20 20 20 20 20 46 57 43 49 20 43 4F 4D 50 55 |. FWCI COMPU|
00000160: 54 45 52 53 00 89 09 11 00 8F 27 27 27 27 27 27 |TERS......''''''|
00000170: 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 |''''''''''''''''|
00000180: 27 27 27 27 27 27 27 27 27 00 AD 09 14 00 8F 20 |'''''''''...... |
00000190: 2A 2A 20 54 4F 20 4F 55 52 20 42 45 53 54 20 4B |** TO OUR BEST K|
000001A0: 4E 4F 57 4C 45 44 47 45 20 54 48 49 53 00 CA 09 |NOWLEDGE THIS...|
000001B0: 15 00 8F 20 20 20 20 50 52 4F 47 52 41 4D 20 49 |... PROGRAM I|
000001C0: 53 20 46 52 45 45 20 46 4F 52 00 EA 09 16 00 8F |S FREE FOR......|
000001D0: 20 20 20 20 44 55 50 4C 49 43 41 54 49 4F 4E 20 | DUPLICATION |
000001E0: 49 4E 20 43 41 4E 41 44 41 2E 00 07 0A 17 00 8F |IN CANADA.......|
000001F0: 20 20 20 20 49 46 20 59 4F 55 20 48 41 56 45 20 | IF YOU HAVE |
00000200: 43 4F 4E 54 41 52 59 00 24 0A 18 00 8F 20 20 20 |CONTARY.$.... |
00000210: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 2C 20 50 4C | INFORMATION, PL|
00000220: 45 41 53 45 00 4A 0A 19 00 8F 20 20 20 20 43 4F |EASE.J.... CO|
00000230: 4E 54 41 43 54 20 43 4F 4D 4D 4F 44 4F 52 45 20 |NTACT COMMODORE |
00000240: 43 41 4E 41 44 41 20 41 4E 44 00 70 0A 1A 00 8F |CANADA AND.p....|
00000250: 20 20 20 20 45 56 45 52 59 20 45 46 46 4F 52 54 | EVERY EFFORT|
00000260: 20 57 49 4C 4C 20 42 45 20 4D 41 44 45 20 54 4F | WILL BE MADE TO|
00000270: 00 91 0A 1B 00 8F 20 20 20 20 57 49 54 48 44 52 |...... WITHDR|
00000280: 41 57 20 43 4F 50 49 45 53 20 4F 46 20 54 48 49 |AW COPIES OF THI|
00000290: 53 00 A3 0A 1C 00 8F 20 20 20 20 50 52 4F 47 52 |S...... PROGR|
000002A0: 41 4D 2E 00 A9 0A 1E 00 3A 00 C5 0A 23 00 8F 20 |AM......:...#.. |
000002B0: 2B 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F |+++ INPUT SECTIO|
000002C0: 4E 20 2B 2B 2B 00 DD 0A 28 00 97 55 4F 2C 30 3A |N +++...(..UO,0:|
000002D0: 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 ED 0A |UR$."":UI$.""...|
000002E0: 2A 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 F7 0A |*..UL.0.UL.80...|
000002F0: 2D 00 97 55 43 2C 30 00 0B 0B 32 00 A1 55 49 24 |-..UC,0...2..UI$|
00000300: 3A 8B 55 49 24 B2 22 22 A7 35 30 00 35 0B 37 00 |:.UI$."".50.5.7.|
00000310: 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 |.UI$..(13)..(UR$|
00000320: 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 |)..1..UC,1:." ."|
00000330: 3B 3A 89 38 35 00 48 0B 3C 00 8B 55 49 24 B2 C7 |;:.85.H.<..UI$..|
00000340: 28 32 30 29 A7 31 30 35 00 5C 0B 3E 00 8B 20 C3 |(20).105.\.>.. .|
00000350: 28 55 52 24 29 B2 B1 55 4C A7 35 30 00 81 0B 41 |(UR$)..UL.50...A|
00000360: 00 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F |..120:. CHECK FO|
00000370: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
00000380: 52 00 91 0B 46 00 55 52 24 B2 55 52 24 AA 55 49 |R...F.UR$.UR$.UI|
00000390: 24 00 9B 0B 4B 00 99 55 49 24 3B 00 A3 0B 50 00 |$...K..UI$;...P.|
000003A0: 89 35 30 00 C8 0B 55 00 8F 20 2B 2B 2B 20 43 48 |.50...U.. +++ CH|
000003B0: 45 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 |ECK FOR HELP REQ|
000003C0: 55 45 53 54 20 2B 2B 2B 00 F0 0B 5A 00 8B 55 52 |UEST +++...Z..UR|
000003D0: 24 B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 |$.UX$.195:. EXIT|
000003E0: 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 | TO HELP ROUTINE|
000003F0: 00 FF 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 |..._..UF.1..240.|
00000400: 0C 0C 64 00 55 46 B2 30 3A 99 3A 8E 00 25 0C 66 |..d.UF.0:.:..%.f|
00000410: 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 |.. ++ CHECK DELE|
00000420: 54 45 20 2B 2B 00 36 0C 69 00 8B C3 28 55 52 24 |TE ++.6.i...(UR$|
00000430: 29 B3 31 A7 35 30 00 4E 0C 6E 00 55 52 24 B2 C8 |).1.50.N.n.UR$..|
00000440: 28 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 60 |(UR$,.(UR$).1).`|
00000450: 0C 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 |.s..". ..";:.50|
00000460: 00 87 0C 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |...x.. ++ CHECK |
00000470: 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 |FOR VALID CHARAC|
00000480: 54 45 52 53 20 2B 2B 00 99 0C 7D 00 8B C3 28 55 |TERS ++...}...(U|
00000490: 53 24 29 B2 30 A7 31 35 30 00 A9 0C 7F 00 55 53 |S$).0.150.....US|
000004A0: 24 B2 55 53 24 AA 55 58 24 00 BA 0C 82 00 81 55 |$.US$.UX$......U|
000004B0: 53 B2 31 A4 C3 28 55 53 24 29 00 D1 0C 87 00 8B |S.1..(US$)......|
000004C0: 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 |UI$..(US$,US,1).|
000004D0: 8E 00 D7 0C 8C 00 82 00 E4 0C 91 00 55 49 24 B2 |............UI$.|
000004E0: 22 22 3A 8E 00 FF 0C 96 00 8F 20 2A 2A 20 53 54 |"":....... ** ST|
000004F0: 41 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 |ANDARD INPUT **.|
00000500: 10 0D 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E |......(UI$).46..|
00000510: 00 21 0D 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 |.!....UI$..(32).|
00000520: 8E 00 3E 0D A0 00 8B C6 28 55 49 24 29 B3 34 38 |..>.....(UI$).48|
00000530: B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 44 |..(UI$).57.170.D|
00000540: 0D A5 00 8E 00 61 0D AA 00 8B C6 28 55 49 24 29 |.....a.....(UI$)|
00000550: B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 |.65..(UI$).90.18|
00000560: 30 00 67 0D AF 00 8E 00 8B 0D B4 00 8B C6 28 55 |0.g...........(U|
00000570: 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 |I$).193..(UI$).2|
00000580: 31 38 A7 55 49 24 B2 22 22 3A 8E 00 AE 0D B9 00 |18.UI$."":......|
00000590: 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 |..(UT).UU%.UI$..|
000005A0: 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 B4 |(.(UI$).128):...|
000005B0: 0D BB 00 8E 00 C1 0D BE 00 55 49 24 B2 22 22 3A |.........UI$."":|
000005C0: 8E 00 E6 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B |......UF.1:. +++|
000005D0: 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 | HELP ROUTINE EX|
000005E0: 49 54 20 2B 2B 2B 00 EF 0D C5 00 8D 32 35 30 00 |IT +++......250.|
000005F0: F8 0D C8 00 8D 32 34 35 00 17 0E CD 00 81 55 51 |.....245......UQ|
00000600: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
00000610: AA 55 33 25 AB 32 29 00 33 0E D2 00 55 51 25 28 |.U3%.2).3...UQ%(|
00000620: 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 |UQ.UB)..(UQ):.:.|
00000630: 22 93 22 00 46 0E D7 00 55 5A B2 31 3A 55 56 25 |".".F...UZ.1:UV%|
00000640: B2 C2 28 55 54 29 00 4F 0E D8 00 89 33 30 30 00 |..(UT).O....300.|
00000650: 93 0E D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 |....UZ.0:US$.UJ$|
00000660: 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 |:UG$.UK$:UP.UJ:U|
00000670: 4C B2 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 |L.UK:..(50003).0|
00000680: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00000690: 2C 31 34 00 C8 0E DC 00 55 54 24 B2 55 4C 24 3A |,14.....UT$.UL$:|
000006A0: 99 22 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 |.".";:.UT,UV%:.U|
000006B0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
000006C0: 25 AA 55 33 25 AB 33 29 00 DD 0E E1 00 97 55 51 |%.U3%.3)......UQ|
000006D0: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 E9 0E |,UQ%(UQ.UB):....|
000006E0: E6 00 97 55 31 2C 55 31 25 00 F5 0E E8 00 97 55 |...U1,U1%......U|
000006F0: 32 2C 55 32 25 00 01 0F E9 00 97 55 34 2C 55 34 |2,U2%......U4,U4|
00000700: 25 00 0F 0F EA 00 97 55 33 2C 55 33 25 AB 31 00 |%......U3,U3%.1.|
00000710: 17 0F EB 00 89 33 35 00 49 0F F0 00 55 44 25 B2 |.....35.I...UD%.|
00000720: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000730: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000740: 2C 55 44 25 AA 31 29 3A 8E 00 84 0F F5 00 99 C8 |,UD%.1):........|
00000750: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
00000780: 20 22 3A 8E 00 B0 0F FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
00000790: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000007A0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000007B0: 00 D8 0F FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
000007C0: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
000007D0: 55 50 3A 55 4B B2 55 4C 00 DE 0F FF 00 8E 00 EF |UP:UK.UL........|
000007E0: 0F 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
000007F0: F5 0F 2D 01 3A 00 24 10 2E 01 99 22 93 22 3A 97 |..-.:.$....".":.|
00000800: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000810: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000820: 38 30 2C 38 00 2A 10 2F 01 3A 00 47 10 31 01 99 |80,8.*./.:.G.1..|
00000830: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000840: 20 20 4D 45 4E 55 22 00 76 10 36 01 99 22 20 2D | MENU".v.6.." -|
00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000870: 2D 2D 2D 2D 2D 22 00 98 10 3B 01 99 22 11 11 20 |-----"...;..".. |
00000880: 20 20 20 20 20 20 31 2E 20 20 20 43 41 4E 41 44 | 1. CANAD|
00000890: 41 20 51 55 49 5A 20 22 00 C2 10 40 01 99 22 11 |A QUIZ "...@..".|
000008A0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000008B0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
000008C0: 53 22 00 EC 10 45 01 99 22 11 11 20 20 20 20 20 |S"...E..".. |
000008D0: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
000008E0: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 08 11 4F |NSTRUCTIONS"...O|
000008F0: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000900: 20 51 55 49 54 11 11 22 00 37 11 54 01 99 22 20 | QUIT..".7.T.." |
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000930: 2D 2D 2D 2D 2D 2D 22 00 62 11 59 01 99 22 11 11 |------".b.Y.."..|
00000940: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
00000950: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
00000960: 22 3B 00 8A 11 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
00000970: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
00000980: 55 54 20 52 4F 55 54 49 4E 45 00 9C 11 5F 01 8B |UT ROUTINE..._..|
00000990: C3 28 55 52 24 29 B1 31 A7 33 30 30 00 A7 11 60 |.(UR$).1.300...`|
000009A0: 01 55 53 24 B2 22 22 00 C4 11 63 01 91 C5 28 55 |.US$.""...c...(U|
000009B0: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
000009C0: 2C 33 39 36 00 CD 11 68 01 89 33 30 30 00 F4 11 |,396...h..300...|
000009D0: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
000009E0: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
000009F0: 44 20 2A 2A 00 23 12 8C 01 8B C2 28 35 30 30 30 |D **.#.....(5000|
00000A00: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
00000A10: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
00000A20: 33 39 39 00 4D 12 8D 01 9E 55 55 AA 37 31 3A 8B |399.M....UU.71:.|
00000A30: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000A40: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 59 12 |1,6:.53280,14.Y.|
00000A50: 8E 01 99 22 9A 93 22 3A 80 00 64 12 8F 01 8D 38 |..."..":..d....8|
00000A60: 37 35 3A 8E 00 85 12 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST|
00000A70: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
00000A80: 4E 53 20 2A 2A 00 9C 12 92 01 55 54 24 B2 22 20 |NS **.....UT$." |
00000A90: C3 41 4E 41 44 41 20 D1 55 49 5A 22 00 CB 12 95 |.ANADA .UIZ"....|
00000AA0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000AB0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000AC0: 2C 30 3A 97 35 33 32 38 30 2C 30 00 EC 12 9A 01 |,0:.53280,0.....|
00000AD0: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
00000AE0: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 1A 13 9C |T .NST":.850....|
00000AF0: 01 99 22 11 11 11 11 20 20 20 20 D9 4F 55 20 57 |..".... .OU W|
00000B00: 49 4C 4C 20 42 45 20 47 49 56 45 4E 20 41 20 44 |ILL BE GIVEN A D|
00000B10: 52 49 4C 4C 20 4F 46 20 31 30 00 3A 13 9F 01 99 |RILL OF 10.:....|
00000B20: 22 11 11 20 51 55 45 53 54 49 4F 4E 53 20 54 4F |".. QUESTIONS TO|
00000B30: 20 41 4E 53 57 45 52 2E 20 22 00 6A 13 A4 01 99 | ANSWER. ".j....|
00000B40: 22 11 11 20 20 20 20 D4 48 45 20 51 55 45 53 54 |".. .HE QUEST|
00000B50: 49 4F 4E 53 20 44 45 41 4C 20 57 49 54 48 20 50 |IONS DEAL WITH P|
00000B60: 52 4F 56 49 4E 43 49 41 4C 22 00 8A 13 A9 01 99 |ROVINCIAL"......|
00000B70: 22 11 11 20 50 52 45 4D 49 45 52 53 20 41 4E 44 |".. PREMIERS AND|
00000B80: 20 43 41 50 49 54 41 4C 53 2E 00 93 13 AE 01 8D | CAPITALS.......|
00000B90: 38 33 35 00 9C 13 C7 01 8D 38 35 30 00 CB 13 CC |835......850....|
00000BA0: 01 99 22 20 11 11 CE 4F 54 45 3A 11 11 11 D4 4F |.." ...OTE:....O|
00000BB0: 20 41 44 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E | ADVANCE FROM ON|
00000BC0: 45 20 51 55 45 53 54 49 4F 4E 22 00 F4 13 D6 01 |E QUESTION".....|
00000BD0: 99 22 11 20 54 4F 20 54 48 45 20 4E 45 58 54 20 |.". TO THE NEXT |
00000BE0: 50 52 45 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 |PRESS THE ..... |
00000BF0: 42 41 52 22 00 25 14 DB 01 99 22 20 11 11 1D 1D |BAR".%...." ....|
00000C00: 1D 1D 1D C9 46 20 41 54 20 41 4E 59 20 54 49 4D |....F AT ANY TIM|
00000C10: 45 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 |E YOU WISH TO RE|
00000C20: 54 55 52 4E 22 00 49 14 E0 01 99 22 20 11 54 4F |TURN".I...." .TO|
00000C30: 20 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 | THE .... PRESS |
00000C40: 48 20 D2 C5 D4 D5 D2 CE 22 00 52 14 E5 01 8D 38 |H ......".R....8|
00000C50: 33 35 00 66 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 |35.f....UZ.1..UP|
00000C60: 25 3A 89 32 31 37 00 6C 14 F3 01 8E 00 8D 14 F4 |%:.217.l........|
00000C70: 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E |.. ** TEACHER IN|
00000C80: 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 BD 14 |STRUCTIONS **...|
00000C90: F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
00000CA0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000CB0: 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 F1 14 |1,2:.53280,10...|
00000CC0: F6 01 55 54 24 B2 22 20 C3 41 4E 41 44 41 20 D1 |..UT$." .ANADA .|
00000CD0: 55 49 5A 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 |UIZ":UP.0:UG$.".|
00000CE0: 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 |EACHER .NST":.85|
00000CF0: 30 00 1F 15 F7 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000D00: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000D10: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000D20: 48 15 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |H...." THIS PR|
00000D30: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00000D40: 50 55 42 4C 49 43 11 22 00 74 15 F9 01 99 22 20 |PUBLIC.".t...." |
00000D50: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00000D60: 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 |IS IS NOT THE CA|
00000D70: 53 45 11 22 00 91 15 FA 01 99 22 20 20 20 50 4C |SE."......" PL|
00000D80: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 |EASE CONTACT:...|
00000D90: 22 00 BB 15 FB 01 99 22 20 20 20 20 20 20 C3 4F |"......" .O|
00000DA0: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
00000DB0: 20 CD 41 43 48 49 4E 45 53 11 22 00 DE 15 FC 01 | .ACHINES.".....|
00000DC0: 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 |." 3370|
00000DD0: 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 02 | .HARMACY .VE...|
00000DE0: 16 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 |...." .|
00000DF0: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI|
00000E00: 4F 22 00 24 16 FE 01 99 22 20 20 20 20 20 20 20 |O".$...." |
00000E10: 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 | .ANADA .1. |
00000E20: 32 CB 34 22 00 44 16 FF 01 99 22 20 20 20 20 20 |2.4".D...." |
00000E30: 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 | (416) 499-4|
00000E40: 32 39 32 22 00 5A 16 00 02 55 50 B2 31 3A 8D 20 |292".Z...UP.1:. |
00000E50: 38 33 35 3A 8D 20 38 35 30 3A 00 84 16 01 02 99 |835:. 850:......|
00000E60: 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 |" ...ROGRAM |
00000E70: CE 41 4D 45 3A 20 C3 41 4E 41 44 41 20 D1 55 49 |.AME: .ANADA .UI|
00000E80: 5A 20 20 11 00 AB 16 02 02 99 22 20 20 20 20 20 |Z ......." |
00000E90: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 C4 41 |.RITTEN .Y : .A|
00000EA0: 56 49 44 20 C8 41 4E 53 45 4E 11 00 CF 16 03 02 |VID .ANSEN......|
00000EB0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
00000EC0: C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 |.Y : ..|
00000ED0: FA 16 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |....." ..HIS|
00000EE0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
00000EF0: 4E 20 4F 4E 20 41 4E 59 11 11 00 21 17 05 02 99 |N ON ANY...!....|
00000F00: 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 |" ......|
00000F10: 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 |2.0 ... ........|
00000F20: 11 00 48 17 06 02 99 22 20 20 20 20 20 20 20 20 |..H...." |
00000F30: 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 | ..... 4.0 .....|
00000F40: CF CD D0 D5 D4 C5 D2 11 00 6A 17 07 02 99 22 20 |.........j...." |
00000F50: 20 20 20 20 20 20 20 20 38 30 33 32 20 C3 C2 CD | 8032 ...|
00000F60: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 8F 17 08 02 99 | ...............|
00000F70: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
00000F80: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00000F90: 98 17 44 02 8D 38 33 35 00 AC 17 4E 02 8B 55 5A |..D..835...N..UZ|
00000FA0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B2 17 57 |.1..UP%:.217...W|
00000FB0: 02 8E 00 D8 17 58 02 8F 20 2A 2A 20 50 52 4F 47 |.....X.. ** PROG|
00000FC0: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000FD0: 20 49 4E 53 54 20 2A 2A 00 E9 17 59 02 99 22 93 | INST **...Y..".|
00000FE0: 22 3A 97 55 54 2C 55 4C 25 00 09 18 5D 02 55 50 |":.UT,UL%...].UP|
00000FF0: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00001000: CD 4F 44 22 3A 8D 38 35 30 00 12 18 94 02 8D 38 |.OD":.850......8|
00001010: 33 35 00 26 18 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35.&....UZ.1..UP|
00001020: 25 3A 89 32 31 37 00 2C 18 BB 02 8E 00 51 18 BC |%:.217.,.....Q..|
00001030: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00001040: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00001050: 2A 00 87 18 C6 02 99 22 93 11 11 11 05 42 45 46 |*......".....BEF|
00001060: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00001070: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
00001080: 30 33 32 20 20 11 11 00 BD 18 D0 02 99 22 20 20 |032 ........" |
00001090: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
000010A0: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
000010B0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 C8 18 |............"...|
000010C0: DA 02 9E 55 55 AA 37 31 00 CE 18 E4 02 80 00 F3 |...UU.71........|
000010D0: 18 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
000010E0: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
000010F0: 20 2A 2A 00 3E 19 1E 03 99 22 93 11 11 11 42 45 | **.>...."....BE|
00001100: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00001110: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00001120: 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D |8032 ..LOAD CBM|
00001130: 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 00 4A | 4032 PROGRAM".J|
00001140: 19 1F 03 9E 31 30 39 33 3A 80 00 6A 19 20 03 8F |....1093:..j. ..|
00001150: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E |
00001160: 50 20 41 20 47 20 45 20 2A 2A 00 9E 19 22 03 99 |P A G E **..."..|
00001170: 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A |"....";:.UT,UU%:|
00001180: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001190: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 B4 |80,14:.53281,6..|
000011A0: 19 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...|
000011B0: 22 3B 3A 82 00 CC 19 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22|
000011C0: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 E4 19 28 |:.".....";:....(|
000011D0: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....|
000011E0: 22 3B 3A 82 00 FC 19 2A 03 81 49 B2 31 A4 32 32 |";:....*..I.1.22|
000011F0: 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 21 1A 2C |:.".....";:..!.,|
00001200: 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |..".............|
00001210: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 |.............. |
00001220: 92 00 43 1A 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..C...."........|
00001230: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00001240: 20 92 A9 00 64 1A 30 03 99 22 1D 1D 1D 1D 1D 1D | ...d.0.."......|
00001250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00001260: 20 12 A3 DF 00 82 1A 32 03 99 22 1D 1D 1D 1D 1D | ......2..".....|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |............... |
00001280: 20 92 00 AA 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D | ....4..".......|
00001290: 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F |.......C O M M O|
000012A0: 20 44 20 4F 20 52 20 45 11 11 00 CD 1A 36 03 99 | D O R E.....6..|
000012B0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000012C0: 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 EC 1A |EDUCATIONAL.....|
000012D0: 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |8.."............|
000012E0: 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 07 1B 3A |....SOFTWARE...:|
000012F0: 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 |.. ** COMMODORE |
00001300: 4C 4F 47 4F 20 2A 2A 00 3F 1B 3B 03 99 C8 28 55 |LOGO **.?.;...(U|
00001310: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D |D$,24);"........|
00001320: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
00001330: 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 |R OR WAIT.":I.0.|
00001340: 61 1B 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 |a.<..A$:.A$.." "|
00001350: A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 |.I.I.1:.I.250.82|
00001360: 38 00 85 1B 3E 03 54 31 24 B2 22 22 3A 54 32 24 |8...>.T1$."":T2$|
00001370: B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 |."":T3$."":T4$."|
00001380: 22 3A 49 B2 30 00 8E 1B 40 03 89 33 30 30 00 AA |":I.0...@..300..|
00001390: 1B 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 |.C.. ** SPACE BA|
000013A0: 52 20 50 52 45 53 53 20 2A 2A 00 E5 1B 48 03 97 |R PRESS **...H..|
000013B0: 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B |UO,0:..(UD$,24);|
000013C0: 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |".......PRESS SP|
000013D0: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI|
000013E0: 4E 55 45 92 22 00 FC 1B 4C 03 A1 55 49 24 3A 8B |NUE."...L..UI$:.|
000013F0: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 02 1C 4E |UI$.." ".844...N|
00001400: 03 8E 00 22 1C 52 03 8F 20 2A 2A 20 50 41 47 45 |...".R.. ** PAGE|
00001410: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE |
00001420: 2A 2A 00 2E 1C 54 03 55 50 B2 55 50 AA 31 00 58 |**...T.UP.UP.1.X|
00001430: 1C 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |.W..".".(UT$.UP$|
00001440: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..|
00001450: 28 55 50 29 2C 31 38 29 00 87 1C 5C 03 99 22 20 |(UP),18)...\.." |
00001460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001480: 2D 2D 2D 2D 2D 2D 22 00 96 1C 60 03 8B 55 48 B3 |------"...`..UH.|
00001490: B1 30 A7 38 37 30 00 CA 1C 61 03 99 C8 28 55 44 |.0.870...a...(UD|
000014A0: 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 |$,24);.(UP$,7);"|
000014B0: 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 |HELP - PRESS H|
000014C0: 20 3C 52 45 54 55 52 4E 3E 22 00 E1 1C 66 03 55 | <RETURN>"...f.U|
000014D0: 48 B2 30 3A 97 55 4F 2C 30 3A 99 22 13 11 22 3A |H.0:.UO,0:."..":|
000014E0: 8E 00 00 1D 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |....k.. ** PLEAS|
000014F0: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
00001500: 00 36 1D 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |.6.p...(UD$,24);|
00001510: 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 |" ONE |
00001520: 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E |MOMENT PLEASE...|
00001530: 20 20 20 20 20 22 00 3C 1D 75 03 8E 00 59 1D 84 | ".<.u...Y..|
00001540: 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 |.. ** SET UP VAR|
00001550: 49 41 42 4C 45 53 20 2A 2A 00 A4 1D 85 03 55 58 |IABLES **.....UX|
00001560: 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 |$."H":.UQ%(1000)|
00001570: 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 |:UB.32768:U1.196|
00001580: 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 |:U2.197:U3.198:U|
00001590: 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 |4.216:UC.167:UU.|
000015A0: 31 30 32 34 00 E2 1D 86 03 55 54 B2 35 39 34 36 |1024.....UT.5946|
000015B0: 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A |8:UU%.12:UL%.14:|
000015C0: 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 |UP%.1146:UM.3276|
000015D0: 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 |8:UO.158:. 50003|
000015E0: 2C 30 00 25 1E 87 03 8B C2 28 35 30 30 30 33 29 |,0.%.....(50003)|
000015F0: B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 |.0.UB.1024:U1.20|
00001600: 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A |9:U2.210:U3.211:|
00001610: 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 |U4.214:UC.204:UU|
00001620: B2 32 30 34 38 00 64 1E 88 03 8B C2 28 35 30 30 |.2048.d.....(500|
00001630: 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 |03).0.UT.53272:U|
00001640: 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 |U%.21:UL%.23:UP%|
00001650: B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F |.2139:UM.1024:UO|
00001660: B2 31 39 38 00 88 1E 89 03 55 44 24 B2 22 13 11 |.198.....UD$."..|
00001670: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001680: 11 11 11 11 11 11 11 22 00 BA 1E 8A 03 55 50 24 |.......".....UP$|
00001690: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016B0: 20 20 20 20 20 20 20 20 20 22 00 E1 1E 8B 03 55 | ".....U|
000016C0: 54 24 B2 22 20 C3 C1 CE C1 C4 C1 A0 D1 D5 C9 DA |T$." ...........|
000016D0: 22 3A 8F 20 50 52 4F 47 52 41 4D 20 54 49 54 4C |":. PROGRAM TITL|
000016E0: 45 00 FD 1E 8C 03 86 48 24 28 32 30 29 2C 5A 24 |E......H$(20),Z$|
000016F0: 28 32 30 29 2C 52 4E 28 31 30 29 3A 8E 00 17 1F |(20),RN(10):....|
00001700: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA|
00001710: 42 4C 45 53 20 2A 2A 00 20 1F 93 03 8D 39 30 30 |BLES **. ....900|
00001720: 00 26 1F 94 03 3A 00 2C 1F 95 03 3A 00 47 1F 98 |.&...:.,...:.G..|
00001730: 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |.. ** CHECK FOR |
00001740: 38 30 33 32 20 2A 2A 00 65 1F 9D 03 99 22 93 22 |8032 **.e...."."|
00001750: 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 |:.".":. SHIFTED |
00001760: 53 50 41 43 45 00 7C 1F A2 03 8B C2 28 55 42 AA |SPACE.|.....(UB.|
00001770: 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 95 1F A3 |40)..96..700....|
00001780: 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 |.. ** MEMORY CHE|
00001790: 43 4B 20 2A 2A 00 A9 1F A4 03 8B 20 B8 28 30 29 |CK **...... .(0)|
000017A0: B1 32 30 30 30 A7 39 33 37 00 D7 1F A5 03 99 22 |.2000.937......"|
000017B0: 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 |....THIS MACHINE|
000017C0: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
000017D0: 4E 4F 55 47 48 11 22 00 FB 1F A6 03 99 22 4D 45 |NOUGH."......"ME|
000017E0: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
000017F0: 20 50 52 4F 47 52 41 4D 20 21 22 00 06 20 A7 03 | PROGRAM !".. ..|
00001800: 9E 55 55 AA 37 31 00 0C 20 A8 03 80 00 26 20 A9 |.UU.71.. ....& .|
00001810: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
00001820: B2 30 A7 39 36 32 00 55 20 AC 03 8F 20 2A 2A 20 |.0.962.U ... ** |
00001830: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
00001840: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
00001850: 55 50 20 2A 2A 00 93 20 AD 03 97 31 30 37 35 2C |UP **.. ...1075,|
00001860: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
00001870: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
00001880: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
00001890: 31 34 35 00 C9 20 AE 03 97 31 30 39 31 2C 31 35 |145.. ...1091,15|
000018A0: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
000018B0: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
000018C0: 97 31 31 30 33 2C 31 33 33 00 EB 20 AF 03 97 31 |.1103,133.. ...1|
000018D0: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
000018E0: 34 3A 97 31 30 38 32 2C 32 33 34 00 02 21 B1 03 |4:.1082,234..!..|
000018F0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
00001900: 35 35 00 31 21 B6 03 97 31 30 39 33 2C 38 38 3A |55.1!...1093,88:|
00001910: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
00001920: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
00001930: 35 00 46 21 BB 03 8B C2 28 35 30 30 30 33 29 B3 |5.F!....(50003).|
00001940: B1 31 A7 39 39 30 00 75 21 C0 03 97 31 30 39 33 |.1.990.u!...1093|
00001950: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
00001960: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
00001970: 3A 89 39 36 35 00 AF 21 C2 03 97 32 30 39 39 2C |:.965..!...2099,|
00001980: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
00001990: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
000019A0: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
000019B0: EB 21 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |.!...2106,3:.211|
000019C0: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
000019D0: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
000019E0: 39 3A 97 32 31 32 32 2C 31 34 31 00 25 22 C4 03 |9:.2122,141.%"..|
000019F0: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
00001A00: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
00001A10: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
00001A20: 31 32 39 2C 33 00 43 22 C5 03 9E 55 55 AA 34 38 |129,3.C"...UU.48|
00001A30: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
00001A40: 4B 45 59 00 54 22 CA 03 8D 38 30 30 3A 8F 20 54 |KEY.T"...800:. T|
00001A50: 49 54 4C 45 00 64 22 D4 03 89 33 30 30 3A 8F 20 |ITLE.d"...300:. |
00001A60: 4D 45 4E 55 00 95 22 DE 03 99 22 93 54 48 45 20 |MENU.."...".THE |
00001A70: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001A80: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001A90: 45 21 22 3A 80 00 CA 22 E8 03 8B 55 5A B2 31 A7 |E!":..."...UZ.1.|
00001AA0: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001AB0: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001AC0: 54 53 20 48 45 52 45 20 2A 2A 00 F6 22 E9 03 99 |TS HERE **.."...|
00001AD0: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001AE0: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
00001AF0: 32 38 30 2C 31 34 00 14 23 EB 03 9C 3A 8D 39 30 |280,14..#...:.90|
00001B00: 30 3A 55 54 24 B2 22 20 43 41 4E 41 44 41 20 51 |0:UT$." CANADA Q|
00001B10: 55 49 5A 22 00 1A 23 1A 04 8C 00 29 23 4C 04 99 |UIZ"..#....)#L..|
00001B20: 22 93 22 3A 8D 32 30 30 30 00 32 23 56 04 99 22 |".":.2000.2#V.."|
00001B30: 93 22 00 48 23 6A 04 81 48 B2 31 A4 31 30 3A 87 |.".H#j..H.1.10:.|
00001B40: 51 24 28 48 29 3A 82 48 00 52 23 74 04 83 57 4F |Q$(H):.H.R#t..WO|
00001B50: 57 21 00 5D 23 7E 04 83 47 52 45 41 54 00 6B 23 |W!.]#~..GREAT.k#|
00001B60: 88 04 83 48 4F 4C 59 20 43 4F 57 00 7D 23 92 04 |...HOLY COW.}#..|
00001B70: 83 53 55 50 45 52 20 44 4F 4F 50 45 52 00 8E 23 |.SUPER DOOPER..#|
00001B80: 9C 04 83 46 49 4E 45 20 41 4E 53 57 45 52 00 A1 |...FINE ANSWER..|
00001B90: 23 A6 04 83 43 4F 52 52 45 43 54 41 4D 55 4E 44 |#...CORRECTAMUND|
00001BA0: 4F 00 B2 23 B0 04 83 47 4F 4F 44 20 41 4E 53 57 |O..#...GOOD ANSW|
00001BB0: 45 52 00 C4 23 BA 04 83 54 48 41 54 27 53 20 52 |ER..#...THAT'S R|
00001BC0: 49 47 48 54 00 DB 23 C4 04 83 42 4F 59 20 41 52 |IGHT..#...BOY AR|
00001BD0: 45 20 59 4F 55 20 53 4D 41 52 54 00 E8 23 CE 04 |E YOU SMART..#..|
00001BE0: 83 43 4F 52 52 45 43 54 00 04 24 D8 04 81 49 B2 |.CORRECT..$...I.|
00001BF0: 31 A4 31 39 3A 87 48 24 28 49 29 2C 5A 24 28 49 |1.19:.H$(I),Z$(I|
00001C00: 29 3A 82 49 00 0E 24 E2 04 8D 31 38 35 30 00 26 |):.I..$...1850.&|
00001C10: 24 EC 04 52 4E 28 31 29 B2 B5 28 31 30 AC BB 28 |$..RN(1)..(10..(|
00001C20: 54 49 29 AA 31 29 00 32 24 F6 04 81 4A B2 32 A4 |TI).1).2$...J.2.|
00001C30: 31 30 00 46 24 00 05 59 B2 B5 28 31 39 AC BB 28 |10.F$..Y..(19..(|
00001C40: 54 49 29 AA 31 29 00 51 24 0A 05 81 49 B2 31 A4 |TI).1).Q$...I.1.|
00001C50: 4A 00 63 24 14 05 8B 59 B2 52 4E 28 49 29 A7 31 |J.c$...Y.RN(I).1|
00001C60: 32 38 30 00 6A 24 1E 05 82 49 00 76 24 28 05 52 |280.j$...I.v$(.R|
00001C70: 4E 28 4A 29 B2 59 00 7D 24 32 05 82 4A 00 A1 24 |N(J).Y.}$2..J..$|
00001C80: 3C 05 83 57 48 41 54 20 49 53 20 54 48 45 20 43 |<..WHAT IS THE C|
00001C90: 41 50 49 54 41 4C 20 4F 46 20 43 41 4E 41 44 41 |APITAL OF CANADA|
00001CA0: 3F 00 AD 24 46 05 83 4F 54 54 41 57 41 00 D0 24 |?..$F..OTTAWA..$|
00001CB0: 50 05 83 57 48 41 54 20 49 53 20 54 48 45 20 43 |P..WHAT IS THE C|
00001CC0: 41 50 49 54 41 4C 20 4F 46 20 50 2E 45 2E 49 3F |APITAL OF P.E.I?|
00001CD0: 00 E3 24 5A 05 83 43 48 41 52 4C 4F 54 54 45 54 |..$Z..CHARLOTTET|
00001CE0: 4F 57 4E 00 1A 25 64 05 83 57 48 41 54 20 50 52 |OWN..%d..WHAT PR|
00001CF0: 4F 56 49 4E 43 45 20 50 52 4F 44 55 43 45 53 20 |OVINCE PRODUCES |
00001D00: 54 48 45 20 4D 4F 53 54 20 54 49 4D 42 45 52 20 |THE MOST TIMBER |
00001D10: 20 41 4E 4E 55 41 4C 4C 59 3F 00 30 25 6E 05 83 | ANNUALLY?.0%n..|
00001D20: 42 52 49 54 49 53 48 20 43 4F 4C 55 4D 42 49 41 |BRITISH COLUMBIA|
00001D30: 00 54 25 78 05 83 57 48 4F 20 49 53 20 54 48 45 |.T%x..WHO IS THE|
00001D40: 20 50 52 45 4D 49 45 52 20 4F 46 20 4F 4E 54 41 | PREMIER OF ONTA|
00001D50: 52 49 4F 3F 00 64 25 82 05 83 42 49 4C 4C 20 44 |RIO?.d%...BILL D|
00001D60: 41 56 49 53 00 88 25 8C 05 83 57 48 4F 20 49 53 |AVIS..%...WHO IS|
00001D70: 20 54 48 45 20 50 52 45 4D 49 45 52 20 4F 46 20 | THE PREMIER OF |
00001D80: 41 4C 42 45 52 54 41 3F 00 9D 25 96 05 83 20 50 |ALBERTA?..%... P|
00001D90: 45 54 45 52 20 4C 4F 55 47 48 45 45 44 00 C3 25 |ETER LOUGHEED..%|
00001DA0: A0 05 83 57 48 41 54 20 49 53 20 54 48 45 20 43 |...WHAT IS THE C|
00001DB0: 41 50 49 54 41 4C 20 4F 46 20 4D 41 4E 49 54 4F |APITAL OF MANITO|
00001DC0: 42 41 3F 00 D1 25 AA 05 83 57 49 4E 4E 49 50 45 |BA?..%...WINNIPE|
00001DD0: 47 00 F6 25 B4 05 83 57 48 41 54 20 49 53 20 54 |G..%...WHAT IS T|
00001DE0: 48 45 20 43 41 50 49 54 41 4C 20 4F 46 20 4F 4E |HE CAPITAL OF ON|
00001DF0: 54 41 52 49 4F 3F 00 04 26 BE 05 83 20 54 4F 52 |TARIO?..&... TOR|
00001E00: 4F 4E 54 4F 00 30 26 C8 05 83 20 20 57 48 4F 20 |ONTO.0&... WHO |
00001E10: 49 53 20 54 48 45 20 50 52 49 4D 45 20 4D 49 4E |IS THE PRIME MIN|
00001E20: 49 53 54 45 52 20 4F 46 20 43 41 4E 41 44 41 3F |ISTER OF CANADA?|
00001E30: 00 44 26 D2 05 83 50 49 45 52 52 45 20 54 52 55 |.D&...PIERRE TRU|
00001E40: 44 45 41 55 00 6E 26 DC 05 83 57 48 41 54 20 49 |DEAU.n&...WHAT I|
00001E50: 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F 46 |S THE CAPITAL OF|
00001E60: 20 4E 45 57 46 4F 55 4E 44 4C 41 4E 44 3F 00 7E | NEWFOUNDLAND?.~|
00001E70: 26 E6 05 83 20 53 54 2E 20 4A 4F 48 4E 53 00 A8 |&... ST. JOHNS..|
00001E80: 26 F0 05 83 57 48 41 54 20 49 53 20 54 48 45 20 |&...WHAT IS THE |
00001E90: 43 41 50 49 54 41 4C 20 4F 46 20 53 41 53 4B 41 |CAPITAL OF SASKA|
00001EA0: 54 43 48 45 57 41 4E 3F 00 B5 26 FA 05 83 20 52 |TCHEWAN?..&... R|
00001EB0: 45 47 49 4E 41 00 D9 26 04 06 83 57 48 41 54 20 |EGINA..&...WHAT |
00001EC0: 49 53 20 54 48 45 20 43 41 50 49 54 41 4C 20 4F |IS THE CAPITAL O|
00001ED0: 46 20 51 55 45 42 45 43 3F 00 EA 26 0E 06 83 51 |F QUEBEC?..&...Q|
00001EE0: 55 45 42 45 43 20 43 49 54 59 00 16 27 18 06 83 |UEBEC CITY..'...|
00001EF0: 57 48 4F 20 49 53 20 54 48 45 20 47 4F 56 45 52 |WHO IS THE GOVER|
00001F00: 4E 4F 52 2D 47 45 4E 45 52 41 4C 20 4F 46 20 43 |NOR-GENERAL OF C|
00001F10: 41 4E 41 44 41 3F 00 26 27 22 06 83 45 44 20 53 |ANADA?.&'"..ED S|
00001F20: 43 48 52 59 45 52 00 4D 27 2C 06 83 57 48 4F 20 |CHRYER.M',..WHO |
00001F30: 57 41 53 20 54 48 45 20 46 49 52 53 54 20 50 52 |WAS THE FIRST PR|
00001F40: 49 4D 45 20 4D 49 4E 49 53 54 45 52 3F 00 61 27 |IME MINISTER?.a'|
00001F50: 36 06 83 4A 4F 48 4E 20 4D 41 43 44 4F 4E 41 4C |6..JOHN MACDONAL|
00001F60: 44 00 86 27 40 06 83 57 48 4F 20 49 53 20 54 48 |D..'@..WHO IS TH|
00001F70: 45 20 50 52 45 4D 49 45 52 20 4F 46 20 4D 41 4E |E PREMIER OF MAN|
00001F80: 49 54 4F 42 41 3F 00 99 27 4A 06 83 53 54 45 52 |ITOBA?..'J..STER|
00001F90: 4C 49 4E 47 20 4C 59 4F 4E 00 C6 27 54 06 83 48 |LING LYON..'T..H|
00001FA0: 4F 57 20 4D 41 4E 59 20 50 52 4F 56 49 4E 43 45 |OW MANY PROVINCE|
00001FB0: 53 20 41 52 45 20 54 48 45 52 45 20 49 4E 20 43 |S ARE THERE IN C|
00001FC0: 41 4E 41 44 41 3F 00 CE 27 5E 06 83 31 30 00 F9 |ANADA?..'^..10..|
00001FD0: 27 68 06 83 57 48 41 54 20 49 53 20 54 48 45 20 |'h..WHAT IS THE |
00001FE0: 43 41 50 49 54 41 4C 20 4F 46 20 4E 45 57 20 42 |CAPITAL OF NEW B|
00001FF0: 52 55 4E 53 57 49 43 4B 3F 00 0A 28 72 06 83 46 |RUNSWICK?..(r..F|
00002000: 52 45 44 45 52 49 43 54 4F 4E 00 2C 28 7C 06 83 |REDERICTON.,(|..|
00002010: 57 48 41 54 20 49 53 20 54 48 45 20 43 41 50 49 |WHAT IS THE CAPI|
00002020: 54 41 4C 20 4F 46 20 42 2E 43 2E 3F 00 3A 28 86 |TAL OF B.C.?.:(.|
00002030: 06 83 56 49 43 54 4F 52 49 41 00 5F 28 90 06 83 |..VICTORIA._(...|
00002040: 57 48 41 54 20 49 53 20 54 48 45 20 43 41 50 49 |WHAT IS THE CAPI|
00002050: 54 41 4C 20 4F 46 20 41 4C 42 45 52 54 41 3F 00 |TAL OF ALBERTA?.|
00002060: 6D 28 9A 06 83 45 44 4D 4F 4E 54 4F 4E 00 96 28 |m(...EDMONTON..(|
00002070: A4 06 83 57 48 41 54 20 49 53 20 54 48 45 20 43 |...WHAT IS THE C|
00002080: 41 50 49 54 41 4C 20 4F 46 20 4E 4F 56 41 20 53 |APITAL OF NOVA S|
00002090: 43 4F 54 49 41 3F 00 A3 28 AE 06 83 48 41 4C 49 |COTIA?..(...HALI|
000020A0: 46 41 58 00 BA 28 B8 06 55 50 B2 30 3A 81 58 49 |FAX..(..UP.0:.XI|
000020B0: B2 31 A4 31 30 3A 8D 38 35 30 00 D5 28 C2 06 99 |.1.10:.850..(...|
000020C0: 22 20 11 11 22 48 24 28 52 4E 28 58 49 29 29 3A |" .."H$(RN(XI)):|
000020D0: 44 B2 44 AA 31 00 FA 28 CC 06 99 22 11 11 20 3E |D.D.1..(...".. >|
000020E0: 22 3B 3A 55 53 24 B2 22 22 3A 55 4C B2 32 30 3A |";:US$."":UL.20:|
000020F0: 8D 33 35 3A 41 24 B2 55 52 24 00 13 29 D6 06 8B |.35:A$.UR$..)...|
00002100: 41 24 B2 5A 24 28 52 4E 28 58 49 29 29 A7 8D 31 |A$.Z$(RN(XI))..1|
00002110: 38 31 30 00 2D 29 E0 06 8B 41 24 B3 B1 5A 24 28 |810.-)...A$..Z$(|
00002120: 52 4E 28 58 49 29 29 A7 8D 31 38 33 30 00 37 29 |RN(XI))..1830.7)|
00002130: EA 06 8D 38 33 35 3A 00 3F 29 F4 06 82 58 49 00 |...835:.?)...XI.|
00002140: 49 29 FE 06 89 38 30 30 30 00 5C 29 12 07 53 B2 |I)...8000.\)..S.|
00002150: B5 28 BB 28 31 29 AC 31 30 AA 31 29 00 85 29 1C |.(.(1).10.1)..).|
00002160: 07 99 22 20 11 11 22 A3 28 34 30 AB C3 28 51 24 |.." ..".(40..(Q$|
00002170: 28 53 29 29 29 AD 32 29 51 24 28 53 29 3A 47 B2 |(S))).2)Q$(S):G.|
00002180: 47 AA 31 3A 8E 00 A8 29 26 07 99 22 20 11 11 22 |G.1:...)&.." .."|
00002190: A3 28 34 30 AB C3 28 46 24 28 58 49 29 29 29 AD |.(40..(F$(XI))).|
000021A0: 32 29 46 24 28 58 49 29 00 DD 29 28 07 99 22 20 |2)F$(XI)..)(.." |
000021B0: 11 11 22 3B 3A 54 54 24 B2 5A 24 28 52 4E 28 58 |..";:TT$.Z$(RN(X|
000021C0: 49 29 29 AA 22 20 49 53 20 54 48 45 20 43 4F 52 |I))." IS THE COR|
000021D0: 52 45 43 54 20 41 4E 53 57 45 52 2E 22 00 F5 29 |RECT ANSWER."..)|
000021E0: 2A 07 99 A3 28 34 30 AB C3 28 54 54 24 29 29 AD |*...(40..(TT$)).|
000021F0: 32 29 54 54 24 00 FB 29 30 07 8E 00 11 2A 3A 07 |2)TT$..)0....*:.|
00002200: 81 45 B2 31 A4 31 30 3A 87 46 24 28 45 29 3A 82 |.E.1.10:.F$(E):.|
00002210: 45 00 17 2A 44 07 8E 00 28 2A 4E 07 83 42 41 44 |E..*D...(*N..BAD|
00002220: 20 41 4E 53 57 45 52 2E 00 4A 2A 58 07 83 59 4F | ANSWER..J*X..YO|
00002230: 55 20 43 41 4E 20 44 4F 20 42 45 54 54 45 52 20 |U CAN DO BETTER |
00002240: 54 48 41 4E 20 54 48 41 54 2E 00 64 2A 62 07 83 |THAN THAT..d*b..|
00002250: 53 4F 52 52 59 2C 20 59 4F 55 27 52 45 20 57 52 |SORRY, YOU'RE WR|
00002260: 4F 4E 47 2E 00 76 2A 6C 07 83 57 52 4F 4E 47 20 |ONG..v*l..WRONG |
00002270: 41 47 41 49 4E 2E 00 86 2A 76 07 83 49 4E 43 4F |AGAIN...*v..INCO|
00002280: 52 52 45 43 54 2E 00 A0 2A 80 07 83 4E 4F 54 20 |RRECT...*...NOT |
00002290: 56 45 52 59 20 49 4D 50 52 45 53 53 49 56 45 2E |VERY IMPRESSIVE.|
000022A0: 00 B4 2A 8A 07 83 41 52 45 20 59 4F 55 20 54 49 |..*...ARE YOU TI|
000022B0: 52 45 44 3F 00 DB 2A 94 07 83 59 4F 55 20 41 52 |RED?..*...YOU AR|
000022C0: 45 20 4E 4F 54 20 41 20 56 45 52 59 20 47 4F 4F |E NOT A VERY GOO|
000022D0: 44 20 43 41 4E 41 44 49 41 4E 2E 00 ED 2A 9E 07 |D CANADIAN...*..|
000022E0: 83 47 4F 4F 44 20 45 46 46 4F 52 54 2E 00 01 2B |.GOOD EFFORT...+|
000022F0: A8 07 83 4E 4F 2C 20 54 52 59 20 41 47 41 49 4E |...NO, TRY AGAIN|
00002300: 2E 00 1B 2B B2 07 44 B2 B5 28 BB 28 31 29 AC 31 |...+..D..(.(1).1|
00002310: 30 AA 31 29 3A 99 51 24 28 44 29 00 21 2B BC 07 |0.1):.Q$(D).!+..|
00002320: 8E 00 41 2B C6 07 99 22 59 4F 55 52 20 54 4F 54 |..A+..."YOUR TOT|
00002330: 41 4C 20 49 53 22 47 22 4F 55 54 20 4F 46 20 22 |AL IS"G"OUT OF "|
00002340: 44 00 4B 2B D0 07 99 22 11 11 22 00 76 2B D5 07 |D.K+..."..".v+..|
00002350: 99 A6 33 29 22 CF A3 A3 A3 D0 20 20 CF A3 A3 D0 |..3)"..... ....|
00002360: 20 A7 CD 20 20 20 20 A5 20 CF A3 A3 D0 20 CF A3 | .. . .... ..|
00002370: CD 20 CF A3 A3 D0 00 A2 2B DA 07 99 A6 33 29 22 |. ......+....3)"|
00002380: A5 20 20 20 20 20 A7 20 20 20 20 A5 A7 20 CD 20 |. . .. . |
00002390: 20 20 A5 A7 20 20 20 20 A5 A5 20 A7 A7 20 20 20 | .. .. .. |
000023A0: 20 A5 00 CE 2B E4 07 99 A6 33 29 22 A5 20 20 20 | ...+....3)". |
000023B0: 20 20 A7 C0 C0 C0 C0 A5 A7 20 20 CD 20 20 A5 A7 | ....... . ..|
000023C0: C0 C0 C0 C0 A5 A5 20 A7 A7 C0 C0 C0 C0 A5 00 FA |...... .........|
000023D0: 2B EE 07 99 A6 33 29 22 A5 20 20 20 20 20 A7 20 |+....3)". . |
000023E0: 20 20 20 A5 A7 20 20 20 CD 20 A5 A7 20 20 20 20 | .. . .. |
000023F0: A5 A5 20 A7 A7 20 20 20 20 A5 00 26 2C F8 07 99 |.. .. ..&,...|
00002400: A6 33 29 22 CC A4 A4 A4 BA 20 A7 20 20 20 20 A5 |.3)"..... . .|
00002410: A7 20 20 20 20 CD A5 A7 20 20 20 20 A5 CC A4 CE |. ... ....|
00002420: A7 20 20 20 20 A5 00 30 2C 02 08 99 A6 33 29 22 |. ..0,....3)"|
00002430: 00 3A 2C 0C 08 99 A6 33 29 22 00 44 2C 16 08 99 |.:,....3)".D,...|
00002440: A6 33 29 22 00 4E 2C 20 08 99 A6 33 29 22 00 72 |.3)".N, ...3)".r|
00002450: 2C 2A 08 99 A6 35 29 22 20 20 CF A3 A3 D0 20 20 |,*...5)" .... |
00002460: 20 A5 20 20 A7 20 20 20 DD 20 20 20 20 A3 A3 A3 | . . . ...|
00002470: A3 CE 00 95 2C 34 08 99 A6 35 29 22 20 20 A5 20 |....,4...5)" . |
00002480: 20 A7 20 20 20 A5 20 20 A7 20 20 20 DD 20 20 20 | . . . . |
00002490: 20 20 20 20 CE 00 B7 2C 3E 08 99 A6 35 29 22 20 | ...,>...5)" |
000024A0: 20 A5 20 20 A7 20 20 20 A5 20 20 A7 20 20 20 DD | . . . . .|
000024B0: 20 20 20 20 20 20 CE 00 D8 2C 48 08 99 A6 35 29 | ...,H...5)|
000024C0: 22 20 20 A5 20 20 A7 20 20 20 A5 20 20 A7 20 20 |" . . . . |
000024D0: 20 DD 20 20 20 20 20 CE 00 FC 2C 52 08 99 A6 35 | . ...,R...5|
000024E0: 29 22 20 20 CC A4 A4 BA 20 20 20 CC A4 A4 BA 20 |)" .... .... |
000024F0: 20 20 DD 20 20 20 20 CE A4 A4 A4 A4 00 0D 2D 5C | . .......-\|
00002500: 08 99 A6 35 29 22 20 20 20 20 20 20 CD 00 16 2D |...5)" ...-|
00002510: 66 08 8D 38 33 35 00 1C 2D 70 08 8E 00 50 2D 40 |f..835..-p...P-@|
00002520: 1F 8D 38 35 30 3A 99 22 11 11 11 20 59 4F 55 20 |..850:."... YOU |
00002530: 48 41 56 45 20 4A 55 53 54 20 46 49 4E 49 53 48 |HAVE JUST FINISH|
00002540: 45 44 20 31 30 20 51 55 45 53 54 49 4F 4E 53 2E |ED 10 QUESTIONS.|
00002550: 00 7B 2D 4A 1F 99 22 11 11 20 20 20 4F 55 54 20 |.{-J..".. OUT |
00002560: 4F 46 20 54 48 4F 53 45 20 31 30 2C 20 59 4F 55 |OF THOSE 10, YOU|
00002570: 20 41 4E 53 57 45 52 45 44 22 47 00 A8 2D 54 1F | ANSWERED"G..-T.|
00002580: 99 22 11 11 20 20 20 43 4F 52 52 45 43 54 4C 59 |.".. CORRECTLY|
00002590: 2C 20 41 4E 44 22 31 30 AB 47 22 49 4E 43 4F 52 |, AND"10.G"INCOR|
000025A0: 52 45 43 54 4C 59 2E 22 00 DE 2D 59 1F 99 22 11 |RECTLY."..-Y..".|
000025B0: 11 20 20 20 54 48 41 54 20 45 41 52 4E 53 20 41 |. THAT EARNS A|
000025C0: 20 4D 41 52 4B 20 4F 46 22 B5 28 47 AC 31 30 30 | MARK OF".(G.100|
000025D0: AD 31 30 29 22 50 45 52 43 45 4E 54 2E 22 00 EC |.10)"PERCENT."..|
000025E0: 2D 72 1F 8D 38 33 35 3A 89 33 30 30 00 00 00 |-r..835:.300... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
......'''''''''''''''''''''''''''''''...
... WRITTEN BY DAVID HANSEN.+.... REVISE
D BY STEPHEN FENTON.E.... JULY
1982.K...:.D.... FWCI COMPUTERS....
..'''''''''''''''''''''''''''''''......
** TO OUR BEST KNOWLEDGE THIS.J.... P
ROGRAM IS FREE FOR...... DUPLICATION
IN CANADA....... IF YOU HAVE CONTARY.
$.... INFORMATION, PLEASE.J.... CO
NTACT COMMODORE CANADA AND.P.... EVER
Y EFFORT WILL BE MADE TO...... WITHDR
AW COPIES OF THIS...... PROGRAM......
:.E.#.. +++ INPUT SECTION +++...(..UO,0:
UR$."":UI$.""...*..UL.0.UL.80...-..UC,0.
..2..UI$:.UI$."".50.5.7..UI$.G(13).C(UR$
)..1..UC,1:." .";:.85.H.<..UI$.G(20).105
.\.>.. C(UR$)..UL.50...A..120:. CHECK FO
R VALID CHARACTER...F.UR$.UR$.UI$...K..U
I$;...P..50.H.U.. +++ CHECK FOR HELP REQ
UEST +++...Z..UR$.UX$.195:. EXIT TO HELP
ROUTINE..._..UF.1..240...D.UF.0:.:..%.F
.. ++ CHECK DELETE ++.6.I..C(UR$).1.50.N
.N.UR$.H(UR$,C(UR$).1).`.S..". ..";:.50
...X.. ++ CHECK FOR VALID CHARACTERS ++.
..}..C(US$).0.150....US$.US$.UX$......U
S.1.C(US$).Q....UI$.J(US$,US,1)...W.....
....UI$."":....... ** STANDARD INPUT **.
.....F(UI$).46...!....UI$.G(32)...>. ..F
(UI$).48.F(UI$).57.170.D.....A....F(UI$)
.65.F(UI$).90.180.G..........F(UI$).193.
F(UI$).218.UI$."":.......B(UT).UU%.UI$.G
(F(UI$).128):........A...UI$."":....C.UF
.1:. +++ HELP ROUTINE EXIT +++...E..250.
..H..245...M..UQ.UB.(U2%.256.U1%.U3%.2).
3.R.UQ%(UQ.UB).B(UQ):.:.".".F.W.UZ.1:UV%
.B(UT).O.X..300...Y.UZ.0:US$.UJ$:UG$.UK$
:UP.UJ:UL.UK:.B(50003).0..53281,6:.53280
,14.H...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2
%.256.U1%.U3%.3)......UQ,UQ%(UQ.UB):....
...U1,U1%......U2,U2%......U4,U4%......U
3,U3%.1......35.I...UD%.((U2%.256.U1%.U3
%).UB).40:.H(UD$,UD%.1):.......H(UD$,24)
;" . HELP COMING .
":......U1%.B(U1):U2%.B(U2):U3%.B(U3):U
4%.B(U4).X...UJ$.US$:UK$.UG$:UL$.UT$:UJ.
UP:UK.UL.........,.. ** MENU **...-.:.$.
...".":.UT,UU%:.B(50003).0..53281,9:.532
80,8.*./.:.G.1..". MENU".
V.6.." ---------------------------------
-----"...;..".. 1. CANADA QUIZ "
.B.@..".. 2. STUDENT INSTRUCTION
S"...E..".. 3. TEACHER INSTRUCTI
ONS"...O..".. 4. QUIT..".7.T.."
--------------------------------------".
B.Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUTI
NE..._..C(UR$).1.300...`.US$."".D.C..E(U
R$).1000,400,500,396.M.H..300...... ** R
E-ENABLE STOP KEY AND END **.#....B(5000
3)..1.B(50003)..160.B(50003)..0.399.M...
.UU.71:.B(50003).0..53281,6:.53280,14.Y.
..."..":..D....875:....... ** STUDENT IN
STRUCTIONS **.....UT$." CANADA QUIZ".K..
..".":.UT,UL%:.B(50003).0..53281,0:.5328
0,0.....UP.0:UG$."STUDENT INST":.850....
..".... YOU WILL BE GIVEN A DRILL OF
10.:....".. QUESTIONS TO ANSWER. ".J....
".. THE QUESTIONS DEAL WITH PROVINCIA
L"......".. PREMIERS AND CAPITALS.......
835...G..850.K.L.." ..NOTE:...TO ADVANCE
FROM ONE QUESTION"...V..". TO THE NEXT
PRESS THE SPACE BAR".%...." .......IF AT
ANY TIME YOU WISH TO RETURN".I...." .TO
THE MENU PRESS H RETURN".R....835.F....
UZ.1..UP%:.217.L.......... ** TEACHER IN
STRUCTIONS **......".":.UT,UL%:.B(50003)
.0..53281,2:.53280,10.....UT$." CANADA Q
UIZ":UP.0:UG$."TEACHER INST":.850......"
.. TO THE BEST OF OUR KNOWLEDGE,.".
H...." THIS PROGRAM IS IN THE PUBLIC."
.T...." DOMAIN. IF THIS IS NOT THE CA
SE."......" PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES.".....
." 3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".$...."
CANADA M1W 2K4".D...." (41
6) 499-4292".Z...UP.1:. 835:. 850:......
" ..PROGRAM NAME: CANADA QUIZ .....
.." WRITTEN BY : DAVID HANSEN..O...
." UPGRADED BY : ......."
.THIS PROGRAM WILL RUN ON ANY...!....
" BASIC 2.0 PET COMPUTER..H...."
BASIC 4.0 PET COMPUTER..J...."
8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER...D..835...N..UZ
.1..UP%:.217...W...X.X.. ** PROGRAM MODI
FICATION INST **...Y..".":.UT,UL%...].UP
.0:UG$."PROGRAM MOD":.850......835.&....
UZ.1..UP%:.217.,.....Q.... ** TO USE 803
2 LOAD CBM4032 **...F..".....BEFORE RUNN
ING THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM.........
....".H.Z..UU.71.N.......... ** TO USE 8
032 LOAD CBM4032 **.>...."....BEFORE RUN
NING THIS PROGRAM ON AN 8032 ..LOAD CBM
4032 PROGRAM".J....1093:..J. .. ** T I
T L E P A G E **...".."....";:.UT,UU%:
.B(50003).0..53280,14:.53281,6...$..I.1.
38:."...";:..L.&..I.1.22:.".....";:....(
..I.1.37:.".....";:....*..I.1.22:.".....
";:..!.,.."...........................
..C...."................... . . ...D.0.
."................... . ......2..".....
............... ....4.."..............C
O M M O D O R E...M.6.."...............
EDUCATIONAL.....8.."................SOFT
WARE...:.. ** COMMODORE LOGO **.?.;..H(U
D$,24);"..........PRESS SPACE BAR OR WAI
T.":I.0.A.<..A$:.A$.." ".I.I.1:.I.250.82
8...>.T1$."":T2$."":T3$."":T4$."":I.0...
@..300...C.. ** SPACE BAR PRESS **...H..
UO,0:.H(UD$,24);".......PRESS SPACE BAR
TO CONTINUE."...L..UI$:.UI$.." ".844...N
...".R.. ** PAGE DESIGN ROUTINE **...T.U
P.UP.1.X.W.."."H(UT$.UP$,21);I(UP$.UG$.D
(UP),18)...\.." ------------------------
--------------"...`..UH..0.870.J.A..H(UD
$,24);H(UP$,7);"HELP - PRESS H <RETURN
>"...F.UH.0:.UO,0:."..":....K.. ** PLEAS
E WAIT REMARK **.6.P..H(UD$,24);"
ONE MOMENT PLEASE... ".<.U...Y..
.. ** SET UP VARIABLES **.....UX$."H":.U
Q%(1000):UB.32768:U1.196:U2.197:U3.198:U
4.216:UC.167:UU.1024.....UT.59468:UU%.12
:UL%.14:UP%.1146:UM.32768:UO.158:. 50003
,0.%....B(50003).0.UB.1024:U1.209:U2.210
:U3.211:U4.214:UC.204:UU.2048.D....B(500
03).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM
.1024:UO.198.....UD$."..................
.......".....UP$."
".....UT$." CANADA QUIZ
":. PROGRAM TITLE......H$(20),Z$(20),RN(
10):....... ** SET VARIABLES **. ....900
.&...:.,...:.G.... ** CHECK FOR 8032 **.
E....".":." ":. SHIFTED SPACE.|....B(UB.
40)..96..700...... ** MEMORY CHECK **...
... .(0).2000.937.W...."....THIS MACHINE
DOES NOT HAVE ENOUGH."......"MEMORY TO
RUN THIS PROGRAM !".. ...UU.71.. ....& .
.."..":.B(50003).0.962.U ... ** BASIC 2.
0 OR 4.0 OR C-64 SETUP **.. ...1075,
133:.1076,144:.1077,234:.1079,4:.1080,13
3:.1081,145.I ...1091,155:.1098,133:.109
9,144:.1100,234:.1103,133.. ...1104,145:
.1105,234:.1082,234..!...B(50003)..160.9
55.1!...1093,88:.1094,228:.1097,85:.1102
,228:.965.F!...B(50003)..1.990.U!...1093
,49:.1094,230:.1097,46:.1102,230:.965..!
B..2099,141:.2100,20:.2101,3:.2103,8:.21
04,141:.2105,21..!C..2106,3:.2115,145:.2
117,52:.2118,234:.2121,49:.2122,141.%"D.
.2123,20:.2124,3:.2126,234:.2127,141:.21
28,21:.2129,3.C"E..UU.48:. DISABLE STOP
KEY.T"J..800:. TITLE.D"T..300:. MENU..".
..".THE PGM WILL NOT WORK ON THIS MACHIN
E!":..J"...UZ.1..UP%:.UP%:UZ.0:. ** PROG
RAM STARTS HERE **.."..."..";:.:.B(50003
).0..53281,6:.53280,14..#...:.900:UT$."
CANADA QUIZ"..#....)#L..".":.2000.2#V.."
.".H#J..H.1.10:.Q$(H):.H.R#T..WOW!.]#~..
GREAT.K#...HOLY COW.}#...SUPER DOOPER..#
...FINE ANSWER..#...CORRECTAMUNDO..#...G
OOD ANSWER.D#...THAT'S RIGHT..#D..BOY AR
E YOU SMART..#N..CORRECT..$X..I.1.19:.H$
(I),Z$(I):.I..$...1850.&$..RN(1)..(10..(
TI).1).2$...J.2.10.F$..Y..(19..(TI).1).Q
$...I.1.J.C$...Y.RN(I).1280.J$...I.V$(.R
N(J).Y.}$2..J..$<..WHAT IS THE CAPITAL O
F CANADA?..$F..OTTAWA.P$P..WHAT IS THE C
APITAL OF P.E.I?..$Z..CHARLOTTETOWN..%D.
.WHAT PROVINCE PRODUCES THE MOST TIMBER
ANNUALLY?.0%N..BRITISH COLUMBIA.T%X..WH
O IS THE PREMIER OF ONTARIO?.D%...BILL D
AVIS..%...WHO IS THE PREMIER OF ALBERTA?
..%... PETER LOUGHEED.C% ..WHAT IS THE C
APITAL OF MANITOBA?.Q%...WINNIPEG..%...W
HAT IS THE CAPITAL OF ONTARIO?..&... TOR
ONTO.0&H.. WHO IS THE PRIME MINISTER OF
CANADA?.D&R..PIERRE TRUDEAU.N&...WHAT I
S THE CAPITAL OF NEWFOUNDLAND?.~&... ST.
JOHNS..&...WHAT IS THE CAPITAL OF SASKA
TCHEWAN?..&... REGINA.Y&...WHAT IS THE C
APITAL OF QUEBEC?..&...QUEBEC CITY..'...
WHO IS THE GOVERNOR-GENERAL OF CANADA?.&
'"..ED SCHRYER.M',..WHO WAS THE FIRST PR
IME MINISTER?.A'6..JOHN MACDONALD..'@..W
HO IS THE PREMIER OF MANITOBA?..'J..STER
LING LYON.F'T..HOW MANY PROVINCES ARE TH
ERE IN CANADA?.N'^..10..'H..WHAT IS THE
CAPITAL OF NEW BRUNSWICK?..(R..FREDERICT
ON.,(|..WHAT IS THE CAPITAL OF B.C.?.:(.
..VICTORIA._(...WHAT IS THE CAPITAL OF A
LBERTA?.M(...EDMONTON..(...WHAT IS THE C
APITAL OF NOVA SCOTIA?..(...HALIFAX..(..
UP.0:.XI.1.10:.850.U(B.." .."H$(RN(XI)):
D.D.1..(L..".. >";:US$."":UL.20:.35:A$.U
R$..)V..A$.Z$(RN(XI))..1810.-)...A$..Z$(
RN(XI))..1830.7)...835:.?)...XI.I)...800
0.\)..S..(.(1).10.1)..)..." ..".(40.C(Q$
(S))).2)Q$(S):G.G.1:...)&.." ..".(40.C(F
$(XI))).2)F$(XI)..)(.." ..";:TT$.Z$(RN(X
I))." IS THE CORRECT ANSWER."..)*...(40.
C(TT$)).2)TT$..)0....*:..E.1.10:.F$(E):.
E..*D...(*N..BAD ANSWER..J*X..YOU CAN DO
BETTER THAN THAT..D*B..SORRY, YOU'RE WR
ONG..V*L..WRONG AGAIN...*V..INCORRECT..
*...NOT VERY IMPRESSIVE...*...ARE YOU TI
RED?..*...YOU ARE NOT A VERY GOOD CANADI
AN...*...GOOD EFFORT...+...NO, TRY AGAIN
...+..D..(.(1).10.1):.Q$(D).!+....A+F.."
YOUR TOTAL IS"G"OUT OF "D.K+P.."..".V+U.
..3)"O...P O..P .M . O..P O.M O..P..
+Z...3)". . .. M .. .. ..
..N+....3)". ....... M ........ .
........+....3)". . .. M ..
.. .. ..&,....3)"L.... . .. M..
.L.N. ..0,....3)".:,....3)".D,...
.3)".N, ...3)".R,*...5)" O..P . .
. ....N..,4...5)" . . . . .
N..,>...5)" . . . . . N.
X,H...5)" . . . . . N..,R...5
)" L... L... . N......-\...5)"
M..-F..835..-P...P-@..850:."... YOU
HAVE JUST FINISHED 10 QUESTIONS..{-J..".
. OUT OF THOSE 10, YOU ANSWERED"G..-T.
.".. CORRECTLY, AND"10.G"INCORRECTLY."
..-Y..".. THAT EARNS A MARK OF".(G.100
.10)"PERCENT."..-R..835:.300...
> CLICK IMAGE PREVIEW FOR FULL MODAL