PERIODIC TABL.C3
FILE INFORMATION
FILENAME(S): PERIODIC TABL.C3
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-10-20 14:31:59
APPEARS ON: 1 disk(s)
FILE HASH
deb285d0fd51ef294ac48f07e14e402dcad913b122fb2333d70e35e3ca0c53e0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0002ED | PERIODIC TABL.C3 | PRG | Treasure Chest - Klaus Der Suhler | 6 | 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 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 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 02 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4A B2 |.....UJ$.US$:UJ.|
00000600: 55 4C 00 22 0E FC 00 55 4A 24 B2 55 53 24 3A 55 |UL."...UJ$.US$:U|
00000610: 4B 24 B2 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 |K$.UG$:UJ.UP:UK.|
00000620: 55 4C 00 28 0E FF 00 8E 00 39 0E 2C 01 8F 20 2A |UL.(.....9.,.. *|
00000630: 2A 20 4D 45 4E 55 20 2A 2A 00 3F 0E 2D 01 3A 00 |* MENU **.?.-.:.|
00000640: 6E 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |n....".":.UT,UU%|
00000650: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000660: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 74 |281,9:.53280,8.t|
00000670: 0E 2F 01 3A 00 91 0E 31 01 99 22 13 20 20 20 20 |./.:...1..". |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
00000690: 22 00 C0 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000006C0: 00 EA 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000006D0: 31 2E 20 20 20 42 45 47 49 4E 20 50 45 52 49 4F |1. BEGIN PERIO|
000006E0: 44 49 43 20 54 41 42 4C 45 22 00 14 0F 40 01 99 |DIC TABLE"...@..|
000006F0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
00000700: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000710: 4F 4E 53 22 00 3E 0F 45 01 99 22 11 11 20 20 20 |ONS".>.E..".. |
00000720: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000730: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 5A | INSTRUCTIONS".Z|
00000740: 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000750: 20 20 20 51 55 49 54 11 11 22 00 89 0F 54 01 99 | QUIT.."...T..|
00000760: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B4 0F 59 01 99 22 |--------"...Y.."|
00000790: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
000007A0: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000007B0: 29 20 22 3B 00 DC 0F 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000007C0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
000007D0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 E7 0F 60 |NPUT ROUTINE...`|
000007E0: 01 55 53 24 B2 22 22 00 04 10 63 01 91 C5 28 55 |.US$.""...c...(U|
000007F0: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
00000800: 2C 33 39 36 00 0D 10 68 01 89 33 30 30 00 34 10 |,396...h..300.4.|
00000810: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
00000820: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
00000830: 44 20 2A 2A 00 63 10 8C 01 8B C2 28 35 30 30 30 |D **.c.....(5000|
00000840: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
00000850: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
00000860: 33 39 39 00 8D 10 8D 01 9E 55 55 AA 37 31 3A 8B |399......UU.71:.|
00000870: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00000880: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 99 10 |1,6:.53280,14...|
00000890: 8E 01 99 22 9A 93 22 3A 80 00 A4 10 8F 01 8D 38 |..."..":.......8|
000008A0: 37 35 3A 8E 00 C5 10 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST|
000008B0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000008C0: 4E 53 20 2A 2A 00 F4 10 95 01 99 22 93 22 3A 97 |NS **......".":.|
000008D0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
000008E0: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532|
000008F0: 38 30 2C 30 00 15 11 9A 01 55 50 B2 30 3A 55 47 |80,0.....UP.0:UG|
00000900: 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 |$.".TUDENT .NST"|
00000910: 3A 8D 38 35 30 00 1F 11 9F 01 8D 31 31 37 30 00 |:.850......1170.|
00000920: 33 11 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |3....UZ.1..UP%:.|
00000930: 32 31 37 00 39 11 F3 01 8E 00 5A 11 F4 01 8F 20 |217.9.....Z.... |
00000940: 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 |** TEACHER INSTR|
00000950: 55 43 54 49 4F 4E 53 20 2A 2A 00 8A 11 F5 01 99 |UCTIONS **......|
00000960: 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 |".":.UT,UL%:..(5|
00000970: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 |0003).0..53281,2|
00000980: 3A 97 35 33 32 38 30 2C 31 30 00 AB 11 F6 01 55 |:.53280,10.....U|
00000990: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
000009A0: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 D9 11 F7 01 | .NST":.850.....|
000009B0: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
000009C0: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
000009D0: 57 4C 45 44 47 45 2C 11 22 00 02 12 F8 01 99 22 |WLEDGE,."......"|
000009E0: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
000009F0: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000A00: 11 22 00 2E 12 F9 01 99 22 20 20 20 44 4F 4D 41 |."......" DOMA|
00000A10: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000A20: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 4B |NOT THE CASE.".K|
00000A30: 12 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000A40: 4F 4E 54 41 43 54 3A 11 11 11 22 00 75 12 FB 01 |ONTACT:...".u...|
00000A50: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000A60: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000A70: 4E 45 53 11 22 00 98 12 FC 01 99 22 20 20 20 20 |NES."......" |
00000A80: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000A90: 41 43 59 20 C1 56 45 2E 00 BC 12 FD 01 99 22 20 |ACY .VE......." |
00000AA0: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000AB0: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 DE 12 FE |RT, .NTARIO"....|
00000AC0: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000AD0: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 FE |ADA .1. 2.4"..|
00000AE0: 12 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000AF0: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 14 |416) 499-4292"..|
00000B00: 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 |...UP.1:. 835:. |
00000B10: 38 35 30 3A 00 3E 13 01 02 99 22 20 20 20 20 20 |850:.>...." |
00000B20: 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 |...ROGRAM .AME: |
00000B30: D0 45 52 4F 44 49 43 20 D4 41 42 4C 45 11 00 6B |.ERODIC .ABLE..k|
00000B40: 13 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 |...." .RITTE|
00000B50: 4E 20 C2 59 20 20 3A 20 D3 54 45 50 48 45 4E 20 |N .Y : .TEPHEN |
00000B60: D7 4F 52 4F 53 5A 43 5A 55 4B 11 00 8F 13 03 02 |.OROSZCZUK......|
00000B70: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED |
00000B80: C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 |.Y : ..|
00000B90: BA 13 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 |....." ..HIS|
00000BA0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 | PROGRAM WILL RU|
00000BB0: 4E 20 4F 4E 20 41 4E 59 11 11 00 DA 13 07 02 99 |N ON ANY........|
00000BC0: 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 A0 36 34 |" ....64|
00000BD0: 20 C3 CF CD D0 D5 D4 C5 D2 11 00 FF 13 08 02 99 | ...............|
00000BE0: 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 |" ......|
00000BF0: CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 |... 64 .........|
00000C00: 08 14 09 02 8D 38 33 35 00 1C 14 4E 02 8B 55 5A |.....835...N..UZ|
00000C10: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 22 14 57 |.1..UP%:.217.".W|
00000C20: 02 8E 00 48 14 58 02 8F 20 2A 2A 20 50 52 4F 47 |...H.X.. ** PROG|
00000C30: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000C40: 20 49 4E 53 54 20 2A 2A 00 59 14 59 02 99 22 93 | INST **.Y.Y..".|
00000C50: 22 3A 97 55 54 2C 55 4C 25 00 79 14 5D 02 55 50 |":.UT,UL%.y.].UP|
00000C60: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00000C70: CD 4F 44 22 3A 8D 38 35 30 00 82 14 94 02 8D 38 |.OD":.850......8|
00000C80: 33 35 00 96 14 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35......UZ.1..UP|
00000C90: 25 3A 89 32 31 37 00 9C 14 BB 02 8E 00 C1 14 BC |%:.217..........|
00000CA0: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00000CB0: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00000CC0: 2A 00 F7 14 C6 02 99 22 93 11 11 11 05 42 45 46 |*......".....BEF|
00000CD0: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00000CE0: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
00000CF0: 30 33 32 20 20 11 11 00 2D 15 D0 02 99 22 20 20 |032 ...-...." |
00000D00: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
00000D10: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
00000D20: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 38 15 |............".8.|
00000D30: DA 02 9E 55 55 AA 37 31 00 3E 15 E4 02 80 00 5E |...UU.71.>.....^|
00000D40: 15 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 |. .. ** T I T L |
00000D50: 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 92 |E P A G E **..|
00000D60: 15 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C |.".."....";:.UT,|
00000D70: 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UU%:..(50003).0.|
00000D80: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281|
00000D90: 2C 36 00 A8 15 24 03 81 49 B2 31 A4 33 38 3A 99 |,6...$..I.1.38:.|
00000DA0: 22 12 A6 92 22 3B 3A 82 00 C0 15 26 03 81 49 B2 |"...";:....&..I.|
00000DB0: 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 |1.22:.".....";:.|
00000DC0: 00 D8 15 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D |...(..I.1.37:.".|
00000DD0: 9D 12 A6 92 22 3B 3A 82 00 F0 15 2A 03 81 49 B2 |....";:....*..I.|
00000DE0: 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 |1.22:.".....";:.|
00000DF0: 00 15 16 2C 03 99 22 13 11 11 11 11 11 11 1D 1D |...,..".........|
00000E00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E10: 12 A9 20 20 92 00 37 16 2E 03 99 22 1D 1D 1D 1D |.. ..7...."....|
00000E20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00000E30: 92 20 20 12 20 92 A9 00 58 16 30 03 99 22 1D 1D |. . ...X.0.."..|
00000E40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E50: 12 20 92 20 20 12 A3 DF 00 76 16 32 03 99 22 1D |. . ....v.2..".|
00000E60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E70: 1D DF 12 20 20 92 00 9E 16 34 03 99 22 11 11 1D |... ....4.."...|
00000E80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D |...........C O M|
00000E90: 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 C1 | M O D O R E....|
00000EA0: 16 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.6.."...........|
00000EB0: 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 |....EDUCATIONAL.|
00000EC0: 11 00 E0 16 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....8.."........|
00000ED0: 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 |........SOFTWARE|
00000EE0: 00 FB 16 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 |...:.. ** COMMOD|
00000EF0: 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 33 17 3B 03 |ORE LOGO **.3.;.|
00000F00: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00000F10: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
00000F20: 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A |E BAR OR WAIT.":|
00000F30: 49 B2 30 00 55 17 3C 03 A1 41 24 3A 8B 41 24 B3 |I.0.U.<..A$:.A$.|
00000F40: B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 |." ".I.I.1:.I.25|
00000F50: 30 A7 38 32 38 00 79 17 3E 03 54 31 24 B2 22 22 |0.828.y.>.T1$.""|
00000F60: 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 |:T2$."":T3$."":T|
00000F70: 34 24 B2 22 22 3A 49 B2 30 00 82 17 40 03 89 33 |4$."":I.0...@..3|
00000F80: 30 30 00 9E 17 43 03 8F 20 2A 2A 20 53 50 41 43 |00...C.. ** SPAC|
00000F90: 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 D9 |E BAR PRESS **..|
00000FA0: 17 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C |.H..UO,0:..(UD$,|
00000FB0: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |24);".......PRES|
00000FC0: 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 |S SPACE BAR TO C|
00000FD0: 4F 4E 54 49 4E 55 45 92 22 00 F0 17 4C 03 A1 55 |ONTINUE."...L..U|
00000FE0: 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 |I$:.UI$.." ".844|
00000FF0: 00 F6 17 4E 03 8E 00 16 18 52 03 8F 20 2A 2A 20 |...N.....R.. ** |
00001000: 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 |PAGE DESIGN ROUT|
00001010: 49 4E 45 20 2A 2A 00 22 18 54 03 55 50 B2 55 50 |INE **.".T.UP.UP|
00001020: AA 31 00 4C 18 57 03 99 22 93 22 C8 28 55 54 24 |.1.L.W..".".(UT$|
00001030: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U|
00001040: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 7B 18 5C |G$..(UP),18).{.\|
00001050: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00001060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 8A 18 60 03 |----------"...`.|
00001080: 8B 55 48 B3 B1 30 A7 38 37 30 00 BE 18 61 03 99 |.UH..0.870...a..|
00001090: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,|
000010A0: 36 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |6);"HELP - PRESS|
000010B0: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 CF | H <RETURN>"..|
000010C0: 18 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 |.f.UH.0:."..":..|
000010D0: EE 18 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 |..k.. ** PLEASE |
000010E0: 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 24 |WAIT REMARK **.$|
000010F0: 19 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 |.p...(UD$,24);" |
00001100: 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F | ONE MO|
00001110: 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 |MENT PLEASE... |
00001120: 20 20 20 22 00 2A 19 75 03 8E 00 47 19 84 03 8F | ".*.u...G....|
00001130: 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 | ** SET UP VARIA|
00001140: 42 4C 45 53 20 2A 2A 00 92 19 85 03 55 58 24 B2 |BLES **.....UX$.|
00001150: 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 |"H":.UQ%(1000):U|
00001160: 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 |B.32768:U1.196:U|
00001170: 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 |2.197:U3.198:U4.|
00001180: 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 |216:UC.167:UU.10|
00001190: 32 34 00 D0 19 86 03 55 54 B2 35 39 34 36 38 3A |24.....UT.59468:|
000011A0: 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 |UU%.12:UL%.14:UP|
000011B0: 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A |%.1146:UM.32768:|
000011C0: 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 |UO.158:. 50003,0|
000011D0: 00 13 1A 87 03 8B C2 28 35 30 30 30 33 29 B2 30 |.......(50003).0|
000011E0: A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A |.UB.1024:U1.209:|
000011F0: 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 |U2.210:U3.211:U4|
00001200: B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 |.214:UC.204:UU.2|
00001210: 30 34 38 00 52 1A 88 03 8B C2 28 35 30 30 30 33 |048.R.....(50003|
00001220: 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 |).0.UT.53272:UU%|
00001230: B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 |.21:UL%.23:UP%.2|
00001240: 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 |139:UM.1024:UO.1|
00001250: 39 38 00 76 1A 89 03 55 44 24 B2 22 13 11 11 11 |98.v...UD$."....|
00001260: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001270: 11 11 11 11 11 22 00 A8 1A 8A 03 55 50 24 B2 22 |.....".....UP$."|
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012A0: 20 20 20 20 20 20 20 22 00 F6 1A 8B 03 55 54 24 | ".....UT$|
000012B0: B2 22 20 D0 45 52 49 4F 44 49 43 20 D4 41 42 4C |." .ERIODIC .ABL|
000012C0: 45 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 |E....":. PLACE P|
000012D0: 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 |ROGRAM TITLE HER|
000012E0: 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |E !!!!!!!!!!!!!!|
000012F0: 21 21 21 2A 2A 2A 00 FC 1A 8C 03 8E 00 16 1B 8E |!!!***..........|
00001300: 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 |.. ** SET VARIAB|
00001310: 4C 45 53 20 2A 2A 00 30 1B 8F 03 86 45 24 28 32 |LES **.0....E$(2|
00001320: 30 29 2C 53 24 28 32 30 29 2C 56 24 28 32 30 29 |0),S$(20),V$(20)|
00001330: 00 39 1B 93 03 8D 39 30 30 00 54 1B 98 03 8F 20 |.9....900.T.... |
00001340: 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 |** CHECK FOR 803|
00001350: 32 20 2A 2A 00 72 1B 9D 03 99 22 93 22 3A 99 22 |2 **.r....".":."|
00001360: A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 |.":. SHIFTED SPA|
00001370: 43 45 00 89 1B A2 03 8B C2 28 55 42 AA 34 30 29 |CE.......(UB.40)|
00001380: B3 B1 39 36 A7 8D 37 30 30 00 A2 1B A3 03 8F 20 |..96..700...... |
00001390: 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 |** MEMORY CHECK |
000013A0: 2A 2A 00 B6 1B A4 03 8B 20 B8 28 30 29 B1 32 30 |**...... .(0).20|
000013B0: 30 30 A7 39 33 37 00 E4 1B A5 03 99 22 93 11 11 |00.937......"...|
000013C0: 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F |.THIS MACHINE DO|
000013D0: 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 |ES NOT HAVE ENOU|
000013E0: 47 48 11 22 00 08 1C A6 03 99 22 4D 45 4D 4F 52 |GH."......"MEMOR|
000013F0: 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 |Y TO RUN THIS PR|
00001400: 4F 47 52 41 4D 20 21 22 00 13 1C A7 03 9E 55 55 |OGRAM !"......UU|
00001410: AA 37 31 00 19 1C A8 03 80 00 33 1C A9 03 99 22 |.71.......3...."|
00001420: 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |..":..(50003).0.|
00001430: 39 36 32 00 62 1C AC 03 8F 20 2A 2A 20 42 41 53 |962.b.... ** BAS|
00001440: 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 |IC 2.0 OR 4.0 |
00001450: 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 | OR C-64 SETUP |
00001460: 2A 2A 00 A0 1C AD 03 97 31 30 37 35 2C 31 33 33 |**......1075,133|
00001470: 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 |:.1076,144:.1077|
00001480: 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 |,234:.1079,4:.10|
00001490: 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 |80,133:.1081,145|
000014A0: 00 D6 1C AE 03 97 31 30 39 31 2C 31 35 35 3A 97 |......1091,155:.|
000014B0: 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 |1098,133:.1099,1|
000014C0: 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 |44:.1100,234:.11|
000014D0: 30 33 2C 31 33 33 00 F8 1C AF 03 97 31 31 30 34 |03,133......1104|
000014E0: 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 |,145:.1105,234:.|
000014F0: 31 30 38 32 2C 32 33 34 00 0F 1D B1 03 8B C2 28 |1082,234.......(|
00001500: 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 |50003)..160.955.|
00001510: 3E 1D B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 |>....1093,88:.10|
00001520: 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A |94,228:.1097,85:|
00001530: 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 53 |.1102,228:.965.S|
00001540: 1D BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 |.....(50003)..1.|
00001550: 39 39 30 00 82 1D C0 03 97 31 30 39 33 2C 34 39 |990......1093,49|
00001560: 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 |:.1094,230:.1097|
00001570: 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 |,46:.1102,230:.9|
00001580: 36 35 00 BC 1D C2 03 97 32 30 39 39 2C 31 34 31 |65......2099,141|
00001590: 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C |:.2100,20:.2101,|
000015A0: 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C |3:.2103,8:.2104,|
000015B0: 31 34 31 3A 97 32 31 30 35 2C 32 31 00 F8 1D C3 |141:.2105,21....|
000015C0: 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 |..2106,3:.2115,1|
000015D0: 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 |45:.2117,52:.211|
000015E0: 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 |8,234:.2121,49:.|
000015F0: 32 31 32 32 2C 31 34 31 00 32 1E C4 03 97 32 31 |2122,141.2....21|
00001600: 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 |23,20:.2124,3:.2|
00001610: 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 |126,234:.2127,14|
00001620: 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 |1:.2128,21:.2129|
00001630: 2C 33 00 50 1E C5 03 9E 55 55 AA 34 38 3A 8F 20 |,3.P....UU.48:. |
00001640: 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |DISABLE STOP KEY|
00001650: 00 61 1E CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C |.a....800:. TITL|
00001660: 45 00 71 1E D4 03 89 33 30 30 3A 8F 20 4D 45 4E |E.q....300:. MEN|
00001670: 55 00 A2 1E DE 03 99 22 93 54 48 45 20 50 47 4D |U......".THE PGM|
00001680: 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F | WILL NOT WORK O|
00001690: 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 |N THIS MACHINE!"|
000016A0: 3A 80 00 D7 1E E8 03 8B 55 5A B2 31 A7 9E 55 50 |:.......UZ.1..UP|
000016B0: 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A |%:.UP%:UZ.0:. **|
000016C0: 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 | PROGRAM STARTS |
000016D0: 48 45 52 45 20 2A 2A 00 03 1F E9 03 99 22 93 05 |HERE **......"..|
000016E0: 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 |";:.:..(50003).0|
000016F0: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00001700: 2C 31 34 00 18 1F 1A 04 41 B2 30 3A 52 B2 30 3A |,14.....A.0:R.0:|
00001710: 4E B2 30 3A 55 50 B2 30 00 22 1F 2E 04 89 31 33 |N.0:UP.0."....13|
00001720: 34 30 00 2E 1F 4C 04 97 55 54 2C 55 4C 25 00 3F |40...L..UT,UL%.?|
00001730: 1F 56 04 99 22 93 11 11 11 11 11 11 11 11 22 00 |.V..".........".|
00001740: 7B 1F 74 04 99 A3 35 29 3B 22 2A 22 3B A3 33 34 |{.t...5);"*";.34|
00001750: 29 3B 22 2A 22 3A 99 A3 35 29 3B 22 2A 2A 2A 2A |);"*":..5);"****|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 BB 1F 7E 04 |**********"...~.|
00001780: 99 3A 99 A3 32 29 3B 22 C2 D9 20 D3 54 45 50 48 |.:..2);".. .TEPH|
00001790: 45 4E 20 D7 4F 52 4F 53 5A 43 5A 55 4B 20 49 4E |EN .OROSZCZUK IN|
000017A0: 43 2E 22 3A 99 22 20 20 C6 4F 52 54 20 D7 49 4C |C.":." .ORT .IL|
000017B0: 4C 49 41 4D 20 C3 4F 4C 4C 45 47 00 CE 1F 92 04 |LIAM .OLLEG.....|
000017C0: 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 FD |. INSTRUCTIONS..|
000017D0: 1F 9C 04 99 22 11 11 20 D4 48 45 20 41 49 4D 20 |....".. .HE AIM |
000017E0: 4F 46 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |OF THIS PROGRAM |
000017F0: 49 53 20 54 4F 20 41 49 44 20 59 4F 55 00 28 20 |IS TO AID YOU.( |
00001800: A6 04 99 22 11 20 49 4E 20 54 48 45 20 4C 45 41 |...". IN THE LEA|
00001810: 52 4E 49 4E 47 20 4F 46 20 54 48 45 20 53 59 4D |RNING OF THE SYM|
00001820: 42 4F 4C 53 20 41 4E 44 00 52 20 AB 04 99 22 11 |BOLS AND.R ...".|
00001830: 20 56 41 4C 45 4E 43 45 53 20 4F 46 20 54 48 45 | VALENCES OF THE|
00001840: 20 46 49 52 53 54 20 32 30 20 45 4C 45 4D 45 4E | FIRST 20 ELEMEN|
00001850: 54 53 00 71 20 AD 04 99 22 11 20 4F 46 20 54 48 |TS.q ...". OF TH|
00001860: 45 20 50 45 52 49 4F 44 49 43 20 54 41 42 4C 45 |E PERIODIC TABLE|
00001870: 2E 00 A1 20 B0 04 99 22 11 20 D9 4F 55 20 57 49 |... ...". .OU WI|
00001880: 4C 4C 20 42 45 20 47 49 56 45 4E 20 41 4E 20 45 |LL BE GIVEN AN E|
00001890: 4C 45 4D 45 4E 54 20 4E 41 4D 45 20 4F 52 20 41 |LEMENT NAME OR A|
000018A0: 22 00 D1 20 BA 04 99 22 11 20 53 59 4D 42 4F 4C |".. ...". SYMBOL|
000018B0: 2E 20 D9 4F 55 20 57 49 4C 4C 20 48 41 56 45 20 |. .OU WILL HAVE |
000018C0: 54 4F 20 47 49 56 45 20 54 48 45 20 4F 54 48 45 |TO GIVE THE OTHE|
000018D0: 52 00 0A 21 BF 04 99 22 20 41 53 20 57 45 4C 4C |R..!..." AS WELL|
000018E0: 20 41 53 20 54 48 45 20 56 41 4C 45 4E 43 45 20 | AS THE VALENCE |
000018F0: 4F 46 20 54 48 45 20 45 4C 45 4D 45 4E 54 2E 22 |OF THE ELEMENT."|
00001900: 3A 8D 38 33 35 3A 8D 38 35 30 00 46 21 C4 04 99 |:.835:.850.F!...|
00001910: 22 11 11 20 C6 4F 52 20 45 58 41 4D 50 4C 45 3A |".. .OR EXAMPLE:|
00001920: 22 3A 99 A3 31 34 29 3B 22 D4 48 45 20 45 4C 45 |":..14);".HE ELE|
00001930: 4D 45 4E 54 20 49 53 20 D3 4F 44 49 55 4D 2E 22 |MENT IS .ODIUM."|
00001940: 3A 99 A3 31 34 29 00 7D 21 CE 04 99 22 D7 48 41 |:..14).}!...".HA|
00001950: 54 20 49 53 20 49 54 53 20 53 59 4D 42 4F 4C 3F |T IS ITS SYMBOL?|
00001960: 20 CE 41 22 3A 99 A3 31 34 29 3B 22 D4 48 41 54 | .A":..14);".HAT|
00001970: 20 49 53 20 43 4F 52 52 45 43 54 2E 22 00 B9 21 | IS CORRECT."..!|
00001980: D8 04 99 A3 31 34 29 3B 22 D7 48 41 54 20 49 53 |....14);".HAT IS|
00001990: 20 49 54 53 20 56 41 4C 45 4E 43 45 3F 20 31 22 | ITS VALENCE? 1"|
000019A0: 3A 99 A3 31 34 29 3B 22 D4 48 41 54 20 49 53 20 |:..14);".HAT IS |
000019B0: 43 4F 52 52 45 43 54 2E 22 00 E8 21 F6 04 99 3A |CORRECT."..!...:|
000019C0: 99 22 20 CE 4F 54 45 3A 20 20 20 20 20 20 C6 4F |." .OTE: .O|
000019D0: 52 20 4D 55 4C 54 49 50 4C 45 20 56 41 4C 45 4E |R MULTIPLE VALEN|
000019E0: 43 45 53 20 55 53 45 22 00 13 22 00 05 99 22 20 |CES USE".."..." |
000019F0: 20 20 20 20 20 20 20 20 20 20 20 27 26 27 20 4F | '&' O|
00001A00: 4E 4C 59 20 28 4E 4F 20 53 50 41 43 45 53 29 20 |NLY (NO SPACES) |
00001A10: 54 4F 22 00 3B 22 0A 05 99 22 20 20 20 20 20 20 |TO".;"..." |
00001A20: 20 20 20 20 20 20 53 45 50 41 52 41 54 45 20 54 | SEPARATE T|
00001A30: 48 45 20 4E 55 4D 42 45 52 53 2E 00 66 22 14 05 |HE NUMBERS..f"..|
00001A40: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 C6 4F |." .O|
00001A50: 52 20 45 58 41 4D 50 4C 45 3A 20 20 D3 55 4C 46 |R EXAMPLE: .ULF|
00001A60: 55 52 20 49 53 22 00 7E 22 1E 05 99 22 20 20 20 |UR IS".~"..." |
00001A70: 20 20 20 20 20 20 20 20 20 32 26 34 2E 22 00 89 | 2&4."..|
00001A80: 22 28 05 8D 38 33 35 3A 8E 00 CA 22 3C 05 55 50 |"(..835:..."<.UP|
00001A90: B2 30 3A 97 55 54 2C 55 4C 25 3A 99 22 93 11 11 |.0:.UT,UL%:."...|
00001AA0: 11 11 20 20 C8 4F 57 20 4D 41 4E 59 20 51 55 45 |.. .OW MANY QUE|
00001AB0: 53 54 49 4F 4E 53 20 44 4F 20 59 4F 55 20 57 41 |STIONS DO YOU WA|
00001AC0: 4E 54 3F 20 20 20 9D 9D 22 3B 00 E8 22 41 05 55 |NT? ..";.."A.U|
00001AD0: 53 24 B2 22 31 32 33 34 35 36 37 38 39 30 22 3A |S$."1234567890":|
00001AE0: 55 4C B2 32 3A 8D 33 35 00 08 23 46 05 41 B2 C5 |UL.2:.35..#F.A..|
00001AF0: 28 55 52 24 29 3A 8B 41 B1 32 30 20 B0 20 41 B3 |(UR$):.A.20 . A.|
00001B00: 31 20 A7 20 31 33 34 30 00 3B 23 50 05 99 22 93 |1 . 1340.;#P..".|
00001B10: 11 11 11 20 D7 48 41 54 20 49 53 20 54 48 45 20 |... .HAT IS THE |
00001B20: 48 49 47 48 45 53 54 20 4E 55 4D 42 45 52 20 45 |HIGHEST NUMBER E|
00001B30: 4C 45 4D 45 4E 54 20 59 4F 55 22 00 5B 23 55 05 |LEMENT YOU".[#U.|
00001B40: 99 22 20 57 4F 55 4C 44 20 4C 49 4B 45 44 20 54 |." WOULD LIKED T|
00001B50: 4F 20 42 45 20 41 53 4B 45 44 22 00 86 23 5A 05 |O BE ASKED"..#Z.|
00001B60: 99 22 13 11 11 11 11 11 20 28 32 30 20 45 4C 45 |."...... (20 ELE|
00001B70: 4D 45 4E 54 53 29 20 3F 20 20 20 20 20 20 20 9D |MENTS) ? .|
00001B80: 9D 9D 9D 9D 22 3B 00 A4 23 64 05 55 4C B2 32 3A |....";..#d.UL.2:|
00001B90: 55 53 24 B2 22 31 32 33 34 35 36 37 38 39 30 22 |US$."1234567890"|
00001BA0: 3A 8D 33 35 00 C1 23 6E 05 42 B2 C5 28 55 52 24 |:.35..#n.B..(UR$|
00001BB0: 29 3A 8B 42 B1 32 30 20 B0 42 B3 31 A7 31 33 37 |):.B.20 .B.1.137|
00001BC0: 30 00 EC 23 8C 05 8C 3A 97 55 54 2C 55 4C 25 3A |0..#...:.UT,UL%:|
00001BD0: 81 4A B2 31 A4 42 3A 87 45 24 28 4A 29 2C 53 24 |.J.1.B:.E$(J),S$|
00001BE0: 28 4A 29 2C 56 24 28 4A 29 3A 82 4A 00 F8 23 96 |(J),V$(J):.J..#.|
00001BF0: 05 81 20 51 B2 31 A4 41 00 0D 24 9B 05 55 47 24 |.. Q.1.A..$..UG$|
00001C00: B2 22 22 3A 55 50 B2 51 3A 8D 38 35 30 00 37 24 |."":UP.Q:.850.7$|
00001C10: A0 05 59 B2 59 AA 31 3A 99 22 11 11 11 11 22 3B |..Y.Y.1:."....";|
00001C20: A3 31 30 29 3B 52 3B 22 52 49 47 48 54 20 4F 55 |.10);R;"RIGHT OU|
00001C30: 54 20 4F 46 22 3B 4E 00 63 24 AA 05 58 B2 B5 28 |T OF";N.c$..X..(|
00001C40: 42 AC BB 28 31 29 AA 31 29 3A 5A B2 B5 28 32 AC |B..(1).1):Z..(2.|
00001C50: BB 28 31 29 AA 31 29 3A 8B 20 5A B2 32 20 89 31 |.(1).1):. Z.2 .1|
00001C60: 35 32 30 00 A4 24 B4 05 4E B2 4E AA 31 3A 99 22 |520..$..N.N.1:."|
00001C70: 11 20 D4 48 45 20 45 4C 45 4D 45 4E 54 20 49 53 |. .HE ELEMENT IS|
00001C80: 3A 20 22 3B 45 24 28 58 29 3A 99 22 11 20 D7 48 |: ";E$(X):.". .H|
00001C90: 41 54 20 49 53 20 49 54 53 20 53 59 4D 42 4F 4C |AT IS ITS SYMBOL|
00001CA0: 3F 20 22 3B 00 C0 24 B9 05 55 4C B2 31 35 3A 55 |? ";..$..UL.15:U|
00001CB0: 53 24 B2 22 22 3A 8D 33 35 3A 41 24 B2 55 52 24 |S$."":.35:A$.UR$|
00001CC0: 00 F3 24 BE 05 8B 20 41 24 B2 53 24 28 58 29 A7 |..$... A$.S$(X).|
00001CD0: 20 99 22 11 20 D4 48 41 54 20 49 53 20 43 4F 52 | .". .HAT IS COR|
00001CE0: 52 45 43 54 2E 22 3A 52 B2 52 AA 2E 35 3A 89 31 |RECT.":R.R..5:.1|
00001CF0: 34 39 30 00 30 25 C8 05 99 22 11 20 D4 48 41 54 |490.0%...". .HAT|
00001D00: 20 49 53 20 49 4E 43 4F 52 52 45 43 54 2E 20 20 | IS INCORRECT. |
00001D10: D4 48 45 20 53 59 4D 42 4F 4C 20 49 53 3A 22 3A |.HE SYMBOL IS:":|
00001D20: 99 22 11 22 A3 31 35 29 3B 53 24 28 58 29 3A 99 |.".".15);S$(X):.|
00001D30: 00 50 25 D2 05 99 22 11 20 D7 48 41 54 20 49 53 |.P%...". .HAT IS|
00001D40: 20 49 54 53 20 56 41 4C 45 4E 43 45 3F 20 22 3B | ITS VALENCE? ";|
00001D50: 00 76 25 D7 05 55 4C B2 30 3A 55 53 24 B2 22 30 |.v%..UL.0:US$."0|
00001D60: 31 32 33 34 35 36 37 38 39 26 22 3A 8D 33 35 3A |123456789&":.35:|
00001D70: 41 24 B2 55 52 24 00 A9 25 DC 05 8B 20 41 24 B2 |A$.UR$..%... A$.|
00001D80: 56 24 28 58 29 A7 20 99 22 11 20 D4 48 41 54 20 |V$(X). .". .HAT |
00001D90: 49 53 20 43 4F 52 52 45 43 54 2E 22 3A 52 B2 52 |IS CORRECT.":R.R|
00001DA0: AA 2E 35 3A 89 31 35 38 30 00 E9 25 E6 05 99 22 |..5:.1580..%..."|
00001DB0: 11 20 D4 48 41 54 20 49 53 20 49 4E 43 4F 52 52 |. .HAT IS INCORR|
00001DC0: 45 43 54 20 54 48 45 20 56 41 4C 45 4E 43 45 20 |ECT THE VALENCE |
00001DD0: 49 53 3A 22 3A 99 22 11 22 A3 31 35 29 3B 56 24 |IS:":.".".15);V$|
00001DE0: 28 58 29 3A 89 31 35 38 30 00 2A 26 F0 05 4E B2 |(X):.1580.*&..N.|
00001DF0: 4E AA 31 3A 99 22 11 20 D4 48 45 20 53 59 4D 42 |N.1:.". .HE SYMB|
00001E00: 4F 4C 20 49 53 3A 20 22 3B 53 24 28 58 29 3A 99 |OL IS: ";S$(X):.|
00001E10: 22 11 20 D7 48 41 54 20 49 53 20 54 48 45 20 45 |". .HAT IS THE E|
00001E20: 4C 45 4D 45 4E 54 3F 20 22 3B 00 45 26 F5 05 55 |LEMENT? ";.E&..U|
00001E30: 4C B2 30 3A 55 53 24 B2 22 22 3A 8D 33 35 3A 41 |L.0:US$."":.35:A|
00001E40: 24 B2 55 52 24 00 7A 26 FA 05 8B 20 41 24 B2 45 |$.UR$.z&... A$.E|
00001E50: 24 28 58 29 20 A7 20 99 22 11 20 D4 48 41 54 20 |$(X) . .". .HAT |
00001E60: 49 53 20 43 4F 52 52 45 43 54 2E 22 3A 52 B2 52 |IS CORRECT.":R.R|
00001E70: AA 2E 35 3A 89 20 31 35 35 30 00 B8 26 04 06 99 |..5:. 1550..&...|
00001E80: 22 11 20 D4 48 41 54 20 49 53 20 49 4E 43 4F 52 |". .HAT IS INCOR|
00001E90: 52 45 43 54 2E 20 20 D4 48 45 20 45 4C 45 4D 45 |RECT. .HE ELEME|
00001EA0: 4E 54 20 49 53 3A 22 3A 99 22 11 22 A3 31 35 29 |NT IS:":.".".15)|
00001EB0: 3B 45 24 28 58 29 3A 99 00 D8 26 0E 06 99 22 11 |;E$(X):...&...".|
00001EC0: 20 D7 48 41 54 20 49 53 20 49 54 53 20 56 41 4C | .HAT IS ITS VAL|
00001ED0: 45 4E 43 45 3F 20 22 3B 00 FE 26 13 06 55 4C B2 |ENCE? ";..&..UL.|
00001EE0: 30 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |0:US$."012345678|
00001EF0: 39 26 22 3A 8D 33 35 3A 41 24 B2 55 52 24 00 31 |9&":.35:A$.UR$.1|
00001F00: 27 18 06 8B 20 41 24 B2 56 24 28 58 29 A7 20 99 |'... A$.V$(X). .|
00001F10: 22 11 20 D4 48 41 54 20 49 53 20 43 4F 52 52 45 |". .HAT IS CORRE|
00001F20: 43 54 2E 22 3A 52 B2 52 AA 2E 35 3A 89 31 35 38 |CT.":R.R..5:.158|
00001F30: 30 00 6A 27 22 06 99 22 11 20 D4 48 41 54 20 49 |0.j'"..". .HAT I|
00001F40: 53 20 49 4E 43 4F 52 52 45 43 54 20 54 48 45 20 |S INCORRECT THE |
00001F50: 56 41 4C 45 4E 43 45 20 49 53 3A 22 3A 99 3A 99 |VALENCE IS:":.:.|
00001F60: A3 31 35 29 3B 56 24 28 58 29 00 7B 27 2C 06 8D |.15);V$(X).{',..|
00001F70: 38 33 35 3A 99 22 93 22 3A 82 51 00 B4 27 36 06 |835:.".":.Q..'6.|
00001F80: 99 22 93 11 11 11 11 20 D9 4F 55 52 20 50 45 52 |."..... .OUR PER|
00001F90: 43 45 4E 54 41 47 45 20 57 41 53 3A 20 22 3B 3A |CENTAGE WAS: ";:|
00001FA0: 53 B2 B5 28 52 AC 31 30 30 AD 41 29 3A 99 53 3B |S..(R.100.A):.S;|
00001FB0: 22 9D 25 22 00 C4 27 40 06 99 22 13 11 11 11 11 |".%"..'@..".....|
00001FC0: 11 11 11 22 00 E2 27 54 06 8B 53 B3 B2 38 30 A7 |..."..'T..S..80.|
00001FD0: 99 22 20 CE 4F 54 20 42 41 44 2E 22 3A 89 31 36 |." .OT BAD.":.16|
00001FE0: 35 35 00 01 28 5E 06 8B 53 B3 B2 39 30 A7 99 22 |55..(^..S..90.."|
00001FF0: 20 D6 45 52 59 20 47 4F 4F 44 22 3A 89 31 36 35 | .ERY GOOD":.165|
00002000: 35 00 23 28 68 06 8B 53 B3 B2 39 39 A7 99 22 20 |5.#(h..S..99.." |
00002010: C5 58 43 45 4C 4C 45 4E 54 21 21 21 22 3A 89 31 |.XCELLENT!!!":.1|
00002020: 36 35 35 00 48 28 72 06 8B 53 B2 31 30 30 A7 99 |655.H(r..S.100..|
00002030: 22 20 C5 49 4E 53 54 45 49 4E 20 4D 4F 56 45 20 |" .INSTEIN MOVE |
00002040: 4F 56 45 52 21 21 21 22 00 53 28 77 06 8D 38 33 |OVER!!!".S(w..83|
00002050: 35 3A 8E 00 69 28 7C 06 83 22 C8 59 44 52 4F 47 |5:..i(|..".YDROG|
00002060: 45 4E 22 2C 22 C8 22 2C 31 00 7E 28 86 06 83 22 |EN",".",1.~(..."|
00002070: C8 45 4C 49 55 4D 22 2C 22 C8 45 22 2C 30 00 94 |.ELIUM",".E",0..|
00002080: 28 90 06 83 22 CC 49 54 48 49 55 4D 22 2C 22 CC |(...".ITHIUM",".|
00002090: 49 22 2C 31 00 AC 28 9A 06 83 22 C2 45 52 59 4C |I",1..(...".ERYL|
000020A0: 4C 49 55 4D 22 2C 22 C2 45 22 2C 32 00 BF 28 A4 |LIUM",".E",2..(.|
000020B0: 06 83 22 C2 4F 52 4F 4E 22 2C 22 C2 22 2C 33 00 |..".ORON",".",3.|
000020C0: D3 28 AE 06 83 22 C3 41 52 42 4F 4E 22 2C 22 C3 |.(...".ARBON",".|
000020D0: 22 2C 34 00 E9 28 B8 06 83 22 CE 49 54 52 4F 47 |",4..(...".ITROG|
000020E0: 45 4E 22 2C 22 CE 22 2C 33 00 FD 28 C2 06 83 22 |EN",".",3..(..."|
000020F0: CF 58 59 47 45 4E 22 2C 22 CF 22 2C 32 00 13 29 |.XYGEN",".",2..)|
00002100: CC 06 83 22 C6 4C 55 4F 52 49 4E 45 22 2C 22 C6 |...".LUORINE",".|
00002110: 22 2C 31 00 26 29 D6 06 83 22 CE 45 4F 4E 22 2C |",1.&)...".EON",|
00002120: 22 CE 45 22 2C 30 00 3B 29 E0 06 83 22 D3 4F 44 |".E",0.;)...".OD|
00002130: 49 55 4D 22 2C 22 CE 41 22 2C 31 00 53 29 EA 06 |IUM",".A",1.S)..|
00002140: 83 22 CD 41 47 4E 45 53 49 55 4D 22 2C 22 CD 47 |.".AGNESIUM",".G|
00002150: 22 2C 32 00 6A 29 F4 06 83 22 C1 4C 55 4D 49 4E |",2.j)...".LUMIN|
00002160: 55 4D 22 2C 22 C1 4C 22 2C 33 00 80 29 FE 06 83 |UM",".L",3..)...|
00002170: 22 D3 49 4C 49 43 4F 4E 22 2C 22 D3 49 22 2C 34 |".ILICON",".I",4|
00002180: 00 98 29 08 07 83 22 D0 48 4F 53 50 48 4F 52 55 |..)...".HOSPHORU|
00002190: 53 22 2C 22 D0 22 2C 33 00 B1 29 12 07 83 22 D3 |S",".",3..)...".|
000021A0: 55 4C 50 48 55 52 22 2C 22 D3 22 2C 22 32 26 34 |ULPHUR",".","2&4|
000021B0: 22 00 C8 29 1C 07 83 22 C3 48 4C 4F 52 49 4E 45 |"..)...".HLORINE|
000021C0: 22 2C 22 C3 4C 22 2C 31 00 DC 29 26 07 83 22 C1 |",".L",1..)&..".|
000021D0: 52 47 4F 4E 22 2C 22 C1 52 22 2C 30 00 F3 29 30 |RGON",".R",0..)0|
000021E0: 07 83 22 D0 4F 54 41 53 53 49 55 4D 22 2C 22 CB |..".OTASSIUM",".|
000021F0: 22 2C 31 00 09 2A 3A 07 83 22 C3 41 4C 43 49 55 |",1..*:..".ALCIU|
00002200: 4D 22 2C 22 C3 41 22 2C 32 00 0F 2A 44 07 80 00 |M",".A",2..*D...|
00002210: 00 00 |.. |
.......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...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UJ.UL."...UJ$.US$:UK$.UG$:U
J.UP:UK.UL.(.....9.,.. ** MENU **.?.-.:.
N....".":.UT,UU%:.B(50003).0..53281,9:.5
3280,8.T./.:...1..". MENU
"...6.." -------------------------------
-------"...;..".. 1. BEGIN PERIO
DIC TABLE"...@..".. 2. STUDENT I
NSTRUCTIONS".>.E..".. 3. TEACHER
INSTRUCTIONS".Z.O..".. 4. QUIT.
."...T.." ------------------------------
--------"...Y..".. PRESS A NUMBER
KEY (1-4) ";...^.UL.1:US$."1234":.35:. I
NPUT ROUTINE...`.US$.""...C..E(UR$).1000
,400,500,396...H..300.4.... ** RE-ENABLE
STOP KEY AND END **.C....B(50003)..1.B(
50003)..160.B(50003)..0.399......UU.71:.
B(50003).0..53281,6:.53280,14......"..":
.......875:..E.... ** STUDENT INSTRUCTIO
NS **......".":.UT,UL%:.B(50003).0..5328
1,0:.53280,0.....UP.0:UG$."STUDENT INST"
:.850......1170.3....UZ.1..UP%:.217.9...
..Z.... ** TEACHER INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,2:.53280,
10.....UP.0:UG$."TEACHER INST":.850.Y...
.".. TO THE BEST OF OUR KNOWLEDGE,.
"......" THIS PROGRAM IS IN THE PUBLIC
."......" DOMAIN. IF THIS IS NOT THE
CASE.".K...." PLEASE CONTACT:...".U...
." COMMODORE BUSINESS MACHINES."...
..." 3370 PHARMACY AVE......."
AGINCOURT, ONTARIO"......"
CANADA M1W 2K4"......" (
416) 499-4292".....UP.1:. 835:. 850:.>..
.." ..PROGRAM NAME: PERODIC TABLE..K
...." WRITTEN BY : STEPHEN WOROSZCZ
UK......." UPGRADED BY : ..
....." .THIS PROGRAM WILL RUN ON ANY
...Z...." PET 64 COMPUTER.......
" COMMODORE 64 COMPUTER......835
...N..UZ.1..UP%:.217.".W...H.X.. ** PROG
RAM MODIFICATION INST **.Y.Y..".":.UT,UL
%.Y.].UP.0:UG$."PROGRAM MOD":.850......8
35......UZ.1..UP%:.217.......A.... ** TO
USE 8032 LOAD CBM4032 **...F..".....BEF
ORE RUNNING THIS PROGRAM ON AN 8032 ...
-.P.." LOAD THE 'CBM 4032' PROGRAM.
............".8.Z..UU.71.>.....^. .. **
T I T L E P A G E **...".."....";:.UT,
UU%:.B(50003).0..53280,14:.53281,6...$..
I.1.38:."...";:....&..I.1.22:.".....";:.
.X.(..I.1.37:.".....";:....*..I.1.22:.".
....";:....,..".........................
.. ..7...."................... . . ...
X.0.."................... . ....V.2..".
................... ....4.."...........
...C O M M O D O R E...A.6.."...........
....EDUCATIONAL.....8.."................
SOFTWARE...:.. ** COMMODORE LOGO **.3.;.
.H(UD$,24);"..........PRESS SPACE BAR OR
WAIT.":I.0.U.<..A$:.A$.." ".I.I.1:.I.25
0.828.Y.>.T1$."":T2$."":T3$."":T4$."":I.
0...@..300...C.. ** SPACE BAR PRESS **.Y
.H..UO,0:.H(UD$,24);".......PRESS SPACE
BAR TO CONTINUE."...L..UI$:.UI$.." ".844
...N.....R.. ** PAGE DESIGN ROUTINE **."
.T.UP.UP.1.L.W.."."H(UT$.UP$,21);I(UP$.U
G$.D(UP),18).{.\.." --------------------
------------------"...`..UH..0.870...A..
H(UD$,24);H(UP$,6);"HELP - PRESS H <RE
TURN>".O.F.UH.0:."..":....K.. ** PLEASE
WAIT REMARK **.$.P..H(UD$,24);"
ONE MOMENT PLEASE... ".*.U...G....
** SET UP VARIABLES **.....UX$."H":.UQ%
(1000):UB.32768:U1.196:U2.197:U3.198:U4.
216:UC.167:UU.1024.P...UT.59468:UU%.12:U
L%.14:UP%.1146:UM.32768:UO.158:. 50003,0
......B(50003).0.UB.1024:U1.209:U2.210:U
3.211:U4.214:UC.204:UU.2048.R....B(50003
).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.1
024:UO.198.V...UD$."....................
.....".....UP$."
".....UT$." PERIODIC TABL
E ":. PLACE PROGRAM TITLE HERE !!!!!!
!!!!!!!!!!!***............ ** SET VARIAB
LES **.0....E$(20),S$(20),V$(20).9....90
0.T.... ** CHECK FOR 8032 **.R....".":."
":. SHIFTED SPACE......B(UB.40)..96..70
0...... ** MEMORY CHECK **...... .(0).20
00.937......"....THIS MACHINE DOES NOT H
AVE ENOUGH."......"MEMORY TO RUN THIS PR
OGRAM !"......UU.71.......3...."..":.B(5
0003).0.962.B.... ** BASIC 2.0 OR 4.0
OR C-64 SETUP **. ....1075,133:.1076,1
44:.1077,234:.1079,4:.1080,133:.1081,145
.V....1091,155:.1098,133:.1099,144:.1100
,234:.1103,133......1104,145:.1105,234:.
1082,234......B(50003)..160.955.>....109
3,88:.1094,228:.1097,85:.1102,228:.965.S
....B(50003)..1.990......1093,49:.1094,2
30:.1097,46:.1102,230:.965...B..2099,141
:.2100,20:.2101,3:.2103,8:.2104,141:.210
5,21...C..2106,3:.2115,145:.2117,52:.211
8,234:.2121,49:.2122,141.2.D..2123,20:.2
124,3:.2126,234:.2127,141:.2128,21:.2129
,3.P.E..UU.48:. DISABLE STOP KEY.A.J..80
0:. TITLE.Q.T..300:. MENU......".THE PGM
WILL NOT WORK ON THIS MACHINE!":..W....
UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS
HERE **......"..";:.:.B(50003).0..53281,
6:.53280,14.....A.0:R.0:N.0:UP.0."....13
40...L..UT,UL%.?.V..".........".{.T...5)
;"*";.34);"*":..5);"********************
**********"...~..:..2);"BY STEPHEN WOROS
ZCZUK INC.":." FORT WILLIAM COLLEG.N...
. INSTRUCTIONS......".. THE AIM OF THIS
PROGRAM IS TO AID YOU.( ...". IN THE LEA
RNING OF THE SYMBOLS AND.R ...". VALENCE
S OF THE FIRST 20 ELEMENTS.Q ...". OF TH
E PERIODIC TABLE... ...". YOU WILL BE GI
VEN AN ELEMENT NAME OR A".Q ...". SYMBOL
. YOU WILL HAVE TO GIVE THE OTHER..!..."
AS WELL AS THE VALENCE OF THE ELEMENT."
:.835:.850.F!D..".. FOR EXAMPLE:":..14);
"THE ELEMENT IS SODIUM.":..14).}!N.."WHA
T IS ITS SYMBOL? NA":..14);"THAT IS CORR
ECT."..!X...14);"WHAT IS ITS VALENCE? 1"
:..14);"THAT IS CORRECT."..!...:." NOTE:
FOR MULTIPLE VALENCES USE".."..."
'&' ONLY (NO SPACES) TO".;"..
." SEPARATE THE NUMBERS..F"..
." FOR EXAMPLE: SULFUR IS".~
"..." 2&4.".."(..835:..J"<.UP
.0:.UT,UL%:."..... HOW MANY QUESTIONS D
O YOU WANT? ..";.."A.US$."1234567890":
UL.2:.35..#F.A.E(UR$):.A.20 . A.1 . 1340
.;#P..".... WHAT IS THE HIGHEST NUMBER E
LEMENT YOU".[#U.." WOULD LIKED TO BE ASK
ED"..#Z.."...... (20 ELEMENTS) ? .
....";..#D.UL.2:US$."1234567890":.35.A#N
.B.E(UR$):.B.20 .B.1.1370..#...:.UT,UL%:
.J.1.B:.E$(J),S$(J),V$(J):.J..#... Q.1.A
..$..UG$."":UP.Q:.850.7$ .Y.Y.1:."....";
.10);R;"RIGHT OUT OF";N.C$..X..(B..(1).1
):Z..(2..(1).1):. Z.2 .1520..$..N.N.1:."
. THE ELEMENT IS: ";E$(X):.". WHAT IS IT
S SYMBOL? ";..$..UL.15:US$."":.35:A$.UR$
..$... A$.S$(X). .". THAT IS CORRECT.":R
.R..5:.1490.0%H..". THAT IS INCORRECT.
THE SYMBOL IS:":.".".15);S$(X):..P%R..".
WHAT IS ITS VALENCE? ";.V%W.UL.0:US$."0
123456789&":.35:A$.UR$..%... A$.V$(X). .
". THAT IS CORRECT.":R.R..5:.1580..%..."
. THAT IS INCORRECT THE VALENCE IS:":.".
".15);V$(X):.1580.*&..N.N.1:.". THE SYMB
OL IS: ";S$(X):.". WHAT IS THE ELEMENT?
";.E&..UL.0:US$."":.35:A$.UR$.Z&... A$.E
$(X) . .". THAT IS CORRECT.":R.R..5:. 15
50..&...". THAT IS INCORRECT. THE ELEME
NT IS:":.".".15);E$(X):..X&...". WHAT IS
ITS VALENCE? ";..&..UL.0:US$."012345678
9&":.35:A$.UR$.1'... A$.V$(X). .". THAT
IS CORRECT.":R.R..5:.1580.J'"..". THAT I
S INCORRECT THE VALENCE IS:":.:..15);V$(
X).{',..835:.".":.Q..'6.."..... YOUR PER
CENTAGE WAS: ";:S..(R.100.A):.S;".%".D'@
.."........"..'T..S..80.." NOT BAD.":.16
55..(^..S..90.." VERY GOOD":.1655.#(H..S
..99.." EXCELLENT!!!":.1655.H(R..S.100..
" EINSTEIN MOVE OVER!!!".S(W..835:..I(|.
."HYDROGEN","H",1.~(..."HELIUM","HE",0..
(..."LITHIUM","LI",1..(..."BERYLLIUM","B
E",2..(..."BORON","B",3.S(..."CARBON","C
",4..(..."NITROGEN","N",3..(B.."OXYGEN",
"O",2..)L.."FLUORINE","F",1.&)V.."NEON",
"NE",0.;)..."SODIUM","NA",1.S)..."MAGNES
IUM","MG",2.J)..."ALUMINUM","AL",3..)...
"SILICON","SI",4..)..."PHOSPHORUS","P",3
..)..."SULPHUR","S","2&4".H)..."CHLORINE
","CL",1..)&.."ARGON","AR",0..)0.."POTAS
SIUM","K",1..*:.."CALCIUM","CA",2..*D...
..
> CLICK IMAGE PREVIEW FOR FULL MODAL