Multiple names: RA DECAY , PY002 RA DECAY
FILE INFORMATION
FILENAME(S):
• RA DECAY  <br>• PY002   RA DECAY
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-02 16:39:54
APPEARS ON: 3 disk(s)
FILE HASH
f17c9a6553a1bee078882c646636d4c90325cd15d85695799f34f2a43a54d8d5
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC DOMAIN | RA DECAY | PRG | Treasure Chest - Plattfuss | 12 | 7 | DOWNLOAD FILE |
| FREESOFT DISK NR | PY002 RA DECAY | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 3 | DOWNLOAD FILE |
| L EHRNEN | PY002 RA DECAY | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 05 00 8F 20 28 43 29 20 31 39 38 30 |..(.... (C) 1980| 00000010: 20 4D 4F 44 45 52 4E 20 54 55 54 4F 52 49 41 4C | MODERN TUTORIAL| 00000020: 20 43 4F 4C 4C 45 47 45 00 4D 08 0A 00 8F 20 2A | COLLEGE.M.... *| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 08 |*************.r.| 00000050: 14 00 8F 20 2A 52 41 44 49 4F 41 43 54 49 56 45 |... *RADIOACTIVE| 00000060: 20 44 45 43 41 59 20 53 49 4D 55 4C 41 54 49 4F | DECAY SIMULATIO| 00000070: 4E 2A 00 97 08 1E 00 8F 20 2A 20 20 20 20 20 20 |N*...... * | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 2A 00 BC 08 28 00 8F 20 2A 20 | *...(.. * | 000000A0: 20 20 20 20 42 59 20 44 41 56 49 44 20 50 41 52 | BY DAVID PAR| 000000B0: 4B 49 4E 53 4F 4E 20 20 20 20 20 2A 00 E1 08 32 |KINSON *...2| 000000C0: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 2A 00 06 09 3C 00 8F 20 2A 20 20 20 20 20 32 37 |*...<.. * 27| 000000F0: 54 48 20 44 45 43 45 4D 42 45 52 20 31 39 37 39 |TH DECEMBER 1979| 00000100: 20 20 20 20 20 2A 00 2B 09 46 00 8F 20 2A 2A 2A | *.+.F.. ***| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 09 50 00 |***********.1.P.| 00000130: 8F 00 37 09 5A 00 8F 00 5C 09 64 00 8F 20 20 2A |..7.Z...\.d.. *| 00000140: 2A 2A 2A 2A 49 4E 50 55 54 20 53 54 41 52 54 49 |****INPUT STARTI| 00000150: 4E 47 20 56 41 4C 55 45 53 2A 2A 2A 00 62 09 6E |NG VALUES***.b.n| 00000160: 00 8F 00 87 09 78 00 99 22 93 52 41 44 49 4F 41 |.....x..".RADIOA| 00000170: 43 54 49 56 45 20 44 45 43 41 59 20 53 49 4D 55 |CTIVE DECAY SIMU| 00000180: 4C 41 54 49 4F 4E 22 00 AB 09 82 00 99 22 A3 A3 |LATION"......"..| 00000190: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000001A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 CC 09 8C 00 |..........".....| 000001B0: 99 3A 85 20 22 57 48 41 54 20 44 45 43 41 59 20 |.:. "WHAT DECAY | 000001C0: 43 4F 4E 53 54 41 4E 54 22 3B 4C 41 00 E6 09 96 |CONSTANT";LA....| 000001D0: 00 8B 20 4C 41 B1 B2 30 20 AF 20 4C 41 B3 B2 31 |.. LA..0 . LA..1| 000001E0: 20 A7 20 31 37 30 00 11 0A A0 00 99 3A 99 22 53 | . 170......:."S| 000001F0: 4F 52 52 59 2C 20 52 41 4E 47 45 20 49 53 20 46 |ORRY, RANGE IS F| 00000200: 52 4F 4D 20 30 20 54 4F 20 31 22 3A 89 20 31 34 |ROM 0 TO 1":. 14| 00000210: 30 00 1E 0A AA 00 86 20 4E 28 31 30 31 29 00 4A |0...... N(101).J| 00000220: 0A B4 00 99 3A 85 20 22 48 4F 57 20 4D 41 4E 59 |....:. "HOW MANY| 00000230: 20 41 54 4F 4D 53 20 54 4F 20 53 54 41 52 54 20 | ATOMS TO START | 00000240: 57 49 54 48 22 3B 4E 28 30 29 00 6A 0A BE 00 8B |WITH";N(0).j....| 00000250: 20 4E 28 30 29 B1 B2 32 20 AF 20 4E 28 30 29 B3 | N(0)..2 . N(0).| 00000260: B2 38 30 30 20 A7 20 32 31 30 00 97 0A C8 00 99 |.800 . 210......| 00000270: 3A 99 22 53 4F 52 52 59 2C 20 52 41 4E 47 45 20 |:."SORRY, RANGE | 00000280: 49 53 20 46 52 4F 4D 20 32 20 54 4F 20 38 30 30 |IS FROM 2 TO 800| 00000290: 22 3A 89 20 31 38 30 00 B2 0A D2 00 8B 20 4E 28 |":. 180...... N(| 000002A0: 30 29 AB B5 28 4E 28 30 29 29 B2 30 20 A7 20 32 |0)..(N(0)).0 . 2| 000002B0: 33 30 00 DE 0A DC 00 99 3A 99 22 50 4C 45 41 53 |30......:."PLEAS| 000002C0: 45 20 43 48 4F 4F 53 45 20 41 20 57 48 4F 4C 45 |E CHOOSE A WHOLE| 000002D0: 20 4E 55 4D 42 45 52 22 3A 89 20 31 38 30 00 ED | NUMBER":. 180..| 000002E0: 0A E6 00 86 20 50 53 28 4E 28 30 29 29 00 03 0B |.... PS(N(0))...| 000002F0: F0 00 99 22 93 12 50 4C 45 41 53 45 20 57 41 49 |..."..PLEASE WAI| 00000300: 54 92 22 00 28 0B FA 00 8F 20 2A 2A 2A 2A 2A 2A |T.".(.... ******| 00000310: 53 45 54 20 55 50 20 41 54 4F 4D 53 20 4F 4E 20 |SET UP ATOMS ON | 00000320: 53 43 52 45 45 4E 2A 2A 00 2E 0B 04 01 8F 00 4A |SCREEN**.......J| 00000330: 0B 0E 01 50 53 28 31 29 B2 33 32 38 38 38 AA B5 |...PS(1).32888..| 00000340: 28 BB 28 30 29 AC 38 38 30 29 00 5B 0B 18 01 81 |(.(0).880).[....| 00000350: 20 58 B2 32 20 A4 20 4E 28 30 29 00 77 0B 22 01 | X.2 . N(0).w.".| 00000360: 50 53 28 58 29 B2 33 32 38 38 38 AA B5 28 BB 28 |PS(X).32888..(.(| 00000370: 31 29 AC 38 38 30 29 00 7F 0B 2C 01 82 20 58 00 |1).880)...,.. X.| 00000380: 90 0B 36 01 81 20 58 B2 31 20 A4 20 4E 28 30 29 |..6.. X.1 . N(0)| 00000390: 00 C3 0B 40 01 8B 20 C2 28 50 53 28 58 29 29 B3 |...@.. .(PS(X)).| 000003A0: B1 33 32 20 A7 20 50 53 28 58 29 B2 33 32 38 38 |.32 . PS(X).3288| 000003B0: 38 AA B5 28 BB 28 31 29 AC 38 38 30 29 3A 89 20 |8..(.(1).880):. | 000003C0: 33 32 30 00 D4 0B 4A 01 97 20 28 50 53 28 58 29 |320...J.. (PS(X)| 000003D0: 29 2C 38 31 00 DC 0B 54 01 82 20 58 00 0E 0C 5E |),81...T.. X...^| 000003E0: 01 43 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.CL$." | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 44 | ".D| 00000410: 0C 68 01 43 4C 24 B2 43 4C 24 AA 22 9D 9D 9D 9D |.h.CL$.CL$."....| 00000420: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000430: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000440: 9D 9D 9D 22 00 6D 0C 72 01 99 22 13 12 50 52 45 |...".m.r.."..PRE| 00000450: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO | 00000460: 53 54 41 52 54 20 44 45 43 41 59 92 22 00 86 0C |START DECAY."...| 00000470: 7C 01 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 20 22 ||.. A$:. A$.." "| 00000480: 20 A7 20 33 38 30 00 A5 0C 86 01 8F 20 20 2A 2A | . 380...... **| 00000490: 2A 2A 2A 2A 52 41 4E 44 4F 4D 20 44 45 43 41 59 |****RANDOM DECAY| 000004A0: 2A 2A 2A 2A 2A 00 AB 0C 90 01 8F 00 DC 0C 9A 01 |*****...........| 000004B0: 99 20 22 13 22 3B 43 4C 24 3B 22 12 44 45 43 41 |. ".";CL$;".DECA| 000004C0: 59 20 53 54 41 52 54 49 4E 47 92 22 3A 81 20 58 |Y STARTING.":. X| 000004D0: B2 31 20 A4 20 38 30 30 3A 82 20 58 00 06 0D A4 |.1 . 800:. X....| 000004E0: 01 99 22 13 12 50 52 45 53 53 20 53 50 41 43 45 |.."..PRESS SPACE| 000004F0: 20 41 47 41 49 4E 20 54 4F 20 53 54 4F 50 20 44 | AGAIN TO STOP D| 00000500: 45 43 41 59 92 22 00 3A 0D AE 01 99 22 13 11 22 |ECAY.".:....".."| 00000510: 3B 43 4C 24 3B 22 4E 55 4D 42 45 52 20 4F 46 20 |;CL$;"NUMBER OF | 00000520: 41 54 4F 4D 52 20 3D 22 3B 4E 28 54 4D 29 3B 22 |ATOMR =";N(TM);"| 00000530: 54 49 4D 45 20 3D 22 3B 54 4D 00 54 0D B8 01 54 |TIME =";TM.T...T| 00000540: 4D B2 54 4D AA 31 3A 4E 28 54 4D 29 B2 4E 28 54 |M.TM.1:N(TM).N(T| 00000550: 4D AB 31 29 00 65 0D C2 01 81 20 58 B2 31 20 A4 |M.1).e.... X.1 .| 00000560: 20 4E 28 30 29 00 87 0D CC 01 8B 20 BB 28 31 29 | N(0)...... .(1)| 00000570: B1 4C 41 20 B0 20 C2 28 50 53 28 58 29 29 B2 38 |.LA . .(PS(X)).8| 00000580: 37 20 A7 20 34 39 30 00 A5 0D D6 01 97 20 50 53 |7 . 490...... PS| 00000590: 28 58 29 2C 33 32 3A 81 20 51 B2 31 20 A4 20 31 |(X),32:. Q.1 . 1| 000005A0: 30 3A 82 20 51 00 C2 0D E0 01 97 20 50 53 28 58 |0:. Q...... PS(X| 000005B0: 29 2C 38 37 3A 4E 28 54 4D 29 B2 4E 28 54 4D 29 |),87:N(TM).N(TM)| 000005C0: AB 31 00 CA 0D EA 01 82 20 58 00 E7 0D F4 01 8B |.1...... X......| 000005D0: 20 4E 28 54 4D 29 B2 30 20 B0 20 54 4D B2 31 30 | N(TM).0 . TM.10| 000005E0: 30 20 A7 20 35 33 30 00 FE 0D FE 01 A1 20 41 24 |0 . 530...... A$| 000005F0: 3A 8B 20 41 24 B2 22 20 22 A7 20 35 33 30 00 08 |:. A$." ". 530..| 00000600: 0E 08 02 89 20 34 33 30 00 35 0E 12 02 99 22 13 |.... 430.5....".| 00000610: 22 3B 43 4C 24 3B 22 12 50 52 45 53 53 20 53 50 |";CL$;".PRESS SP| 00000620: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI| 00000630: 4E 55 45 92 22 00 5D 0E 1C 02 99 20 43 4C 24 3B |NUE.".].... CL$;| 00000640: 22 44 45 43 41 59 20 53 54 4F 50 50 45 44 20 41 |"DECAY STOPPED A| 00000650: 46 54 45 52 20 54 49 4D 45 22 3B 54 4D 00 76 0E |FTER TIME";TM.v.| 00000660: 26 02 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 20 22 |&.. A$:. A$.." "| 00000670: 20 A7 20 35 35 30 00 9B 0E 30 02 8F 20 2A 2A 2A | . 550...0.. ***| 00000680: 2A 2A 50 52 49 4E 54 20 49 4E 53 54 52 55 43 54 |**PRINT INSTRUCT| 00000690: 49 4F 4E 53 2A 2A 2A 2A 2A 2A 2A 00 A1 0E 3A 02 |IONS*******...:.| 000006A0: 8F 00 C0 0E 44 02 99 22 93 20 20 20 20 20 20 20 |....D..". | 000006B0: 20 20 20 20 20 20 20 20 20 12 4D 45 4E 55 92 22 | .MENU."| 000006C0: 00 E5 0E 4E 02 99 3A 99 22 50 52 45 53 53 20 31 |...N..:."PRESS 1| 000006D0: 20 54 4F 20 54 41 42 55 4C 41 54 45 20 52 45 53 | TO TABULATE RES| 000006E0: 55 4C 54 53 22 00 17 0F 58 02 99 3A 99 20 22 50 |ULTS"...X..:. "P| 000006F0: 52 45 53 53 20 32 20 46 4F 52 20 41 20 47 52 41 |RESS 2 FOR A GRA| 00000700: 50 48 20 4F 46 20 4E 55 4D 42 45 52 20 4F 46 20 |PH OF NUMBER OF | 00000710: 50 41 52 45 4E 54 22 00 30 0F 62 02 99 22 41 54 |PARENT".0.b.."AT| 00000720: 4F 4D 53 20 41 47 41 49 4E 53 54 20 54 49 4D 45 |OMS AGAINST TIME| 00000730: 00 5E 0F 6C 02 99 3A 99 22 50 52 45 53 53 20 33 |.^.l..:."PRESS 3| 00000740: 20 46 4F 52 20 41 20 47 52 41 50 48 20 4F 46 20 | FOR A GRAPH OF | 00000750: 52 41 54 45 20 4F 46 20 44 45 43 41 59 22 00 72 |RATE OF DECAY".r| 00000760: 0F 76 02 99 22 41 47 41 49 4E 53 54 20 54 49 4D |.v.."AGAINST TIM| 00000770: 45 22 00 9E 0F 80 02 99 3A 99 20 22 50 52 45 53 |E"......:. "PRES| 00000780: 53 20 34 20 46 4F 52 20 41 20 47 52 41 50 48 20 |S 4 FOR A GRAPH | 00000790: 4F 46 20 28 4E 55 4D 42 45 52 20 4F 46 22 00 C8 |OF (NUMBER OF"..| 000007A0: 0F 8A 02 99 22 44 41 55 47 48 54 45 52 20 41 54 |...."DAUGHTER AT| 000007B0: 4F 4D 53 3D 4E 55 4D 42 45 52 20 4F 46 20 50 41 |OMS=NUMBER OF PA| 000007C0: 52 54 49 43 4C 45 53 22 00 E5 0F 94 02 99 22 45 |RTICLES"......"E| 000007D0: 4D 49 54 54 45 44 29 20 41 47 41 49 4E 53 54 20 |MITTED) AGAINST | 000007E0: 54 49 4D 45 22 00 0B 10 9E 02 99 3A 99 20 22 50 |TIME"......:. "P| 000007F0: 52 45 53 53 20 35 20 54 4F 20 44 4F 20 41 4E 4F |RESS 5 TO DO ANO| 00000800: 54 48 45 52 20 44 45 43 41 59 22 00 36 10 A8 02 |THER DECAY".6...| 00000810: 99 3A 99 20 22 50 52 45 53 53 20 36 20 54 4F 20 |.:. "PRESS 6 TO | 00000820: 45 58 49 54 20 46 52 4F 4D 20 54 48 45 20 50 52 |EXIT FROM THE PR| 00000830: 4F 47 52 41 4D 22 00 6A 10 B2 02 99 3A 99 20 22 |OGRAM".j....:. "| 00000840: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR| 00000850: 20 57 48 45 4E 20 59 4F 55 20 57 41 4E 54 20 54 | WHEN YOU WANT T| 00000860: 4F 20 52 45 54 55 52 4E 92 22 00 80 10 BC 02 99 |O RETURN."......| 00000870: 22 12 54 4F 20 54 48 49 53 20 4D 45 4E 55 92 22 |".TO THIS MENU."| 00000880: 00 A3 10 C6 02 A1 20 41 24 3A 41 B2 C5 28 41 24 |...... A$:A..(A$| 00000890: 29 3A 8B 20 41 B3 31 20 B0 20 41 B1 36 20 A7 20 |):. A.1 . A.6 . | 000008A0: 37 31 30 00 B6 10 D0 02 8B 20 41 B3 B1 31 20 A7 |710...... A..1 .| 000008B0: 20 89 20 39 31 30 00 D9 10 DA 02 8F 20 2A 2A 2A | . 910...... ***| 000008C0: 2A 2A 54 4F 20 54 41 42 55 4C 41 54 45 20 52 45 |**TO TABULATE RE| 000008D0: 53 55 4C 54 53 2A 2A 2A 2A 00 DF 10 E4 02 8F 00 |SULTS****.......| 000008E0: 0F 11 EE 02 99 20 22 93 54 49 4D 45 22 2C 22 4E |..... ".TIME","N| 000008F0: 55 4D 42 45 52 20 4F 46 22 2C 22 52 41 54 45 20 |UMBER OF","RATE | 00000900: 4F 46 22 2C 22 4E 55 4D 42 45 52 20 4F 46 22 00 |OF","NUMBER OF".| 00000910: 34 11 F8 02 99 20 2C 22 50 41 52 45 4E 54 53 22 |4.... ,"PARENTS"| 00000920: 2C 22 44 45 43 41 59 22 2C 22 44 41 55 47 48 54 |,"DECAY","DAUGHT| 00000930: 45 52 53 22 00 3D 11 02 03 43 4F B2 30 00 6B 11 |ERS".=...CO.0.k.| 00000940: 0C 03 81 20 58 B2 30 20 A4 20 54 4D 3A 99 20 58 |... X.0 . TM:. X| 00000950: 2C 4E 28 58 29 2C 4E 28 58 29 AB 4E 28 58 AA 31 |,N(X),N(X).N(X.1| 00000960: 29 2C 4E 28 30 29 AB 4E 28 58 29 00 85 11 16 03 |),N(0).N(X).....| 00000970: 43 4F B2 43 4F AA 31 3A 8B 20 43 4F B3 32 30 20 |CO.CO.1:. CO.20 | 00000980: A7 20 38 35 30 00 AA 11 20 03 99 3A 99 22 12 50 |. 850... ..:.".P| 00000990: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO | 000009A0: 43 4F 4E 54 49 4E 55 45 92 22 00 C1 11 2A 03 A1 |CONTINUE."...*..| 000009B0: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 38 31 | A$:. A$."" . 81| 000009C0: 30 00 F1 11 34 03 99 20 22 93 54 49 4D 45 22 2C |0...4.. ".TIME",| 000009D0: 22 4E 55 4D 42 45 52 20 4F 46 22 2C 22 52 41 54 |"NUMBER OF","RAT| 000009E0: 45 20 4F 46 22 2C 22 4E 55 4D 42 45 52 20 4F 46 |E OF","NUMBER OF| 000009F0: 22 00 16 12 3E 03 99 20 2C 22 50 41 52 45 4E 54 |"...>.. ,"PARENT| 00000A00: 53 22 2C 22 44 45 43 41 59 22 2C 22 44 41 55 47 |S","DECAY","DAUG| 00000A10: 48 54 45 52 53 22 00 1F 12 48 03 43 4F B2 30 00 |HTERS"...H.CO.0.| 00000A20: 27 12 52 03 82 20 58 00 54 12 5C 03 99 3A 99 22 |'.R.. X.T.\..:."| 00000A30: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR| 00000A40: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 | TO RETURN TO ME| 00000A50: 4E 55 92 22 00 6D 12 66 03 A1 20 41 24 3A 8B 20 |NU.".m.f.. A$:. | 00000A60: 41 24 B3 B1 22 20 22 20 A7 20 38 37 30 00 77 12 |A$.." " . 870.w.| 00000A70: 70 03 89 20 35 38 30 00 9C 12 7A 03 8F 20 2A 2A |p.. 580...z.. **| 00000A80: 2A 2A 2A 44 52 41 57 20 54 49 54 4C 45 53 20 46 |***DRAW TITLES F| 00000A90: 4F 52 20 47 52 41 50 48 53 2A 2A 2A 00 A2 12 84 |OR GRAPHS***....| 00000AA0: 03 8F 00 DE 12 8E 03 8B 20 41 B2 32 20 A7 20 99 |........ A.2 . .| 00000AB0: 22 93 4E 55 4D 42 45 52 20 4F 46 20 50 41 52 45 |".NUMBER OF PARE| 00000AC0: 4E 54 53 20 41 47 41 49 4E 53 54 20 54 49 4D 45 |NTS AGAINST TIME| 00000AD0: 22 3A 4D 41 B2 4E 28 30 29 3A 89 39 36 30 00 1C |":MA.N(0):.960..| 00000AE0: 13 98 03 8B 20 41 B2 33 20 A7 20 99 22 93 52 41 |.... A.3 . .".RA| 00000AF0: 54 45 20 4F 46 20 44 45 43 41 59 20 41 47 41 49 |TE OF DECAY AGAI| 00000B00: 4E 53 54 20 54 49 4D 45 22 3A 4D 41 B2 4E 28 30 |NST TIME":MA.N(0| 00000B10: 29 AB 4E 28 31 29 3A 89 20 39 36 30 00 5B 13 A2 |).N(1):. 960.[..| 00000B20: 03 8B 20 41 B2 34 20 A7 20 99 22 93 4E 55 4D 42 |.. A.4 . .".NUMB| 00000B30: 45 52 20 4F 46 20 44 41 55 47 48 54 45 52 53 20 |ER OF DAUGHTERS | 00000B40: 41 47 41 49 4E 53 54 20 54 49 4D 45 22 3A 4D 41 |AGAINST TIME":MA| 00000B50: B2 4E 28 30 29 3A 89 20 39 36 30 00 6F 13 AC 03 |.N(0):. 960.o...| 00000B60: 8B 20 41 B2 35 20 A7 20 9C 3A 89 20 31 30 30 00 |. A.5 . .:. 100.| 00000B70: 7A 13 B6 03 99 22 93 22 3A 80 00 9E 13 C0 03 8F |z....".":.......| 00000B80: 20 2A 2A 2A 2A 2A 2A 44 52 41 57 20 41 58 49 45 | ******DRAW AXIE| 00000B90: 53 20 46 4F 52 20 47 52 41 50 48 53 2A 2A 00 A4 |S FOR GRAPHS**..| 00000BA0: 13 CA 03 8F 00 D4 13 D4 03 99 20 22 4E 55 4D 42 |.......... "NUMB| 00000BB0: 45 52 20 46 52 4F 4D 20 30 20 54 4F 22 3B 4D 41 |ER FROM 0 TO";MA| 00000BC0: 3B 22 54 49 4D 45 20 46 52 4F 4D 20 30 20 54 4F |;"TIME FROM 0 TO| 00000BD0: 22 3B 54 4D 00 EC 13 DE 03 81 20 58 B2 31 20 A4 |";TM...... X.1 .| 00000BE0: 20 32 32 3A 99 22 A5 22 3A 82 20 58 00 F2 13 E8 | 22:.".":. X....| 00000BF0: 03 8F 00 22 14 F2 03 99 22 CC A4 A4 A4 A4 A4 A4 |..."....".......| 00000C00: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000C10: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000C20: 22 3B 00 42 14 FC 03 8F 20 2A 2A 2A 2A 2A 50 4C |";.B.... *****PL| 00000C30: 4F 54 20 47 52 41 50 48 2A 2A 2A 2A 2A 2A 2A 2A |OT GRAPH********| 00000C40: 2A 2A 00 48 14 06 04 8F 00 57 14 10 04 81 20 58 |**.H.....W.... X| 00000C50: B2 30 20 A4 20 54 4D 00 6A 14 1A 04 8B 20 41 B2 |.0 . TM.j.... A.| 00000C60: 32 20 A7 20 59 B2 4E 28 58 29 00 84 14 24 04 8B |2 . Y.N(X)...$..| 00000C70: 20 41 B2 33 20 A7 20 59 B2 4E 28 58 29 AB 4E 28 | A.3 . Y.N(X).N(| 00000C80: 58 AA 31 29 00 9C 14 2E 04 8B 20 41 B2 34 20 A7 |X.1)...... A.4 .| 00000C90: 20 59 B2 4E 28 30 29 AB 4E 28 58 29 00 CA 14 38 | Y.N(0).N(X)...8| 00000CA0: 04 97 20 33 33 37 32 38 AB 34 30 AC B5 28 32 32 |.. 33728.40..(22| 00000CB0: AC 59 AD 4D 41 AA 2E 35 29 AA B5 28 33 39 AC 58 |.Y.MA..5)..(39.X| 00000CC0: AD 54 4D AA 2E 35 29 2C 34 32 00 D2 14 42 04 82 |.TM..5),42...B..| 00000CD0: 20 58 00 EC 14 4C 04 A1 20 41 24 3A 8B 20 41 24 | X...L.. A$:. A$| 00000CE0: B3 B1 22 20 22 20 A7 20 31 31 30 30 00 F6 14 56 |.." " . 1100...V| 00000CF0: 04 89 20 35 38 30 00 00 00 FF F9 8F 20 28 43 29 |.. 580...... (C)| 00000D00: 20 31 39 38 30 20 4D 4F 44 45 52 4E 20 54 55 54 | 1980 MODERN TUT| 00000D10: 4F 52 49 41 4C 20 43 4F 4C 4C 45 47 45 00 00 00 |ORIAL COLLEGE...|
..(.... (C) 1980 MODERN TUTORIAL COLLEGE
.M.... ******************************.R.
... *RADIOACTIVE DECAY SIMULATION*......
* *...(.. *
BY DAVID PARKINSON *...2.. *
*...<.. * 27
TH DECEMBER 1979 *.+.F.. ***********
*******************.1.P...7.Z...\.D.. *
****INPUT STARTING VALUES***.B.N.....X..
".RADIOACTIVE DECAY SIMULATION"......"..
..........................".L....:. "WHA
T DECAY CONSTANT";LA...... LA..0 . LA..1
. 170... ..:."SORRY, RANGE IS FROM 0 TO
1":. 140...... N(101).J....:. "HOW MANY
ATOMS TO START WITH";N(0).J.... N(0)..2
. N(0)..800 . 210...H..:."SORRY, RANGE
IS FROM 2 TO 800":. 180...R.. N(0)..(N(0
)).0 . 230......:."PLEASE CHOOSE A WHOLE
NUMBER":. 180...... PS(N(0))......"..PL
EASE WAIT.".(.... ******SET UP ATOMS ON
SCREEN**.......J...PS(1).32888..(.(0).88
0).[.... X.2 . N(0).W.".PS(X).32888..(.(
1).880)..,.. X...6.. X.1 . N(0).C.@.. B
(PS(X))..32 . PS(X).32888..(.(1).880):.
320.T.J.. (PS(X)),81...T.. X...^.CL$."
".D
.H.CL$.CL$."............................
...........".M.R.."..PRESS SPACE BAR TO
START DECAY."...|.. A$:. A$.." " . 380..
.... ******RANDOM DECAY*****...........
. ".";CL$;".DECAY STARTING.":. X.1 . 800
:. X......"..PRESS SPACE AGAIN TO STOP D
ECAY.".:...."..";CL$;"NUMBER OF ATOMR ="
;N(TM);"TIME =";TM.T...TM.TM.1:N(TM).N(T
M.1).E.B.. X.1 . N(0)...L.. .(1).LA . B(
PS(X)).87 . 490...V.. PS(X),32:. Q.1 . 1
0:. Q.B.... PS(X),87:N(TM).N(TM).1.J....
X...... N(TM).0 . TM.100 . 530...... A$
:. A$." ". 530...... 430.5....".";CL$;".
PRESS SPACE BAR TO CONTINUE.".].... CL$;
"DECAY STOPPED AFTER TIME";TM.V.&.. A$:.
A$.." " . 550...0.. *****PRINT INSTRUCT
IONS*******...:.....D..".
.MENU."...N..:."PRESS 1 TO TABULATE RES
ULTS"...X..:. "PRESS 2 FOR A GRAPH OF NU
MBER OF PARENT".0.B.."ATOMS AGAINST TIME
.^.L..:."PRESS 3 FOR A GRAPH OF RATE OF
DECAY".R.V.."AGAINST TIME"......:. "PRES
S 4 FOR A GRAPH OF (NUMBER OF".H...."DAU
GHTER ATOMS=NUMBER OF PARTICLES"......"E
MITTED) AGAINST TIME"......:. "PRESS 5 T
O DO ANOTHER DECAY".6....:. "PRESS 6 TO
EXIT FROM THE PROGRAM".J....:. ".PRESS S
PACE BAR WHEN YOU WANT TO RETURN."......
".TO THIS MENU."...F.. A$:A.E(A$):. A.1
. A.6 . 710...P.. A..1 . . 910.Y.Z.. ***
**TO TABULATE RESULTS****............ ".
TIME","NUMBER OF","RATE OF","NUMBER OF".
4.... ,"PARENTS","DECAY","DAUGHTERS".=..
.CO.0.K.... X.0 . TM:. X,N(X),N(X).N(X.1
),N(0).N(X).....CO.CO.1:. CO.20 . 850...
..:.".PRESS ANY KEY TO CONTINUE.".A.*..
A$:. A$."" . 810...4.. ".TIME","NUMBER
OF","RATE OF","NUMBER OF"...>.. ,"PARENT
S","DECAY","DAUGHTERS"...H.CO.0.'.R.. X.
T.\..:.".PRESS SPACE BAR TO RETURN TO ME
NU.".M.F.. A$:. A$.." " . 870.W.P.. 580.
..Z.. *****DRAW TITLES FOR GRAPHS***....
........ A.2 . .".NUMBER OF PARENTS AGAI
NST TIME":MA.N(0):.960...... A.3 . .".RA
TE OF DECAY AGAINST TIME":MA.N(0).N(1):.
960.[.... A.4 . .".NUMBER OF DAUGHTERS
AGAINST TIME":MA.N(0):. 960.O.... A.5 .
.:. 100.Z....".":....... ******DRAW AXIE
S FOR GRAPHS**...J...T.T.. "NUMBER FROM
0 TO";MA;"TIME FROM 0 TO";TM...... X.1 .
22:.".":. X......."...."L..............
........................";.B.... *****PL
OT GRAPH**********.H.....W.... X.0 . TM.
J.... A.2 . Y.N(X)...$.. A.3 . Y.N(X).N(
X.1)...... A.4 . Y.N(0).N(X).J.8.. 33728
.40..(22.Y.MA..5)..(39.X.TM..5),42.R.B..
X...L.. A$:. A$.." " . 1100...V.. 580..
.... (C) 1980 MODERN TUTORIAL COLLEGE...
> CLICK IMAGE PREVIEW FOR FULL MODAL