ACTIMIUM DECA.C3
FILE INFORMATION
FILENAME(S): ACTIMIUM DECA.C3
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 1 disk(s)
FILE HASH
0bebf11ee899c28c6cc55d35380615708f61fe080a905d6376c4b3b80128c8d8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0006ED | ACTIMIUM DECA.C3 | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | 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 23 23 |UTINE **......##|
000000D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000000E0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 00 13 |##############..|
000000F0: 09 0C 00 8F 20 57 52 49 54 54 45 4E 20 41 4E 44 |.... WRITTEN AND|
00000100: 20 52 45 56 49 53 45 44 20 42 59 20 53 54 45 50 | REVISED BY STEP|
00000110: 48 45 4E 00 33 09 0D 00 8F 20 20 46 45 4E 54 4F |HEN.3.... FENTO|
00000120: 4E 20 4F 4E 20 46 57 43 49 20 43 4F 4D 50 55 54 |N ON FWCI COMPUT|
00000130: 45 52 53 00 49 09 0E 00 8F 20 20 20 20 57 52 49 |ERS.I.... WRI|
00000140: 54 54 45 4E 20 31 39 38 31 00 4F 09 0F 00 3A 00 |TTEN 1981.O...:.|
00000150: 75 09 10 00 8F 23 23 23 23 23 23 23 23 23 23 23 |u....###########|
00000160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000170: 23 23 23 23 23 00 99 09 14 00 8F 20 2A 2A 20 54 |#####...... ** T|
00000180: 4F 20 4F 55 52 20 42 45 53 54 20 4B 4E 4F 57 4C |O OUR BEST KNOWL|
00000190: 45 44 47 45 20 54 48 49 53 00 B6 09 15 00 8F 20 |EDGE THIS...... |
000001A0: 20 20 20 50 52 4F 47 52 41 4D 20 49 53 20 46 52 | PROGRAM IS FR|
000001B0: 45 45 20 46 4F 52 00 D6 09 16 00 8F 20 20 20 20 |EE FOR...... |
000001C0: 44 55 50 4C 49 43 41 54 49 4F 4E 20 49 4E 20 43 |DUPLICATION IN C|
000001D0: 41 4E 41 44 41 2E 00 F3 09 17 00 8F 20 20 20 20 |ANADA....... |
000001E0: 49 46 20 59 4F 55 20 48 41 56 45 20 43 4F 4E 54 |IF YOU HAVE CONT|
000001F0: 41 52 59 00 10 0A 18 00 8F 20 20 20 20 49 4E 46 |ARY...... INF|
00000200: 4F 52 4D 41 54 49 4F 4E 2C 20 50 4C 45 41 53 45 |ORMATION, PLEASE|
00000210: 00 36 0A 19 00 8F 20 20 20 20 43 4F 4E 54 41 43 |.6.... CONTAC|
00000220: 54 20 43 4F 4D 4D 4F 44 4F 52 45 20 43 41 4E 41 |T COMMODORE CANA|
00000230: 44 41 20 41 4E 44 00 5C 0A 1A 00 8F 20 20 20 20 |DA AND.\.... |
00000240: 45 56 45 52 59 20 45 46 46 4F 52 54 20 57 49 4C |EVERY EFFORT WIL|
00000250: 4C 20 42 45 20 4D 41 44 45 20 54 4F 00 7D 0A 1B |L BE MADE TO.}..|
00000260: 00 8F 20 20 20 20 57 49 54 48 44 52 41 57 20 43 |.. WITHDRAW C|
00000270: 4F 50 49 45 53 20 4F 46 20 54 48 49 53 00 8F 0A |OPIES OF THIS...|
00000280: 1C 00 8F 20 20 20 20 50 52 4F 47 52 41 4D 2E 00 |... PROGRAM..|
00000290: 95 0A 1E 00 3A 00 B1 0A 23 00 8F 20 2B 2B 2B 20 |....:...#.. +++ |
000002A0: 49 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B |INPUT SECTION ++|
000002B0: 2B 00 C9 0A 28 00 97 55 4F 2C 30 3A 55 52 24 B2 |+...(..UO,0:UR$.|
000002C0: 22 22 3A 55 49 24 B2 22 22 00 D9 0A 2A 00 8B 55 |"":UI$.""...*..U|
000002D0: 4C B2 30 A7 55 4C B2 38 30 00 EC 0A 2D 00 99 22 |L.0.UL.80...-.."|
000002E0: 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 00 0B 32 | ..";:.UC,0...2|
000002F0: 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 |..UI$:.UI$."".50|
00000300: 00 2A 0B 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF |.*.7..UI$..(13).|
00000310: C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A |.(UR$)..1..UC,1:|
00000320: 99 22 20 9D 22 3B 3A 89 38 35 00 3D 0B 3C 00 8B |." .";:.85.=.<..|
00000330: 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 51 0B |UI$..(20).105.Q.|
00000340: 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 |>.. .(UR$)..UL.5|
00000350: 30 00 76 0B 41 00 8D 31 32 30 3A 8F 20 43 48 45 |0.v.A..120:. CHE|
00000360: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
00000370: 52 41 43 54 45 52 00 86 0B 46 00 55 52 24 B2 55 |RACTER...F.UR$.U|
00000380: 52 24 AA 55 49 24 00 90 0B 4B 00 99 55 49 24 3B |R$.UI$...K..UI$;|
00000390: 00 98 0B 50 00 89 35 30 00 BD 0B 55 00 8F 20 2B |...P..50...U.. +|
000003A0: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C |++ CHECK FOR HEL|
000003B0: 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 E5 0B |P REQUEST +++...|
000003C0: 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F |Z..UR$.UX$.195:.|
000003D0: 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F | EXIT TO HELP RO|
000003E0: 55 54 49 4E 45 00 F4 0B 5F 00 8B 55 46 B2 31 A7 |UTINE..._..UF.1.|
000003F0: 8D 32 34 30 00 01 0C 64 00 55 46 B2 30 3A 99 3A |.240...d.UF.0:.:|
00000400: 8E 00 1A 0C 66 00 8F 20 2B 2B 20 43 48 45 43 4B |....f.. ++ CHECK|
00000410: 20 44 45 4C 45 54 45 20 2B 2B 00 2B 0C 69 00 8B | DELETE ++.+.i..|
00000420: C3 28 55 52 24 29 B3 31 A7 35 30 00 43 0C 6E 00 |.(UR$).1.50.C.n.|
00000430: 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 |UR$..(UR$,.(UR$)|
00000440: AB 31 29 00 55 0C 73 00 99 22 9D 20 20 9D 9D 22 |.1).U.s..". .."|
00000450: 3B 3A 89 35 30 00 7C 0C 78 00 8F 20 2B 2B 20 43 |;:.50.|.x.. ++ C|
00000460: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 |HECK FOR VALID C|
00000470: 48 41 52 41 43 54 45 52 53 20 2B 2B 00 8E 0C 7D |HARACTERS ++...}|
00000480: 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 9E |...(US$).0.150..|
00000490: 0C 7F 00 55 53 24 B2 55 53 24 AA 55 58 24 00 AF |...US$.US$.UX$..|
000004A0: 0C 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).|
000004B0: C6 0C 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U|
000004C0: 53 2C 31 29 A7 8E 00 CC 0C 8C 00 82 00 D9 0C 91 |S,1)............|
000004D0: 00 55 49 24 B2 22 22 3A 8E 00 F4 0C 96 00 8F 20 |.UI$."":....... |
000004E0: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU|
000004F0: 54 20 2A 2A 00 05 0D 98 00 8B C6 28 55 49 24 29 |T **.......(UI$)|
00000500: B2 34 36 A7 8E 00 16 0D 9B 00 8B 55 49 24 B2 C7 |.46........UI$..|
00000510: 28 33 32 29 A7 8E 00 33 0D A0 00 8B C6 28 55 49 |(32)...3.....(UI|
00000520: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.|
00000530: 31 37 30 00 39 0D A5 00 8E 00 56 0D AA 00 8B C6 |170.9.....V.....|
00000540: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).|
00000550: 39 30 A7 31 38 30 00 5C 0D AF 00 8E 00 80 0D B4 |90.180.\........|
00000560: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U|
00000570: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.|
00000580: 00 A3 0D B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.|
00000590: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128|
000005A0: 29 3A 8E 00 A9 0D BB 00 8E 00 B6 0D BE 00 55 49 |):............UI|
000005B0: 24 B2 22 22 3A 8E 00 DB 0D C3 00 55 46 B2 31 3A |$."":......UF.1:|
000005C0: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI|
000005D0: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 E4 0D C5 00 |NE EXIT +++.....|
000005E0: 8D 32 35 30 00 ED 0D C8 00 8D 32 34 35 00 0C 0E |.250......245...|
000005F0: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25|
00000600: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 28 0E D2 |6.U1%.U3%.2).(..|
00000610: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ|
00000620: 29 3A 82 3A 99 22 93 22 00 3B 0E D7 00 55 5A B2 |):.:.".".;...UZ.|
00000630: 31 3A 55 56 25 B2 C2 28 55 54 29 00 44 0E D8 00 |1:UV%..(UT).D...|
00000640: 89 33 30 30 00 69 0E D9 00 55 5A B2 30 3A 55 53 |.300.i...UZ.0:US|
00000650: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
00000660: B2 55 4A 3A 55 4C B2 55 4B 00 A0 0E DA 00 8B C2 |.UJ:UL.UK.......|
00000670: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000680: 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C |,1:.".";:.53281,|
00000690: 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 |6:.53280,14:.220|
000006A0: 00 AA 0E DB 00 99 22 93 22 3B 00 D9 0E DC 00 55 |......".";.....U|
000006B0: 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 |T$.UL$:.UT,UV%:.|
000006C0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
000006D0: 31 25 AA 55 33 25 AB 33 29 00 EE 0E E1 00 97 55 |1%.U3%.3)......U|
000006E0: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 FA |Q,UQ%(UQ.UB):...|
000006F0: 0E E6 00 97 55 31 2C 55 31 25 00 06 0F E8 00 97 |....U1,U1%......|
00000700: 55 32 2C 55 32 25 00 12 0F E9 00 97 55 34 2C 55 |U2,U2%......U4,U|
00000710: 34 25 00 20 0F EA 00 97 55 33 2C 55 33 25 AB 31 |4%. ....U3,U3%.1|
00000720: 00 28 0F EB 00 89 33 35 00 5A 0F F0 00 55 44 25 |.(....35.Z...UD%|
00000730: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000740: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000750: 24 2C 55 44 25 AA 31 29 3A 8E 00 95 0F F5 00 99 |$,UD%.1):.......|
00000760: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
00000790: 20 20 22 3A 8E 00 C1 0F FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000007A0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
000007B0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
000007C0: 29 00 E9 0F FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK|
000007D0: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
000007E0: B2 55 50 3A 55 4B B2 55 4C 00 EF 0F FF 00 8E 00 |.UP:UK.UL.......|
000007F0: 00 10 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A |..,.. ** MENU **|
00000800: 00 06 10 2D 01 3A 00 35 10 2E 01 99 22 93 22 3A |...-.:.5....".":|
00000810: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000820: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000830: 32 38 30 2C 38 00 3B 10 2F 01 3A 00 58 10 31 01 |280,8.;./.:.X.1.|
00000840: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000850: 20 20 20 4D 45 4E 55 22 00 87 10 36 01 99 22 20 | MENU"...6.." |
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000880: 2D 2D 2D 2D 2D 2D 22 00 B1 10 3B 01 99 22 11 11 |------"...;.."..|
00000890: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000008A0: 4E 20 41 43 54 49 4E 49 55 4D 20 44 45 43 41 59 |N ACTINIUM DECAY|
000008B0: 22 00 DB 10 40 01 99 22 11 11 20 20 20 20 20 20 |"...@..".. |
000008C0: 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E | 2. STUDENT IN|
000008D0: 53 54 52 55 43 54 49 4F 4E 53 22 00 05 11 45 01 |STRUCTIONS"...E.|
000008E0: 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 |.".. 3. |
000008F0: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT|
00000900: 49 4F 4E 53 22 00 32 11 4A 01 99 22 11 11 20 20 |IONS".2.J..".. |
00000910: 20 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 | 4. MODIFI|
00000920: 43 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 |CATION OF PROGRA|
00000930: 4D 22 00 4E 11 4F 01 99 22 11 11 20 20 20 20 20 |M".N.O..".. |
00000940: 20 20 35 2E 20 20 20 51 55 49 54 11 11 22 00 7D | 5. QUIT..".}|
00000950: 11 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------|
00000960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A8 11 |------------"...|
00000980: 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 |Y..".. PRE|
00000990: 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 |SS A NUMBER KEY |
000009A0: 28 31 2D 35 29 20 22 3B 00 D1 11 5E 01 55 4C B2 |(1-5) ";...^.UL.|
000009B0: 31 3A 55 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 |1:US$."12345":.3|
000009C0: 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |5:. INPUT ROUTIN|
000009D0: 45 00 F2 11 63 01 91 C5 28 55 52 24 29 8D 31 30 |E...c...(UR$).10|
000009E0: 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 |00,400,500,600,3|
000009F0: 39 36 00 FB 11 68 01 89 33 30 30 00 22 12 8B 01 |96...h..300."...|
00000A00: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
00000A10: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000A20: 2A 2A 00 51 12 8C 01 8B C2 28 35 30 30 30 33 29 |**.Q.....(50003)|
00000A30: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000A40: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000A50: 39 00 7B 12 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9.{....UU.71:..(|
00000A60: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000A70: 36 3A 97 35 33 32 38 30 2C 31 34 00 87 12 8E 01 |6:.53280,14.....|
00000A80: 99 22 9A 93 22 3A 80 00 92 12 8F 01 8D 38 37 35 |."..":.......875|
00000A90: 3A 8E 00 B3 12 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
00000AA0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000AB0: 20 2A 2A 00 E2 12 95 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
00000AC0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
00000AD0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
00000AE0: 2C 30 00 04 13 9A 01 55 50 B2 30 3A 55 47 24 B2 |,0.....UP.0:UG$.|
00000AF0: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 2E 22 3A |".TUDENT .NST.":|
00000B00: 8D 38 35 30 00 0E 13 9F 01 8D 31 34 30 30 00 17 |.850......1400..|
00000B10: 13 A1 01 8D 38 33 35 00 20 13 A4 01 8D 38 35 30 |....835. ....850|
00000B20: 00 2A 13 AE 01 8D 31 34 37 30 00 33 13 B0 01 8D |.*....1470.3....|
00000B30: 38 33 35 00 3C 13 B3 01 8D 38 35 30 00 46 13 B8 |835.<....850.F..|
00000B40: 01 8D 31 35 36 30 00 4F 13 BD 01 8D 38 33 35 00 |..1560.O....835.|
00000B50: 58 13 C7 01 8D 38 35 30 00 88 13 CC 01 99 22 11 |X....850......".|
00000B60: 11 20 CE 4F 54 45 3A 11 11 11 9D D4 4F 20 41 44 |. .OTE:.....O AD|
00000B70: 56 41 4E 43 45 20 46 52 4F 4D 20 4F 4E 45 20 51 |VANCE FROM ONE Q|
00000B80: 55 45 53 54 49 4F 4E 22 00 B1 13 D6 01 99 22 11 |UESTION"......".|
00000B90: 20 54 4F 20 54 48 45 20 4E 45 58 54 20 50 52 45 | TO THE NEXT PRE|
00000BA0: 53 53 20 54 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 |SS THE ..... BAR|
00000BB0: 22 00 E1 13 DB 01 99 22 11 11 20 20 20 20 20 C9 |"......".. .|
00000BC0: 46 20 41 54 20 41 4E 59 20 54 49 4D 45 20 59 4F |F AT ANY TIME YO|
00000BD0: 55 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 4E |U WISH TO RETURN|
00000BE0: 22 00 05 14 E0 01 99 22 11 20 54 4F 20 54 48 45 |"......". TO THE|
00000BF0: 20 CD C5 CE D5 20 50 52 45 53 53 20 48 20 D2 C5 | .... PRESS H ..|
00000C00: D4 D5 D2 CE 22 00 0E 14 E5 01 8D 38 33 35 00 22 |...."......835."|
00000C10: 14 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000C20: 31 37 00 28 14 F3 01 8E 00 49 14 F4 01 8F 20 2A |17.(.....I.... *|
00000C30: 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 |* TEACHER INSTRU|
00000C40: 43 54 49 4F 4E 53 20 2A 2A 00 79 14 F5 01 99 22 |CTIONS **.y...."|
00000C50: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000C60: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00000C70: 97 35 33 32 38 30 2C 31 30 00 9B 14 F6 01 55 50 |.53280,10.....UP|
00000C80: B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 |.0:UG$.".EACHER |
00000C90: C9 4E 53 54 2E 22 3A 8D 38 35 30 00 C9 14 F7 01 |.NST.":.850.....|
00000CA0: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
00000CB0: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000CC0: 57 4C 45 44 47 45 2C 11 22 00 F2 14 F8 01 99 22 |WLEDGE,."......"|
00000CD0: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000CE0: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000CF0: 11 22 00 1E 15 F9 01 99 22 20 20 20 44 4F 4D 41 |."......" DOMA|
00000D00: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000D10: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 3B |NOT THE CASE.".;|
00000D20: 15 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000D30: 4F 4E 54 41 43 54 3A 11 11 11 22 00 65 15 FB 01 |ONTACT:...".e...|
00000D40: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000D50: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000D60: 4E 45 53 11 22 00 88 15 FC 01 99 22 20 20 20 20 |NES."......" |
00000D70: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000D80: 41 43 59 20 C1 56 45 2E 00 AC 15 FD 01 99 22 20 |ACY .VE......." |
00000D90: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000DA0: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 CE 15 FE |RT, .NTARIO"....|
00000DB0: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000DC0: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 EE |ADA .1. 2.4"..|
00000DD0: 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000DE0: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 04 |416) 499-4292"..|
00000DF0: 16 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 |...UP.1:. 835:. |
00000E00: 38 35 30 3A 00 2F 16 01 02 99 22 20 20 20 20 20 |850:./...." |
00000E10: 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 |...ROGRAM .AME: |
00000E20: C1 43 54 49 4E 49 55 4D 20 C4 45 43 41 59 11 00 |.CTINIUM .ECAY..|
00000E30: 59 16 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 |Y...." .RITT|
00000E40: 45 4E 20 C2 59 20 20 3A 20 D3 54 45 50 48 45 4E |EN .Y : .TEPHEN|
00000E50: 20 C6 45 4E 54 4F 4E 11 22 00 83 16 03 02 99 22 | .ENTON."......"|
00000E60: 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 | .PGRADED .Y|
00000E70: 20 3A 20 D3 54 45 50 48 45 4E 20 C6 45 4E 54 4F | : .TEPHEN .ENTO|
00000E80: 4E 11 22 00 AE 16 04 02 99 22 20 20 20 20 20 11 |N."......" .|
00000E90: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |.HIS PROGRAM WIL|
00000EA0: 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 CE |L RUN ON ANY....|
00000EB0: 16 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 |...." ..|
00000EC0: D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 F3 |. 64 ...........|
00000ED0: 16 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF |...." ..|
00000EE0: CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 |....... 64 .....|
00000EF0: D4 C5 D2 00 FC 16 09 02 8D 38 33 35 00 21 17 0A |.........835.!..|
00000F00: 02 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F20: 2D 00 41 17 0C 02 8F 22 20 20 20 20 20 D5 50 47 |-.A...." .PG|
00000F30: 52 41 44 45 44 20 46 4F 52 20 C3 36 34 20 42 59 |RADED FOR .64 BY|
00000F40: 3A 00 5C 17 0E 02 8F 22 20 20 20 20 20 20 20 CC |:.\...." .|
00000F50: 59 4E 44 41 20 C2 4F 4E 41 4E 4E 4F 00 81 17 10 |YNDA .ONANNO....|
00000F60: 02 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00000F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F80: 2D 00 95 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 |-...N..UZ.1..UP%|
00000F90: 3A 89 32 31 37 00 9B 17 57 02 8E 00 C1 17 58 02 |:.217...W.....X.|
00000FA0: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 |. ** PROGRAM MOD|
00000FB0: 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A |IFICATION INST *|
00000FC0: 2A 00 D2 17 59 02 99 22 93 22 3A 97 55 54 2C 55 |*...Y..".":.UT,U|
00000FD0: 4C 25 00 E0 17 5A 02 97 35 39 34 36 38 2C 31 34 |L%...Z..59468,14|
00000FE0: 00 01 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |...].UP.0:UG$.".|
00000FF0: 52 4F 47 52 41 4D 20 CD 4F 44 2E 22 3A 8D 38 35 |ROGRAM .OD.":.85|
00001000: 30 00 30 18 62 02 99 22 11 11 20 D4 48 49 53 20 |0.0.b..".. .HIS |
00001010: 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 45 20 4D |PROGRAM CAN BE M|
00001020: 4F 44 49 46 49 45 44 20 54 4F 20 57 4F 52 4B 22 |ODIFIED TO WORK"|
00001030: 00 5D 18 67 02 99 22 11 20 57 49 54 48 20 4F 54 |.].g..". WITH OT|
00001040: 48 45 52 20 44 45 43 41 59 20 53 45 52 49 45 53 |HER DECAY SERIES|
00001050: 20 42 59 20 43 48 41 4E 47 49 4E 47 22 00 86 18 | BY CHANGING"...|
00001060: 6C 02 99 22 11 20 54 48 45 20 44 41 54 41 20 49 |l..". THE DATA I|
00001070: 4E 20 4C 49 4E 45 53 20 32 35 33 30 20 54 4F 20 |N LINES 2530 TO |
00001080: 32 35 35 30 2E 22 00 B5 18 71 02 99 22 11 11 20 |2550."...q..".. |
00001090: D4 48 45 20 54 49 54 4C 45 53 20 41 4E 44 20 54 |.HE TITLES AND T|
000010A0: 48 45 20 47 52 41 50 48 20 57 4F 55 4C 44 20 41 |HE GRAPH WOULD A|
000010B0: 4C 53 4F 20 22 00 D1 18 76 02 99 22 11 20 48 41 |LSO "...v..". HA|
000010C0: 56 45 20 54 4F 20 42 45 20 43 48 41 4E 47 45 44 |VE TO BE CHANGED|
000010D0: 2E 00 FE 18 80 02 99 22 11 20 D4 48 45 20 47 52 |.......". .HE GR|
000010E0: 41 50 48 20 49 53 20 4F 4E 20 4C 49 4E 45 53 20 |APH IS ON LINES |
000010F0: 32 30 30 30 20 54 4F 20 32 34 37 30 2E 22 00 07 |2000 TO 2470."..|
00001100: 19 94 02 8D 38 33 35 00 1B 19 B2 02 8B 55 5A B2 |....835......UZ.|
00001110: 31 A7 9E 55 50 25 3A 89 32 31 37 00 21 19 BB 02 |1..UP%:.217.!...|
00001120: 8E 00 46 19 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |..F.... ** TO US|
00001130: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
00001140: 30 33 32 20 2A 2A 00 7C 19 C6 02 99 22 93 11 11 |032 **.|...."...|
00001150: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001160: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001170: 20 41 4E 20 38 30 33 32 20 20 11 11 00 B2 19 D0 | AN 8032 ......|
00001180: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001190: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
000011A0: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
000011B0: 11 22 00 BD 19 DA 02 9E 55 55 AA 37 31 00 C3 19 |."......UU.71...|
000011C0: E4 02 80 00 E8 19 1D 03 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
000011D0: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
000011E0: 4D 34 30 33 32 20 2A 2A 00 33 1A 1E 03 99 22 93 |M4032 **.3....".|
000011F0: 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00001200: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001210: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 |N AN 8032 ..LOA|
00001220: 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 |D CBM 4032 PROGR|
00001230: 41 4D 22 00 3F 1A 1F 03 9E 31 30 39 33 3A 80 00 |AM".?....1093:..|
00001240: 5F 1A 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |_. .. ** T I T L|
00001250: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
00001260: 93 1A 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT|
00001270: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00001280: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001290: 31 2C 36 00 A9 1A 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:|
000012A0: 99 22 12 A6 92 22 3B 3A 82 00 C1 1A 26 03 81 49 |."...";:....&..I|
000012B0: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
000012C0: 82 00 D9 1A 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."|
000012D0: 9D 9D 12 A6 92 22 3B 3A 82 00 F1 1A 2A 03 81 49 |.....";:....*..I|
000012E0: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
000012F0: 82 00 16 1B 2C 03 99 22 13 11 11 11 11 11 11 1D |....,.."........|
00001300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001310: 1D 12 A9 20 20 92 00 38 1B 2E 03 99 22 1D 1D 1D |... ..8...."...|
00001320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001330: 20 92 20 20 12 20 92 A9 00 59 1B 30 03 99 22 1D | . . ...Y.0..".|
00001340: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001350: 1D 12 20 92 20 20 12 A3 DF 00 77 1B 32 03 99 22 |.. . ....w.2.."|
00001360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001370: 1D 1D DF 12 20 20 92 00 9F 1B 34 03 99 22 11 11 |.... ....4.."..|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O |
00001390: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...|
000013A0: C2 1B 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........|
000013B0: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
000013C0: 11 11 00 E1 1B 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....8..".......|
000013D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR|
000013E0: 45 00 FC 1B 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E...:.. ** COMMO|
000013F0: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 34 1C 3B |DORE LOGO **.4.;|
00001400: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
00001410: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001420: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."|
00001430: 3A 49 B2 30 00 56 1C 3C 03 A1 41 24 3A 8B 41 24 |:I.0.V.<..A$:.A$|
00001440: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2|
00001450: 35 30 A7 38 32 38 00 7A 1C 3E 03 54 31 24 B2 22 |50.828.z.>.T1$."|
00001460: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00001470: 54 34 24 B2 22 22 3A 49 B2 30 00 83 1C 40 03 89 |T4$."":I.0...@..|
00001480: 33 30 30 00 9F 1C 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA|
00001490: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
000014A0: DA 1C 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$|
000014B0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE|
000014C0: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
000014D0: 43 4F 4E 54 49 4E 55 45 92 22 00 F1 1C 4C 03 A1 |CONTINUE."...L..|
000014E0: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84|
000014F0: 34 00 F7 1C 4E 03 8E 00 17 1D 52 03 8F 20 2A 2A |4...N.....R.. **|
00001500: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU|
00001510: 54 49 4E 45 20 2A 2A 00 23 1D 54 03 55 50 B2 55 |TINE **.#.T.UP.U|
00001520: 50 AA 31 00 4D 1D 57 03 99 22 93 22 C8 28 55 54 |P.1.M.W..".".(UT|
00001530: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.|
00001540: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 7C 1D |UG$..(UP),18).|.|
00001550: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------|
00001560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 8B 1D 60 |-----------"...`|
00001580: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 BF 1D 61 03 |..UH..0.870...a.|
00001590: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$|
000015A0: 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 |,7);"HELP - PRES|
000015B0: 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |S H <RETURN>".|
000015C0: D0 1D 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E |..f.UH.0:."..":.|
000015D0: 00 EF 1D 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 |...k.. ** PLEASE|
000015E0: 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 | WAIT REMARK **.|
000015F0: 25 1E 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |%.p...(UD$,24);"|
00001600: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00001610: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
00001620: 20 20 20 20 22 00 2B 1E 75 03 8E 00 48 1E 84 03 | ".+.u...H...|
00001630: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 |. ** SET UP VARI|
00001640: 41 42 4C 45 53 20 2A 2A 00 93 1E 85 03 55 58 24 |ABLES **.....UX$|
00001650: B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A |."H":.UQ%(1000):|
00001660: 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A |UB.32768:U1.196:|
00001670: 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 |U2.197:U3.198:U4|
00001680: B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 |.216:UC.167:UU.1|
00001690: 30 32 34 00 D1 1E 86 03 55 54 B2 35 39 34 36 38 |024.....UT.59468|
000016A0: 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 |:UU%.12:UL%.14:U|
000016B0: 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 |P%.1146:UM.32768|
000016C0: 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C |:UO.158:. 50003,|
000016D0: 30 00 14 1F 87 03 8B C2 28 35 30 30 30 33 29 B2 |0.......(50003).|
000016E0: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
000016F0: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001700: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001710: 32 30 34 38 00 53 1F 88 03 8B C2 28 35 30 30 30 |2048.S.....(5000|
00001720: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
00001730: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
00001740: 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 |2139:UM.1024:UO.|
00001750: 31 39 38 00 77 1F 89 03 55 44 24 B2 22 13 11 11 |198.w...UD$."...|
00001760: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001770: 11 11 11 11 11 11 22 00 A9 1F 8A 03 55 50 24 B2 |......".....UP$.|
00001780: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017A0: 20 20 20 20 20 20 20 20 22 00 C3 1F 8B 03 55 54 | ".....UT|
000017B0: 24 B2 22 20 C1 C3 D4 C9 CE C9 D5 CD A0 C4 C5 C3 |$." ............|
000017C0: C1 D9 22 00 C9 1F 8C 03 8E 00 E3 1F 8E 03 8F 20 |.."............ |
000017D0: 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 |** SET VARIABLES|
000017E0: 20 2A 2A 00 EC 1F 93 03 8D 39 30 30 00 F2 1F 94 | **......900....|
000017F0: 03 3A 00 F8 1F 95 03 3A 00 13 20 98 03 8F 20 2A |.:.....:.. ... *|
00001800: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
00001810: 20 2A 2A 00 31 20 9D 03 99 22 93 22 3A 99 22 A0 | **.1 ...".":.".|
00001820: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
00001830: 45 00 48 20 A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.H ....(UB.40).|
00001840: B1 39 36 A7 8D 37 30 30 00 61 20 A3 03 8F 20 2A |.96..700.a ... *|
00001850: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
00001860: 2A 00 75 20 A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*.u ... .(0).200|
00001870: 30 A7 39 33 37 00 A3 20 A5 03 99 22 93 11 11 05 |0.937.. ..."....|
00001880: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001890: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
000018A0: 48 11 22 00 C7 20 A6 03 99 22 4D 45 4D 4F 52 59 |H.".. ..."MEMORY|
000018B0: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
000018C0: 47 52 41 4D 20 21 22 00 D2 20 A7 03 9E 55 55 AA |GRAM !".. ...UU.|
000018D0: 37 31 00 D8 20 A8 03 80 00 F2 20 A9 03 99 22 93 |71.. ..... ...".|
000018E0: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
000018F0: 36 32 00 21 21 AC 03 8F 20 2A 2A 20 42 41 53 49 |62.!!... ** BASI|
00001900: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
00001910: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
00001920: 2A 00 5F 21 AD 03 97 31 30 37 35 2C 31 33 33 3A |*._!...1075,133:|
00001930: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
00001940: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
00001950: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001960: 95 21 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |.!...1091,155:.1|
00001970: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001980: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001990: 33 2C 31 33 33 00 B7 21 AF 03 97 31 31 30 34 2C |3,133..!...1104,|
000019A0: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
000019B0: 30 38 32 2C 32 33 34 00 CE 21 B1 03 8B C2 28 35 |082,234..!....(5|
000019C0: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 FD |0003)..160.955..|
000019D0: 21 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |!...1093,88:.109|
000019E0: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
000019F0: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 12 22 |1102,228:.965.."|
00001A00: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
00001A10: 39 30 00 41 22 C0 03 97 31 30 39 33 2C 34 39 3A |90.A"...1093,49:|
00001A20: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
00001A30: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
00001A40: 35 00 7B 22 C2 03 97 32 30 39 39 2C 31 34 31 3A |5.{"...2099,141:|
00001A50: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001A60: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001A70: 34 31 3A 97 32 31 30 35 2C 32 31 00 B7 22 C3 03 |41:.2105,21.."..|
00001A80: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001A90: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001AA0: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001AB0: 31 32 32 2C 31 34 31 00 F1 22 C4 03 97 32 31 32 |122,141.."...212|
00001AC0: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001AD0: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001AE0: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001AF0: 33 00 0F 23 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3..#...UU.48:. D|
00001B00: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001B10: 20 23 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 | #...800:. TITLE|
00001B20: 00 30 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |.0#...300:. MENU|
00001B30: 00 61 23 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |.a#...".THE PGM |
00001B40: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
00001B50: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001B60: 80 00 96 23 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |...#...UZ.1..UP%|
00001B70: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001B80: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001B90: 45 52 45 20 2A 2A 00 C2 23 E9 03 99 22 93 05 22 |ERE **..#...".."|
00001BA0: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001BB0: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001BC0: 31 34 00 E6 23 4C 04 8F 2D 2D 2D 2D 2D 2D 2D 2D |14..#L..--------|
00001BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BE0: 2D 2D 2D 2D 2D 2D 00 09 24 56 04 8F 20 54 48 45 |------..$V.. THE|
00001BF0: 20 41 43 54 49 4E 49 55 4D 20 53 45 52 49 45 53 | ACTINIUM SERIES|
00001C00: 20 4F 46 20 44 45 43 41 59 00 0F 24 60 04 8F 00 | OF DECAY..$`...|
00001C10: 28 24 6A 04 8F 20 20 42 59 20 53 54 45 50 48 45 |($j.. BY STEPHE|
00001C20: 4E 20 46 45 4E 54 4F 4E 00 4C 24 74 04 8F 2D 2D |N FENTON.L$t..--|
00001C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 58 24 64 |------------.X$d|
00001C50: 05 97 55 54 2C 55 4C 25 00 62 24 6E 05 89 31 36 |..UT,UL%.b$n..16|
00001C60: 33 30 00 93 24 78 05 99 22 11 11 20 20 20 20 D4 |30..$x..".. .|
00001C70: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00001C80: 20 53 48 4F 57 20 59 4F 55 20 54 48 45 20 45 4C | SHOW YOU THE EL|
00001C90: 45 2D 22 00 C1 24 82 05 99 22 11 20 4D 45 4E 54 |E-"..$...". MENT|
00001CA0: 53 20 49 4E 20 54 48 45 20 C1 C3 D4 C9 CE C9 D5 |S IN THE .......|
00001CB0: CD 20 44 45 43 41 59 20 53 45 52 49 45 53 20 26 |. DECAY SERIES &|
00001CC0: 22 00 EC 24 8C 05 99 22 11 20 54 48 45 20 44 45 |"..$...". THE DE|
00001CD0: 43 41 59 20 4D 4F 44 45 2E 20 20 D9 4F 55 20 57 |CAY MODE. .OU W|
00001CE0: 49 4C 4C 20 48 41 56 45 20 54 4F 22 00 17 25 96 |ILL HAVE TO"..%.|
00001CF0: 05 99 22 11 20 46 49 47 55 52 45 20 4F 55 54 20 |..". FIGURE OUT |
00001D00: 54 48 45 20 4E 45 58 54 20 45 4C 45 4D 45 4E 54 |THE NEXT ELEMENT|
00001D10: 2E 20 D4 48 49 53 22 00 45 25 A0 05 99 22 11 20 |. .HIS".E%...". |
00001D20: 53 45 52 49 45 53 20 53 54 41 52 54 53 20 41 54 |SERIES STARTS AT|
00001D30: 20 55 52 41 4E 49 55 4D 20 26 20 45 4E 44 53 20 | URANIUM & ENDS |
00001D40: 49 4E 20 41 22 00 63 25 AA 05 99 22 11 20 53 54 |IN A".c%...". ST|
00001D50: 41 42 4C 45 20 46 4F 52 4D 20 4F 46 20 4C 45 41 |ABLE FORM OF LEA|
00001D60: 44 2E 22 00 69 25 B4 05 8E 00 92 25 BE 05 99 22 |D.".i%.....%..."|
00001D70: 11 11 20 D4 48 45 20 54 48 52 45 45 20 54 59 50 |.. .HE THREE TYP|
00001D80: 45 53 20 4F 46 20 44 45 43 41 59 20 41 52 45 3A |ES OF DECAY ARE:|
00001D90: 11 22 00 AE 25 C8 05 99 22 20 20 20 20 20 20 2D |."..%..." -|
00001DA0: 50 52 4F 47 52 41 4D 20 53 59 4D 42 4F 4C 00 C6 |PROGRAM SYMBOL..|
00001DB0: 25 CA 05 99 22 20 20 20 20 20 20 2D 44 45 43 41 |%..." -DECA|
00001DC0: 59 20 54 59 50 45 00 DD 25 CC 05 99 22 20 20 20 |Y TYPE..%..." |
00001DD0: 20 20 20 2D 50 41 52 54 49 43 4C 45 22 00 0B 26 | -PARTICLE"..&|
00001DE0: D2 05 99 22 11 20 20 31 2E 20 20 20 41 20 20 20 |...". 1. A |
00001DF0: 20 20 41 4C 50 48 41 20 20 20 20 20 20 20 20 C8 | ALPHA .|
00001E00: 45 91 9D 9D 9D 34 11 11 9D 32 22 00 3A 26 DC 05 |E....4...2".:&..|
00001E10: 99 22 11 11 20 20 32 2E 20 20 20 42 20 20 20 20 |.".. 2. B |
00001E20: 20 42 45 54 41 20 20 20 20 20 20 20 20 20 45 91 | BETA E.|
00001E30: 9D 9D 30 11 11 9D 9D 2D 31 22 00 63 26 E6 05 99 |..0....-1".c&...|
00001E40: 22 11 11 20 20 33 2E 20 20 20 47 20 20 20 20 20 |".. 3. G |
00001E50: 47 41 4D 4D 41 20 20 20 20 20 20 20 2D 22 45 41 |GAMMA -"EA|
00001E60: 44 59 2E 00 91 26 F0 05 99 22 11 20 28 C7 41 4D |DY...&...". (.AM|
00001E70: 4D 41 20 49 53 20 4A 55 53 54 20 45 4E 45 52 47 |MA IS JUST ENERG|
00001E80: 59 20 26 20 44 4F 45 53 4E 27 54 20 41 4C 54 45 |Y & DOESN'T ALTE|
00001E90: 52 00 A5 26 FA 05 99 22 20 54 48 45 20 45 4C 45 |R..&..." THE ELE|
00001EA0: 4D 45 4E 54 29 00 AB 26 04 06 8F 00 B1 26 0E 06 |MENT)..&.....&..|
00001EB0: 8E 00 E0 26 18 06 99 22 11 11 20 20 20 D9 4F 55 |...&...".. .OU|
00001EC0: 20 57 49 4C 4C 20 4E 45 45 44 20 41 20 D0 C5 D2 | WILL NEED A ...|
00001ED0: C9 CF C4 C9 C3 20 54 41 42 4C 45 20 46 4F 52 22 |..... TABLE FOR"|
00001EE0: 00 0F 27 22 06 99 22 11 20 54 48 49 53 20 57 4F |..'"..". THIS WO|
00001EF0: 52 4B 2E 20 C9 20 57 49 4C 4C 20 53 48 4F 57 20 |RK. . WILL SHOW |
00001F00: 41 4E 20 45 4C 45 4D 45 4E 54 20 41 4E 44 22 00 |AN ELEMENT AND".|
00001F10: 33 27 2C 06 99 22 11 20 41 20 50 41 52 54 49 43 |3',..". A PARTIC|
00001F20: 4C 45 20 57 49 4C 4C 20 53 48 4F 4F 54 20 4F 55 |LE WILL SHOOT OU|
00001F30: 54 2E 22 00 62 27 36 06 99 22 11 11 20 20 C9 20 |T.".b'6..".. . |
00001F40: 57 49 4C 4C 20 54 48 45 4E 20 53 48 4F 57 20 59 |WILL THEN SHOW Y|
00001F50: 4F 55 20 54 48 45 20 45 51 55 41 54 49 4F 4E 20 |OU THE EQUATION |
00001F60: 26 22 00 84 27 40 06 99 22 11 20 41 53 4B 20 46 |&"..'@..". ASK F|
00001F70: 4F 52 20 54 48 45 20 4E 45 57 20 45 4C 45 4D 45 |OR THE NEW ELEME|
00001F80: 4E 54 2E 22 00 8A 27 4A 06 8F 00 90 27 54 06 8E |NT."..'J....'T..|
00001F90: 00 AA 27 5E 06 55 50 B2 30 3A 55 47 24 B2 22 D1 |..'^.UP.0:UG$.".|
00001FA0: 55 45 53 54 49 4F 4E 20 23 22 00 C7 27 63 06 87 |UESTION #"..'c..|
00001FB0: 4D 31 41 53 53 2C 45 31 4C 45 24 2C 4E 31 55 4D |M1ASS,E1LE$,N1UM|
00001FC0: 2C 44 31 45 43 41 59 00 D6 27 68 06 8D 38 35 30 |,D1ECAY..'h..850|
00001FD0: 3A 8D 32 35 36 30 00 F3 27 72 06 87 4D 32 41 53 |:.2560..'r..M2AS|
00001FE0: 53 2C 45 32 4C 45 24 2C 4E 32 55 4D 2C 44 32 45 |S,E2LE$,N2UM,D2E|
00001FF0: 43 41 59 00 0B 28 7C 06 8B 4C 49 4E 45 4C 45 B2 |CAY..(|..LINELE.|
00002000: 37 A7 4D 4F 44 45 24 B2 22 47 22 00 2D 28 86 06 |7.MODE$."G".-(..|
00002010: 8B 4C 49 4E 45 4C 45 B2 31 A7 4D 4F 44 45 24 B2 |.LINELE.1.MODE$.|
00002020: 22 C8 45 91 9D 9D 9D 34 11 11 9D 32 22 00 4F 28 |".E....4...2".O(|
00002030: 90 06 8B 4C 49 4E 45 4C 45 B2 32 A7 4D 4F 44 45 |...LINELE.2.MODE|
00002040: 24 B2 22 45 91 9D 9D 30 11 11 9D 9D 2D 31 22 00 |$."E...0....-1".|
00002050: 97 28 9A 06 99 22 11 11 11 1D 1D 1D 1D 1D 22 3B |.(..."........";|
00002060: 45 31 4C 45 24 3B 22 91 9D 9D 9D 9D 9D 9D 22 3B |E1LE$;".......";|
00002070: 4D 31 41 53 53 3B 22 11 11 9D 9D 9D 9D 22 3B 4E |M1ASS;"......";N|
00002080: 31 55 4D 3B 22 91 1D 1D 1D 2D 3E 20 3F 20 2B 20 |1UM;"....-> ? + |
00002090: 22 3B 4D 4F 44 45 24 00 D1 28 A4 06 99 22 11 11 |";MODE$..(..."..|
000020A0: 20 D4 C8 C5 A0 CE C5 D7 A0 CD C1 D3 D3 A0 CE D5 | ...............|
000020B0: CD C2 C5 D2 20 20 20 20 20 20 20 3A 20 22 3B 3A |.... : ";:|
000020C0: 55 53 24 B2 22 48 30 31 32 33 34 35 36 37 38 39 |US$."H0123456789|
000020D0: 22 00 EB 28 A9 06 55 4C B2 33 3A 8D 33 35 3A 4D |"..(..UL.3:.35:M|
000020E0: 33 41 53 53 B2 C5 28 55 52 24 29 00 11 29 AE 06 |3ASS..(UR$)..)..|
000020F0: 99 22 20 D4 C8 C5 A0 CE C5 D7 A0 C5 CC C5 CD C5 |." .............|
00002100: CE D4 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 |.. : "|
00002110: 3B 00 25 29 B3 06 55 53 24 B2 22 22 3A 55 4C B2 |;.%)..US$."":UL.|
00002120: 33 3A 8D 33 35 00 33 29 B8 06 45 33 4C 45 24 B2 |3:.35.3)..E3LE$.|
00002130: 55 52 24 00 74 29 C2 06 99 22 20 D4 C8 C5 A0 CE |UR$.t)..." .....|
00002140: C5 D7 A0 CE D5 CD C2 C5 D2 A0 CF C6 A0 D0 D2 CF |................|
00002150: D4 CF CE D3 20 3A 20 22 3B 3A 55 53 24 B2 22 48 |.... : ";:US$."H|
00002160: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 33 |0123456789":UL.3|
00002170: 3A 8D 33 35 00 84 29 CC 06 4E 33 55 4D B2 C5 28 |:.35..)..N3UM..(|
00002180: 55 52 24 29 00 98 29 D6 06 8B 4C 49 4E 45 4C 45 |UR$)..)...LINELE|
00002190: B2 37 A7 89 31 38 37 30 00 AF 29 E0 06 8B 4D 33 |.7..1870..)...M3|
000021A0: 41 53 53 B3 B1 4D 32 41 53 53 A7 31 38 32 30 00 |ASS..M2ASS.1820.|
000021B0: C6 29 EA 06 8B 45 33 4C 45 24 B3 B1 45 32 4C 45 |.)...E3LE$..E2LE|
000021C0: 24 A7 31 38 32 30 00 DC 29 F4 06 8B 20 4E 33 55 |$.1820..)... N3U|
000021D0: 4D B3 B1 4E 32 55 4D A7 31 38 32 30 00 F0 29 FE |M..N2UM.1820..).|
000021E0: 06 8B 44 32 45 43 41 59 B2 33 32 A7 31 39 39 30 |..D2ECAY.32.1990|
000021F0: 00 24 2A 08 07 4D 31 41 53 53 B2 4D 32 41 53 53 |.$*..M1ASS.M2ASS|
00002200: 3A 45 31 4C 45 24 B2 45 32 4C 45 24 3A 4E 31 55 |:E1LE$.E2LE$:N1U|
00002210: 4D B2 4E 32 55 4D 3A 44 31 45 43 41 59 B2 44 32 |M.N2UM:D1ECAY.D2|
00002220: 45 43 41 59 00 2E 2A 12 07 89 31 36 34 30 00 3F |ECAY..*...1640.?|
00002230: 2A 1C 07 55 50 B2 55 50 AB 31 3A 8D 38 35 30 00 |*..UP.UP.1:.850.|
00002240: 7E 2A 21 07 99 22 11 11 20 20 20 D9 4F 55 20 4D |~*!..".. .OU M|
00002250: 41 44 45 20 41 20 4D 49 53 54 41 4B 45 2E 20 20 |ADE A MISTAKE. |
00002260: D4 48 45 20 43 4F 52 52 45 43 54 20 20 20 20 20 |.HE CORRECT |
00002270: 20 20 20 41 4E 53 57 45 52 20 49 53 3A 22 00 C2 | ANSWER IS:"..|
00002280: 2A 26 07 99 22 11 11 20 20 20 20 20 22 3B 45 31 |*&..".. ";E1|
00002290: 4C 45 24 3B 22 91 9D 9D 9D 9D 9D 22 3B 4D 31 41 |LE$;"......";M1A|
000022A0: 53 53 3B 22 11 11 9D 9D 9D 9D 22 3B 4E 31 55 4D |SS;"......";N1UM|
000022B0: 3B 22 91 1D 1D 1D 2D 3E 20 20 22 3B 4D 4F 44 45 |;"....-> ";MODE|
000022C0: 24 3B 00 F7 2A 30 07 99 22 91 1D 1D 1D 1D 2B 20 |$;..*0..".....+ |
000022D0: 20 20 22 3B 45 32 4C 45 24 3B 22 91 9D 9D 9D 9D | ";E2LE$;".....|
000022E0: 9D 9D 22 3B 4D 32 41 53 53 3B 22 11 11 9D 9D 9D |..";M2ASS;".....|
000022F0: 9D 22 3B 4E 32 55 4D 00 00 2B 3A 07 8D 38 33 35 |.";N2UM..+:..835|
00002300: 00 0A 2B 44 07 89 31 37 39 30 00 21 2B 4E 07 8B |..+D..1790.!+N..|
00002310: 4D 33 41 53 53 B3 B1 4D 31 41 53 53 A7 31 39 32 |M3ASS..M1ASS.192|
00002320: 30 00 39 2B 58 07 8B 45 33 4C 45 24 B3 B1 45 31 |0.9+X..E3LE$..E1|
00002330: 4C 45 45 24 A7 31 39 32 30 00 4E 2B 62 07 8B 4E |LEE$.1920.N+b..N|
00002340: 33 55 4D B3 B1 4E 31 55 4D A7 31 39 32 30 00 5D |3UM..N1UM.1920.]|
00002350: 2B 6C 07 8D 38 35 30 3A 8D 32 35 36 30 00 67 2B |+l..850:.2560.g+|
00002360: 76 07 89 31 36 36 30 00 78 2B 80 07 55 50 B2 55 |v..1660.x+..UP.U|
00002370: 50 AB 31 3A 8D 38 35 30 00 A6 2B 85 07 99 22 11 |P.1:.850..+...".|
00002380: 11 20 D9 4F 55 20 4D 41 44 45 20 41 20 4D 49 53 |. .OU MADE A MIS|
00002390: 54 41 4B 45 2E 20 20 CE 4F 54 48 49 4E 47 20 53 |TAKE. .OTHING S|
000023A0: 48 4F 55 4C 44 22 00 BA 2B 8A 07 99 22 20 48 41 |HOULD"..+..." HA|
000023B0: 56 45 20 43 48 41 4E 47 45 44 00 03 2C 94 07 99 |VE CHANGED..,...|
000023C0: 22 11 11 11 11 1D 1D 1D 1D 1D 1D 22 3B 45 31 4C |"..........";E1L|
000023D0: 45 24 3B 22 91 9D 9D 9D 9D 9D 9D 22 3B 4D 31 41 |E$;".......";M1A|
000023E0: 53 53 3B 22 11 11 9D 9D 9D 9D 22 3B 4E 31 55 4D |SS;"......";N1UM|
000023F0: 3B 22 91 1D 1D 1D 2D 3E 20 47 20 2B 20 20 20 20 |;"....-> G + |
00002400: 20 22 3B 00 2B 2C 9E 07 99 45 31 4C 45 24 22 91 | ";.+,...E1LE$".|
00002410: 9D 9D 9D 9D 9D 9D 22 3B 4D 31 41 53 53 3B 22 11 |......";M1ASS;".|
00002420: 11 9D 9D 9D 9D 22 3B 4E 31 55 4D 00 39 2C A8 07 |.....";N1UM.9,..|
00002430: 8D 38 33 35 3A 8D 38 35 30 00 43 2C B2 07 8D 32 |.835:.850.C,...2|
00002440: 35 36 30 00 4D 2C BC 07 89 31 36 36 30 00 6F 2C |560.M,...1660.o,|
00002450: C6 07 99 22 93 11 20 D4 48 45 20 53 45 52 49 45 |...".. .HE SERIE|
00002460: 53 20 49 53 20 43 4F 4D 50 4C 45 54 45 2E 22 00 |S IS COMPLETE.".|
00002470: 96 2C D0 07 99 22 20 C8 45 52 45 20 49 53 20 41 |.,..." .ERE IS A|
00002480: 20 47 52 41 50 48 20 4F 46 20 54 48 45 20 53 45 | GRAPH OF THE SE|
00002490: 52 49 45 53 11 22 00 BD 2C DA 07 99 22 20 20 20 |RIES."..,..." |
000024A0: 20 20 38 20 38 20 38 20 38 20 38 20 38 20 38 20 | 8 8 8 8 8 8 8 |
000024B0: 38 20 38 20 39 20 39 20 39 20 39 20 39 00 E4 2C |8 8 9 9 9 9 9..,|
000024C0: E4 07 99 22 20 20 20 20 20 31 20 32 20 33 20 34 |..." 1 2 3 4|
000024D0: 20 35 20 36 20 37 20 38 20 39 20 30 20 31 20 32 | 5 6 7 8 9 0 1 2|
000024E0: 20 33 20 34 00 0B 2D EE 07 99 22 20 20 20 20 20 | 3 4..-..." |
000024F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002500: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 17 2D F8 07 |.............-..|
00002510: 99 22 20 32 33 36 A7 00 3B 2D 02 08 99 22 20 32 |." 236..;-..." 2|
00002520: 33 35 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 |35. |
00002530: 20 20 20 20 20 20 20 20 20 2A D5 00 5D 2D 0C 08 | *..]-..|
00002540: 99 22 20 32 33 34 A7 20 20 20 20 20 20 20 20 20 |." 234. |
00002550: 20 20 20 20 20 20 20 20 20 20 20 20 2F 00 6D 2D | /.m-|
00002560: 16 08 81 54 B2 31 A4 33 30 30 3A 82 54 00 8E 2D |...T.1.300:.T..-|
00002570: 20 08 99 22 20 32 33 33 A7 20 20 20 20 20 20 20 | .." 233. |
00002580: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 00 AE | /..|
00002590: 2D 2A 08 99 22 20 32 33 32 A7 20 20 20 20 20 20 |-*.." 232. |
000025A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 00 D1 | /..|
000025B0: 2D 34 08 99 22 20 32 33 31 A7 20 20 20 20 20 20 |-4.." 231. |
000025C0: 20 20 20 20 20 20 20 20 20 20 D4 48 2A 2D 2A D0 | .H*-*.|
000025D0: 41 00 E1 2D 3E 08 81 54 B2 31 A4 33 30 30 3A 82 |A..->..T.1.300:.|
000025E0: 54 00 01 2E 48 08 99 22 20 32 33 30 A7 20 20 20 |T...H.." 230. |
000025F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002600: 2F 00 20 2E 52 08 99 22 20 32 32 39 A7 20 20 20 |/. .R.." 229. |
00002610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2F | /|
00002620: 00 3E 2E 5C 08 99 22 20 32 32 38 A7 20 20 20 20 |.>.\.." 228. |
00002630: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 00 4E | /.N|
00002640: 2E 66 08 81 54 B2 31 A4 33 30 30 3A 82 54 00 6F |.f..T.1.300:.T.o|
00002650: 2E 70 08 99 22 20 32 32 37 A7 20 20 20 20 20 20 |.p.." 227. |
00002660: 20 20 20 20 20 20 20 20 C1 43 2A 2D 2A D4 48 00 | .C*-*.H.|
00002670: 8D 2E 7A 08 99 22 20 32 32 36 A7 20 20 20 20 20 |..z.." 226. |
00002680: 20 20 20 20 20 20 20 20 20 20 20 20 2F 00 AA 2E | /...|
00002690: 84 08 99 22 20 32 32 35 A7 20 20 20 20 20 20 20 |..." 225. |
000026A0: 20 20 20 20 20 20 20 20 20 2F 00 B8 2E 8E 08 8D | /......|
000026B0: 38 33 35 3A 99 22 93 22 00 D4 2E 98 08 99 22 20 |835:."."......" |
000026C0: 32 32 34 A7 20 20 20 20 20 20 20 20 20 20 20 20 |224. |
000026D0: 20 20 20 2F 00 F1 2E A2 08 99 22 20 32 32 33 A7 | /......" 223.|
000026E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A D2 | *.|
000026F0: 41 00 0B 2F AC 08 99 22 20 32 32 32 A7 20 20 20 |A../..." 222. |
00002700: 20 20 20 20 20 20 20 20 20 20 2F 00 1B 2F B6 08 | /../..|
00002710: 81 54 B2 31 A4 33 30 30 3A 82 54 00 34 2F C0 08 |.T.1.300:.T.4/..|
00002720: 99 22 20 32 32 31 A7 20 20 20 20 20 20 20 20 20 |." 221. |
00002730: 20 20 20 2F 00 4C 2F CA 08 99 22 20 32 32 30 A7 | /.L/..." 220.|
00002740: 20 20 20 20 20 20 20 20 20 20 2F A3 00 64 2F D4 | /..d/.|
00002750: 08 99 22 20 32 31 39 A7 20 20 20 20 20 20 20 20 |.." 219. |
00002760: 20 2A D2 4E 00 74 2F DE 08 81 54 B2 31 A4 33 30 | *.N.t/...T.1.30|
00002770: 30 3A 82 54 00 89 2F E8 08 99 22 20 32 31 38 A7 |0:.T../..." 218.|
00002780: 20 20 20 20 20 20 20 20 2F 00 9D 2F F2 08 99 22 | /../..."|
00002790: 20 32 31 37 A7 20 20 20 20 20 20 20 2F 00 B0 2F | 217. /../|
000027A0: FC 08 99 22 20 32 31 36 A7 20 20 20 20 20 20 A7 |..." 216. .|
000027B0: 00 C0 2F 06 09 81 54 B2 31 A4 33 30 30 3A 82 54 |../...T.1.300:.T|
000027C0: 00 D5 2F 10 09 99 22 20 32 31 35 A7 20 20 20 20 |../..." 215. |
000027D0: 20 20 2A D0 4F 00 E7 2F 1A 09 99 22 20 32 31 34 | *.O../..." 214|
000027E0: A7 20 20 20 20 20 2F 00 F8 2F 24 09 99 22 20 32 |. /../$.." 2|
000027F0: 31 33 A7 20 20 20 20 2F 00 08 30 2E 09 81 54 B2 |13. /..0...T.|
00002800: 31 A4 33 30 30 3A 82 54 00 18 30 38 09 99 22 20 |1.300:.T..08.." |
00002810: 32 31 32 A7 20 20 20 2F 00 2B 30 42 09 99 22 20 |212. /.+0B.." |
00002820: 32 31 31 A7 D0 42 2A 2D 2A C2 49 00 3B 30 4C 09 |211..B*-*.I.;0L.|
00002830: 99 22 20 32 31 30 A7 20 20 20 2F 00 4B 30 56 09 |." 210. /.K0V.|
00002840: 81 54 B2 31 A4 33 30 30 3A 82 54 00 5A 30 60 09 |.T.1.300:.T.Z0`.|
00002850: 99 22 20 32 30 39 A7 20 20 2F 00 68 30 6A 09 99 |." 209. /.h0j..|
00002860: 22 20 32 30 38 A7 20 2F 00 79 30 74 09 99 22 20 |" 208. /.y0t.." |
00002870: 32 30 37 A7 2A 2D 2A D0 42 00 89 30 7E 09 81 54 |207.*-*.B..0~..T|
00002880: B2 31 A4 33 30 30 3A 82 54 00 97 30 88 09 99 22 |.1.300:.T..0..."|
00002890: 20 32 30 36 A7 D4 49 00 BE 30 92 09 99 22 20 20 | 206..I..0..." |
000028A0: 20 20 A7 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | ..............|
000028B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 E5 |................|
000028C0: 30 9C 09 99 22 20 20 20 20 20 38 20 38 20 38 20 |0..." 8 8 8 |
000028D0: 38 20 38 20 38 20 38 20 38 20 38 20 39 20 39 20 |8 8 8 8 8 8 9 9 |
000028E0: 39 20 39 20 39 00 0C 31 A6 09 99 22 20 20 20 20 |9 9 9..1..." |
000028F0: 20 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 | 1 2 3 4 5 6 7 8|
00002900: 20 39 20 30 20 31 20 32 20 33 20 34 00 15 31 BA | 9 0 1 2 3 4..1.|
00002910: 09 8D 38 33 35 00 1B 31 D8 09 8E 00 57 31 E2 09 |..835..1....W1..|
00002920: 83 32 33 35 2C 22 D5 22 2C 39 32 2C 31 2C 32 33 |.235,".",92,1,23|
00002930: 31 2C 22 D4 48 22 2C 39 30 2C 32 2C 32 33 31 2C |1,".H",90,2,231,|
00002940: 22 D0 41 22 2C 39 31 2C 31 2C 32 32 37 2C 22 C1 |".A",91,1,227,".|
00002950: 43 22 2C 38 39 2C 32 00 94 31 EC 09 83 32 32 37 |C",89,2..1...227|
00002960: 2C 22 D4 48 22 2C 39 30 2C 31 2C 32 32 33 2C 22 |,".H",90,1,223,"|
00002970: D2 41 22 2C 38 38 2C 31 2C 32 31 39 2C 22 D2 4E |.A",88,1,219,".N|
00002980: 22 2C 38 36 2C 31 2C 32 31 35 2C 22 D0 4F 22 2C |",86,1,215,".O",|
00002990: 38 34 2C 31 00 D2 31 F6 09 83 32 31 31 2C 22 D0 |84,1..1...211,".|
000029A0: 42 22 2C 38 32 2C 32 2C 32 31 31 2C 22 C2 49 22 |B",82,2,211,".I"|
000029B0: 2C 38 33 2C 31 2C 32 30 37 2C 22 D4 49 22 2C 38 |,83,1,207,".I",8|
000029C0: 31 2C 32 2C 32 30 37 2C 22 D0 42 22 2C 38 32 2C |1,2,207,".B",82,|
000029D0: 33 32 00 EE 31 00 0A 8F 20 54 48 45 20 45 4C 45 |32..1... THE ELE|
000029E0: 4D 45 4E 54 20 41 4E 44 20 44 45 43 41 59 00 16 |MENT AND DECAY..|
000029F0: 32 14 0A 81 54 B2 32 34 38 A4 32 35 34 3A 97 55 |2...T.248.254:.U|
00002A00: 4D AA 54 2C 34 32 3A 97 55 4D AA 54 AA 31 36 30 |M.T,42:.UM.T.160|
00002A10: 2C 34 32 3A 82 54 00 3F 32 1E 0A 81 54 B2 32 34 |,42:.T.?2...T.24|
00002A20: 38 A4 34 30 38 A9 34 30 3A 97 55 4D AA 54 2C 34 |8.408.40:.UM.T,4|
00002A30: 32 3A 97 55 4D AA 54 AA 36 2C 34 32 3A 82 54 00 |2:.UM.T.6,42:.T.|
00002A40: 5B 32 28 0A 99 22 11 11 11 11 11 1D 1D 1D 1D 1D |[2(.."..........|
00002A50: 1D 1D 1D 1D 22 3B 4D 31 41 53 53 00 75 32 32 0A |....";M1ASS.u22.|
00002A60: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |."............";|
00002A70: 45 31 4C 45 24 00 8B 32 3C 0A 99 22 1D 1D 1D 1D |E1LE$..2<.."....|
00002A80: 1D 1D 1D 1D 1D 22 3B 4E 31 55 4D 00 9D 32 46 0A |.....";N1UM..2F.|
00002A90: 4C 49 4E 45 4C 45 B2 44 31 45 43 41 59 00 B2 32 |LINELE.D1ECAY..2|
00002AA0: 50 0A 47 41 4D B2 28 B5 28 BB 28 31 29 AC 31 30 |P.GAM.(.(.(1).10|
00002AB0: 29 29 00 C6 32 5A 0A 8B 47 41 4D B2 35 A7 4C 49 |))..2Z..GAM.5.LI|
00002AC0: 4E 45 4C 45 B2 37 00 DC 32 64 0A 50 41 54 B2 28 |NELE.7..2d.PAT.(|
00002AD0: B5 28 BB 28 31 29 AC 34 AA 31 29 29 00 FE 32 6E |.(.(1).4.1))..2n|
00002AE0: 0A 91 50 41 54 8D 32 36 39 30 2C 32 37 31 30 2C |..PAT.2690,2710,|
00002AF0: 32 37 33 30 2C 32 37 35 30 2C 32 37 37 30 00 04 |2730,2750,2770..|
00002B00: 33 78 0A 8E 00 39 33 82 0A 81 54 B2 32 34 38 A4 |3x...93...T.248.|
00002B10: 30 A9 AB 34 31 3A 97 55 4D AA 54 2C 4C 49 4E 45 |0..41:.UM.T,LINE|
00002B20: 4C 45 3A 81 59 B2 31 A4 35 30 3A 82 59 3A 97 55 |LE:.Y.1.50:.Y:.U|
00002B30: 4D AA 54 2C 33 32 3A 82 54 00 3F 33 8C 0A 8E 00 |M.T,32:.T.?3....|
00002B40: 75 33 96 0A 81 54 B2 32 35 34 A4 33 39 A9 AB 33 |u3...T.254.39..3|
00002B50: 39 3A 97 55 4D AA 54 2C 4C 49 4E 45 4C 45 3A 81 |9:.UM.T,LINELE:.|
00002B60: 59 B2 31 A4 35 30 3A 82 59 3A 97 55 4D AA 54 2C |Y.1.50:.Y:.UM.T,|
00002B70: 33 32 3A 82 54 00 7B 33 A0 0A 8E 00 B1 33 AA 0A |32:.T.{3.....3..|
00002B80: 81 54 B2 32 35 31 A4 31 31 A9 AB 34 30 3A 97 55 |.T.251.11..40:.U|
00002B90: 4D AA 54 2C 4C 49 4E 45 4C 45 3A 81 59 B2 31 A4 |M.T,LINELE:.Y.1.|
00002BA0: 35 30 3A 82 59 3A 97 55 4D AA 54 2C 33 32 3A 82 |50:.Y:.UM.T,32:.|
00002BB0: 54 00 B7 33 B4 0A 8E 00 ED 33 BE 0A 81 54 B2 33 |T..3.....3...T.3|
00002BC0: 36 38 A4 33 36 30 A9 AB 31 3A 97 55 4D AA 54 2C |68.360..1:.UM.T,|
00002BD0: 4C 49 4E 45 4C 45 3A 81 59 B2 31 A4 35 30 3A 82 |LINELE:.Y.1.50:.|
00002BE0: 59 3A 97 55 4D AA 54 2C 33 32 3A 82 54 00 F3 33 |Y:.UM.T,32:.T..3|
00002BF0: C8 0A 8E 00 26 34 D2 0A 81 54 B2 33 37 34 A4 33 |....&4...T.374.3|
00002C00: 33 39 3A 97 55 4D AA 54 2C 4C 49 4E 45 4C 45 3A |39:.UM.T,LINELE:|
00002C10: 81 59 B2 31 A4 31 35 3A 82 59 3A 97 55 4D AA 54 |.Y.1.15:.Y:.UM.T|
00002C20: 2C 33 32 3A 82 54 00 2C 34 DC 0A 8E 00 00 00 |,32:.T.,4...... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
......################################..
.... WRITTEN AND REVISED BY STEPHEN.3...
. FENTON ON FWCI COMPUTERS.I.... WRI
TTEN 1981.O...:.U....###################
#############...... ** TO OUR BEST KNOWL
EDGE THIS...... PROGRAM IS FREE FOR.V
.... DUPLICATION IN CANADA.......
IF YOU HAVE CONTARY...... INFORMATION
, PLEASE.6.... CONTACT COMMODORE CANA
DA AND.\.... EVERY EFFORT WILL BE MAD
E TO.}.... WITHDRAW COPIES OF THIS...
... PROGRAM......:...#.. +++ INPUT SE
CTION +++.I.(..UO,0:UR$."":UI$."".Y.*..U
L.0.UL.80...-.." ..";:.UC,0...2..UI$:.U
I$."".50.*.7..UI$.G(13).C(UR$)..1..UC,1:
." .";:.85.=.<..UI$.G(20).105.Q.>.. C(UR
$)..UL.50.V.A..120:. CHECK FOR VALID CHA
RACTER...F.UR$.UR$.UI$...K..UI$;...P..50
...U.. +++ CHECK FOR HELP REQUEST +++...
Z..UR$.UX$.195:. EXIT TO HELP ROUTINE...
_..UF.1..240...D.UF.0:.:....F.. ++ CHECK
DELETE ++.+.I..C(UR$).1.50.C.N.UR$.H(UR
$,C(UR$).1).U.S..". ..";:.50.|.X.. ++ C
HECK FOR VALID CHARACTERS ++...}..C(US$)
.0.150....US$.US$.UX$......US.1.C(US$).
F....UI$.J(US$,US,1)...L.....Y...UI$."":
....... ** STANDARD INPUT **......F(UI$)
.46........UI$.G(32)...3. ..F(UI$).48.F(
UI$).57.170.9.....V....F(UI$).65.F(UI$).
90.180.\..........F(UI$).193.F(UI$).218.
UI$."":.......B(UT).UU%.UI$.G(F(UI$).128
):............UI$."":....C.UF.1:. +++ HE
LP ROUTINE EXIT +++...E..250...H..245...
M..UQ.UB.(U2%.256.U1%.U3%.2).(.R.UQ%(UQ.
UB).B(UQ):.:.".".;.W.UZ.1:UV%.B(UT).D.X.
.300.I.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.U
K. .Z..B(50003).0..53281,1:.".";:.53281,
6:.53280,14:.220......".";.Y...UT$.UL$:.
UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)......U
Q,UQ%(UQ.UB):.......U1,U1%......U2,U2%..
....U4,U4%. ....U3,U3%.1.(....35.Z...UD%
.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1)
:.......H(UD$,24);"
. HELP COMING . ":..A...U1%.B(U1):U2%.
B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$:UK
$.UG$:UL$.UT$:UJ.UP:UK.UL.........,.. **
MENU **...-.:.5....".":.UT,UU%:.B(50003
).0..53281,9:.53280,8.;./.:.X.1..".
MENU"...6.." ----------------
----------------------"...;..".. 1
. BEGIN ACTINIUM DECAY"...@.."..
2. STUDENT INSTRUCTIONS"...E.."..
3. TEACHER INSTRUCTIONS".2.J.."..
4. MODIFICATION OF PROGRAM".N.O..
".. 5. QUIT..".}.T.." ----------
----------------------------"...Y.."..
PRESS A NUMBER KEY (1-5) ";.Q.^.UL.
1:US$."12345":.35:. INPUT ROUTINE...C..E
(UR$).1000,400,500,600,396...H..300."...
. ** RE-ENABLE STOP KEY AND END **.Q....
B(50003)..1.B(50003)..160.B(50003)..0.39
9.{....UU.71:.B(50003).0..53281,6:.53280
,14......"..":.......875:....... ** STUD
ENT INSTRUCTIONS **......".":.UT,UL%:.B(
50003).0..53281,0:.53280,0.....UP.0:UG$.
"STUDENT INST.":.850......1400......835.
....850.*....1470.3....835.<....850.F..
..1560.O....835.X.G..850...L..".. NOTE:.
...TO ADVANCE FROM ONE QUESTION"...V..".
TO THE NEXT PRESS THE SPACE BAR"......"
.. IF AT ANY TIME YOU WISH TO RETURN
"......". TO THE MENU PRESS H RETURN"...
...835."....UZ.1..UP%:.217.(.....I.... *
* TEACHER INSTRUCTIONS **.Y....".":.UT,U
L%:.B(50003).0..53281,2:.53280,10.....UP
.0:UG$."TEACHER INST.":.850.I...."..
TO THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC."......
" DOMAIN. IF THIS IS NOT THE CASE.".;
...." PLEASE CONTACT:...".E...."
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".N...." CAN
ADA M1W 2K4"......" (416) 499
-4292".....UP.1:. 835:. 850:./...."
..PROGRAM NAME: ACTINIUM DECAY..Y...."
WRITTEN BY : STEPHEN FENTON."......"
UPGRADED BY : STEPHEN FENTON.".....
." .THIS PROGRAM WILL RUN ON ANY...N
...." PET 64 COMPUTER......."
COMMODORE 64 COMPUTER......835.!..
..-------------------------------.A...."
UPGRADED FOR C64 BY:.\...." L
YNDA BONANNO......----------------------
---------...N..UZ.1..UP%:.217...W...A.X.
. ** PROGRAM MODIFICATION INST **.R.Y.."
.":.UT,UL%...Z..59468,14...].UP.0:UG$."P
ROGRAM MOD.":.850.0.B..".. THIS PROGRAM
CAN BE MODIFIED TO WORK".].G..". WITH OT
HER DECAY SERIES BY CHANGING"...L..". TH
E DATA IN LINES 2530 TO 2550."...Q.."..
THE TITLES AND THE GRAPH WOULD ALSO ".Q.
V..". HAVE TO BE CHANGED.......". THE GR
APH IS ON LINES 2000 TO 2470."......835.
.....UZ.1..UP%:.217.!.....F.... ** TO US
E 8032 LOAD CBM4032 **.|.F..".....BEFORE
RUNNING THIS PROGRAM ON AN 8032 .....P
.." LOAD THE 'CBM 4032' PROGRAM....
........."...Z..UU.71.C.......... ** TO
USE 8032 LOAD CBM4032 **.3...."....BEFOR
E RUNNING THIS PROGRAM ON AN 8032 ..LOA
D CBM 4032 PROGRAM".?....1093:.._. .. **
T I T L E P A G E **...".."....";:.UT
,UU%:.B(50003).0..53280,14:.53281,6...$.
.I.1.38:."...";:..A.&..I.1.22:.".....";:
..Y.(..I.1.37:.".....";:....*..I.1.22:."
.....";:....,.."........................
... ..8...."................... . . ..
.Y.0.."................... . ....W.2.."
.................... ....4.."..........
....C O M M O D O R E...B.6.."..........
.....EDUCATIONAL.....8.."...............
.SOFTWARE...:.. ** COMMODORE LOGO **.4.;
..H(UD$,24);"..........PRESS SPACE BAR O
R WAIT.":I.0.V.<..A$:.A$.." ".I.I.1:.I.2
50.828.Z.>.T1$."":T2$."":T3$."":T4$."":I
.0...@..300...C.. ** SPACE BAR PRESS **.
Z.H..UO,0:.H(UD$,24);".......PRESS SPACE
BAR TO CONTINUE."...L..UI$:.UI$.." ".84
4...N.....R.. ** PAGE DESIGN ROUTINE **.
#.T.UP.UP.1.M.W.."."H(UT$.UP$,21);I(UP$.
UG$.D(UP),18).|.\.." -------------------
-------------------"...`..UH..0.870...A.
.H(UD$,24);H(UP$,7);"HELP - PRESS H <R
ETURN>".P.F.UH.0:."..":....K.. ** PLEASE
WAIT REMARK **.%.P..H(UD$,24);"
ONE MOMENT PLEASE... ".+.U...H...
. ** SET UP VARIABLES **.....UX$."H":.UQ
%(1000):UB.32768:U1.196:U2.197:U3.198:U4
.216:UC.167:UU.1024.Q...UT.59468:UU%.12:
UL%.14:UP%.1146:UM.32768:UO.158:. 50003,
0......B(50003).0.UB.1024:U1.209:U2.210:
U3.211:U4.214:UC.204:UU.2048.S....B(5000
3).0.UT.53272:UU%.21:UL%.23:UP%.2139:UM.
1024:UO.198.W...UD$."...................
......".....UP$."
".C...UT$." ACTINIUM DEC
AY".I.......... ** SET VARIABLES **.....
.900.....:.....:.. ... ** CHECK FOR 8032
**.1 ...".":." ":. SHIFTED SPACE.H ...B
(UB.40)..96..700.A ... ** MEMORY CHECK *
*.U ... .(0).2000.937.. ..."....THIS MAC
HINE DOES NOT HAVE ENOUGH.".G ..."MEMORY
TO RUN THIS PROGRAM !".R ...UU.71.X ...
.. ..."..":.B(50003).0.962.!!... ** BASI
C 2.0 OR 4.0 OR C-64 SETUP **._!...1
075,133:.1076,144:.1077,234:.1079,4:.108
0,133:.1081,145..!...1091,155:.1098,133:
.1099,144:.1100,234:.1103,133..!...1104,
145:.1105,234:.1082,234.N!...B(50003)..1
60.955..!...1093,88:.1094,228:.1097,85:.
1102,228:.965.."...B(50003)..1.990.A"...
1093,49:.1094,230:.1097,46:.1102,230:.96
5.{"B..2099,141:.2100,20:.2101,3:.2103,8
:.2104,141:.2105,21.."C..2106,3:.2115,14
5:.2117,52:.2118,234:.2121,49:.2122,141.
."D..2123,20:.2124,3:.2126,234:.2127,141
:.2128,21:.2129,3..#E..UU.48:. DISABLE S
TOP KEY. #J..800:. TITLE.0#T..300:. MENU
.A#...".THE PGM WILL NOT WORK ON THIS MA
CHINE!":...#...UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **.B#..."..";:.:.B(5
0003).0..53281,6:.53280,14..#L..--------
----------------------..$V.. THE ACTINIU
M SERIES OF DECAY..$`...($J.. BY STEPHE
N FENTON.L$T..--------------------------
----.X$D..UT,UL%.B$N..1630..$X..".. T
HIS PROGRAM WILL SHOW YOU THE ELE-".A$..
.". MENTS IN THE ACTINIUM DECAY SERIES &
"..$...". THE DECAY MODE. YOU WILL HAVE
TO"..%...". FIGURE OUT THE NEXT ELEMENT
. THIS".E% ..". SERIES STARTS AT URANIUM
& ENDS IN A".C%...". STABLE FORM OF LEA
D.".I%.....%...".. THE THREE TYPES OF DE
CAY ARE:."..%H.." -PROGRAM SYMBOL.F
%J.." -DECAY TYPE..%L.." -PART
ICLE"..&R..". 1. A ALPHA H
E....4...2".:&...".. 2. B BETA
E...0....-1".C&...".. 3. G
GAMMA -"EADY...&...". (GAMMA IS JU
ST ENERGY & DOESN'T ALTER..&..." THE ELE
MENT)..&.....&.....&...".. YOU WILL NE
ED A PERIODIC TABLE FOR"..'"..". THIS WO
RK. I WILL SHOW AN ELEMENT AND".3',..".
A PARTICLE WILL SHOOT OUT.".B'6..".. I
WILL THEN SHOW YOU THE EQUATION &"..'@..
". ASK FOR THE NEW ELEMENT."..'J....'T..
..'^.UP.0:UG$."QUESTION #".G'C..M1ASS,E1
LE$,N1UM,D1ECAY.V'H..850:.2560..'R..M2AS
S,E2LE$,N2UM,D2ECAY..(|..LINELE.7.MODE$.
"G".-(...LINELE.1.MODE$."HE....4...2".O(
...LINELE.2.MODE$."E...0....-1"..(..."..
......";E1LE$;".......";M1ASS;"......";N
1UM;"....-> ? + ";MODE$.Q(...".. THE NEW
MASS NUMBER : ";:US$."H0123456789
"..(..UL.3:.35:M3ASS.E(UR$)..)..." THE N
EW ELEMENT : ";.%)..US$."":UL.
3:.35.3)..E3LE$.UR$.T)B.." THE NEW NUMBE
R OF PROTONS : ";:US$."H0123456789":UL.3
:.35..)L.N3UM.E(UR$)..)V..LINELE.7..1870
..)...M3ASS..M2ASS.1820.F)...E3LE$..E2LE
$.1820..)... N3UM..N2UM.1820..)...D2ECAY
.32.1990.$*..M1ASS.M2ASS:E1LE$.E2LE$:N1U
M.N2UM:D1ECAY.D2ECAY..*...1640.?*..UP.UP
.1:.850.~*!..".. YOU MADE A MISTAKE.
THE CORRECT ANSWER IS:".B*&.."..
";E1LE$;"......";M1ASS;"......";N1UM
;"....-> ";MODE$;..*0..".....+ ";E2LE
$;".......";M2ASS;"......";N2UM..+:..835
..+D..1790.!+N..M3ASS..M1ASS.1920.9+X..E
3LE$..E1LEE$.1920.N+B..N3UM..N1UM.1920.]
+L..850:.2560.G+V..1660.X+..UP.UP.1:.850
..+...".. YOU MADE A MISTAKE. NOTHING S
HOULD"..+..." HAVE CHANGED..,...".......
...";E1LE$;".......";M1ASS;"......";N1UM
;"....-> G + ";.+,...E1LE$".......";
M1ASS;"......";N1UM.9,...835:.850.C,...2
560.M,...1660.O,F..".. THE SERIES IS COM
PLETE."..,P.." HERE IS A GRAPH OF THE SE
RIES."..,Z.." 8 8 8 8 8 8 8 8 8 9 9
9 9 9..,..." 1 2 3 4 5 6 7 8 9 0 1 2
3 4..-..." ........................
.....-..." 236..;-..." 235.
*U.]-..." 234.
/.M-...T.1.300:.T..- .." 233.
/..-*.." 232.
/.Q-4.." 231. TH*-*P
A..->..T.1.300:.T...H.." 230.
/. .R.." 229. /
.>.\.." 228. /.N.F..T.1.
300:.T.O.P.." 227. AC*-*TH.
..Z.." 226. /......" 225
. /......835:.".".T...."
224. /......" 223.
*RA../..." 222. /../..
.T.1.300:.T.4/..." 221. /.L/J
.." 220. /..D/T.." 219.
*RN.T/...T.1.300:.T../..." 218.
/../..." 217. /../..." 216. .
../...T.1.300:.T.U/..." 215. *PO../
..." 214. /../$.." 213. /..0...T.
1.300:.T..08.." 212. /.+0B.." 211.PB*-
*BI.;0L.." 210. /.K0V..T.1.300:.T.Z0`.
." 209. /.H0J.." 208. /.Y0T.." 207.*-*P
B..0~..T.1.300:.T..0..." 206.TI..0..."
..............................0..."
8 8 8 8 8 8 8 8 8 9 9 9 9 9..1..."
1 2 3 4 5 6 7 8 9 0 1 2 3 4..1...835..1
X...W1...235,"U",92,1,231,"TH",90,2,231,
"PA",91,1,227,"AC",89,2..1...227,"TH",90
,1,223,"RA",88,1,219,"RN",86,1,215,"PO",
84,1.R1...211,"PB",82,2,211,"BI",83,1,20
7,"TI",81,2,207,"PB",82,32..1... THE ELE
MENT AND DECAY..2...T.248.254:.UM.T,42:.
UM.T.160,42:.T.?2...T.248.408.40:.UM.T,4
2:.UM.T.6,42:.T.[2(.."..............";M1
ASS.U22.."............";E1LE$..2<.."....
.....";N1UM..2F.LINELE.D1ECAY..2P.GAM.(.
(.(1).10)).F2Z..GAM.5.LINELE.7..2D.PAT.(
.(.(1).4.1))..2N..PAT.2690,2710,2730,275
0,2770..3X...93...T.248.0..41:.UM.T,LINE
LE:.Y.1.50:.Y:.UM.T,32:.T.?3....U3...T.2
54.39..39:.UM.T,LINELE:.Y.1.50:.Y:.UM.T,
32:.T.{3 ....3...T.251.11..40:.UM.T,LINE
LE:.Y.1.50:.Y:.UM.T,32:.T..3.....3...T.3
68.360..1:.UM.T,LINELE:.Y.1.50:.Y:.UM.T,
32:.T..3H...&4R..T.374.339:.UM.T,LINELE:
.Y.1.15:.Y:.UM.T,32:.T.,4......
> CLICK IMAGE PREVIEW FOR FULL MODAL