ELEMENT.C3
FILE INFORMATION
FILENAME(S): ELEMENT.C3
FILE TYPE(S): PRG
FILE SIZE: 10.4K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 3 disk(s)
FILE HASH
5d21401de9cd1ee92e62309a900da44d17f46e7f385f5d809a18c70e99626848
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0006ED | ELEMENT.C3 | PRG | Treasure Chest - Klaus Der Suhler | 7 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | ELEMENT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 8 | DOWNLOAD FILE |
| L EHRNEN | ELEMENT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 8 | 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 C9 08 0A 00 8F 2D 2D 2D |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 2D 2D 2D 2D 00 CF 08 0F 00 3A 00 |UTINE----.....:.| 000000D0: D5 08 19 00 3A 00 DB 08 1E 00 3A 00 F8 08 23 00 |....:.....:...#.| 000000E0: 8F 2D 2D 2D 2D 2D 49 4E 50 55 54 20 53 45 43 54 |.-----INPUT SECT| 000000F0: 49 4F 4E 2D 2D 2D 2D 2D 00 0D 09 28 00 3A 20 20 |ION-----...(.: | 00000100: 55 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 21 09 |UR$."":UI$."".!.| 00000110: 2A 00 3A 20 20 8B 20 55 4C B2 30 A7 55 4C B2 38 |*.: . UL.0.UL.8| 00000120: 30 00 34 09 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 |0.4.-.." ..";:.| 00000130: 55 43 2C 30 00 4B 09 32 00 3A 20 20 A1 55 49 24 |UC,0.K.2.: .UI$| 00000140: 3A 8B 55 49 24 B2 22 22 A7 35 30 00 78 09 37 00 |:.UI$."".50.x.7.| 00000150: 3A 20 20 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 |: .UI$..(13)..(| 00000160: 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 |UR$)..1..UC,1:."| 00000170: 20 9D 22 3B 3A 89 38 35 00 8E 09 3C 00 3A 20 20 | .";:.85...<.: | 00000180: 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 A6 |.UI$..(20).105..| 00000190: 09 3E 00 3A 20 20 8B 20 C3 28 55 52 24 29 B2 B1 |.>.: . .(UR$)..| 000001A0: 55 4C 20 A7 35 30 00 CE 09 41 00 3A 20 20 8D 31 |UL .50...A.: .1| 000001B0: 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 |20:. CHECK FOR V| 000001C0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 E1 |ALID CHARACTER..| 000001D0: 09 46 00 3A 20 20 55 52 24 B2 55 52 24 AA 55 49 |.F.: UR$.UR$.UI| 000001E0: 24 00 EE 09 4B 00 3A 20 20 99 55 49 24 3B 00 F9 |$...K.: .UI$;..| 000001F0: 09 50 00 3A 20 20 89 35 30 00 1F 0A 55 00 8F 2D |.P.: .50...U..-| 00000200: 2D 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 20 48 45 |----CHECK FOR HE| 00000210: 4C 50 20 52 45 51 55 45 53 54 2D 2D 2D 2D 2D 00 |LP REQUEST-----.| 00000220: 4A 0A 5A 00 3A 20 20 8B 55 52 24 B2 55 58 24 A7 |J.Z.: .UR$.UX$.| 00000230: 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 |195:. EXIT TO HE| 00000240: 4C 50 20 52 4F 55 54 49 4E 45 00 5C 0A 5F 00 3A |LP ROUTINE.\._.:| 00000250: 20 20 8B 55 46 B2 31 A7 8D 32 34 30 00 6B 0A 64 | .UF.1..240.k.d| 00000260: 00 3A 20 55 46 B2 30 3A 99 3A 8E 00 87 0A 66 00 |.: UF.0:.:....f.| 00000270: 8F 2D 2D 2D 2D 2D 43 48 45 43 4B 20 44 45 4C 45 |.-----CHECK DELE| 00000280: 54 45 2D 2D 2D 2D 2D 00 9A 0A 69 00 3A 20 8B C3 |TE-----...i.: ..| 00000290: 28 55 52 24 29 B3 31 A7 35 30 00 B4 0A 6E 00 3A |(UR$).1.50...n.:| 000002A0: 20 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 | UR$..(UR$,.(UR$| 000002B0: 29 AB 31 29 00 C8 0A 73 00 3A 20 99 22 9D 20 20 |).1)...s.: .". | 000002C0: 9D 9D 22 3B 3A 89 35 30 00 F2 0A 78 00 8F 2D 2D |..";:.50...x..--| 000002D0: 2D 2D 2D 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |---CHECK FOR VAL| 000002E0: 49 44 20 43 48 41 52 41 43 54 45 52 53 2D 2D 2D |ID CHARACTERS---| 000002F0: 2D 2D 00 07 0B 7D 00 3A 20 20 8B C3 28 55 53 24 |--...}.: ..(US$| 00000300: 29 B2 30 A7 31 35 30 00 1B 0B 82 00 3A 20 20 81 |).0.150.....: .| 00000310: 55 53 B2 31 A4 C3 28 55 53 24 29 00 37 0B 87 00 |US.1..(US$).7...| 00000320: 3A 20 20 20 20 8B 55 49 24 B2 CA 28 55 53 24 2C |: .UI$..(US$,| 00000330: 55 53 2C 31 29 A7 8E 00 40 0B 8C 00 3A 20 20 82 |US,1)...@...: .| 00000340: 00 50 0B 91 00 3A 20 20 55 49 24 B2 22 22 3A 8E |.P...: UI$."":.| 00000350: 00 6E 0B 96 00 8F 2D 2D 2D 2D 2D 53 54 41 4E 44 |.n....-----STAND| 00000360: 41 52 44 20 49 4E 50 55 54 2D 2D 2D 2D 2D 00 83 |ARD INPUT-----..| 00000370: 0B 98 00 3A 20 20 8B C6 28 55 49 24 29 B2 34 36 |...: ..(UI$).46| 00000380: A7 20 8E 00 98 0B 9B 00 3A 20 20 8B 55 49 24 B2 |. ......: .UI$.| 00000390: C7 28 33 32 29 A7 20 8E 00 BA 0B A0 00 3A 20 20 |.(32). ......: | 000003A0: 8B C6 28 55 49 24 29 B3 34 38 20 B0 20 C6 28 55 |..(UI$).48 . .(U| 000003B0: 49 24 29 B1 35 37 A7 31 37 30 00 C3 0B A5 00 3A |I$).57.170.....:| 000003C0: 20 20 8E 00 E5 0B AA 00 3A 20 20 8B C6 28 55 49 | ......: ..(UI| 000003D0: 24 29 B3 36 35 20 B0 20 C6 28 55 49 24 29 B1 39 |$).65 . .(UI$).9| 000003E0: 30 A7 31 38 30 00 EE 0B AF 00 3A 20 20 8E 00 17 |0.180.....: ...| 000003F0: 0C B4 00 3A 20 20 8B C6 28 55 49 24 29 B3 31 39 |...: ..(UI$).19| 00000400: 33 20 B0 20 C6 28 55 49 24 29 B1 32 31 38 A7 55 |3 . .(UI$).218.U| 00000410: 49 24 B2 22 22 3A 8E 00 45 0C B9 00 3A 20 20 8B |I$."":..E...: .| 00000420: C2 28 55 54 29 B2 31 32 B0 C2 28 55 54 29 B2 32 |.(UT).12..(UT).2| 00000430: 31 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 |1.UI$..(.(UI$).1| 00000440: 32 38 29 3A 8E 00 4E 0C BB 00 3A 20 20 8E 00 5E |28):..N...: ..^| 00000450: 0C BE 00 3A 20 20 55 49 24 B2 22 22 3A 8E 00 87 |...: UI$."":...| 00000460: 0C C3 00 3A 20 20 55 46 B2 31 3A 8F 2D 2D 2D 2D |...: UF.1:.----| 00000470: 2D 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 |-HELP ROUTINE EX| 00000480: 49 54 2D 2D 2D 2D 2D 00 93 0C C5 00 3A 20 20 8D |IT-----.....: .| 00000490: 32 35 30 00 9F 0C C8 00 3A 20 20 8D 32 34 35 00 |250.....: .245.| 000004A0: C1 0C CD 00 3A 20 20 81 55 51 B2 55 42 A4 28 55 |....: .UQ.UB.(U| 000004B0: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 |2%.256.U1%.U3%.2| 000004C0: 29 00 E0 0C D2 00 3A 20 20 55 51 25 28 55 51 AB |).....: UQ%(UQ.| 000004D0: 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 |UB)..(UQ):.:."."| 000004E0: 00 F6 0C D7 00 3A 20 20 55 5A B2 31 3A 55 56 25 |.....: UZ.1:UV%| 000004F0: B2 C2 28 55 54 29 00 02 0D D8 00 3A 20 20 89 33 |..(UT).....: .3| 00000500: 30 30 00 27 0D D9 00 55 5A B2 30 3A 55 53 24 B2 |00.'...UZ.0:US$.| 00000510: 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 |UJ$:UG$.UK$:UP.U| 00000520: 4A 3A 55 4C B2 55 4B 00 5E 0D DA 00 8B C2 28 35 |J:UL.UK.^.....(5| 00000530: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 |0003).0..53281,1| 00000540: 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A |:.".";:.53281,6:| 00000550: 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 68 |.53280,14:.220.h| 00000560: 0D DB 00 99 22 93 22 3B 00 97 0D DC 00 55 54 24 |....".";.....UT$| 00000570: B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 |.UL$:.UT,UV%:.UQ| 00000580: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%| 00000590: AA 55 33 25 AB 33 29 00 AF 0D E1 00 3A 20 20 97 |.U3%.3).....: .| 000005A0: 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 |UQ,UQ%(UQ.UB):..| 000005B0: BE 0D E6 00 3A 20 20 97 55 31 2C 55 31 25 00 CD |....: .U1,U1%..| 000005C0: 0D E8 00 3A 20 20 97 55 32 2C 55 32 25 00 DC 0D |...: .U2,U2%...| 000005D0: E9 00 3A 20 20 97 55 34 2C 55 34 25 00 ED 0D EA |..: .U4,U4%....| 000005E0: 00 3A 20 20 97 55 33 2C 55 33 25 AB 31 00 F8 0D |.: .U3,U3%.1...| 000005F0: EB 00 3A 20 20 89 33 35 00 2D 0E F0 00 3A 20 20 |..: .35.-...: | 00000600: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1| 00000610: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..| 00000620: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 6B 0E |(UD$,UD%.1):..k.| 00000630: F5 00 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 3B |..: ..(UD$,24);| 00000640: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000650: 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F | . HELP CO| 00000660: 4D 49 4E 47 20 92 20 20 22 3A 8E 00 9A 0E FA 00 |MING . ":......| 00000670: 3A 20 20 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |: U1%..(U1):U2%| 00000680: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)| 00000690: 3A 55 34 25 B2 C2 28 55 34 29 00 AC 0E FB 00 55 |:U4%..(U4).....U| 000006A0: 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 CF 0E FC |J$.US$:UJ.UL....| 000006B0: 00 3A 20 20 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |.: UJ$.US$:UK$.| 000006C0: 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UG$:UJ.UP:UK.UL.| 000006D0: D8 0E FF 00 3A 20 20 8E 00 EC 0E 2C 01 8F 2D 2D |....: ....,..--| 000006E0: 2D 2D 2D 4D 45 4E 55 2D 2D 2D 2D 2D 00 F2 0E 2D |---MENU-----...-| 000006F0: 01 3A 00 24 0F 2E 01 3A 20 20 99 22 93 22 3A 97 |.:.$...: .".":.| 00000700: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)| 00000710: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532| 00000720: 38 30 2C 38 00 2A 0F 2F 01 3A 00 4A 0F 31 01 3A |80,8.*./.:.J.1.:| 00000730: 20 20 99 22 93 20 20 20 20 20 20 20 20 20 20 20 | .". | 00000740: 20 20 20 20 20 4D 45 4E 55 22 00 7C 0F 36 01 3A | MENU".|.6.:| 00000750: 20 20 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ." -----------| 00000760: 2D 2D 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 22 00 A2 0F 3B |-----------"...;| 00000780: 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 31 |.: .".. 1| 00000790: 2E 20 20 20 42 45 47 49 4E 20 45 4C 45 4D 45 4E |. BEGIN ELEMEN| 000007A0: 54 22 00 CF 0F 40 01 3A 20 20 99 22 11 11 20 20 |T"...@.: .".. | 000007B0: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN| 000007C0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".| 000007D0: FC 0F 45 01 3A 20 20 99 22 11 11 20 20 20 20 20 |..E.: .".. | 000007E0: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I| 000007F0: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 2C 10 4A |NSTRUCTIONS".,.J| 00000800: 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 34 |.: .".. 4| 00000810: 2E 20 20 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |. MODIFICATION| 00000820: 20 4F 46 20 50 52 4F 47 52 41 4D 22 00 4B 10 4F | OF PROGRAM".K.O| 00000830: 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 35 |.: .".. 5| 00000840: 2E 20 20 20 51 55 49 54 11 11 22 00 7D 10 54 01 |. QUIT..".}.T.| 00000850: 3A 20 20 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |: ." ----------| 00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AB 10 |------------"...| 00000880: 59 01 3A 20 20 99 22 11 11 20 20 20 20 20 20 20 |Y.: .".. | 00000890: 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B |PRESS A NUMBER K| 000008A0: 45 59 20 28 31 2D 35 29 20 22 3B 00 DC 10 5E 01 |EY (1-5) ";...^.| 000008B0: 3A 20 20 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 |: UL.1:US$."123| 000008C0: 34 35 22 3A 8D 33 35 3A 8F 2D 2D 2D 49 4E 50 55 |45":.35:.---INPU| 000008D0: 54 20 52 4F 55 54 49 4E 45 2D 2D 2D 00 F1 10 5F |T ROUTINE---..._| 000008E0: 01 3A 20 20 8B C3 28 55 52 24 29 B1 31 A7 33 30 |.: ..(UR$).1.30| 000008F0: 30 00 FF 10 60 01 3A 20 20 55 53 24 B2 22 22 00 |0...`.: US$."".| 00000900: 23 11 63 01 3A 20 20 91 C5 28 55 52 24 29 8D 31 |#.c.: ..(UR$).1| 00000910: 30 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C |000,400,500,600,| 00000920: 33 39 36 00 2F 11 68 01 3A 20 20 89 33 30 30 00 |396./.h.: .300.| 00000930: 59 11 8B 01 8F 2D 2D 2D 2D 2D 52 45 2D 45 4E 41 |Y....-----RE-ENA| 00000940: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND| 00000950: 20 45 4E 44 2D 2D 2D 2D 2D 00 8B 11 8C 01 3A 20 | END-----.....: | 00000960: 20 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 | ..(50003)..1..(| 00000970: 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 |50003)..160..(50| 00000980: 30 30 33 29 B3 B1 30 A7 33 39 39 00 B8 11 8D 01 |003)..0.399.....| 00000990: 3A 20 20 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 |: .UU.71:..(500| 000009A0: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.| 000009B0: 35 33 32 38 30 2C 31 34 00 C7 11 8E 01 3A 20 20 |53280,14.....: | 000009C0: 99 22 9A 93 22 3A 80 00 D5 11 8F 01 3A 20 20 8D |."..":......: .| 000009D0: 38 37 35 3A 8E 00 F9 11 90 01 8F 2D 2D 2D 2D 2D |875:.......-----| 000009E0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT| 000009F0: 49 4F 4E 53 2D 2D 2D 2D 2D 00 2B 12 95 01 3A 20 |IONS-----.+...: | 00000A00: 20 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 | .".":.UT,UL%:..| 00000A10: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00000A20: 2C 30 3A 97 35 33 32 38 30 2C 30 00 4C 12 9A 01 |,0:.53280,0.L...| 00000A30: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN| 00000A40: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 7D 12 9C |T .NST":.850.}..| 00000A50: 01 3A 20 20 99 22 11 11 11 11 20 20 20 20 D2 45 |.: .".... .E| 00000A60: 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 20 3C 52 |MEMBER TO HIT <R| 00000A70: 45 54 55 52 4E 3E 20 41 46 54 45 52 22 00 A9 12 |ETURN> AFTER"...| 00000A80: 9E 01 3A 20 20 99 22 20 20 20 54 59 50 49 4E 47 |..: ." TYPING| 00000A90: 20 59 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 | YOUR ANSWER. .H| 00000AA0: 49 53 20 54 45 4C 4C 53 22 00 D6 12 A0 01 3A 20 |IS TELLS".....: | 00000AB0: 20 99 22 20 20 20 54 48 45 20 43 4F 4D 50 55 54 | ." THE COMPUT| 00000AC0: 45 52 20 54 4F 20 41 43 43 45 50 54 20 57 48 41 |ER TO ACCEPT WHA| 00000AD0: 54 20 59 4F 55 22 00 05 13 A2 01 3A 20 20 99 22 |T YOU".....: ."| 00000AE0: 20 20 20 48 41 56 45 20 54 59 50 45 44 2E 20 20 | HAVE TYPED. | 00000AF0: C5 52 52 4F 52 53 20 43 41 4E 20 42 45 20 45 52 |.RRORS CAN BE ER| 00000B00: 41 53 45 44 22 00 2B 13 A3 01 3A 20 20 99 22 20 |ASED".+...: ." | 00000B10: 20 20 57 49 54 48 20 54 48 45 20 3C 49 4E 53 54 | WITH THE <INST| 00000B20: 2F 44 45 4C 3E 20 4B 45 59 2E 22 00 59 13 A4 01 |/DEL> KEY.".Y...| 00000B30: 3A 20 20 99 22 11 20 20 20 20 D4 59 50 45 20 3C |: .". .YPE <| 00000B40: 48 3E 20 41 54 20 41 4E 59 20 54 49 4D 45 20 54 |H> AT ANY TIME T| 00000B50: 4F 20 52 45 54 55 52 4E 22 00 86 13 A6 01 3A 20 |O RETURN".....: | 00000B60: 20 99 22 20 20 20 54 4F 20 54 48 45 20 4D 45 4E | ." TO THE MEN| 00000B70: 55 20 46 4F 52 20 48 45 4C 50 2E 20 20 D9 4F 55 |U FOR HELP. .OU| 00000B80: 20 57 49 4C 4C 22 00 B3 13 A8 01 3A 20 20 99 22 | WILL".....: ."| 00000B90: 20 20 20 42 45 20 52 45 54 55 52 4E 45 44 20 54 | BE RETURNED T| 00000BA0: 4F 20 54 48 45 20 50 4C 41 43 45 20 49 4E 20 54 |O THE PLACE IN T| 00000BB0: 48 45 22 00 DE 13 AA 01 3A 20 20 99 22 20 20 20 |HE".....: ." | 00000BC0: 50 52 4F 47 52 41 4D 20 57 48 45 52 45 20 59 4F |PROGRAM WHERE YO| 00000BD0: 55 20 4C 45 46 54 20 4F 46 46 20 41 53 22 00 0C |U LEFT OFF AS"..| 00000BE0: 14 AC 01 3A 20 20 99 22 20 20 20 53 4F 4F 4E 20 |...: ." SOON | 00000BF0: 41 53 20 54 48 45 20 4F 50 54 49 4F 4E 20 46 52 |AS THE OPTION FR| 00000C00: 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 26 14 AE |OM THE MENU".&..| 00000C10: 01 3A 20 20 99 22 20 20 20 49 53 20 43 4F 4D 50 |.: ." IS COMP| 00000C20: 4C 45 54 45 2E 22 00 37 14 B0 01 3A 20 20 8D 38 |LETE.".7...: .8| 00000C30: 33 35 3A 8D 38 35 30 00 65 14 B3 01 99 22 11 11 |35:.850.e...."..| 00000C40: 11 20 20 20 20 D4 48 49 53 20 51 55 49 5A 20 49 |. .HIS QUIZ I| 00000C50: 53 20 43 4F 4E 43 45 52 4E 45 44 20 57 49 54 48 |S CONCERNED WITH| 00000C60: 20 54 48 45 22 00 93 14 B5 01 99 22 20 20 43 48 | THE"......" CH| 00000C70: 45 4D 49 43 41 4C 20 45 4C 45 4D 45 4E 54 53 20 |EMICAL ELEMENTS | 00000C80: 41 4E 44 20 54 48 45 49 52 20 53 59 4D 42 4F 4C |AND THEIR SYMBOL| 00000C90: 53 2E 22 00 C0 14 B8 01 99 3A 99 22 20 20 20 20 |S."......:." | 00000CA0: D9 4F 55 20 57 49 4C 4C 20 42 45 20 47 49 56 45 |.OU WILL BE GIVE| 00000CB0: 4E 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 41 4E |N THE NAME OF AN| 00000CC0: 00 ED 14 BA 01 99 22 20 20 45 4C 45 4D 45 4E 54 |......" ELEMENT| 00000CD0: 20 41 4E 44 20 41 53 4B 45 44 20 54 4F 20 53 55 | AND ASKED TO SU| 00000CE0: 50 50 4C 59 20 49 54 53 20 20 20 20 22 00 FE 14 |PPLY ITS "...| 00000CF0: BC 01 99 22 20 20 53 59 4D 42 4F 4C 2E 22 00 2D |..." SYMBOL.".-| 00000D00: 15 BD 01 99 3A 99 22 20 20 20 20 D4 59 50 45 20 |....:." .YPE | 00000D10: 49 4E 20 54 48 45 20 53 59 4D 42 4F 4C 2C 20 41 |IN THE SYMBOL, A| 00000D20: 4E 44 20 50 52 45 53 53 20 54 48 45 22 00 43 15 |ND PRESS THE".C.| 00000D30: BF 01 99 22 20 20 3C 52 45 54 55 52 4E 3E 20 4B |..." <RETURN> K| 00000D40: 45 59 22 00 70 15 C2 01 99 3A 99 22 20 20 20 20 |EY".p....:." | 00000D50: C3 41 50 49 54 41 4C 20 4C 45 54 54 45 52 53 20 |.APITAL LETTERS | 00000D60: 43 41 4E 20 42 45 20 4F 42 54 41 49 4E 45 44 22 |CAN BE OBTAINED"| 00000D70: 00 93 15 C4 01 99 22 20 20 42 59 20 55 53 49 4E |......" BY USIN| 00000D80: 47 20 54 48 45 20 3C 53 48 49 46 54 3E 20 4B 45 |G THE <SHIFT> KE| 00000D90: 59 2E 22 00 C0 15 C7 01 99 3A 99 22 20 20 20 20 |Y."......:." | 00000DA0: D4 48 45 52 45 20 41 52 45 20 54 45 4E 20 51 55 |.HERE ARE TEN QU| 00000DB0: 45 53 54 49 4F 4E 53 20 49 4E 20 45 41 43 48 22 |ESTIONS IN EACH"| 00000DC0: 00 CF 15 C9 01 99 22 20 20 51 55 49 5A 2E 22 00 |......" QUIZ.".| 00000DD0: DB 15 E5 01 3A 20 20 8D 38 33 35 00 F2 15 EA 01 |....: .835.....| 00000DE0: 3A 20 20 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |: .UZ.1..UP%:.2| 00000DF0: 31 37 00 FB 15 F3 01 3A 20 20 8E 00 1F 16 F4 01 |17.....: ......| 00000E00: 8F 2D 2D 2D 2D 2D 54 45 41 43 48 45 52 20 49 4E |.-----TEACHER IN| 00000E10: 53 54 52 55 43 54 49 4F 4E 53 2D 2D 2D 2D 2D 00 |STRUCTIONS-----.| 00000E20: 52 16 F5 01 3A 20 20 99 22 93 22 3A 97 55 54 2C |R...: .".":.UT,| 00000E30: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.| 00000E40: 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C |.53281,2:.53280,| 00000E50: 31 30 00 77 16 F6 01 3A 20 20 55 50 B2 30 3A 55 |10.w...: UP.0:U| 00000E60: 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 |G$.".EACHER .NST| 00000E70: 2E 22 3A 8D 38 35 30 00 A8 16 F7 01 3A 20 20 99 |.":.850.....: .| 00000E80: 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 |".. .O THE | 00000E90: 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 |BEST OF OUR KNOW| 00000EA0: 4C 45 44 47 45 2C 11 22 00 D4 16 F8 01 3A 20 20 |LEDGE,.".....: | 00000EB0: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000EC0: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000ED0: 49 43 11 22 00 03 17 F9 01 3A 20 20 99 22 20 20 |IC.".....: ." | 00000EE0: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI| 00000EF0: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS| 00000F00: 45 11 22 00 23 17 FA 01 3A 20 20 99 22 20 20 20 |E.".#...: ." | 00000F10: 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 |PLEASE CONTACT:.| 00000F20: 11 11 22 00 50 17 FB 01 3A 20 20 99 22 20 20 20 |..".P...: ." | 00000F30: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 | .OMMODORE .US| 00000F40: 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 |INESS .ACHINES."| 00000F50: 00 76 17 FC 01 3A 20 20 99 22 20 20 20 20 20 20 |.v...: ." | 00000F60: 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 | 3370 .HARMAC| 00000F70: 59 20 C1 56 45 2E 00 9D 17 FD 01 3A 20 20 99 22 |Y .VE......: ."| 00000F80: 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F | .GINCO| 00000F90: 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 C2 17 |URT, .NTARIO"...| 00000FA0: FE 01 3A 20 20 99 22 20 20 20 20 20 20 20 20 20 |..: ." | 00000FB0: 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB | .ANADA .1. 2.| 00000FC0: 34 22 00 E5 17 FF 01 3A 20 20 99 22 20 20 20 20 |4".....: ." | 00000FD0: 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D | (416) 499-| 00000FE0: 34 32 39 32 22 00 FB 17 00 02 55 50 B2 31 3A 8D |4292".....UP.1:.| 00000FF0: 20 38 33 35 3A 8D 20 38 35 30 3A 00 25 18 01 02 | 835:. 850:.%...| 00001000: 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D |." ...ROGRAM| 00001010: 20 CE 41 4D 45 3A 20 D0 52 4F 47 52 41 4D 20 D4 | .AME: .ROGRAM .| 00001020: 49 54 4C 45 11 00 47 18 02 02 99 22 20 20 20 20 |ITLE..G...." | 00001030: 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 | .RITTEN .Y : .| 00001040: 4E 4B 4E 4F 57 4E 11 00 6B 18 03 02 99 22 20 20 |NKNOWN..k...." | 00001050: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :| 00001060: 20 D9 4F 55 52 20 CE 41 4D 45 11 00 96 18 04 02 | .OUR .AME......| 00001070: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO| 00001080: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON| 00001090: 20 41 4E 59 11 11 00 B6 18 07 02 99 22 20 20 20 | ANY........" | 000010A0: 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD | ... 64 ...| 000010B0: D0 D5 D4 C5 D2 11 00 DB 18 08 02 99 22 20 20 20 |............" | 000010C0: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... | 000010D0: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 EC 18 1C 02 |64 .............| 000010E0: 3A 20 20 8D 38 33 35 3A 8D 38 35 30 00 20 19 1D |: .835:.850. ..| 000010F0: 02 3A 20 20 99 22 11 11 11 20 20 20 20 20 D4 48 |.: ."... .H| 00001100: 49 53 20 49 53 20 41 20 53 48 4F 52 54 20 44 52 |IS IS A SHORT DR| 00001110: 49 4C 4C 20 4F 4E 20 45 4C 45 4D 45 4E 54 53 22 |ILL ON ELEMENTS"| 00001120: 00 51 19 1E 02 3A 20 20 99 22 11 20 20 20 54 48 |.Q...: .". TH| 00001130: 45 49 52 20 53 59 4D 42 4F 4C 53 2E 20 20 D4 48 |EIR SYMBOLS. .H| 00001140: 45 20 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 45 |E PROGRAM CAN BE| 00001150: 22 00 81 19 1F 02 3A 20 20 99 22 11 20 20 20 46 |".....: .". F| 00001160: 4F 52 20 52 45 56 49 45 57 20 4F 52 20 54 4F 20 |OR REVIEW OR TO | 00001170: 52 45 49 4E 46 4F 52 43 45 20 54 48 49 4E 47 53 |REINFORCE THINGS| 00001180: 22 00 98 19 20 02 3A 20 20 99 22 11 20 20 20 4C |"... .: .". L| 00001190: 45 41 52 4E 45 44 2E 22 00 C6 19 21 02 3A 20 20 |EARNED."...!.: | 000011A0: 99 22 11 20 20 20 20 20 D4 48 45 20 53 54 55 44 |.". .HE STUD| 000011B0: 45 4E 54 53 20 53 48 4F 55 4C 44 20 4E 4F 54 20 |ENTS SHOULD NOT | 000011C0: 55 53 45 20 41 22 00 F7 19 22 02 3A 20 20 99 22 |USE A"...".: ."| 000011D0: 11 20 20 20 50 45 52 49 4F 44 49 43 20 54 41 42 |. PERIODIC TAB| 000011E0: 4C 45 20 4F 52 20 48 41 56 45 20 41 4E 59 20 4F |LE OR HAVE ANY O| 000011F0: 55 54 53 49 44 45 22 00 1F 1A 23 02 3A 20 20 99 |UTSIDE"...#.: .| 00001200: 22 11 20 20 20 48 45 4C 50 20 57 48 45 4E 20 44 |". HELP WHEN D| 00001210: 4F 49 4E 47 20 54 48 45 20 51 55 49 5A 2E 22 00 |OING THE QUIZ.".| 00001220: 2B 1A 44 02 3A 20 20 8D 38 33 35 00 42 1A 4E 02 |+.D.: .835.B.N.| 00001230: 3A 20 20 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |: .UZ.1..UP%:.2| 00001240: 31 37 00 4B 1A 57 02 3A 20 20 8E 00 74 1A 58 02 |17.K.W.: ..t.X.| 00001250: 8F 2D 2D 2D 2D 2D 50 52 4F 47 52 41 4D 20 4D 4F |.-----PROGRAM MO| 00001260: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 2D |DIFICATION INST-| 00001270: 2D 2D 2D 2D 00 88 1A 59 02 3A 20 20 99 22 93 22 |----...Y.: ."."| 00001280: 3A 97 55 54 2C 55 4C 25 00 AB 1A 5D 02 3A 20 20 |:.UT,UL%...].: | 00001290: 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 |UP.0:UG$.".ROGRA| 000012A0: 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 D8 1A 62 02 |M .OD":.850...b.| 000012B0: 3A 20 20 99 22 11 11 11 11 20 20 20 20 C5 4C 45 |: .".... .LE| 000012C0: 4D 45 4E 54 53 20 43 41 4E 20 42 45 20 43 48 41 |MENTS CAN BE CHA| 000012D0: 4E 47 45 44 20 42 59 22 00 02 1B 64 02 3A 20 20 |NGED BY"...d.: | 000012E0: 99 22 20 20 20 43 48 41 4E 47 49 4E 47 20 54 48 |." CHANGING TH| 000012F0: 45 20 44 41 54 41 20 46 52 4F 4D 20 4C 49 4E 45 |E DATA FROM LINE| 00001300: 53 22 00 2C 1B 66 02 3A 20 20 99 22 20 20 20 32 |S".,.f.: ." 2| 00001310: 31 34 30 20 54 4F 20 32 34 33 30 2E 20 20 D4 48 |140 TO 2430. .H| 00001320: 45 20 46 4F 52 4D 41 54 20 49 53 22 00 59 1B 68 |E FORMAT IS".Y.h| 00001330: 02 3A 20 20 99 22 20 20 20 27 45 4C 45 4D 45 4E |.: ." 'ELEMEN| 00001340: 54 2C 53 59 4D 42 4F 4C 2C 45 4C 45 4D 45 4E 54 |T,SYMBOL,ELEMENT| 00001350: 2C 53 59 4D 42 4F 4C 27 22 00 80 1B 6A 02 3A 20 |,SYMBOL'"...j.: | 00001360: 20 99 22 20 20 20 53 45 50 41 52 41 54 45 44 20 | ." SEPARATED | 00001370: 42 59 20 43 4F 4D 4D 41 53 2E 20 45 47 2E 2C 22 |BY COMMAS. EG.,"| 00001380: 00 B6 1B 6B 02 3A 20 20 99 22 11 20 32 31 34 30 |...k.: .". 2140| 00001390: 20 44 41 54 41 22 3B C7 28 33 34 29 3B 22 C8 59 | DATA";.(34);".Y| 000013A0: 44 52 4F 47 45 4E 22 3B C7 28 33 34 29 22 2C 22 |DROGEN";.(34)","| 000013B0: C7 28 33 34 29 3B 00 F2 1B 6C 02 3A 20 20 99 22 |.(34);...l.: ."| 000013C0: C8 22 3B C7 28 33 34 29 22 2C 22 C7 28 33 34 29 |.";.(34)",".(34)| 000013D0: 3B 22 C8 45 4C 49 55 4D 22 3B C7 28 33 34 29 22 |;".ELIUM";.(34)"| 000013E0: 2C 22 C7 28 33 34 29 3B 22 C8 45 22 3B C7 28 33 |,".(34);".E";.(3| 000013F0: 34 29 00 22 1C 6E 02 3A 20 20 99 22 11 20 20 20 |4).".n.: .". | 00001400: 20 D4 48 45 20 46 49 52 53 54 20 33 30 20 41 52 | .HE FIRST 30 AR| 00001410: 45 20 43 4F 4D 4D 4F 4E 20 45 4C 45 4D 45 4E 54 |E COMMON ELEMENT| 00001420: 53 22 00 50 1C 70 02 3A 20 20 99 22 20 20 20 46 |S".P.p.: ." F| 00001430: 4F 4C 4C 4F 57 45 44 20 42 59 20 33 30 20 4C 45 |OLLOWED BY 30 LE| 00001440: 53 53 20 43 4F 4D 4D 4F 4E 20 4F 4E 45 53 2E 22 |SS COMMON ONES."| 00001450: 00 7E 1C 72 02 3A 20 20 99 22 20 20 20 CF 52 44 |.~.r.: ." .RD| 00001460: 45 52 20 41 4E 44 20 54 48 45 20 4E 55 4D 42 45 |ER AND THE NUMBE| 00001470: 52 20 4F 46 20 45 4C 45 4D 45 4E 54 53 22 00 AD |R OF ELEMENTS"..| 00001480: 1C 74 02 3A 20 20 99 22 20 20 20 41 52 45 20 56 |.t.: ." ARE V| 00001490: 45 52 59 20 49 4D 50 4F 52 54 41 4E 54 20 41 4E |ERY IMPORTANT AN| 000014A0: 44 20 53 48 4F 55 4C 44 20 4E 4F 54 22 00 DD 1C |D SHOULD NOT"...| 000014B0: 76 02 3A 20 20 99 22 20 20 20 42 45 20 43 48 41 |v.: ." BE CHA| 000014C0: 4E 47 45 44 20 57 48 45 4E 20 43 48 41 4E 47 49 |NGED WHEN CHANGI| 000014D0: 4E 47 20 54 48 45 20 44 41 54 41 2E 22 00 E9 1C |NG THE DATA."...| 000014E0: 94 02 3A 20 20 8D 38 33 35 00 00 1D B2 02 3A 20 |..: .835.....: | 000014F0: 20 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 | .UZ.1..UP%:.217| 00001500: 00 09 1D BB 02 3A 20 20 8E 00 31 1D BC 02 8F 2D |.....: ..1....-| 00001510: 2D 2D 2D 2D 54 4F 20 55 53 45 20 38 30 33 32 20 |----TO USE 8032 | 00001520: 4C 4F 41 44 20 43 42 4D 34 30 33 32 2D 2D 2D 2D |LOAD CBM4032----| 00001530: 2D 00 67 1D C6 02 99 22 93 11 11 11 05 42 45 46 |-.g....".....BEF| 00001540: 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 |ORE RUNNING THIS| 00001550: 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 | PROGRAM ON AN 8| 00001560: 30 33 32 20 20 11 11 00 9D 1D D0 02 99 22 20 20 |032 ........" | 00001570: 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 | LOAD THE 'CB| 00001580: 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 |M 4032' PROGRAM.| 00001590: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 AB 1D |............"...| 000015A0: DA 02 3A 20 20 9E 55 55 AA 37 31 00 B4 1D E4 02 |..: .UU.71.....| 000015B0: 3A 20 20 80 00 D4 1D 20 03 8F 20 2A 2A 20 54 20 |: .... .. ** T | 000015C0: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G | 000015D0: 45 20 2A 2A 00 08 1E 22 03 99 22 93 11 1D 05 22 |E **...".."...."| 000015E0: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500| 000015F0: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:| 00001600: 97 35 33 32 38 31 2C 36 00 1E 1E 24 03 81 49 B2 |.53281,6...$..I.| 00001610: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 36 |1.38:."...";:..6| 00001620: 1E 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...| 00001630: A6 92 22 3B 3A 82 00 4E 1E 28 03 81 49 B2 31 A4 |..";:..N.(..I.1.| 00001640: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 66 |37:.".....";:..f| 00001650: 1E 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...| 00001660: A6 92 22 3B 3A 82 00 8B 1E 2C 03 99 22 13 11 11 |..";:....,.."...| 00001670: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001680: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 AD 1E 2E 03 |........ ......| 00001690: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 000016A0: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 CE 1E |..... . . .....| 000016B0: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............| 000016C0: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 EC |....... . .....| 000016D0: 1E 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........| 000016E0: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 14 1F 34 |......... ....4| 000016F0: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............| 00001700: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R| 00001710: 20 45 11 11 00 37 1F 36 03 99 22 1D 1D 1D 1D 1D | E...7.6..".....| 00001720: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT| 00001730: 49 4F 4E 41 4C 11 11 00 56 1F 38 03 99 22 1D 1D |IONAL...V.8.."..| 00001740: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO| 00001750: 46 54 57 41 52 45 00 71 1F 3A 03 8F 20 2A 2A 20 |FTWARE.q.:.. ** | 00001760: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *| 00001770: 2A 00 A9 1F 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*...;...(UD$,24)| 00001780: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES| 00001790: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W| 000017A0: 41 49 54 92 22 3A 49 B2 30 00 CB 1F 3C 03 A1 41 |AIT.":I.0...<..A| 000017B0: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1| 000017C0: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 F2 1F 3E 03 |:.I.250.828...>.| 000017D0: 3A 20 20 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 |: T1$."":T2$.""| 000017E0: 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 |:T3$."":T4$."":I| 000017F0: B2 30 00 FE 1F 40 03 3A 20 20 89 33 30 30 00 1D |.0...@.: .300..| 00001800: 20 43 03 8F 2D 2D 2D 2D 2D 53 50 41 43 45 20 42 | C..-----SPACE B| 00001810: 41 52 20 50 52 45 53 53 2D 2D 2D 2D 2D 00 55 20 |AR PRESS-----.U | 00001820: 48 03 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 3B |H.: ..(UD$,24);| 00001830: 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |".......PRESS SP| 00001840: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI| 00001850: 4E 55 45 92 22 00 6F 20 4C 03 3A 20 20 A1 55 49 |NUE.".o L.: .UI| 00001860: 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 |$:.UI$.." ".844.| 00001870: 78 20 4E 03 3A 20 20 8E 00 9B 20 52 03 8F 2D 2D |x N.: ... R..--| 00001880: 2D 2D 2D 50 41 47 45 20 44 45 53 49 47 4E 20 52 |---PAGE DESIGN R| 00001890: 4F 55 54 49 4E 45 2D 2D 2D 2D 2D 00 AA 20 54 03 |OUTINE-----.. T.| 000018A0: 3A 20 20 55 50 B2 55 50 AA 31 00 D4 20 57 03 3A |: UP.UP.1.. W.:| 000018B0: 20 20 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C | .".".(UT$.UP$,| 000018C0: 32 31 29 3B C8 28 55 47 24 AA 55 50 24 2C 31 34 |21);.(UG$.UP$,14| 000018D0: 29 3B 55 50 00 06 21 5C 03 3A 20 20 99 22 20 2D |);UP..!\.: ." -| 000018E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000018F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001900: 2D 2D 2D 2D 2D 22 00 3D 21 61 03 3A 20 20 99 C8 |-----".=!a.: ..| 00001910: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 36 |(UD$,24);.(UP$,6| 00001920: 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 |);"HELP - PRESS | 00001930: 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 4C 21 | H <RETURN>".L!| 00001940: 66 03 3A 20 20 99 22 13 11 22 3A 8E 00 6E 21 6B |f.: ."..":..n!k| 00001950: 03 8F 2D 2D 2D 2D 2D 50 4C 45 41 53 45 20 57 41 |..-----PLEASE WA| 00001960: 49 54 20 52 45 4D 41 52 4B 2D 2D 2D 2D 2D 00 A7 |IT REMARK-----..| 00001970: 21 70 03 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 |!p.: ..(UD$,24)| 00001980: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE| 00001990: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..| 000019A0: 2E 20 20 20 20 20 22 00 B0 21 75 03 3A 20 20 8E |. "..!u.: .| 000019B0: 00 D0 21 84 03 8F 2D 2D 2D 2D 2D 53 45 54 20 55 |..!...-----SET U| 000019C0: 50 20 56 41 52 49 41 42 4C 45 53 2D 2D 2D 2D 2D |P VARIABLES-----| 000019D0: 00 1E 22 85 03 3A 20 20 55 58 24 B2 22 48 22 3A |.."..: UX$."H":| 000019E0: 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 |.UQ%(1000):UB.32| 000019F0: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19| 00001A00: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:| 00001A10: 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 58 |UC.167:UU.1024.X| 00001A20: 22 86 03 3A 20 20 55 54 B2 35 39 34 36 38 3A 55 |"..: UT.59468:U| 00001A30: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%| 00001A40: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 97 |.1146:UM.32768:.| 00001A50: 20 35 30 30 30 33 2C 30 00 9B 22 87 03 8B C2 28 | 50003,0.."....(| 00001A60: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024| 00001A70: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U| 00001A80: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.| 00001A90: 32 30 34 3A 55 55 B2 32 30 34 38 00 D3 22 88 03 |204:UU.2048.."..| 00001AA0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5| 00001AB0: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.| 00001AC0: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1| 00001AD0: 30 32 34 00 FA 22 89 03 3A 20 20 55 44 24 B2 22 |024.."..: UD$."| 00001AE0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001AF0: 11 11 11 11 11 11 11 11 11 22 00 2F 23 8A 03 3A |........."./#..:| 00001B00: 20 20 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 | UP$." | 00001B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 00001B30: 76 23 8B 03 3A 20 20 55 54 24 B2 22 20 C5 CC C5 |v#..: UT$." ...| 00001B40: CD C5 CE D4 20 A0 A0 A0 22 3A 8F 20 50 4C 41 43 |.... ...":. PLAC| 00001B50: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE | 00001B60: 48 45 52 45 21 21 21 21 21 21 21 21 21 21 21 21 |HERE!!!!!!!!!!!!| 00001B70: 21 21 21 2A 2A 2A 00 7F 23 8C 03 3A 20 20 8E 00 |!!!***..#..: ..| 00001B80: 9C 23 8E 03 8F 2D 2D 2D 2D 2D 53 45 54 20 56 41 |.#...-----SET VA| 00001B90: 52 49 41 42 4C 45 53 2D 2D 2D 2D 2D 00 B0 23 8F |RIABLES-----..#.| 00001BA0: 03 86 45 24 28 33 30 29 3A 86 53 24 28 33 30 29 |..E$(30):.S$(30)| 00001BB0: 00 BC 23 93 03 3A 20 20 8D 39 30 30 00 FB 23 94 |..#..: .900..#.| 00001BC0: 03 86 4E 24 28 32 30 29 2C 53 46 24 28 32 30 29 |..N$(20),SF$(20)| 00001BD0: 2C 46 25 28 32 30 29 2C 43 24 28 32 30 29 2C 51 |,F%(20),C$(20),Q| 00001BE0: 24 28 32 30 29 2C 41 24 28 32 30 29 2C 53 4E 24 |$(20),A$(20),SN$| 00001BF0: 28 31 30 29 2C 50 24 28 31 30 29 00 01 24 95 03 |(10),P$(10)..$..| 00001C00: 3A 00 1F 24 98 03 8F 2D 2D 2D 2D 2D 43 48 45 43 |:..$...-----CHEC| 00001C10: 4B 20 46 4F 52 20 38 30 33 32 2D 2D 2D 2D 2D 00 |K FOR 8032-----.| 00001C20: 40 24 9D 03 3A 20 20 99 22 93 22 3A 99 22 A0 22 |@$..: .".":."."| 00001C30: 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |:. SHIFTED SPACE| 00001C40: 00 5A 24 A2 03 3A 20 20 8B C2 28 55 42 AA 34 30 |.Z$..: ..(UB.40| 00001C50: 29 B3 B1 39 36 A7 8D 37 30 30 00 76 24 A3 03 8F |)..96..700.v$...| 00001C60: 2D 2D 2D 2D 2D 4D 45 4D 4F 52 59 20 43 48 45 43 |-----MEMORY CHEC| 00001C70: 4B 2D 2D 2D 2D 2D 00 8D 24 A4 03 3A 20 20 8B 20 |K-----..$..: . | 00001C80: B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 BE 24 |.(0).2000.937..$| 00001C90: A5 03 3A 20 20 99 22 93 11 11 05 54 48 49 53 20 |..: ."....THIS | 00001CA0: 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 |MACHINE DOES NOT| 00001CB0: 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 E5 | HAVE ENOUGH."..| 00001CC0: 24 A6 03 3A 20 20 99 22 4D 45 4D 4F 52 59 20 54 |$..: ."MEMORY T| 00001CD0: 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 |O RUN THIS PROGR| 00001CE0: 41 4D 20 21 22 00 F3 24 A7 03 3A 20 20 9E 55 55 |AM !"..$..: .UU| 00001CF0: AA 37 31 00 FC 24 A8 03 3A 20 20 80 00 19 25 A9 |.71..$..: ...%.| 00001D00: 03 3A 20 20 99 22 93 05 22 3A 8B C2 28 35 30 30 |.: ."..":..(500| 00001D10: 30 33 29 B2 30 A7 39 36 32 00 4B 25 AC 03 8F 2D |03).0.962.K%...-| 00001D20: 2D 2D 2D 2D 42 41 53 49 43 20 32 2E 30 20 20 4F |----BASIC 2.0 O| 00001D30: 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 |R 4.0 OR C-64| 00001D40: 20 53 45 54 55 50 2D 2D 2D 2D 2D 00 89 25 AD 03 | SETUP-----..%..| 00001D50: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,| 00001D60: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1| 00001D70: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:| 00001D80: 97 31 30 38 31 2C 31 34 35 00 BF 25 AE 03 97 31 |.1081,145..%...1| 00001D90: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13| 00001DA0: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110| 00001DB0: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.| 00001DC0: E1 25 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |.%...1104,145:.1| 00001DD0: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23| 00001DE0: 34 00 FB 25 B1 03 3A 20 20 8B C2 28 35 30 30 30 |4..%..: ..(5000| 00001DF0: 33 29 B3 B1 31 36 30 A7 39 35 35 00 2D 26 B6 03 |3)..160.955.-&..| 00001E00: 3A 20 20 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |: .1093,88:.109| 00001E10: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.| 00001E20: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 45 26 |1102,228:.965.E&| 00001E30: BB 03 3A 20 20 8B C2 28 35 30 30 30 33 29 B3 B1 |..: ..(50003)..| 00001E40: 31 A7 39 39 30 00 77 26 C0 03 3A 20 20 97 31 30 |1.990.w&..: .10| 00001E50: 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A |93,49:.1094,230:| 00001E60: 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 |.1097,46:.1102,2| 00001E70: 33 30 3A 89 39 36 35 00 B1 26 C2 03 97 32 30 39 |30:.965..&...209| 00001E80: 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 |9,141:.2100,20:.| 00001E90: 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 |2101,3:.2103,8:.| 00001EA0: 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 |2104,141:.2105,2| 00001EB0: 31 00 ED 26 C3 03 97 32 31 30 36 2C 33 3A 97 32 |1..&...2106,3:.2| 00001EC0: 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 |115,145:.2117,52| 00001ED0: 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 |:.2118,234:.2121| 00001EE0: 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 27 27 |,49:.2122,141.''| 00001EF0: C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 |...2123,20:.2124| 00001F00: 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 |,3:.2126,234:.21| 00001F10: 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A |27,141:.2128,21:| 00001F20: 97 32 31 32 39 2C 33 00 48 27 C5 03 3A 20 20 9E |.2129,3.H'..: .| 00001F30: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE | 00001F40: 53 54 4F 50 20 4B 45 59 00 5C 27 CA 03 3A 20 20 |STOP KEY.\'..: | 00001F50: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 6F 27 D4 |.800:. TITLE.o'.| 00001F60: 03 3A 20 20 89 33 30 30 3A 8F 20 4D 45 4E 55 00 |.: .300:. MENU.| 00001F70: A3 27 DE 03 3A 20 20 99 22 93 54 48 45 20 50 47 |.'..: .".THE PG| 00001F80: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK | 00001F90: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!| 00001FA0: 22 3A 80 00 DD 27 E8 03 3A 20 8B 55 5A B2 31 A7 |":...'..: .UZ.1.| 00001FB0: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.| 00001FC0: 2D 2D 2D 2D 2D 50 52 4F 47 52 41 4D 20 53 54 41 |-----PROGRAM STA| 00001FD0: 52 54 53 20 48 45 52 45 2D 2D 2D 2D 2D 00 07 28 |RTS HERE-----..(| 00001FE0: E9 03 99 22 93 05 22 3B 3A 8B C2 28 35 30 30 30 |..."..";:..(5000| 00001FF0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5| 00002000: 33 32 38 30 2C 31 34 00 23 28 DC 05 8F 2D 45 4C |3280,14.#(...-EL| 00002010: 45 4D 45 4E 54 2E 52 2E 4A 2E 4C 41 4D 42 2E 31 |EMENT.R.J.LAMB.1| 00002020: 39 38 30 00 67 28 E6 05 8F 20 55 50 47 52 41 44 |980.g(... UPGRAD| 00002030: 45 44 20 42 59 3A 20 44 45 52 45 4B 20 4C 45 45 |ED BY: DEREK LEE| 00002040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002060: 4A 55 4C 59 2F 38 32 00 78 28 FA 05 99 22 93 22 |JULY/82.x(..."."| 00002070: 3A 97 55 54 2C 55 4C 25 00 84 28 FF 05 44 B2 30 |:.UT,UL%..(..D.0| 00002080: 3A 41 B2 30 00 8A 28 04 06 8C 00 90 28 0E 06 99 |:A.0..(.....(...| 00002090: 00 A9 28 68 06 55 47 24 B2 22 D1 55 49 5A 22 3A |..(h.UG$.".UIZ":| 000020A0: 55 50 B2 30 3A 8D 38 35 30 00 D1 28 72 06 99 22 |UP.0:.850..(r.."| 000020B0: 11 11 11 11 11 11 20 20 20 20 20 D4 48 45 52 45 |...... .HERE| 000020C0: 20 41 52 45 20 54 57 4F 20 4C 45 56 45 4C 53 3A | ARE TWO LEVELS:| 000020D0: 22 00 FC 28 7C 06 99 3A 99 22 20 20 20 20 20 20 |"..(|..:." | 000020E0: 20 31 2E 20 C5 4C 45 4D 45 4E 54 53 20 49 4E 20 | 1. .LEMENTS IN | 000020F0: 43 4F 4D 4D 4F 4E 20 55 53 45 2E 22 00 25 29 86 |COMMON USE.".%).| 00002100: 06 99 3A 99 22 20 20 20 20 20 20 20 32 2E 20 CC |..:." 2. .| 00002110: 45 53 53 20 43 4F 4D 4D 4F 4E 20 45 4C 45 4D 45 |ESS COMMON ELEME| 00002120: 4E 54 53 2E 22 00 2D 29 90 06 4F B2 31 00 69 29 |NTS.".-)..O.1.i)| 00002130: 9A 06 99 22 11 11 11 20 20 20 20 20 D4 59 50 45 |..."... .YPE| 00002140: 20 49 4E 20 54 48 45 20 4C 45 56 45 4C 20 59 4F | IN THE LEVEL YO| 00002150: 55 20 57 41 4E 54 3F 20 22 3B 3A 55 53 24 B2 22 |U WANT? ";:US$."| 00002160: 31 32 48 22 3A 55 4C B2 31 00 7C 29 9F 06 8D 33 |12H":UL.1.|)...3| 00002170: 35 3A 8C 3A 51 B2 C5 28 55 52 24 29 00 8F 29 A4 |5:.:Q..(UR$)..).| 00002180: 06 8B 20 51 20 B2 20 31 20 A7 20 31 37 33 30 00 |.. Q . 1 . 1730.| 00002190: A0 29 AE 06 8B 20 51 B2 32 20 A7 20 31 37 34 30 |.)... Q.2 . 1740| 000021A0: 00 C1 29 B8 06 99 22 11 11 CD 55 53 54 20 42 45 |..)..."...UST BE| 000021B0: 20 31 20 4F 52 20 32 11 11 22 3A 89 20 31 36 39 | 1 OR 2..":. 169| 000021C0: 30 00 E3 29 C2 06 81 5A B2 31 A4 33 30 3A 87 45 |0..)...Z.1.30:.E| 000021D0: 24 28 5A 29 2C 53 24 28 5A 29 3A 82 5A 3A 89 31 |$(Z),S$(Z):.Z:.1| 000021E0: 37 35 35 00 FA 29 CC 06 81 20 5A B2 31 A4 33 30 |755..)... Z.1.30| 000021F0: 3A 87 45 24 2C 53 24 3A 82 5A 00 17 2A D6 06 81 |:.E$,S$:.Z..*...| 00002200: 20 5A B2 31 A4 33 30 3A 87 45 24 28 5A 29 2C 53 | Z.1.30:.E$(Z),S| 00002210: 24 28 5A 29 3A 82 5A 00 35 2A DB 06 55 47 24 B2 |$(Z):.Z.5*..UG$.| 00002220: 22 20 20 20 20 D1 55 45 53 54 49 4F 4E 20 23 22 |" .UESTION #"| 00002230: 3A 55 50 B2 30 00 3E 2A E0 06 8D 38 35 30 00 51 |:UP.0.>*...850.Q| 00002240: 2A EA 06 4E B2 B5 28 33 30 AC BB 28 30 29 AA 31 |*..N..(30..(0).1| 00002250: 29 00 5C 2A F4 06 81 4D B2 31 A4 4F 00 6D 2A FE |).\*...M.1.O.m*.| 00002260: 06 8B 43 28 4D 29 B2 4E A7 31 37 37 30 00 74 2A |..C(M).N.1770.t*| 00002270: 08 07 82 4D 00 85 2A 12 07 43 28 4F 29 B2 4E 3A |...M..*..C(O).N:| 00002280: 4F B2 4F AA 31 00 B1 2A 1C 07 99 22 11 11 11 11 |O.O.1..*..."....| 00002290: 11 20 20 D7 48 41 54 20 49 53 20 54 48 45 20 53 |. .HAT IS THE S| 000022A0: 59 4D 42 4F 4C 20 46 4F 52 20 22 3B 45 24 28 4E |YMBOL FOR ";E$(N| 000022B0: 29 00 B9 2A 26 07 99 3A 99 00 E0 2A 30 07 99 22 |)..*&..:...*0.."| 000022C0: 20 20 20 20 20 3F 20 22 3B 3A 55 53 24 B2 22 22 | ? ";:US$.""| 000022D0: 3A 55 4C B2 32 3A 8D 33 35 3A 41 24 B2 55 52 24 |:UL.2:.35:A$.UR$| 000022E0: 00 E8 2A 3A 07 99 3A 99 00 12 2B 44 07 8B 20 41 |..*:..:...+D.. A| 000022F0: 24 B2 53 24 28 4E 29 A7 20 99 22 20 20 C3 4F 52 |$.S$(N). ." .OR| 00002300: 52 45 43 54 21 22 3A 41 B2 41 AA 31 3A 89 31 38 |RECT!":A.A.1:.18| 00002310: 39 30 00 44 2B 4E 07 99 22 20 20 D3 4F 52 52 59 |90.D+N.." .ORRY| 00002320: 2C 54 48 45 20 53 59 4D 42 4F 4C 20 46 4F 52 20 |,THE SYMBOL FOR | 00002330: 22 3B 45 24 28 4E 29 3B 22 20 49 53 20 22 3B 53 |";E$(N);" IS ";S| 00002340: 24 28 4E 29 00 66 2B 58 07 59 24 28 44 29 B2 45 |$(N).f+X.Y$(D).E| 00002350: 24 28 4E 29 3A 5A 24 28 44 29 B2 53 24 28 4E 29 |$(N):Z$(D).S$(N)| 00002360: 3A 44 B2 44 AA 31 00 75 2B 62 07 8B 4F B1 31 30 |:D.D.1.u+b..O.10| 00002370: A7 31 39 32 30 00 7E 2B 6C 07 8D 38 33 35 00 88 |.1920.~+l..835..| 00002380: 2B 76 07 89 31 37 36 30 00 B5 2B 80 07 99 3A 99 |+v..1760..+...:.| 00002390: 3A 99 22 20 20 D9 4F 55 20 48 41 56 45 20 53 43 |:." .OU HAVE SC| 000023A0: 4F 52 45 44 20 22 3B 41 3B 22 20 4F 55 54 20 4F |ORED ";A;" OUT O| 000023B0: 46 20 31 30 22 00 BB 2B 8A 07 99 00 FE 2B 94 07 |F 10"..+.....+..| 000023C0: 8B 20 41 B3 34 A7 20 99 22 20 CE 4F 54 20 41 20 |. A.4. ." .OT A | 000023D0: 56 45 52 59 20 47 4F 4F 44 20 53 43 4F 52 45 2C |VERY GOOD SCORE,| 000023E0: 20 54 52 59 20 48 41 52 44 45 52 20 4E 45 58 54 | TRY HARDER NEXT| 000023F0: 20 20 54 49 4D 45 2E 22 3A 89 31 39 38 30 00 2D | TIME.":.1980.-| 00002400: 2C 9E 07 8B 20 41 B3 37 A7 20 99 22 20 20 C6 41 |,... A.7. ." .A| 00002410: 49 52 2C 42 55 54 20 54 52 59 20 54 4F 20 49 4D |IR,BUT TRY TO IM| 00002420: 50 52 4F 56 45 2E 22 3A 89 31 39 38 30 00 4E 2C |PROVE.":.1980.N,| 00002430: A8 07 8B 20 41 B3 B2 39 A7 20 99 22 20 20 C7 4F |... A..9. ." .O| 00002440: 4F 44 20 54 52 59 2E 22 3A 89 31 39 38 30 00 6D |OD TRY.":.1980.m| 00002450: 2C B2 07 99 22 20 20 D6 45 52 59 20 57 45 4C 4C |,..." .ERY WELL| 00002460: 20 44 4F 4E 45 2E 22 3A 89 32 30 37 30 00 76 2C | DONE.":.2070.v,| 00002470: BC 07 8D 38 33 35 00 92 2C C6 07 55 47 24 B2 22 |...835..,..UG$."| 00002480: D3 55 4D 4D 41 52 59 22 3A 55 50 B2 30 3A 8D 38 |.UMMARY":UP.0:.8| 00002490: 35 30 00 BF 2C D0 07 99 3A 99 22 11 11 20 20 20 |50..,...:.".. | 000024A0: D9 4F 55 20 47 4F 54 20 54 48 45 20 46 4F 4C 4C |.OU GOT THE FOLL| 000024B0: 4F 57 49 4E 47 20 57 52 4F 4E 47 3A 22 3A 99 00 |OWING WRONG:":..| 000024C0: CC 2C DA 07 81 58 B2 30 A4 44 AB 31 00 E0 2C E4 |.,...X.0.D.1..,.| 000024D0: 07 8B 20 59 24 28 58 29 B2 22 22 A7 32 30 34 30 |.. Y$(X)."".2040| 000024E0: 00 FC 2C EE 07 99 22 20 20 20 20 20 22 59 24 28 |..,..." "Y$(| 000024F0: 58 29 3B A3 32 30 29 5A 24 28 58 29 00 03 2D F8 |X);.20)Z$(X)..-.| 00002500: 07 82 58 00 0B 2D 02 08 99 3A 99 00 49 2D 0C 08 |..X..-...:..I-..| 00002510: 99 22 20 20 20 CD 41 4B 45 20 41 20 4E 4F 54 45 |." .AKE A NOTE| 00002520: 20 4F 46 20 54 48 45 53 45 20 41 4E 44 20 54 52 | OF THESE AND TR| 00002530: 59 20 54 4F 20 20 20 20 20 20 20 20 20 4C 45 41 |Y TO LEA| 00002540: 52 4E 20 54 48 45 4D 2E 22 00 52 2D 16 08 8D 38 |RN THEM.".R-...8| 00002550: 33 35 00 60 2D 48 08 99 22 93 22 3A 89 33 30 30 |35.`-H..".":.300| 00002560: 00 66 2D 52 08 80 00 88 2D 5C 08 83 22 C8 59 44 |.f-R....-\..".YD| 00002570: 52 4F 47 45 4E 22 2C 22 C8 22 2C 22 C8 45 4C 49 |ROGEN",".",".ELI| 00002580: 55 4D 22 2C 22 C8 45 22 00 A9 2D 66 08 83 22 CC |UM",".E"..-f..".| 00002590: 49 54 48 49 55 4D 22 2C 22 CC 49 22 2C 22 C3 41 |ITHIUM",".I",".A| 000025A0: 52 42 4F 4E 22 2C 22 C3 22 00 CB 2D 70 08 83 20 |RBON","."..-p.. | 000025B0: 22 CE 49 54 52 4F 47 45 4E 22 2C 22 CE 22 2C 22 |".ITROGEN",".","| 000025C0: CF 58 59 47 45 4E 22 2C 22 CF 22 00 EE 2D 7A 08 |.XYGEN","."..-z.| 000025D0: 83 20 22 C6 4C 55 4F 52 49 4E 45 22 2C 22 C6 22 |. ".LUORINE","."| 000025E0: 2C 22 D3 4F 44 49 55 4D 22 2C 22 CE 41 22 00 15 |,".ODIUM",".A"..| 000025F0: 2E 84 08 83 22 CD 41 47 4E 45 53 49 55 4D 22 2C |....".AGNESIUM",| 00002600: 22 CD 47 22 2C 22 C1 4C 55 4D 49 4E 49 55 4D 22 |".G",".LUMINIUM"| 00002610: 2C 22 C1 4C 22 00 3A 2E 8E 08 83 20 22 D0 48 4F |,".L".:.... ".HO| 00002620: 53 50 48 4F 52 55 53 22 2C 22 D0 22 2C 22 D3 55 |SPHORUS",".",".U| 00002630: 4C 50 48 55 52 22 2C 22 D3 22 00 5D 2E 98 08 83 |LPHUR",".".]....| 00002640: 20 22 C3 48 4C 4F 52 49 4E 45 22 2C 22 C3 4C 22 | ".HLORINE",".L"| 00002650: 2C 22 C1 52 47 4F 4E 22 2C 22 C1 52 22 00 7F 2E |,".RGON",".R"...| 00002660: A2 08 83 20 22 D0 4F 54 41 53 53 49 55 4D 22 2C |... ".OTASSIUM",| 00002670: 22 CB 22 2C 22 C9 52 4F 4E 22 2C 22 C6 45 22 00 |".",".RON",".E".| 00002680: 9F 2E AC 08 83 20 22 C3 4F 50 50 45 52 22 2C 22 |..... ".OPPER","| 00002690: C3 55 22 2C 22 DA 49 4E 43 22 2C 22 DA 4E 22 00 |.U",".INC",".N".| 000026A0: C1 2E B6 08 83 20 22 C2 52 4F 4D 49 4E 45 22 2C |..... ".ROMINE",| 000026B0: 22 C2 52 22 2C 22 C9 4F 44 49 4E 45 22 2C 22 C9 |".R",".ODINE",".| 000026C0: 22 00 E5 2E C0 08 83 20 22 C3 48 52 4F 4D 49 55 |"...... ".HROMIU| 000026D0: 4D 22 2C 22 C3 52 22 2C 22 D3 49 4C 56 45 52 22 |M",".R",".ILVER"| 000026E0: 2C 22 C1 47 22 00 02 2F CA 08 83 20 22 C7 4F 4C |,".G"../... ".OL| 000026F0: 44 22 2C 22 C1 55 22 2C 22 D4 49 4E 22 2C 22 D3 |D",".U",".IN",".| 00002700: 4E 22 00 25 2F D4 08 83 20 22 C2 41 52 49 55 4D |N".%/... ".ARIUM| 00002710: 22 2C 22 C2 41 22 2C 22 CD 45 52 43 55 52 59 22 |",".A",".ERCURY"| 00002720: 2C 22 C8 47 22 00 45 2F DE 08 83 20 22 CC 45 41 |,".G".E/... ".EA| 00002730: 44 22 2C 22 D0 42 22 2C 22 D5 52 41 4E 49 55 4D |D",".B",".RANIUM| 00002740: 22 2C 22 D5 22 00 68 2F E8 08 83 20 22 D0 4C 41 |",".".h/... ".LA| 00002750: 54 49 4E 55 4D 22 2C 22 D0 54 22 2C 22 D8 45 4E |TINUM",".T",".EN| 00002760: 4F 4E 22 2C 22 D8 45 22 00 8D 2F F2 08 83 22 C2 |ON",".E"../...".| 00002770: 45 52 59 4C 4C 49 55 4D 22 2C 22 C2 45 22 2C 22 |ERYLLIUM",".E","| 00002780: D3 49 4C 49 43 4F 4E 22 2C 22 D3 49 22 00 B1 2F |.ILICON",".I"../| 00002790: FC 08 83 22 D4 49 54 41 4E 49 55 4D 22 2C 22 D4 |...".ITANIUM",".| 000027A0: 49 22 2C 22 D6 41 4E 41 44 49 55 4D 22 2C 22 D6 |I",".ANADIUM",".| 000027B0: 22 00 D5 2F 06 09 83 22 CD 41 4E 47 41 4E 45 53 |"../...".ANGANES| 000027C0: 45 22 2C 22 CD 4E 22 2C 22 CE 49 43 4B 45 4C 22 |E",".N",".ICKEL"| 000027D0: 2C 22 CE 49 22 00 FA 2F 10 09 83 22 C7 45 52 4D |,".I"../...".ERM| 000027E0: 41 4E 49 55 4D 22 2C 22 C7 45 22 2C 22 CB 52 59 |ANIUM",".E",".RY| 000027F0: 50 54 4F 4E 22 2C 22 CB 52 22 00 1F 30 1A 09 83 |PTON",".R"..0...| 00002800: 22 C1 52 53 45 4E 49 43 22 2C 22 C1 53 22 2C 22 |".RSENIC",".S","| 00002810: D3 54 52 4F 4E 54 49 55 4D 22 2C 22 D3 52 22 00 |.TRONTIUM",".R".| 00002820: 43 30 24 09 83 22 D9 54 54 52 49 55 4D 22 2C 22 |C0$..".TTRIUM","| 00002830: D9 22 2C 22 CD 4F 4C 42 44 45 4E 55 4D 22 2C 22 |.",".OLBDENUM","| 00002840: CD 4F 22 00 68 30 2E 09 83 22 D2 48 4F 44 49 55 |.O".h0...".HODIU| 00002850: 4D 22 2C 22 D2 48 22 2C 22 D0 41 4C 4C 41 44 49 |M",".H",".ALLADI| 00002860: 55 4D 22 2C 22 D0 44 22 00 8C 30 38 09 83 22 C3 |UM",".D"..08..".| 00002870: 41 44 4D 49 55 4D 22 2C 22 C3 44 22 2C 22 C1 4E |ADMIUM",".D",".N| 00002880: 54 49 4D 4F 4E 59 22 2C 22 D3 42 22 00 B1 30 42 |TIMONY",".B"..0B| 00002890: 09 83 22 C3 41 45 53 49 55 4D 22 2C 22 C3 53 22 |..".AESIUM",".S"| 000028A0: 2C 22 CC 41 4E 54 48 41 4E 55 4D 22 2C 22 CC 41 |,".ANTHANUM",".A| 000028B0: 22 00 D3 30 4C 09 83 22 D4 55 4E 47 53 54 45 4E |"..0L..".UNGSTEN| 000028C0: 22 2C 22 D7 22 2C 22 CF 53 4D 49 55 4D 22 2C 22 |",".",".SMIUM","| 000028D0: CF 53 22 00 F6 30 56 09 83 22 C9 52 49 44 49 55 |.S"..0V..".RIDIU| 000028E0: 4D 22 2C 22 C9 52 22 2C 22 C2 49 53 4D 55 54 48 |M",".R",".ISMUTH| 000028F0: 22 2C 22 C2 49 22 00 18 31 60 09 83 22 C1 53 54 |",".I"..1`..".ST| 00002900: 41 54 49 4E 45 22 2C 22 C1 54 22 2C 22 D2 41 44 |ATINE",".T",".AD| 00002910: 4F 4E 22 2C 22 D2 4E 22 00 3A 31 6A 09 83 22 D2 |ON",".N".:1j..".| 00002920: 41 44 49 55 4D 22 2C 22 D2 41 22 2C 22 D4 48 4F |ADIUM",".A",".HO| 00002930: 52 49 55 4D 22 2C 22 D4 48 22 00 65 31 74 09 83 |RIUM",".H".e1t..| 00002940: 22 D0 52 4F 54 4F 41 43 54 49 4E 49 55 4D 22 2C |".ROTOACTINIUM",| 00002950: 22 D0 41 22 2C 22 D0 4C 55 54 4F 4E 49 55 4D 22 |".A",".LUTONIUM"| 00002960: 2C 22 D0 55 22 00 89 31 7E 09 83 22 C8 41 46 4E |,".U"..1~..".AFN| 00002970: 49 55 4D 22 2C 22 C8 46 22 2C 22 D4 41 4E 54 41 |IUM",".F",".ANTA| 00002980: 4C 55 4D 22 2C 22 D4 41 22 00 00 00 |LUM",".A"... |
.......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 **.I....---GENERAL INPUT ROUTINE---
-.O...:.U...:.....:...#..-----INPUT SECT
ION-----...(.: UR$."":UI$."".!.*.: . U
L.0.UL.80.4.-.." ..";:.UC,0.K.2.: .UI$
:.UI$."".50.X.7.: .UI$.G(13).C(UR$)..1.
.UC,1:." .";:.85...<.: .UI$.G(20).105..
.>.: . C(UR$)..UL .50.N.A.: .120:. CHE
CK FOR VALID CHARACTER...F.: UR$.UR$.UI
$...K.: .UI$;...P.: .50...U..-----CHEC
K FOR HELP REQUEST-----.J.Z.: .UR$.UX$.
195:. EXIT TO HELP ROUTINE.\._.: .UF.1.
.240.K.D.: UF.0:.:....F..-----CHECK DELE
TE-----...I.: .C(UR$).1.50...N.: UR$.H(U
R$,C(UR$).1).H.S.: .". ..";:.50...X..--
---CHECK FOR VALID CHARACTERS-----...}.:
.C(US$).0.150.....: .US.1.C(US$).7...
: .UI$.J(US$,US,1)...@...: ..P...:
UI$."":..N....-----STANDARD INPUT-----..
...: .F(UI$).46. ......: .UI$.G(32). .
... .: .F(UI$).48 . F(UI$).57.170.C...:
......: .F(UI$).65 . F(UI$).90.180...
..: ......: .F(UI$).193 . F(UI$).218.U
I$."":..E...: .B(UT).12.B(UT).21.UI$.G(
F(UI$).128):..N...: ..^...: UI$."":...
.C.: UF.1:.-----HELP ROUTINE EXIT-----.
..E.: .250...H.: .245.A.M.: .UQ.UB.(U
2%.256.U1%.U3%.2)...R.: UQ%(UQ.UB).B(UQ
):.:."."...W.: UZ.1:UV%.B(UT)...X.: .3
00.'.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK.
^.Z..B(50003).0..53281,1:.".";:.53281,6:
.53280,14:.220.H....".";.....UT$.UL$:.UT
,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).....: .
UQ,UQ%(UQ.UB):......: .U1,U1%.M...: .U
2,U2%.....: .U4,U4%.....: .U3,U3%.1...
..: .35.-...: UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..K...: .H(UD$,24);
" . HELP COMING .
":......: U1%.B(U1):U2%.B(U2):U3%.B(U3)
:U4%.B(U4).....UJ$.US$:UJ.UL.O...: UJ$.
US$:UK$.UG$:UJ.UP:UK.UL.X...: ....,..--
---MENU-----...-.:.$...: .".":.UT,UU%:.
B(50003).0..53281,9:.53280,8.*./.:.J.1.:
.". MENU".|.6.: ." ---
-----------------------------------"...;
.: .".. 1. BEGIN ELEMENT".O.@.:
.".. 2. STUDENT INSTRUCTIONS".
..E.: .".. 3. TEACHER INSTRUCTI
ONS".,.J.: .".. 4. MODIFICATION
OF PROGRAM".K.O.: .".. 5. QUIT
..".}.T.: ." --------------------------
------------"...Y.: .".. PRESS A
NUMBER KEY (1-5) ";...^.: UL.1:US$."123
45":.35:.---INPUT ROUTINE---..._.: .C(U
R$).1.300...`.: US$."".#.C.: .E(UR$).1
000,400,500,600,396./.H.: .300.Y....---
--RE-ENABLE STOP KEY AND END-----.....:
.B(50003)..1.B(50003)..160.B(50003)..0.
399.....: .UU.71:.B(50003).0..53281,6:.
53280,14.G...: ."..":..U...: .875:....
...-----STUDENT INSTRUCTIONS-----.+...:
.".":.UT,UL%:.B(50003).0..53281,0:.5328
0,0.L...UP.0:UG$."STUDENT INST":.850.}..
.: .".... REMEMBER TO HIT <RETURN> A
FTER".....: ." TYPING YOUR ANSWER. TH
IS TELLS".V. .: ." THE COMPUTER TO AC
CEPT WHAT YOU".....: ." HAVE TYPED.
ERRORS CAN BE ERASED".+...: ." WITH T
HE <INST/DEL> KEY.".Y...: .". TYPE <
H> AT ANY TIME TO RETURN".....: ." TO
THE MENU FOR HELP. YOU WILL".....: ."
BE RETURNED TO THE PLACE IN THE".....
: ." PROGRAM WHERE YOU LEFT OFF AS"..
...: ." SOON AS THE OPTION FROM THE M
ENU".&...: ." IS COMPLETE.".7...: .8
35:.850.E...."... THIS QUIZ IS CONCER
NED WITH THE"......" CHEMICAL ELEMENTS
AND THEIR SYMBOLS."......:." YOU WILL
BE GIVEN THE NAME OF AN......" ELEMENT
AND ASKED TO SUPPLY ITS "......" SY
MBOL.".-....:." TYPE IN THE SYMBOL, A
ND PRESS THE".C...." <RETURN> KEY".P.B.
.:." CAPITAL LETTERS CAN BE OBTAINED"
...D.." BY USING THE <SHIFT> KEY."...G.
.:." THERE ARE TEN QUESTIONS IN EACH"
.O.I.." QUIZ.".....: .835.....: .UZ.1
..UP%:.217.....: .......-----TEACHER IN
STRUCTIONS-----.R...: .".":.UT,UL%:.B(5
0003).0..53281,2:.53280,10.W...: UP.0:U
G$."TEACHER INST.":.850.....: ."..
TO THE BEST OF OUR KNOWLEDGE,.".T...:
." THIS PROGRAM IS IN THE PUBLIC."....
.: ." DOMAIN. IF THIS IS NOT THE CAS
E.".#...: ." PLEASE CONTACT:...".P...
: ." COMMODORE BUSINESS MACHINES."
.V...: ." 3370 PHARMACY AVE...
...: ." AGINCOURT, ONTARIO".B.
..: ." CANADA M1W 2K4".....:
." (416) 499-4292".....UP.1:.
835:. 850:.%...." ..PROGRAM NAME: P
ROGRAM TITLE..G...." WRITTEN BY : U
NKNOWN..K...." UPGRADED BY : YOUR NA
ME......." .THIS PROGRAM WILL RUN ON
ANY........" PET 64 COMPUTER...
...." COMMODORE 64 COMPUTER.....
: .835:.850. ...: ."... THIS IS A
SHORT DRILL ON ELEMENTS".Q...: .". TH
EIR SYMBOLS. THE PROGRAM CAN BE".....:
.". FOR REVIEW OR TO REINFORCE THINGS
"... .: .". LEARNED.".F.!.: .".
THE STUDENTS SHOULD NOT USE A"...".: ."
. PERIODIC TABLE OR HAVE ANY OUTSIDE".
..#.: .". HELP WHEN DOING THE QUIZ.".
+.D.: .835.B.N.: .UZ.1..UP%:.217.K.W.:
..T.X..-----PROGRAM MODIFICATION INST-
----...Y.: .".":.UT,UL%...].: UP.0:UG$
."PROGRAM MOD":.850.X.B.: .".... ELE
MENTS CAN BE CHANGED BY"...D.: ." CHA
NGING THE DATA FROM LINES".,.F.: ." 2
140 TO 2430. THE FORMAT IS".Y.H.: ."
'ELEMENT,SYMBOL,ELEMENT,SYMBOL'"...J.:
." SEPARATED BY COMMAS. EG.,"...K.:
.". 2140 DATA";G(34);"HYDROGEN";G(34)","
G(34);...L.: ."H";G(34)","G(34);"HELIUM
";G(34)","G(34);"HE";G(34).".N.: .".
THE FIRST 30 ARE COMMON ELEMENTS".P.P.:
." FOLLOWED BY 30 LESS COMMON ONES."
.~.R.: ." ORDER AND THE NUMBER OF ELE
MENTS"...T.: ." ARE VERY IMPORTANT AN
D SHOULD NOT"...V.: ." BE CHANGED WHE
N CHANGING THE DATA.".....: .835.....:
.UZ.1..UP%:.217.....: ..1....-----TO U
SE 8032 LOAD CBM4032-----.G.F..".....BEF
ORE RUNNING THIS PROGRAM ON AN 8032 ...
..P.." LOAD THE 'CBM 4032' PROGRAM.
............"...Z.: .UU.71.....: ..T.
.. ** T I T L E P A G E **...".."...."
;:.UT,UU%:.B(50003).0..53280,14:.53281,6
...$..I.1.38:."...";:..6.&..I.1.22:."...
..";:..N.(..I.1.37:.".....";:..F.*..I.1.
22:.".....";:....,.."...................
........ ......."................... .
. ...N.0.."................... . .....
.2..".................... ....4..".....
.........C O M M O D O R E...7.6..".....
..........EDUCATIONAL...V.8.."..........
......SOFTWARE.Q.:.. ** COMMODORE LOGO *
*...;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0.K.<..A$:.A$.." ".I.I.1
:.I.250.828...>.: T1$."":T2$."":T3$."":
T4$."":I.0...@.: .300.. C..-----SPACE B
AR PRESS-----.U H.: .H(UD$,24);".......
PRESS SPACE BAR TO CONTINUE.".O L.: .UI
$:.UI$.." ".844.X N.: ... R..-----PAGE
DESIGN ROUTINE-----.. T.: UP.UP.1.T W.:
."."H(UT$.UP$,21);H(UG$.UP$,14);UP..!\
.: ." ---------------------------------
-----".=!A.: .H(UD$,24);H(UP$,6);"HELP
- PRESS H <RETURN>".L!F.: ."..":..N!K
..-----PLEASE WAIT REMARK-----..!P.: .H
(UD$,24);" ONE MOMENT PLEASE..
. "..!U.: ..P!...-----SET UP VARIAB
LES-----.."..: UX$."H":.UQ%(1000):UB.32
768:U1.196:U2.197:U3.198:U4.216:UC.167:U
U.1024.X"..: UT.59468:UU%.12:UL%.14:UP%
.1146:UM.32768:. 50003,0.."...B(50003).0
.UB.1024:U1.209:U2.210:U3.211:U4.214:UC.
204:UU.2048.S"...B(50003).0.UT.53272:UU%
.21:UL%.23:UP%.2139:UM.1024.."..: UD$."
........................."./#..: UP$."
".
V#..: UT$." ELEMENT ":. PLACE PROGRA
M TITLE HERE!!!!!!!!!!!!!!!***.#..: ..
.#...-----SET VARIABLES-----..#...E$(30)
:.S$(30)..#..: .900..#...N$(20),SF$(20)
,F%(20),C$(20),Q$(20),A$(20),SN$(10),P$(
10)..$..:..$...-----CHECK FOR 8032-----.
@$..: .".":." ":. SHIFTED SPACE.Z$..:
.B(UB.40)..96..700.V$...-----MEMORY CHEC
K-----..$..: . .(0).2000.937..$..: .".
...THIS MACHINE DOES NOT HAVE ENOUGH."..
$..: ."MEMORY TO RUN THIS PROGRAM !"..$
..: .UU.71..$..: ...%..: ."..":.B(500
03).0.962.K%...-----BASIC 2.0 OR 4.0
OR C-64 SETUP-----..%...1075,133:.1076,
144:.1077,234:.1079,4:.1080,133:.1081,14
5..%...1091,155:.1098,133:.1099,144:.110
0,234:.1103,133..%...1104,145:.1105,234:
.1082,234..%..: .B(50003)..160.955.-&..
: .1093,88:.1094,228:.1097,85:.1102,228
:.965.E&..: .B(50003)..1.990.W&..: .10
93,49:.1094,230:.1097,46:.1102,230:.965.
.&B..2099,141:.2100,20:.2101,3:.2103,8:.
2104,141:.2105,21..&C..2106,3:.2115,145:
.2117,52:.2118,234:.2121,49:.2122,141.''
D..2123,20:.2124,3:.2126,234:.2127,141:.
2128,21:.2129,3.H'E.: .UU.48:. DISABLE
STOP KEY.\'J.: .800:. TITLE.O'T.: .300
:. MENU..'..: .".THE PGM WILL NOT WORK
ON THIS MACHINE!":...'..: .UZ.1..UP%:.UP
%:UZ.0:.-----PROGRAM STARTS HERE-----..(
..."..";:.B(50003).0..53281,6:.53280,14.
#(...-ELEMENT.R.J.LAMB.1980.G(... UPGRAD
ED BY: DEREK LEE
JULY/82.X(...".":.UT,UL%..(..D.0
:A.0..(.....(.....(H.UG$."QUIZ":UP.0:.85
0.Q(R.."...... THERE ARE TWO LEVELS:
"..(|..:." 1. ELEMENTS IN COMMON U
SE.".%)...:." 2. LESS COMMON ELEME
NTS.".-)..O.1.I)..."... TYPE IN THE
LEVEL YOU WANT? ";:US$."12H":UL.1.|)...3
5:.:Q.E(UR$)..)... Q . 1 . 1730. )... Q.
2 . 1740.A)..."..MUST BE 1 OR 2..":. 169
0..)B..Z.1.30:.E$(Z),S$(Z):.Z:.1755..)L.
. Z.1.30:.E$,S$:.Z..*V.. Z.1.30:.E$(Z),S
$(Z):.Z.5*..UG$." QUESTION #":UP.0.>*
...850.Q*..N..(30..(0).1).\*...M.1.O.M*.
..C(M).N.1770.T*...M..*..C(O).N:O.O.1..*
..."..... WHAT IS THE SYMBOL FOR ";E$(N
)..*&..:...*0.." ? ";:US$."":UL.2:.3
5:A$.UR$..*:..:...+D.. A$.S$(N). ." COR
RECT!":A.A.1:.1890.D+N.." SORRY,THE SYM
BOL FOR ";E$(N);" IS ";S$(N).F+X.Y$(D).E
$(N):Z$(D).S$(N):D.D.1.U+B..O.10.1920.~+
L..835..+V..1760..+...:.:." YOU HAVE SC
ORED ";A;" OUT OF 10"..+.....+... A.4. .
" NOT A VERY GOOD SCORE, TRY HARDER NEXT
TIME.":.1980.-,... A.7. ." FAIR,BUT T
RY TO IMPROVE.":.1980.N,... A..9. ." GO
OD TRY.":.1980.M,..." VERY WELL DONE.":
.2070.V,...835..,F.UG$."SUMMARY":UP.0:.8
50..,P..:.".. YOU GOT THE FOLLOWING WR
ONG:":..L,Z..X.0.D.1..,... Y$(X)."".2040
..,..." "Y$(X);.20)Z$(X)..-...X..-..
.:..I-..." MAKE A NOTE OF THESE AND TR
Y TO LEARN THEM.".R-...835.`-H..
".":.300.F-R....-\.."HYDROGEN","H","HELI
UM","HE"..-F.."LITHIUM","LI","CARBON","C
".K-P.. "NITROGEN","N","OXYGEN","O"..-Z.
. "FLUORINE","F","SODIUM","NA"......"MAG
NESIUM","MG","ALUMINIUM","AL".:.... "PHO
SPHORUS","P","SULPHUR","S".].... "CHLORI
NE","CL","ARGON","AR"..... "POTASSIUM",
"K","IRON","FE"...... "COPPER","CU","ZIN
C","ZN".A.... "BROMINE","BR","IODINE","I
"...... "CHROMIUM","CR","SILVER","AG"../
J.. "GOLD","AU","TIN","SN".%/T.. "BARIUM
","BA","MERCURY","HG".E/... "LEAD","PB",
"URANIUM","U".H/... "PLATINUM","PT","XEN
ON","XE"../..."BERYLLIUM","BE","SILICON"
,"SI"../..."TITANIUM","TI","VANADIUM","V
".U/..."MANGANESE","MN","NICKEL","NI"../
..."GERMANIUM","GE","KRYPTON","KR"..0...
"ARSENIC","AS","STRONTIUM","SR".C0$.."YT
TRIUM","Y","MOLBDENUM","MO".H0..."RHODIU
M","RH","PALLADIUM","PD"..08.."CADMIUM",
"CD","ANTIMONY","SB"..0B.."CAESIUM","CS"
,"LANTHANUM","LA".S0L.."TUNGSTEN","W","O
SMIUM","OS"..0V.."IRIDIUM","IR","BISMUTH
","BI"..1`.."ASTATINE","AT","RADON","RN"
.:1J.."RADIUM","RA","THORIUM","TH".E1T..
"PROTOACTINIUM","PA","PLUTONIUM","PU"..1
~.."HAFNIUM","HF","TANTALUM","TA"...
> CLICK IMAGE PREVIEW FOR FULL MODAL