ELEMENTEN-104
FILE INFORMATION
FILENAME(S): ELEMENTEN-104
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 21:15:47
APPEARS ON: 1 disk(s)
FILE HASH
778afb41c1aae3b3c70fcaaf60a0cda50892613bf35283a4e5e9d0bb8a6b11e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN EDUCA 02 | ELEMENTEN-104 | PRG | DuncanTwain | 25 | 4 | 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 3D 0A 2D 00 97 55 43 2C 30 00 51 0A |.80.=.-..UC,0.Q.|
00000240: 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 |2..UI$:.UI$."".5|
00000250: 30 00 7B 0A 37 00 8B 55 49 24 B2 C7 28 31 33 29 |0.{.7..UI$..(13)|
00000260: AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 |..(UR$)..1..UC,1|
00000270: 3A 99 22 20 9D 22 3B 3A 89 38 35 00 8E 0A 3C 00 |:." .";:.85...<.|
00000280: 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 A2 |.UI$..(20).105..|
00000290: 0A 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 |.>.. .(UR$)..UL.|
000002A0: 35 30 00 C7 0A 41 00 8D 31 32 30 3A 8F 20 43 48 |50...A..120:. CH|
000002B0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002C0: 41 52 41 43 54 45 52 00 D7 0A 46 00 55 52 24 B2 |ARACTER...F.UR$.|
000002D0: 55 52 24 AA 55 49 24 00 E1 0A 4B 00 99 55 49 24 |UR$.UI$...K..UI$|
000002E0: 3B 00 E9 0A 50 00 89 35 30 00 0E 0B 55 00 8F 20 |;...P..50...U.. |
000002F0: 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 |+++ CHECK FOR HE|
00000300: 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 36 |LP REQUEST +++.6|
00000310: 0B 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A |.Z..UR$.UX$.195:|
00000320: 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 |. EXIT TO HELP R|
00000330: 4F 55 54 49 4E 45 00 45 0B 5F 00 8B 55 46 B2 31 |OUTINE.E._..UF.1|
00000340: A7 8D 32 34 30 00 52 0B 64 00 55 46 B2 30 3A 99 |..240.R.d.UF.0:.|
00000350: 3A 8E 00 6B 0B 66 00 8F 20 2B 2B 20 43 48 45 43 |:..k.f.. ++ CHEC|
00000360: 4B 20 44 45 4C 45 54 45 20 2B 2B 00 7C 0B 69 00 |K DELETE ++.|.i.|
00000370: 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 94 0B 6E |..(UR$).1.50...n|
00000380: 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 |.UR$..(UR$,.(UR$|
00000390: 29 AB 31 29 00 A6 0B 73 00 99 22 9D 20 20 9D 9D |).1)...s..". ..|
000003A0: 22 3B 3A 89 35 30 00 CD 0B 78 00 8F 20 2B 2B 20 |";:.50...x.. ++ |
000003B0: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000003C0: 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 DF 0B |CHARACTERS ++...|
000003D0: 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 |}...(US$).0.150.|
000003E0: EF 0B 7F 00 55 53 24 B2 55 53 24 AA 55 58 24 00 |....US$.US$.UX$.|
000003F0: 00 0C 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 |.....US.1..(US$)|
00000400: 00 17 0C 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C |......UI$..(US$,|
00000410: 55 53 2C 31 29 A7 8E 00 1D 0C 8C 00 82 00 2A 0C |US,1).........*.|
00000420: 91 00 55 49 24 B2 22 22 3A 8E 00 45 0C 96 00 8F |..UI$."":..E....|
00000430: 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 | ** STANDARD INP|
00000440: 55 54 20 2A 2A 00 56 0C 98 00 8B C6 28 55 49 24 |UT **.V.....(UI$|
00000450: 29 B2 34 36 A7 8E 00 67 0C 9B 00 8B 55 49 24 B2 |).46...g....UI$.|
00000460: C7 28 33 32 29 A7 8E 00 84 0C A0 00 8B C6 28 55 |.(32).........(U|
00000470: 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 |I$).48..(UI$).57|
00000480: A7 31 37 30 00 8A 0C A5 00 8E 00 A7 0C AA 00 8B |.170............|
00000490: C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 |.(UI$).65..(UI$)|
000004A0: B1 39 30 A7 31 38 30 00 AD 0C AF 00 8E 00 D1 0C |.90.180.........|
000004B0: B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 |....(UI$).193..(|
000004C0: 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A |UI$).218.UI$."":|
000004D0: 8E 00 F4 0C B9 00 8B C2 28 55 54 29 B2 55 55 25 |........(UT).UU%|
000004E0: A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 |.UI$..(.(UI$).12|
000004F0: 38 29 3A 8E 00 FA 0C BB 00 8E 00 07 0D BE 00 55 |8):............U|
00000500: 49 24 B2 22 22 3A 8E 00 2C 0D C3 00 55 46 B2 31 |I$."":..,...UF.1|
00000510: 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 |:. +++ HELP ROUT|
00000520: 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 35 0D C5 |INE EXIT +++.5..|
00000530: 00 8D 32 35 30 00 3E 0D C8 00 8D 32 34 35 00 5D |..250.>....245.]|
00000540: 0D CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 |....UQ.UB.(U2%.2|
00000550: 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 79 0D |56.U1%.U3%.2).y.|
00000560: D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 |..UQ%(UQ.UB)..(U|
00000570: 51 29 3A 82 3A 99 22 93 22 00 8C 0D D7 00 55 5A |Q):.:.".".....UZ|
00000580: B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 95 0D D8 |.1:UV%..(UT)....|
00000590: 00 89 33 30 30 00 D9 0D D9 00 55 5A B2 30 3A 55 |..300.....UZ.0:U|
000005A0: 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 |S$.UJ$:UG$.UK$:U|
000005B0: 50 B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 35 30 |P.UJ:UL.UK:..(50|
000005C0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
000005D0: 97 35 33 32 38 30 2C 31 34 00 0E 0E DC 00 55 54 |.53280,14.....UT|
000005E0: 24 B2 55 4C 24 3A 99 22 93 22 3B 3A 97 55 54 2C |$.UL$:.".";:.UT,|
000005F0: 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC |UV%:.UQ.UB.(U2%.|
00000600: 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 23 |256.U1%.U3%.3).#|
00000610: 0E E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
00000620: 29 3A 82 00 2F 0E E6 00 97 55 31 2C 55 31 25 00 |):../....U1,U1%.|
00000630: 3B 0E E8 00 97 55 32 2C 55 32 25 00 47 0E E9 00 |;....U2,U2%.G...|
00000640: 97 55 34 2C 55 34 25 00 55 0E EA 00 97 55 33 2C |.U4,U4%.U....U3,|
00000650: 55 33 25 AB 31 00 5D 0E EB 00 89 33 35 00 8F 0E |U3%.1.]....35...|
00000660: F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA |..UD%.((U2%.256.|
00000670: 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A |U1%.U3%).UB).40:|
00000680: 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 |..(UD$,UD%.1):..|
00000690: CA 0E F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 |......(UD$,24);"|
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 12 20 49 4B 20 53 54 4F 50 20 | . IK STOP |
000006C0: 20 20 20 20 92 20 20 22 3A 8E 00 F6 0E FA 00 55 | . ":......U|
000006D0: 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 |1%..(U1):U2%..(U|
000006E0: 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 |2):U3%..(U3):U4%|
000006F0: B2 C2 28 55 34 29 00 1E 0F FB 00 55 4A 24 B2 55 |..(U4).....UJ$.U|
00000700: 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 |S$:UK$.UG$:UL$.U|
00000710: 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 24 |T$:UJ.UP:UK.UL.$|
00000720: 0F FF 00 8E 00 35 0F 2C 01 8F 20 2A 2A 20 4D 45 |.....5.,.. ** ME|
00000730: 4E 55 20 2A 2A 00 3B 0F 2D 01 3A 00 6A 0F 2E 01 |NU **.;.-.:.j...|
00000740: 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |.".":.UT,UU%:..(|
00000750: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000760: 39 3A 97 35 33 32 38 30 2C 38 00 70 0F 2F 01 3A |9:.53280,8.p./.:|
00000770: 00 8D 0F 31 01 99 22 13 20 20 20 20 20 20 20 20 |...1..". |
00000780: 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 BC 0F | MENU"...|
00000790: 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6.." -----------|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E5 0F 3B |-----------"...;|
000007C0: 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 |..".. 1. |
000007D0: 20 42 45 47 49 4E 20 45 4C 45 4D 45 4E 54 45 4E | BEGIN ELEMENTEN|
000007E0: 2D 31 30 34 22 00 0F 10 40 01 99 22 11 11 20 20 |-104"...@..".. |
000007F0: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
00000800: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
00000810: 39 10 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |9.E..".. 3|
00000820: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
00000830: 52 55 43 54 49 4F 4E 53 22 00 55 10 4F 01 99 22 |RUCTIONS".U.O.."|
00000840: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 |.. 4. QU|
00000850: 49 54 11 11 22 00 84 10 54 01 99 22 20 2D 2D 2D |IT.."...T.." ---|
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000880: 2D 2D 2D 22 00 AF 10 59 01 99 22 11 11 20 20 20 |---"...Y..".. |
00000890: 20 20 20 20 4B 49 45 53 20 45 45 4E 20 4E 55 4D | KIES EEN NUM|
000008A0: 4D 45 52 20 20 20 20 28 31 2D 34 29 20 22 3B 00 |MER (1-4) ";.|
000008B0: D7 10 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 |..^.UL.1:US$."12|
000008C0: 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 |34":.35:. INPUT |
000008D0: 52 4F 55 54 49 4E 45 00 E9 10 5F 01 8B C3 28 55 |ROUTINE..._...(U|
000008E0: 52 24 29 B1 31 A7 33 30 30 00 F4 10 60 01 55 53 |R$).1.300...`.US|
000008F0: 24 B2 22 22 00 11 11 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
00000900: 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 |.1000,400,500,39|
00000910: 36 00 1A 11 68 01 89 33 30 30 00 41 11 8B 01 8F |6...h..300.A....|
00000920: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000930: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000940: 2A 00 70 11 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.p.....(50003).|
00000950: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000960: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000970: 00 9A 11 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5|
00000980: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000990: 3A 97 35 33 32 38 30 2C 31 34 00 A6 11 8E 01 99 |:.53280,14......|
000009A0: 22 9A 93 22 3A 80 00 B1 11 8F 01 8D 38 37 35 3A |"..":.......875:|
000009B0: 8E 00 D2 11 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000009C0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
000009D0: 2A 2A 00 01 12 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
000009E0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000009F0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
00000A00: 30 00 22 12 9A 01 55 50 B2 30 3A 55 47 24 B2 22 |0."...UP.0:UG$."|
00000A10: D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 |.TUDENT .NST":.8|
00000A20: 35 30 00 51 12 A0 01 99 22 20 11 C4 49 54 20 50 |50.Q...." ..IT P|
00000A30: 52 4F 47 52 41 4D 4D 41 20 57 49 4C 20 4A 45 20 |ROGRAMMA WIL JE |
00000A40: 48 45 4C 50 45 4E 20 44 45 20 4A 55 49 53 54 45 |HELPEN DE JUISTE|
00000A50: 22 00 80 12 A1 01 99 22 20 11 53 59 4D 42 4F 4C |"......" .SYMBOL|
00000A60: 45 4E 20 56 41 4E 20 44 45 20 31 30 34 20 42 45 |EN VAN DE 104 BE|
00000A70: 4B 45 4E 44 45 20 45 4C 45 4D 45 4E 54 45 4E 22 |KENDE ELEMENTEN"|
00000A80: 00 94 12 A2 01 99 22 20 11 54 45 20 4C 45 52 45 |......" .TE LERE|
00000A90: 4E 2E 11 22 00 C2 12 A4 01 99 22 20 CF 50 20 48 |N.."......" .P H|
00000AA0: 45 54 20 53 43 48 45 52 4D 20 56 45 52 53 43 48 |ET SCHERM VERSCH|
00000AB0: 49 4A 4E 54 20 44 45 20 4E 41 41 4D 20 56 41 4E |IJNT DE NAAM VAN|
00000AC0: 20 22 00 EF 12 AE 01 99 22 20 11 45 45 4E 1D 45 | "......" .EEN.E|
00000AD0: 4C 45 4D 45 4E 54 2E C1 41 4E 20 4A 4F 55 20 44 |LEMENT..AN JOU D|
00000AE0: 45 20 54 41 41 4B 20 48 45 54 20 53 59 4D 2D 00 |E TAAK HET SYM-.|
00000AF0: 1D 13 B8 01 99 22 20 11 42 4F 4F 4C 20 56 41 4E |....." .BOOL VAN|
00000B00: 20 44 41 54 20 45 4C 45 4D 45 4E 54 20 54 45 20 | DAT ELEMENT TE |
00000B10: 47 45 56 45 4E 2E C1 41 4E 20 48 45 54 00 46 13 |GEVEN..AN HET.F.|
00000B20: BD 01 99 22 20 11 45 49 4E 44 45 20 57 4F 52 44 |..." .EINDE WORD|
00000B30: 54 20 4A 4F 55 57 20 53 43 4F 52 45 20 47 45 47 |T JOUW SCORE GEG|
00000B40: 45 56 45 4E 2E 22 00 73 13 BE 01 99 22 20 11 D7 |EVEN.".s...." ..|
00000B50: 49 4C 20 4A 45 20 4F 4E 44 45 52 42 52 45 4B 45 |IL JE ONDERBREKE|
00000B60: 4E 2C 54 59 50 45 20 3C 48 3E 20 52 45 54 55 52 |N,TYPE <H> RETUR|
00000B70: 4E 2E 22 00 A2 13 BF 01 99 22 20 11 C4 45 4E 4B |N."......" ..ENK|
00000B80: 20 45 52 20 41 41 4E 20 44 41 54 20 44 45 20 45 | ER AAN DAT DE E|
00000B90: 45 52 53 54 45 20 4C 45 54 54 45 52 20 45 45 4E |ERSTE LETTER EEN|
00000BA0: 20 22 00 BF 13 C0 01 99 22 20 11 48 4F 4F 46 44 | "......" .HOOFD|
00000BB0: 4C 45 54 54 45 52 20 49 53 20 21 20 20 20 22 00 |LETTER IS ! ".|
00000BC0: C8 13 E5 01 8D 38 33 35 00 DC 13 EA 01 8B 55 5A |.....835......UZ|
00000BD0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 E2 13 F3 |.1..UP%:.217....|
00000BE0: 01 8E 00 03 14 F4 01 8F 20 2A 2A 20 54 45 41 43 |........ ** TEAC|
00000BF0: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000C00: 20 2A 2A 00 33 14 F5 01 99 22 93 22 3A 97 55 54 | **.3....".":.UT|
00000C10: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
00000C20: A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 |..53281,2:.53280|
00000C30: 2C 31 30 00 54 14 F6 01 55 50 B2 30 3A 55 47 24 |,10.T...UP.0:UG$|
00000C40: B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A |.".EACHER .NST":|
00000C50: 8D 38 35 30 00 82 14 F7 01 99 22 11 11 20 20 20 |.850......".. |
00000C60: 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F | .O THE BEST O|
00000C70: 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C |F OUR KNOWLEDGE,|
00000C80: 11 22 00 AB 14 F8 01 99 22 20 20 20 54 48 49 53 |."......" THIS|
00000C90: 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 | PROGRAM IS IN T|
00000CA0: 48 45 20 50 55 42 4C 49 43 11 22 00 D7 14 F9 01 |HE PUBLIC.".....|
00000CB0: 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 |." DOMAIN. .F|
00000CC0: 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 | THIS IS NOT THE|
00000CD0: 20 43 41 53 45 11 22 00 F4 14 FA 01 99 22 20 20 | CASE."......" |
00000CE0: 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A | PLEASE CONTACT:|
00000CF0: 11 11 11 22 00 1E 15 FB 01 99 22 20 20 20 20 20 |..."......" |
00000D00: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E | .OMMODORE .USIN|
00000D10: 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 41 |ESS .ACHINES.".A|
00000D20: 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 33 |...." 3|
00000D30: 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 |370 .HARMACY .VE|
00000D40: 2E 00 65 15 FD 01 99 22 20 20 20 20 20 20 20 20 |..e...." |
00000D50: 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 | .GINCOURT, .NT|
00000D60: 41 52 49 4F 22 00 87 15 FE 01 99 22 20 20 20 20 |ARIO"......" |
00000D70: 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD | .ANADA .|
00000D80: 31 D7 20 32 CB 34 22 00 A7 15 FF 01 99 22 20 20 |1. 2.4"......" |
00000D90: 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 | (416) 49|
00000DA0: 39 2D 34 32 39 32 22 00 BD 15 00 02 55 50 B2 31 |9-4292".....UP.1|
00000DB0: 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 E7 15 |:. 835:. 850:...|
00000DC0: 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 |..." ...ROGR|
00000DD0: 41 4D 20 CE 41 4D 45 3A 20 C5 4C 45 4D 45 4E 54 |AM .AME: .LEMENT|
00000DE0: 53 20 20 20 20 20 11 00 10 16 02 02 99 22 20 20 |S ......." |
00000DF0: 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A | .RITTEN .Y :|
00000E00: 20 D7 49 4C 4C 49 41 4D 20 D3 59 4D 4F 4E 53 11 | .ILLIAM .YMONS.|
00000E10: 00 3A 16 03 02 99 22 20 20 20 20 20 D5 50 47 52 |.:...." .PGR|
00000E20: 41 44 45 44 20 C2 59 20 3A 20 C7 45 52 42 52 41 |ADED .Y : .ERBRA|
00000E30: 4E 44 20 C2 45 45 4B 4D 41 4E 00 65 16 04 02 99 |ND .EEKMAN.e....|
00000E40: 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 |" ..HIS PROG|
00000E50: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON |
00000E60: 41 4E 59 11 11 00 8C 16 05 02 99 22 20 20 20 20 |ANY........" |
00000E70: 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 | ......2.0 .|
00000E80: C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 B3 16 06 |.. .............|
00000E90: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....|
00000EA0: C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 |. 4.0 ..........|
00000EB0: C5 D2 11 00 D5 16 07 02 99 22 20 20 20 20 20 20 |........." |
00000EC0: 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 | 8032 ... ....|
00000ED0: D5 D4 C5 D2 11 00 FA 16 08 02 99 22 20 20 20 20 |..........." |
00000EE0: 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 | ......... 6|
00000EF0: 34 20 C3 CF CD D0 D5 D4 C5 D2 00 09 17 09 02 8D |4 ..............|
00000F00: 38 33 35 3A 8D 20 38 35 30 00 36 17 26 02 99 22 |835:. 850.6.&.."|
00000F10: 11 11 11 20 20 D4 48 49 53 20 49 53 20 41 20 44 |... .HIS IS A D|
00000F20: 52 49 4C 4C 20 50 52 4F 47 52 41 4D 20 49 4E 20 |RILL PROGRAM IN |
00000F30: 57 48 49 43 48 22 00 63 17 2B 02 99 22 11 20 20 |WHICH".c.+..". |
00000F40: 54 48 45 20 55 53 45 52 20 43 41 4E 20 43 48 4F |THE USER CAN CHO|
00000F50: 4F 53 45 20 57 48 49 43 48 20 45 4C 45 4D 45 4E |OSE WHICH ELEMEN|
00000F60: 54 53 22 00 90 17 30 02 99 22 11 20 20 4F 46 20 |TS"...0..". OF |
00000F70: 54 48 45 20 50 45 52 49 4F 44 49 43 20 54 41 42 |THE PERIODIC TAB|
00000F80: 4C 45 20 48 45 2F 53 48 45 20 57 4F 55 4C 44 22 |LE HE/SHE WOULD"|
00000F90: 00 AF 17 35 02 99 22 11 20 20 4C 49 4B 45 20 54 |...5..". LIKE T|
00000FA0: 4F 20 42 45 20 54 45 53 54 45 44 20 4F 4E 2E 00 |O BE TESTED ON..|
00000FB0: B8 17 44 02 8D 38 33 35 00 CC 17 4E 02 8B 55 5A |..D..835...N..UZ|
00000FC0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 D2 17 57 |.1..UP%:.217...W|
00000FD0: 02 8E 00 F8 17 58 02 8F 20 2A 2A 20 50 52 4F 47 |.....X.. ** PROG|
00000FE0: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00000FF0: 20 49 4E 53 54 20 2A 2A 00 09 18 59 02 99 22 93 | INST **...Y..".|
00001000: 22 3A 97 55 54 2C 55 4C 25 00 29 18 5D 02 55 50 |":.UT,UL%.).].UP|
00001010: B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 |.0:UG$.".ROGRAM |
00001020: CD 4F 44 22 3A 8D 38 35 30 00 32 18 94 02 8D 38 |.OD":.850.2....8|
00001030: 33 35 00 46 18 B2 02 8B 55 5A B2 31 A7 9E 55 50 |35.F....UZ.1..UP|
00001040: 25 3A 89 32 31 37 00 4C 18 BB 02 8E 00 71 18 BC |%:.217.L.....q..|
00001050: 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803|
00001060: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *|
00001070: 2A 00 A7 18 C6 02 99 22 93 11 11 11 05 42 45 46 |*......".....BEF|
00001080: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS|
00001090: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8|
000010A0: 30 33 32 20 20 11 11 00 DD 18 D0 02 99 22 20 20 |032 ........" |
000010B0: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB|
000010C0: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.|
000010D0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 E8 18 |............"...|
000010E0: DA 02 9E 55 55 AA 37 31 00 EE 18 E4 02 80 00 13 |...UU.71........|
000010F0: 19 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 |.... ** TO USE 8|
00001100: 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 |032 LOAD CBM4032|
00001110: 20 2A 2A 00 5E 19 1E 03 99 22 93 11 11 11 42 45 | **.^...."....BE|
00001120: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI|
00001130: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN |
00001140: 38 30 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D |8032 ..LOAD CBM|
00001150: 20 34 30 33 32 20 50 52 4F 47 52 41 4D 22 00 6A | 4032 PROGRAM".j|
00001160: 19 1F 03 9E 31 30 39 33 3A 80 00 8A 19 20 03 8F |....1093:.... ..|
00001170: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E |
00001180: 50 20 41 20 47 20 45 20 2A 2A 00 BE 19 22 03 99 |P A G E **..."..|
00001190: 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A |"....";:.UT,UU%:|
000011A0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000011B0: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 D4 |80,14:.53281,6..|
000011C0: 19 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...|
000011D0: 22 3B 3A 82 00 EC 19 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22|
000011E0: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 04 1A 28 |:.".....";:....(|
000011F0: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....|
00001200: 22 3B 3A 82 00 1C 1A 2A 03 81 49 B2 31 A4 32 32 |";:....*..I.1.22|
00001210: 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 41 1A 2C |:.".....";:..A.,|
00001220: 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |..".............|
00001230: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 |.............. |
00001240: 92 00 63 1A 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..c...."........|
00001250: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00001260: 20 92 A9 00 84 1A 30 03 99 22 1D 1D 1D 1D 1D 1D | .....0.."......|
00001270: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00001280: 20 12 A3 DF 00 A2 1A 32 03 99 22 1D 1D 1D 1D 1D | ......2..".....|
00001290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |............... |
000012A0: 20 92 00 CA 1A 34 03 99 22 11 11 1D 1D 1D 1D 1D | ....4..".......|
000012B0: 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F |.......C O M M O|
000012C0: 20 44 20 4F 20 52 20 45 11 11 00 ED 1A 36 03 99 | D O R E.....6..|
000012D0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000012E0: 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 0C 1B |EDUCATIONAL.....|
000012F0: 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |8.."............|
00001300: 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 27 1B 39 |....SOFTWARE.'.9|
00001310: 03 99 3A 99 A3 31 34 29 22 45 4C 45 4D 45 4E 54 |..:..14)"ELEMENT|
00001320: 45 4E 2D 31 30 34 22 00 42 1B 3A 03 8F 20 2A 2A |EN-104".B.:.. **|
00001330: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00001340: 2A 2A 00 7A 1B 3B 03 99 C8 28 55 44 24 2C 32 34 |**.z.;...(UD$,24|
00001350: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 44 |);"............D|
00001360: 52 55 4B 20 4F 50 20 44 45 20 53 50 41 54 49 45 |RUK OP DE SPATIE|
00001370: 42 41 4C 4B 92 22 3A 49 B2 30 00 9C 1B 3C 03 A1 |BALK.":I.0...<..|
00001380: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
00001390: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 C0 1B 3E |1:.I.250.828...>|
000013A0: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
000013B0: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
000013C0: 00 C9 1B 40 03 89 33 30 30 00 E5 1B 43 03 8F 20 |...@..300...C.. |
000013D0: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
000013E0: 53 53 20 2A 2A 00 20 1C 48 03 97 20 55 4F 2C 30 |SS **. .H.. UO,0|
000013F0: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |:..(UD$,24);"...|
00001400: 12 44 52 55 4B 20 4F 50 20 44 45 20 53 50 41 54 |.DRUK OP DE SPAT|
00001410: 49 45 42 41 4C 4B 20 20 92 20 20 20 20 20 20 22 |IEBALK . "|
00001420: 00 37 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.7.L..UI$:.UI$..|
00001430: 22 20 22 A7 38 34 34 00 3D 1C 4E 03 8E 00 5D 1C |" ".844.=.N...].|
00001440: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00001450: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 69 1C |GN ROUTINE **.i.|
00001460: 54 03 55 50 B2 55 50 AA 31 00 93 1C 57 03 99 22 |T.UP.UP.1...W.."|
00001470: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
00001480: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
00001490: 31 38 29 00 C2 1C 5C 03 99 22 20 2D 2D 2D 2D 2D |18)...\.." -----|
000014A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014C0: 2D 22 00 D1 1C 60 03 8B 55 48 B3 B1 30 A7 38 37 |-"...`..UH..0.87|
000014D0: 30 00 04 1D 61 03 99 C8 28 55 44 24 2C 32 34 29 |0...a...(UD$,24)|
000014E0: 3B C8 28 55 50 24 2C 37 29 3B 22 53 54 4F 50 20 |;.(UP$,7);"STOP |
000014F0: 2D 20 44 52 55 4B 20 20 20 48 20 3C 52 45 54 55 |- DRUK H <RETU|
00001500: 52 4E 3E 22 00 15 1D 66 03 55 48 B2 30 3A 99 22 |RN>"...f.UH.0:."|
00001510: 13 11 22 3A 8E 00 34 1D 6B 03 8F 20 2A 2A 20 50 |..":..4.k.. ** P|
00001520: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001530: 4B 20 2A 2A 00 6A 1D 70 03 99 C8 28 55 44 24 2C |K **.j.p...(UD$,|
00001540: 32 34 29 3B 22 20 20 20 20 20 20 45 45 4E 20 4F |24);" EEN O|
00001550: 47 45 4E 42 4C 49 4B 20 2E 2E 2E 2E 2E 2E 2E 2E |GENBLIK ........|
00001560: 2E 2E 2E 2E 2E 2E 20 20 20 22 00 70 1D 75 03 8E |...... ".p.u..|
00001570: 00 8D 1D 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |...... ** SET UP|
00001580: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 D8 1D | VARIABLES **...|
00001590: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
000015A0: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
000015B0: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
000015C0: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
000015D0: 3A 55 55 B2 31 30 32 34 00 16 1E 86 03 55 54 B2 |:UU.1024.....UT.|
000015E0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
000015F0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001600: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
00001610: 30 30 30 33 2C 30 00 59 1E 87 03 8B C2 28 35 30 |0003,0.Y.....(50|
00001620: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001630: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001640: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001650: 34 3A 55 55 B2 32 30 34 38 00 98 1E 88 03 8B C2 |4:UU.2048.......|
00001660: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001670: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001680: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001690: 34 3A 55 4F B2 31 39 38 00 BC 1E 89 03 55 44 24 |4:UO.198.....UD$|
000016A0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000016B0: 11 11 11 11 11 11 11 11 11 11 11 22 00 EE 1E 8A |..........."....|
000016C0: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
000016D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3C | ".<|
000016F0: 1F 8B 03 55 54 24 B2 22 20 C5 CC C5 CD C5 CE D4 |...UT$." .......|
00001700: C5 CE 20 2D 31 30 34 A0 A0 A0 A0 22 3A 8F 20 50 |.. -104....":. P|
00001710: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
00001720: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
00001730: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 42 1F 8C |!!!!!!!!!***.B..|
00001740: 03 8E 00 5C 1F 8E 03 8F 20 2A 2A 20 53 45 54 20 |...\.... ** SET |
00001750: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 65 1F 93 |VARIABLES **.e..|
00001760: 03 8D 39 30 30 00 75 1F 94 03 86 20 48 24 28 31 |..900.u.... H$(1|
00001770: 30 33 2C 33 29 00 7B 1F 95 03 3A 00 96 1F 98 03 |03,3).{...:.....|
00001780: 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 |. ** CHECK FOR 8|
00001790: 30 33 32 20 2A 2A 00 B4 1F 9D 03 99 22 93 22 3A |032 **......".":|
000017A0: 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 |.".":. SHIFTED S|
000017B0: 50 41 43 45 00 CB 1F A2 03 8B C2 28 55 42 AA 34 |PACE.......(UB.4|
000017C0: 30 29 B3 B1 39 36 A7 8D 37 30 30 00 E4 1F A3 03 |0)..96..700.....|
000017D0: 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 |. ** MEMORY CHEC|
000017E0: 4B 20 2A 2A 00 F8 1F A4 03 8B 20 B8 28 30 29 B1 |K **...... .(0).|
000017F0: 32 30 30 30 A7 39 33 37 00 26 20 A5 03 99 22 93 |2000.937.& ...".|
00001800: 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 |...THIS MACHINE |
00001810: 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E |DOES NOT HAVE EN|
00001820: 4F 55 47 48 11 22 00 4A 20 A6 03 99 22 4D 45 4D |OUGH.".J ..."MEM|
00001830: 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 |ORY TO RUN THIS |
00001840: 50 52 4F 47 52 41 4D 20 21 22 00 55 20 A7 03 9E |PROGRAM !".U ...|
00001850: 55 55 AA 37 31 00 5B 20 A8 03 80 00 75 20 A9 03 |UU.71.[ ....u ..|
00001860: 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 |."..":..(50003).|
00001870: 30 A7 39 36 32 00 A4 20 AC 03 8F 20 2A 2A 20 42 |0.962.. ... ** B|
00001880: 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E |ASIC 2.0 OR 4.|
00001890: 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 |0 OR C-64 SETU|
000018A0: 50 20 2A 2A 00 E2 20 AD 03 97 31 30 37 35 2C 31 |P **.. ...1075,1|
000018B0: 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 |33:.1076,144:.10|
000018C0: 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 |77,234:.1079,4:.|
000018D0: 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 |1080,133:.1081,1|
000018E0: 34 35 00 18 21 AE 03 97 31 30 39 31 2C 31 35 35 |45..!...1091,155|
000018F0: 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 |:.1098,133:.1099|
00001900: 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 |,144:.1100,234:.|
00001910: 31 31 30 33 2C 31 33 33 00 3A 21 AF 03 97 31 31 |1103,133.:!...11|
00001920: 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 |04,145:.1105,234|
00001930: 3A 97 31 30 38 32 2C 32 33 34 00 51 21 B1 03 8B |:.1082,234.Q!...|
00001940: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 |.(50003)..160.95|
00001950: 35 00 80 21 B6 03 97 31 30 39 33 2C 38 38 3A 97 |5..!...1093,88:.|
00001960: 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 |1094,228:.1097,8|
00001970: 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 |5:.1102,228:.965|
00001980: 00 95 21 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 |..!....(50003)..|
00001990: 31 A7 39 39 30 00 C4 21 C0 03 97 31 30 39 33 2C |1.990..!...1093,|
000019A0: 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 |49:.1094,230:.10|
000019B0: 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A |97,46:.1102,230:|
000019C0: 89 39 36 35 00 FE 21 C2 03 97 32 30 39 39 2C 31 |.965..!...2099,1|
000019D0: 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 |41:.2100,20:.210|
000019E0: 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 |1,3:.2103,8:.210|
000019F0: 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 3A |4,141:.2105,21.:|
00001A00: 22 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 |"...2106,3:.2115|
00001A10: 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 |,145:.2117,52:.2|
00001A20: 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 |118,234:.2121,49|
00001A30: 3A 97 32 31 32 32 2C 31 34 31 00 74 22 C4 03 97 |:.2122,141.t"...|
00001A40: 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A |2123,20:.2124,3:|
00001A50: 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C |.2126,234:.2127,|
00001A60: 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 |141:.2128,21:.21|
00001A70: 32 39 2C 33 00 92 22 C5 03 9E 55 55 AA 34 38 3A |29,3.."...UU.48:|
00001A80: 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B |. DISABLE STOP K|
00001A90: 45 59 00 A3 22 CA 03 8D 38 30 30 3A 8F 20 54 49 |EY.."...800:. TI|
00001AA0: 54 4C 45 00 B3 22 D4 03 89 33 30 30 3A 8F 20 4D |TLE.."...300:. M|
00001AB0: 45 4E 55 00 E4 22 DE 03 99 22 93 54 48 45 20 50 |ENU.."...".THE P|
00001AC0: 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B |GM WILL NOT WORK|
00001AD0: 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 | ON THIS MACHINE|
00001AE0: 21 22 3A 80 00 19 23 E8 03 8B 55 5A B2 31 A7 9E |!":...#...UZ.1..|
00001AF0: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 |UP%:.UP%:UZ.0:. |
00001B00: 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 |** PROGRAM START|
00001B10: 53 20 48 45 52 45 20 2A 2A 00 45 23 E9 03 99 22 |S HERE **.E#..."|
00001B20: 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 |..";:.:..(50003)|
00001B30: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
00001B40: 38 30 2C 31 34 00 57 23 4C 04 99 22 93 22 3A 97 |80,14.W#L..".":.|
00001B50: 20 55 54 2C 55 4C 25 00 7B 23 56 04 8F 20 2A 20 | UT,UL%.{#V.. * |
00001B60: 57 52 49 54 54 45 4E 20 42 59 20 57 49 4C 4C 49 |WRITTEN BY WILLI|
00001B70: 41 4D 20 53 59 4D 4F 4E 53 20 2A 00 9F 23 60 04 |AM SYMONS *..#`.|
00001B80: 8F 20 2A 20 20 20 20 46 45 42 52 55 41 52 59 20 |. * FEBRUARY |
00001B90: 38 2C 20 31 39 38 31 20 20 20 20 20 20 20 2A 00 |8, 1981 *.|
00001BA0: C3 23 6A 04 8F 20 2A 45 4C 45 4D 45 4E 54 27 53 |.#j.. *ELEMENT'S|
00001BB0: 20 53 59 4D 42 4F 4C 53 20 50 52 41 43 54 49 43 | SYMBOLS PRACTIC|
00001BC0: 45 20 2A 00 E7 23 74 04 8F 20 2A 2A 2A 2A 2A 2A |E *..#t.. ******|
00001BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BE0: 2A 2A 2A 2A 2A 2A 2A 00 0B 24 7E 04 8F 20 2A 20 |*******..$~.. * |
00001BF0: 20 20 20 20 20 20 54 4F 4D 20 46 45 52 47 55 53 | TOM FERGUS|
00001C00: 4F 4E 20 20 20 20 20 20 20 20 2A 00 2F 24 88 04 |ON *./$..|
00001C10: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001C30: 48 24 E2 04 55 47 24 B2 22 22 3A 8D 20 38 35 30 |H$..UG$."":. 850|
00001C40: 3A 99 22 13 11 11 11 22 00 70 24 EC 04 99 22 20 |:."....".p$..." |
00001C50: 20 D7 45 4C 4B 45 20 45 4C 45 4D 45 4E 54 45 4E | .ELKE ELEMENTEN|
00001C60: 20 57 49 4C 20 4A 45 20 4F 45 46 45 4E 45 4E 22 | WIL JE OEFENEN"|
00001C70: 00 80 24 F6 04 59 B2 30 3A 58 B2 30 20 20 3A 99 |..$..Y.0:X.0 :.|
00001C80: 00 BA 24 00 05 99 22 20 20 11 C7 45 45 46 20 48 |..$..." ..EEF H|
00001C90: 45 54 20 41 54 4F 4F 4D 4E 55 4D 4D 45 52 20 56 |ET ATOOMNUMMER V|
00001CA0: 41 4E 20 48 45 54 20 45 45 52 53 54 45 20 20 20 |AN HET EERSTE |
00001CB0: 20 20 45 4C 45 4D 45 4E 54 22 00 EE 24 0A 05 55 | ELEMENT"..$..U|
00001CC0: 4C B2 33 3A 55 53 24 B2 22 30 31 32 33 34 35 36 |L.3:US$."0123456|
00001CD0: 37 38 39 22 3A 99 22 20 20 20 20 20 9D 9D 9D 22 |789":." ..."|
00001CE0: 3B 3A 8D 33 35 3A 41 B2 C5 28 55 52 24 29 00 0D |;:.35:A..(UR$)..|
00001CF0: 25 0F 05 8B 20 41 B1 31 30 33 B0 41 B3 31 A7 99 |%... A.103.A.1..|
00001D00: 22 91 91 91 91 91 22 3A 89 31 32 38 30 00 17 25 |".....":.1280..%|
00001D10: 12 05 99 22 11 11 22 00 50 25 14 05 99 22 20 20 |..."..".P%..." |
00001D20: C7 45 45 46 20 48 45 54 20 41 54 4F 4F 4D 4E 55 |.EEF HET ATOOMNU|
00001D30: 4D 4D 45 52 20 56 41 4E 20 48 45 54 20 4C 41 41 |MMER VAN HET LAA|
00001D40: 54 53 54 45 20 20 20 20 45 4C 45 4D 45 4E 54 22 |TSTE ELEMENT"|
00001D50: 00 84 25 1E 05 55 4C B2 33 3A 55 53 24 B2 22 30 |..%..UL.3:US$."0|
00001D60: 31 32 33 34 35 36 37 38 39 22 3A 99 22 20 20 20 |123456789":." |
00001D70: 20 20 9D 9D 9D 22 3B 3A 8D 33 35 3A 42 B2 C5 28 | ...";:.35:B..(|
00001D80: 55 52 24 29 00 A1 25 23 05 8B 20 42 B1 31 30 33 |UR$)..%#.. B.103|
00001D90: B0 42 B3 41 A7 99 22 91 91 91 22 3A 89 31 33 30 |.B.A.."...":.130|
00001DA0: 30 00 B1 25 28 05 59 59 B2 41 3A 8D 20 34 30 30 |0..%(.YY.A:. 400|
00001DB0: 30 00 C7 25 32 05 83 20 31 2C 57 41 54 45 52 53 |0..%2.. 1,WATERS|
00001DC0: 54 4F 46 2C 22 C8 22 00 DB 25 3C 05 83 20 32 2C |TOF,"."..%<.. 2,|
00001DD0: 48 45 4C 49 55 4D 2C 22 C8 45 22 00 F0 25 46 05 |HELIUM,".E"..%F.|
00001DE0: 83 20 33 2C 4C 49 54 48 49 55 4D 2C 22 CC 49 22 |. 3,LITHIUM,".I"|
00001DF0: 00 07 26 50 05 83 20 34 2C 42 45 52 59 4C 4C 49 |..&P.. 4,BERYLLI|
00001E00: 55 4D 2C 22 C2 45 22 00 1A 26 5A 05 83 20 35 2C |UM,".E"..&Z.. 5,|
00001E10: 42 4F 52 49 55 4D 2C 22 C2 22 00 2F 26 64 05 83 |BORIUM,"."./&d..|
00001E20: 20 36 2C 4B 4F 4F 4C 53 54 4F 46 2C 22 C3 22 00 | 6,KOOLSTOF,".".|
00001E30: 44 26 6E 05 83 20 37 2C 53 54 49 4B 53 54 4F 46 |D&n.. 7,STIKSTOF|
00001E40: 2C 22 CE 22 00 59 26 78 05 83 20 38 2C 5A 55 55 |,".".Y&x.. 8,ZUU|
00001E50: 52 53 54 4F 46 2C 22 CF 22 00 6B 26 82 05 83 20 |RSTOF,".".k&... |
00001E60: 39 2C 46 4C 55 4F 52 2C 22 C6 22 00 7E 26 8C 05 |9,FLUOR,".".~&..|
00001E70: 83 20 31 30 2C 4E 45 4F 4E 2C 22 CE 45 22 00 94 |. 10,NEON,".E"..|
00001E80: 26 96 05 83 20 31 31 2C 4E 41 54 52 49 55 4D 2C |&... 11,NATRIUM,|
00001E90: 22 CE 41 22 00 AC 26 A0 05 83 20 31 32 2C 4D 41 |".A"..&... 12,MA|
00001EA0: 47 4E 45 53 49 55 4D 2C 22 CD 47 22 00 C4 26 AA |GNESIUM,".G"..&.|
00001EB0: 05 83 20 31 33 2C 41 4C 55 4D 49 4E 49 55 4D 2C |.. 13,ALUMINIUM,|
00001EC0: 22 C1 4C 22 00 DB 26 B4 05 83 20 31 34 2C 53 49 |".L"..&... 14,SI|
00001ED0: 4C 49 43 49 55 4D 2C 22 D3 49 22 00 EF 26 BE 05 |LICIUM,".I"..&..|
00001EE0: 83 20 31 35 2C 46 4F 53 46 4F 52 2C 22 D0 22 00 |. 15,FOSFOR,".".|
00001EF0: 03 27 C8 05 83 20 31 36 2C 5A 57 41 56 45 4C 2C |.'... 16,ZWAVEL,|
00001F00: 22 D3 22 00 18 27 D2 05 83 20 31 37 2C 43 48 4C |"."..'... 17,CHL|
00001F10: 4F 4F 52 2C 22 C3 4C 22 00 2C 27 DC 05 83 20 31 |OOR,".L".,'... 1|
00001F20: 38 2C 41 52 47 4F 4E 2C 22 C1 52 22 00 40 27 E6 |8,ARGON,".R".@'.|
00001F30: 05 83 20 31 39 2C 4B 41 4C 49 55 4D 2C 22 CB 22 |.. 19,KALIUM,"."|
00001F40: 00 56 27 F0 05 83 20 32 30 2C 43 41 4C 43 49 55 |.V'... 20,CALCIU|
00001F50: 4D 2C 22 C3 41 22 00 6D 27 FA 05 83 20 32 31 2C |M,".A".m'... 21,|
00001F60: 53 43 41 4E 44 49 55 4D 2C 22 D3 43 22 00 84 27 |SCANDIUM,".C"..'|
00001F70: 04 06 83 20 32 32 2C 54 49 54 41 4E 49 55 4D 2C |... 22,TITANIUM,|
00001F80: 22 D4 49 22 00 9A 27 0E 06 83 20 32 33 2C 56 41 |".I"..'... 23,VA|
00001F90: 4E 41 44 49 55 4D 2C 22 D6 22 00 AF 27 18 06 83 |NADIUM,"."..'...|
00001FA0: 20 32 34 2C 43 48 52 4F 4F 4D 2C 22 C3 52 22 00 | 24,CHROOM,".R".|
00001FB0: C5 27 22 06 83 20 32 35 2C 4D 41 4E 47 41 41 4E |.'".. 25,MANGAAN|
00001FC0: 2C 22 CD 4E 22 00 D9 27 2C 06 83 20 32 36 2C 49 |,".N"..',.. 26,I|
00001FD0: 4A 5A 45 52 2C 22 C6 45 22 00 EE 27 36 06 83 20 |JZER,".E"..'6.. |
00001FE0: 32 37 2C 43 4F 42 41 4C 54 2C 22 C3 4F 22 00 03 |27,COBALT,".O"..|
00001FF0: 28 40 06 83 20 32 38 2C 4E 49 4B 4B 45 4C 2C 22 |(@.. 28,NIKKEL,"|
00002000: CE 49 22 00 17 28 4A 06 83 20 32 39 2C 4B 4F 50 |.I"..(J.. 29,KOP|
00002010: 45 52 2C 22 C3 55 22 00 2A 28 54 06 83 20 33 30 |ER,".U".*(T.. 30|
00002020: 2C 5A 49 4E 4B 2C 22 DA 4E 22 00 40 28 5E 06 83 |,ZINK,".N".@(^..|
00002030: 20 33 31 2C 47 41 4C 4C 49 55 4D 2C 22 C7 41 22 | 31,GALLIUM,".A"|
00002040: 00 58 28 68 06 83 20 33 32 2C 47 45 52 4D 41 4E |.X(h.. 32,GERMAN|
00002050: 49 55 4D 2C 22 C7 45 22 00 6D 28 72 06 83 20 33 |IUM,".E".m(r.. 3|
00002060: 33 2C 41 52 53 45 45 4E 2C 22 C1 53 22 00 82 28 |3,ARSEEN,".S"..(|
00002070: 7C 06 83 20 33 34 2C 53 45 4C 45 45 4E 2C 22 D3 ||.. 34,SELEEN,".|
00002080: 45 22 00 96 28 86 06 83 20 33 35 2C 42 52 4F 4F |E"..(... 35,BROO|
00002090: 4D 2C 22 C2 52 22 00 AC 28 90 06 83 20 33 36 2C |M,".R"..(... 36,|
000020A0: 4B 52 59 50 54 4F 4E 2C 22 CB 52 22 00 C3 28 9A |KRYPTON,".R"..(.|
000020B0: 06 83 20 33 37 2C 52 55 42 49 44 49 55 4D 2C 22 |.. 37,RUBIDIUM,"|
000020C0: D2 42 22 00 DB 28 A4 06 83 20 33 38 2C 53 54 52 |.B"..(... 38,STR|
000020D0: 4F 4E 54 49 55 4D 2C 22 D3 52 22 00 F0 28 AE 06 |ONTIUM,".R"..(..|
000020E0: 83 20 33 39 2C 59 54 54 52 49 55 4D 2C 22 D9 22 |. 39,YTTRIUM,"."|
000020F0: 00 08 29 B8 06 83 20 34 30 2C 5A 49 52 43 4F 4E |..)... 40,ZIRCON|
00002100: 49 55 4D 2C 22 DA 52 22 00 1E 29 C2 06 83 20 34 |IUM,".R"..)... 4|
00002110: 31 2C 4E 49 4F 42 49 55 4D 2C 22 CE 42 22 00 36 |1,NIOBIUM,".B".6|
00002120: 29 CC 06 83 20 34 32 2C 4D 4F 4C 59 42 44 45 45 |)... 42,MOLYBDEE|
00002130: 4E 2C 22 CD 4F 22 00 4F 29 D6 06 83 20 34 33 2C |N,".O".O)... 43,|
00002140: 54 45 43 48 4E 45 54 49 55 4D 2C 22 D4 43 22 00 |TECHNETIUM,".C".|
00002150: 67 29 E0 06 83 20 34 34 2C 52 55 54 48 45 4E 49 |g)... 44,RUTHENI|
00002160: 55 4D 2C 22 D2 55 22 00 7D 29 EA 06 83 20 34 35 |UM,".U".})... 45|
00002170: 2C 52 48 4F 44 49 55 4D 2C 22 D2 48 22 00 95 29 |,RHODIUM,".H"..)|
00002180: F4 06 83 20 34 36 2C 50 41 4C 4C 41 44 49 55 4D |... 46,PALLADIUM|
00002190: 2C 22 D0 44 22 00 AA 29 FE 06 83 20 34 37 2C 5A |,".D"..)... 47,Z|
000021A0: 49 4C 56 45 52 2C 22 C1 47 22 00 C0 29 08 07 83 |ILVER,".G"..)...|
000021B0: 20 34 38 2C 43 41 44 4D 49 55 4D 2C 22 C3 44 22 | 48,CADMIUM,".D"|
000021C0: 00 D5 29 12 07 83 20 34 39 2C 49 4E 44 49 55 4D |..)... 49,INDIUM|
000021D0: 2C 22 C9 4E 22 00 E7 29 1C 07 83 20 35 30 2C 54 |,".N"..)... 50,T|
000021E0: 49 4E 2C 22 D3 4E 22 00 FE 29 26 07 83 20 35 31 |IN,".N"..)&.. 51|
000021F0: 2C 41 4E 54 49 4D 4F 4F 4E 2C 22 D3 42 22 00 14 |,ANTIMOON,".B"..|
00002200: 2A 30 07 83 20 35 32 2C 54 45 4C 4C 55 55 52 2C |*0.. 52,TELLUUR,|
00002210: 22 D4 45 22 00 26 2A 3A 07 83 20 35 33 2C 49 4F |".E".&*:.. 53,IO|
00002220: 4F 44 2C 22 C9 22 00 3A 2A 44 07 83 20 35 34 2C |OD,".".:*D.. 54,|
00002230: 58 45 4E 4F 4E 2C 22 D8 45 22 00 4F 2A 4E 07 83 |XENON,".E".O*N..|
00002240: 20 35 35 2C 43 45 53 49 55 4D 2C 22 C3 53 22 00 | 55,CESIUM,".S".|
00002250: 64 2A 58 07 83 20 35 36 2C 42 41 52 49 55 4D 2C |d*X.. 56,BARIUM,|
00002260: 22 C2 41 22 00 7B 2A 62 07 83 20 35 37 2C 4C 41 |".A".{*b.. 57,LA|
00002270: 4E 54 48 41 41 4E 2C 22 CC 41 22 00 90 2A 6C 07 |NTHAAN,".A"..*l.|
00002280: 83 20 35 38 2C 43 45 52 49 55 4D 2C 22 C3 45 22 |. 58,CERIUM,".E"|
00002290: 00 AB 2A 76 07 83 20 35 39 2C 50 52 41 53 45 4F |..*v.. 59,PRASEO|
000022A0: 44 59 4D 49 55 4D 2C 22 D0 52 22 00 C3 2A 80 07 |DYMIUM,".R"..*..|
000022B0: 83 20 36 30 2C 4E 45 4F 44 59 4D 49 55 4D 2C 22 |. 60,NEODYMIUM,"|
000022C0: CE 44 22 00 DC 2A 8A 07 83 20 36 31 2C 50 52 4F |.D"..*... 61,PRO|
000022D0: 4D 45 54 48 49 55 4D 2C 22 D0 4D 22 00 F3 2A 94 |METHIUM,".M"..*.|
000022E0: 07 83 20 36 32 2C 53 41 4D 41 52 49 55 4D 2C 22 |.. 62,SAMARIUM,"|
000022F0: D3 4D 22 00 0A 2B 9E 07 83 20 36 33 2C 45 55 52 |.M"..+... 63,EUR|
00002300: 4F 50 49 55 4D 2C 22 C5 55 22 00 23 2B A8 07 83 |OPIUM,".U".#+...|
00002310: 20 36 34 2C 47 41 44 4F 4C 49 4E 49 55 4D 2C 22 | 64,GADOLINIUM,"|
00002320: C7 44 22 00 39 2B B2 07 83 20 36 35 2C 54 45 52 |.D".9+... 65,TER|
00002330: 42 49 55 4D 2C 22 D4 42 22 00 52 2B BC 07 83 20 |BIUM,".B".R+... |
00002340: 36 36 2C 44 59 53 50 52 4F 53 49 55 4D 2C 22 C4 |66,DYSPROSIUM,".|
00002350: 59 22 00 68 2B C6 07 83 20 36 37 2C 48 4F 4C 4D |Y".h+... 67,HOLM|
00002360: 49 55 4D 2C 22 C8 4F 22 00 7D 2B D0 07 83 20 36 |IUM,".O".}+... 6|
00002370: 38 2C 45 52 42 49 55 4D 2C 22 C5 52 22 00 93 2B |8,ERBIUM,".R"..+|
00002380: DA 07 83 20 36 39 2C 54 48 55 4C 49 55 4D 2C 22 |... 69,THULIUM,"|
00002390: D4 4D 22 00 AB 2B E4 07 83 20 37 30 2C 59 54 54 |.M"..+... 70,YTT|
000023A0: 45 52 42 49 55 4D 2C 22 D9 42 22 00 C2 2B EE 07 |ERBIUM,".B"..+..|
000023B0: 83 20 37 31 2C 4C 55 54 45 54 49 55 4D 2C 22 CC |. 71,LUTETIUM,".|
000023C0: 55 22 00 D8 2B F8 07 83 20 37 32 2C 48 41 46 4E |U"..+... 72,HAFN|
000023D0: 49 55 4D 2C 22 C8 46 22 00 EE 2B 02 08 83 20 37 |IUM,".F"..+... 7|
000023E0: 33 2C 54 41 4E 54 41 41 4C 2C 22 D4 41 22 00 04 |3,TANTAAL,".A"..|
000023F0: 2C 0C 08 83 20 37 34 2C 57 4F 4C 46 52 41 41 4D |,... 74,WOLFRAAM|
00002400: 2C 22 D7 22 00 19 2C 16 08 83 20 37 35 2C 52 45 |,"."..,... 75,RE|
00002410: 4E 49 55 4D 2C 22 D2 45 22 00 2E 2C 20 08 83 20 |NIUM,".E".., .. |
00002420: 37 36 2C 4F 53 4D 49 55 4D 2C 22 CF 53 22 00 44 |76,OSMIUM,".S".D|
00002430: 2C 2A 08 83 20 37 37 2C 49 52 49 44 49 55 4D 2C |,*.. 77,IRIDIUM,|
00002440: 22 C9 52 22 00 5A 2C 34 08 83 20 37 38 2C 50 4C |".R".Z,4.. 78,PL|
00002450: 41 54 49 4E 41 2C 22 D0 54 22 00 6D 2C 3E 08 83 |ATINA,".T".m,>..|
00002460: 20 37 39 2C 47 4F 55 44 2C 22 C1 55 22 00 80 2C | 79,GOUD,".U"..,|
00002470: 48 08 83 20 38 30 2C 4B 57 49 4B 2C 22 C8 47 22 |H.. 80,KWIK,".G"|
00002480: 00 96 2C 52 08 83 20 38 31 2C 54 48 41 4C 49 55 |..,R.. 81,THALIU|
00002490: 4D 2C 22 D4 48 22 00 A9 2C 5C 08 83 20 38 32 2C |M,".H"..,\.. 82,|
000024A0: 4C 4F 4F 44 2C 22 D0 42 22 00 BE 2C 66 08 83 20 |LOOD,".B"..,f.. |
000024B0: 38 33 2C 42 49 53 4D 55 54 2C 22 C2 49 22 00 D5 |83,BISMUT,".I"..|
000024C0: 2C 70 08 83 20 38 34 2C 50 4F 4C 4F 4E 49 55 4D |,p.. 84,POLONIUM|
000024D0: 2C 22 D0 4F 22 00 EA 2C 7A 08 83 20 38 35 2C 41 |,".O"..,z.. 85,A|
000024E0: 53 54 41 41 54 2C 22 C1 54 22 00 FE 2C 84 08 83 |STAAT,".T"..,...|
000024F0: 20 38 36 2C 52 41 44 4F 4E 2C 22 D2 4E 22 00 15 | 86,RADON,".N"..|
00002500: 2D 8E 08 83 20 38 37 2C 46 52 41 4E 43 49 55 4D |-... 87,FRANCIUM|
00002510: 2C 22 C6 52 22 00 2A 2D 98 08 83 20 38 38 2C 52 |,".R".*-... 88,R|
00002520: 41 44 49 55 4D 2C 22 D2 41 22 00 41 2D A2 08 83 |ADIUM,".A".A-...|
00002530: 20 38 39 2C 41 43 54 49 4E 49 55 4D 2C 22 C1 43 | 89,ACTINIUM,".C|
00002540: 22 00 57 2D AC 08 83 20 39 30 2C 54 48 4F 52 49 |".W-... 90,THORI|
00002550: 55 4D 2C 22 D4 48 22 00 72 2D B6 08 83 20 39 31 |UM,".H".r-... 91|
00002560: 2C 50 52 4F 54 41 43 54 49 4E 49 55 4D 2C 22 D0 |,PROTACTINIUM,".|
00002570: 41 22 00 87 2D C0 08 83 20 39 32 2C 55 52 41 4E |A"..-... 92,URAN|
00002580: 49 55 4D 2C 22 D5 22 00 9F 2D CA 08 83 20 39 33 |IUM,"."..-... 93|
00002590: 2C 4E 45 50 54 55 4E 49 55 4D 2C 22 CE 50 22 00 |,NEPTUNIUM,".P".|
000025A0: B7 2D D4 08 83 20 39 34 2C 50 4C 55 54 4F 4E 49 |.-... 94,PLUTONI|
000025B0: 55 4D 2C 22 D0 55 22 00 CF 2D DE 08 83 20 39 35 |UM,".U"..-... 95|
000025C0: 2C 41 4D 45 52 49 43 49 55 4D 2C 22 C1 4D 22 00 |,AMERICIUM,".M".|
000025D0: E4 2D E8 08 83 20 39 36 2C 43 55 52 49 55 4D 2C |.-... 96,CURIUM,|
000025E0: 22 C3 4D 22 00 FC 2D F2 08 83 20 39 37 2C 42 45 |".M"..-... 97,BE|
000025F0: 52 4B 45 4C 49 55 4D 2C 22 C2 4B 22 00 16 2E FC |RKELIUM,".K"....|
00002600: 08 83 20 39 38 2C 43 41 4C 49 46 4F 52 4E 49 55 |.. 98,CALIFORNIU|
00002610: 4D 2C 22 C3 46 22 00 30 2E 06 09 83 20 39 39 2C |M,".F".0.... 99,|
00002620: 45 49 4E 53 54 45 49 4E 49 55 4D 2C 22 C5 53 22 |EINSTEINIUM,".S"|
00002630: 00 47 2E 10 09 83 20 31 30 30 2C 46 45 52 4D 49 |.G.... 100,FERMI|
00002640: 55 4D 2C 22 C6 4D 22 00 62 2E 1A 09 83 20 31 30 |UM,".M".b.... 10|
00002650: 31 2C 4D 45 4E 44 45 4C 45 56 49 55 4D 2C 22 CD |1,MENDELEVIUM,".|
00002660: 44 22 00 7A 2E 24 09 83 20 31 30 32 2C 4E 4F 42 |D".z.$.. 102,NOB|
00002670: 45 4C 49 55 4D 2C 22 CE 4F 22 00 94 2E 2E 09 83 |ELIUM,".O"......|
00002680: 20 31 30 33 2C 4C 41 57 52 45 4E 43 49 55 4D 2C | 103,LAWRENCIUM,|
00002690: 22 CC 57 22 00 A3 2E 30 09 81 47 47 B2 59 59 20 |".W"...0..GG.YY |
000026A0: A4 20 42 00 B6 2E 33 09 43 B2 20 C5 28 48 24 28 |. B...3.C. .(H$(|
000026B0: 47 47 2C 31 29 29 00 C6 2E 34 09 41 24 B2 48 24 |GG,1))...4.A$.H$|
000026C0: 28 47 47 2C 32 29 00 D6 2E 35 09 42 24 B2 48 24 |(GG,2)...5.B$.H$|
000026D0: 28 47 47 2C 33 29 00 DF 2E 3E 09 8D 38 33 35 00 |(GG,3)...>..835.|
000026E0: F2 2E 42 09 55 50 B2 41 AB 59 59 AA 31 3A 8D 38 |..B.UP.A.YY.1:.8|
000026F0: 35 30 00 FE 2E 4C 09 99 22 13 11 11 11 22 00 29 |50...L.."....".)|
00002700: 2F 56 09 99 22 20 20 D7 41 54 20 49 53 20 48 45 |/V.." .AT IS HE|
00002710: 54 20 53 59 4D 42 4F 4F 4C 20 56 4F 4F 52 20 22 |T SYMBOOL VOOR "|
00002720: 3B 41 24 22 20 3F 20 22 3B 00 44 2F 60 09 55 4C |;A$" ? ";.D/`.UL|
00002730: B2 32 3A 55 53 24 B2 22 22 3A 8D 33 35 3A 43 24 |.2:US$."":.35:C$|
00002740: B2 55 52 24 00 57 2F 6A 09 8B 20 43 24 B2 42 24 |.UR$.W/j.. C$.B$|
00002750: 20 A7 20 32 34 35 30 00 62 2F 74 09 8D 20 32 37 | . 2450.b/t.. 27|
00002760: 36 30 00 73 2F 7E 09 8B 20 41 B2 42 20 A7 20 33 |60.s/~.. A.B . 3|
00002770: 30 33 30 00 82 2F 88 09 41 B2 41 AA 31 3A 82 20 |030../..A.A.1:. |
00002780: 47 47 00 8D 2F 92 09 8D 20 32 34 38 30 00 9E 2F |GG../... 2480../|
00002790: 9C 09 8B 20 41 B2 42 20 A7 20 33 30 33 30 00 A9 |... A.B . 3030..|
000027A0: 2F A6 09 89 20 32 34 34 30 00 B3 2F B0 09 59 B2 |/... 2440../..Y.|
000027B0: 59 AA 31 00 C9 2F BA 09 81 20 54 54 B2 31 20 A4 |Y.1../... TT.1 .|
000027C0: 20 35 3A 99 3A 82 20 54 54 00 DB 2F C4 09 54 B2 | 5:.:. TT../..T.|
000027D0: B5 28 BB 28 31 29 AC 37 AA 31 29 00 EC 2F CE 09 |.(.(1).7.1)../..|
000027E0: 8B 20 54 B2 31 20 A7 20 32 35 38 30 00 FD 2F D8 |. T.1 . 2580../.|
000027F0: 09 8B 20 54 B2 32 20 A7 20 32 36 30 30 00 0E 30 |.. T.2 . 2600..0|
00002800: E2 09 8B 20 54 B2 33 20 A7 20 32 36 32 30 00 1F |... T.3 . 2620..|
00002810: 30 EC 09 8B 20 54 B2 34 20 A7 20 32 36 34 30 00 |0... T.4 . 2640.|
00002820: 30 30 F6 09 8B 20 54 B2 35 20 A7 20 32 36 36 30 |00... T.5 . 2660|
00002830: 00 41 30 00 0A 8B 20 54 B2 36 20 A7 20 32 36 38 |.A0... T.6 . 268|
00002840: 30 00 52 30 0A 0A 8B 20 54 B2 37 20 A7 20 32 37 |0.R0... T.7 . 27|
00002850: 30 30 00 73 30 14 0A 99 20 A3 31 30 29 2C 22 C1 |00.s0... .10),".|
00002860: 4C 4C 20 20 52 49 47 48 54 54 54 54 54 21 21 21 |LL RIGHTTTTT!!!|
00002870: 21 21 22 00 7E 30 1E 0A 89 20 32 37 32 30 00 96 |!!".~0... 2720..|
00002880: 30 28 0A 99 20 A3 31 30 29 2C 20 22 C7 4F 45 44 |0(.. .10), ".OED|
00002890: 20 5A 4F 20 21 22 00 A1 30 32 0A 89 20 32 37 32 | ZO !"..02.. 272|
000028A0: 30 00 BD 30 3C 0A 99 20 A3 31 30 29 2C 20 20 22 |0..0<.. .10), "|
000028B0: D0 52 49 4D 41 20 20 20 20 20 20 20 22 00 C8 30 |.RIMA "..0|
000028C0: 46 0A 89 20 32 37 32 30 00 DC 30 50 0A 99 20 A3 |F.. 2720..0P.. .|
000028D0: 31 30 29 2C 20 20 22 59 45 41 48 22 00 E7 30 5A |10), "YEAH"..0Z|
000028E0: 0A 89 20 32 37 32 30 00 F7 30 64 0A 99 20 A3 31 |.. 2720..0d.. .1|
000028F0: 30 29 2C 22 4F 4B 22 00 02 31 6E 0A 89 20 32 37 |0),"OK"..1n.. 27|
00002900: 32 30 00 1D 31 78 0A 99 20 A3 31 30 29 2C 20 20 |20..1x.. .10), |
00002910: 22 CE 49 43 45 20 47 4F 49 4E 47 21 22 00 28 31 |".ICE GOING!".(1|
00002920: 82 0A 89 20 32 37 32 30 00 3D 31 8C 0A 99 22 20 |... 2720.=1..." |
00002930: 20 CC 55 43 4B 59 20 47 55 45 53 53 22 00 48 31 | .UCKY GUESS".H1|
00002940: 96 0A 89 20 32 37 32 30 00 5E 31 A0 0A 81 20 52 |... 2720.^1... R|
00002950: 52 B2 31 20 A4 20 35 3A 99 3A 82 20 52 52 00 89 |R.1 . 5:.:. RR..|
00002960: 31 AA 0A 99 22 20 CA 45 20 48 45 42 54 20 45 52 |1..." .E HEBT ER|
00002970: 22 3B 59 3B 22 20 47 4F 45 44 20 45 4E 22 3B 58 |";Y;" GOED EN";X|
00002980: 3B 22 20 46 4F 55 54 20 22 00 8F 31 BE 0A 8E 00 |;" FOUT "..1....|
00002990: 99 31 C8 0A 58 B2 58 AA 31 00 AF 31 D2 0A 81 20 |.1..X.X.1..1... |
000029A0: 4D 4D B2 31 20 A4 20 35 3A 99 3A 82 20 4D 4D 00 |MM.1 . 5:.:. MM.|
000029B0: C1 31 DC 0A 53 B2 B5 28 BB 28 31 29 AC 37 AA 31 |.1..S..(.(1).7.1|
000029C0: 29 00 D2 31 E6 0A 8B 20 53 B2 31 20 A7 20 32 38 |)..1... S.1 . 28|
000029D0: 36 30 00 E3 31 F0 0A 8B 20 53 B2 32 20 A7 20 32 |60..1... S.2 . 2|
000029E0: 38 38 30 00 F4 31 FA 0A 8B 20 53 B2 33 20 A7 20 |880..1... S.3 . |
000029F0: 32 39 30 30 00 05 32 04 0B 8B 20 53 B2 34 20 A7 |2900..2... S.4 .|
00002A00: 20 32 39 32 30 00 16 32 0E 0B 8B 20 53 B2 35 20 | 2920..2... S.5 |
00002A10: A7 20 32 39 34 30 00 27 32 18 0B 8B 20 53 B2 36 |. 2940.'2... S.6|
00002A20: 20 A7 20 32 39 36 30 00 38 32 22 0B 8B 20 53 B2 | . 2960.82".. S.|
00002A30: 37 20 A7 20 32 39 38 30 00 69 32 2C 0B 99 20 20 |7 . 2980.i2,.. |
00002A40: 20 20 22 C6 4F 55 54 2C 50 52 4F 42 45 45 52 20 | ".OUT,PROBEER |
00002A50: 44 45 20 56 4F 4C 47 45 4E 44 45 2E C8 45 54 20 |DE VOLGENDE..ET |
00002A60: 49 53 22 3B 22 12 22 42 24 00 74 32 36 0B 89 20 |IS";"."B$.t26.. |
00002A70: 32 39 39 30 00 9B 32 40 0B 99 20 22 20 D7 41 54 |2990..2@.. " .AT|
00002A80: 20 45 45 4E 20 41 4E 54 57 4F 4F 52 44 2E C8 45 | EEN ANTWOORD..E|
00002A90: 54 20 49 53 22 3B 22 12 22 42 24 00 A6 32 4A 0B |T IS";"."B$..2J.|
00002AA0: 89 20 32 39 39 30 00 C5 32 54 0B 99 20 A3 31 30 |. 2990..2T.. .10|
00002AB0: 29 2C 22 CD 49 53 2E C8 45 54 20 49 53 20 22 3B |),".IS..ET IS ";|
00002AC0: 22 12 22 42 24 00 D0 32 5E 0B 89 20 32 39 39 30 |"."B$..2^.. 2990|
00002AD0: 00 EF 32 68 0B 99 20 A3 31 30 29 2C 22 CE 45 45 |..2h.. .10),".EE|
00002AE0: 2C 48 45 54 20 49 53 20 22 3B 22 12 22 42 24 00 |,HET IS ";"."B$.|
00002AF0: FA 32 72 0B 89 20 32 39 39 30 00 22 33 7C 0B 99 |.2r.. 2990."3|..|
00002B00: 20 A3 38 29 2C 20 20 22 CF 48 2C 4F 48 2C 4F 48 | .8), ".H,OH,OH|
00002B10: 20 21 21 21 C8 45 54 20 49 53 20 22 3B 22 12 22 | !!!.ET IS ";"."|
00002B20: 42 24 00 2D 33 86 0B 89 20 32 39 39 30 00 59 33 |B$.-3... 2990.Y3|
00002B30: 90 0B 99 22 20 C6 4F 55 54 2C 46 4F 55 54 2C 46 |..." .OUT,FOUT,F|
00002B40: 4F 55 54 2E C8 45 54 20 4D 4F 45 54 20 5A 49 4A |OUT..ET MOET ZIJ|
00002B50: 4E 20 22 3B 22 12 22 42 24 00 64 33 9A 0B 89 20 |N ";"."B$.d3... |
00002B60: 32 39 39 30 00 88 33 A4 0B 99 20 A3 38 29 2C 22 |2990..3... .8),"|
00002B70: D7 45 45 52 20 4D 49 53 2E C8 45 54 20 49 53 20 |.EER MIS..ET IS |
00002B80: 20 22 3B 22 12 22 42 24 00 9F 33 AE 0B 81 20 5A | ";"."B$..3... Z|
00002B90: 5A B2 31 20 A4 20 35 20 3A 99 3A 82 20 5A 5A 00 |Z.1 . 5 :.:. ZZ.|
00002BA0: CA 33 B8 0B 99 22 CA 45 20 48 45 42 54 20 45 52 |.3...".E HEBT ER|
00002BB0: 20 22 3B 59 3B 22 47 4F 45 44 20 45 4E 20 22 3B | ";Y;"GOED EN ";|
00002BC0: 58 3B 22 20 46 4F 55 54 20 22 00 D0 33 CC 0B 8E |X;" FOUT "..3...|
00002BD0: 00 E7 33 D6 0B 8D 38 33 35 3A 8D 20 38 35 30 3A |..3...835:. 850:|
00002BE0: 99 22 13 11 11 11 22 00 29 34 EA 0B 99 22 20 20 |."....".)4..." |
00002BF0: CA 45 20 53 43 4F 52 45 20 3A 22 3B 59 3B 22 20 |.E SCORE :";Y;" |
00002C00: 56 41 4E 20 44 45 22 3B 58 AA 59 3B 22 20 44 2E |VAN DE";X.Y;" D.|
00002C10: 57 2E 5A 2E 22 3A 99 3A 99 20 B5 28 59 AD 28 58 |W.Z.":.:. .(Y.(X|
00002C20: AA 59 29 AC 31 30 30 29 3B 00 32 34 F4 0B 99 22 |.Y).100);.24..."|
00002C30: 25 22 00 3B 34 FE 0B 8D 38 33 35 00 41 34 1C 0C |%".;4...835.A4..|
00002C40: 8E 00 56 34 A0 0F 8F 20 52 45 41 44 45 52 20 52 |..V4... READER R|
00002C50: 4F 55 54 49 4E 45 00 62 34 AA 0F 8D 20 38 37 35 |OUTINE.b4... 875|
00002C60: 3A 8C 00 73 34 B4 0F 81 20 41 31 B2 31 20 A4 20 |:..s4... A1.1 . |
00002C70: 31 30 33 00 82 34 BE 0F 81 20 41 32 B2 31 20 A4 |103..4... A2.1 .|
00002C80: 20 33 00 92 34 C8 0F 87 20 48 24 28 41 31 2C 41 | 3..4... H$(A1,A|
00002C90: 32 29 00 9B 34 D2 0F 82 20 41 32 00 A4 34 DC 0F |2)..4... A2..4..|
00002CA0: 82 20 41 31 00 AA 34 E6 0F 8E 00 00 00 80 |. A1..4....... |
.......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.=.-..UC,0.Q.2..UI$:.UI$."".50.{.7..U
I$.G(13).C(UR$)..1..UC,1:." .";:.85...<.
.UI$.G(20).105...>.. C(UR$)..UL.50.G.A..
120:. CHECK FOR VALID CHARACTER.W.F.UR$.
UR$.UI$...K..UI$;...P..50...U.. +++ CHEC
K FOR HELP REQUEST +++.6.Z..UR$.UX$.195:
. EXIT TO HELP ROUTINE.E._..UF.1..240.R.
D.UF.0:.:..K.F.. ++ CHECK DELETE ++.|.I.
.C(UR$).1.50...N.UR$.H(UR$,C(UR$).1)...S
..". ..";:.50.M.X.. ++ CHECK FOR VALID
CHARACTERS ++...}..C(US$).0.150....US$.
US$.UX$......US.1.C(US$)......UI$.J(US$,
US,1).........*...UI$."":..E.... ** STAN
DARD INPUT **.V....F(UI$).46...G....UI$.
G(32)..... ..F(UI$).48.F(UI$).57.170....
........F(UI$).65.F(UI$).90.180.......Q.
...F(UI$).193.F(UI$).218.UI$."":.......B
(UT).UU%.UI$.G(F(UI$).128):............U
I$."":..,.C.UF.1:. +++ HELP ROUTINE EXIT
+++.5.E..250.>.H..245.].M..UQ.UB.(U2%.2
56.U1%.U3%.2).Y.R.UQ%(UQ.UB).B(UQ):.:.".
"...W.UZ.1:UV%.B(UT)...X..300.Y.Y.UZ.0:U
S$.UJ$:UG$.UK$:UP.UJ:UL.UK:.B(50003).0..
53281,6:.53280,14.....UT$.UL$:.".";:.UT,
UV%:.UQ.UB.(U2%.256.U1%.U3%.3).#....UQ,U
Q%(UQ.UB):../....U1,U1%.;....U2,U2%.G...
.U4,U4%.U....U3,U3%.1.]....35.....UD%.((
U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1):..
J....H(UD$,24);" .
IK STOP . ":......U1%.B(U1):U2%.B(U
2):U3%.B(U3):U4%.B(U4).....UJ$.US$:UK$.U
G$:UL$.UT$:UJ.UP:UK.UL.$.....5.,.. ** ME
NU **.;.-.:.J....".":.UT,UU%:.B(50003).0
..53281,9:.53280,8.P./.:...1..".
MENU"...6.." -------------------
-------------------"...;..".. 1.
BEGIN ELEMENTEN-104"...@..".. 2.
STUDENT INSTRUCTIONS".9.E..".. 3
. TEACHER INSTRUCTIONS".U.O.."..
4. QUIT.."...T.." -------------------
-------------------"...Y..".. KIES
EEN NUMMER (1-4) ";.W.^.UL.1:US$."12
34":.35:. INPUT ROUTINE..._..C(UR$).1.30
0...`.US$.""...C..E(UR$).1000,400,500,39
6...H..300.A.... ** RE-ENABLE STOP KEY A
ND END **.P....B(50003)..1.B(50003)..160
.B(50003)..0.399......UU.71:.B(50003).0.
.53281,6:.53280,14......"..":.......875:
..R.... ** STUDENT INSTRUCTIONS **......
".":.UT,UL%:.B(50003).0..53281,0:.53280,
0."...UP.0:UG$."STUDENT INST":.850.Q. ..
" .DIT PROGRAMMA WIL JE HELPEN DE JUISTE
"......" .SYMBOLEN VAN DE 104 BEKENDE EL
EMENTEN"......" .TE LEREN..".B...." OP H
ET SCHERM VERSCHIJNT DE NAAM VAN "......
" .EEN.ELEMENT.AAN JOU DE TAAK HET SYM-.
....." .BOOL VAN DAT ELEMENT TE GEVEN.AA
N HET.F...." .EINDE WORDT JOUW SCORE GEG
EVEN.".S...." .WIL JE ONDERBREKEN,TYPE <
H> RETURN."......" .DENK ER AAN DAT DE E
ERSTE LETTER EEN "......" .HOOFDLETTER I
S ! ".H....835......UZ.1..UP%:.217....
........ ** TEACHER INSTRUCTIONS **.3...
.".":.UT,UL%:.B(50003).0..53281,2:.53280
,10.T...UP.0:UG$."TEACHER INST":.850....
..".. TO THE BEST OF OUR KNOWLEDGE,
."......" THIS PROGRAM IS IN THE PUBLI
C.".W...." DOMAIN. IF THIS IS NOT THE
CASE."......" PLEASE CONTACT:..."....
.." COMMODORE BUSINESS MACHINES.".A
...." 3370 PHARMACY AVE..E...."
AGINCOURT, ONTARIO"......"
CANADA M1W 2K4"......"
(416) 499-4292".....UP.1:. 835:. 850:...
..." ..PROGRAM NAME: ELEMENTS ..
....." WRITTEN BY : WILLIAM SYMONS.
.:...." UPGRADED BY : GERBRAND BEEKM
AN.E...." .THIS PROGRAM WILL RUN ON
ANY........" BASIC 2.0 PET COMPU
TER......." BASIC 4.0 PET COMPUT
ER..U...." 8032 CBM COMPUTER....
..." COMMODORE 64 COMPUTER......
835:. 850.6.&.."... THIS IS A DRILL PRO
GRAM IN WHICH".C.+..". THE USER CAN CHO
OSE WHICH ELEMENTS"...0..". OF THE PERI
ODIC TABLE HE/SHE WOULD"...5..". LIKE T
O BE TESTED ON....D..835.L.N..UZ.1..UP%:
.217.R.W.....X.. ** PROGRAM MODIFICATION
INST **...Y..".":.UT,UL%.).].UP.0:UG$."
PROGRAM MOD":.850.2....835.F....UZ.1..UP
%:.217.L.....Q.... ** TO USE 8032 LOAD C
BM4032 **...F..".....BEFORE RUNNING THIS
PROGRAM ON AN 8032 .....P.." LOAD
THE 'CBM 4032' PROGRAM............."...
Z..UU.71............ ** TO USE 8032 LOAD
CBM4032 **.^...."....BEFORE RUNNING THI
S PROGRAM ON AN 8032 ..LOAD CBM 4032 PR
OGRAM".J....1093:.... .. ** T I T L E
P A G E **...".."....";:.UT,UU%:.B(50003
).0..53280,14:.53281,6.T.$..I.1.38:."...
";:....&..I.1.22:.".....";:....(..I.1.37
:.".....";:....*..I.1.22:.".....";:..A.,
.."........................... ..C...."
................... . . .....0.."......
............. . ......2..".............
....... ..J.4.."..............C O M M O
D O R E.....6.."...............EDUCATIO
NAL.....8.."................SOFTWARE.'.9
..:..14)"ELEMENTEN-104".B.:.. ** COMMODO
RE LOGO **.Z.;..H(UD$,24);"............D
RUK OP DE SPATIEBALK.":I.0...<..A$:.A$..
" ".I.I.1:.I.250.828...>.T1$."":T2$."":T
3$."":T4$."":I.0.I.@..300...C.. ** SPACE
BAR PRESS **. .H.. UO,0:.H(UD$,24);"...
.DRUK OP DE SPATIEBALK . ".7.L..UI
$:.UI$.." ".844.=.N...].R.. ** PAGE DESI
GN ROUTINE **.I.T.UP.UP.1...W.."."H(UT$.
UP$,21);I(UP$.UG$.D(UP),18).B.\.." -----
---------------------------------".Q.`..
UH..0.870...A..H(UD$,24);H(UP$,7);"STOP
- DRUK H <RETURN>"...F.UH.0:."..":..4.
K.. ** PLEASE WAIT REMARK **.J.P..H(UD$,
24);" EEN OGENBLIK ..............
".P.U........ ** SET UP VARIABLES **.X.
..UX$."H":.UQ%(1000):UB.32768:U1.196:U2.
197:U3.198:U4.216:UC.167:UU.1024.....UT.
59468:UU%.12:UL%.14:UP%.1146:UM.32768:UO
.158:. 50003,0.Y....B(50003).0.UB.1024:U
1.209:U2.210:U3.211:U4.214:UC.204:UU.204
8......B(50003).0.UT.53272:UU%.21:UL%.23
:UP%.2139:UM.1024:UO.198.....UD$."......
...................".....UP$."
".<...UT$."
ELEMENTEN -104 ":. PLACE PROGRAM TIT
LE HERE !!!!!!!!!!!!!!!!!***.B.....\....
** SET VARIABLES **.E....900.U.... H$(1
03,3).{...:...... ** CHECK FOR 8032 **..
....".":." ":. SHIFTED SPACE.K....B(UB.4
0)..96..700...... ** MEMORY CHECK **....
.. .(0).2000.937.& ..."....THIS MACHINE
DOES NOT HAVE ENOUGH.".J ..."MEMORY TO R
UN THIS PROGRAM !".U ...UU.71.[ ....U ..
."..":.B(50003).0.962.. ... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **.. ...1075,1
33:.1076,144:.1077,234:.1079,4:.1080,133
:.1081,145..!...1091,155:.1098,133:.1099
,144:.1100,234:.1103,133.:!...1104,145:.
1105,234:.1082,234.Q!...B(50003)..160.95
5..!...1093,88:.1094,228:.1097,85:.1102,
228:.965..!...B(50003)..1.990.D!...1093,
49:.1094,230:.1097,46:.1102,230:.965..!B
..2099,141:.2100,20:.2101,3:.2103,8:.210
4,141:.2105,21.:"C..2106,3:.2115,145:.21
17,52:.2118,234:.2121,49:.2122,141.T"D..
2123,20:.2124,3:.2126,234:.2127,141:.212
8,21:.2129,3.."E..UU.48:. DISABLE STOP K
EY.."J..800:. TITLE.."T..300:. MENU.."..
.".THE PGM WILL NOT WORK ON THIS MACHINE
!":...#...UZ.1..UP%:.UP%:UZ.0:. ** PROGR
AM STARTS HERE **.E#..."..";:.:.B(50003)
.0..53281,6:.53280,14.W#L..".":. UT,UL%.
{#V.. * WRITTEN BY WILLIAM SYMONS *..#`.
. * FEBRUARY 8, 1981 *.C#J.. *E
LEMENT'S SYMBOLS PRACTICE *..#T.. ******
***********************..$~.. * TO
M FERGUSON *./$... **************
***************.H$..UG$."":. 850:."...."
.P$..." WELKE ELEMENTEN WIL JE OEFENEN"
..$..Y.0:X.0 :...$..." .GEEF HET ATOOM
NUMMER VAN HET EERSTE ELEMENT"..$..U
L.3:US$."0123456789":." ...";:.35:A.
E(UR$)..%... A.103.A.1..".....":.1280..%
..."..".P%..." GEEF HET ATOOMNUMMER VAN
HET LAATSTE ELEMENT"..%..UL.3:US$."0
123456789":." ...";:.35:B.E(UR$)..%#
.. B.103.B.A.."...":.1300..%(.YY.A:. 400
0.G%2.. 1,WATERSTOF,"H"..%<.. 2,HELIUM,"
HE"..%F.. 3,LITHIUM,"LI"..&P.. 4,BERYLLI
UM,"BE"..&Z.. 5,BORIUM,"B"./&D.. 6,KOOLS
TOF,"C".D&N.. 7,STIKSTOF,"N".Y&X.. 8,ZUU
RSTOF,"O".K&... 9,FLUOR,"F".~&... 10,NEO
N,"NE"..&... 11,NATRIUM,"NA"..& .. 12,MA
GNESIUM,"MG".D&... 13,ALUMINIUM,"AL"..&.
.. 14,SILICIUM,"SI"..&... 15,FOSFOR,"P".
.'H.. 16,ZWAVEL,"S"..'R.. 17,CHLOOR,"CL"
.,'... 18,ARGON,"AR".@'... 19,KALIUM,"K"
.V'... 20,CALCIUM,"CA".M'... 21,SCANDIUM
,"SC"..'... 22,TITANIUM,"TI"..'... 23,VA
NADIUM,"V"..'... 24,CHROOM,"CR".E'".. 25
,MANGAAN,"MN".Y',.. 26,IJZER,"FE"..'6..
27,COBALT,"CO"..(@.. 28,NIKKEL,"NI"..(J.
. 29,KOPER,"CU".*(T.. 30,ZINK,"ZN".@(^..
31,GALLIUM,"GA".X(H.. 32,GERMANIUM,"GE"
.M(R.. 33,ARSEEN,"AS"..(|.. 34,SELEEN,"S
E"..(... 35,BROOM,"BR"..(... 36,KRYPTON,
"KR".C(... 37,RUBIDIUM,"RB"..(... 38,STR
ONTIUM,"SR"..(... 39,YTTRIUM,"Y"..)... 4
0,ZIRCONIUM,"ZR"..)B.. 41,NIOBIUM,"NB".6
)L.. 42,MOLYBDEEN,"MO".O)V.. 43,TECHNETI
UM,"TC".G)... 44,RUTHENIUM,"RU".})... 45
,RHODIUM,"RH"..)... 46,PALLADIUM,"PD"..)
... 47,ZILVER,"AG"..)... 48,CADMIUM,"CD"
.U)... 49,INDIUM,"IN"..)... 50,TIN,"SN".
.)&.. 51,ANTIMOON,"SB"..*0.. 52,TELLUUR,
"TE".&*:.. 53,IOOD,"I".:*D.. 54,XENON,"X
E".O*N.. 55,CESIUM,"CS".D*X.. 56,BARIUM,
"BA".{*B.. 57,LANTHAAN,"LA"..*L.. 58,CER
IUM,"CE"..*V.. 59,PRASEODYMIUM,"PR".C*..
. 60,NEODYMIUM,"ND"..*... 61,PROMETHIUM,
"PM"..*... 62,SAMARIUM,"SM"..+... 63,EUR
OPIUM,"EU".#+... 64,GADOLINIUM,"GD".9+..
. 65,TERBIUM,"TB".R+... 66,DYSPROSIUM,"D
Y".H+F.. 67,HOLMIUM,"HO".}+P.. 68,ERBIUM
,"ER"..+Z.. 69,THULIUM,"TM"..+... 70,YTT
ERBIUM,"YB".B+... 71,LUTETIUM,"LU".X+...
72,HAFNIUM,"HF"..+... 73,TANTAAL,"TA"..
,... 74,WOLFRAAM,"W"..,... 75,RENIUM,"RE
".., .. 76,OSMIUM,"OS".D,*.. 77,IRIDIUM,
"IR".Z,4.. 78,PLATINA,"PT".M,>.. 79,GOUD
,"AU"..,H.. 80,KWIK,"HG"..,R.. 81,THALIU
M,"TH"..,\.. 82,LOOD,"PB"..,F.. 83,BISMU
T,"BI".U,P.. 84,POLONIUM,"PO"..,Z.. 85,A
STAAT,"AT"..,... 86,RADON,"RN"..-... 87,
FRANCIUM,"FR".*-... 88,RADIUM,"RA".A-...
89,ACTINIUM,"AC".W-... 90,THORIUM,"TH".
R-... 91,PROTACTINIUM,"PA"..-... 92,URAN
IUM,"U"..-J.. 93,NEPTUNIUM,"NP"..-T.. 94
,PLUTONIUM,"PU".O-... 95,AMERICIUM,"AM".
.-... 96,CURIUM,"CM"..-... 97,BERKELIUM,
"BK"...... 98,CALIFORNIUM,"CF".0.... 99,
EINSTEINIUM,"ES".G.... 100,FERMIUM,"FM".
B.... 101,MENDELEVIUM,"MD".Z.$.. 102,NOB
ELIUM,"NO"...... 103,LAWRENCIUM,"LW"...0
..GG.YY . B...3.C. E(H$(GG,1)).F.4.A$.H$
(GG,2).V.5.B$.H$(GG,3)...>..835...B.UP.A
.YY.1:.850...L.."....".)/V.." WAT IS HE
T SYMBOOL VOOR ";A$" ? ";.D/`.UL.2:US$."
":.35:C$.UR$.W/J.. C$.B$ . 2450.B/T.. 27
60.S/~.. A.B . 3030../..A.A.1:. GG../...
2480../... A.B . 3030../... 2440../..Y.
Y.1.I/... TT.1 . 5:.:. TT../D.T..(.(1).7
.1)../N.. T.1 . 2580../X.. T.2 . 2600..0
... T.3 . 2620..0... T.4 . 2640.00... T.
5 . 2660.A0... T.6 . 2680.R0... T.7 . 27
00.S0... .10),"ALL RIGHTTTTT!!!!!".~0..
. 2720..0(.. .10), "GOED ZO !"..02.. 272
0..0<.. .10), "PRIMA ".H0F.. 2720
..0P.. .10), "YEAH"..0Z.. 2720..0D.. .1
0),"OK"..1N.. 2720..1X.. .10), "NICE GO
ING!".(1... 2720.=1..." LUCKY GUESS".H1
... 2720.^1 .. RR.1 . 5:.:. RR..1..." JE
HEBT ER";Y;" GOED EN";X;" FOUT "..1....
.1H.X.X.1..1R.. MM.1 . 5:.:. MM.A1..S..(
.(1).7.1).R1... S.1 . 2860..1... S.2 . 2
880..1... S.3 . 2900..2... S.4 . 2920..2
... S.5 . 2940.'2... S.6 . 2960.82".. S.
7 . 2980.I2,.. "FOUT,PROBEER DE VOLGE
NDE.HET IS";"."B$.T26.. 2990..2@.. " WAT
EEN ANTWOORD.HET IS";"."B$..2J.. 2990.E
2T.. .10),"MIS.HET IS ";"."B$.P2^.. 2990
..2H.. .10),"NEE,HET IS ";"."B$..2R.. 29
90."3|.. .8), "OH,OH,OH !!!HET IS ";"."
B$.-3... 2990.Y3..." FOUT,FOUT,FOUT.HET
MOET ZIJN ";"."B$.D3... 2990..3... .8),"
WEER MIS.HET IS ";"."B$..3... ZZ.1 . 5
:.:. ZZ.J3..."JE HEBT ER ";Y;"GOED EN ";
X;" FOUT ".P3L....3V..835:. 850:."....".
)4..." JE SCORE :";Y;" VAN DE";X.Y;" D.
W.Z.":.:. .(Y.(X.Y).100);.24..."%".;4...
835.A4....V4 .. READER ROUTINE.B4... 875
:..S4... A1.1 . 103..4... A2.1 . 3..4H..
H$(A1,A2)..4R.. A2..4... A1..4.......
> CLICK IMAGE PREVIEW FOR FULL MODAL