CHEMIST QUIZ.C3
FILE INFORMATION
FILENAME(S): CHEMIST QUIZ.C3
FILE TYPE(S): PRG
FILE SIZE: 9.6K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 1 disk(s)
FILE HASH
d3ad081389d4507235acf3dfa02b6d42d158f36060c7197b78af0f928a73b3b8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0006ED | CHEMIST QUIZ.C3 | PRG | Treasure Chest - Klaus Der Suhler | 13 | 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 EE 08 0B 00 8F 2D 2D |UTINE **......--| 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 14 |--------------..| 000000F0: 09 0C 00 8F 2D 2D 2D 4D 41 44 45 20 42 59 20 53 |....---MADE BY S| 00000100: 54 45 50 48 45 4E 20 57 4F 52 4F 53 5A 43 5A 55 |TEPHEN WOROSZCZU| 00000110: 4B 2D 2D 2D 00 3A 09 0D 00 8F 2D 2D 2D 20 52 45 |K---.:....--- RE| 00000120: 56 49 53 45 44 20 42 59 20 52 49 43 48 41 52 44 |VISED BY RICHARD| 00000130: 20 44 45 42 4F 45 52 2D 2D 2D 00 60 09 0E 00 8F | DEBOER---.`....| 00000140: 2D 2D 2D 20 20 20 20 4D 41 44 45 20 41 4E 44 20 |--- MADE AND | 00000150: 52 45 56 49 53 45 44 20 4F 4E 20 20 20 2D 2D 2D |REVISED ON ---| 00000160: 00 66 09 0F 00 3A 00 8C 09 10 00 8F 2D 2D 2D 2D |.f...:......----| 00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 92 09 11 |------------....| 00000190: 00 3A 00 B6 09 14 00 8F 20 2A 2A 20 54 4F 20 4F |.:...... ** TO O| 000001A0: 55 52 20 42 45 53 54 20 4B 4E 4F 57 4C 45 44 47 |UR BEST KNOWLEDG| 000001B0: 45 20 54 48 49 53 00 D3 09 15 00 8F 20 20 20 20 |E THIS...... | 000001C0: 50 52 4F 47 52 41 4D 20 49 53 20 46 52 45 45 20 |PROGRAM IS FREE | 000001D0: 46 4F 52 00 F3 09 16 00 8F 20 20 20 20 44 55 50 |FOR...... DUP| 000001E0: 4C 49 43 41 54 49 4F 4E 20 49 4E 20 43 41 4E 41 |LICATION IN CANA| 000001F0: 44 41 2E 00 10 0A 17 00 8F 20 20 20 20 49 46 20 |DA....... IF | 00000200: 59 4F 55 20 48 41 56 45 20 43 4F 4E 54 41 52 59 |YOU HAVE CONTARY| 00000210: 00 2D 0A 18 00 8F 20 20 20 20 49 4E 46 4F 52 4D |.-.... INFORM| 00000220: 41 54 49 4F 4E 2C 20 50 4C 45 41 53 45 00 53 0A |ATION, PLEASE.S.| 00000230: 19 00 8F 20 20 20 20 43 4F 4E 54 41 43 54 20 43 |... CONTACT C| 00000240: 4F 4D 4D 4F 44 4F 52 45 20 43 41 4E 41 44 41 20 |OMMODORE CANADA | 00000250: 41 4E 44 00 79 0A 1A 00 8F 20 20 20 20 45 56 45 |AND.y.... EVE| 00000260: 52 59 20 45 46 46 4F 52 54 20 57 49 4C 4C 20 42 |RY EFFORT WILL B| 00000270: 45 20 4D 41 44 45 20 54 4F 00 9A 0A 1B 00 8F 20 |E MADE TO...... | 00000280: 20 20 20 57 49 54 48 44 52 41 57 20 43 4F 50 49 | WITHDRAW COPI| 00000290: 45 53 20 4F 46 20 54 48 49 53 00 AC 0A 1C 00 8F |ES OF THIS......| 000002A0: 20 20 20 20 50 52 4F 47 52 41 4D 2E 00 B2 0A 1E | PROGRAM.....| 000002B0: 00 3A 00 CE 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 |.:...#.. +++ INP| 000002C0: 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 E6 |UT SECTION +++..| 000002D0: 0A 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A |.(..UO,0:UR$."":| 000002E0: 55 49 24 B2 22 22 00 F6 0A 2A 00 8B 55 4C B2 30 |UI$.""...*..UL.0| 000002F0: A7 55 4C B2 38 30 00 09 0B 2D 00 99 22 20 20 9D |.UL.80...-.." .| 00000300: 9D 22 3B 3A 97 55 43 2C 30 00 1D 0B 32 00 A1 55 |.";:.UC,0...2..U| 00000310: 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 47 0B |I$:.UI$."".50.G.| 00000320: 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 |7..UI$..(13)..(U| 00000330: 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 |R$)..1..UC,1:." | 00000340: 9D 22 3B 3A 89 38 35 00 5A 0B 3C 00 8B 55 49 24 |.";:.85.Z.<..UI$| 00000350: B2 C7 28 32 30 29 A7 31 30 35 00 6E 0B 3E 00 8B |..(20).105.n.>..| 00000360: 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 00 93 | .(UR$)..UL.50..| 00000370: 0B 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 |.A..120:. CHECK | 00000380: 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 |FOR VALID CHARAC| 00000390: 54 45 52 00 A3 0B 46 00 55 52 24 B2 55 52 24 AA |TER...F.UR$.UR$.| 000003A0: 55 49 24 00 AD 0B 4B 00 99 55 49 24 3B 00 B5 0B |UI$...K..UI$;...| 000003B0: 50 00 89 35 30 00 DA 0B 55 00 8F 20 2B 2B 2B 20 |P..50...U.. +++ | 000003C0: 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 |CHECK FOR HELP R| 000003D0: 45 51 55 45 53 54 20 2B 2B 2B 00 02 0C 5A 00 8B |EQUEST +++...Z..| 000003E0: 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 |UR$.UX$.195:. EX| 000003F0: 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 |IT TO HELP ROUTI| 00000400: 4E 45 00 11 0C 5F 00 8B 55 46 B2 31 A7 8D 32 34 |NE..._..UF.1..24| 00000410: 30 00 1E 0C 64 00 55 46 B2 30 3A 99 3A 8E 00 37 |0...d.UF.0:.:..7| 00000420: 0C 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 |.f.. ++ CHECK DE| 00000430: 4C 45 54 45 20 2B 2B 00 48 0C 69 00 8B C3 28 55 |LETE ++.H.i...(U| 00000440: 52 24 29 B3 31 A7 35 30 00 60 0C 6E 00 55 52 24 |R$).1.50.`.n.UR$| 00000450: B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 29 |..(UR$,.(UR$).1)| 00000460: 00 72 0C 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 |.r.s..". ..";:.| 00000470: 35 30 00 99 0C 78 00 8F 20 2B 2B 20 43 48 45 43 |50...x.. ++ CHEC| 00000480: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR| 00000490: 41 43 54 45 52 53 20 2B 2B 00 AB 0C 7D 00 8B C3 |ACTERS ++...}...| 000004A0: 28 55 53 24 29 B2 30 A7 31 35 30 00 BB 0C 7F 00 |(US$).0.150.....| 000004B0: 55 53 24 B2 55 53 24 AA 55 58 24 00 CC 0C 82 00 |US$.US$.UX$.....| 000004C0: 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 E3 0C 87 |.US.1..(US$)....| 000004D0: 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 |..UI$..(US$,US,1| 000004E0: 29 A7 8E 00 E9 0C 8C 00 82 00 F6 0C 91 00 55 49 |).............UI| 000004F0: 24 B2 22 22 3A 8E 00 11 0D 96 00 8F 20 2A 2A 20 |$."":....... ** | 00000500: 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 2A |STANDARD INPUT *| 00000510: 2A 00 22 0D 98 00 8B C6 28 55 49 24 29 B2 34 36 |*.".....(UI$).46| 00000520: A7 8E 00 33 0D 9B 00 8B 55 49 24 B2 C7 28 33 32 |...3....UI$..(32| 00000530: 29 A7 8E 00 50 0D A0 00 8B C6 28 55 49 24 29 B3 |)...P.....(UI$).| 00000540: 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 37 30 |48..(UI$).57.170| 00000550: 00 56 0D A5 00 8E 00 73 0D AA 00 8B C6 28 55 49 |.V.....s.....(UI| 00000560: 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 |$).65..(UI$).90.| 00000570: 31 38 30 00 79 0D AF 00 8E 00 9D 0D B4 00 8B C6 |180.y...........| 00000580: 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 |(UI$).193..(UI$)| 00000590: B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 C0 0D |.218.UI$."":....| 000005A0: B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 |....(UT).UU%.UI$| 000005B0: B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E |..(.(UI$).128):.| 000005C0: 00 C6 0D BB 00 8E 00 D3 0D BE 00 55 49 24 B2 22 |...........UI$."| 000005D0: 22 3A 8E 00 F8 0D C3 00 55 46 B2 31 3A 8F 20 2B |":......UF.1:. +| 000005E0: 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 |++ HELP ROUTINE | 000005F0: 45 58 49 54 20 2B 2B 2B 00 01 0E C5 00 8D 32 35 |EXIT +++......25| 00000600: 30 00 0A 0E C8 00 8D 32 34 35 00 29 0E CD 00 81 |0......245.)....| 00000610: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U| 00000620: 31 25 AA 55 33 25 AB 32 29 00 45 0E D2 00 55 51 |1%.U3%.2).E...UQ| 00000630: 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 |%(UQ.UB)..(UQ):.| 00000640: 3A 99 22 93 22 00 58 0E D7 00 55 5A B2 31 3A 55 |:.".".X...UZ.1:U| 00000650: 56 25 B2 C2 28 55 54 29 00 61 0E D8 00 89 33 30 |V%..(UT).a....30| 00000660: 30 00 86 0E D9 00 55 5A B2 30 3A 55 53 24 B2 55 |0.....UZ.0:US$.U| 00000670: 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A |J$:UG$.UK$:UP.UJ| 00000680: 3A 55 4C B2 55 4B 00 BD 0E DA 00 8B C2 28 35 30 |:UL.UK.......(50| 00000690: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A |003).0..53281,1:| 000006A0: 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 |.".";:.53281,6:.| 000006B0: 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 C7 0E |53280,14:.220...| 000006C0: DB 00 99 22 93 22 3B 00 F6 0E DC 00 55 54 24 B2 |...".";.....UT$.| 000006D0: 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 |UL$:.UT,UV%:.UQ.| 000006E0: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.| 000006F0: 55 33 25 AB 33 29 00 0B 0F E1 00 97 55 51 2C 55 |U3%.3)......UQ,U| 00000700: 51 25 28 55 51 AB 55 42 29 3A 82 00 17 0F E6 00 |Q%(UQ.UB):......| 00000710: 97 55 31 2C 55 31 25 00 23 0F E8 00 97 55 32 2C |.U1,U1%.#....U2,| 00000720: 55 32 25 00 2F 0F E9 00 97 55 34 2C 55 34 25 00 |U2%./....U4,U4%.| 00000730: 3D 0F EA 00 97 55 33 2C 55 33 25 AB 31 00 45 0F |=....U3,U3%.1.E.| 00000740: EB 00 89 33 35 00 77 0F F0 00 55 44 25 B2 28 28 |...35.w...UD%.((| 00000750: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 |U2%.256.U1%.U3%)| 00000760: AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 |.UB).40:..(UD$,U| 00000770: 44 25 AA 31 29 3A 8E 00 B2 0F F5 00 99 C8 28 55 |D%.1):........(U| 00000780: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" | 00000790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 | . | 000007A0: 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 |HELP COMING . "| 000007B0: 3A 8E 00 DE 0F FA 00 55 31 25 B2 C2 28 55 31 29 |:......U1%..(U1)| 000007C0: 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 |:U2%..(U2):U3%..| 000007D0: 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 06 |(U3):U4%..(U4)..| 000007E0: 10 FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 |...UJ$.US$:UK$.U| 000007F0: 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 |G$:UL$.UT$:UJ.UP| 00000800: 3A 55 4B B2 55 4C 00 0C 10 FF 00 8E 00 1D 10 2C |:UK.UL.........,| 00000810: 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 23 10 |.. ** MENU **.#.| 00000820: 2D 01 3A 00 52 10 2E 01 99 22 93 22 3A 97 55 54 |-.:.R....".":.UT| 00000830: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0| 00000840: A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 30 |..53281,9:.53280| 00000850: 2C 38 00 58 10 2F 01 3A 00 75 10 31 01 99 22 13 |,8.X./.:.u.1..".| 00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000870: 4D 45 4E 55 22 00 A4 10 36 01 99 22 20 2D 2D 2D |MENU"...6.." ---| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008A0: 2D 2D 2D 22 00 CE 10 3B 01 99 22 11 11 20 20 20 |---"...;..".. | 000008B0: 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E 20 43 | 1. BEGIN C| 000008C0: 48 45 4D 49 53 54 52 59 20 51 55 49 5A 22 00 F8 |HEMISTRY QUIZ"..| 000008D0: 10 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.| 000008E0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR| 000008F0: 55 43 54 49 4F 4E 53 22 00 22 11 45 01 99 22 11 |UCTIONS".".E..".| 00000900: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA| 00000910: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION| 00000920: 53 22 00 3E 11 4F 01 99 22 11 11 20 20 20 20 20 |S".>.O..".. | 00000930: 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 6D | 4. QUIT..".m| 00000940: 11 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------| 00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 98 11 |------------"...| 00000970: 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 |Y..".. PRE| 00000980: 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 |SS A NUMBER KEY | 00000990: 28 31 2D 34 29 20 22 3B 00 C0 11 5E 01 55 4C B2 |(1-4) ";...^.UL.| 000009A0: 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 |1:US$."1234":.35| 000009B0: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE| 000009C0: 00 D2 11 5F 01 8B C3 28 55 52 24 29 B1 31 A7 33 |..._...(UR$).1.3| 000009D0: 30 30 00 DD 11 60 01 55 53 24 B2 22 22 00 FA 11 |00...`.US$.""...| 000009E0: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4| 000009F0: 30 30 2C 35 30 30 2C 33 39 36 00 03 12 68 01 89 |00,500,396...h..| 00000A00: 33 30 30 00 2A 12 8B 01 8F 20 2A 2A 20 52 45 2D |300.*.... ** RE-| 00000A10: 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 |ENABLE STOP KEY | 00000A20: 41 4E 44 20 45 4E 44 20 2A 2A 00 59 12 8C 01 8B |AND END **.Y....| 00000A30: C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 |.(50003)..1..(50| 00000A40: 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 |003)..160..(5000| 00000A50: 33 29 B3 B1 30 A7 33 39 39 00 83 12 8D 01 9E 55 |3)..0.399......U| 00000A60: 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 |U.71:..(50003).0| 00000A70: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280| 00000A80: 2C 31 34 00 8F 12 8E 01 99 22 9A 93 22 3A 80 00 |,14......"..":..| 00000A90: 9A 12 8F 01 8D 38 37 35 3A 8E 00 AD 12 90 01 8F |.....875:.......| 00000AA0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 00 C7 12 | STUDENT INST...| 00000AB0: 92 01 55 54 24 B2 22 20 C3 48 45 4D 49 53 54 52 |..UT$." .HEMISTR| 00000AC0: 59 20 D1 55 49 5A 22 00 F6 12 95 01 99 22 93 22 |Y .UIZ"......"."| 00000AD0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000| 00000AE0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5| 00000AF0: 33 32 38 30 2C 30 00 17 13 9A 01 55 50 B2 30 3A |3280,0.....UP.0:| 00000B00: 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 |UG$.".TUDENT .NS| 00000B10: 54 22 3A 8D 38 35 30 00 26 13 C7 01 8D 31 31 39 |T":.850.&....119| 00000B20: 30 3A 8D 38 35 30 00 55 13 CC 01 99 22 20 11 11 |0:.850.U...." ..| 00000B30: CE 4F 54 45 3A 11 11 11 D4 4F 20 41 44 56 41 4E |.OTE:....O ADVAN| 00000B40: 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 45 53 |CE FROM ONE QUES| 00000B50: 54 49 4F 4E 22 00 7E 13 D6 01 99 22 20 11 54 4F |TION".~...." .TO| 00000B60: 20 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 | THE NEXT PRESS | 00000B70: 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 22 00 AF |THE ..... BAR"..| 00000B80: 13 DB 01 99 22 20 11 11 1D 1D 1D 1D 1D C9 46 20 |...." ........F | 00000B90: 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 |AT ANY TIME YOU | 00000BA0: 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 |WISH TO RETURN".| 00000BB0: D3 13 E0 01 99 22 20 11 54 4F 20 54 48 45 20 CD |....." .TO THE .| 00000BC0: C5 CE D5 20 50 52 45 53 53 20 48 20 D2 C5 D4 D5 |... PRESS H ....| 00000BD0: D2 CE 22 00 DC 13 E5 01 8D 38 33 35 00 F0 13 EA |.."......835....| 00000BE0: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217| 00000BF0: 00 F6 13 F3 01 8E 00 17 14 F4 01 8F 20 2A 2A 20 |............ ** | 00000C00: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT| 00000C10: 49 4F 4E 53 20 2A 2A 00 47 14 F5 01 99 22 93 22 |IONS **.G...."."| 00000C20: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000| 00000C30: 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 |3).0..53281,2:.5| 00000C40: 33 32 38 30 2C 31 30 00 68 14 F6 01 55 50 B2 30 |3280,10.h...UP.0| 00000C50: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N| 00000C60: 53 54 22 3A 8D 38 35 30 00 96 14 F7 01 99 22 11 |ST":.850......".| 00000C70: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE| 00000C80: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE| 00000C90: 44 47 45 2C 11 22 00 BF 14 F8 01 99 22 20 20 20 |DGE,."......" | 00000CA0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS | 00000CB0: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".| 00000CC0: EB 14 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.| 00000CD0: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT| 00000CE0: 20 54 48 45 20 43 41 53 45 11 22 00 08 15 FA 01 | THE CASE.".....| 00000CF0: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT| 00000D00: 41 43 54 3A 11 11 11 22 00 32 15 FB 01 99 22 20 |ACT:...".2...." | 00000D10: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .| 00000D20: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES| 00000D30: 11 22 00 55 15 FC 01 99 22 20 20 20 20 20 20 20 |.".U...." | 00000D40: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY| 00000D50: 20 C1 56 45 2E 00 79 15 FD 01 99 22 20 20 20 20 | .VE..y...." | 00000D60: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,| 00000D70: 20 CF 4E 54 41 52 49 4F 22 00 9B 15 FE 01 99 22 | .NTARIO"......"| 00000D80: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA| 00000D90: 20 20 20 CD 31 D7 20 32 CB 34 22 00 BB 15 FF 01 | .1. 2.4".....| 00000DA0: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416| 00000DB0: 29 20 34 39 39 2D 34 32 39 32 22 00 D1 15 00 02 |) 499-4292".....| 00000DC0: 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 |UP.1:. 835:. 850| 00000DD0: 3A 00 FC 15 01 02 99 22 20 20 20 20 20 11 11 D0 |:......" ...| 00000DE0: 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C3 48 45 |ROGRAM .AME: .HE| 00000DF0: 4D 49 53 54 52 59 20 D1 55 49 5A 11 00 29 16 02 |MISTRY .UIZ..)..| 00000E00: 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 |.." .RITTEN | 00000E10: C2 59 20 20 3A 20 D3 54 45 50 48 45 4E 20 D7 4F |.Y : .TEPHEN .O| 00000E20: 52 4F 53 5A 43 5A 55 4B 11 00 4D 16 03 02 99 22 |ROSZCZUK..M...."| 00000E30: 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 | .PGRADED .Y| 00000E40: 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 78 16 | : ..x.| 00000E50: 04 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 |..." ..HIS P| 00000E60: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 |ROGRAM WILL RUN | 00000E70: 4F 4E 20 41 4E 59 11 11 00 98 16 07 02 99 22 20 |ON ANY........" | 00000E80: 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 | ... 64 .| 00000E90: CF CD D0 D5 D4 C5 D2 11 00 BD 16 08 02 99 22 20 |.............." | 00000EA0: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........| 00000EB0: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 C6 16 |. 64 ...........| 00000EC0: 44 02 8D 38 33 35 00 DA 16 4E 02 8B 55 5A B2 31 |D..835...N..UZ.1| 00000ED0: A7 9E 55 50 25 3A 89 32 31 37 00 E0 16 57 02 8E |..UP%:.217...W..| 00000EE0: 00 06 17 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA| 00000EF0: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I| 00000F00: 4E 53 54 20 2A 2A 00 17 17 59 02 99 22 93 22 3A |NST **...Y..".":| 00000F10: 97 55 54 2C 55 4C 25 00 37 17 5D 02 55 50 B2 30 |.UT,UL%.7.].UP.0| 00000F20: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O| 00000F30: 44 22 3A 8D 38 35 30 00 40 17 94 02 8D 38 33 35 |D":.850.@....835| 00000F40: 00 54 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |.T....UZ.1..UP%:| 00000F50: 89 32 31 37 00 5A 17 BB 02 8E 00 7F 17 BC 02 8F |.217.Z..........| 00000F60: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 | 00000F70: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.| 00000F80: B5 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 |.....".....BEFOR| 00000F90: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P| 00000FA0: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803| 00000FB0: 32 20 20 11 11 00 EB 17 D0 02 99 22 20 20 20 20 |2 ........" | 00000FC0: 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 | LOAD THE 'CBM | 00000FD0: 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 |4032' PROGRAM...| 00000FE0: 11 11 11 11 11 11 11 11 11 11 22 00 F6 17 DA 02 |..........".....| 00000FF0: 9E 55 55 AA 37 31 00 FC 17 E4 02 80 00 21 18 1D |.UU.71.......!..| 00001000: 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803| 00001010: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *| 00001020: 2A 00 6C 18 1E 03 99 22 93 11 11 11 42 45 46 4F |*.l...."....BEFO| 00001030: 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 |RE RUNNING THIS | 00001040: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 |PROGRAM ON AN 80| 00001050: 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 |32 ..LOAD CBM 4| 00001060: 30 33 32 20 50 52 4F 47 52 41 4D 22 00 78 18 1F |032 PROGRAM".x..| 00001070: 03 9E 31 30 39 33 3A 80 00 98 18 20 03 8F 20 2A |..1093:.... .. *| 00001080: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P | 00001090: 41 20 47 20 45 20 2A 2A 00 CC 18 22 03 99 22 93 |A G E **..."..".| 000010A0: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..| 000010B0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280| 000010C0: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 E2 18 24 |,14:.53281,6...$| 000010D0: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";| 000010E0: 3A 82 00 FA 18 26 03 81 49 B2 31 A4 32 32 3A 99 |:....&..I.1.22:.| 000010F0: 22 11 9D 12 A6 92 22 3B 3A 82 00 12 19 28 03 81 |".....";:....(..| 00001100: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";| 00001110: 3A 82 00 2A 19 2A 03 81 49 B2 31 A4 32 32 3A 99 |:..*.*..I.1.22:.| 00001120: 22 91 9D 12 A6 92 22 3B 3A 82 00 4F 19 2C 03 99 |".....";:..O.,..| 00001130: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00001140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..| 00001150: 71 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |q...."..........| 00001160: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .| 00001170: A9 00 92 19 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....0.."........| 00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .| 00001190: A3 DF 00 B0 19 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......| 000011A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .| 000011B0: 00 D8 19 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........| 000011C0: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D| 000011D0: 20 4F 20 52 20 45 11 11 00 FB 19 36 03 99 22 1D | O R E.....6..".| 000011E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED| 000011F0: 55 43 41 54 49 4F 4E 41 4C 11 11 00 1A 1A 38 03 |UCATIONAL.....8.| 00001200: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 00001210: 1D 1D 53 4F 46 54 57 41 52 45 00 35 1A 3A 03 8F |..SOFTWARE.5.:..| 00001220: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO| 00001230: 47 4F 20 2A 2A 00 6D 1A 3B 03 99 C8 28 55 44 24 |GO **.m.;...(UD$| 00001240: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........| 00001250: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR | 00001260: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 8F 1A |OR WAIT.":I.0...| 00001270: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I| 00001280: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.| 00001290: B3 1A 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |..>.T1$."":T2$."| 000012A0: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":| 000012B0: 49 B2 30 00 BC 1A 40 03 89 33 30 30 00 D8 1A 43 |I.0...@..300...C| 000012C0: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR | 000012D0: 50 52 45 53 53 20 2A 2A 00 13 1B 48 03 97 55 4F |PRESS **...H..UO| 000012E0: 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |,0:..(UD$,24);".| 000012F0: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC| 00001300: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU| 00001310: 45 92 22 00 2A 1B 4C 03 A1 55 49 24 3A 8B 55 49 |E.".*.L..UI$:.UI| 00001320: 24 B3 B1 22 20 22 A7 38 34 34 00 30 1B 4E 03 8E |$.." ".844.0.N..| 00001330: 00 50 1B 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 |.P.R.. ** PAGE D| 00001340: 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |ESIGN ROUTINE **| 00001350: 00 5C 1B 54 03 55 50 B2 55 50 AA 31 00 86 1B 57 |.\.T.UP.UP.1...W| 00001360: 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 |..".".(UT$.UP$,2| 00001370: 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 |1);.(UP$.UG$..(U| 00001380: 50 29 2C 31 38 29 00 B5 1B 5C 03 99 22 20 2D 2D |P),18)...\.." --| 00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000013B0: 2D 2D 2D 2D 22 00 C4 1B 60 03 8B 55 48 B3 B1 30 |----"...`..UH..0| 000013C0: A7 38 37 30 00 F8 1B 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,| 000013D0: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE| 000013E0: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <| 000013F0: 52 45 54 55 52 4E 3E 22 00 09 1C 66 03 55 48 B2 |RETURN>"...f.UH.| 00001400: 30 3A 99 22 13 11 22 3A 8E 00 28 1C 6B 03 8F 20 |0:."..":..(.k.. | 00001410: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R| 00001420: 45 4D 41 52 4B 20 2A 2A 00 5E 1C 70 03 99 C8 28 |EMARK **.^.p...(| 00001430: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" | 00001440: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P| 00001450: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 64 |LEASE... ".d| 00001460: 1C 75 03 8E 00 81 1C 84 03 8F 20 2A 2A 20 53 45 |.u........ ** SE| 00001470: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *| 00001480: 2A 00 CC 1C 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.....UX$."H":.U| 00001490: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276| 000014A0: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:| 000014B0: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC| 000014C0: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 0A 1D 86 |.167:UU.1024....| 000014D0: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12| 000014E0: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146| 000014F0: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158| 00001500: 3A 97 20 35 30 30 30 33 2C 30 00 4D 1D 87 03 8B |:. 50003,0.M....| 00001510: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10| 00001520: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210| 00001530: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U| 00001540: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 8C 1D |C.204:UU.2048...| 00001550: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT| 00001560: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL| 00001570: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM| 00001580: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 B0 1D 89 |.1024:UO.198....| 00001590: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........| 000015A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."| 000015B0: 00 E2 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.....UP$." | 000015C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015E0: 20 22 00 2F 1E 8B 03 55 54 24 B2 22 20 C3 C8 C5 | "./...UT$." ...| 000015F0: CD C9 D3 D4 D2 D9 A0 D1 C9 D5 DA A0 A0 A0 22 3A |..............":| 00001600: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM | 00001610: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!| 00001620: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.| 00001630: 4B 1E 8C 03 86 45 24 28 32 30 29 2C 56 24 28 32 |K....E$(20),V$(2| 00001640: 30 29 2C 53 24 28 32 30 29 3A 8E 00 65 1E 8E 03 |0),S$(20):..e...| 00001650: 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C |. ** SET VARIABL| 00001660: 45 53 20 2A 2A 00 6E 1E 93 03 8D 39 30 30 00 74 |ES **.n....900.t| 00001670: 1E 94 03 3A 00 7A 1E 95 03 3A 00 95 1E 98 03 8F |...:.z...:......| 00001680: 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 | ** CHECK FOR 80| 00001690: 33 32 20 2A 2A 00 B3 1E 9D 03 99 22 93 22 3A 99 |32 **......".":.| 000016A0: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP| 000016B0: 41 43 45 00 CA 1E A2 03 8B C2 28 55 42 AA 34 30 |ACE.......(UB.40| 000016C0: 29 B3 B1 39 36 A7 8D 37 30 30 00 E3 1E A3 03 8F |)..96..700......| 000016D0: 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B | ** MEMORY CHECK| 000016E0: 20 2A 2A 00 F7 1E A4 03 8B 20 B8 28 30 29 B1 32 | **...... .(0).2| 000016F0: 30 30 30 A7 39 33 37 00 25 1F A5 03 99 22 93 11 |000.937.%...."..| 00001700: 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 |..THIS MACHINE D| 00001710: 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F |OES NOT HAVE ENO| 00001720: 55 47 48 11 22 00 49 1F A6 03 99 22 4D 45 4D 4F |UGH.".I...."MEMO| 00001730: 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 |RY TO RUN THIS P| 00001740: 52 4F 47 52 41 4D 20 21 22 00 54 1F A7 03 9E 55 |ROGRAM !".T....U| 00001750: 55 AA 37 31 00 5A 1F A8 03 80 00 74 1F A9 03 99 |U.71.Z.....t....| 00001760: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0| 00001770: A7 39 36 32 00 A3 1F AC 03 8F 20 2A 2A 20 42 41 |.962...... ** BA| 00001780: 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 |SIC 2.0 OR 4.0| 00001790: 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 | OR C-64 SETUP| 000017A0: 20 2A 2A 00 E1 1F AD 03 97 31 30 37 35 2C 31 33 | **......1075,13| 000017B0: 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 |3:.1076,144:.107| 000017C0: 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 |7,234:.1079,4:.1| 000017D0: 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 |080,133:.1081,14| 000017E0: 35 00 17 20 AE 03 97 31 30 39 31 2C 31 35 35 3A |5.. ...1091,155:| 000017F0: 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C |.1098,133:.1099,| 00001800: 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 |144:.1100,234:.1| 00001810: 31 30 33 2C 31 33 33 00 39 20 AF 03 97 31 31 30 |103,133.9 ...110| 00001820: 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A |4,145:.1105,234:| 00001830: 97 31 30 38 32 2C 32 33 34 00 50 20 B1 03 8B C2 |.1082,234.P ....| 00001840: 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 |(50003)..160.955| 00001850: 00 7F 20 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 |.. ...1093,88:.1| 00001860: 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 |094,228:.1097,85| 00001870: 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 |:.1102,228:.965.| 00001880: 94 20 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |. ....(50003)..1| 00001890: A7 39 39 30 00 C3 20 C0 03 97 31 30 39 33 2C 34 |.990.. ...1093,4| 000018A0: 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 |9:.1094,230:.109| 000018B0: 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 |7,46:.1102,230:.| 000018C0: 39 36 35 00 FD 20 C2 03 97 32 30 39 39 2C 31 34 |965.. ...2099,14| 000018D0: 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 |1:.2100,20:.2101| 000018E0: 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 |,3:.2103,8:.2104| 000018F0: 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 39 21 |,141:.2105,21.9!| 00001900: C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C |...2106,3:.2115,| 00001910: 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 |145:.2117,52:.21| 00001920: 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A |18,234:.2121,49:| 00001930: 97 32 31 32 32 2C 31 34 31 00 73 21 C4 03 97 32 |.2122,141.s!...2| 00001940: 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 |123,20:.2124,3:.| 00001950: 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 |2126,234:.2127,1| 00001960: 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 |41:.2128,21:.212| 00001970: 39 2C 33 00 91 21 C5 03 9E 55 55 AA 34 38 3A 8F |9,3..!...UU.48:.| 00001980: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 | DISABLE STOP KE| 00001990: 59 00 A2 21 CA 03 8D 38 30 30 3A 8F 20 54 49 54 |Y..!...800:. TIT| 000019A0: 4C 45 00 B2 21 D4 03 89 33 30 30 3A 8F 20 4D 45 |LE..!...300:. ME| 000019B0: 4E 55 00 E3 21 DE 03 99 22 93 54 48 45 20 50 47 |NU..!...".THE PG| 000019C0: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK | 000019D0: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!| 000019E0: 22 3A 80 00 18 22 E8 03 8B 55 5A B2 31 A7 9E 55 |":..."...UZ.1..U| 000019F0: 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A |P%:.UP%:UZ.0:. *| 00001A00: 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |* PROGRAM STARTS| 00001A10: 20 48 45 52 45 20 2A 2A 00 44 22 E9 03 99 22 93 | HERE **.D"...".| 00001A20: 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 |.";:.:..(50003).| 00001A30: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328| 00001A40: 30 2C 31 34 00 71 22 EB 03 9C 3A 8D 39 30 30 3A |0,14.q"...:.900:| 00001A50: 55 54 24 B2 22 20 C3 48 45 4D 49 53 54 52 59 20 |UT$." .HEMISTRY | 00001A60: D1 55 49 5A 22 3A 55 50 B2 30 3A 55 47 24 B2 22 |.UIZ":UP.0:UG$."| 00001A70: 22 00 92 22 EC 03 81 58 B2 31 A4 32 30 3A 87 45 |".."...X.1.20:.E| 00001A80: 24 28 58 29 2C 53 24 28 58 29 2C 56 24 28 58 29 |$(X),S$(X),V$(X)| 00001A90: 3A 82 00 AF 22 4C 04 97 20 55 54 2C 55 4C 25 3A |:..."L.. UT,UL%:| 00001AA0: 52 B2 30 3A 41 B2 30 3A 4E B2 30 3A 59 B2 30 00 |R.0:A.0:N.0:Y.0.| 00001AB0: C0 22 56 04 99 22 93 11 11 11 11 11 11 11 11 22 |."V.."........."| 00001AC0: 00 F9 22 60 04 99 A3 35 29 3B 22 2A 2A 2A 2A 2A |.."`...5);"*****| 00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 99 A3 35 29 22 |*********":..5)"| 00001AF0: 2A 22 A3 33 34 29 22 2A 22 00 23 23 6A 04 99 A3 |*".34)"*".##j...| 00001B00: 35 29 20 22 2A 20 20 D0 C5 D2 C9 CF C4 C9 C3 20 |5) "* ........ | 00001B10: D4 C1 C2 CC C5 20 20 D0 D2 C1 C3 D4 C9 C3 C5 20 |..... ........ | 00001B20: 20 2A 22 00 5B 23 74 04 99 A3 35 29 22 2A 22 A3 | *".[#t...5)"*".| 00001B30: 33 34 29 22 2A 22 3A 99 A3 35 29 22 2A 2A 2A 2A |34)"*":..5)"****| 00001B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 84 23 7E 04 |**********"..#~.| 00001B60: 99 22 11 22 A3 37 29 3B 22 42 59 20 D3 D4 C5 D0 |.".".7);"BY ....| 00001B70: C8 C5 CE 20 D7 CF D2 CF D3 DA C3 DA D5 CB 20 C9 |... .......... .| 00001B80: CE C3 2E 22 00 94 23 88 04 81 4A B2 31 A4 38 30 |..."..#...J.1.80| 00001B90: 30 3A 82 4A 00 9E 23 92 04 89 31 33 34 30 00 CE |0:.J..#...1340..| 00001BA0: 23 A6 04 99 22 11 11 20 20 D4 48 45 20 41 49 4D |#...".. .HE AIM| 00001BB0: 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 41 4D | OF THIS PROGRAM| 00001BC0: 20 49 53 20 54 4F 20 41 49 44 20 59 4F 55 00 FA | IS TO AID YOU..| 00001BD0: 23 A7 04 99 22 11 20 49 4E 20 4C 45 41 52 4E 49 |#...". IN LEARNI| 00001BE0: 4E 47 20 54 48 45 20 50 45 52 49 4F 44 49 43 20 |NG THE PERIODIC | 00001BF0: 54 41 42 4C 45 2E 20 D9 4F 55 00 25 24 A8 04 99 |TABLE. .OU.%$...| 00001C00: 22 11 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E |". WILL BE GIVEN| 00001C10: 20 41 4E 20 45 4C 45 4D 45 4E 54 20 4E 41 4D 45 | AN ELEMENT NAME| 00001C20: 20 4F 52 20 41 00 52 24 A9 04 99 22 11 20 53 59 | OR A.R$...". SY| 00001C30: 4D 42 4F 4C 2E 20 20 D9 4F 55 20 57 49 4C 4C 20 |MBOL. .OU WILL | 00001C40: 48 41 56 45 20 54 4F 20 53 55 50 50 4C 59 20 54 |HAVE TO SUPPLY T| 00001C50: 48 45 00 7E 24 AA 04 99 22 11 20 4F 54 48 45 52 |HE.~$...". OTHER| 00001C60: 20 41 53 20 57 45 4C 4C 20 41 53 20 54 48 45 20 | AS WELL AS THE | 00001C70: 56 41 4C 45 4E 43 45 20 4F 46 20 54 48 45 00 9A |VALENCE OF THE..| 00001C80: 24 AB 04 99 22 11 20 45 4C 45 4D 45 4E 54 2E 22 |$...". ELEMENT."| 00001C90: 3A 8D 38 33 35 3A 8D 38 35 30 00 B1 24 AC 04 99 |:.835:.850..$...| 00001CA0: 22 11 11 20 C6 4F 52 20 45 58 41 4D 50 4C 45 3A |".. .OR EXAMPLE:| 00001CB0: 22 00 D3 24 C4 04 99 A3 31 34 29 22 D4 48 45 20 |"..$....14)".HE | 00001CC0: 45 4C 45 4D 45 4E 54 20 49 53 20 D3 CF C4 C9 D5 |ELEMENT IS .....| 00001CD0: CD 2E 22 00 0F 25 CE 04 99 A3 31 34 29 22 11 D7 |.."..%....14)"..| 00001CE0: 48 41 54 20 49 53 20 49 54 53 20 53 59 4D 42 4F |HAT IS ITS SYMBO| 00001CF0: 4C 3F 20 CE 41 22 3A 99 A3 31 34 29 22 11 D4 48 |L? .A":..14)"..H| 00001D00: 41 54 20 49 53 20 43 4F 52 52 45 43 54 2E 22 00 |AT IS CORRECT.".| 00001D10: 4B 25 D8 04 99 A3 31 34 29 22 11 D7 48 41 54 20 |K%....14)"..HAT | 00001D20: 49 53 20 49 54 53 20 56 41 4C 45 4E 43 45 3F 20 |IS ITS VALENCE? | 00001D30: 31 22 3A 99 A3 31 34 29 22 11 D4 48 41 54 20 49 |1":..14)"..HAT I| 00001D40: 53 20 43 4F 52 52 45 43 54 2E 22 00 5E 25 DD 04 |S CORRECT.".^%..| 00001D50: 8D 38 33 35 3A 55 50 B2 32 3A 8D 38 35 30 00 8E |.835:UP.2:.850..| 00001D60: 25 E2 04 99 22 11 11 20 2A 2A CE CF D4 C5 2A 2A |%...".. **....**| 00001D70: 20 20 20 D4 CF 20 D4 D9 D0 C5 20 D5 D0 D0 C5 D2 | .. .... .....| 00001D80: 20 C3 C1 D3 C5 20 CC C5 D4 D4 C5 D2 D3 22 00 D1 | .... ......."..| 00001D90: 25 EC 04 99 22 11 20 20 20 20 20 20 20 20 20 20 |%...". | 00001DA0: 20 20 D0 D2 C5 D3 D3 20 D3 C8 C9 C6 D4 20 C1 CE | ..... ..... ..| 00001DB0: C4 20 D4 C8 C5 CE 20 D4 C8 C5 20 20 20 20 20 20 |. .... ... | 00001DC0: 11 20 20 20 20 20 20 20 20 20 20 CC C5 D4 D4 C5 |. .....| 00001DD0: D2 00 01 26 F6 04 99 22 11 11 20 2A 2A CE CF D4 |...&...".. **...| 00001DE0: C5 2A 2A 20 20 20 C6 4F 52 20 4D 55 4C 54 49 50 |.** .OR MULTIP| 00001DF0: 4C 45 20 56 41 4C 45 4E 43 45 53 20 4F 4E 4C 59 |LE VALENCES ONLY| 00001E00: 22 00 30 26 00 05 99 22 20 20 11 20 20 20 20 20 |".0&..." . | 00001E10: 20 20 20 20 20 43 4F 4D 4D 41 53 20 41 52 45 20 | COMMAS ARE | 00001E20: 54 4F 20 53 45 50 41 52 41 54 45 20 54 48 45 22 |TO SEPARATE THE"| 00001E30: 00 5C 26 0A 05 99 22 11 20 20 20 20 20 20 20 20 |.\&...". | 00001E40: 20 20 20 20 4E 55 4D 42 45 52 53 2E 20 20 20 C6 | NUMBERS. .| 00001E50: 4F 52 20 45 58 41 4D 50 4C 45 3A 22 00 89 26 14 |OR EXAMPLE:"..&.| 00001E60: 05 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". | 00001E70: D4 48 45 20 56 41 4C 45 4E 43 45 20 4F 46 20 D3 |.HE VALENCE OF .| 00001E80: D5 CC C6 D5 D2 20 49 53 22 00 A0 26 1E 05 99 22 |..... IS"..&..."| 00001E90: 11 20 20 20 20 20 20 20 20 20 20 20 20 32 2C 34 |. 2,4| 00001EA0: 00 AB 26 28 05 8D 38 33 35 3A 8E 00 C6 26 3C 05 |..&(..835:...&<.| 00001EB0: 55 48 B2 31 3A 8D 38 35 30 3A 99 22 11 11 11 11 |UH.1:.850:."....| 00001EC0: 11 11 11 11 11 22 00 0A 27 41 05 99 22 20 C8 CF |....."..'A.." ..| 00001ED0: D7 20 CD C1 CE D9 20 D1 D5 C5 D3 D4 C9 CF CE D3 |. .... .........| 00001EE0: 20 C4 CF 20 D9 CF D5 20 D7 C1 CE D4 3F 20 22 3B | .. ... ....? ";| 00001EF0: 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 |:US$."0123456789| 00001F00: 22 3A 55 4C B2 32 3A 8D 33 35 00 21 27 46 05 41 |":UL.2:.35.!'F.A| 00001F10: B2 C5 28 55 52 24 29 3A 8B 41 B2 30 89 31 33 34 |..(UR$):.A.0.134| 00001F20: 30 00 39 27 96 05 81 20 51 B2 31 A4 41 3A 55 50 |0.9'... Q.1.A:UP| 00001F30: B2 51 AB 31 3A 8D 38 35 30 00 43 27 A0 05 8D 32 |.Q.1:.850.C'...2| 00001F40: 30 30 30 00 70 27 AA 05 58 B2 B5 28 32 30 AC BB |000.p'..X..(20..| 00001F50: 28 31 29 AA 31 29 3A 5A B2 B5 28 32 AC BB 28 31 |(1).1):Z..(2..(1| 00001F60: 29 AA 31 29 3A 8B 20 5A B2 32 20 89 31 35 32 30 |).1):. Z.2 .1520| 00001F70: 00 7E 27 B4 05 99 C8 28 55 44 24 2C 38 29 00 A6 |.~'....(UD$,8)..| 00001F80: 27 B6 05 4E B2 4E AA 31 3A 99 A3 38 29 22 11 D4 |'..N.N.1:..8)"..| 00001F90: 48 45 20 45 4C 45 4D 45 4E 54 20 49 53 3A 20 22 |HE ELEMENT IS: "| 00001FA0: 45 24 28 58 29 3A 00 C7 27 B7 05 99 A3 38 29 22 |E$(X):..'....8)"| 00001FB0: 11 D7 48 41 54 20 49 53 20 49 54 53 20 53 59 4D |..HAT IS ITS SYM| 00001FC0: 42 4F 4C 3F 20 22 3B 00 0F 28 B9 05 55 53 24 B2 |BOL? ";..(..US$.| 00001FD0: 22 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F |"ABCDEFGHIJKLMNO| 00001FE0: 50 51 52 53 54 55 56 57 58 59 5A C1 C2 C3 C4 C5 |PQRSTUVWXYZ.....| 00001FF0: C6 C7 C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 D5 |................| 00002000: D6 D7 D8 D9 DA 22 3A 55 4C B2 32 3A 8D 33 35 00 |.....":UL.2:.35.| 00002010: 1A 28 BA 05 41 24 B2 55 52 24 00 4F 28 BE 05 8B |.(..A$.UR$.O(...| 00002020: 20 41 24 B2 53 24 28 58 29 A7 20 99 A3 38 29 22 | A$.S$(X). ..8)"| 00002030: 11 D4 48 41 54 20 49 53 20 43 4F 52 52 45 43 54 |..HAT IS CORRECT| 00002040: 2E 22 3A 52 B2 52 AA 2E 35 3A 89 31 34 39 30 00 |.":R.R..5:.1490.| 00002050: 76 28 C8 05 99 A3 38 29 22 11 CE 4F 2C 20 54 48 |v(....8)"..O, TH| 00002060: 45 20 53 59 4D 42 4F 4C 20 49 53 3A 20 22 3B 3A |E SYMBOL IS: ";:| 00002070: 99 53 24 28 58 29 00 B5 28 D2 05 99 A3 38 29 22 |.S$(X)..(....8)"| 00002080: 11 D7 48 41 54 20 49 53 20 49 54 53 20 56 41 4C |..HAT IS ITS VAL| 00002090: 45 4E 43 45 3F 20 22 3B 3A 55 53 24 B2 22 30 31 |ENCE? ";:US$."01| 000020A0: 32 33 34 2C 22 3A 55 4C B2 33 3A 8D 33 35 3A 41 |234,":UL.3:.35:A| 000020B0: 24 B2 55 52 24 00 E8 28 DC 05 8B 41 24 B2 56 24 |$.UR$..(...A$.V$| 000020C0: 28 58 29 A7 99 A3 38 29 22 11 D4 48 41 54 20 49 |(X)...8)"..HAT I| 000020D0: 53 20 43 4F 52 52 45 43 54 2E 22 3A 52 B2 52 AA |S CORRECT.":R.R.| 000020E0: 2E 35 3A 89 31 35 38 30 00 16 29 E6 05 99 A3 38 |.5:.1580..)....8| 000020F0: 29 22 11 CE 4F 2C 20 54 48 45 20 56 41 4C 45 4E |)"..O, THE VALEN| 00002100: 43 45 20 49 53 3A 20 22 3B 3A 99 56 24 28 58 29 |CE IS: ";:.V$(X)| 00002110: 3A 89 31 35 38 30 00 24 29 F0 05 99 C8 28 55 44 |:.1580.$)....(UD| 00002120: 24 2C 38 29 00 4B 29 F2 05 4E B2 4E AA 31 3A 99 |$,8).K)..N.N.1:.| 00002130: A3 38 29 22 11 D4 48 45 20 D3 59 4D 42 4F 4C 20 |.8)"..HE .YMBOL | 00002140: 49 53 3A 20 22 3B 53 24 28 58 29 00 6D 29 F3 05 |IS: ";S$(X).m)..| 00002150: 99 A3 38 29 22 11 D7 48 41 54 20 49 53 20 54 48 |..8)"..HAT IS TH| 00002160: 45 20 45 4C 45 4D 45 4E 54 3F 20 22 3B 00 A3 29 |E ELEMENT? ";..)| 00002170: F5 05 55 53 24 B2 22 41 42 43 44 45 46 47 48 49 |..US$."ABCDEFGHI| 00002180: 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 |JKLMNOPQRSTUVWXY| 00002190: 5A 22 3A 55 4C B2 31 30 3A 8D 33 35 3A 41 24 B2 |Z":UL.10:.35:A$.| 000021A0: 55 52 24 00 DA 29 FA 05 8B 20 41 24 B2 45 24 28 |UR$..)... A$.E$(| 000021B0: 58 29 20 A7 20 99 A3 38 29 22 11 D4 48 41 54 20 |X) . ..8)"..HAT | 000021C0: 49 53 20 43 4F 52 52 45 43 54 2E 22 3A 52 B2 52 |IS CORRECT.":R.R| 000021D0: AA 2E 35 3A 89 20 31 35 35 30 00 00 2A 04 06 99 |..5:. 1550..*...| 000021E0: A3 38 29 22 11 CE 4F 2C 20 54 48 45 20 45 4C 45 |.8)"..O, THE ELE| 000021F0: 4D 45 4E 54 20 49 53 3A 20 22 3B 45 24 28 58 29 |MENT IS: ";E$(X)| 00002200: 00 3E 2A 0E 06 99 A3 38 29 22 11 D7 48 41 54 20 |.>*....8)"..HAT | 00002210: 49 53 20 49 54 53 20 56 41 4C 45 4E 43 45 20 22 |IS ITS VALENCE "| 00002220: 3B 3A 55 53 24 B2 22 30 31 32 33 34 2C 22 3A 55 |;:US$."01234,":U| 00002230: 4C B2 33 3A 8D 33 35 3A 41 24 B2 55 52 24 00 72 |L.3:.35:A$.UR$.r| 00002240: 2A 18 06 8B 20 41 24 B2 56 24 28 58 29 A7 20 99 |*... A$.V$(X). .| 00002250: A3 38 29 22 11 D4 48 41 54 20 49 53 20 43 4F 52 |.8)"..HAT IS COR| 00002260: 52 45 43 54 22 3A 52 B2 52 AA 2E 35 3A 89 31 35 |RECT":R.R..5:.15| 00002270: 38 30 00 98 2A 22 06 99 A3 38 29 22 11 CE 4F 2C |80..*"...8)"..O,| 00002280: 20 54 48 45 20 56 41 4C 45 4E 43 45 20 49 53 3A | THE VALENCE IS:| 00002290: 20 22 3B 56 24 28 58 29 00 A4 2A 2C 06 8D 38 33 | ";V$(X)..*,..83| 000022A0: 35 3A 82 51 00 BD 2A 31 06 8D 38 35 30 3A 8D 32 |5:.Q..*1..850:.2| 000022B0: 30 30 30 3A 99 C8 28 55 44 24 2C 38 29 00 FB 2A |000:..(UD$,8)..*| 000022C0: 36 06 99 22 11 11 11 20 20 20 20 20 20 20 20 D9 |6.."... .| 000022D0: 4F 55 52 20 D0 45 52 43 45 4E 54 41 47 45 20 57 |OUR .ERCENTAGE W| 000022E0: 41 53 3A 20 22 3B 3A 53 B2 B5 28 52 AC 31 30 30 |AS: ";:S..(R.100| 000022F0: AD 4E 29 3A 99 53 3B 22 9D 25 22 00 37 2B 40 06 |.N):.S;".%".7+@.| 00002300: 8B 53 B3 35 31 A7 99 22 11 20 D9 4F 55 20 4E 45 |.S.51..". .OU NE| 00002310: 45 44 20 54 4F 20 4C 45 41 52 4E 20 54 48 45 20 |ED TO LEARN THE | 00002320: 50 45 52 49 4F 44 49 43 20 54 41 42 4C 45 21 21 |PERIODIC TABLE!!| 00002330: 22 3A 89 31 38 36 30 00 73 2B 4A 06 8B 53 B3 B2 |":.1860.s+J..S..| 00002340: 36 30 A7 99 22 11 20 D9 4F 55 20 4E 45 45 44 20 |60..". .OU NEED | 00002350: 54 4F 20 53 54 55 44 59 20 54 48 45 20 50 45 52 |TO STUDY THE PER| 00002360: 49 4F 44 49 43 20 54 41 42 4C 45 21 22 3A 89 31 |IODIC TABLE!":.1| 00002370: 38 36 30 00 A1 2B 54 06 8B 53 B3 B2 38 30 A7 99 |860..+T..S..80..| 00002380: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00002390: 20 20 20 CE 4F 54 20 C2 41 44 22 3A 89 31 38 36 | .OT .AD":.186| 000023A0: 30 00 CF 2B 5E 06 8B 53 B3 B2 39 30 A7 99 22 11 |0..+^..S..90..".| 000023B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D6 | .| 000023C0: 45 52 59 20 C7 4F 4F 44 22 3A 89 31 38 36 30 00 |ERY .OOD":.1860.| 000023D0: FF 2B 68 06 8B 53 B3 B2 39 39 A7 99 22 11 20 20 |.+h..S..99..". | 000023E0: 20 20 20 20 20 20 20 20 20 20 20 20 C5 58 43 45 | .XCE| 000023F0: 4C 4C 45 4E 54 21 21 21 22 3A 89 31 38 36 30 00 |LLENT!!!":.1860.| 00002400: 34 2C 72 06 8B 53 B2 31 30 30 A7 99 22 11 20 20 |4,r..S.100..". | 00002410: 20 20 20 20 20 20 20 C5 49 4E 53 54 45 49 4E 2C | .INSTEIN,| 00002420: 20 4D 4F 56 45 20 4F 56 45 52 21 21 21 22 3A 89 | MOVE OVER!!!":.| 00002430: 31 38 36 30 00 49 2C 7C 06 83 20 48 59 44 52 4F |1860.I,|.. HYDRO| 00002440: 47 45 4E 2C 22 C8 22 2C 31 00 5D 2C 86 06 83 20 |GEN,".",1.],... | 00002450: 48 45 4C 49 55 4D 2C 22 C8 45 22 2C 30 00 72 2C |HELIUM,".E",0.r,| 00002460: 90 06 83 20 4C 49 54 48 49 55 4D 2C 22 CC 49 22 |... LITHIUM,".I"| 00002470: 2C 31 00 89 2C 9A 06 83 20 42 45 52 59 4C 4C 49 |,1..,... BERYLLI| 00002480: 55 4D 2C 22 C2 45 22 2C 32 00 9B 2C A4 06 83 20 |UM,".E",2..,... | 00002490: 42 4F 52 4F 4E 2C 22 C2 22 2C 33 00 AE 2C AE 06 |BORON,".",3..,..| 000024A0: 83 20 43 41 52 42 4F 4E 2C 22 C3 22 2C 34 00 C3 |. CARBON,".",4..| 000024B0: 2C B8 06 83 20 4E 49 54 52 4F 47 45 4E 2C 22 CE |,... NITROGEN,".| 000024C0: 22 2C 33 00 D6 2C C2 06 83 20 4F 58 59 47 45 4E |",3..,... OXYGEN| 000024D0: 2C 22 CF 22 2C 32 00 EB 2C CC 06 83 20 46 4C 55 |,".",2..,... FLU| 000024E0: 4F 52 49 4E 45 2C 22 C6 22 2C 31 00 FD 2C D6 06 |ORINE,".",1..,..| 000024F0: 83 20 4E 45 4F 4E 2C 22 CE 45 22 2C 30 00 11 2D |. NEON,".E",0..-| 00002500: E0 06 83 20 53 4F 44 49 55 4D 2C 22 CE 41 22 2C |... SODIUM,".A",| 00002510: 31 00 28 2D EA 06 83 20 4D 41 47 4E 45 53 49 55 |1.(-... MAGNESIU| 00002520: 4D 2C 22 CD 47 22 2C 32 00 3E 2D F4 06 83 20 41 |M,".G",2.>-... A| 00002530: 4C 55 4D 49 4E 55 4D 2C 22 C1 4C 22 2C 33 00 53 |LUMINUM,".L",3.S| 00002540: 2D FE 06 83 20 53 49 4C 49 43 4F 4E 2C 22 D3 49 |-... SILICON,".I| 00002550: 22 2C 34 00 6A 2D 08 07 83 20 50 48 4F 53 50 48 |",4.j-... PHOSPH| 00002560: 4F 52 55 53 2C 22 D0 22 2C 33 00 82 2D 12 07 83 |ORUS,".",3..-...| 00002570: 20 53 55 4C 50 48 55 52 2C 22 D3 22 2C 22 32 2C | SULPHUR,".","2,| 00002580: 34 22 00 98 2D 1C 07 83 20 43 48 4C 4F 52 49 4E |4"..-... CHLORIN| 00002590: 45 2C 22 C3 4C 22 2C 31 00 AA 2D 26 07 83 20 41 |E,".L",1..-&.. A| 000025A0: 52 47 4F 4E 2C 22 C1 22 2C 30 00 C0 2D 30 07 83 |RGON,".",0..-0..| 000025B0: 20 50 4F 54 41 53 53 49 55 4D 2C 22 CB 22 2C 31 | POTASSIUM,".",1| 000025C0: 00 D5 2D 3A 07 83 20 43 41 4C 43 49 55 4D 2C 22 |..-:.. CALCIUM,"| 000025D0: C3 41 22 2C 32 00 E3 2D 44 07 8D 38 33 35 3A 89 |.A",2..-D..835:.| 000025E0: 33 30 30 00 00 2E D0 07 99 A3 37 29 22 20 22 3B |300.......7)" ";| 000025F0: 3A 81 49 B2 31 A4 32 31 3A 99 22 2A 22 3B 3A 82 |:.I.1.21:."*";:.| 00002600: 00 1C 2E DA 07 81 41 B2 31 A4 34 3A 99 A3 38 29 |......A.1.4:..8)| 00002610: 22 2A 22 A3 33 30 29 22 2A 22 3A 82 00 40 2E E4 |"*".30)"*":..@..| 00002620: 07 99 A3 37 29 22 20 22 3B 3A 81 49 B2 31 A4 32 |...7)" ";:.I.1.2| 00002630: 33 3A 99 22 2A 22 3B 3A 82 3A 99 22 11 22 3A 99 |3:."*";:.:.".":.| 00002640: 00 71 2E EE 07 59 B2 59 AA 31 3A 99 22 13 11 11 |.q...Y.Y.1:."...| 00002650: 11 11 22 A3 31 32 AB C3 28 C4 28 52 29 29 AA 31 |..".12..(.(R)).1| 00002660: 29 52 22 52 49 47 48 54 20 4F 55 54 20 4F 46 22 |)R"RIGHT OUT OF"| 00002670: 4E 00 77 2E F8 07 8E 00 00 00 |N.w....... |
.......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 ** ......--------------------------------.. ....---MADE BY STEPHEN WOROSZCZUK---.:.. ..--- REVISED BY RICHARD DEBOER---.`.... --- MADE AND REVISED ON ---.F...:.. ....--------------------------------.... .:...... ** TO OUR BEST KNOWLEDGE THIS.S .... PROGRAM IS FREE FOR...... DUP LICATION IN CANADA....... IF YOU HAVE CONTARY.-.... INFORMATION, PLEASE.S. ... CONTACT COMMODORE CANADA AND.Y... . EVERY EFFORT WILL BE MADE TO...... WITHDRAW COPIES OF THIS...... PROG RAM......:.N.#.. +++ INPUT SECTION +++.. .(..UO,0:UR$."":UI$.""...*..UL.0.UL.80.. .-.." ..";:.UC,0...2..UI$:.UI$."".50.G. 7..UI$.G(13).C(UR$)..1..UC,1:." .";:.85. Z.<..UI$.G(20).105.N.>.. C(UR$)..UL.50.. .A..120:. CHECK FOR VALID CHARACTER...F. UR$.UR$.UI$...K..UI$;...P..50.Z.U.. +++ CHECK FOR HELP REQUEST +++...Z..UR$.UX$. 195:. EXIT TO HELP ROUTINE..._..UF.1..24 0...D.UF.0:.:..7.F.. ++ CHECK DELETE ++. H.I..C(UR$).1.50.`.N.UR$.H(UR$,C(UR$).1) .R.S..". ..";:.50...X.. ++ CHECK FOR VA LID CHARACTERS ++...}..C(US$).0.150.... US$.US$.UX$.L....US.1.C(US$)......UI$.J( US$,US,1).............UI$."":....... ** STANDARD INPUT **."....F(UI$).46...3.... UI$.G(32)...P. ..F(UI$).48.F(UI$).57.170 .V.....S....F(UI$).65.F(UI$).90.180.Y... .......F(UI$).193.F(UI$).218.UI$."":.... ...B(UT).UU%.UI$.G(F(UI$).128):..F.....S ...UI$."":....C.UF.1:. +++ HELP ROUTINE EXIT +++...E..250...H..245.).M..UQ.UB.(U 2%.256.U1%.U3%.2).E.R.UQ%(UQ.UB).B(UQ):. :.".".X.W.UZ.1:UV%.B(UT).A.X..300...Y.UZ .0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..B(50 003).0..53281,1:.".";:.53281,6:.53280,14 :.220.G....".";.....UT$.UL$:.UT,UV%:.UQ. UB.(U2%.256.U1%.U3%.3)......UQ,UQ%(UQ.UB ):.......U1,U1%.#....U2,U2%./....U4,U4%. =....U3,U3%.1.E....35.W...UD%.((U2%.256. U1%.U3%).UB).40:.H(UD$,UD%.1):.......H(U D$,24);" . HELP COM ING . ":......U1%.B(U1):U2%.B(U2):U3%.B (U3):U4%.B(U4).....UJ$.US$:UK$.UG$:UL$.U T$:UJ.UP:UK.UL.........,.. ** MENU **.#. -.:.R....".":.UT,UU%:.B(50003).0..53281, 9:.53280,8.X./.:.U.1..". MENU"...6.." --------------------------- -----------".N.;..".. 1. BEGIN C HEMISTRY QUIZ"...@..".. 2. STUDE NT INSTRUCTIONS".".E..".. 3. TEA CHER INSTRUCTIONS".>.O..".. 4. Q UIT..".M.T.." -------------------------- ------------"...Y..".. PRESS A NUM BER KEY (1-4) ";...^.UL.1:US$."1234":.35 :. INPUT ROUTINE.R._..C(UR$).1.300...`.U S$.""...C..E(UR$).1000,400,500,396...H.. 300.*.... ** RE-ENABLE STOP KEY AND END **.Y....B(50003)..1.B(50003)..160.B(5000 3)..0.399......UU.71:.B(50003).0..53281, 6:.53280,14......"..":.......875:....... STUDENT INST.G...UT$." CHEMISTRY QUIZ". .....".":.UT,UL%:.B(50003).0..53281,0:.5 3280,0.....UP.0:UG$."STUDENT INST":.850. &.G..1190:.850.U.L.." ..NOTE:...TO ADVAN CE FROM ONE QUESTION".~.V.." .TO THE NEX T PRESS THE SPACE BAR"......" .......IF AT ANY TIME YOU WISH TO RETURN".S...." . TO THE MENU PRESS H RETURN"......835.... ..UZ.1..UP%:.217............ ** TEACHER INSTRUCTIONS **.G....".":.UT,UL%:.B(5000 3).0..53281,2:.53280,10.H...UP.0:UG$."TE ACHER INST":.850......".. TO THE BE ST OF OUR KNOWLEDGE,."......" THIS PRO GRAM IS IN THE PUBLIC."......" DOMAIN. IF THIS IS NOT THE CASE."......" PLE ASE CONTACT:...".2...." COMMODORE B USINESS MACHINES.".U...." 3370 PHARMACY AVE..Y...." AGINCOURT, ONTARIO"......" CANADA M1W 2 K4"......" (416) 499-4292".Q... UP.1:. 835:. 850:......" ..PROGRAM N AME: CHEMISTRY QUIZ..)...." WRITTEN BY : STEPHEN WOROSZCZUK..M...." UPG RADED BY : ..X...." .THIS P ROGRAM WILL RUN ON ANY........" PET 64 COMPUTER......." COMMODOR E 64 COMPUTER.F.D..835.Z.N..UZ.1..UP%:.2 17...W.....X.. ** PROGRAM MODIFICATION I NST **...Y..".":.UT,UL%.7.].UP.0:UG$."PR OGRAM MOD":.850.@....835.T....UZ.1..UP%: .217.Z......... ** TO USE 8032 LOAD CBM 4032 **...F..".....BEFORE RUNNING THIS P ROGRAM ON AN 8032 .....P.." LOAD T HE 'CBM 4032' PROGRAM............."...Z. .UU.71.......!.... ** TO USE 8032 LOAD C BM4032 **.L...."....BEFORE RUNNING THIS PROGRAM ON AN 8032 ..LOAD CBM 4032 PROG RAM".X....1093:.... .. ** T I T L E P A G E **.L.".."....";:.UT,UU%:.B(50003). 0..53280,14:.53281,6...$..I.1.38:."..."; :....&..I.1.22:.".....";:....(..I.1.37:. ".....";:..*.*..I.1.22:.".....";:..O.,.. "........................... ..Q....".. ................. . . .....0.."........ ........... . ......2.."............... ..... ..X.4.."..............C O M M O D O R E.....6.."...............EDUCATIONA L.....8.."................SOFTWARE.5.:.. ** COMMODORE LOGO **.M.;..H(UD$,24);".. ........PRESS SPACE BAR OR WAIT.":I.0... <..A$:.A$.." ".I.I.1:.I.250.828...>.T1$. "":T2$."":T3$."":T4$."":I.0...@..300.X.C .. ** SPACE BAR PRESS **...H..UO,0:.H(UD $,24);".......PRESS SPACE BAR TO CONTINU E.".*.L..UI$:.UI$.." ".844.0.N...P.R.. * * PAGE DESIGN ROUTINE **.\.T.UP.UP.1...W .."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).. .\.." ---------------------------------- ----".D.`..UH..0.870...A..H(UD$,24);H(UP $,7);"HELP - PRESS H <RETURN>"...F.UH. 0:."..":..(.K.. ** PLEASE WAIT REMARK ** .^.P..H(UD$,24);" ONE MOMENT P LEASE... ".D.U........ ** SET UP VAR IABLES **.L...UX$."H":.UQ%(1000):UB.3276 8: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.M....B(50003) .0.UB.1024:U1.209:U2.210:U3.211:U4.214:U C.204:UU.2048......B(50003).0.UT.53272:U U%.21:UL%.23:UP%.2139:UM.1024:UO.198.... .UD$.".........................".....UP$ ." "./...UT$." CHEMISTRY QIUZ ":. PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***. K....E$(20),V$(20),S$(20):..E.... ** SET VARIABLES **.N....900.T...:.Z...:...... ** CHECK FOR 8032 **......".":." ":. SH IFTED SPACE.J....B(UB.40)..96..700...... ** MEMORY CHECK **...... .(0).2000.937. %...."....THIS MACHINE DOES NOT HAVE ENO UGH.".I...."MEMORY TO RUN THIS PROGRAM ! ".T....UU.71.Z.....T...."..":.B(50003).0 .962...... ** BASIC 2.0 OR 4.0 OR C- 64 SETUP **......1075,133:.1076,144:.107 7,234:.1079,4:.1080,133:.1081,145.. ...1 091,155:.1098,133:.1099,144:.1100,234:.1 103,133.9 ...1104,145:.1105,234:.1082,23 4.P ...B(50003)..160.955. ...1093,88:.1 094,228:.1097,85:.1102,228:.965.. ...B(5 0003)..1.990.C ...1093,49:.1094,230:.109 7,46:.1102,230:.965.. B..2099,141:.2100, 20:.2101,3:.2103,8:.2104,141:.2105,21.9! C..2106,3:.2115,145:.2117,52:.2118,234:. 2121,49:.2122,141.S!D..2123,20:.2124,3:. 2126,234:.2127,141:.2128,21:.2129,3..!E. .UU.48:. DISABLE STOP KEY..!J..800:. TIT LE..!T..300:. MENU..!...".THE PGM WILL N OT WORK ON THIS MACHINE!":..."...UZ.1..U P%:.UP%:UZ.0:. ** PROGRAM STARTS HERE ** .D"..."..";:.:.B(50003).0..53281,6:.5328 0,14.Q"...:.900:UT$." CHEMISTRY QUIZ":UP .0:UG$."".."...X.1.20:.E$(X),S$(X),V$(X) :..."L.. UT,UL%:R.0:A.0:N.0:Y.0.."V..".. .......".."`...5);"********************* *********":..5)"*".34)"*".##J...5) "* P ERIODIC TABLE PRACTICE *".[#T...5)"*". 34)"*":..5)"**************************** **"..#~..".".7);"BY STEPHEN WOROSZCZUK I NC."..#...J.1.800:.J..#...1340.N#...".. THE AIM OF THIS PROGRAM IS TO AID YOU.. #...". IN LEARNING THE PERIODIC TABLE. Y OU.%$...". WILL BE GIVEN AN ELEMENT NAME OR A.R$...". SYMBOL. YOU WILL HAVE TO SUPPLY THE.~$...". OTHER AS WELL AS THE VALENCE OF THE..$...". ELEMENT.":.835:.8 50..$...".. FOR EXAMPLE:".S$D...14)"THE ELEMENT IS SODIUM."..%N...14)".WHAT IS I TS SYMBOL? NA":..14)".THAT IS CORRECT.". K%X...14)".WHAT IS ITS VALENCE? 1":..14) ".THAT IS CORRECT.".^%...835:UP.2:.850.. %...".. **NOTE** TO TYPE UPPER CASE LE TTERS".Q%...". PRESS SHIFT AN D THEN THE . LETTER..&..." .. **NOTE** FOR MULTIPLE VALENCES ONLY ".0&..." . COMMAS ARE TO SEPAR ATE THE".\&...". NUMBERS. F OR EXAMPLE:"..&...". THE VALE NCE OF SULFUR IS". &...". 2,4 ..&(..835:..F&<.UH.1:.850:.".........".. 'A.." HOW MANY QUESTIONS DO YOU WANT? "; :US$."0123456789":UL.2:.35.!'F.A.E(UR$): .A.0.1340.9'... Q.1.A:UP.Q.1:.850.C' ..2 000.P'..X..(20..(1).1):Z..(2..(1).1):. Z .2 .1520.~'...H(UD$,8)..'..N.N.1:..8)".T HE ELEMENT IS: "E$(X):.G'....8)".WHAT IS ITS SYMBOL? ";..(..US$."ABCDEFGHIJKLMNO PQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ":U L.2:.35..(..A$.UR$.O(... A$.S$(X). ..8)" .THAT IS CORRECT.":R.R..5:.1490.V(H...8) ".NO, THE SYMBOL IS: ";:.S$(X)..(R...8)" .WHAT IS ITS VALENCE? ";:US$."01234,":UL .3:.35:A$.UR$..(...A$.V$(X)...8)".THAT I S CORRECT.":R.R..5:.1580..)....8)".NO, T HE VALENCE IS: ";:.V$(X):.1580.$)...H(UD $,8).K)..N.N.1:..8)".THE SYMBOL IS: ";S$ (X).M)....8)".WHAT IS THE ELEMENT? ";..) ..US$."ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL.10 :.35:A$.UR$.Z)... A$.E$(X) . ..8)".THAT IS CORRECT.":R.R..5:. 1550..*....8)".NO, THE ELEMENT IS: ";E$(X).>*....8)".WHAT IS ITS VALENCE ";:US$."01234,":UL.3:.35: A$.UR$.R*... A$.V$(X). ..8)".THAT IS COR RECT":R.R..5:.1580..*"...8)".NO, THE VAL ENCE IS: ";V$(X)..*,..835:.Q..*1..850:.2 000:.H(UD$,8)..*6.."... YOUR PERC ENTAGE WAS: ";:S..(R.100.N):.S;".%".7+@. .S.51..". YOU NEED TO LEARN THE PERIODIC TABLE!!":.1860.S+J..S..60..". YOU NEED TO STUDY THE PERIODIC TABLE!":.1860..+T. .S..80..". NOT BAD":.186 0.O+^..S..90..". VERY GOOD ":.1860..+H..S..99..". EXCE LLENT!!!":.1860.4,R..S.100..". E INSTEIN, MOVE OVER!!!":.1860.I,|.. HYDRO GEN,"H",1.],... HELIUM,"HE",0.R,... LITH IUM,"LI",1..,... BERYLLIUM,"BE",2..,... BORON,"B",3..,... CARBON,"C",4.C,... NIT ROGEN,"N",3.V,B.. OXYGEN,"O",2..,L.. FLU ORINE,"F",1..,V.. NEON,"NE",0..-... SODI UM,"NA",1.(-... MAGNESIUM,"MG",2.>-... A LUMINUM,"AL",3.S-... SILICON,"SI",4.J-.. . PHOSPHORUS,"P",3..-... SULPHUR,"S","2, 4"..-... CHLORINE,"CL",1..-&.. ARGON,"A" ,0..-0.. POTASSIUM,"K",1.U-:.. CALCIUM," CA",2..-D..835:.300...P...7)" ";:.I.1.21 :."*";:....Z..A.1.4:..8)"*".30)"*":..@.. ...7)" ";:.I.1.23:."*";:.:.".":..Q...Y.Y .1:.".....".12.C(D(R)).1)R"RIGHT OUT OF" N.W.......
> CLICK IMAGE PREVIEW FOR FULL MODAL