SAFETY VALVES
FILE INFORMATION
FILENAME(S): SAFETY VALVES
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-12-01 02:26:19
APPEARS ON: 1 disk(s)
FILE HASH
cb646670748d081746f004d4ceed8ac190763a3d978d1633cd6a51ec3787dd5b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | SAFETY VALVES | PRG | Shine | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 05 00 99 22 93 22 00 3A 08 0F 00 99 |.......".".:....| 00000010: 22 11 1D 2B 2B 2B 53 41 46 45 54 59 20 56 41 4C |"..+++SAFETY VAL| 00000020: 56 45 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 50 |VE CALCULATION P| 00000030: 52 4F 47 52 41 4D 2B 2B 2B 22 00 57 08 11 00 99 |ROGRAM+++".W....| 00000040: 22 54 59 50 45 20 49 4E 20 54 48 45 20 46 4F 4C |"TYPE IN THE FOL| 00000050: 4C 4F 57 49 4E 47 22 00 72 08 14 00 85 22 43 4C |LOWING".r...."CL| 00000060: 49 45 4E 54 20 20 20 20 20 20 20 20 20 3A 22 3B |IENT :";| 00000070: 43 24 00 8D 08 19 00 85 22 4A 4F 42 20 4E 4F 2E |C$......"JOB NO.| 00000080: 20 20 20 20 20 20 20 20 3A 22 3B 4A 24 00 A8 08 | :";J$...| 00000090: 1E 00 85 22 44 52 41 57 49 4E 47 20 4E 4F 2E 20 |..."DRAWING NO. | 000000A0: 20 20 20 3A 22 3B 44 24 00 C3 08 23 00 85 22 55 | :";D$...#.."U| 000000B0: 4E 49 54 20 4E 41 4D 45 20 20 20 20 20 20 3A 22 |NIT NAME :"| 000000C0: 3B 55 24 00 DE 08 28 00 85 22 43 41 4C 43 55 4C |;U$...(.."CALCUL| 000000D0: 41 54 45 44 20 42 59 20 20 3A 22 3B 42 24 00 E7 |ATED BY :";B$..| 000000E0: 08 55 00 99 22 93 22 00 18 09 56 00 99 22 11 1D |.U.."."...V.."..| 000000F0: 2B 2B 2B 53 41 46 45 54 59 20 56 41 4C 56 45 20 |+++SAFETY VALVE | 00000100: 43 41 4C 43 55 4C 41 54 49 4F 4E 20 50 52 4F 47 |CALCULATION PROG| 00000110: 52 41 4D 20 2B 2B 2B 22 00 35 09 5A 00 85 22 11 |RAM +++".5.Z..".| 00000120: 54 41 47 20 4E 55 4D 42 45 52 20 20 20 20 20 20 |TAG NUMBER | 00000130: 3A 22 3B 4E 24 00 51 09 5C 00 85 22 46 4C 55 49 |:";N$.Q.\.."FLUI| 00000140: 44 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B 46 |D :";F| 00000150: 24 00 6D 09 5F 00 85 22 53 45 52 56 49 43 45 20 |$.m._.."SERVICE | 00000160: 20 20 20 20 20 20 20 20 3A 22 3B 4C 24 00 76 09 | :";L$.v.| 00000170: 61 00 99 22 93 22 00 9F 09 6E 00 99 22 2A 47 41 |a.."."...n.."*GA| 00000180: 53 20 2F 20 56 41 50 4F 55 52 20 53 45 52 56 49 |S / VAPOUR SERVI| 00000190: 43 45 20 2A 20 20 20 20 20 20 20 20 20 31 22 00 |CE * 1".| 000001A0: A7 09 73 00 99 22 22 00 D0 09 78 00 99 22 2A 4C |..s..""...x.."*L| 000001B0: 49 51 55 49 44 20 53 45 52 56 49 43 45 20 2A 20 |IQUID SERVICE * | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 22 | 2"| 000001D0: 00 D8 09 7D 00 99 22 22 00 01 0A 82 00 99 22 2A |...}..""......"*| 000001E0: 53 54 45 41 4D 20 53 45 52 56 49 43 45 20 2A 20 |STEAM SERVICE * | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 | 3| 00000200: 22 00 09 0A 87 00 99 3A 99 00 31 0A 8C 00 85 22 |"......:..1...."| 00000210: 54 59 50 45 20 49 4E 20 4E 55 4D 42 45 52 20 4F |TYPE IN NUMBER O| 00000220: 46 20 53 45 52 56 49 43 45 20 20 20 3A 22 3B 53 |F SERVICE :";S| 00000230: 31 00 41 0A 96 00 8B 53 31 B2 31 A7 20 31 30 30 |1.A....S1.1. 100| 00000240: 30 00 52 0A 9B 00 8B 20 53 31 B2 32 A7 20 34 30 |0.R.... S1.2. 40| 00000250: 30 30 00 63 0A A0 00 8B 20 53 31 B2 33 A7 20 37 |00.c.... S1.3. 7| 00000260: 30 30 30 00 73 0A A5 00 8B 20 53 31 B3 31 A7 20 |000.s.... S1.1. | 00000270: 31 34 30 00 82 0A AA 00 8B 20 53 31 B1 33 A7 31 |140...... S1.3.1| 00000280: 34 30 00 8B 0A E8 03 99 22 93 22 00 BB 0A ED 03 |40......".".....| 00000290: 99 22 2A 2A 2A 43 41 4C 43 55 4C 41 54 49 4F 4E |."***CALCULATION| 000002A0: 20 46 4F 52 20 47 41 53 2F 56 41 50 4F 55 52 20 | FOR GAS/VAPOUR | 000002B0: 53 45 52 56 49 43 45 2A 2A 2A 22 00 DD 0A EE 03 |SERVICE***".....| 000002C0: 99 22 54 41 47 20 4E 4F 20 20 20 20 20 20 20 20 |."TAG NO | 000002D0: 20 20 20 20 20 20 20 20 3A 22 3B 4E 24 00 FF 0A | :";N$...| 000002E0: EF 03 85 22 52 45 4C 49 45 46 20 43 4F 4E 44 49 |..."RELIEF CONDI| 000002F0: 54 49 4F 4E 20 20 20 20 20 20 3A 22 3B 4B 24 00 |TION :";K$.| 00000300: 20 0B F0 03 85 22 52 45 4C 49 45 46 20 51 55 41 | ...."RELIEF QUA| 00000310: 4E 54 49 54 59 20 28 4B 47 2F 48 29 3A 22 3B 57 |NTITY (KG/H):";W| 00000320: 00 2E 0B F1 03 57 57 B2 57 AD 33 36 30 30 00 4F |.....WW.W.3600.O| 00000330: 0B F2 03 85 22 53 45 54 20 50 52 45 53 53 55 52 |...."SET PRESSUR| 00000340: 45 20 28 42 41 52 47 29 20 20 20 3A 22 3B 50 00 |E (BARG) :";P.| 00000350: 71 0B F4 03 85 22 42 41 43 4B 20 50 52 45 53 53 |q...."BACK PRESS| 00000360: 55 52 45 28 42 41 52 47 29 20 20 20 3A 22 3B 50 |URE(BARG) :";P| 00000370: 42 00 93 0B F6 03 85 22 41 43 43 55 4D 55 4C 41 |B......"ACCUMULA| 00000380: 54 49 4F 4E 20 28 25 29 20 20 20 20 20 20 3A 22 |TION (%) :"| 00000390: 3B 41 43 00 AF 0B F7 03 50 41 B2 50 AA 28 50 AC |;AC.....PA.P.(P.| 000003A0: 28 41 43 AD 31 30 30 29 29 AA 31 2E 30 31 33 00 |(AC.100)).1.013.| 000003B0: D1 0B F8 03 85 22 53 50 45 43 2E 48 45 41 54 20 |....."SPEC.HEAT | 000003C0: 52 41 54 49 4F 20 20 20 20 20 20 20 3A 22 3B 4B |RATIO :";K| 000003D0: 31 00 F2 0B F9 03 52 B2 28 32 AD 28 4B 31 AA 31 |1.....R.(2.(K1.1| 000003E0: 29 29 AE 28 28 4B 31 AA 31 29 AD 28 4B 31 AB 31 |)).((K1.1).(K1.1| 000003F0: 29 29 00 05 0C FA 03 43 31 B2 35 32 30 AC BA 28 |)).....C1.520..(| 00000400: 4B 31 AC 52 29 00 1C 0C FB 03 43 B2 B5 28 43 31 |K1.R).....C..(C1| 00000410: AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 3D 0C FE |.100..5).100.=..| 00000420: 03 85 22 44 49 53 43 48 2E 43 4F 45 46 46 20 20 |.."DISCH.COEFF | 00000430: 20 20 20 20 20 20 20 20 20 3A 22 3B 4B 00 4D 0C | :";K.M.| 00000440: FF 03 8B 4B B2 30 A7 20 4B B2 2E 39 37 00 5F 0C |...K.0. K..97._.| 00000450: 00 04 50 32 B2 28 50 42 AD 50 29 AC 31 30 30 00 |..P2.(PB.P).100.| 00000460: 71 0C 02 04 8B 20 50 32 B1 33 30 A7 20 31 30 32 |q.... P2.30. 102| 00000470: 38 00 7C 0C 03 04 89 20 31 30 33 34 00 B7 0C 04 |8.|.... 1034....| 00000480: 04 99 22 42 41 43 4B 20 50 52 45 53 53 55 52 45 |.."BACK PRESSURE| 00000490: 20 45 58 43 45 45 44 53 20 33 30 25 20 43 4F 4E | EXCEEDS 30% CON| 000004A0: 53 55 4C 54 20 41 50 49 20 52 50 20 35 32 30 20 |SULT API RP 520 | 000004B0: 50 41 52 54 20 49 22 00 D7 0C 06 04 99 22 54 41 |PART I"......"TA| 000004C0: 42 4C 45 20 43 32 20 46 4F 52 20 2A 4B 42 2A 20 |BLE C2 FOR *KB* | 000004D0: 46 41 43 54 4F 52 22 00 00 0D 0A 04 99 22 42 41 |FACTOR"......"BA| 000004E0: 43 4B 20 50 52 45 53 53 20 53 49 5A 49 4E 47 20 |CK PRESS SIZING | 000004F0: 46 41 43 54 20 2A 4B 42 2A 20 55 53 45 20 31 22 |FACT *KB* USE 1"| 00000500: 00 22 0D 0C 04 85 22 49 46 20 4E 4F 54 20 4F 54 |."...."IF NOT OT| 00000510: 48 45 52 57 2E 20 4E 4F 54 45 44 20 20 3A 22 3B |HERW. NOTED :";| 00000520: 4B 42 00 43 0D 0E 04 85 22 47 41 53 20 4D 4F 4C |KB.C...."GAS MOL| 00000530: 20 57 45 49 47 48 54 20 20 20 20 20 20 20 20 3A | WEIGHT :| 00000540: 22 3B 4D 00 64 0D 10 04 85 22 43 4F 4D 50 52 2E |";M.d...."COMPR.| 00000550: 46 41 43 54 2E 20 20 20 20 20 20 20 20 20 20 20 |FACT. | 00000560: 3A 22 3B 5A 00 73 0D 11 04 8B 20 5A B2 30 A7 20 |:";Z.s.... Z.0. | 00000570: 5A B2 31 00 94 0D 12 04 85 22 52 45 4C 49 45 46 |Z.1......"RELIEF| 00000580: 20 54 45 4D 50 2E 20 28 44 47 52 20 43 29 20 20 | TEMP. (DGR C) | 00000590: 3A 22 3B 54 00 A1 0D 14 04 54 41 B2 54 AA 32 37 |:";T.....TA.T.27| 000005A0: 33 00 C9 0D 16 04 41 B2 57 57 AC 34 37 33 36 34 |3.....A.WW.47364| 000005B0: 30 AD 50 41 AD 43 AD 4B AD 4B 42 AD 28 BA 28 4D |0.PA.C.K.KB.(.(M| 000005C0: AD 28 5A AC 54 41 29 29 29 00 D9 0D 18 04 41 41 |.(Z.TA))).....AA| 000005D0: B2 41 AD 36 34 35 2E 31 36 00 0E 0E 1A 04 99 22 |.A.645.16......"| 000005E0: 4F 52 49 46 49 43 45 20 41 52 45 41 20 3D 20 22 |ORIFICE AREA = "| 000005F0: 3B 41 20 22 4D 4D 32 20 20 20 4F 52 20 3D 22 3B |;A "MM2 OR =";| 00000600: 41 41 20 22 20 20 53 51 2E 49 4E 43 48 22 00 16 |AA " SQ.INCH"..| 00000610: 0E 1B 04 99 3A 99 00 58 0E 24 04 85 22 43 48 41 |....:..X.$.."CHA| 00000620: 4E 47 45 20 41 4E 59 20 49 4E 50 55 54 28 31 29 |NGE ANY INPUT(1)| 00000630: 3B 20 4F 54 48 45 52 20 53 45 52 56 49 43 45 20 |; OTHER SERVICE | 00000640: 28 32 29 20 4F 52 20 50 52 49 4E 54 20 4F 55 54 |(2) OR PRINT OUT| 00000650: 20 28 33 29 22 3B 53 32 00 6A 0E 2E 04 8B 20 53 | (3)";S2.j.... S| 00000660: 32 B2 31 20 A7 20 31 30 30 37 00 79 0E 30 04 8B |2.1 . 1007.y.0..| 00000670: 20 53 32 B2 32 20 A7 39 37 00 8B 0E 32 04 8B 20 | S2.2 .97...2.. | 00000680: 53 32 B2 33 20 A7 20 31 33 30 30 00 9C 0E 34 04 |S2.3 . 1300...4.| 00000690: 8B 20 53 32 B3 31 A7 20 31 30 36 30 00 AE 0E 36 |. S2.1. 1060...6| 000006A0: 04 8B 20 53 32 B1 33 20 A7 20 31 30 36 30 00 B7 |.. S2.3 . 1060..| 000006B0: 0E 14 05 99 22 93 22 00 DD 0E 1E 05 99 22 43 4C |...."."......"CL| 000006C0: 49 45 4E 54 20 20 20 3A 22 3B 43 24 22 20 20 20 |IENT :";C$" | 000006D0: 55 4E 49 54 20 20 20 20 3A 22 3B 55 24 00 03 0F |UNIT :";U$...| 000006E0: 21 05 99 22 4A 4F 42 20 4E 4F 20 20 20 3A 22 3B |!.."JOB NO :";| 000006F0: 4A 24 22 20 20 20 44 57 47 20 4E 4F 20 20 3A 22 |J$" DWG NO :"| 00000700: 3B 44 24 00 18 0F 22 05 99 22 43 41 4C 43 2E 20 |;D$...".."CALC. | 00000710: 42 59 20 3A 22 3B 42 24 00 2D 0F 28 05 99 22 54 |BY :";B$.-.(.."T| 00000720: 41 47 20 4E 4F 20 20 20 3A 22 3B 4E 24 00 42 0F |AG NO :";N$.B.| 00000730: 29 05 99 22 53 45 52 56 49 43 45 20 20 3A 22 3B |).."SERVICE :";| 00000740: 4C 24 00 6E 0F 2A 05 99 22 46 4C 55 49 44 20 20 |L$.n.*.."FLUID | 00000750: 20 20 3A 22 3B 46 24 22 20 20 20 47 41 53 2F 56 | :";F$" GAS/V| 00000760: 41 50 4F 55 52 20 53 45 52 56 49 43 45 22 00 8F |APOUR SERVICE"..| 00000770: 0F 2C 05 99 22 43 4F 56 45 52 4E 49 4E 47 20 52 |.,.."COVERNING R| 00000780: 45 4C 49 45 46 20 43 4F 4E 44 3A 22 3B 4B 24 00 |ELIEF COND:";K$.| 00000790: 95 0F 2D 05 99 00 C5 0F 2E 05 99 22 52 45 4C 49 |..-........"RELI| 000007A0: 45 46 20 51 54 59 20 20 20 20 3A 22 3B 57 22 20 |EF QTY :";W" | 000007B0: 4B 47 2F 48 20 3D 20 22 3B 57 57 22 20 20 4B 47 |KG/H = ";WW" KG| 000007C0: 2F 53 45 43 22 00 E5 0F 30 05 99 22 53 45 54 20 |/SEC"...0.."SET | 000007D0: 50 52 45 53 53 20 20 20 20 20 3A 22 3B 50 22 20 |PRESS :";P" | 000007E0: 42 41 52 47 22 00 03 10 31 05 99 22 41 43 43 55 |BARG"...1.."ACCU| 000007F0: 4D 55 4C 2E 20 20 20 20 20 20 3A 22 3B 41 43 22 |MUL. :";AC"| 00000800: 20 25 22 00 24 10 32 05 99 22 41 42 53 20 50 52 | %".$.2.."ABS PR| 00000810: 45 53 53 20 20 20 20 20 3A 22 3B 50 41 22 20 42 |ESS :";PA" B| 00000820: 41 52 41 22 00 45 10 33 05 99 22 42 41 43 4B 20 |ARA".E.3.."BACK | 00000830: 50 52 45 53 53 2E 20 20 20 3A 22 3B 50 42 22 20 |PRESS. :";PB" | 00000840: 42 41 52 47 22 00 74 10 34 05 99 22 52 45 4C 49 |BARG".t.4.."RELI| 00000850: 45 46 20 54 45 4D 50 20 20 20 3A 22 3B 54 22 20 |EF TEMP :";T" | 00000860: 44 45 47 52 2E 20 43 22 3B 54 41 22 20 4B 45 4C |DEGR. C";TA" KEL| 00000870: 56 49 4E 22 00 8D 10 36 05 99 22 4D 4F 4C 20 57 |VIN"...6.."MOL W| 00000880: 45 49 47 48 54 20 20 20 20 3A 22 3B 4D 00 A6 10 |EIGHT :";M...| 00000890: 37 05 99 22 43 4F 4D 50 52 45 53 53 20 46 41 43 |7.."COMPRESS FAC| 000008A0: 54 2E 3A 22 3B 5A 00 C0 10 38 05 99 22 53 50 45 |T.:";Z...8.."SPE| 000008B0: 43 2E 48 45 41 54 20 52 2E 20 20 3A 22 3B 4B 31 |C.HEAT R. :";K1| 000008C0: 00 D9 10 39 05 99 22 46 41 43 54 2E 20 20 20 20 |...9.."FACT. | 000008D0: 20 20 20 20 20 3A 22 3B 43 00 F2 10 3A 05 99 22 | :";C...:.."| 000008E0: 44 49 53 43 48 2E 43 4F 45 46 46 2E 20 20 3A 22 |DISCH.COEFF. :"| 000008F0: 3B 4B 00 0C 11 3B 05 99 22 42 50 20 53 49 5A 20 |;K...;.."BP SIZ | 00000900: 46 41 43 54 2E 20 20 3A 22 3B 4B 42 00 3D 11 3C |FACT. :";KB.=.<| 00000910: 05 99 22 43 41 4C 43 2E 20 4F 52 49 46 49 43 45 |.."CALC. ORIFICE| 00000920: 20 41 52 45 41 20 3D 22 3B 41 22 20 4D 4D 32 20 | AREA =";A" MM2 | 00000930: 3D 22 3B 41 41 22 20 53 51 2E 49 4E 22 00 76 11 |=";AA" SQ.IN".v.| 00000940: 46 05 85 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |F.."DO YOU WANT | 00000950: 54 4F 20 4D 41 4B 45 20 41 4E 20 4F 54 48 45 52 |TO MAKE AN OTHER| 00000960: 20 43 41 4C 43 55 4C 41 54 49 4F 4E 3F 28 59 2F | CALCULATION?(Y/| 00000970: 4E 29 22 3B 53 24 00 7E 11 48 05 99 3A 99 00 8F |N)";S$.~.H..:...| 00000980: 11 4C 05 8B 20 53 24 B2 22 59 22 A7 20 38 35 00 |.L.. S$."Y". 85.| 00000990: A0 11 4E 05 8B 20 53 24 B3 B1 22 59 22 A7 20 80 |..N.. S$.."Y". .| 000009A0: 00 A9 11 DC 05 99 22 93 22 00 B2 11 A0 0F 99 22 |......"."......"| 000009B0: 93 22 00 D8 11 A5 0F 99 22 43 41 4C 43 55 4C 41 |."......"CALCULA| 000009C0: 54 49 4F 4E 20 46 4F 52 20 4C 49 51 55 49 44 20 |TION FOR LIQUID | 000009D0: 53 45 52 56 49 43 45 22 00 F9 11 AA 0F 99 22 54 |SERVICE"......"T| 000009E0: 41 47 20 4E 4F 2E 20 20 20 20 20 20 20 20 20 20 |AG NO. | 000009F0: 20 20 20 20 3A 22 3B 4E 24 00 1A 12 AF 0F 85 22 | :";N$......"| 00000A00: 52 45 4C 49 45 46 20 43 4F 4E 44 2E 20 20 20 20 |RELIEF COND. | 00000A10: 20 20 20 20 20 3A 22 3B 4B 24 00 3A 12 B0 0F 85 | :";K$.:....| 00000A20: 22 52 45 4C 2E 20 43 41 50 2E 28 4B 47 2F 48 29 |"REL. CAP.(KG/H)| 00000A30: 20 20 20 20 20 20 3A 22 3B 57 00 48 12 B2 0F 57 | :";W.H...W| 00000A40: 57 B2 57 AD 33 36 30 30 00 66 12 B4 0F 85 22 53 |W.W.3600.f...."S| 00000A50: 45 54 20 50 52 45 53 53 20 28 42 41 52 47 29 20 |ET PRESS (BARG) | 00000A60: 20 20 3A 22 3B 50 00 85 12 B7 0F 85 22 42 41 43 | :";P......"BAC| 00000A70: 4B 20 50 52 45 53 53 2E 28 42 41 52 47 29 20 20 |K PRESS.(BARG) | 00000A80: 3A 22 3B 50 42 00 A4 12 BA 0F 85 22 41 43 43 2E |:";PB......"ACC.| 00000A90: 20 49 4E 20 25 28 35 2D 31 30 2D 32 35 29 20 3A | IN %(5-10-25) :| 00000AA0: 22 3B 41 43 00 B5 12 BE 0F 8B 20 41 43 B3 35 A7 |";AC...... AC.5.| 00000AB0: 20 41 31 B2 30 00 E1 12 C0 0F 8B 41 43 B2 35 A7 | A1.0......AC.5.| 00000AC0: 20 41 31 B2 32 30 31 2E 39 3A 8B 41 43 B2 36 A7 | A1.201.9:.AC.6.| 00000AD0: 20 41 31 B2 30 3A 8B 20 41 43 B2 37 A7 41 31 B2 | A1.0:. AC.7.A1.| 00000AE0: 30 00 FE 12 C2 0F 8B 20 41 43 B2 38 A7 20 41 31 |0...... AC.8. A1| 00000AF0: B2 30 3A 8B 41 43 B2 39 A7 20 41 31 B2 30 00 12 |.0:.AC.9. A1.0..| 00000B00: 13 C3 0F 8B 41 43 B2 31 30 A7 41 31 B2 31 31 37 |....AC.10.A1.117| 00000B10: 2E 38 00 3D 13 C6 0F 8B 20 41 43 B2 31 31 A7 41 |.8.=.... AC.11.A| 00000B20: 31 B2 30 3A 8B 41 43 B2 31 32 A7 41 31 B2 30 3A |1.0:.AC.12.A1.0:| 00000B30: 8B 41 43 B2 31 33 20 A7 20 41 31 B2 30 00 69 13 |.AC.13 . A1.0.i.| 00000B40: C8 0F 8B 20 41 43 B2 31 34 A7 20 41 31 B2 30 3A |... AC.14. A1.0:| 00000B50: 8B 41 43 B2 31 35 A7 20 41 31 B2 30 3A 8B 41 43 |.AC.15. A1.0:.AC| 00000B60: B2 31 36 A7 20 41 31 B2 30 00 95 13 CD 0F 8B 20 |.16. A1.0...... | 00000B70: 41 43 B2 31 37 A7 20 41 31 B2 30 3A 8B 41 43 B2 |AC.17. A1.0:.AC.| 00000B80: 31 38 A7 20 41 31 B2 30 3A 8B 41 43 B2 31 39 A7 |18. A1.0:.AC.19.| 00000B90: 20 41 31 B2 30 00 C1 13 D2 0F 8B 20 41 43 B2 32 | A1.0...... AC.2| 00000BA0: 30 A7 20 41 31 B2 30 3A 8B 41 43 B2 32 31 A7 20 |0. A1.0:.AC.21. | 00000BB0: 41 31 B2 30 3A 8B 41 43 B2 32 32 A7 20 41 31 B2 |A1.0:.AC.22. A1.| 00000BC0: 30 00 E0 13 D7 0F 8B 20 41 43 B2 32 33 A7 20 41 |0...... AC.23. A| 00000BD0: 31 B2 30 3A 8B 41 43 B2 32 34 A7 20 41 31 B2 30 |1.0:.AC.24. A1.0| 00000BE0: 00 F4 13 D8 0F 8B 41 43 B2 32 35 A7 20 41 31 B2 |......AC.25. A1.| 00000BF0: 37 30 2E 37 00 05 14 DC 0F 8B 41 43 B1 32 35 A7 |70.7......AC.25.| 00000C00: 20 41 31 B2 30 00 15 14 E1 0F 8B 41 31 B2 30 A7 | A1.0......A1.0.| 00000C10: 20 34 30 37 30 00 1F 14 E2 0F 89 34 30 38 30 00 | 4070......4080.| 00000C20: 48 14 E6 0F 99 22 59 4F 55 20 54 59 50 45 44 20 |H...."YOU TYPED | 00000C30: 49 4E 20 54 48 45 20 57 52 4F 4E 47 20 50 45 52 |IN THE WRONG PER| 00000C40: 43 45 4E 54 41 47 45 22 00 61 14 E7 0F 99 22 11 |CENTAGE".a....".| 00000C50: 1D 1D 55 53 45 20 35 20 31 30 20 4F 52 20 32 35 |..USE 5 10 OR 25| 00000C60: 22 00 6B 14 EB 0F 89 34 30 32 36 00 7D 14 F0 0F |".k....4026.}...| 00000C70: 50 33 B2 28 50 42 AD 50 29 AC 31 30 30 00 85 14 |P3.(PB.P).100...| 00000C80: F5 0F 99 41 31 00 96 14 FA 0F 8B 50 33 B1 31 35 |...A1......P3.15| 00000C90: A7 20 34 31 30 30 00 A0 14 FF 0F 89 34 31 31 30 |. 4100......4110| 00000CA0: 00 CE 14 04 10 99 22 42 41 43 4B 20 50 52 45 53 |......"BACK PRES| 00000CB0: 53 20 45 58 43 45 45 44 53 20 31 35 25 20 55 53 |S EXCEEDS 15% US| 00000CC0: 45 20 54 41 42 4C 45 20 43 35 20 4F 46 22 00 F7 |E TABLE C5 OF"..| 00000CD0: 14 09 10 99 22 41 50 49 20 52 50 20 35 32 30 20 |...."API RP 520 | 00000CE0: 46 4F 52 20 43 4F 52 52 45 43 54 20 28 4B 57 29 |FOR CORRECT (KW)| 00000CF0: 46 41 43 54 4F 52 22 00 18 15 0E 10 85 22 42 41 |FACTOR"......"BA| 00000D00: 43 4B 20 50 52 45 53 53 20 53 49 5A 2E 46 41 43 |CK PRESS SIZ.FAC| 00000D10: 54 2E 20 3A 22 3B 4B 57 00 29 15 10 10 8B 20 4B |T. :";KW.).... K| 00000D20: 57 B2 30 A7 20 4B 57 B2 31 00 49 15 13 10 85 22 |W.0. KW.1.I...."| 00000D30: 44 49 53 43 48 2E 43 4F 45 46 46 2E 20 20 20 20 |DISCH.COEFF. | 00000D40: 20 20 20 20 20 3A 22 3B 4B 00 5A 15 14 10 8B 4B | :";K.Z....K| 00000D50: B2 30 20 A7 20 4B B2 2E 36 32 00 7A 15 18 10 85 |.0 . K..62.z....| 00000D60: 22 4C 49 51 55 49 44 20 53 50 45 43 20 47 52 41 |"LIQUID SPEC GRA| 00000D70: 56 49 54 59 20 20 3A 22 3B 47 00 9A 15 1C 10 85 |VITY :";G......| 00000D80: 22 52 45 4C 49 45 46 20 54 45 4D 50 2E 20 28 44 |"RELIEF TEMP. (D| 00000D90: 47 52 20 43 29 20 3A 22 3B 54 00 A7 15 1D 10 54 |GR C) :";T.....T| 00000DA0: 41 B2 54 AA 32 37 33 00 CD 15 22 10 41 B2 41 31 |A.T.273...".A.A1| 00000DB0: AC 57 57 AD 4B AD 4B 57 AD 28 BA 28 47 AC 28 28 |.WW.K.KW.(.(G.((| 00000DC0: 31 2E 32 35 AC 50 29 AB 50 42 29 29 29 00 DD 15 |1.25.P).PB)))...| 00000DD0: 25 10 41 41 B2 41 AD 36 34 35 2E 31 36 00 0B 16 |%.AA.A.645.16...| 00000DE0: 2C 10 99 22 4F 52 49 46 49 43 45 20 41 52 45 41 |,.."ORIFICE AREA| 00000DF0: 20 3D 22 3B 41 22 20 4D 4D 32 20 4F 52 22 3B 41 | =";A" MM2 OR";A| 00000E00: 41 22 20 53 51 2E 49 4E 43 48 22 00 13 16 2F 10 |A" SQ.INCH".../.| 00000E10: 99 3A 99 00 5C 16 31 10 85 22 43 48 41 4E 47 45 |.:..\.1.."CHANGE| 00000E20: 20 41 4E 59 20 49 4E 50 55 54 20 28 31 29 2C 20 | ANY INPUT (1), | 00000E30: 4F 54 48 45 52 20 53 45 52 56 49 43 45 28 32 29 |OTHER SERVICE(2)| 00000E40: 2C 20 4F 52 20 57 41 4E 54 20 41 20 50 52 49 4E |, OR WANT A PRIN| 00000E50: 54 20 4F 55 54 28 33 29 22 3B 53 36 00 6E 16 36 |T OUT(3)";S6.n.6| 00000E60: 10 8B 20 53 36 B2 31 20 A7 20 34 30 31 35 00 7E |.. S6.1 . 4015.~| 00000E70: 16 38 10 8B 20 53 36 B2 32 20 A7 20 39 37 00 8F |.8.. S6.2 . 97..| 00000E80: 16 39 10 8B 20 53 36 B2 33 A7 20 35 30 30 30 00 |.9.. S6.3. 5000.| 00000E90: A1 16 3B 10 8B 20 53 36 B3 31 20 A7 20 34 31 34 |..;.. S6.1 . 414| 00000EA0: 35 00 B1 16 3D 10 8B 53 36 B1 33 A7 20 34 31 34 |5...=..S6.3. 414| 00000EB0: 35 00 BA 16 88 13 99 22 93 22 00 DE 16 8D 13 99 |5......"."......| 00000EC0: 22 43 4C 49 45 4E 54 20 20 3A 22 3B 43 24 22 20 |"CLIENT :";C$" | 00000ED0: 20 55 4E 49 54 20 20 20 20 3A 22 3B 55 24 00 02 | UNIT :";U$..| 00000EE0: 17 92 13 99 22 4A 4F 42 20 4E 4F 20 20 3A 22 3B |...."JOB NO :";| 00000EF0: 4A 24 22 20 20 44 57 47 20 4E 4F 20 20 3A 22 3B |J$" DWG NO :";| 00000F00: 44 24 00 16 17 96 13 99 22 53 45 52 56 49 43 45 |D$......"SERVICE| 00000F10: 20 3A 22 3B 4C 24 00 2A 17 97 13 99 22 54 41 47 | :";L$.*...."TAG| 00000F20: 20 4E 4F 20 20 3A 22 3B 4E 24 00 50 17 98 13 99 | NO :";N$.P....| 00000F30: 22 46 4C 55 49 44 20 20 20 3A 22 3B 46 24 22 20 |"FLUID :";F$" | 00000F40: 20 4C 49 51 55 49 44 20 53 45 52 56 49 43 45 22 | LIQUID SERVICE"| 00000F50: 00 56 17 9A 13 99 00 77 17 9C 13 99 22 43 4F 56 |.V.....w...."COV| 00000F60: 45 52 4E 49 4E 47 20 52 45 4C 49 45 46 20 43 4F |ERNING RELIEF CO| 00000F70: 4E 44 3A 22 3B 4B 24 00 A6 17 9F 13 99 22 52 45 |ND:";K$......"RE| 00000F80: 4C 49 45 46 20 51 54 59 20 20 20 20 3A 22 3B 57 |LIEF QTY :";W| 00000F90: 22 20 4B 47 2F 48 20 3D 20 22 3B 57 57 22 20 4B |" KG/H = ";WW" K| 00000FA0: 47 2F 53 45 43 22 00 C6 17 A2 13 99 22 53 45 54 |G/SEC"......"SET| 00000FB0: 20 50 52 45 53 53 20 20 20 20 20 3A 22 3B 50 22 | PRESS :";P"| 00000FC0: 20 42 41 52 47 22 00 E4 17 A3 13 99 22 41 43 43 | BARG"......"ACC| 00000FD0: 55 4D 55 4C 2E 20 20 20 20 20 20 3A 22 3B 41 43 |UMUL. :";AC| 00000FE0: 22 20 25 22 00 05 18 B0 13 99 22 42 41 43 4B 20 |" %"......"BACK | 00000FF0: 50 52 45 53 53 20 20 20 20 3A 22 3B 50 42 22 20 |PRESS :";PB" | 00001000: 42 41 52 47 22 00 1E 18 B3 13 99 22 53 50 45 43 |BARG"......"SPEC| 00001010: 2E 20 47 52 41 56 49 54 59 20 3A 22 3B 47 00 37 |. GRAVITY :";G.7| 00001020: 18 BA 13 99 22 44 49 53 43 48 2E 43 4F 45 46 46 |...."DISCH.COEFF| 00001030: 2E 20 20 3A 22 3B 4B 00 51 18 BB 13 99 22 42 50 |. :";K.Q...."BP| 00001040: 20 53 49 5A 45 20 46 41 43 54 4F 52 3A 22 3B 4B | SIZE FACTOR:";K| 00001050: 42 00 8A 18 BF 13 99 22 43 41 4C 43 55 4C 41 54 |B......"CALCULAT| 00001060: 45 44 20 4F 52 49 46 49 43 45 20 41 52 45 41 20 |ED ORIFICE AREA | 00001070: 22 3B 41 22 20 4D 4D 32 20 4F 52 20 22 3B 41 41 |";A" MM2 OR ";AA| 00001080: 22 20 53 51 2E 49 4E 43 48 22 00 90 18 C1 13 99 |" SQ.INCH"......| 00001090: 00 CC 18 C4 13 85 22 44 4F 20 59 4F 55 20 57 41 |......"DO YOU WA| 000010A0: 4E 54 20 54 4F 20 4D 41 4B 45 20 41 4E 4F 54 48 |NT TO MAKE ANOTH| 000010B0: 45 52 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 28 |ER CALCULATION (| 000010C0: 59 3D 31 3B 4E 3D 32 29 22 3B 53 37 00 DB 18 D8 |Y=1;N=2)";S7....| 000010D0: 13 8B 20 53 37 B2 31 A7 20 38 35 00 E1 18 DD 13 |.. S7.1. 85.....| 000010E0: 80 00 EA 18 58 1B 99 22 93 22 00 0F 19 62 1B 99 |....X.."."...b..| 000010F0: 22 43 41 4C 43 55 4C 41 54 49 4F 4E 20 46 4F 52 |"CALCULATION FOR| 00001100: 20 53 54 45 41 4D 20 53 45 52 56 49 43 45 22 00 | STEAM SERVICE".| 00001110: 30 19 67 1B 99 22 54 41 47 20 4E 4F 20 20 20 20 |0.g.."TAG NO | 00001120: 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B 4E 24 | :";N$| 00001130: 00 51 19 6A 1B 85 22 52 45 4C 49 45 46 20 43 4F |.Q.j.."RELIEF CO| 00001140: 4E 44 49 54 49 4F 4E 20 20 20 20 20 3A 22 3B 4B |NDITION :";K| 00001150: 24 00 71 19 6C 1B 85 22 52 45 4C 49 45 46 20 51 |$.q.l.."RELIEF Q| 00001160: 55 41 4E 54 49 54 59 28 4B 47 2F 48 29 3A 22 3B |UANTITY(KG/H):";| 00001170: 57 00 7F 19 6E 1B 57 57 B2 57 AD 33 36 30 30 00 |W...n.WW.W.3600.| 00001180: 9F 19 70 1B 85 22 53 45 54 20 50 52 45 53 53 55 |..p.."SET PRESSU| 00001190: 52 45 20 28 42 41 52 47 29 20 20 3A 22 3B 50 00 |RE (BARG) :";P.| 000011A0: C0 19 72 1B 85 22 42 41 43 4B 20 50 52 45 53 53 |..r.."BACK PRESS| 000011B0: 55 52 45 20 28 42 41 52 47 29 20 3A 22 3B 50 42 |URE (BARG) :";PB| 000011C0: 00 E1 19 74 1B 85 22 41 43 43 55 4D 55 4C 41 54 |...t.."ACCUMULAT| 000011D0: 49 4F 4E 20 20 28 25 29 20 20 20 20 3A 22 3B 41 |ION (%) :";A| 000011E0: 43 00 FC 19 76 1B 50 41 B2 50 AA 28 50 AC 41 43 |C...v.PA.P.(P.AC| 000011F0: AD 31 30 30 29 29 AA 31 2E 30 31 33 00 1C 1A 78 |.100)).1.013...x| 00001200: 1B 85 22 44 49 53 43 48 41 52 47 45 20 43 4F 45 |.."DISCHARGE COE| 00001210: 46 46 2E 20 20 20 20 20 3A 22 3B 4B 00 2C 1A 7A |FF. :";K.,.z| 00001220: 1B 8B 4B B2 30 A7 20 4B B2 2E 39 37 00 4D 1A 7E |..K.0. K..97.M.~| 00001230: 1B 85 22 44 45 47 52 45 45 53 20 53 55 50 45 52 |.."DEGREES SUPER| 00001240: 48 45 41 54 20 28 43 29 3A 22 3B 54 53 00 6E 1A |HEAT (C):";TS.n.| 00001250: 80 1B 85 22 53 55 50 45 52 48 45 41 54 20 43 4F |..."SUPERHEAT CO| 00001260: 52 52 2E 20 43 4F 45 46 46 3A 22 3B 4B 53 00 8F |RR. COEFF:";KS..| 00001270: 1A 84 1B 85 22 41 53 4D 45 20 42 4F 49 4C 45 52 |...."ASME BOILER| 00001280: 20 43 4F 44 45 20 46 41 43 54 3A 22 3B 4B 41 00 | CODE FACT:";KA.| 00001290: A8 1A 86 1B 41 B2 57 57 AC 36 38 35 36 AD 50 41 |....A.WW.6856.PA| 000012A0: AD 4B AD 4B 53 AD 4B 41 00 B8 1A 88 1B 41 41 B2 |.K.KS.KA.....AA.| 000012B0: 41 AD 36 34 35 2E 31 36 00 BE 1A 89 1B 99 00 E8 |A.645.16........| 000012C0: 1A 8A 1B 99 22 4F 52 49 46 49 43 45 20 41 52 45 |...."ORIFICE ARE| 000012D0: 41 20 3D 22 3B 41 22 20 4D 4D 32 20 22 3B 41 41 |A =";A" MM2 ";AA| 000012E0: 22 20 53 51 2E 49 4E 22 00 F0 1A 8C 1B 99 3A 99 |" SQ.IN"......:.| 000012F0: 00 32 1B 8F 1B 99 22 43 48 41 4E 47 45 20 41 4E |.2...."CHANGE AN| 00001300: 59 20 49 4E 50 55 54 20 28 31 29 20 4F 52 20 53 |Y INPUT (1) OR S| 00001310: 45 52 56 49 43 45 20 28 32 29 20 4F 52 20 57 41 |ERVICE (2) OR WA| 00001320: 4E 54 20 41 20 50 52 49 4E 54 20 4F 55 54 28 33 |NT A PRINT OUT(3| 00001330: 29 22 00 50 1B 90 1B 85 22 4D 41 4B 45 20 59 4F |)".P...."MAKE YO| 00001340: 55 52 20 53 45 4C 45 43 54 49 4F 4E 22 3B 53 39 |UR SELECTION";S9| 00001350: 00 60 1B 94 1B 8B 53 39 B2 31 A7 20 37 30 31 38 |.`....S9.1. 7018| 00001360: 00 73 1B 98 1B 49 53 20 53 39 B2 33 20 A7 20 37 |.s...IS S9.3 . 7| 00001370: 35 30 30 00 7D 1B 9A 1B 89 37 30 35 35 00 86 1B |500.}....7055...| 00001380: 4C 1D 99 22 93 22 00 AA 1B 56 1D 99 22 43 4C 49 |L.."."...V.."CLI| 00001390: 45 4E 54 20 20 20 3A 22 3B 43 24 22 20 55 4E 49 |ENT :";C$" UNI| 000013A0: 54 20 20 20 20 3A 22 3B 55 24 00 CE 1B 5A 1D 99 |T :";U$...Z..| 000013B0: 22 4A 4F 42 20 4E 4F 20 20 20 3A 22 3B 4A 24 22 |"JOB NO :";J$"| 000013C0: 20 44 57 47 20 4E 4F 20 20 3A 22 3B 44 24 00 E3 | DWG NO :";D$..| 000013D0: 1B 5B 1D 99 22 43 41 4C 43 2E 20 42 59 20 3A 22 |.[.."CALC. BY :"| 000013E0: 3B 42 24 00 08 1C 5E 1D 99 22 46 4C 55 49 44 20 |;B$...^.."FLUID | 000013F0: 20 20 20 3A 22 3B 46 24 22 20 53 54 45 41 4D 20 | :";F$" STEAM | 00001400: 53 45 52 56 49 43 45 22 00 0E 1C 5F 1D 99 00 2F |SERVICE"..._.../| 00001410: 1C 60 1D 99 22 43 4F 56 45 52 4E 49 4E 47 20 52 |.`.."COVERNING R| 00001420: 45 4C 49 45 46 20 43 4F 4E 44 3A 22 3B 4B 24 00 |ELIEF COND:";K$.| 00001430: 5E 1C 62 1D 99 22 52 45 4C 49 45 46 20 51 54 59 |^.b.."RELIEF QTY| 00001440: 20 20 20 20 3A 22 3B 57 22 20 4B 47 2F 48 20 3D | :";W" KG/H =| 00001450: 20 22 3B 57 57 22 20 4B 47 2F 53 45 43 22 00 7E | ";WW" KG/SEC".~| 00001460: 1C 64 1D 99 22 53 45 54 20 50 52 45 53 53 20 20 |.d.."SET PRESS | 00001470: 20 20 20 3A 22 3B 50 22 20 42 41 52 47 22 00 9C | :";P" BARG"..| 00001480: 1C 65 1D 99 22 41 43 43 55 4D 55 4C 2E 20 20 20 |.e.."ACCUMUL. | 00001490: 20 20 20 3A 22 3B 41 43 22 20 25 22 00 BD 1C 66 | :";AC" %"...f| 000014A0: 1D 99 22 42 41 43 4B 20 50 52 45 53 53 20 20 20 |.."BACK PRESS | 000014B0: 20 3A 22 3B 50 42 22 20 42 41 52 47 22 00 DE 1C | :";PB" BARG"...| 000014C0: 67 1D 99 22 41 42 53 2E 50 52 45 53 53 20 20 20 |g.."ABS.PRESS | 000014D0: 20 20 3A 22 3B 50 41 22 20 42 41 52 41 22 00 01 | :";PA" BARA"..| 000014E0: 1D 68 1D 99 22 52 45 4C 49 45 46 20 54 45 4D 50 |.h.."RELIEF TEMP| 000014F0: 2E 20 20 3A 22 3B 54 20 22 20 44 45 47 52 20 43 |. :";T " DEGR C| 00001500: 22 00 24 1D 69 1D 99 22 44 45 47 52 20 53 55 50 |".$.i.."DEGR SUP| 00001510: 45 52 48 45 41 54 3A 22 3B 54 53 22 20 44 45 47 |ERHEAT:";TS" DEG| 00001520: 52 20 43 22 00 31 1D 6A 1D 54 41 B2 54 AA 32 37 |R C".1.j.TA.T.27| 00001530: 33 00 5C 1D 6B 1D 99 22 53 55 50 45 52 48 45 41 |3.\.k.."SUPERHEA| 00001540: 54 20 3D 20 20 20 20 22 3B 4B 53 22 20 41 53 4D |T = ";KS" ASM| 00001550: 45 20 46 41 43 54 2E 3A 22 3B 4B 41 00 95 1D 6E |E FACT.:";KA...n| 00001560: 1D 99 22 43 41 4C 43 55 4C 41 54 45 44 20 4F 52 |.."CALCULATED OR| 00001570: 49 46 49 43 45 20 41 52 45 41 3A 20 22 3B 41 22 |IFICE AREA: ";A"| 00001580: 20 4D 4D 32 20 4F 52 22 20 3B 41 41 20 22 20 53 | MM2 OR" ;AA " S| 00001590: 51 2E 49 4E 22 00 9B 1D 6F 1D 99 00 D9 1D 72 1D |Q.IN"...o.....r.| 000015A0: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 41 |."DO YOU WANT TA| 000015B0: 20 4D 41 4B 45 20 41 4E 20 4F 54 48 45 52 20 43 | MAKE AN OTHER C| 000015C0: 41 4C 43 55 4C 41 54 49 4F 4E 3F 20 28 59 3D 31 |ALCULATION? (Y=1| 000015D0: 3B 4E 3D 32 29 22 3B 53 38 00 E8 1D 78 1D 8B 20 |;N=2)";S8...x.. | 000015E0: 53 38 B2 31 A7 20 38 35 00 EE 1D 7A 1D 80 00 00 |S8.1. 85...z....| 000015F0: 00 |. |
.......".".:...."..+++SAFETY VALVE CALCU
LATION PROGRAM+++".W...."TYPE IN THE FOL
LOWING".R...."CLIENT :";C$......
"JOB NO. :";J$......"DRAWING NO.
:";D$.C.#.."UNIT NAME :";U$...(.
."CALCULATED BY :";B$...U.."."...V.."..
+++SAFETY VALVE CALCULATION PROGRAM +++"
.5.Z..".TAG NUMBER :";N$.Q.\.."FLUI
D :";F$.M._.."SERVICE
:";L$.V.A.."."...N.."*GAS / VAPOUR SERVI
CE * 1"...S.."".P.X.."*LIQUID SE
RVICE * 2".X.}..""......"*
STEAM SERVICE * 3"......:
..1...."TYPE IN NUMBER OF SERVICE :";S
1.A....S1.1. 1000.R.... S1.2. 4000.C. ..
S1.3. 7000.S.... S1.1. 140...... S1.3.1
40......"."......"***CALCULATION FOR GAS
/VAPOUR SERVICE***"......"TAG NO
:";N$......"RELIEF CONDITION
:";K$. ...."RELIEF QUANTITY (KG/H):";W
.....WW.W.3600.O...."SET PRESSURE (BARG)
:";P.Q...."BACK PRESSURE(BARG) :";P
B......"ACCUMULATION (%) :";AC.....
PA.P.(P.(AC.100)).1.013.Q...."SPEC.HEAT
RATIO :";K1.....R.(2.(K1.1)).((K1.
1).(K1.1)).....C1.520..(K1.R).....C..(C1
.100..5).100.=...."DISCH.COEFF
:";K.M....K.0. K..97._...P2.(PB.P).100.
Q.... P2.30. 1028.|.... 1034......"BACK
PRESSURE EXCEEDS 30% CONSULT API RP 520
PART I".W...."TABLE C2 FOR *KB* FACTOR".
....."BACK PRESS SIZING FACT *KB* USE 1"
."...."IF NOT OTHERW. NOTED :";KB.C....
"GAS MOL WEIGHT :";M.D...."COMPR.
FACT. :";Z.S.... Z.0. Z.1.....
."RELIEF TEMP. (DGR C) :";T.....TA.T.27
3.I...A.WW.473640.PA.C.K.KB.(.(M.(Z.TA))
).Y...AA.A.645.16......"ORIFICE AREA = "
;A "MM2 OR =";AA " SQ.INCH"......:..X
.$.."CHANGE ANY INPUT(1); OTHER SERVICE
(2) OR PRINT OUT (3)";S2.J.... S2.1 . 10
07.Y.0.. S2.2 .97...2.. S2.3 . 1300...4.
. S2.1. 1060...6.. S2.3 . 1060......".".
....."CLIENT :";C$" UNIT :";U$...
!.."JOB NO :";J$" DWG NO :";D$...".
."CALC. BY :";B$.-.(.."TAG NO :";N$.B.
).."SERVICE :";L$.N.*.."FLUID :";F$"
GAS/VAPOUR SERVICE"...,.."COVERNING R
ELIEF COND:";K$...-...E...."RELIEF QTY
:";W" KG/H = ";WW" KG/SEC"...0.."SET
PRESS :";P" BARG"...1.."ACCUMUL.
:";AC" %".$.2.."ABS PRESS :";PA" B
ARA".E.3.."BACK PRESS. :";PB" BARG".T.
4.."RELIEF TEMP :";T" DEGR. C";TA" KEL
VIN"...6.."MOL WEIGHT :";M...7.."COMP
RESS FACT.:";Z...8.."SPEC.HEAT R. :";K1
.Y.9.."FACT. :";C...:.."DISCH.CO
EFF. :";K...;.."BP SIZ FACT. :";KB.=.<
.."CALC. ORIFICE AREA =";A" MM2 =";AA" S
Q.IN".V.F.."DO YOU WANT TO MAKE AN OTHER
CALCULATION?(Y/N)";S$.~.H..:....L.. S$.
"Y". 85. .N.. S$.."Y". ......."."... .."
.".X...."CALCULATION FOR LIQUID SERVICE"
......"TAG NO. :";N$......"
RELIEF COND. :";K$.:...."REL. CA
P.(KG/H) :";W.H...WW.W.3600.F...."S
ET PRESS (BARG) :";P......"BACK PRESS.
(BARG) :";PB......"ACC. IN %(5-10-25) :
";AC...... AC.5. A1.0......AC.5. A1.201.
9:.AC.6. A1.0:. AC.7.A1.0...B.. AC.8. A1
.0:.AC.9. A1.0...C..AC.10.A1.117.8.=.F..
AC.11.A1.0:.AC.12.A1.0:.AC.13 . A1.0.I.
H.. AC.14. A1.0:.AC.15. A1.0:.AC.16. A1.
0...M.. AC.17. A1.0:.AC.18. A1.0:.AC.19.
A1.0.A.R.. AC.20. A1.0:.AC.21. A1.0:.AC
.22. A1.0...W.. AC.23. A1.0:.AC.24. A1.0
...X..AC.25. A1.70.7......AC.25. A1.0...
...A1.0. 4070......4080.H...."YOU TYPED
IN THE WRONG PERCENTAGE".A...."...USE 5
10 OR 25".K....4026.}...P3.(PB.P).100...
...A1......P3.15. 4100. ....4110.N...."B
ACK PRESS EXCEEDS 15% USE TABLE C5 OF"..
...."API RP 520 FOR CORRECT (KW)FACTOR".
....."BACK PRESS SIZ.FACT. :";KW.).... K
W.0. KW.1.I...."DISCH.COEFF. :";
K.Z....K.0 . K..62.Z...."LIQUID SPEC GRA
VITY :";G......"RELIEF TEMP. (DGR C) :"
;T.....TA.T.273.M.".A.A1.WW.K.KW.(.(G.((
1.25.P).PB)))...%.AA.A.645.16...,.."ORIF
ICE AREA =";A" MM2 OR";AA" SQ.INCH".../.
.:..\.1.."CHANGE ANY INPUT (1), OTHER SE
RVICE(2), OR WANT A PRINT OUT(3)";S6.N.6
.. S6.1 . 4015.~.8.. S6.2 . 97...9.. S6.
3. 5000...;.. S6.1 . 4145...=..S6.3. 414
5......"."......"CLIENT :";C$" UNIT
:";U$......"JOB NO :";J$" DWG NO :";
D$......"SERVICE :";L$.*...."TAG NO :";
N$.P...."FLUID :";F$" LIQUID SERVICE"
.V.....W...."COVERNING RELIEF COND:";K$.
....."RELIEF QTY :";W" KG/H = ";WW" K
G/SEC".F...."SET PRESS :";P" BARG"..
...."ACCUMUL. :";AC" %"......"BACK
PRESS :";PB" BARG"......"SPEC. GRAVIT
Y :";G.7...."DISCH.COEFF. :";K.Q...."BP
SIZE FACTOR:";KB......"CALCULATED ORIFI
CE AREA ";A" MM2 OR ";AA" SQ.INCH"...A..
.L.D.."DO YOU WANT TO MAKE ANOTHER CALCU
LATION (Y=1;N=2)";S7...X.. S7.1. 85.....
....X.."."...B.."CALCULATION FOR STEAM S
ERVICE".0.G.."TAG NO :";N$
.Q.J.."RELIEF CONDITION :";K$.Q.L.."
RELIEF QUANTITY(KG/H):";W..N.WW.W.3600.
..P.."SET PRESSURE (BARG) :";P...R.."BA
CK PRESSURE (BARG) :";PB...T.."ACCUMULAT
ION (%) :";AC...V.PA.P.(P.AC.100)).1
.013...X.."DISCHARGE COEFF. :";K.,.Z
..K.0. K..97.M.~.."DEGREES SUPERHEAT (C)
:";TS.N...."SUPERHEAT CORR. COEFF:";KS..
...."ASME BOILER CODE FACT:";KA.....A.WW
.6856.PA.K.KS.KA.....AA.A.645.16........
...."ORIFICE AREA =";A" MM2 ";AA" SQ.IN"
......:..2...."CHANGE ANY INPUT (1) OR S
ERVICE (2) OR WANT A PRINT OUT(3)".P....
"MAKE YOUR SELECTION";S9.`....S9.1. 7018
.S...IS S9.3 . 7500.}....7055...L.."."..
.V.."CLIENT :";C$" UNIT :";U$.N.Z..
"JOB NO :";J$" DWG NO :";D$...[.."CAL
C. BY :";B$...^.."FLUID :";F$" STEAM
SERVICE"..._.../.`.."COVERNING RELIEF CO
ND:";K$.^.B.."RELIEF QTY :";W" KG/H =
";WW" KG/SEC".~.D.."SET PRESS :";P"
BARG"...E.."ACCUMUL. :";AC" %"...F
.."BACK PRESS :";PB" BARG"...G.."ABS.
PRESS :";PA" BARA"...H.."RELIEF TEMP
. :";T " DEGR C".$.I.."DEGR SUPERHEAT:"
;TS" DEGR C".1.J.TA.T.273.\.K.."SUPERHEA
T = ";KS" ASME FACT.:";KA...N.."CALCU
LATED ORIFICE AREA: ";A" MM2 OR" ;AA " S
Q.IN"...O...Y.R.."DO YOU WANT TA MAKE AN
OTHER CALCULATION? (Y=1;N=2)";S8...X..
S8.1. 85...Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL