IN ORDER.C3
FILE INFORMATION
FILENAME(S): IN ORDER.C3
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-10-20 14:31:29
APPEARS ON: 2 disk(s)
FILE HASH
e1ac128238e5ee9934094d25ae11274c216fe17d652c48506a169d01ab009881
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES | IN ORDER.C3 | PRG | Treasure Chest - Klaus Der Suhler | 10 | 0 | DOWNLOAD FILE |
| ICHAELS ISK 2 | IN ORDER.C3 | PRG | Treasure Chest - Thunderbird | 10 | 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 CE 08 0F 00 3A 00 F2 |UTINE **.....:..| 000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B| 000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH| 000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG| 00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.| 00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA| 00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..| 00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU | 00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..| 00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO| 00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... | 00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO| 00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.| 00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E| 000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA| 000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W| 000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O| 000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... | 000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..| 000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S| 00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 23 0A 28 00 55 |ECTION +++.#.(.U| 00000210: 52 24 B2 22 22 3A 55 49 24 B2 22 22 3A 97 20 55 |R$."":UI$."":. U| 00000220: 4F 2C 30 00 33 0A 2A 00 8B 55 4C B2 30 A7 55 4C |O,0.3.*..UL.0.UL| 00000230: B2 38 30 00 46 0A 2D 00 99 22 20 20 9D 9D 22 3B |.80.F.-.." ..";| 00000240: 3A 97 55 43 2C 30 00 5A 0A 32 00 A1 55 49 24 3A |:.UC,0.Z.2..UI$:| 00000250: 8B 55 49 24 B2 22 22 A7 35 30 00 84 0A 37 00 8B |.UI$."".50...7..| 00000260: 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 |UI$..(13)..(UR$)| 00000270: B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B |..1..UC,1:." .";| 00000280: 3A 89 38 35 00 97 0A 3C 00 8B 55 49 24 B2 C7 28 |:.85...<..UI$..(| 00000290: 32 30 29 A7 31 30 35 00 AB 0A 3E 00 8B 20 C3 28 |20).105...>.. .(| 000002A0: 55 52 24 29 B2 B1 55 4C A7 35 30 00 D0 0A 41 00 |UR$)..UL.50...A.| 000002B0: 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |.120:. CHECK FOR| 000002C0: 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 | VALID CHARACTER| 000002D0: 00 E0 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 |...F.UR$.UR$.UI$| 000002E0: 00 EA 0A 4B 00 99 55 49 24 3B 00 F2 0A 50 00 89 |...K..UI$;...P..| 000002F0: 35 30 00 17 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 |50...U.. +++ CHE| 00000300: 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 |CK FOR HELP REQU| 00000310: 45 53 54 20 2B 2B 2B 00 3F 0B 5A 00 8B 55 52 24 |EST +++.?.Z..UR$| 00000320: B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 |.UX$.195:. EXIT | 00000330: 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 |TO HELP ROUTINE.| 00000340: 4E 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5B |N._..UF.1..240.[| 00000350: 0B 64 00 55 46 B2 30 3A 99 3A 8E 00 74 0B 66 00 |.d.UF.0:.:..t.f.| 00000360: 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 |. ++ CHECK DELET| 00000370: 45 20 2B 2B 00 85 0B 69 00 8B C3 28 55 52 24 29 |E ++...i...(UR$)| 00000380: B3 31 A7 35 30 00 9D 0B 6E 00 55 52 24 B2 C8 28 |.1.50...n.UR$..(| 00000390: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AF 0B |UR$,.(UR$).1)...| 000003A0: 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 |s..". ..";:.50.| 000003B0: D6 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 |..x.. ++ CHECK F| 000003C0: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT| 000003D0: 45 52 53 20 2B 2B 00 E8 0B 7D 00 8B C3 28 55 53 |ERS ++...}...(US| 000003E0: 24 29 B2 30 A7 31 35 30 00 F8 0B 7F 00 55 53 24 |$).0.150.....US$| 000003F0: B2 55 53 24 AA 55 58 24 00 09 0C 82 00 81 55 53 |.US$.UX$......US| 00000400: B2 31 A4 C3 28 55 53 24 29 00 20 0C 87 00 8B 55 |.1..(US$). ....U| 00000410: 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E |I$..(US$,US,1)..| 00000420: 00 26 0C 8C 00 82 00 33 0C 91 00 55 49 24 B2 22 |.&.....3...UI$."| 00000430: 22 3A 8E 00 4E 0C 96 00 8F 20 2A 2A 20 53 54 41 |":..N.... ** STA| 00000440: 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 5F |NDARD INPUT **._| 00000450: 0C 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 |.....(UI$).46...| 00000460: 70 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E |p....UI$..(32)..| 00000470: 00 8D 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 |.......(UI$).48.| 00000480: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 93 0C |.(UI$).57.170...| 00000490: A5 00 8E 00 B0 0C AA 00 8B C6 28 55 49 24 29 B3 |..........(UI$).| 000004A0: 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 |65..(UI$).90.180| 000004B0: 00 B6 0C AF 00 8E 00 DA 0C B4 00 8B C6 28 55 49 |.............(UI| 000004C0: 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 |$).193..(UI$).21| 000004D0: 38 A7 55 49 24 B2 22 22 3A 8E 00 FD 0C B9 00 8B |8.UI$."":.......| 000004E0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(| 000004F0: C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 03 0D |.(UI$).128):....| 00000500: BB 00 8E 00 10 0D BE 00 55 49 24 B2 22 22 3A 8E |........UI$."":.| 00000510: 00 35 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 |.5...UF.1:. +++ | 00000520: 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 |HELP ROUTINE EXI| 00000530: 54 20 2B 2B 2B 00 3E 0D C5 00 8D 32 35 30 00 47 |T +++.>....250.G| 00000540: 0D C8 00 8D 32 34 35 00 66 0D CD 00 81 55 51 B2 |....245.f....UQ.| 00000550: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.| 00000560: 55 33 25 AB 32 29 00 82 0D D2 00 55 51 25 28 55 |U3%.2).....UQ%(U| 00000570: 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 |Q.UB)..(UQ):.:."| 00000580: 93 22 00 95 0D D7 00 55 5A B2 31 3A 55 56 25 B2 |.".....UZ.1:UV%.| 00000590: C2 28 55 54 29 00 9E 0D D8 00 89 33 30 30 00 C3 |.(UT)......300..| 000005A0: 0D D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A |...UZ.0:US$.UJ$:| 000005B0: 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C |UG$.UK$:UP.UJ:UL| 000005C0: B2 55 4B 00 FA 0D DA 00 8B C2 28 35 30 30 30 33 |.UK.......(50003| 000005D0: 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 |).0..53281,1:.".| 000005E0: 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |";:.53281,6:.532| 000005F0: 38 30 2C 31 34 3A 89 32 32 30 00 04 0E DB 00 99 |80,14:.220......| 00000600: 22 93 22 3B 00 33 0E DC 00 55 54 24 B2 55 4C 24 |".";.3...UT$.UL$| 00000610: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.| 00000620: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%| 00000630: AB 33 29 00 48 0E E1 00 97 55 51 2C 55 51 25 28 |.3).H....UQ,UQ%(| 00000640: 55 51 AB 55 42 29 3A 82 00 54 0E E6 00 97 55 31 |UQ.UB):..T....U1| 00000650: 2C 55 31 25 00 60 0E E8 00 97 55 32 2C 55 32 25 |,U1%.`....U2,U2%| 00000660: 00 6C 0E E9 00 97 55 34 2C 55 34 25 00 7A 0E EA |.l....U4,U4%.z..| 00000670: 00 97 55 33 2C 55 33 25 AB 31 00 82 0E EB 00 89 |..U3,U3%.1......| 00000680: 33 35 00 B4 0E F0 00 55 44 25 B2 28 28 55 32 25 |35.....UD%.((U2%| 00000690: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB| 000006A0: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.| 000006B0: 31 29 3A 8E 00 EF 0E F5 00 99 C8 28 55 44 24 2C |1):........(UD$,| 000006C0: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL| 000006E0: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..| 000006F0: 1B 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2| 00000700: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3| 00000710: 29 3A 55 34 25 B2 C2 28 55 34 29 00 43 0F FB 00 |):U4%..(U4).C...| 00000720: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:| 00000730: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK| 00000740: B2 55 4C 00 49 0F FF 00 8E 00 5A 0F 2C 01 8F 20 |.UL.I.....Z.,.. | 00000750: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 60 0F 2D 01 3A |** MENU **.`.-.:| 00000760: 00 8F 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |......".":.UT,UU| 00000770: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5| 00000780: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.| 00000790: 95 0F 2F 01 3A 00 B2 0F 31 01 99 22 13 20 20 20 |../.:...1..". | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN| 000007B0: 55 22 00 E1 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007E0: 22 00 09 10 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. | 000007F0: 20 31 2E 20 20 20 42 45 47 49 4E 20 49 4E 20 4F | 1. BEGIN IN O| 00000800: 52 44 45 52 20 20 20 20 22 00 33 10 40 01 99 22 |RDER ".3.@.."| 00000810: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 |.. 2. ST| 00000820: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO| 00000830: 4E 53 22 00 5D 10 45 01 99 22 11 11 20 20 20 20 |NS".].E..".. | 00000840: 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 | 3. TEACHER | 00000850: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 79 10 |INSTRUCTIONS".y.| 00000860: 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 |O..".. 4. | 00000870: 20 20 51 55 49 54 11 11 22 00 A8 10 54 01 99 22 | QUIT.."...T.."| 00000880: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008A0: 2D 2D 2D 2D 2D 2D 2D 22 00 D3 10 59 01 99 22 11 |-------"...Y..".| 000008B0: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A | 000008C0: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)| 000008D0: 20 22 3B 00 FB 10 5E 01 55 4C B2 31 3A 55 53 24 | ";...^.UL.1:US$| 000008E0: B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E |."1234":.35:. IN| 000008F0: 50 55 54 20 52 4F 55 54 49 4E 45 00 0D 11 5F 01 |PUT ROUTINE..._.| 00000900: 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 00 18 11 |..(UR$).1.300...| 00000910: 60 01 55 53 24 B2 22 22 00 35 11 63 01 91 C5 28 |`.US$."".5.c...(| 00000920: 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 |UR$).1000,400,50| 00000930: 30 2C 33 39 36 00 3E 11 68 01 89 33 30 30 00 65 |0,396.>.h..300.e| 00000940: 11 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C |.... ** RE-ENABL| 00000950: 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 |E STOP KEY AND E| 00000960: 4E 44 20 2A 2A 00 94 11 8C 01 8B C2 28 35 30 30 |ND **.......(500| 00000970: 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 |03)..1..(50003).| 00000980: B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 |.160..(50003)..0| 00000990: A7 33 39 39 00 BE 11 8D 01 9E 55 55 AA 37 31 3A |.399......UU.71:| 000009A0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532| 000009B0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 CA |81,6:.53280,14..| 000009C0: 11 8E 01 99 22 9A 93 22 3A 80 00 D5 11 8F 01 8D |...."..":.......| 000009D0: 38 37 35 3A 8E 00 F6 11 90 01 8F 20 2A 2A 20 53 |875:....... ** S| 000009E0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI| 000009F0: 4F 4E 53 20 2A 2A 00 25 12 95 01 99 22 93 22 3A |ONS **.%....".":| 00000A00: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003| 00000A10: 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 |).0..53281,0:.53| 00000A20: 32 38 30 2C 30 00 46 12 9A 01 55 50 B2 30 3A 55 |280,0.F...UP.0:U| 00000A30: 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 |G$.".TUDENT .NST| 00000A40: 22 3A 8D 38 35 30 00 50 12 A4 01 8D 31 31 34 30 |":.850.P....1140| 00000A50: 00 63 12 A9 01 8D 38 33 35 3A 55 50 B2 32 3A 8D |.c....835:UP.2:.| 00000A60: 38 35 30 00 96 12 AE 01 99 22 13 11 11 11 20 D9 |850......".... .| 00000A70: 4F 55 27 4C 4C 20 48 41 56 45 20 32 30 20 54 52 |OU'LL HAVE 20 TR| 00000A80: 49 45 53 20 54 4F 20 47 45 54 20 54 48 45 20 4E |IES TO GET THE N| 00000A90: 55 4D 42 45 52 2E 00 C2 12 B8 01 99 22 11 11 20 |UMBER.......".. | 00000AA0: D4 4F 20 53 45 45 20 41 4C 4C 20 54 52 49 45 53 |.O SEE ALL TRIES| 00000AB0: 20 50 52 45 53 53 20 47 20 3C 52 45 54 55 52 4E | PRESS G <RETURN| 00000AC0: 3E 22 00 E8 12 C2 01 99 22 11 20 49 4E 53 54 45 |>"......". INSTE| 00000AD0: 41 44 20 4F 46 20 45 4E 54 45 52 49 4E 47 20 41 |AD OF ENTERING A| 00000AE0: 20 4E 55 4D 42 45 52 2E 00 F1 12 E5 01 8D 38 33 | NUMBER.......83| 00000AF0: 35 00 05 13 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%| 00000B00: 3A 89 32 31 37 00 0B 13 F3 01 8E 00 2C 13 F4 01 |:.217.......,...| 00000B10: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS| 00000B20: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 5C 13 F5 |TRUCTIONS **.\..| 00000B30: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..| 00000B40: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00000B50: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 7D 13 F6 |,2:.53280,10.}..| 00000B60: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH| 00000B70: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 AB 13 |ER .NST":.850...| 00000B80: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T| 00000B90: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K| 00000BA0: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 D4 13 F8 01 |NOWLEDGE,.".....| 00000BB0: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000BC0: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000BD0: 49 43 11 22 00 00 14 F9 01 99 22 20 20 20 44 4F |IC."......" DO| 00000BE0: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I| 00000BF0: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."| 00000C00: 00 1D 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE| 00000C10: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 47 14 | CONTACT:...".G.| 00000C20: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD| 00000C30: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC| 00000C40: 48 49 4E 45 53 11 22 00 6A 14 FC 01 99 22 20 20 |HINES.".j...." | 00000C50: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA| 00000C60: 52 4D 41 43 59 20 C1 56 45 2E 00 8E 14 FD 01 99 |RMACY .VE.......| 00000C70: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC| 00000C80: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 B0 |OURT, .NTARIO"..| 00000C90: 14 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .| 00000CA0: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"| 00000CB0: 00 D0 14 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" | 00000CC0: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"| 00000CD0: 00 E6 14 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:| 00000CE0: 8D 20 38 35 30 3A 00 10 15 01 02 99 22 20 20 20 |. 850:......" | 00000CF0: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME| 00000D00: 3A 20 C9 4E 20 CF 52 44 45 52 20 20 20 20 20 11 |: .N .RDER .| 00000D10: 00 35 15 02 02 99 22 20 20 20 20 20 D7 52 49 54 |.5...." .RIT| 00000D20: 54 45 4E 20 C2 59 20 20 3A 20 C4 20 C2 55 43 4B |TEN .Y : . .UCK| 00000D30: 45 59 45 11 22 00 59 15 03 02 99 22 20 20 20 20 |EYE.".Y...." | 00000D40: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 | .PGRADED .Y : | 00000D50: 20 20 20 20 20 20 20 20 11 00 84 15 04 02 99 22 | ......."| 00000D60: 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 | ..HIS PROGR| 00000D70: 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 |AM WILL RUN ON A| 00000D80: 4E 59 11 11 00 A4 15 07 02 99 22 20 20 20 20 20 |NY........" | 00000D90: 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 | ... 64 .....| 00000DA0: D4 C5 D2 11 00 C9 15 08 02 99 22 20 20 20 20 20 |.........." | 00000DB0: 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 | ......... 64| 00000DC0: 20 C3 CF CD D0 D5 D4 C5 D2 00 D8 15 09 02 8D 38 | ..............8| 00000DD0: 33 35 3A 8D 20 38 35 30 00 03 16 1C 02 99 22 13 |35:. 850......".| 00000DE0: 11 11 11 11 11 11 20 20 D4 48 49 53 20 49 53 20 |...... .HIS IS | 00000DF0: 41 20 47 41 4D 45 20 49 4E 20 57 48 49 43 48 20 |A GAME IN WHICH | 00000E00: 54 48 45 00 28 16 26 02 99 22 11 20 20 54 48 45 |THE.(.&..". THE| 00000E10: 20 53 54 55 44 45 4E 54 20 54 52 49 45 53 20 54 | STUDENT TRIES T| 00000E20: 4F 20 46 49 47 55 52 45 00 51 16 30 02 99 22 11 |O FIGURE.Q.0..".| 00000E30: 20 20 4F 55 54 20 41 20 33 20 44 49 47 49 54 20 | OUT A 3 DIGIT | 00000E40: 4E 55 4D 42 45 52 20 57 49 54 48 20 43 4C 55 45 |NUMBER WITH CLUE| 00000E50: 53 00 6D 16 35 02 99 22 11 20 20 46 52 4F 4D 20 |S.m.5..". FROM | 00000E60: 54 48 45 20 43 4F 4D 50 55 54 45 52 2E 00 76 16 |THE COMPUTER..v.| 00000E70: 44 02 8D 38 33 35 00 8A 16 4E 02 8B 55 5A B2 31 |D..835...N..UZ.1| 00000E80: A7 9E 55 50 25 3A 89 32 31 37 00 90 16 57 02 8E |..UP%:.217...W..| 00000E90: 00 B6 16 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA| 00000EA0: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I| 00000EB0: 4E 53 54 20 2A 2A 00 C7 16 59 02 99 22 93 22 3A |NST **...Y..".":| 00000EC0: 97 55 54 2C 55 4C 25 00 E7 16 5D 02 55 50 B2 30 |.UT,UL%...].UP.0| 00000ED0: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O| 00000EE0: 44 22 3A 8D 38 35 30 00 F0 16 94 02 8D 38 33 35 |D":.850......835| 00000EF0: 00 04 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |......UZ.1..UP%:| 00000F00: 89 32 31 37 00 0A 17 BB 02 8E 00 2F 17 BC 02 8F |.217......./....| 00000F10: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 | 00000F20: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.| 00000F30: 65 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 |e....".....BEFOR| 00000F40: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P| 00000F50: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803| 00000F60: 32 20 20 11 11 00 9B 17 D0 02 99 22 20 20 20 20 |2 ........" | 00000F70: 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 | LOAD THE 'CBM | 00000F80: 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 |4032' PROGRAM...| 00000F90: 11 11 11 11 11 11 11 11 11 11 22 00 A6 17 DA 02 |..........".....| 00000FA0: 9E 55 55 AA 37 31 00 AC 17 E4 02 80 00 D1 17 1D |.UU.71..........| 00000FB0: 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803| 00000FC0: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *| 00000FD0: 2A 00 1C 18 1E 03 99 22 93 11 11 11 42 45 46 4F |*......"....BEFO| 00000FE0: 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 |RE RUNNING THIS | 00000FF0: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 |PROGRAM ON AN 80| 00001000: 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 |32 ..LOAD CBM 4| 00001010: 30 33 32 20 50 52 4F 47 52 41 4D 22 00 28 18 1F |032 PROGRAM".(..| 00001020: 03 9E 31 30 39 33 3A 80 00 48 18 20 03 8F 20 2A |..1093:..H. .. *| 00001030: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P | 00001040: 41 20 47 20 45 20 2A 2A 00 7C 18 22 03 99 22 93 |A G E **.|."..".| 00001050: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..| 00001060: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280| 00001070: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 92 18 24 |,14:.53281,6...$| 00001080: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";| 00001090: 3A 82 00 AA 18 26 03 81 49 B2 31 A4 32 32 3A 99 |:....&..I.1.22:.| 000010A0: 22 11 9D 12 A6 92 22 3B 3A 82 00 C2 18 28 03 81 |".....";:....(..| 000010B0: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";| 000010C0: 3A 82 00 DA 18 2A 03 81 49 B2 31 A4 32 32 3A 99 |:....*..I.1.22:.| 000010D0: 22 91 9D 12 A6 92 22 3B 3A 82 00 FF 18 2C 03 99 |".....";:....,..| 000010E0: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 000010F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..| 00001100: 21 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |!...."..........| 00001110: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .| 00001120: A9 00 42 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..B.0.."........| 00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .| 00001140: A3 DF 00 60 19 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |...`.2..".......| 00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .| 00001160: 00 88 19 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........| 00001170: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D| 00001180: 20 4F 20 52 20 45 11 11 00 AB 19 36 03 99 22 1D | O R E.....6..".| 00001190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED| 000011A0: 55 43 41 54 49 4F 4E 41 4C 11 11 00 CA 19 38 03 |UCATIONAL.....8.| 000011B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 000011C0: 1D 1D 53 4F 46 54 57 41 52 45 00 E5 19 3A 03 8F |..SOFTWARE...:..| 000011D0: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO| 000011E0: 47 4F 20 2A 2A 00 1D 1A 3B 03 99 C8 28 55 44 24 |GO **...;...(UD$| 000011F0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........| 00001200: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR | 00001210: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 3F 1A |OR WAIT.":I.0.?.| 00001220: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I| 00001230: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.| 00001240: 63 1A 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |c.>.T1$."":T2$."| 00001250: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":| 00001260: 49 B2 30 00 6C 1A 40 03 89 33 30 30 00 88 1A 43 |I.0.l.@..300...C| 00001270: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR | 00001280: 50 52 45 53 53 20 2A 2A 00 C4 1A 48 03 97 20 55 |PRESS **...H.. U| 00001290: 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 |O,0:..(UD$,24);"| 000012A0: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA| 000012B0: 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E |CE BAR TO CONTIN| 000012C0: 55 45 92 22 00 DB 1A 4C 03 A1 55 49 24 3A 8B 55 |UE."...L..UI$:.U| 000012D0: 49 24 B3 B1 22 20 22 A7 38 34 34 00 E1 1A 4E 03 |I$.." ".844...N.| 000012E0: 8E 00 01 1B 52 03 8F 20 2A 2A 20 50 41 47 45 20 |....R.. ** PAGE | 000012F0: 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A |DESIGN ROUTINE *| 00001300: 2A 00 0D 1B 54 03 55 50 B2 55 50 AA 31 00 37 1B |*...T.UP.UP.1.7.| 00001310: 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C |W..".".(UT$.UP$,| 00001320: 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 |21);.(UP$.UG$..(| 00001330: 55 50 29 2C 31 38 29 00 66 1B 5C 03 99 22 20 2D |UP),18).f.\.." -| 00001340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001360: 2D 2D 2D 2D 2D 22 00 75 1B 60 03 8B 55 48 B3 B1 |-----".u.`..UH..| 00001370: 30 A7 38 37 30 00 A9 1B 61 03 99 C8 28 55 44 24 |0.870...a...(UD$| 00001380: 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 |,24);.(UP$,7);"H| 00001390: 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 |ELP - PRESS H | 000013A0: 3C 52 45 54 55 52 4E 3E 22 00 BA 1B 66 03 55 48 |<RETURN>"...f.UH| 000013B0: B2 30 3A 99 22 13 11 22 3A 8E 00 D9 1B 6B 03 8F |.0:."..":....k..| 000013C0: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT | 000013D0: 52 45 4D 41 52 4B 20 2A 2A 00 0F 1C 70 03 99 C8 |REMARK **...p...| 000013E0: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" | 000013F0: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT | 00001400: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".| 00001410: 15 1C 75 03 8E 00 32 1C 84 03 8F 20 2A 2A 20 53 |..u...2.... ** S| 00001420: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES | 00001430: 2A 2A 00 7D 1C 85 03 55 58 24 B2 22 48 22 3A 86 |**.}...UX$."H":.| 00001440: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327| 00001450: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197| 00001460: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U| 00001470: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 BB 1C |C.167:UU.1024...| 00001480: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1| 00001490: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114| 000014A0: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15| 000014B0: 38 3A 97 20 35 30 30 30 33 2C 30 00 FE 1C 87 03 |8:. 50003,0.....| 000014C0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1| 000014D0: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21| 000014E0: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:| 000014F0: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 3D |UC.204:UU.2048.=| 00001500: 1D 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U| 00001510: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U| 00001520: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U| 00001530: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 61 1D |M.1024:UO.198.a.| 00001540: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........| 00001550: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001560: 22 00 93 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 |".....UP$." | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001590: 20 20 22 00 E1 1D 8B 03 55 54 24 B2 22 20 C9 CE | ".....UT$." ..| 000015A0: A0 CF D2 C4 C5 D2 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |................| 000015B0: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA| 000015C0: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!| 000015D0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**| 000015E0: 2A 00 E7 1D 8C 03 8E 00 01 1E 8E 03 8F 20 2A 2A |*............ **| 000015F0: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *| 00001600: 2A 00 0A 1E 93 03 8D 39 30 30 00 17 1E 94 03 86 |*......900......| 00001610: 20 52 24 28 32 31 29 00 1D 1E 95 03 3A 00 38 1E | R$(21).....:.8.| 00001620: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR| 00001630: 20 38 30 33 32 20 2A 2A 00 56 1E 9D 03 99 22 93 | 8032 **.V....".| 00001640: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED| 00001650: 20 53 50 41 43 45 00 6D 1E A2 03 8B C2 28 55 42 | SPACE.m.....(UB| 00001660: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 86 1E |.40)..96..700...| 00001670: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH| 00001680: 45 43 4B 20 2A 2A 00 9A 1E A4 03 8B 20 B8 28 30 |ECK **...... .(0| 00001690: 29 B1 32 30 30 30 A7 39 33 37 00 C8 1E A5 03 99 |).2000.937......| 000016A0: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN| 000016B0: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE | 000016C0: 45 4E 4F 55 47 48 11 22 00 EC 1E A6 03 99 22 4D |ENOUGH."......"M| 000016D0: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI| 000016E0: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 F7 1E A7 |S PROGRAM !"....| 000016F0: 03 9E 55 55 AA 37 31 00 FD 1E A8 03 80 00 17 1F |..UU.71.........| 00001700: A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 |..."..":..(50003| 00001710: 29 B2 30 A7 39 36 32 00 46 1F AC 03 8F 20 2A 2A |).0.962.F.... **| 00001720: 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 | BASIC 2.0 OR | 00001730: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE| 00001740: 54 55 50 20 2A 2A 00 84 1F AD 03 97 31 30 37 35 |TUP **......1075| 00001750: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.| 00001760: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4| 00001770: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081| 00001780: 2C 31 34 35 00 BA 1F AE 03 97 31 30 39 31 2C 31 |,145......1091,1| 00001790: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10| 000017A0: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234| 000017B0: 3A 97 31 31 30 33 2C 31 33 33 00 DC 1F AF 03 97 |:.1103,133......| 000017C0: 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 |1104,145:.1105,2| 000017D0: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 F3 1F B1 |34:.1082,234....| 000017E0: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.| 000017F0: 39 35 35 00 22 20 B6 03 97 31 30 39 33 2C 38 38 |955." ...1093,88| 00001800: 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 |:.1094,228:.1097| 00001810: 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 |,85:.1102,228:.9| 00001820: 36 35 00 37 20 BB 03 8B C2 28 35 30 30 30 33 29 |65.7 ....(50003)| 00001830: B3 B1 31 A7 39 39 30 00 66 20 C0 03 97 31 30 39 |..1.990.f ...109| 00001840: 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 |3,49:.1094,230:.| 00001850: 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 |1097,46:.1102,23| 00001860: 30 3A 89 39 36 35 00 A0 20 C2 03 97 32 30 39 39 |0:.965.. ...2099| 00001870: 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 |,141:.2100,20:.2| 00001880: 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 |101,3:.2103,8:.2| 00001890: 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 |104,141:.2105,21| 000018A0: 00 DC 20 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 |.. ...2106,3:.21| 000018B0: 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A |15,145:.2117,52:| 000018C0: 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C |.2118,234:.2121,| 000018D0: 34 39 3A 97 32 31 32 32 2C 31 34 31 00 16 21 C4 |49:.2122,141..!.| 000018E0: 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C |..2123,20:.2124,| 000018F0: 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 |3:.2126,234:.212| 00001900: 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 |7,141:.2128,21:.| 00001910: 32 31 32 39 2C 33 00 34 21 C5 03 9E 55 55 AA 34 |2129,3.4!...UU.4| 00001920: 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 |8:. DISABLE STOP| 00001930: 20 4B 45 59 00 45 21 CA 03 8D 38 30 30 3A 8F 20 | KEY.E!...800:. | 00001940: 54 49 54 4C 45 00 55 21 D4 03 89 33 30 30 3A 8F |TITLE.U!...300:.| 00001950: 20 4D 45 4E 55 00 86 21 DE 03 99 22 93 54 48 45 | MENU..!...".THE| 00001960: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO| 00001970: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI| 00001980: 4E 45 21 22 3A 80 00 BB 21 E8 03 8B 55 5A B2 31 |NE!":...!...UZ.1| 00001990: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:| 000019A0: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA| 000019B0: 52 54 53 20 48 45 52 45 20 2A 2A 00 E7 21 E9 03 |RTS HERE **..!..| 000019C0: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000| 000019D0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5| 000019E0: 33 32 38 30 2C 31 34 00 FA 21 EA 03 99 20 22 93 |3280,14..!... ".| 000019F0: 22 3A 97 20 55 54 2C 55 4C 25 00 04 22 2E 04 89 |":. UT,UL%.."...| 00001A00: 31 32 36 30 00 23 22 4C 04 99 22 93 11 11 11 11 |1260.#"L..".....| 00001A10: 11 11 11 11 22 A3 31 35 29 22 49 4E 2D 4F 52 44 |....".15)"IN-ORD| 00001A20: 45 52 22 00 2D 22 56 04 99 22 11 11 22 00 48 22 |ER".-"V.."..".H"| 00001A30: 60 04 99 20 A3 31 33 29 3B 22 42 59 20 44 2E 20 |`.. .13);"BY D. | 00001A40: 42 55 43 4B 45 59 45 22 00 51 22 65 04 8D 38 33 |BUCKEYE".Q"e..83| 00001A50: 35 00 57 22 6A 04 8E 00 65 22 74 04 59 B2 30 3A |5.W"j...e"t.Y.0:| 00001A60: 54 B2 32 35 35 00 95 22 A6 04 99 22 20 11 C9 20 |T.255.."..." .. | 00001A70: 41 4D 20 54 48 49 4E 4B 49 4E 47 20 4F 46 20 41 |AM THINKING OF A| 00001A80: 20 54 48 52 45 45 2D 44 49 47 49 54 20 4E 55 4D | THREE-DIGIT NUM| 00001A90: 42 45 52 2E 22 00 C5 22 B0 04 99 22 20 11 D4 52 |BER.".."..." ..R| 00001AA0: 59 20 54 4F 20 47 55 45 53 53 20 4D 59 20 4E 55 |Y TO GUESS MY NU| 00001AB0: 4D 42 45 52 20 41 4E 44 20 C9 20 57 49 4C 4C 20 |MBER AND . WILL | 00001AC0: 47 49 56 45 22 00 E4 22 BA 04 99 22 20 11 59 4F |GIVE".."..." .YO| 00001AD0: 55 20 43 4C 55 45 53 20 41 53 20 46 4F 4C 4C 4F |U CLUES AS FOLLO| 00001AE0: 57 53 3A 22 00 2A 23 CE 04 99 22 20 11 11 D0 C9 |WS:".*#..." ....| 00001AF0: C3 CF 2D 4F 4E 45 20 44 49 47 49 54 20 43 4F 52 |..-ONE DIGIT COR| 00001B00: 52 45 43 54 20 42 55 54 20 49 4E 20 54 48 45 20 |RECT BUT IN THE | 00001B10: 20 20 20 20 20 20 20 20 20 20 1D 57 52 4F 4E 47 | .WRONG| 00001B20: 20 50 4F 53 49 54 49 4F 4E 22 00 70 23 D8 04 99 | POSITION".p#...| 00001B30: 22 20 11 C6 C5 D2 CD C9 2D 4F 4E 45 20 44 49 47 |" ......-ONE DIG| 00001B40: 49 54 20 43 4F 52 52 45 43 54 20 41 4E 44 20 49 |IT CORRECT AND I| 00001B50: 4E 20 54 48 45 20 20 20 20 20 20 20 20 20 20 20 |N THE | 00001B60: 1D 52 49 47 48 54 20 50 4F 53 49 54 49 4F 4E 22 |.RIGHT POSITION"| 00001B70: 00 92 23 E2 04 99 22 20 11 C2 C1 C7 C5 CC D3 2D |..#..." .......-| 00001B80: 4E 4F 20 44 49 47 49 54 53 20 43 4F 52 52 45 43 |NO DIGITS CORREC| 00001B90: 54 22 00 98 23 E7 04 8E 00 A6 23 EC 04 81 20 49 |T"..#.....#... I| 00001BA0: B2 31 20 A4 20 33 00 BA 23 F6 04 41 28 49 29 B2 |.1 . 3..#..A(I).| 00001BB0: B5 28 31 30 AC BB 28 31 29 29 00 CD 23 00 05 8B |.(10..(1))..#...| 00001BC0: 20 49 AB 31 B2 30 20 A7 20 31 33 32 30 00 DD 23 | I.1.0 . 1320..#| 00001BD0: 0A 05 81 20 4A B2 31 20 A4 20 49 AB 31 00 F4 23 |... J.1 . I.1..#| 00001BE0: 14 05 8B 20 41 28 49 29 B2 41 28 4A 29 20 A7 20 |... A(I).A(J) . | 00001BF0: 31 32 37 30 00 FC 23 1E 05 82 20 4A 00 04 24 28 |1270..#... J..$(| 00001C00: 05 82 20 49 00 2E 24 32 05 99 22 93 11 11 11 20 |.. I..$2..".... | 00001C10: CF 2E 4B 2E 20 C9 20 48 41 56 45 20 41 20 4E 55 |..K. . HAVE A NU| 00001C20: 4D 42 45 52 20 49 4E 20 4D 49 4E 44 2E 22 00 3E |MBER IN MIND.".>| 00001C30: 24 37 05 81 49 B2 31 A4 31 30 30 30 3A 82 00 4D |$7..I.1.1000:..M| 00001C40: 24 3C 05 81 20 49 B2 31 20 A4 20 32 30 00 62 24 |$<.. I.1 . 20.b$| 00001C50: 41 05 55 50 B2 49 3A 55 47 24 B2 22 22 3A 8D 38 |A.UP.I:UG$."":.8| 00001C60: 35 30 00 7A 24 46 05 99 22 13 11 11 11 20 20 C7 |50.z$F..".... .| 00001C70: 55 45 53 53 20 23 22 3B 49 2C 00 99 24 50 05 55 |UESS #";I,..$P.U| 00001C80: 4C B2 33 3A 55 53 24 B2 22 47 31 32 33 34 35 36 |L.3:US$."G123456| 00001C90: 37 38 39 30 22 3A 8D 33 35 00 A4 24 5A 05 41 24 |7890":.35..$Z.A$| 00001CA0: B2 55 52 24 00 B7 24 5D 05 8B 20 41 24 B2 22 47 |.UR$..$].. A$."G| 00001CB0: 22 A7 89 32 30 30 30 00 CC 24 5E 05 8B 20 C3 28 |"..2000..$^.. .(| 00001CC0: 41 24 29 B3 33 20 A7 20 31 33 35 30 00 E5 24 5F |A$).3 . 1350..$_| 00001CD0: 05 52 24 28 49 29 B2 22 20 20 20 22 AA 41 24 AA |.R$(I)." ".A$.| 00001CE0: 22 20 2D 20 22 00 0B 25 64 05 81 20 5A B2 31 20 |" - "..%d.. Z.1 | 00001CF0: A4 20 33 3A 41 31 28 5A 29 B2 C6 28 CA 28 41 24 |. 3:A1(Z)..(.(A$| 00001D00: 2C 5A 2C 31 29 29 3A 20 82 20 5A 00 19 25 6E 05 |,Z,1)): . Z..%n.| 00001D10: 81 20 4A B2 31 20 A4 20 33 00 2F 25 78 05 8B 20 |. J.1 . 3./%x.. | 00001D20: 41 31 28 4A 29 B3 34 38 20 A7 20 31 34 35 30 00 |A1(J).48 . 1450.| 00001D30: 45 25 82 05 8B 20 41 31 28 4A 29 B1 35 37 20 A7 |E%... A1(J).57 .| 00001D40: 20 31 34 35 30 00 57 25 8C 05 42 28 4A 29 B2 41 | 1450.W%..B(J).A| 00001D50: 31 28 4A 29 AB 34 38 00 5F 25 96 05 82 20 4A 00 |1(J).48._%... J.| 00001D60: 6A 25 A0 05 89 20 31 34 37 30 00 78 25 AA 05 99 |j%... 1470.x%...| 00001D70: 22 20 57 48 41 54 3F 22 00 83 25 B4 05 89 20 31 |" WHAT?"..%... 1| 00001D80: 33 35 30 00 9A 25 BE 05 8B 20 42 28 31 29 B2 42 |350..%... B(1).B| 00001D90: 28 32 29 20 A7 20 31 38 32 30 00 B1 25 C8 05 8B |(2) . 1820..%...| 00001DA0: 20 42 28 32 29 B2 42 28 33 29 20 A7 20 31 38 32 | B(2).B(3) . 182| 00001DB0: 30 00 C8 25 D2 05 8B 20 42 28 33 29 B2 42 28 31 |0..%... B(3).B(1| 00001DC0: 29 20 A7 20 31 38 32 30 00 D4 25 DC 05 43 B2 30 |) . 1820..%..C.0| 00001DD0: 3A 44 B2 30 00 E2 25 E6 05 81 20 4A B2 31 20 A4 |:D.0..%... J.1 .| 00001DE0: 20 32 00 FC 25 F0 05 8B 20 41 28 4A 29 B3 B1 42 | 2..%... A(J)..B| 00001DF0: 28 4A AA 31 29 20 A7 20 31 35 34 30 00 06 26 FA |(J.1) . 1540..&.| 00001E00: 05 43 B2 43 AA 31 00 20 26 04 06 8B 20 41 28 4A |.C.C.1. &... A(J| 00001E10: AA 31 29 B3 B1 42 28 4A 29 20 A7 20 31 35 36 30 |.1)..B(J) . 1560| 00001E20: 00 2A 26 0E 06 43 B2 43 AA 31 00 32 26 18 06 82 |.*&..C.C.1.2&...| 00001E30: 20 4A 00 4A 26 22 06 8B 20 41 28 31 29 B3 B1 42 | J.J&".. A(1)..B| 00001E40: 28 33 29 20 A7 20 31 35 39 30 00 54 26 2C 06 43 |(3) . 1590.T&,.C| 00001E50: B2 43 AA 31 00 6C 26 36 06 8B 20 41 28 33 29 B3 |.C.1.l&6.. A(3).| 00001E60: B1 42 28 31 29 20 A7 20 31 36 31 30 00 76 26 40 |.B(1) . 1610.v&@| 00001E70: 06 43 B2 43 AA 31 00 84 26 4A 06 81 20 4A B2 31 |.C.C.1..&J.. J.1| 00001E80: 20 A4 20 33 00 9C 26 54 06 8B 20 41 28 4A 29 B3 | . 3..&T.. A(J).| 00001E90: B1 42 28 4A 29 20 A7 20 31 36 34 30 00 A6 26 5E |.B(J) . 1640..&^| 00001EA0: 06 44 B2 44 AA 31 00 AE 26 68 06 82 20 4A 00 C4 |.D.D.1..&h.. J..| 00001EB0: 26 72 06 99 22 11 22 3A 8B 20 44 B2 33 20 A7 20 |&r..".":. D.3 . | 00001EC0: 31 38 34 30 00 D5 26 7C 06 8B 20 43 B2 30 20 A7 |1840..&|.. C.0 .| 00001ED0: 20 31 37 30 30 00 E3 26 86 06 81 20 4A B2 31 20 | 1700..&... J.1 | 00001EE0: A4 20 43 00 FB 26 8B 06 52 24 28 49 29 B2 52 24 |. C..&..R$(I).R$| 00001EF0: 28 49 29 AA 22 20 D0 C9 C3 CF 22 00 0B 27 90 06 |(I)." ...."..'..| 00001F00: 99 22 20 20 20 D0 C9 C3 CF 22 3B 00 13 27 9A 06 |." ....";..'..| 00001F10: 82 20 4A 00 24 27 A4 06 8B 20 44 B2 30 20 A7 20 |. J.$'... D.0 . | 00001F20: 31 37 34 30 00 32 27 AE 06 81 20 4A B2 31 20 A4 |1740.2'... J.1 .| 00001F30: 20 44 00 43 27 B8 06 99 22 20 20 20 C6 C5 D2 CD | D.C'..." ....| 00001F40: C9 22 3B 00 5C 27 BD 06 52 24 28 49 29 B2 52 24 |.";.\'..R$(I).R$| 00001F50: 28 49 29 AA 22 20 C6 C5 D2 CD C9 22 00 64 27 C2 |(I)." .....".d'.| 00001F60: 06 82 20 4A 00 78 27 CC 06 8B 20 43 AA 44 B3 B1 |.. J.x'... C.D..| 00001F70: 30 20 A7 20 31 37 36 30 00 92 27 D1 06 52 24 28 |0 . 1760..'..R$(| 00001F80: 49 29 B2 52 24 28 49 29 AA 22 20 C2 C1 C7 C5 CC |I).R$(I)." .....| 00001F90: D3 22 00 A4 27 D6 06 99 22 20 20 20 C2 C1 C7 C5 |."..'..." ....| 00001FA0: CC D3 22 3B 00 B0 27 E0 06 99 3A 8D 31 32 33 30 |..";..'...:.1230| 00001FB0: 00 B9 27 E5 06 8D 38 33 35 00 C1 27 EA 06 82 20 |..'...835..'... | 00001FC0: 49 00 DA 27 F4 06 99 22 13 11 11 11 11 20 20 20 |I..'..."..... | 00001FD0: 20 4F 48 2C 20 57 45 4C 4C 22 00 23 28 FE 06 8D | OH, WELL".#(...| 00001FE0: 38 35 30 3A 99 22 20 D4 48 41 54 27 53 20 54 57 |850:." .HAT'S TW| 00001FF0: 45 4E 54 59 20 47 55 45 53 53 45 53 2E 20 20 CD |ENTY GUESSES. .| 00002000: 59 20 4E 55 4D 42 45 52 20 57 41 53 22 3B 31 30 |Y NUMBER WAS";10| 00002010: 30 AC 41 28 31 29 AA 31 30 AC 41 28 32 29 AA 41 |0.A(1).10.A(2).A| 00002020: 28 33 29 00 2E 28 08 07 89 20 31 38 36 30 00 60 |(3)..(... 1860.`| 00002030: 28 12 07 99 22 20 D4 52 59 20 47 55 45 53 53 49 |(..." .RY GUESSI| 00002040: 4E 47 20 41 20 54 48 52 45 45 2D 44 49 47 49 54 |NG A THREE-DIGIT| 00002050: 20 4E 55 4D 42 45 52 2E 22 3A 89 20 31 33 35 30 | NUMBER.":. 1350| 00002060: 00 86 28 1C 07 99 22 11 20 CF 48 2C 20 C9 20 46 |..(...". .H, . F| 00002070: 4F 52 47 4F 54 20 54 4F 20 54 45 4C 4C 20 59 4F |ORGOT TO TELL YO| 00002080: 55 20 54 48 41 54 00 A8 28 21 07 99 22 20 54 48 |U THAT..(!.." TH| 00002090: 45 20 4E 55 4D 42 45 52 20 C9 20 48 41 56 45 20 |E NUMBER . HAVE | 000020A0: 49 4E 20 4D 49 4E 44 22 00 CC 28 26 07 99 22 20 |IN MIND"..(&.." | 000020B0: 48 41 53 20 4E 4F 20 54 57 4F 20 44 49 47 49 54 |HAS NO TWO DIGIT| 000020C0: 53 20 54 48 45 20 53 41 4D 45 2E 22 00 D6 28 28 |S THE SAME."..((| 000020D0: 07 8D 20 38 33 35 00 E2 28 2A 07 55 50 B2 55 50 |.. 835..(*.UP.UP| 000020E0: AB 31 00 EC 28 2B 07 8D 20 38 35 30 00 F6 28 2F |.1..(+.. 850..(/| 000020F0: 07 89 31 33 35 30 00 15 29 30 07 99 22 93 11 11 |..1350..)0.."...| 00002100: 11 11 20 20 20 D9 4F 55 20 47 4F 54 20 49 54 21 |.. .OU GOT IT!| 00002110: 21 21 22 3A 99 00 1F 29 3A 07 59 B2 59 AA 31 00 |!!":...):.Y.Y.1.| 00002120: 3E 29 44 07 99 22 11 20 20 D0 4C 41 59 20 41 47 |>)D..". .LAY AG| 00002130: 41 49 4E 20 28 59 2F 4E 29 20 3F 20 22 3B 00 54 |AIN (Y/N) ? ";.T| 00002140: 29 49 07 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 |)I.UL.1:US$."YN"| 00002150: 3A 8D 33 35 00 67 29 4E 07 8B 55 52 24 B2 22 59 |:.35.g)N..UR$."Y| 00002160: 22 A7 20 31 32 36 30 00 78 29 58 07 8B 20 59 B2 |". 1260.x)X.. Y.| 00002170: 30 20 A7 20 31 39 30 30 00 9D 29 62 07 99 3A 99 |0 . 1900..)b..:.| 00002180: 20 22 20 C1 22 3B 59 3B 22 50 4F 49 4E 54 20 42 | " .";Y;"POINT B| 00002190: 41 47 45 4C 53 20 42 55 46 46 21 21 22 00 BC 29 |AGELS BUFF!!"..)| 000021A0: 6C 07 99 22 20 C8 4F 50 45 20 59 4F 55 20 48 41 |l.." .OPE YOU HA| 000021B0: 44 20 46 55 4E 2E 20 42 59 45 2E 22 00 C5 29 71 |D FUN. BYE."..)q| 000021C0: 07 8D 38 33 35 00 CB 29 76 07 8E 00 DC 29 D0 07 |..835..)v....)..| 000021D0: 8F 20 4C 49 53 54 20 54 52 49 45 53 00 E5 29 DA |. LIST TRIES..).| 000021E0: 07 99 22 93 22 00 F6 29 DF 07 8B 20 49 B2 31 20 |.."."..)... I.1 | 000021F0: A7 20 32 30 36 30 00 04 2A E4 07 81 20 4E B2 31 |. 2060..*... N.1| 00002200: A4 49 AB 31 00 16 2A EE 07 99 22 20 20 23 22 4E |.I.1..*..." #"N| 00002210: 3B 52 24 28 4E 29 00 1D 2A F8 07 82 4E 00 26 2A |;R$(N)..*...N.&*| 00002220: 0C 08 8D 38 33 35 00 2F 2A 11 08 99 22 93 22 00 |...835./*...".".| 00002230: 3A 2A 16 08 89 20 31 33 34 35 00 00 00 |:*... 1345... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.#.(.UR$."":UI$."":. UO,0.3.*..UL.0.UL
.80.F.-.." ..";:.UC,0.Z.2..UI$:.UI$."".
50...7..UI$.G(13).C(UR$)..1..UC,1:." .";
:.85...<..UI$.G(20).105...>.. C(UR$)..UL
.50.P.A..120:. CHECK FOR VALID CHARACTER
...F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.?.Z..UR$
.UX$.195:. EXIT TO HELP ROUTINE.N._..UF.
1..240.[.D.UF.0:.:..T.F.. ++ CHECK DELET
E ++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR
$).1)...S..". ..";:.50.V.X.. ++ CHECK F
OR VALID CHARACTERS ++...}..C(US$).0.150
....US$.US$.UX$......US.1.C(US$). ....U
I$.J(US$,US,1)...&.....3...UI$."":..N...
. ** STANDARD INPUT **._....F(UI$).46...
P....UI$.G(32)..... ..F(UI$).48.F(UI$).5
7.170............F(UI$).65.F(UI$).90.180
.......Z....F(UI$).193.F(UI$).218.UI$.""
:.......B(UT).UU%.UI$.G(F(UI$).128):....
........UI$."":..5.C.UF.1:. +++ HELP ROU
TINE EXIT +++.>.E..250.G.H..245.F.M..UQ.
UB.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).B(
UQ):.:."."...W.UZ.1:UV%.B(UT)...X..300.C
.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z.
.B(50003).0..53281,1:.".";:.53281,6:.532
80,14:.220......".";.3...UT$.UL$:.UT,UV%
:.UQ.UB.(U2%.256.U1%.U3%.3).H....UQ,UQ%(
UQ.UB):..T....U1,U1%.`....U2,U2%.L....U4
,U4%.Z....U3,U3%.1......35.....UD%.((U2%
.256.U1%.U3%).UB).40:.H(UD$,UD%.1):.....
..H(UD$,24);" . HEL
P COMING . ":......U1%.B(U1):U2%.B(U2):
U3%.B(U3):U4%.B(U4).C...UJ$.US$:UK$.UG$:
UL$.UT$:UJ.UP:UK.UL.I.....Z.,.. ** MENU
**.`.-.:......".":.UT,UU%:.B(50003).0..5
3281,9:.53280,8.../.:...1..".
MENU"...6.." ----------------------
----------------"...;..".. 1. BE
GIN IN ORDER ".3.@..".. 2. ST
UDENT INSTRUCTIONS".].E..".. 3.
TEACHER INSTRUCTIONS".Y.O..".. 4.
QUIT.."...T.." -----------------------
---------------".S.Y..".. PRESS A
NUMBER KEY (1-4) ";...^.UL.1:US$."1234":
.35:. INPUT ROUTINE..._..C(UR$).1.300...
`.US$."".5.C..E(UR$).1000,400,500,396.>.
H..300.E.... ** RE-ENABLE STOP KEY AND E
ND **......B(50003)..1.B(50003)..160.B(5
0003)..0.399......UU.71:.B(50003).0..532
81,6:.53280,14.J...."..":..U....875:....
... ** STUDENT INSTRUCTIONS **.%....".":
.UT,UL%:.B(50003).0..53281,0:.53280,0.F.
..UP.0:UG$."STUDENT INST":.850.P....1140
.C....835:UP.2:.850......".... YOU'LL HA
VE 20 TRIES TO GET THE NUMBER..B...."..
TO SEE ALL TRIES PRESS G <RETURN>"...B..
". INSTEAD OF ENTERING A NUMBER.......83
5......UZ.1..UP%:.217.......,.... ** TEA
CHER INSTRUCTIONS **.\....".":.UT,UL%:.B
(50003).0..53281,2:.53280,10.}...UP.0:UG
$."TEACHER INST":.850......".. TO T
HE BEST OF OUR KNOWLEDGE,.".T...." THI
S PROGRAM IS IN THE PUBLIC."......" DO
MAIN. IF THIS IS NOT THE CASE."......"
PLEASE CONTACT:...".G...." COMMOD
ORE BUSINESS MACHINES.".J...."
3370 PHARMACY AVE......." AGINC
OURT, ONTARIO"......" CANADA
M1W 2K4".P...." (416) 499-4292"
.....UP.1:. 835:. 850:......" ..PROG
RAM NAME: IN ORDER ..5...." WRIT
TEN BY : D BUCKEYE.".Y...." UPGRADE
D BY : ......." .THIS PROGR
AM WILL RUN ON ANY........" PET
64 COMPUTER..I...." COMMODORE 64
COMPUTER.X....835:. 850......".......
THIS IS A GAME IN WHICH THE.(.&..". THE
STUDENT TRIES TO FIGURE.Q.0..". OUT A
3 DIGIT NUMBER WITH CLUES.M.5..". FROM
THE COMPUTER..V.D..835...N..UZ.1..UP%:.2
17...W.....X.. ** PROGRAM MODIFICATION I
NST **.G.Y..".":.UT,UL%...].UP.0:UG$."PR
OGRAM MOD":.850......835......UZ.1..UP%:
.217......./.... ** TO USE 8032 LOAD CBM
4032 **.E.F..".....BEFORE RUNNING THIS P
ROGRAM ON AN 8032 .....P.." LOAD T
HE 'CBM 4032' PROGRAM............."...Z.
.UU.71.......Q.... ** TO USE 8032 LOAD C
BM4032 **......"....BEFORE RUNNING THIS
PROGRAM ON AN 8032 ..LOAD CBM 4032 PROG
RAM".(....1093:..H. .. ** T I T L E P
A G E **.|.".."....";:.UT,UU%:.B(50003).
0..53280,14:.53281,6...$..I.1.38:."...";
:....&..I.1.22:.".....";:..B.(..I.1.37:.
".....";:..Z.*..I.1.22:.".....";:....,..
"........................... ..!...."..
................. . . ...B.0.."........
........... . ....`.2.."...............
..... ....4.."..............C O M M O D
O R E.....6.."...............EDUCATIONA
L...J.8.."................SOFTWARE...:..
** COMMODORE LOGO **...;..H(UD$,24);"..
........PRESS SPACE BAR OR WAIT.":I.0.?.
<..A$:.A$.." ".I.I.1:.I.250.828.C.>.T1$.
"":T2$."":T3$."":T4$."":I.0.L.@..300...C
.. ** SPACE BAR PRESS **.D.H.. UO,0:.H(U
D$,24);".......PRESS SPACE BAR TO CONTIN
UE."...L..UI$:.UI$.." ".844...N.....R..
** PAGE DESIGN ROUTINE **...T.UP.UP.1.7.
W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).
F.\.." ---------------------------------
-----".U.`..UH..0.870...A..H(UD$,24);H(U
P$,7);"HELP - PRESS H <RETURN>"...F.UH
.0:."..":..Y.K.. ** PLEASE WAIT REMARK *
*...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U...2.... ** SET UP VA
RIABLES **.}...UX$."H":.UQ%(1000):UB.327
68:U1.196:U2.197:U3.198:U4.216:UC.167:UU
.1024.....UT.59468:UU%.12:UL%.14:UP%.114
6:UM.32768:UO.158:. 50003,0......B(50003
).0.UB.1024:U1.209:U2.210:U3.211:U4.214:
UC.204:UU.2048.=....B(50003).0.UT.53272:
UU%.21:UL%.23:UP%.2139:UM.1024:UO.198.A.
..UD$.".........................".....UP
$."
".....UT$." IN ORDER ":. PLAC
E PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!**
*............ ** SET VARIABLES **......9
00...... R$(21).....:.8.... ** CHECK FOR
8032 **.V....".":." ":. SHIFTED SPACE.M
....B(UB.40)..96..700...... ** MEMORY CH
ECK **...... .(0).2000.937.H...."....THI
S MACHINE DOES NOT HAVE ENOUGH."......"M
EMORY TO RUN THIS PROGRAM !"......UU.71.
..........."..":.B(50003).0.962.F.... **
BASIC 2.0 OR 4.0 OR C-64 SETUP **..
....1075,133:.1076,144:.1077,234:.1079,4
:.1080,133:.1081,145......1091,155:.1098
,133:.1099,144:.1100,234:.1103,133......
1104,145:.1105,234:.1082,234......B(5000
3)..160.955." ...1093,88:.1094,228:.1097
,85:.1102,228:.965.7 ...B(50003)..1.990.
F ...1093,49:.1094,230:.1097,46:.1102,23
0:.965. B..2099,141:.2100,20:.2101,3:.2
103,8:.2104,141:.2105,21.. C..2106,3:.21
15,145:.2117,52:.2118,234:.2121,49:.2122
,141..!D..2123,20:.2124,3:.2126,234:.212
7,141:.2128,21:.2129,3.4!E..UU.48:. DISA
BLE STOP KEY.E!J..800:. TITLE.U!T..300:.
MENU..!...".THE PGM WILL NOT WORK ON TH
IS MACHINE!":...!...UZ.1..UP%:.UP%:UZ.0:
. ** PROGRAM STARTS HERE **..!..."..";:.
:.B(50003).0..53281,6:.53280,14..!... ".
":. UT,UL%.."...1260.#"L..".........".15
)"IN-ORDER".-"V.."..".H"`.. .13);"BY D.
BUCKEYE".Q"E..835.W"J...E"T.Y.0:T.255.."
..." .I AM THINKING OF A THREE-DIGIT NUM
BER.".E"..." .TRY TO GUESS MY NUMBER AND
I WILL GIVE".."..." .YOU CLUES AS FOLLO
WS:".*#N.." ..PICO-ONE DIGIT CORRECT BUT
IN THE .WRONG POSITION".P#X..
" .FERMI-ONE DIGIT CORRECT AND IN THE
.RIGHT POSITION"..#..." .BAGELS-
NO DIGITS CORRECT"..#.....#... I.1 . 3..
#..A(I)..(10..(1)).M#... I.1.0 . 1320..#
... J.1 . I.1..#... A(I).A(J) . 1270..#.
.. J..$(.. I..$2..".... O.K. I HAVE A NU
MBER IN MIND.".>$7..I.1.1000:..M$<.. I.1
. 20.B$A.UP.I:UG$."":.850.Z$F..".... G
UESS #";I,..$P.UL.3:US$."G1234567890":.3
5..$Z.A$.UR$..$].. A$."G"..2000.L$^.. C(
A$).3 . 1350..$_.R$(I)." ".A$." - "..%
D.. Z.1 . 3:A1(Z).F(J(A$,Z,1)): . Z..%N.
. J.1 . 3./%X.. A1(J).48 . 1450.E%... A1
(J).57 . 1450.W%..B(J).A1(J).48._%... J.
J% .. 1470.X%..." WHAT?"..%... 1350..%..
. B(1).B(2) . 1820..%H.. B(2).B(3) . 182
0.H%R.. B(3).B(1) . 1820.T%..C.0:D.0..%.
.. J.1 . 2..%... A(J)..B(J.1) . 1540..&.
.C.C.1. &... A(J.1)..B(J) . 1560.*&..C.C
.1.2&... J.J&".. A(1)..B(3) . 1590.T&,.C
.C.1.L&6.. A(3)..B(1) . 1610.V&@.C.C.1..
&J.. J.1 . 3..&T.. A(J)..B(J) . 1640..&^
.D.D.1..&H.. J.D&R..".":. D.3 . 1840.U&|
.. C.0 . 1700..&... J.1 . C..&..R$(I).R$
(I)." PICO"..'..." PICO";..'... J.$'..
. D.0 . 1740.2'... J.1 . D.C'..." FERM
I";.\'..R$(I).R$(I)." FERMI".D'B.. J.X'L
.. C.D..0 . 1760..'Q.R$(I).R$(I)." BAGEL
S"..'V.." BAGELS";..'...:.1230..'...83
5.A'... I.Z'..."..... OH, WELL".#(...
850:." THAT'S TWENTY GUESSES. MY NUMBER
WAS";100.A(1).10.A(2).A(3)..(... 1860.`
(..." TRY GUESSING A THREE-DIGIT NUMBER.
":. 1350..(...". OH, I FORGOT TO TELL YO
U THAT..(!.." THE NUMBER I HAVE IN MIND"
.L(&.." HAS NO TWO DIGITS THE SAME.".V((
.. 835..(*.UP.UP.1..(+.. 850..(/..1350..
)0.."..... YOU GOT IT!!!":...):.Y.Y.1.
>)D..". PLAY AGAIN (Y/N) ? ";.T)I.UL.1:
US$."YN":.35.G)N..UR$."Y". 1260.X)X.. Y.
0 . 1900..)B..:. " A";Y;"POINT BAGELS BU
FF!!"..)L.." HOPE YOU HAD FUN. BYE.".E)Q
..835.K)V....)P.. LIST TRIES..)Z.."."..)
... I.1 . 2060..*... N.1.I.1..*..." #"N
;R$(N)..*...N.&*...835./*...".".:*... 13
45...
> CLICK IMAGE PREVIEW FOR FULL MODAL