LEAKRATE
FILE INFORMATION
FILENAME(S): LEAKRATE
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-20 14:30:32
APPEARS ON: 1 disk(s)
FILE HASH
5632a5eb4afb788fd9befea42588dff6870f09ef3cb921b46bdcc93d9df75066
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026ED | LEAKRATE | PRG | Treasure Chest - Klaus Der Suhler | 2 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 23 1C 0A 00 8F 20 20 20 20 20 20 2A 2A 2A |..#.... ***| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 00 45 1C 14 00 8F 20 20 20 20 20 20 2A |***.E.... *| 00000030: 20 20 20 20 20 20 4C 45 41 4B 52 41 54 45 20 20 | LEAKRATE | 00000040: 20 20 20 20 2A 00 67 1C 1E 00 8F 20 20 20 20 20 | *.g.... | 00000050: 20 2A 20 20 20 20 20 20 20 20 20 42 59 20 20 20 | * BY | 00000060: 20 20 20 20 20 20 2A 00 89 1C 28 00 8F 20 20 20 | *...(.. | 00000070: 20 20 20 2A 20 20 20 45 41 52 4C 20 57 4F 42 45 | * EARL WOBE| 00000080: 4E 53 4D 49 54 48 20 20 2A 00 AB 1C 32 00 8F 20 |NSMITH *...2.. | 00000090: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 1C 3C 00 |***********...<.| 000000B0: 8F 00 D3 1C 46 00 8F 20 20 20 20 20 20 2A 2A 2A |....F.. ***| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 00 F5 1C 50 00 8F 20 20 20 20 20 20 2A |***...P.. *| 000000E0: 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | THIS PROGRAM I| 000000F0: 53 20 20 20 2A 00 17 1D 5A 00 8F 20 20 20 20 20 |S *...Z.. | 00000100: 20 2A 20 55 53 45 44 20 54 4F 20 44 45 54 45 52 | * USED TO DETER| 00000110: 4D 49 4E 45 20 20 2A 00 38 1D 64 00 8F 20 20 20 |MINE *.8.d.. | 00000120: 20 20 2A 50 52 49 4D 41 52 59 20 54 4F 20 53 45 | *PRIMARY TO SE| 00000130: 43 4F 4E 44 41 52 59 2A 00 59 1D 6E 00 8F 20 20 |CONDARY*.Y.n.. | 00000140: 20 20 20 2A 20 20 20 20 4C 45 41 4B 52 41 54 45 | * LEAKRATE| 00000150: 53 20 49 4E 20 20 20 20 2A 00 7A 1D 78 00 8F 20 |S IN *.z.x.. | 00000160: 20 20 20 20 2A 20 50 52 45 53 53 55 52 49 5A 45 | * PRESSURIZE| 00000170: 44 20 57 41 54 45 52 20 20 2A 00 9B 1D 82 00 8F |D WATER *......| 00000180: 20 20 20 20 20 2A 20 20 20 20 20 52 45 41 43 54 | * REACT| 00000190: 4F 52 53 20 20 20 20 20 20 20 2A 00 BC 1D 8C 00 |ORS *.....| 000001A0: 8F 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **********| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 1D 96 |************....| 000001C0: 00 99 00 CF 1D A0 00 99 20 C7 28 31 34 37 29 00 |........ .(147).| 000001D0: D5 1D AA 00 99 00 FF 1D B4 00 99 22 20 20 20 20 |..........." | 000001E0: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".| 00000200: 05 1E BE 00 99 00 42 1E C8 00 85 22 42 4C 4F 57 |......B...."BLOW| 00000210: 44 4F 57 4E 20 46 4C 4F 57 20 50 45 52 20 53 54 |DOWN FLOW PER ST| 00000220: 45 41 4D 20 47 45 4E 45 52 41 54 4F 52 20 20 20 |EAM GENERATOR | 00000230: 20 20 20 20 28 4C 42 53 2F 48 52 2E 29 22 3B 51 | (LBS/HR.)";Q| 00000240: 42 44 00 71 1E D2 00 85 22 25 20 52 45 41 43 54 |BD.q...."% REACT| 00000250: 4F 52 20 50 4F 57 45 52 20 28 30 2D 31 30 30 29 |OR POWER (0-100)| 00000260: 22 3B 50 57 52 3A 50 57 52 B2 50 57 52 AD 31 30 |";PWR:PWR.PWR.10| 00000270: 30 00 85 1E DC 00 51 4D 53 B2 33 36 36 36 32 35 |0.....QMS.366625| 00000280: 30 AC 50 57 52 00 EA 1E E6 00 44 46 B2 31 30 3A |0.PWR.....DF.10:| 00000290: 8F 2A 20 41 43 54 49 56 49 54 59 20 52 45 4D 4F |.* ACTIVITY REMO| 000002A0: 56 45 44 20 42 59 20 43 4F 4E 44 45 4E 53 41 54 |VED BY CONDENSAT| 000002B0: 45 20 50 4F 4C 49 53 48 49 4E 47 20 44 45 4D 49 |E POLISHING DEMI| 000002C0: 4E 45 52 49 5A 45 52 20 49 46 20 43 50 53 20 49 |NERIZER IF CPS I| 000002D0: 53 20 4F 55 54 20 4F 46 20 53 45 52 56 49 43 45 |S OUT OF SERVICE| 000002E0: 20 54 48 45 4E 20 44 46 3D 31 00 23 1F F0 00 4B | THEN DF=1.#...K| 000002F0: B2 31 3A 8F 2A 20 41 4C 57 41 59 53 20 31 20 55 |.1:.* ALWAYS 1 U| 00000300: 4E 4C 45 53 53 20 41 20 50 4F 52 54 49 4F 4E 20 |NLESS A PORTION | 00000310: 4F 46 20 46 4C 4F 57 20 49 53 20 44 49 56 45 52 |OF FLOW IS DIVER| 00000320: 54 45 44 00 50 1F FA 00 58 B2 2E 33 30 33 34 3A |TED.P...X..3034:| 00000330: 8F 2A 20 46 4C 4F 57 20 42 59 50 41 53 53 45 44 |.* FLOW BYPASSED| 00000340: 20 41 52 4F 55 4E 44 20 50 4F 4C 49 53 48 45 52 | AROUND POLISHER| 00000350: 00 98 1F 04 01 50 B2 2E 30 30 32 35 3A 8F 2A 20 |.....P..0025:.* | 00000360: 43 41 4C 43 55 4C 41 54 45 44 20 25 20 50 41 52 |CALCULATED % PAR| 00000370: 54 49 54 49 4F 4E 49 4E 47 20 4F 46 20 53 54 45 |TITIONING OF STE| 00000380: 41 4D 20 43 41 52 52 59 4F 56 45 52 20 41 53 20 |AM CARRYOVER AS | 00000390: 46 52 41 43 54 49 4F 4E 00 A5 1F 0E 01 99 20 C7 |FRACTION...... .| 000003A0: 28 31 34 37 29 00 AB 1F 18 01 99 00 D8 1F 22 01 |(147).........".| 000003B0: 99 22 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ***********| 000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003D0: 2A 2A 2A 2A 2A 2A 2A 22 00 DE 1F 2C 01 99 00 05 |*******"...,....| 000003E0: 20 36 01 99 22 20 20 20 20 20 20 20 20 20 20 20 | 6.." | 000003F0: 50 52 49 4D 41 52 59 20 54 4F 20 53 45 43 4F 4E |PRIMARY TO SECON| 00000400: 44 41 52 59 22 00 2D 20 40 01 99 22 20 20 20 20 |DARY".- @.." | 00000410: 20 20 20 20 20 20 4C 45 41 4B 20 52 41 54 45 20 | LEAK RATE | 00000420: 43 41 4C 43 55 4C 41 54 49 4F 4E 53 22 00 5D 20 |CALCULATIONS".] | 00000430: 4A 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |J.."------------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A7 20 |------------".. | 00000460: 54 01 99 22 50 41 2E 20 46 41 2E 20 3D 20 22 50 |T.."PA. FA. = "P| 00000470: 3B 22 20 20 20 44 45 43 4F 4E 20 46 41 43 54 4F |;" DECON FACTO| 00000480: 52 3D 22 3B 44 46 3A 8F 2A 20 50 41 2E 20 46 41 |R=";DF:.* PA. FA| 00000490: 2E 20 3D 20 50 41 52 54 49 54 49 4F 4E 49 4E 47 |. = PARTITIONING| 000004A0: 20 46 41 43 54 4F 52 00 AD 20 5E 01 99 00 E2 20 | FACTOR.. ^.... | 000004B0: 68 01 99 22 46 52 41 43 54 49 4F 4E 20 4F 46 20 |h.."FRACTION OF | 000004C0: 53 54 45 41 4D 20 4E 4F 54 20 52 45 41 43 48 49 |STEAM NOT REACHI| 000004D0: 4E 47 20 48 4F 54 57 45 4C 4C 53 20 20 20 3D 22 |NG HOTWELLS ="| 000004E0: 3B 58 00 E8 20 72 01 99 00 1C 21 7C 01 99 22 46 |;X.. r....!|.."F| 000004F0: 52 41 43 54 49 4F 4E 20 4F 46 20 42 4C 4F 57 44 |RACTION OF BLOWD| 00000500: 4F 57 4E 20 52 45 41 43 48 49 4E 47 20 48 4F 54 |OWN REACHING HOT| 00000510: 57 45 4C 4C 53 20 20 20 3D 22 3B 4B 00 22 21 86 |WELLS =";K."!.| 00000520: 01 99 00 5B 21 90 01 85 20 22 44 4F 20 59 4F 55 |...[!... "DO YOU| 00000530: 20 57 49 53 48 20 54 4F 20 43 48 41 4E 47 45 20 | WISH TO CHANGE | 00000540: 41 4E 59 20 4F 46 20 54 48 45 20 41 42 4F 56 45 |ANY OF THE ABOVE| 00000550: 20 28 59 2F 4E 29 20 22 3B 41 24 00 88 21 9A 01 | (Y/N) ";A$..!..| 00000560: 99 22 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ***********| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000580: 2A 2A 2A 2A 2A 2A 2A 22 00 9D 21 A4 01 8B 20 41 |*******"..!... A| 00000590: 24 B2 22 59 22 20 A7 20 8D 20 35 31 30 00 A3 21 |$."Y" . . 510..!| 000005A0: AE 01 99 00 E0 21 B8 01 52 B2 28 28 28 28 4B AC |.....!..R.((((K.| 000005B0: 51 42 44 29 AA 28 50 AC 28 31 AB 58 29 AC 51 4D |QBD).(P.(1.X).QM| 000005C0: 53 29 29 AD 44 46 29 AA 28 58 AC 50 AC 51 4D 53 |S)).DF).(X.P.QMS| 000005D0: 29 29 AD 28 34 AC 28 51 42 44 AA 51 4D 53 29 29 |)).(4.(QBD.QMS))| 000005E0: 00 10 22 C2 01 41 B2 28 28 28 31 AB 52 29 AC 51 |.."..A.(((1.R).Q| 000005F0: 42 44 29 AD 31 34 30 37 30 30 29 AA 28 28 28 50 |BD).140700).(((P| 00000600: AB 52 29 AC 51 4D 53 29 AD 31 34 30 37 30 30 29 |.R).QMS).140700)| 00000610: 00 2C 22 CC 01 99 22 52 20 3D 20 41 28 46 57 29 |.,"..."R = A(FW)| 00000620: 2F 41 28 53 47 29 20 3D 20 22 3B 52 00 32 22 D6 |/A(SG) = ";R.2".| 00000630: 01 99 00 49 22 E0 01 99 22 41 4C 50 48 41 20 20 |...I"..."ALPHA | 00000640: 20 20 20 20 3D 20 22 3B 41 00 4F 22 EA 01 99 00 | = ";A.O"....| 00000650: 58 22 F4 01 89 36 30 30 00 7E 22 FE 01 85 20 22 |X"...600.~"... "| 00000660: 50 41 52 54 2E 20 46 41 43 54 2E 20 2E 2E 2E 2E |PART. FACT. ....| 00000670: 2E 2E 4F 4B 20 28 59 2F 4E 29 22 3B 50 24 00 9D |..OK (Y/N)";P$..| 00000680: 22 08 02 8B 20 50 24 B2 22 4E 22 20 A7 20 85 20 |"... P$."N" . . | 00000690: 22 4E 45 57 20 56 41 4C 55 45 22 3B 50 00 C3 22 |"NEW VALUE";P.."| 000006A0: 12 02 85 22 44 45 43 4F 4E 20 46 41 43 54 4F 52 |..."DECON FACTOR| 000006B0: 20 2E 2E 2E 2E 2E 2E 4F 4B 20 28 59 2F 4E 29 22 | ......OK (Y/N)"| 000006C0: 3B 44 24 00 E2 22 1C 02 8B 20 44 24 B2 22 4E 22 |;D$.."... D$."N"| 000006D0: 20 A7 20 85 22 4E 45 57 20 56 41 4C 55 45 22 3B | . ."NEW VALUE";| 000006E0: 44 46 00 14 23 26 02 85 22 46 52 41 43 54 2E 20 |DF..#&.."FRACT. | 000006F0: 4F 46 20 53 54 4D 20 42 59 50 41 53 53 20 48 4F |OF STM BYPASS HO| 00000700: 54 57 45 4C 4C 2E 2E 2E 2E 4F 4B 28 59 2F 4E 29 |TWELL....OK(Y/N)| 00000710: 22 3B 58 24 00 31 23 30 02 8B 20 58 24 B2 22 4E |";X$.1#0.. X$."N| 00000720: 22 A7 20 85 22 4E 45 57 20 56 41 4C 55 45 22 3B |". ."NEW VALUE";| 00000730: 58 00 70 23 3A 02 85 20 22 46 52 41 43 54 2E 20 |X.p#:.. "FRACT. | 00000740: 4F 46 20 42 4C 4F 57 44 4F 57 4E 20 52 45 54 55 |OF BLOWDOWN RETU| 00000750: 52 4E 49 4E 47 20 54 4F 20 48 4F 54 57 45 4C 4C |RNING TO HOTWELL| 00000760: 53 2E 2E 2E 2E 4F 4B 28 59 2F 4E 29 22 3B 4B 24 |S....OK(Y/N)";K$| 00000770: 00 8E 23 44 02 8B 20 4B 24 B2 22 4E 22 A7 20 85 |..#D.. K$."N". .| 00000780: 20 22 4E 45 57 20 56 41 4C 55 45 22 3B 4B 00 97 | "NEW VALUE";K..| 00000790: 23 4E 02 89 32 37 30 00 D4 23 58 02 85 22 45 4E |#N..270..#X.."EN| 000007A0: 54 45 52 20 49 53 4F 54 4F 50 45 20 28 49 31 33 |TER ISOTOPE (I13| 000007B0: 31 2C 49 31 33 32 2C 49 31 33 33 2C 43 53 31 33 |1,I132,I133,CS13| 000007C0: 34 2C 43 53 31 33 37 2C 4E 41 32 34 29 20 22 3B |4,CS137,NA24) ";| 000007D0: 49 53 4F 24 00 DA 23 62 02 99 00 F9 23 6C 02 8B |ISO$..#b....#l..| 000007E0: 20 49 53 4F 24 B2 22 49 31 33 31 22 A7 20 4C 41 | ISO$."I131". LA| 000007F0: 4D B2 2E 30 30 33 35 39 32 00 17 24 76 02 8B 20 |M..003592..$v.. | 00000800: 49 53 4F 24 B2 22 49 31 33 32 22 A7 20 4C 41 4D |ISO$."I132". LAM| 00000810: B2 2E 30 33 33 33 32 00 33 24 80 02 8B 20 49 53 |..03332.3$... IS| 00000820: 4F 24 B2 22 49 31 33 33 22 A7 20 4C 41 4D B2 2E |O$."I133". LAM..| 00000830: 33 30 34 00 54 24 8A 02 8B 20 49 53 4F 24 B2 22 |304.T$... ISO$."| 00000840: 43 53 31 33 34 22 A7 20 4C 41 4D B2 33 2E 38 33 |CS134". LAM.3.83| 00000850: 35 45 AB 35 00 75 24 94 02 8B 20 49 53 4F 24 B2 |5E.5.u$... ISO$.| 00000860: 22 43 53 31 33 37 22 A7 20 4C 41 4D B2 32 2E 36 |"CS137". LAM.2.6| 00000870: 32 31 45 AB 36 00 92 24 9E 02 8B 20 49 53 4F 24 |21E.6..$... ISO$| 00000880: B2 22 4E 41 32 34 22 A7 20 4C 41 4D B2 2E 30 34 |."NA24". LAM..04| 00000890: 36 32 00 CE 24 A8 02 85 22 41 43 54 49 56 49 54 |62..$..."ACTIVIT| 000008A0: 59 20 49 4E 20 53 54 45 41 4D 20 47 45 4E 45 52 |Y IN STEAM GENER| 000008B0: 41 54 4F 52 20 42 4C 4F 57 44 4F 57 4E 20 20 20 |ATOR BLOWDOWN | 000008C0: 20 28 55 43 49 2F 4D 4C 29 22 3B 41 53 47 00 F7 | (UCI/ML)";ASG..| 000008D0: 24 B2 02 85 20 22 41 43 54 49 56 49 54 59 20 49 |$... "ACTIVITY I| 000008E0: 4E 20 50 52 49 4D 41 52 59 20 28 55 43 49 2F 4D |N PRIMARY (UCI/M| 000008F0: 4C 29 20 22 3B 41 50 00 1B 25 BC 02 4C 52 B2 28 |L) ";AP..%..LR.(| 00000900: 41 AA 4C 41 4D 29 AC 31 34 30 37 30 30 AC 2E 30 |A.LAM).140700..0| 00000910: 30 32 37 37 AC 41 53 47 AD 41 50 00 3A 25 C6 02 |0277.ASG.AP.:%..| 00000920: 52 41 54 49 B2 28 41 AA 4C 41 4D 29 AC 31 34 30 |RATI.(A.LAM).140| 00000930: 37 30 30 AC 2E 30 30 32 37 37 00 40 25 D0 02 99 |700..00277.@%...| 00000940: 00 46 25 DA 02 99 00 4C 25 E4 02 99 00 6A 25 EE |.F%....L%....j%.| 00000950: 02 99 20 22 4C 45 41 4B 20 52 41 54 45 20 3D 20 |.. "LEAK RATE = | 00000960: 22 3B 4C 52 3B 22 47 50 4D 22 00 70 25 F8 02 99 |";LR;"GPM".p%...| 00000970: 00 94 25 02 03 99 20 22 4C 45 41 4B 20 52 41 54 |..%... "LEAK RAT| 00000980: 45 20 3D 20 22 3B 4C 52 AC 36 30 AC 32 34 3B 22 |E = ";LR.60.24;"| 00000990: 47 50 44 22 00 9A 25 0C 03 99 00 C6 25 16 03 85 |GPD"..%.....%...| 000009A0: 20 22 44 4F 20 59 4F 55 20 57 49 53 48 20 41 20 | "DO YOU WISH A | 000009B0: 48 41 52 44 20 43 4F 50 59 20 28 59 2F 4E 29 20 |HARD COPY (Y/N) | 000009C0: 22 3B 50 50 50 24 00 DD 25 20 03 8B 20 50 50 50 |";PPP$..% .. PPP| 000009D0: 24 B2 22 59 22 20 A7 20 8D 20 38 32 30 00 E7 25 |$."Y" . . 820..%| 000009E0: 2A 03 89 20 36 30 30 00 14 26 34 03 85 20 22 53 |*.. 600..&4.. "S| 000009F0: 41 4D 50 4C 45 20 44 41 54 45 2C 54 49 4D 45 20 |AMPLE DATE,TIME | 00000A00: 52 43 53 2C 54 49 4D 45 20 53 47 42 44 20 22 3B |RCS,TIME SGBD ";| 00000A10: 44 41 54 24 00 1A 26 3E 03 99 00 24 26 48 03 9F |DAT$..&>...$&H..| 00000A20: 20 31 2C 34 00 3A 26 52 03 98 31 2C C7 28 31 32 | 1,4.:&R..1,.(12| 00000A30: 29 3A 98 31 2C C7 28 31 33 29 00 93 26 5C 03 98 |):.1,.(13)..&\..| 00000A40: 31 2C 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |1,"*************| 00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A90: 2A 2A 22 00 A9 26 66 03 98 31 2C C7 28 31 33 29 |**"..&f..1,.(13)| 00000AA0: 3A 98 31 2C C7 28 31 33 29 00 DA 26 70 03 98 31 |:.1,.(13)..&p..1| 00000AB0: 2C 22 53 41 4D 50 4C 45 20 44 41 54 45 20 52 43 |,"SAMPLE DATE RC| 00000AC0: 53 20 54 49 4D 45 2F 53 47 42 44 20 54 49 4D 45 |S TIME/SGBD TIME| 00000AD0: 3A 20 20 20 22 3B 44 41 54 24 00 E7 26 7A 03 98 |: ";DAT$..&z..| 00000AE0: 31 2C C7 28 31 30 29 00 05 27 84 03 98 31 2C 22 |1,.(10)..'...1,"| 00000AF0: 46 4F 52 20 49 53 4F 54 4F 50 45 3A 20 20 20 22 |FOR ISOTOPE: "| 00000B00: 3B 49 53 4F 24 00 3F 27 8E 03 98 31 2C 22 43 4F |;ISO$.?'...1,"CO| 00000B10: 4E 43 45 4E 54 52 41 54 49 4F 4E 20 49 4E 20 53 |NCENTRATION IN S| 00000B20: 54 45 41 4D 20 47 45 4E 45 52 41 54 4F 52 20 42 |TEAM GENERATOR B| 00000B30: 4C 4F 57 44 4F 57 4E 3A 20 20 22 3B 41 53 47 00 |LOWDOWN: ";ASG.| 00000B40: 7D 27 98 03 98 31 2C 22 43 4F 4E 43 45 4E 54 52 |}'...1,"CONCENTR| 00000B50: 41 54 49 4F 4E 20 49 4E 20 50 52 49 4D 41 52 59 |ATION IN PRIMARY| 00000B60: 20 4C 4F 4F 50 20 28 52 45 41 43 54 4F 52 20 43 | LOOP (REACTOR C| 00000B70: 4F 4F 4C 41 4E 54 29 20 20 22 3B 41 50 00 8A 27 |OOLANT) ";AP..'| 00000B80: A2 03 98 31 2C C7 28 31 30 29 00 B6 27 AC 03 98 |...1,.(10)..'...| 00000B90: 31 2C 22 52 20 56 41 4C 55 45 20 3D 20 22 3B 52 |1,"R VALUE = ";R| 00000BA0: 3B 22 20 20 20 41 4C 50 48 41 20 56 41 4C 55 45 |;" ALPHA VALUE| 00000BB0: 20 3D 20 22 3B 41 00 E9 27 B6 03 98 31 2C 22 53 | = ";A..'...1,"S| 00000BC0: 47 42 44 20 46 4C 4F 57 20 22 3B 51 42 44 3B 22 |GBD FLOW ";QBD;"| 00000BD0: 20 50 41 52 54 49 54 49 4F 4E 49 4E 47 20 46 41 | PARTITIONING FA| 00000BE0: 43 54 4F 52 3A 20 22 3B 50 00 FF 27 C0 03 98 31 |CTOR: ";P..'...1| 00000BF0: 2C C7 28 31 33 29 3A 98 31 2C C7 28 31 30 29 00 |,.(13):.1,.(10).| 00000C00: 30 28 CA 03 98 31 2C 22 4C 45 41 4B 52 41 54 45 |0(...1,"LEAKRATE| 00000C10: 20 3D 20 22 3B 4C 52 3B 22 47 50 4D 20 20 20 20 | = ";LR;"GPM | 00000C20: 22 3B 4C 52 AC 36 30 AC 32 34 3B 22 47 50 44 22 |";LR.60.24;"GPD"| 00000C30: 00 37 28 D4 03 98 31 00 44 28 DE 03 98 31 2C C7 |.7(...1.D(...1,.| 00000C40: 28 31 32 29 00 9D 28 E8 03 98 31 2C 22 2A 2A 2A |(12)..(...1,"***| 00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 A5 28 |************"..(| 00000CA0: F2 03 A0 20 31 00 AB 28 FC 03 8E 00 00 00 |... 1..(...... |
..#.... **********************.E...
. * LEAKRATE *.G....
* BY *...(.. * E
ARL WOBENSMITH *...2.. ***********
***********...<...S.F.. ***********
***********...P.. * THIS PROGRAM I
S *...Z.. * USED TO DETERMINE *.
8.D.. *PRIMARY TO SECONDARY*.Y.N..
* LEAKRATES IN *.Z.X.. * PR
ESSURIZED WATER *...... * REACT
ORS *...... ******************
****.B.....O. .. G(147).U.........."
****************************".......B.
H.."BLOWDOWN FLOW PER STEAM GENERATOR
(LBS/HR.)";QBD.Q.R.."% REACTOR POWER
(0-100)";PWR:PWR.PWR.100.....QMS.366625
0.PWR.....DF.10:.* ACTIVITY REMOVED BY C
ONDENSATE POLISHING DEMINERIZER IF CPS I
S OUT OF SERVICE THEN DF=1.#...K.1:.* AL
WAYS 1 UNLESS A PORTION OF FLOW IS DIVER
TED.P...X..3034:.* FLOW BYPASSED AROUND
POLISHER.....P..0025:.* CALCULATED % PAR
TITIONING OF STEAM CARRYOVER AS FRACTION
...... G(147).......X.".." ***********
***********************"...,.... 6.."
PRIMARY TO SECONDARY".- @.."
LEAK RATE CALCULATIONS".] J.."----
------------------------------------"..
T.."PA. FA. = "P;" DECON FACTOR=";DF:.
* PA. FA. = PARTITIONING FACTOR.. ^....
H.."FRACTION OF STEAM NOT REACHING HOTWE
LLS =";X.. R....!|.."FRACTION OF BLOWD
OWN REACHING HOTWELLS =";K."!....[!...
"DO YOU WISH TO CHANGE ANY OF THE ABOVE
(Y/N) ";A$..!..." *******************
***************"..!... A$."Y" . . 510..!
.....!..R.((((K.QBD).(P.(1.X).QMS)).DF).
(X.P.QMS)).(4.(QBD.QMS)).."B.A.(((1.R).Q
BD).140700).(((P.R).QMS).140700).,"L.."R
= A(FW)/A(SG) = ";R.2"V...I"..."ALPHA
= ";A.O"....X"...600.~"... "PART. FA
CT. ......OK (Y/N)";P$.."... P$."N" . .
"NEW VALUE";P.C"..."DECON FACTOR ......O
K (Y/N)";D$.."... D$."N" . ."NEW VALUE";
DF..#&.."FRACT. OF STM BYPASS HOTWELL...
.OK(Y/N)";X$.1#0.. X$."N". ."NEW VALUE";
X.P#:.. "FRACT. OF BLOWDOWN RETURNING TO
HOTWELLS....OK(Y/N)";K$..#D.. K$."N". .
"NEW VALUE";K..#N..270.T#X.."ENTER ISOT
OPE (I131,I132,I133,CS134,CS137,NA24) ";
ISO$.Z#B....#L.. ISO$."I131". LAM..00359
2..$V.. ISO$."I132". LAM..03332.3$... IS
O$."I133". LAM..304.T$... ISO$."CS134".
LAM.3.835E.5.U$... ISO$."CS137". LAM.2.6
21E.6..$... ISO$."NA24". LAM..0462.N$...
"ACTIVITY IN STEAM GENERATOR BLOWDOWN
(UCI/ML)";ASG..$... "ACTIVITY IN PRIMAR
Y (UCI/ML) ";AP..%..LR.(A.LAM).140700..0
0277.ASG.AP.:%F.RATI.(A.LAM).140700..002
77.@%P...F%Z...L%....J%... "LEAK RATE =
";LR;"GPM".P%.....%... "LEAK RATE = ";LR
.60.24;"GPD"..%....F%... "DO YOU WISH A
HARD COPY (Y/N) ";PPP$..% .. PPP$."Y" .
. 820..%*.. 600..&4.. "SAMPLE DATE,TIME
RCS,TIME SGBD ";DAT$..&>...$&H.. 1,4.:&R
..1,G(12):.1,G(13)..&\..1,"*************
****************************************
**************************"..&F..1,G(13)
:.1,G(13).Z&P..1,"SAMPLE DATE RCS TIME/S
GBD TIME: ";DAT$..&Z..1,G(10)..'...1,"
FOR ISOTOPE: ";ISO$.?'...1,"CONCENTRAT
ION IN STEAM GENERATOR BLOWDOWN: ";ASG.
}'...1,"CONCENTRATION IN PRIMARY LOOP (R
EACTOR COOLANT) ";AP..'...1,G(10)..'...
1,"R VALUE = ";R;" ALPHA VALUE = ";A..
'...1,"SGBD FLOW ";QBD;" PARTITIONING FA
CTOR: ";P..'...1,G(13):.1,G(10).0(J..1,"
LEAKRATE = ";LR;"GPM ";LR.60.24;"GPD"
.7(T..1.D(...1,G(12)..(...1,"***********
****************************************
****************************"..(.. 1..(
......
> CLICK IMAGE PREVIEW FOR FULL MODAL