ELEMENTS.C3
FILE INFORMATION
FILENAME(S): ELEMENTS.C3
FILE TYPE(S): PRG
FILE SIZE: 11.1K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 3 disk(s)
FILE HASH
dd01d71400d1f2f52be57a9ca67c7d4cc9563aec71dd746ed7c16bd6e1595551
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0006ED | ELEMENTS.C3 | PRG | Treasure Chest - Klaus Der Suhler | 27 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | ELEMENTS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 2 | DOWNLOAD FILE |
| L EHRNEN | ELEMENTS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 2 | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 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 45 4C 45 4D | 1. BEGIN ELEM|
00000800: 45 4E 54 53 20 20 20 20 22 00 33 10 40 01 99 22 |ENTS ".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 74 12 A0 01 99 22 20 11 D4 |":.850.t...." ..|
00000A50: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000A60: 20 48 45 4C 50 20 59 4F 55 20 4C 45 41 52 4E 20 | HELP YOU LEARN |
00000A70: 54 48 45 22 00 9F 12 A1 01 99 22 20 11 43 4F 52 |THE"......" .COR|
00000A80: 52 45 43 54 20 53 59 4D 42 4F 4C 53 20 46 4F 52 |RECT SYMBOLS FOR|
00000A90: 20 54 48 45 20 31 30 34 20 4B 4E 4F 57 4E 22 00 | THE 104 KNOWN".|
00000AA0: B3 12 A2 01 99 22 20 11 45 4C 45 4D 45 4E 54 53 |....." .ELEMENTS|
00000AB0: 2E 11 22 00 E3 12 A4 01 99 22 20 CF 4E 20 54 48 |.."......" .N TH|
00000AC0: 45 20 53 43 52 45 45 4E 20 54 48 45 52 45 20 57 |E SCREEN THERE W|
00000AD0: 49 4C 4C 20 42 45 20 50 52 49 4E 54 45 44 20 54 |ILL BE PRINTED T|
00000AE0: 48 45 22 00 12 13 AE 01 99 22 20 4E 41 4D 45 20 |HE"......" NAME |
00000AF0: 4F 46 20 41 4E 20 45 4C 45 4D 45 4E 54 2E 20 D9 |OF AN ELEMENT. .|
00000B00: 4F 55 20 41 52 45 20 54 4F 20 54 59 50 45 20 49 |OU ARE TO TYPE I|
00000B10: 4E 22 00 3E 13 B8 01 99 22 20 11 54 48 45 20 53 |N".>...." .THE S|
00000B20: 59 4D 42 4F 4C 20 46 4F 52 20 54 48 41 54 20 45 |YMBOL FOR THAT E|
00000B30: 4C 45 4D 45 4E 54 2E 20 20 D4 48 45 20 22 00 6A |LEMENT. .HE ".j|
00000B40: 13 BD 01 99 22 20 11 52 45 53 55 4C 54 53 20 57 |...." .RESULTS W|
00000B50: 49 4C 4C 20 54 48 45 4E 20 42 45 20 47 49 56 45 |ILL THEN BE GIVE|
00000B60: 4E 20 54 4F 20 59 4F 55 2E 22 00 97 13 BE 01 99 |N TO YOU."......|
00000B70: 22 20 11 D4 4F 20 52 45 54 55 52 4E 20 54 4F 20 |" ..O RETURN TO |
00000B80: 4D 45 4E 55 2C 20 54 59 50 45 20 27 48 27 20 52 |MENU, TYPE 'H' R|
00000B90: 45 54 55 52 4E 2E 22 00 C6 13 BF 01 99 22 20 11 |ETURN."......" .|
00000BA0: D2 45 4D 45 4D 42 45 52 2C 20 20 54 48 45 20 46 |.EMEMBER, THE F|
00000BB0: 49 52 53 54 20 4C 45 54 54 45 52 20 49 53 20 41 |IRST LETTER IS A|
00000BC0: 4C 57 41 59 53 22 00 DE 13 C0 01 99 22 20 11 43 |LWAYS"......" .C|
00000BD0: 41 50 49 54 41 4C 49 5A 45 44 2E 20 20 22 00 E7 |APITALIZED. "..|
00000BE0: 13 E5 01 8D 38 33 35 00 FB 13 EA 01 8B 55 5A B2 |....835......UZ.|
00000BF0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 01 14 F3 01 |1..UP%:.217.....|
00000C00: 8E 00 22 14 F4 01 8F 20 2A 2A 20 54 45 41 43 48 |..".... ** TEACH|
00000C10: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS |
00000C20: 2A 2A 00 52 14 F5 01 99 22 93 22 3A 97 55 54 2C |**.R....".":.UT,|
00000C30: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
00000C40: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,|
00000C50: 31 30 00 73 14 F6 01 55 50 B2 30 3A 55 47 24 B2 |10.s...UP.0:UG$.|
00000C60: 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D |".EACHER .NST":.|
00000C70: 38 35 30 00 A1 14 F7 01 99 22 11 11 20 20 20 20 |850......".. |
00000C80: 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 | .O THE BEST OF|
00000C90: 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 | OUR KNOWLEDGE,.|
00000CA0: 22 00 CA 14 F8 01 99 22 20 20 20 54 48 49 53 20 |"......" THIS |
00000CB0: 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 |PROGRAM IS IN TH|
00000CC0: 45 20 50 55 42 4C 49 43 11 22 00 F6 14 F9 01 99 |E PUBLIC."......|
00000CD0: 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 |" DOMAIN. .F |
00000CE0: 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 |THIS IS NOT THE |
00000CF0: 43 41 53 45 11 22 00 13 15 FA 01 99 22 20 20 20 |CASE."......" |
00000D00: 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 |PLEASE CONTACT:.|
00000D10: 11 11 22 00 3D 15 FB 01 99 22 20 20 20 20 20 20 |..".=...." |
00000D20: C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 |.OMMODORE .USINE|
00000D30: 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 60 15 |SS .ACHINES.".`.|
00000D40: FC 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 |..." 33|
00000D50: 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E |70 .HARMACY .VE.|
00000D60: 00 84 15 FD 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000D70: 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 | .GINCOURT, .NTA|
00000D80: 52 49 4F 22 00 A6 15 FE 01 99 22 20 20 20 20 20 |RIO"......" |
00000D90: 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 | .ANADA .1|
00000DA0: D7 20 32 CB 34 22 00 C6 15 FF 01 99 22 20 20 20 |. 2.4"......" |
00000DB0: 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 | (416) 499|
00000DC0: 2D 34 32 39 32 22 00 DC 15 00 02 55 50 B2 31 3A |-4292".....UP.1:|
00000DD0: 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 06 16 01 |. 835:. 850:....|
00000DE0: 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 |.." ...ROGRA|
00000DF0: 4D 20 CE 41 4D 45 3A 20 C5 4C 45 4D 45 4E 54 53 |M .AME: .LEMENTS|
00000E00: 20 20 20 20 20 11 00 2F 16 02 02 99 22 20 20 20 | ../...." |
00000E10: 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 | .RITTEN .Y : |
00000E20: D7 49 4C 4C 49 41 4D 20 D3 59 4D 4F 4E 53 11 00 |.ILLIAM .YMONS..|
00000E30: 56 16 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 |V...." .PGRA|
00000E40: 44 45 44 20 C2 59 20 3A 20 D4 4F 4D 20 C6 45 52 |DED .Y : .OM .ER|
00000E50: 47 55 53 4F 4E 11 00 81 16 04 02 99 22 20 20 20 |GUSON......." |
00000E60: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000E70: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000E80: 11 00 A1 16 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000E90: 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 | ... 64 ........|
00000EA0: 11 00 C6 16 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000EB0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000EC0: CD D0 D5 D4 C5 D2 00 D5 16 09 02 8D 38 33 35 3A |............835:|
00000ED0: 8D 20 38 35 30 00 02 17 26 02 99 22 11 11 11 20 |. 850...&.."... |
00000EE0: 20 D4 48 49 53 20 49 53 20 41 20 44 52 49 4C 4C | .HIS IS A DRILL|
00000EF0: 20 50 52 4F 47 52 41 4D 20 49 4E 20 57 48 49 43 | PROGRAM IN WHIC|
00000F00: 48 22 00 2F 17 2B 02 99 22 11 20 20 54 48 45 20 |H"./.+..". THE |
00000F10: 55 53 45 52 20 43 41 4E 20 43 48 4F 4F 53 45 20 |USER CAN CHOOSE |
00000F20: 57 48 49 43 48 20 45 4C 45 4D 45 4E 54 53 22 00 |WHICH ELEMENTS".|
00000F30: 5C 17 30 02 99 22 11 20 20 4F 46 20 54 48 45 20 |\.0..". OF THE |
00000F40: 50 45 52 49 4F 44 49 43 20 54 41 42 4C 45 20 48 |PERIODIC TABLE H|
00000F50: 45 2F 53 48 45 20 57 4F 55 4C 44 22 00 7B 17 35 |E/SHE WOULD".{.5|
00000F60: 02 99 22 11 20 20 4C 49 4B 45 20 54 4F 20 42 45 |..". LIKE TO BE|
00000F70: 20 54 45 53 54 45 44 20 4F 4E 2E 00 84 17 44 02 | TESTED ON....D.|
00000F80: 8D 38 33 35 00 98 17 4E 02 8B 55 5A B2 31 A7 9E |.835...N..UZ.1..|
00000F90: 55 50 25 3A 89 32 31 37 00 9E 17 57 02 8E 00 C4 |UP%:.217...W....|
00000FA0: 17 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000FB0: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000FC0: 54 20 2A 2A 00 D5 17 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000FD0: 54 2C 55 4C 25 00 F5 17 5D 02 55 50 B2 30 3A 55 |T,UL%...].UP.0:U|
00000FE0: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
00000FF0: 3A 8D 38 35 30 00 FE 17 94 02 8D 38 33 35 00 12 |:.850......835..|
00001000: 18 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00001010: 31 37 00 18 18 BB 02 8E 00 3D 18 BC 02 8F 20 2A |17.......=.... *|
00001020: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00001030: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 73 18 |AD CBM4032 **.s.|
00001040: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00001050: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00001060: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00001070: 20 11 11 00 A9 18 D0 02 99 22 20 20 20 20 20 20 | ........" |
00001080: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00001090: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
000010A0: 11 11 11 11 11 11 11 11 22 00 B4 18 DA 02 9E 55 |........"......U|
000010B0: 55 AA 37 31 00 BA 18 E4 02 80 00 DF 18 1D 03 8F |U.71............|
000010C0: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
000010D0: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
000010E0: 2A 19 1E 03 99 22 93 11 11 11 42 45 46 4F 52 45 |*...."....BEFORE|
000010F0: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00001100: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00001110: 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 30 33 | ..LOAD CBM 403|
00001120: 32 20 50 52 4F 47 52 41 4D 22 00 36 19 1F 03 9E |2 PROGRAM".6....|
00001130: 31 30 39 33 3A 80 00 56 19 20 03 8F 20 2A 2A 20 |1093:..V. .. ** |
00001140: 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 |T I T L E P A |
00001150: 47 20 45 20 2A 2A 00 8A 19 22 03 99 22 93 11 1D |G E **...".."...|
00001160: 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 |.";:.UT,UU%:..(5|
00001170: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 |0003).0..53280,1|
00001180: 34 3A 97 35 33 32 38 31 2C 36 00 A0 19 24 03 81 |4:.53281,6...$..|
00001190: 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 |I.1.38:."...";:.|
000011A0: 00 B8 19 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 |...&..I.1.22:.".|
000011B0: 9D 12 A6 92 22 3B 3A 82 00 D0 19 28 03 81 49 B2 |....";:....(..I.|
000011C0: 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 |1.37:.".....";:.|
000011D0: 00 E8 19 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 |...*..I.1.22:.".|
000011E0: 9D 12 A6 92 22 3B 3A 82 00 0D 1A 2C 03 99 22 13 |....";:....,..".|
000011F0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001200: 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 2F 1A |.......... ../.|
00001210: 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00001220: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 |....... . . ...|
00001230: 50 1A 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |P.0.."..........|
00001240: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF |......... . ...|
00001250: 00 6E 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.n.2..".........|
00001260: 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 96 |........... ...|
00001270: 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.4.."...........|
00001280: 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F |...C O M M O D O|
00001290: 20 52 20 45 11 11 00 B9 1A 36 03 99 22 1D 1D 1D | R E.....6.."...|
000012A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 |............EDUC|
000012B0: 41 54 49 4F 4E 41 4C 11 11 00 D8 1A 38 03 99 22 |ATIONAL.....8.."|
000012C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012D0: 53 4F 46 54 57 41 52 45 00 F3 1A 3A 03 8F 20 2A |SOFTWARE...:.. *|
000012E0: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |* COMMODORE LOGO|
000012F0: 20 2A 2A 00 2B 1B 3B 03 99 C8 28 55 44 24 2C 32 | **.+.;...(UD$,2|
00001300: 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |4);"..........PR|
00001310: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 |ESS SPACE BAR OR|
00001320: 20 57 41 49 54 92 22 3A 49 B2 30 00 4D 1B 3C 03 | WAIT.":I.0.M.<.|
00001330: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 |.A$:.A$.." ".I.I|
00001340: AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 71 1B |.1:.I.250.828.q.|
00001350: 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A |>.T1$."":T2$."":|
00001360: 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 |T3$."":T4$."":I.|
00001370: 30 00 7A 1B 40 03 89 33 30 30 00 96 1B 43 03 8F |0.z.@..300...C..|
00001380: 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 | ** SPACE BAR PR|
00001390: 45 53 53 20 2A 2A 00 D2 1B 48 03 97 20 55 4F 2C |ESS **...H.. UO,|
000013A0: 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |0:..(UD$,24);"..|
000013B0: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000013C0: 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | BAR TO CONTINUE|
000013D0: 92 22 00 E9 1B 4C 03 A1 55 49 24 3A 8B 55 49 24 |."...L..UI$:.UI$|
000013E0: B3 B1 22 20 22 A7 38 34 34 00 EF 1B 4E 03 8E 00 |.." ".844...N...|
000013F0: 0F 1C 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 |..R.. ** PAGE DE|
00001400: 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 |SIGN ROUTINE **.|
00001410: 1B 1C 54 03 55 50 B2 55 50 AA 31 00 45 1C 57 03 |..T.UP.UP.1.E.W.|
00001420: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21|
00001430: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP|
00001440: 29 2C 31 38 29 00 74 1C 5C 03 99 22 20 2D 2D 2D |),18).t.\.." ---|
00001450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001470: 2D 2D 2D 22 00 83 1C 60 03 8B 55 48 B3 B1 30 A7 |---"...`..UH..0.|
00001480: 38 37 30 00 B7 1C 61 03 99 C8 28 55 44 24 2C 32 |870...a...(UD$,2|
00001490: 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C |4);.(UP$,7);"HEL|
000014A0: 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 |P - PRESS H <R|
000014B0: 45 54 55 52 4E 3E 22 00 C8 1C 66 03 55 48 B2 30 |ETURN>"...f.UH.0|
000014C0: 3A 99 22 13 11 22 3A 8E 00 E7 1C 6B 03 8F 20 2A |:."..":....k.. *|
000014D0: 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 |* PLEASE WAIT RE|
000014E0: 4D 41 52 4B 20 2A 2A 00 1D 1D 70 03 99 C8 28 55 |MARK **...p...(U|
000014F0: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
00001500: 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C | ONE MOMENT PL|
00001510: 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 23 1D |EASE... ".#.|
00001520: 75 03 8E 00 40 1D 84 03 8F 20 2A 2A 20 53 45 54 |u...@.... ** SET|
00001530: 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | UP VARIABLES **|
00001540: 00 8B 1D 85 03 55 58 24 B2 22 48 22 3A 86 55 51 |.....UX$."H":.UQ|
00001550: 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 |%(1000):UB.32768|
00001560: 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 |:U1.196:U2.197:U|
00001570: 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 |3.198:U4.216:UC.|
00001580: 31 36 37 3A 55 55 B2 31 30 32 34 00 C9 1D 86 03 |167:UU.1024.....|
00001590: 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A |UT.59468:UU%.12:|
000015A0: 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A |UL%.14:UP%.1146:|
000015B0: 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A |UM.32768:UO.158:|
000015C0: 97 20 35 30 30 30 33 2C 30 00 0C 1E 87 03 8B C2 |. 50003,0.......|
000015D0: 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 |(50003).0.UB.102|
000015E0: 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A |4:U1.209:U2.210:|
000015F0: 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 |U3.211:U4.214:UC|
00001600: B2 32 30 34 3A 55 55 B2 32 30 34 38 00 4B 1E 88 |.204:UU.2048.K..|
00001610: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 |...(50003).0.UT.|
00001620: 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 |53272:UU%.21:UL%|
00001630: B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 |.23:UP%.2139:UM.|
00001640: 31 30 32 34 3A 55 4F B2 31 39 38 00 6F 1E 89 03 |1024:UO.198.o...|
00001650: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001670: A1 1E 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 |....UP$." |
00001680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016A0: 22 00 EF 1E 8B 03 55 54 24 B2 22 20 C5 CC C5 CD |".....UT$." ....|
000016B0: C5 CE D4 D3 20 20 20 20 A0 A0 A0 A0 A0 A0 22 3A |.... ......":|
000016C0: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
000016D0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
000016E0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
000016F0: F5 1E 8C 03 8E 00 0F 1F 8E 03 8F 20 2A 2A 20 53 |........... ** S|
00001700: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001710: 18 1F 93 03 8D 39 30 30 00 28 1F 94 03 86 20 48 |.....900.(.... H|
00001720: 24 28 31 30 33 2C 33 29 00 2E 1F 95 03 3A 00 49 |$(103,3).....:.I|
00001730: 1F 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F |.... ** CHECK FO|
00001740: 52 20 38 30 33 32 20 2A 2A 00 67 1F 9D 03 99 22 |R 8032 **.g...."|
00001750: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE|
00001760: 44 20 53 50 41 43 45 00 7E 1F A2 03 8B C2 28 55 |D SPACE.~.....(U|
00001770: 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 97 |B.40)..96..700..|
00001780: 1F A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 |.... ** MEMORY C|
00001790: 48 45 43 4B 20 2A 2A 00 AB 1F A4 03 8B 20 B8 28 |HECK **...... .(|
000017A0: 30 29 B1 32 30 30 30 A7 39 33 37 00 D9 1F A5 03 |0).2000.937.....|
000017B0: 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 |."....THIS MACHI|
000017C0: 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 |NE DOES NOT HAVE|
000017D0: 20 45 4E 4F 55 47 48 11 22 00 FD 1F A6 03 99 22 | ENOUGH."......"|
000017E0: 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 |MEMORY TO RUN TH|
000017F0: 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 08 20 |IS PROGRAM !".. |
00001800: A7 03 9E 55 55 AA 37 31 00 0E 20 A8 03 80 00 28 |...UU.71.. ....(|
00001810: 20 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 | ..."..":..(5000|
00001820: 33 29 B2 30 A7 39 36 32 00 57 20 AC 03 8F 20 2A |3).0.962.W ... *|
00001830: 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 |* BASIC 2.0 OR |
00001840: 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 | 4.0 OR C-64 S|
00001850: 45 54 55 50 20 2A 2A 00 95 20 AD 03 97 31 30 37 |ETUP **.. ...107|
00001860: 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A |5,133:.1076,144:|
00001870: 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C |.1077,234:.1079,|
00001880: 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 |4:.1080,133:.108|
00001890: 31 2C 31 34 35 00 CB 20 AE 03 97 31 30 39 31 2C |1,145.. ...1091,|
000018A0: 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 |155:.1098,133:.1|
000018B0: 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 |099,144:.1100,23|
000018C0: 34 3A 97 31 31 30 33 2C 31 33 33 00 ED 20 AF 03 |4:.1103,133.. ..|
000018D0: 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C |.1104,145:.1105,|
000018E0: 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 04 21 |234:.1082,234..!|
000018F0: B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |....(50003)..160|
00001900: A7 39 35 35 00 33 21 B6 03 97 31 30 39 33 2C 38 |.955.3!...1093,8|
00001910: 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 |8:.1094,228:.109|
00001920: 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 |7,85:.1102,228:.|
00001930: 39 36 35 00 48 21 BB 03 8B C2 28 35 30 30 30 33 |965.H!....(50003|
00001940: 29 B3 B1 31 A7 39 39 30 00 77 21 C0 03 97 31 30 |)..1.990.w!...10|
00001950: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:|
00001960: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2|
00001970: 33 30 3A 89 39 36 35 00 B1 21 C2 03 97 32 30 39 |30:.965..!...209|
00001980: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.|
00001990: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.|
000019A0: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2|
000019B0: 31 00 ED 21 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1..!...2106,3:.2|
000019C0: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52|
000019D0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121|
000019E0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 27 22 |,49:.2122,141.'"|
000019F0: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124|
00001A00: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21|
00001A10: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:|
00001A20: 97 32 31 32 39 2C 33 00 45 22 C5 03 9E 55 55 AA |.2129,3.E"...UU.|
00001A30: 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F |48:. DISABLE STO|
00001A40: 50 20 4B 45 59 00 56 22 CA 03 8D 38 30 30 3A 8F |P KEY.V"...800:.|
00001A50: 20 54 49 54 4C 45 00 66 22 D4 03 89 33 30 30 3A | TITLE.f"...300:|
00001A60: 8F 20 4D 45 4E 55 00 97 22 DE 03 99 22 93 54 48 |. MENU.."...".TH|
00001A70: 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 |E PGM WILL NOT W|
00001A80: 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 |ORK ON THIS MACH|
00001A90: 49 4E 45 21 22 3A 80 00 CC 22 E8 03 8B 55 5A B2 |INE!":..."...UZ.|
00001AA0: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001AB0: 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 |:. ** PROGRAM ST|
00001AC0: 41 52 54 53 20 48 45 52 45 20 2A 2A 00 F8 22 E9 |ARTS HERE **..".|
00001AD0: 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 |.."..";:.:..(500|
00001AE0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00001AF0: 35 33 32 38 30 2C 31 34 00 0A 23 4C 04 99 22 93 |53280,14..#L..".|
00001B00: 22 3A 97 20 55 54 2C 55 4C 25 00 2E 23 56 04 8F |":. UT,UL%..#V..|
00001B10: 20 2A 20 57 52 49 54 54 45 4E 20 42 59 20 57 49 | * WRITTEN BY WI|
00001B20: 4C 4C 49 41 4D 20 53 59 4D 4F 4E 53 20 2A 00 52 |LLIAM SYMONS *.R|
00001B30: 23 60 04 8F 20 2A 20 20 20 20 46 45 42 52 55 41 |#`.. * FEBRUA|
00001B40: 52 59 20 38 2C 20 31 39 38 31 20 20 20 20 20 20 |RY 8, 1981 |
00001B50: 20 2A 00 76 23 6A 04 8F 20 2A 45 4C 45 4D 45 4E | *.v#j.. *ELEMEN|
00001B60: 54 27 53 20 53 59 4D 42 4F 4C 53 20 50 52 41 43 |T'S SYMBOLS PRAC|
00001B70: 54 49 43 45 20 2A 00 9A 23 74 04 8F 20 2A 2A 2A |TICE *..#t.. ***|
00001B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 23 7E 04 8F |**********..#~..|
00001BA0: 20 2A 20 20 20 20 20 20 20 54 4F 4D 20 46 45 52 | * TOM FER|
00001BB0: 47 55 53 4F 4E 20 20 20 20 20 20 20 20 2A 00 E2 |GUSON *..|
00001BC0: 23 88 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |#... ***********|
00001BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BE0: 2A 2A 00 FB 23 E2 04 55 47 24 B2 22 22 3A 8D 20 |**..#..UG$."":. |
00001BF0: 38 35 30 3A 99 22 13 11 11 11 22 00 31 24 EC 04 |850:."....".1$..|
00001C00: 99 22 20 20 D7 48 49 43 48 20 45 4C 45 4D 45 4E |." .HICH ELEMEN|
00001C10: 54 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |TS DO YOU WANT T|
00001C20: 4F 22 3A 99 22 20 20 50 52 41 43 54 49 43 45 3F |O":." PRACTICE?|
00001C30: 22 00 3D 24 F6 04 59 B2 30 3A 58 B2 30 00 6E 24 |".=$..Y.0:X.0.n$|
00001C40: 00 05 99 22 20 20 11 C5 4E 54 45 52 20 41 54 4F |..." ..NTER ATO|
00001C50: 4D 49 43 20 4E 55 4D 42 45 52 20 4F 46 20 54 48 |MIC NUMBER OF TH|
00001C60: 45 20 31 53 54 20 45 4C 45 4D 45 4E 54 22 00 A2 |E 1ST ELEMENT"..|
00001C70: 24 0A 05 55 4C B2 33 3A 55 53 24 B2 22 30 31 32 |$..UL.3:US$."012|
00001C80: 33 34 35 36 37 38 39 22 3A 99 22 20 20 20 20 20 |3456789":." |
00001C90: 9D 9D 9D 22 3B 3A 8D 33 35 3A 41 B2 C5 28 55 52 |...";:.35:A..(UR|
00001CA0: 24 29 00 C1 24 0F 05 8B 20 41 B1 31 30 33 B0 41 |$)..$... A.103.A|
00001CB0: B3 31 A7 99 22 91 91 91 91 91 22 3A 89 31 32 38 |.1..".....":.128|
00001CC0: 30 00 CB 24 12 05 99 22 11 11 22 00 F8 24 14 05 |0..$...".."..$..|
00001CD0: 99 22 20 20 C5 4E 54 45 52 20 41 54 4F 4D 49 43 |." .NTER ATOMIC|
00001CE0: 20 4E 55 4D 42 45 52 20 4F 46 20 4C 41 53 54 20 | NUMBER OF LAST |
00001CF0: 45 4C 45 4D 45 4E 54 22 00 2C 25 1E 05 55 4C B2 |ELEMENT".,%..UL.|
00001D00: 33 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |3:US$."012345678|
00001D10: 39 22 3A 99 22 20 20 20 20 20 9D 9D 9D 22 3B 3A |9":." ...";:|
00001D20: 8D 33 35 3A 42 B2 C5 28 55 52 24 29 00 49 25 23 |.35:B..(UR$).I%#|
00001D30: 05 8B 20 42 B1 31 30 33 B0 42 B3 41 A7 99 22 91 |.. B.103.B.A..".|
00001D40: 91 91 22 3A 89 31 33 30 30 00 59 25 28 05 59 59 |..":.1300.Y%(.YY|
00001D50: B2 41 3A 8D 20 34 30 30 30 00 6E 25 32 05 83 20 |.A:. 4000.n%2.. |
00001D60: 31 2C 48 59 44 52 4F 47 45 4E 2C 22 C8 22 00 82 |1,HYDROGEN,"."..|
00001D70: 25 3C 05 83 20 32 2C 48 45 4C 49 55 4D 2C 22 C8 |%<.. 2,HELIUM,".|
00001D80: 45 22 00 97 25 46 05 83 20 33 2C 4C 49 54 48 49 |E"..%F.. 3,LITHI|
00001D90: 55 4D 2C 22 CC 49 22 00 AE 25 50 05 83 20 34 2C |UM,".I"..%P.. 4,|
00001DA0: 42 45 52 59 4C 4C 49 55 4D 2C 22 C2 45 22 00 C0 |BERYLLIUM,".E"..|
00001DB0: 25 5A 05 83 20 35 2C 42 4F 52 4F 4E 2C 22 C2 22 |%Z.. 5,BORON,"."|
00001DC0: 00 D3 25 64 05 83 20 36 2C 43 41 52 42 4F 4E 2C |..%d.. 6,CARBON,|
00001DD0: 22 C3 22 00 E8 25 6E 05 83 20 37 2C 4E 49 54 52 |"."..%n.. 7,NITR|
00001DE0: 4F 47 45 4E 2C 22 CE 22 00 FB 25 78 05 83 20 38 |OGEN,"."..%x.. 8|
00001DF0: 2C 4F 58 59 47 45 4E 2C 22 CF 22 00 10 26 82 05 |,OXYGEN,"."..&..|
00001E00: 83 20 39 2C 46 4C 55 4F 52 49 4E 45 2C 22 C6 22 |. 9,FLUORINE,"."|
00001E10: 00 23 26 8C 05 83 20 31 30 2C 4E 45 4F 4E 2C 22 |.#&... 10,NEON,"|
00001E20: CE 45 22 00 38 26 96 05 83 20 31 31 2C 53 4F 44 |.E".8&... 11,SOD|
00001E30: 49 55 4D 2C 22 CE 41 22 00 50 26 A0 05 83 20 31 |IUM,".A".P&... 1|
00001E40: 32 2C 4D 41 47 4E 45 53 49 55 4D 2C 22 CD 47 22 |2,MAGNESIUM,".G"|
00001E50: 00 67 26 AA 05 83 20 31 33 2C 41 4C 55 4D 49 4E |.g&... 13,ALUMIN|
00001E60: 55 4D 2C 22 C1 4C 22 00 7D 26 B4 05 83 20 31 34 |UM,".L".}&... 14|
00001E70: 2C 53 49 4C 49 43 4F 4E 2C 22 D3 49 22 00 95 26 |,SILICON,".I"..&|
00001E80: BE 05 83 20 31 35 2C 50 48 4F 53 50 48 4F 52 55 |... 15,PHOSPHORU|
00001E90: 53 2C 22 D0 22 00 AA 26 C8 05 83 20 31 36 2C 53 |S,"."..&... 16,S|
00001EA0: 55 4C 50 48 55 52 2C 22 D3 22 00 C1 26 D2 05 83 |ULPHUR,"."..&...|
00001EB0: 20 31 37 2C 43 48 4C 4F 52 49 4E 45 2C 22 C3 4C | 17,CHLORINE,".L|
00001EC0: 22 00 D5 26 DC 05 83 20 31 38 2C 41 52 47 4F 4E |"..&... 18,ARGON|
00001ED0: 2C 22 C1 52 22 00 EC 26 E6 05 83 20 31 39 2C 50 |,".R"..&... 19,P|
00001EE0: 4F 54 41 53 53 49 55 4D 2C 22 CB 22 00 02 27 F0 |OTASSIUM,"."..'.|
00001EF0: 05 83 20 32 30 2C 43 41 4C 43 49 55 4D 2C 22 C3 |.. 20,CALCIUM,".|
00001F00: 41 22 00 19 27 FA 05 83 20 32 31 2C 53 43 41 4E |A"..'... 21,SCAN|
00001F10: 44 49 55 4D 2C 22 D3 43 22 00 30 27 04 06 83 20 |DIUM,".C".0'... |
00001F20: 32 32 2C 54 49 54 41 4E 49 55 4D 2C 22 D4 49 22 |22,TITANIUM,".I"|
00001F30: 00 46 27 0E 06 83 20 32 33 2C 56 41 4E 41 44 49 |.F'... 23,VANADI|
00001F40: 55 4D 2C 22 D6 22 00 5D 27 18 06 83 20 32 34 2C |UM,".".]'... 24,|
00001F50: 43 48 52 4F 4D 49 55 4D 2C 22 C3 52 22 00 75 27 |CHROMIUM,".R".u'|
00001F60: 22 06 83 20 32 35 2C 4D 41 4E 47 41 4E 45 53 45 |".. 25,MANGANESE|
00001F70: 2C 22 CD 4E 22 00 88 27 2C 06 83 20 32 36 2C 49 |,".N"..',.. 26,I|
00001F80: 52 4F 4E 2C 22 C6 45 22 00 9D 27 36 06 83 20 32 |RON,".E"..'6.. 2|
00001F90: 37 2C 43 4F 42 41 4C 54 2C 22 C3 4F 22 00 B2 27 |7,COBALT,".O"..'|
00001FA0: 40 06 83 20 32 38 2C 4E 49 43 4B 45 4C 2C 22 CE |@.. 28,NICKEL,".|
00001FB0: 49 22 00 C7 27 4A 06 83 20 32 39 2C 43 4F 50 50 |I"..'J.. 29,COPP|
00001FC0: 45 52 2C 22 C3 55 22 00 DA 27 54 06 83 20 33 30 |ER,".U"..'T.. 30|
00001FD0: 2C 5A 49 4E 43 2C 22 DA 4E 22 00 F0 27 5E 06 83 |,ZINC,".N"..'^..|
00001FE0: 20 33 31 2C 47 41 4C 4C 49 55 4D 2C 22 C7 41 22 | 31,GALLIUM,".A"|
00001FF0: 00 08 28 68 06 83 20 33 32 2C 47 45 52 4D 41 4E |..(h.. 32,GERMAN|
00002000: 49 55 4D 2C 22 C7 45 22 00 1E 28 72 06 83 20 33 |IUM,".E"..(r.. 3|
00002010: 33 2C 41 52 53 45 4E 49 43 2C 22 C1 53 22 00 35 |3,ARSENIC,".S".5|
00002020: 28 7C 06 83 20 33 34 2C 53 45 4C 45 4E 49 55 4D |(|.. 34,SELENIUM|
00002030: 2C 22 D3 45 22 00 4B 28 86 06 83 20 33 35 2C 42 |,".E".K(... 35,B|
00002040: 52 4F 4D 49 4E 45 2C 22 C2 52 22 00 61 28 90 06 |ROMINE,".R".a(..|
00002050: 83 20 33 36 2C 4B 52 59 50 54 4F 4E 2C 22 CB 52 |. 36,KRYPTON,".R|
00002060: 22 00 78 28 9A 06 83 20 33 37 2C 52 55 42 49 44 |".x(... 37,RUBID|
00002070: 49 55 4D 2C 22 D2 42 22 00 90 28 A4 06 83 20 33 |IUM,".B"..(... 3|
00002080: 38 2C 53 54 52 4F 4E 54 49 55 4D 2C 22 D3 52 22 |8,STRONTIUM,".R"|
00002090: 00 A5 28 AE 06 83 20 33 39 2C 59 54 54 52 49 55 |..(... 39,YTTRIU|
000020A0: 4D 2C 22 D9 22 00 BD 28 B8 06 83 20 34 30 2C 5A |M,"."..(... 40,Z|
000020B0: 49 52 43 4F 4E 49 55 4D 2C 22 DA 52 22 00 D3 28 |IRCONIUM,".R"..(|
000020C0: C2 06 83 20 34 31 2C 4E 49 4F 42 49 55 4D 2C 22 |... 41,NIOBIUM,"|
000020D0: CE 42 22 00 EC 28 CC 06 83 20 34 32 2C 4D 4F 4C |.B"..(... 42,MOL|
000020E0: 59 42 44 45 4E 55 4D 2C 22 CD 4F 22 00 05 29 D6 |YBDENUM,".O"..).|
000020F0: 06 83 20 34 33 2C 54 45 43 48 4E 45 54 49 55 4D |.. 43,TECHNETIUM|
00002100: 2C 22 D4 43 22 00 1D 29 E0 06 83 20 34 34 2C 52 |,".C"..)... 44,R|
00002110: 55 54 48 45 4E 49 55 4D 2C 22 D2 55 22 00 33 29 |UTHENIUM,".U".3)|
00002120: EA 06 83 20 34 35 2C 52 48 4F 44 49 55 4D 2C 22 |... 45,RHODIUM,"|
00002130: D2 48 22 00 4B 29 F4 06 83 20 34 36 2C 50 41 4C |.H".K)... 46,PAL|
00002140: 4C 41 44 49 55 4D 2C 22 D0 44 22 00 60 29 FE 06 |LADIUM,".D".`)..|
00002150: 83 20 34 37 2C 53 49 4C 56 45 52 2C 22 C1 47 22 |. 47,SILVER,".G"|
00002160: 00 76 29 08 07 83 20 34 38 2C 43 41 44 4D 49 55 |.v)... 48,CADMIU|
00002170: 4D 2C 22 C3 44 22 00 8B 29 12 07 83 20 34 39 2C |M,".D"..)... 49,|
00002180: 49 4E 44 49 55 4D 2C 22 C9 4E 22 00 9D 29 1C 07 |INDIUM,".N"..)..|
00002190: 83 20 35 30 2C 54 49 4E 2C 22 D3 4E 22 00 B4 29 |. 50,TIN,".N"..)|
000021A0: 26 07 83 20 35 31 2C 41 4E 54 49 4D 4F 4E 59 2C |&.. 51,ANTIMONY,|
000021B0: 22 D3 42 22 00 CC 29 30 07 83 20 35 32 2C 54 45 |".B"..)0.. 52,TE|
000021C0: 4C 4C 55 52 49 55 4D 2C 22 D4 45 22 00 E0 29 3A |LLURIUM,".E"..):|
000021D0: 07 83 20 35 33 2C 49 4F 44 49 4E 45 2C 22 C9 22 |.. 53,IODINE,"."|
000021E0: 00 F4 29 44 07 83 20 35 34 2C 58 45 4E 4F 4E 2C |..)D.. 54,XENON,|
000021F0: 22 D8 45 22 00 09 2A 4E 07 83 20 35 35 2C 43 45 |".E"..*N.. 55,CE|
00002200: 53 49 55 4D 2C 22 C3 53 22 00 1E 2A 58 07 83 20 |SIUM,".S"..*X.. |
00002210: 35 36 2C 42 41 52 49 55 4D 2C 22 C2 41 22 00 36 |56,BARIUM,".A".6|
00002220: 2A 62 07 83 20 35 37 2C 4C 41 4E 54 48 41 4E 55 |*b.. 57,LANTHANU|
00002230: 4D 2C 22 CC 41 22 00 4B 2A 6C 07 83 20 35 38 2C |M,".A".K*l.. 58,|
00002240: 43 45 52 49 55 4D 2C 22 C3 45 22 00 66 2A 76 07 |CERIUM,".E".f*v.|
00002250: 83 20 35 39 2C 50 52 41 53 45 4F 44 59 4D 49 55 |. 59,PRASEODYMIU|
00002260: 4D 2C 22 D0 52 22 00 7E 2A 80 07 83 20 36 30 2C |M,".R".~*... 60,|
00002270: 4E 45 4F 44 59 4D 49 55 4D 2C 22 CE 44 22 00 97 |NEODYMIUM,".D"..|
00002280: 2A 8A 07 83 20 36 31 2C 50 52 4F 4D 45 54 48 49 |*... 61,PROMETHI|
00002290: 55 4D 2C 22 D0 4D 22 00 AE 2A 94 07 83 20 36 32 |UM,".M"..*... 62|
000022A0: 2C 53 41 4D 41 52 49 55 4D 2C 22 D3 4D 22 00 C5 |,SAMARIUM,".M"..|
000022B0: 2A 9E 07 83 20 36 33 2C 45 55 52 4F 50 49 55 4D |*... 63,EUROPIUM|
000022C0: 2C 22 C5 55 22 00 DE 2A A8 07 83 20 36 34 2C 47 |,".U"..*... 64,G|
000022D0: 41 44 4F 4C 49 4E 49 55 4D 2C 22 C7 44 22 00 F4 |ADOLINIUM,".D"..|
000022E0: 2A B2 07 83 20 36 35 2C 54 45 52 42 49 55 4D 2C |*... 65,TERBIUM,|
000022F0: 22 D4 42 22 00 0E 2B BC 07 83 20 36 36 2C 20 44 |".B"..+... 66, D|
00002300: 59 53 50 52 4F 53 49 55 4D 2C 22 C4 59 22 00 24 |YSPROSIUM,".Y".$|
00002310: 2B C6 07 83 20 36 37 2C 48 4F 4C 4D 49 55 4D 2C |+... 67,HOLMIUM,|
00002320: 22 C8 4F 22 00 39 2B D0 07 83 20 36 38 2C 45 52 |".O".9+... 68,ER|
00002330: 42 49 55 4D 2C 22 C5 52 22 00 4F 2B DA 07 83 20 |BIUM,".R".O+... |
00002340: 36 39 2C 54 48 55 4C 49 55 4D 2C 22 D4 4D 22 00 |69,THULIUM,".M".|
00002350: 67 2B E4 07 83 20 37 30 2C 59 54 54 45 52 42 49 |g+... 70,YTTERBI|
00002360: 55 4D 2C 22 D9 42 22 00 7E 2B EE 07 83 20 37 31 |UM,".B".~+... 71|
00002370: 2C 4C 55 54 45 54 49 55 4D 2C 22 CC 55 22 00 94 |,LUTETIUM,".U"..|
00002380: 2B F8 07 83 20 37 32 2C 48 41 46 4E 49 55 4D 2C |+... 72,HAFNIUM,|
00002390: 22 C8 46 22 00 AB 2B 02 08 83 20 37 33 2C 54 41 |".F"..+... 73,TA|
000023A0: 4E 54 41 4C 55 4D 2C 22 D4 41 22 00 C1 2B 0C 08 |NTALUM,".A"..+..|
000023B0: 83 20 37 34 2C 54 55 4E 47 53 54 45 4E 2C 22 D7 |. 74,TUNGSTEN,".|
000023C0: 22 00 D7 2B 16 08 83 20 37 35 2C 52 48 45 4E 49 |"..+... 75,RHENI|
000023D0: 55 4D 2C 22 D2 45 22 00 EC 2B 20 08 83 20 37 36 |UM,".E"..+ .. 76|
000023E0: 2C 4F 53 4D 49 55 4D 2C 22 CF 53 22 00 02 2C 2A |,OSMIUM,".S"..,*|
000023F0: 08 83 20 37 37 2C 49 52 49 44 49 55 4D 2C 22 C9 |.. 77,IRIDIUM,".|
00002400: 52 22 00 19 2C 34 08 83 20 37 38 2C 50 4C 41 54 |R"..,4.. 78,PLAT|
00002410: 49 4E 55 4D 2C 22 D0 54 22 00 2C 2C 3E 08 83 20 |INUM,".T".,,>.. |
00002420: 37 39 2C 47 4F 4C 44 2C 22 C1 55 22 00 42 2C 48 |79,GOLD,".U".B,H|
00002430: 08 83 20 38 30 2C 4D 45 52 43 55 52 59 2C 22 C8 |.. 80,MERCURY,".|
00002440: 47 22 00 58 2C 52 08 83 20 38 31 2C 54 48 41 4C |G".X,R.. 81,THAL|
00002450: 49 55 4D 2C 22 D4 48 22 00 6B 2C 5C 08 83 20 38 |IUM,".H".k,\.. 8|
00002460: 32 2C 4C 45 41 44 2C 22 D0 42 22 00 81 2C 66 08 |2,LEAD,".B"..,f.|
00002470: 83 20 38 33 2C 42 49 53 4D 55 54 48 2C 22 C2 49 |. 83,BISMUTH,".I|
00002480: 22 00 98 2C 70 08 83 20 38 34 2C 50 4F 4C 4F 4E |"..,p.. 84,POLON|
00002490: 49 55 4D 2C 22 D0 4F 22 00 AF 2C 7A 08 83 20 38 |IUM,".O"..,z.. 8|
000024A0: 35 2C 41 53 54 49 54 49 4E 45 2C 22 C1 54 22 00 |5,ASTITINE,".T".|
000024B0: C3 2C 84 08 83 20 38 36 2C 52 41 44 4F 4E 2C 22 |.,... 86,RADON,"|
000024C0: D2 4E 22 00 DA 2C 8E 08 83 20 38 37 2C 46 52 41 |.N"..,... 87,FRA|
000024D0: 4E 43 49 55 4D 2C 22 C6 52 22 00 EF 2C 98 08 83 |NCIUM,".R"..,...|
000024E0: 20 38 38 2C 52 41 44 49 55 4D 2C 22 D2 41 22 00 | 88,RADIUM,".A".|
000024F0: 06 2D A2 08 83 20 38 39 2C 41 43 54 49 4E 49 55 |.-... 89,ACTINIU|
00002500: 4D 2C 22 C1 43 22 00 1C 2D AC 08 83 20 39 30 2C |M,".C"..-... 90,|
00002510: 54 48 4F 52 49 55 4D 2C 22 D4 48 22 00 37 2D B6 |THORIUM,".H".7-.|
00002520: 08 83 20 39 31 2C 50 52 4F 54 41 43 54 49 4E 49 |.. 91,PROTACTINI|
00002530: 55 4D 2C 22 D0 41 22 00 4C 2D C0 08 83 20 39 32 |UM,".A".L-... 92|
00002540: 2C 55 52 41 4E 49 55 4D 2C 22 D5 22 00 64 2D CA |,URANIUM,".".d-.|
00002550: 08 83 20 39 33 2C 4E 45 50 54 55 4E 49 55 4D 2C |.. 93,NEPTUNIUM,|
00002560: 22 CE 50 22 00 7C 2D D4 08 83 20 39 34 2C 50 4C |".P".|-... 94,PL|
00002570: 55 54 4F 4E 49 55 4D 2C 22 D0 55 22 00 94 2D DE |UTONIUM,".U"..-.|
00002580: 08 83 20 39 35 2C 41 4D 45 52 49 43 49 55 4D 2C |.. 95,AMERICIUM,|
00002590: 22 C1 4D 22 00 A9 2D E8 08 83 20 39 36 2C 43 55 |".M"..-... 96,CU|
000025A0: 52 49 55 4D 2C 22 C3 4D 22 00 C1 2D F2 08 83 20 |RIUM,".M"..-... |
000025B0: 39 37 2C 42 45 52 4B 45 4C 49 55 4D 2C 22 C2 4B |97,BERKELIUM,".K|
000025C0: 22 00 DB 2D FC 08 83 20 39 38 2C 43 41 4C 49 46 |"..-... 98,CALIF|
000025D0: 4F 52 4E 49 55 4D 2C 22 C3 46 22 00 F5 2D 06 09 |ORNIUM,".F"..-..|
000025E0: 83 20 39 39 2C 45 49 4E 53 54 45 49 4E 49 55 4D |. 99,EINSTEINIUM|
000025F0: 2C 22 C5 53 22 00 0C 2E 10 09 83 20 31 30 30 2C |,".S"...... 100,|
00002600: 46 45 52 4D 49 55 4D 2C 22 C6 4D 22 00 27 2E 1A |FERMIUM,".M".'..|
00002610: 09 83 20 31 30 31 2C 4D 45 4E 44 45 4C 45 56 49 |.. 101,MENDELEVI|
00002620: 55 4D 2C 22 CD 44 22 00 3F 2E 24 09 83 20 31 30 |UM,".D".?.$.. 10|
00002630: 32 2C 4E 4F 42 45 4C 49 55 4D 2C 22 CE 4F 22 00 |2,NOBELIUM,".O".|
00002640: 59 2E 2E 09 83 20 31 30 33 2C 4C 41 57 52 45 4E |Y.... 103,LAWREN|
00002650: 43 49 55 4D 2C 22 CC 57 22 00 68 2E 30 09 81 47 |CIUM,".W".h.0..G|
00002660: 47 B2 59 59 20 A4 20 42 00 7B 2E 33 09 43 B2 20 |G.YY . B.{.3.C. |
00002670: C5 28 48 24 28 47 47 2C 31 29 29 00 8B 2E 34 09 |.(H$(GG,1))...4.|
00002680: 41 24 B2 48 24 28 47 47 2C 32 29 00 9B 2E 35 09 |A$.H$(GG,2)...5.|
00002690: 42 24 B2 48 24 28 47 47 2C 33 29 00 A4 2E 3E 09 |B$.H$(GG,3)...>.|
000026A0: 8D 38 33 35 00 B7 2E 42 09 55 50 B2 41 AB 59 59 |.835...B.UP.A.YY|
000026B0: AA 31 3A 8D 38 35 30 00 C3 2E 4C 09 99 22 13 11 |.1:.850...L.."..|
000026C0: 11 11 22 00 ED 2E 56 09 99 22 20 20 D7 48 41 54 |.."...V.." .HAT|
000026D0: 20 49 53 20 54 48 45 20 53 59 4D 42 4F 4C 20 46 | IS THE SYMBOL F|
000026E0: 4F 52 20 22 3B 41 24 22 20 3F 20 22 3B 00 08 2F |OR ";A$" ? ";../|
000026F0: 60 09 55 4C B2 32 3A 55 53 24 B2 22 22 3A 8D 33 |`.UL.2:US$."":.3|
00002700: 35 3A 43 24 B2 55 52 24 00 1B 2F 6A 09 8B 20 43 |5:C$.UR$../j.. C|
00002710: 24 B2 42 24 20 A7 20 32 34 35 30 00 26 2F 74 09 |$.B$ . 2450.&/t.|
00002720: 8D 20 32 37 36 30 00 37 2F 7E 09 8B 20 41 B2 42 |. 2760.7/~.. A.B|
00002730: 20 A7 20 33 30 33 30 00 46 2F 88 09 41 B2 41 AA | . 3030.F/..A.A.|
00002740: 31 3A 82 20 47 47 00 51 2F 92 09 8D 20 32 34 38 |1:. GG.Q/... 248|
00002750: 30 00 62 2F 9C 09 8B 20 41 B2 42 20 A7 20 33 30 |0.b/... A.B . 30|
00002760: 33 30 00 6D 2F A6 09 89 20 32 34 34 30 00 77 2F |30.m/... 2440.w/|
00002770: B0 09 59 B2 59 AA 31 00 8D 2F BA 09 81 20 54 54 |..Y.Y.1../... TT|
00002780: B2 31 20 A4 20 35 3A 99 3A 82 20 54 54 00 9F 2F |.1 . 5:.:. TT../|
00002790: C4 09 54 B2 B5 28 BB 28 31 29 AC 37 AA 31 29 00 |..T..(.(1).7.1).|
000027A0: B0 2F CE 09 8B 20 54 B2 31 20 A7 20 32 35 38 30 |./... T.1 . 2580|
000027B0: 00 C1 2F D8 09 8B 20 54 B2 32 20 A7 20 32 36 30 |../... T.2 . 260|
000027C0: 30 00 D2 2F E2 09 8B 20 54 B2 33 20 A7 20 32 36 |0../... T.3 . 26|
000027D0: 32 30 00 E3 2F EC 09 8B 20 54 B2 34 20 A7 20 32 |20../... T.4 . 2|
000027E0: 36 34 30 00 F4 2F F6 09 8B 20 54 B2 35 20 A7 20 |640../... T.5 . |
000027F0: 32 36 36 30 00 05 30 00 0A 8B 20 54 B2 36 20 A7 |2660..0... T.6 .|
00002800: 20 32 36 38 30 00 16 30 0A 0A 8B 20 54 B2 37 20 | 2680..0... T.7 |
00002810: A7 20 32 37 30 30 00 37 30 14 0A 99 20 A3 31 30 |. 2700.70... .10|
00002820: 29 2C 22 C1 4C 4C 20 20 52 49 47 48 54 54 54 54 |),".LL RIGHTTTT|
00002830: 54 21 21 21 21 21 22 00 42 30 1E 0A 89 20 32 37 |T!!!!!".B0... 27|
00002840: 32 30 00 5B 30 28 0A 99 20 A3 31 30 29 2C 20 22 |20.[0(.. .10), "|
00002850: D7 41 59 20 54 4F 20 47 4F 21 22 00 66 30 32 0A |.AY TO GO!".f02.|
00002860: 89 20 32 37 32 30 00 82 30 3C 0A 99 20 A3 31 30 |. 2720..0<.. .10|
00002870: 29 2C 20 20 22 C7 4F 54 20 54 48 41 54 20 4F 4E |), ".OT THAT ON|
00002880: 45 22 00 8D 30 46 0A 89 20 32 37 32 30 00 A1 30 |E"..0F.. 2720..0|
00002890: 50 0A 99 20 A3 31 30 29 2C 20 20 22 59 45 41 48 |P.. .10), "YEAH|
000028A0: 22 00 AC 30 5A 0A 89 20 32 37 32 30 00 BC 30 64 |"..0Z.. 2720..0d|
000028B0: 0A 99 20 A3 31 30 29 2C 22 4F 4B 22 00 C7 30 6E |.. .10),"OK"..0n|
000028C0: 0A 89 20 32 37 32 30 00 E2 30 78 0A 99 20 A3 31 |.. 2720..0x.. .1|
000028D0: 30 29 2C 20 20 22 CE 49 43 45 20 47 4F 49 4E 47 |0), ".ICE GOING|
000028E0: 21 22 00 ED 30 82 0A 89 20 32 37 32 30 00 02 31 |!"..0... 2720..1|
000028F0: 8C 0A 99 22 20 20 CC 55 43 4B 59 20 47 55 45 53 |..." .UCKY GUES|
00002900: 53 22 00 0D 31 96 0A 89 20 32 37 32 30 00 23 31 |S"..1... 2720.#1|
00002910: A0 0A 81 20 52 52 B2 31 20 A4 20 35 3A 99 3A 82 |... RR.1 . 5:.:.|
00002920: 20 52 52 00 53 31 AA 0A 99 22 20 20 D9 4F 55 20 | RR.S1..." .OU |
00002930: 48 41 56 45 20 22 3B 59 3B 22 20 43 4F 52 52 45 |HAVE ";Y;" CORRE|
00002940: 43 54 20 41 4E 44 20 22 3B 58 3B 22 20 57 52 4F |CT AND ";X;" WRO|
00002950: 4E 47 22 00 59 31 BE 0A 8E 00 63 31 C8 0A 58 B2 |NG".Y1....c1..X.|
00002960: 58 AA 31 00 79 31 D2 0A 81 20 4D 4D B2 31 20 A4 |X.1.y1... MM.1 .|
00002970: 20 35 3A 99 3A 82 20 4D 4D 00 8B 31 DC 0A 53 B2 | 5:.:. MM..1..S.|
00002980: B5 28 BB 28 31 29 AC 37 AA 31 29 00 9C 31 E6 0A |.(.(1).7.1)..1..|
00002990: 8B 20 53 B2 31 20 A7 20 32 38 36 30 00 AD 31 F0 |. S.1 . 2860..1.|
000029A0: 0A 8B 20 53 B2 32 20 A7 20 32 38 38 30 00 BE 31 |.. S.2 . 2880..1|
000029B0: FA 0A 8B 20 53 B2 33 20 A7 20 32 39 30 30 00 CF |... S.3 . 2900..|
000029C0: 31 04 0B 8B 20 53 B2 34 20 A7 20 32 39 32 30 00 |1... S.4 . 2920.|
000029D0: E0 31 0E 0B 8B 20 53 B2 35 20 A7 20 32 39 34 30 |.1... S.5 . 2940|
000029E0: 00 F1 31 18 0B 8B 20 53 B2 36 20 A7 20 32 39 36 |..1... S.6 . 296|
000029F0: 30 00 02 32 22 0B 8B 20 53 B2 37 20 A7 20 32 39 |0..2".. S.7 . 29|
00002A00: 38 30 00 38 32 2C 0B 99 20 20 20 20 22 20 20 C9 |80.82,.. " .|
00002A10: 4E 43 4F 52 52 45 43 54 2C 20 54 52 59 20 54 48 |NCORRECT, TRY TH|
00002A20: 45 20 4E 45 58 54 20 4F 4E 45 2C 20 49 54 27 53 |E NEXT ONE, IT'S|
00002A30: 20 22 3B 22 12 22 42 24 00 43 32 36 0B 89 20 32 | ";"."B$.C26.. 2|
00002A40: 39 39 30 00 74 32 40 0B 99 20 22 20 20 D4 48 41 |990.t2@.. " .HA|
00002A50: 54 20 57 41 53 20 41 20 54 45 52 52 49 42 4C 45 |T WAS A TERRIBLE|
00002A60: 20 41 4E 53 57 45 52 2C 49 54 27 53 20 22 3B 22 | ANSWER,IT'S ";"|
00002A70: 12 22 42 24 00 7F 32 4A 0B 89 20 32 39 39 30 00 |."B$..2J.. 2990.|
00002A80: 9E 32 54 0B 99 20 A3 31 30 29 2C 22 D7 52 4F 4E |.2T.. .10),".RON|
00002A90: 47 2C 20 49 54 53 20 22 3B 22 12 22 42 24 00 A9 |G, ITS ";"."B$..|
00002AA0: 32 5E 0B 89 20 32 39 39 30 00 C7 32 68 0B 99 20 |2^.. 2990..2h.. |
00002AB0: A3 31 30 29 2C 22 CE 4F 21 2C 20 49 54 27 53 20 |.10),".O!, IT'S |
00002AC0: 22 3B 22 12 22 42 24 00 D2 32 72 0B 89 20 32 39 |";"."B$..2r.. 29|
00002AD0: 39 30 00 FA 32 7C 0B 99 20 A3 38 29 2C 20 20 22 |90..2|.. .8), "|
00002AE0: CE 4F 4F 20 57 41 59 59 59 21 21 21 2C 20 49 54 |.OO WAYYY!!!, IT|
00002AF0: 27 53 20 22 3B 22 12 22 42 24 00 05 33 86 0B 89 |'S ";"."B$..3...|
00002B00: 20 32 39 39 30 00 2E 33 90 0B 99 22 20 D7 52 4F | 2990..3..." .RO|
00002B10: 4E 47 2C 20 57 52 4F 4E 47 2C 20 57 52 4F 4E 47 |NG, WRONG, WRONG|
00002B20: 2C 20 49 54 27 53 20 22 3B 22 12 22 42 24 00 39 |, IT'S ";"."B$.9|
00002B30: 33 9A 0B 89 20 32 39 39 30 00 5D 33 A4 0B 99 20 |3... 2990.]3... |
00002B40: A3 38 29 2C 22 C2 41 44 20 41 4E 53 57 45 52 2C |.8),".AD ANSWER,|
00002B50: 20 49 54 27 53 20 22 3B 22 12 22 42 24 00 74 33 | IT'S ";"."B$.t3|
00002B60: AE 0B 81 20 5A 5A B2 31 20 A4 20 35 20 3A 99 3A |... ZZ.1 . 5 :.:|
00002B70: 82 20 5A 5A 00 A3 33 B8 0B 99 22 20 20 D9 4F 55 |. ZZ..3..." .OU|
00002B80: 20 48 41 56 45 20 22 3B 59 3B 22 43 4F 52 52 45 | HAVE ";Y;"CORRE|
00002B90: 43 54 20 41 4E 44 20 22 3B 58 3B 22 20 57 52 4F |CT AND ";X;" WRO|
00002BA0: 4E 47 22 00 A9 33 CC 0B 8E 00 C0 33 D6 0B 8D 38 |NG"..3.....3...8|
00002BB0: 33 35 3A 8D 20 38 35 30 3A 99 22 13 11 11 11 22 |35:. 850:."...."|
00002BC0: 00 0B 34 EA 0B 99 22 20 20 D9 4F 55 20 53 43 4F |..4..." .OU SCO|
00002BD0: 52 45 44 20 22 3B 59 3B 22 20 4F 55 54 20 4F 46 |RED ";Y;" OUT OF|
00002BE0: 22 3B 58 AA 59 3B 22 20 57 48 49 43 48 20 49 53 |";X.Y;" WHICH IS|
00002BF0: 20 22 3A 99 22 20 20 22 3B B5 28 59 AD 28 58 AA | ":." ";.(Y.(X.|
00002C00: 59 29 AC 31 30 30 29 3B 22 25 22 00 14 34 FE 0B |Y).100);"%"..4..|
00002C10: 8D 38 33 35 00 1A 34 1C 0C 8E 00 2F 34 A0 0F 8F |.835..4..../4...|
00002C20: 20 52 45 41 44 45 52 20 52 4F 55 54 49 4E 45 00 | READER ROUTINE.|
00002C30: 3B 34 AA 0F 8D 20 38 37 35 3A 8C 00 4C 34 B4 0F |;4... 875:..L4..|
00002C40: 81 20 41 31 B2 31 20 A4 20 31 30 33 00 5B 34 BE |. A1.1 . 103.[4.|
00002C50: 0F 81 20 41 32 B2 31 20 A4 20 33 00 6B 34 C8 0F |.. A2.1 . 3.k4..|
00002C60: 87 20 48 24 28 41 31 2C 41 32 29 00 74 34 D2 0F |. H$(A1,A2).t4..|
00002C70: 82 20 41 32 00 7D 34 DC 0F 82 20 41 31 00 83 34 |. A2.}4... A1..4|
00002C80: E6 0F 8E 00 00 00 |...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...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 ELEMENTS ".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.T. .." .T
HIS PROGRAM WILL HELP YOU LEARN THE"....
.." .CORRECT SYMBOLS FOR THE 104 KNOWN".
....." .ELEMENTS.."......" ON THE SCREEN
THERE WILL BE PRINTED THE"......" NAME
OF AN ELEMENT. YOU ARE TO TYPE IN".>....
" .THE SYMBOL FOR THAT ELEMENT. THE ".J
...." .RESULTS WILL THEN BE GIVEN TO YOU
."......" .TO RETURN TO MENU, TYPE 'H' R
ETURN.".F...." .REMEMBER, THE FIRST LET
TER IS ALWAYS"......" .CAPITALIZED. "..
....835......UZ.1..UP%:.217......."....
** TEACHER INSTRUCTIONS **.R....".":.UT,
UL%:.B(50003).0..53281,2:.53280,10.S...U
P.0:UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".J...."
THIS PROGRAM IS IN THE PUBLIC."......
" DOMAIN. IF THIS IS NOT THE CASE."..
...." PLEASE CONTACT:...".=...."
COMMODORE BUSINESS MACHINES.".`...."
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO"......" CAN
ADA M1W 2K4".F...." (416) 499
-4292".....UP.1:. 835:. 850:......"
..PROGRAM NAME: ELEMENTS ../...."
WRITTEN BY : WILLIAM SYMONS..V...."
UPGRADED BY : TOM FERGUSON......."
.THIS PROGRAM WILL RUN ON ANY........"
PET 64 COMPUTER..F...."
COMMODORE 64 COMPUTER.U....835:. 850...
&.."... THIS IS A DRILL PROGRAM IN WHIC
H"./.+..". THE USER CAN CHOOSE WHICH EL
EMENTS".\.0..". OF THE PERIODIC TABLE H
E/SHE WOULD".{.5..". LIKE TO BE TESTED
ON....D..835...N..UZ.1..UP%:.217...W...D
.X.. ** PROGRAM MODIFICATION INST **.U.Y
..".":.UT,UL%...].UP.0:UG$."PROGRAM MOD"
:.850......835......UZ.1..UP%:.217......
.=.... ** TO USE 8032 LOAD CBM4032 **.S.
F..".....BEFORE RUNNING THIS PROGRAM ON
AN 8032 .....P.." LOAD THE 'CBM 40
32' PROGRAM............."...Z..UU.71....
........ ** TO USE 8032 LOAD CBM4032 **.
*...."....BEFORE RUNNING THIS PROGRAM ON
AN 8032 ..LOAD CBM 4032 PROGRAM".6....
1093:..V. .. ** T I T L E P A G E **..
.".."....";:.UT,UU%:.B(50003).0..53280,1
4:.53281,6. .$..I.1.38:."...";:....&..I.
1.22:.".....";:..P.(..I.1.37:.".....";:.
...*..I.1.22:.".....";:....,..".........
.................. ../...."............
....... . . ...P.0.."..................
. . ....N.2..".................... ...
.4.."..............C O M M O D O R E....
.6.."...............EDUCATIONAL...X.8.."
................SOFTWARE...:.. ** COMMOD
ORE LOGO **.+.;..H(UD$,24);"..........PR
ESS SPACE BAR OR WAIT.":I.0.M.<..A$:.A$.
." ".I.I.1:.I.250.828.Q.>.T1$."":T2$."":
T3$."":T4$."":I.0.Z.@..300...C.. ** SPAC
E BAR PRESS **.R.H.. UO,0:.H(UD$,24);"..
.....PRESS SPACE BAR TO CONTINUE."...L..
UI$:.UI$.." ".844...N.....R.. ** PAGE DE
SIGN ROUTINE **...T.UP.UP.1.E.W.."."H(UT
$.UP$,21);I(UP$.UG$.D(UP),18).T.\.." ---
-----------------------------------"...`
..UH..0.870...A..H(UD$,24);H(UP$,7);"HEL
P - PRESS H <RETURN>".H.F.UH.0:."..":.
...K.. ** PLEASE WAIT REMARK **...P..H(U
D$,24);" ONE MOMENT PLEASE...
".#.U...@.... ** SET UP VARIABLES **
.....UX$."H":.UQ%(1000):UB.32768:U1.196:
U2.197:U3.198:U4.216:UC.167:UU.1024.I...
UT.59468:UU%.12:UL%.14:UP%.1146:UM.32768
:UO.158:. 50003,0......B(50003).0.UB.102
4:U1.209:U2.210:U3.211:U4.214:UC.204:UU.
2048.K....B(50003).0.UT.53272:UU%.21:UL%
.23:UP%.2139:UM.1024:UO.198.O...UD$."...
......................".....UP$."
".....UT
$." ELEMENTS ":. PLACE PROGRAM
TITLE HERE !!!!!!!!!!!!!!!!!***.........
... ** SET VARIABLES **......900.(.... H
$(103,3).....:.I.... ** CHECK FOR 8032 *
*.G....".":." ":. SHIFTED SPACE.~....B(U
B.40)..96..700...... ** MEMORY CHECK **.
..... .(0).2000.937.Y...."....THIS MACHI
NE DOES NOT HAVE ENOUGH."......"MEMORY T
O RUN THIS PROGRAM !".. ...UU.71.. ....(
..."..":.B(50003).0.962.W ... ** BASIC
2.0 OR 4.0 OR C-64 SETUP **.. ...107
5,133:.1076,144:.1077,234:.1079,4:.1080,
133:.1081,145.K ...1091,155:.1098,133:.1
099,144:.1100,234:.1103,133.. ...1104,14
5:.1105,234:.1082,234..!...B(50003)..160
.955.3!...1093,88:.1094,228:.1097,85:.11
02,228:.965.H!...B(50003)..1.990.W!...10
93,49:.1094,230:.1097,46:.1102,230:.965.
.!B..2099,141:.2100,20:.2101,3:.2103,8:.
2104,141:.2105,21..!C..2106,3:.2115,145:
.2117,52:.2118,234:.2121,49:.2122,141.'"
D..2123,20:.2124,3:.2126,234:.2127,141:.
2128,21:.2129,3.E"E..UU.48:. DISABLE STO
P KEY.V"J..800:. TITLE.F"T..300:. MENU..
"...".THE PGM WILL NOT WORK ON THIS MACH
INE!":..L"...UZ.1..UP%:.UP%:UZ.0:. ** PR
OGRAM STARTS HERE **.."..."..";:.:.B(500
03).0..53281,6:.53280,14..#L..".":. UT,U
L%..#V.. * WRITTEN BY WILLIAM SYMONS *.R
#`.. * FEBRUARY 8, 1981 *.V#J..
*ELEMENT'S SYMBOLS PRACTICE *..#T.. ***
**************************..#~.. *
TOM FERGUSON *..#... ***********
******************..#..UG$."":. 850:."..
..".1$..." WHICH ELEMENTS DO YOU WANT T
O":." PRACTICE?".=$..Y.0:X.0.N$..." .E
NTER ATOMIC NUMBER OF THE 1ST ELEMENT"..
$..UL.3:US$."0123456789":." ...";:.3
5:A.E(UR$).A$... A.103.A.1..".....":.128
0.K$...".."..$..." ENTER ATOMIC NUMBER
OF LAST ELEMENT".,%..UL.3:US$."012345678
9":." ...";:.35:B.E(UR$).I%#.. B.103
.B.A.."...":.1300.Y%(.YY.A:. 4000.N%2..
1,HYDROGEN,"H"..%<.. 2,HELIUM,"HE"..%F..
3,LITHIUM,"LI"..%P.. 4,BERYLLIUM,"BE"..
%Z.. 5,BORON,"B".S%D.. 6,CARBON,"C"..%N.
. 7,NITROGEN,"N"..%X.. 8,OXYGEN,"O"..&..
. 9,FLUORINE,"F".#&... 10,NEON,"NE".8&..
. 11,SODIUM,"NA".P& .. 12,MAGNESIUM,"MG"
.G&... 13,ALUMINUM,"AL".}&... 14,SILICON
,"SI"..&... 15,PHOSPHORUS,"P"..&H.. 16,S
ULPHUR,"S".A&R.. 17,CHLORINE,"CL".U&...
18,ARGON,"AR"..&... 19,POTASSIUM,"K"..'.
.. 20,CALCIUM,"CA"..'... 21,SCANDIUM,"SC
".0'... 22,TITANIUM,"TI".F'... 23,VANADI
UM,"V".]'... 24,CHROMIUM,"CR".U'".. 25,M
ANGANESE,"MN"..',.. 26,IRON,"FE"..'6.. 2
7,COBALT,"CO"..'@.. 28,NICKEL,"NI".G'J..
29,COPPER,"CU".Z'T.. 30,ZINC,"ZN"..'^..
31,GALLIUM,"GA"..(H.. 32,GERMANIUM,"GE"
..(R.. 33,ARSENIC,"AS".5(|.. 34,SELENIUM
,"SE".K(... 35,BROMINE,"BR".A(... 36,KRY
PTON,"KR".X(... 37,RUBIDIUM,"RB"..(... 3
8,STRONTIUM,"SR"..(... 39,YTTRIUM,"Y"..(
... 40,ZIRCONIUM,"ZR".S(B.. 41,NIOBIUM,"
NB"..(L.. 42,MOLYBDENUM,"MO"..)V.. 43,TE
CHNETIUM,"TC"..)... 44,RUTHENIUM,"RU".3)
... 45,RHODIUM,"RH".K)... 46,PALLADIUM,"
PD".`)... 47,SILVER,"AG".V)... 48,CADMIU
M,"CD"..)... 49,INDIUM,"IN"..)... 50,TIN
,"SN"..)&.. 51,ANTIMONY,"SB".L)0.. 52,TE
LLURIUM,"TE"..):.. 53,IODINE,"I"..)D.. 5
4,XENON,"XE"..*N.. 55,CESIUM,"CS"..*X..
56,BARIUM,"BA".6*B.. 57,LANTHANUM,"LA".K
*L.. 58,CERIUM,"CE".F*V.. 59,PRASEODYMIU
M,"PR".~*... 60,NEODYMIUM,"ND"..*... 61,
PROMETHIUM,"PM"..*... 62,SAMARIUM,"SM".E
*... 63,EUROPIUM,"EU"..*... 64,GADOLINIU
M,"GD"..*... 65,TERBIUM,"TB"..+... 66, D
YSPROSIUM,"DY".$+F.. 67,HOLMIUM,"HO".9+P
.. 68,ERBIUM,"ER".O+Z.. 69,THULIUM,"TM".
G+... 70,YTTERBIUM,"YB".~+... 71,LUTETIU
M,"LU"..+... 72,HAFNIUM,"HF"..+... 73,TA
NTALUM,"TA".A+... 74,TUNGSTEN,"W".W+...
75,RHENIUM,"RE"..+ .. 76,OSMIUM,"OS"..,*
.. 77,IRIDIUM,"IR"..,4.. 78,PLATINUM,"PT
".,,>.. 79,GOLD,"AU".B,H.. 80,MERCURY,"H
G".X,R.. 81,THALIUM,"TH".K,\.. 82,LEAD,"
PB"..,F.. 83,BISMUTH,"BI"..,P.. 84,POLON
IUM,"PO"..,Z.. 85,ASTITINE,"AT".C,... 86
,RADON,"RN".Z,... 87,FRANCIUM,"FR"..,...
88,RADIUM,"RA"..-... 89,ACTINIUM,"AC"..
-... 90,THORIUM,"TH".7-... 91,PROTACTINI
UM,"PA".L-... 92,URANIUM,"U".D-J.. 93,NE
PTUNIUM,"NP".|-T.. 94,PLUTONIUM,"PU"..-.
.. 95,AMERICIUM,"AM"..-... 96,CURIUM,"CM
".A-... 97,BERKELIUM,"BK"..-... 98,CALIF
ORNIUM,"CF"..-... 99,EINSTEINIUM,"ES"...
... 100,FERMIUM,"FM".'.... 101,MENDELEVI
UM,"MD".?.$.. 102,NOBELIUM,"NO".Y.... 10
3,LAWRENCIUM,"LW".H.0..GG.YY . B.{.3.C.
E(H$(GG,1))...4.A$.H$(GG,2)...5.B$.H$(GG
,3)...>..835...B.UP.A.YY.1:.850.C.L.."..
.."...V.." WHAT IS THE SYMBOL FOR ";A$"
? ";../`.UL.2:US$."":.35:C$.UR$../J.. C
$.B$ . 2450.&/T.. 2760.7/~.. A.B . 3030.
F/..A.A.1:. GG.Q/... 2480.B/... A.B . 30
30.M/... 2440.W/..Y.Y.1../... TT.1 . 5:.
:. TT../D.T..(.(1).7.1)../N.. T.1 . 2580
.A/X.. T.2 . 2600.R/... T.3 . 2620../...
T.4 . 2640../... T.5 . 2660..0... T.6 .
2680..0... T.7 . 2700.70... .10),"ALL
RIGHTTTTT!!!!!".B0... 2720.[0(.. .10), "
WAY TO GO!".F02.. 2720..0<.. .10), "GOT
THAT ONE"..0F.. 2720..0P.. .10), "YEAH
"..0Z.. 2720..0D.. .10),"OK".G0N.. 2720.
.0X.. .10), "NICE GOING!"..0... 2720..1
..." LUCKY GUESS"..1... 2720.#1 .. RR.1
. 5:.:. RR.S1..." YOU HAVE ";Y;" CORRE
CT AND ";X;" WRONG".Y1....C1H.X.X.1.Y1R.
. MM.1 . 5:.:. MM..1..S..(.(1).7.1)..1..
. S.1 . 2860..1... S.2 . 2880..1... S.3
. 2900.O1... S.4 . 2920..1... S.5 . 2940
..1... S.6 . 2960..2".. S.7 . 2980.82,..
" INCORRECT, TRY THE NEXT ONE, IT'S
";"."B$.C26.. 2990.T2@.. " THAT WAS A
TERRIBLE ANSWER,IT'S ";"."B$.2J.. 2990.
.2T.. .10),"WRONG, ITS ";"."B$..2^.. 299
0.G2H.. .10),"NO!, IT'S ";"."B$.R2R.. 29
90..2|.. .8), "NOO WAYYY!!!, IT'S ";"."
B$..3... 2990..3..." WRONG, WRONG, WRONG
, IT'S ";"."B$.93... 2990.]3... .8),"BAD
ANSWER, IT'S ";"."B$.T3... ZZ.1 . 5 :.:
. ZZ..3..." YOU HAVE ";Y;"CORRECT AND "
;X;" WRONG"..3L....3V..835:. 850:."...."
..4..." YOU SCORED ";Y;" OUT OF";X.Y;"
WHICH IS ":." ";.(Y.(X.Y).100);"%"..4..
.835..4..../4 .. READER ROUTINE.;4... 87
5:..L4... A1.1 . 103.[4... A2.1 . 3.K4H.
. H$(A1,A2).T4R.. A2.}4... A1..4......
> CLICK IMAGE PREVIEW FOR FULL MODAL