> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 0A 00 54 54 4C B2 31 30 30 00 1B 08 |......TTL.100...|
00000010: 14 00 53 46 B2 32 32 AD 54 54 4C 00 24 08 1E 00 |..SF.22.TTL.$...|
00000020: 4E 44 B2 32 00 32 08 28 00 86 4E 55 43 28 54 54 |ND.2.2.(..NUC(TT|
00000030: 4C 29 00 3F 08 6E 00 44 43 28 30 29 B2 2E 32 00 |L).?.n.DC(0)..2.|
00000040: 4D 08 78 00 44 43 28 31 29 B2 2E 30 35 00 59 08 |M.x.DC(1)..05.Y.|
00000050: 82 00 44 43 28 32 29 B2 30 00 66 08 8C 00 4D 28 |..DC(2).0.f...M(|
00000060: 30 29 B2 54 54 4C 00 8F 08 96 00 99 C7 28 31 34 |0).TTL.......(14|
00000070: 37 29 22 20 20 3D 2D 3D 20 52 41 44 49 4F 41 43 |7)" =-= RADIOAC|
00000080: 54 49 56 45 20 44 45 43 41 59 20 3D 2D 3D 22 00 |TIVE DECAY =-=".|
00000090: 9B 08 A0 00 81 54 B2 31 A4 32 30 00 C6 08 AA 00 |.....T.1.20.....|
000000A0: 8D 34 30 30 3A 8F 20 43 48 41 4E 47 45 20 54 4F |.400:. CHANGE TO|
000000B0: 20 47 4F 53 55 42 35 30 30 20 54 4F 20 20 20 20 | GOSUB500 TO |
000000C0: 20 20 50 4C 4F 54 00 D3 08 B4 00 81 4E B2 31 A4 | PLOT......N.1.|
000000D0: 54 54 4C 00 EC 08 BE 00 8B BB 28 30 29 B1 44 43 |TTL.......(0).DC|
000000E0: 28 4E 55 43 28 4E 29 29 A7 32 32 30 00 04 09 C8 |(NUC(N)).220....|
000000F0: 00 4B B2 4E 55 43 28 4E 29 3A 4E 55 43 28 4E 29 |.K.NUC(N):NUC(N)|
00000100: B2 4B AA 31 00 24 09 D2 00 4D 28 4B 29 B2 4D 28 |.K.1.$...M(K).M(|
00000110: 4B 29 AB 31 3A 4D 28 4B AA 31 29 B2 4D 28 4B AA |K).1:M(K.1).M(K.|
00000120: 31 29 AA 31 00 2B 09 DC 00 82 4E 00 32 09 E6 00 |1).1.+....N.2...|
00000130: 82 54 00 40 09 F0 00 97 32 31 34 2C 32 33 3A 99 |.T.@....214,23:.|
00000140: 00 4C 09 FA 00 97 32 31 31 2C 31 32 00 70 09 04 |.L....211,12.p..|
00000150: 01 99 22 3D 50 52 45 53 53 20 41 20 4B 45 59 20 |.."=PRESS A KEY |
00000160: 54 4F 20 43 4F 4E 54 49 4E 55 45 3D 3D 3E 22 3B |TO CONTINUE==>";|
00000170: 00 83 09 0E 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000180: 32 37 30 00 8C 09 18 01 89 31 35 30 00 92 09 86 |270......150....|
00000190: 01 80 00 9F 09 90 01 99 54 4D 22 3E 3E 22 2C 00 |........TM">>",.|
000001A0: AB 09 9A 01 81 4A B2 30 A4 4E 44 00 B9 09 A4 01 |.....J.0.ND.....|
000001B0: 99 4D 28 4A 29 2C 3A 82 4A 00 C5 09 AE 01 54 4D |.M(J),:.J.....TM|
000001C0: B2 54 4D AA 31 00 CB 09 B8 01 8E 00 D7 09 F4 01 |.TM.1...........|
000001D0: 81 4A B2 30 A4 4E 44 00 EF 09 FE 01 59 B2 4D 28 |.J.0.ND.....Y.M(|
000001E0: 4A 29 3A 53 24 B2 C9 28 C4 28 4A 29 2C 31 29 00 |J):S$..(.(J),1).|
000001F0: 0B 0A 08 02 52 4F 57 25 B2 32 32 AB 53 46 AC 59 |....ROW%.22.SF.Y|
00000200: 3A 43 4F 4C 25 B2 32 AC 54 AB 32 00 20 0A 12 02 |:COL%.2.T.2. ...|
00000210: 8B 52 4F 57 25 B1 32 33 A7 52 4F 57 25 B2 32 33 |.ROW%.23.ROW%.23|
00000220: 00 34 0A 1C 02 8B 52 4F 57 25 B3 B2 30 A7 52 4F |.4....ROW%..0.RO|
00000230: 57 25 B2 30 00 49 0A 26 02 8B 43 4F 4C 25 B1 33 |W%.0.I.&..COL%.3|
00000240: 38 A7 43 4F 4C 25 B2 33 38 00 5C 0A 30 02 8B 43 |8.COL%.38.\.0..C|
00000250: 4F 4C 25 B3 30 A7 43 4F 4C 25 B2 30 00 6C 0A 3A |OL%.0.COL%.0.l.:|
00000260: 02 97 32 31 34 2C 52 4F 57 25 3A 99 00 7E 0A 44 |..214,ROW%:..~.D|
00000270: 02 97 32 31 31 2C 43 4F 4C 25 3A 99 53 24 00 85 |..211,COL%:.S$..|
00000280: 0A 4E 02 82 4A 00 8B 0A 58 02 8E 00 00 00 |.N..J...X..... |
......TTL.100.....SF.22.TTL.$...ND.2.2.(
..NUC(TTL).?.N.DC(0)..2.M.X.DC(1)..05.Y.
..DC(2).0.F...M(0).TTL......G(147)" =-=
RADIOACTIVE DECAY =-="... ..T.1.20.F...
.400:. CHANGE TO GOSUB500 TO PLOT.S
....N.1.TTL.......(0).DC(NUC(N)).220...H
.K.NUC(N):NUC(N).K.1.$.R.M(K).M(K).1:M(K
.1).M(K.1).1.+....N.2....T.@....214,23:.
.L....211,12.P...."=PRESS A KEY TO CONTI
NUE==>";......A$:.A$."".270......150....
........TM">>",......J.0.ND......M(J),:.
J.E...TM.TM.1.K.....W....J.0.ND.....Y.M(
J):S$.I(D(J),1).....ROW%.22.SF.Y:COL%.2.
T.2. ....ROW%.23.ROW%.23.4....ROW%..0.RO
W%.0.I.&..COL%.38.COL%.38.\.0..COL%.0.CO
L%.0.L.:..214,ROW%:..~.D..211,COL%:.S$..
.N..J...X.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL