SAMPLE CALC.
FILE INFORMATION
FILENAME(S): SAMPLE CALC.
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-12-01 02:26:19
APPEARS ON: 1 disk(s)
FILE HASH
cc75c5ae108defca2308043fbfdd4d709a6e4fc2c322cce2f208fd406ddc8330
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | SAMPLE CALC. | PRG | Shine | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 97 35 33 32 38 30 2C 35 3A 97 |.......53280,5:.|
00000010: 35 33 32 38 31 2C 36 3A 99 20 C7 28 35 29 00 27 |53281,6:. .(5).'|
00000020: 08 05 00 99 22 93 22 00 57 08 0A 00 99 22 2A 2A |....".".W...."**|
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 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 22 00 5D 08 0C 00 99 00 8C 08 |******".].......|
00000060: 0F 00 99 22 20 20 20 20 12 3C 3C 20 53 41 4D 50 |..." .<< SAMP|
00000070: 4C 45 20 53 59 53 54 45 4D 53 20 43 41 4C 43 55 |LE SYSTEMS CALCU|
00000080: 4C 41 54 49 4F 4E 53 20 3E 3E 92 22 00 92 08 11 |LATIONS >>."....|
00000090: 00 99 00 C2 08 14 00 99 22 2A 2A 2A 2A 2A 2A 2A |........"*******|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 22 00 C8 08 16 00 99 00 EA 08 19 00 99 22 53 |*"............"S|
000000D0: 45 4C 45 43 54 20 4F 4E 45 20 4F 46 20 54 48 45 |ELECT ONE OF THE|
000000E0: 20 46 4F 4C 4F 57 49 4E 47 22 00 0E 09 1E 00 99 | FOLOWING"......|
000000F0: 3A 99 A3 35 29 20 22 31 2E 20 50 52 45 53 53 55 |:..5) "1. PRESSU|
00000100: 52 45 20 44 52 4F 50 20 43 41 4C 43 2E 22 00 32 |RE DROP CALC.".2|
00000110: 09 23 00 99 3A 99 A3 35 29 20 22 32 2E 20 46 4C |.#..:..5) "2. FL|
00000120: 4F 57 20 56 45 4C 4F 43 49 54 59 20 43 41 4C 43 |OW VELOCITY CALC|
00000130: 2E 22 00 52 09 28 00 99 3A 99 A3 35 29 20 22 33 |.".R.(..:..5) "3|
00000140: 2E 20 4C 49 4E 45 20 53 49 5A 45 20 43 41 4C 43 |. LINE SIZE CALC|
00000150: 2E 22 00 5A 09 2D 00 99 3A 99 00 6E 09 50 00 85 |.".Z.-..:..n.P..|
00000160: 22 12 20 43 48 4F 49 53 45 20 3D 22 3B 4F 00 7D |". CHOISE =";O.}|
00000170: 09 55 00 8B 20 4F B3 31 20 A7 20 38 30 00 8B 09 |.U.. O.1 . 80...|
00000180: 56 00 8B 4F B1 33 20 A7 20 38 30 00 A0 09 5A 00 |V..O.3 . 80...Z.|
00000190: 91 4F 20 89 20 33 30 30 2C 35 30 30 2C 39 30 30 |.O . 300,500,900|
000001A0: 00 BF 09 64 00 8F 20 44 41 54 41 20 49 4E 54 41 |...d.. DATA INTA|
000001B0: 4B 45 20 47 45 4E 45 52 41 4C 20 44 41 54 41 00 |KE GENERAL DATA.|
000001C0: C8 09 69 00 99 22 93 22 00 D0 09 6E 00 99 3A 99 |..i.."."...n..:.|
000001D0: 00 EC 09 70 00 97 35 33 32 38 30 2C 37 3A 97 35 |...p..53280,7:.5|
000001E0: 33 32 38 31 2C 30 3A 99 C7 28 35 29 00 F7 09 78 |3281,0:..(5)...x|
000001F0: 00 8D 20 32 30 30 30 00 FD 09 82 00 99 00 08 0A |.. 2000.........|
00000200: 8C 00 8D 20 32 30 31 30 00 0E 0A 96 00 99 00 19 |... 2010........|
00000210: 0A A0 00 8D 20 32 30 32 30 00 1F 0A AA 00 99 00 |.... 2020.......|
00000220: 2A 0A B4 00 8D 20 32 30 33 30 00 30 0A BE 00 99 |*.... 2030.0....|
00000230: 00 3B 0A C8 00 8D 20 32 30 34 30 00 41 0A D2 00 |.;.... 2040.A...|
00000240: 99 00 4C 0A DC 00 8D 20 32 30 35 30 00 52 0A E1 |..L.... 2050.R..|
00000250: 00 99 00 5D 0A E6 00 8D 20 32 30 36 30 00 63 0A |...].... 2060.c.|
00000260: F0 00 99 00 80 0A FA 00 85 22 44 41 54 41 20 43 |........."DATA C|
00000270: 4F 52 52 45 43 54 3F 28 59 2F 4E 29 22 3B 41 24 |ORRECT?(Y/N)";A$|
00000280: 00 92 0A 04 01 8B 20 41 24 B2 22 59 22 A7 20 32 |...... A$."Y". 2|
00000290: 39 30 00 B0 0A 0E 01 85 22 57 48 49 43 48 20 44 |90......"WHICH D|
000002A0: 41 54 41 20 4E 52 3F 20 28 31 2D 37 29 22 3B 5A |ATA NR? (1-7)";Z|
000002B0: 00 C0 0A 13 01 8B 20 5A B3 31 20 A7 20 32 37 30 |...... Z.1 . 270|
000002C0: 00 D0 0A 14 01 8B 20 5A B1 37 20 A7 20 32 37 30 |...... Z.7 . 270|
000002D0: 00 FD 0A 18 01 91 20 5A 20 8D 20 32 30 30 30 2C |...... Z . 2000,|
000002E0: 32 30 31 30 2C 32 30 32 30 2C 32 30 33 30 2C 32 |2010,2020,2030,2|
000002F0: 30 34 30 2C 32 30 35 30 2C 32 30 36 30 00 07 0B |040,2050,2060...|
00000300: 1D 01 89 20 32 35 30 00 11 0B 22 01 89 35 30 30 |... 250..."..500|
00000310: 30 00 1C 0B 24 01 4F 24 B2 22 43 22 00 22 0B 2B |0...$.O$."C".".+|
00000320: 01 80 00 4D 0B 2C 01 8F 20 44 41 54 41 20 49 4E |...M.,.. DATA IN|
00000330: 50 55 54 20 50 52 45 53 53 55 52 45 20 44 52 4F |PUT PRESSURE DRO|
00000340: 50 20 43 41 4C 43 55 4C 41 54 49 4F 4E 00 69 0B |P CALCULATION.i.|
00000350: 2D 01 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 |-..53280,1:.5328|
00000360: 31 2C 32 3A 99 C7 28 35 29 00 72 0B 2E 01 99 22 |1,2:..(5).r...."|
00000370: 93 22 00 7D 0B 31 01 8D 20 39 30 30 30 00 88 0B |.".}.1.. 9000...|
00000380: 36 01 8D 20 33 30 30 30 00 8E 0B 3B 01 99 00 99 |6.. 3000...;....|
00000390: 0B 40 01 8D 20 33 30 31 30 00 9F 0B 45 01 99 00 |.@.. 3010...E...|
000003A0: AA 0B 4A 01 8D 20 33 30 32 30 00 B0 0B 4F 01 99 |..J.. 3020...O..|
000003B0: 00 BB 0B 54 01 8D 20 33 30 33 30 00 C1 0B 59 01 |...T.. 3030...Y.|
000003C0: 99 00 CC 0B 5E 01 8D 20 33 30 34 30 00 D2 0B 63 |....^.. 3040...c|
000003D0: 01 99 00 EF 0B 68 01 85 22 44 41 54 41 20 43 4F |.....h.."DATA CO|
000003E0: 52 52 45 43 54 3F 28 59 2F 4E 29 22 3B 41 24 00 |RRECT?(Y/N)";A$.|
000003F0: 01 0C 6D 01 8B 20 41 24 B2 22 59 22 A7 20 33 39 |..m.. A$."Y". 39|
00000400: 30 00 1F 0C 72 01 85 22 57 48 49 43 48 20 44 41 |0...r.."WHICH DA|
00000410: 54 41 20 4E 52 20 28 31 2D 35 29 3A 22 3B 5A 00 |TA NR (1-5):";Z.|
00000420: 2F 0C 77 01 8B 20 5A B3 31 20 A7 20 33 37 30 00 |/.w.. Z.1 . 370.|
00000430: 3F 0C 78 01 8B 20 5A B1 35 20 A7 20 33 37 30 00 |?.x.. Z.5 . 370.|
00000440: 62 0C 7C 01 91 20 5A 20 8D 20 33 30 30 30 2C 33 |b.|.. Z . 3000,3|
00000450: 30 31 30 2C 33 30 32 30 2C 33 30 33 30 2C 33 30 |010,3020,3030,30|
00000460: 34 30 00 6C 0C 81 01 89 20 33 36 30 00 72 0C 86 |40.l.... 360.r..|
00000470: 01 8F 00 92 0C 8B 01 8F 20 43 41 4C 43 55 4C 41 |........ CALCULA|
00000480: 54 49 4F 4E 20 50 52 45 53 53 55 52 45 20 44 52 |TION PRESSURE DR|
00000490: 4F 50 00 A0 0C 90 01 44 31 B2 44 AD 31 30 30 30 |OP.....D1.D.1000|
000004A0: 00 BE 0C 95 01 50 B2 28 2E 30 33 32 AC 28 4C AD |.....P.(.032.(L.|
000004B0: 44 31 29 AD 32 29 AC 53 AC 28 56 AC 56 29 00 D1 |D1).2).S.(V.V)..|
000004C0: 0C 9A 01 50 31 B2 B5 28 50 AD 31 30 30 AA 2E 35 |...P1..(P.100..5|
000004D0: 29 00 E0 0C 9F 01 50 32 B2 50 31 AD 31 30 30 30 |).....P2.P1.1000|
000004E0: 00 FC 0C A4 01 50 33 B2 B5 28 28 50 31 AD 4C 29 |.....P3..((P1.L)|
000004F0: AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 0F 0D A9 |.100..5).100....|
00000500: 01 51 B2 2E 37 38 35 AC 44 31 AC 44 31 AC 56 00 |.Q..785.D1.D1.V.|
00000510: 1D 0D AE 01 51 32 B2 51 AC 33 36 30 30 00 3B 0D |....Q2.Q.3600.;.|
00000520: B3 01 51 31 B2 28 B5 28 51 32 AC 31 30 30 30 29 |..Q1.(.(Q2.1000)|
00000530: AD 31 30 30 30 29 AD 33 36 30 30 00 43 0D B8 01 |.1000).3600.C...|
00000540: 99 3A 99 00 68 0D BD 01 85 22 49 4E 43 4C 55 44 |.:..h...."INCLUD|
00000550: 45 20 47 45 4E 45 52 41 4C 20 44 41 54 41 20 28 |E GENERAL DATA (|
00000560: 59 2F 4E 29 22 3B 41 24 00 7B 0D BF 01 8B 20 41 |Y/N)";A$.{.... A|
00000570: 24 B2 22 59 22 20 A7 20 31 30 30 00 8E 0D C1 01 |$."Y" . 100.....|
00000580: 8B 20 41 24 B2 22 4E 22 20 A7 20 34 36 30 00 98 |. A$."N" . 460..|
00000590: 0D C2 01 89 20 34 34 35 00 A3 0D C4 01 4F 24 B2 |.... 445.....O$.|
000005A0: 22 43 22 00 AE 0D CC 01 89 20 35 30 30 30 00 B7 |"C"...... 5000..|
000005B0: 0D F4 01 99 22 93 22 00 D3 0D F5 01 97 35 33 32 |...."."......532|
000005C0: 38 30 2C 30 3A 97 35 33 32 38 31 2C 32 3A 99 C7 |80,0:.53281,2:..|
000005D0: 28 37 29 00 DC 0D F6 01 99 22 93 22 00 E7 0D F9 |(7)......"."....|
000005E0: 01 8D 20 39 30 30 30 00 0D 0E FE 01 8F 20 44 41 |.. 9000...... DA|
000005F0: 54 41 20 49 4E 50 55 54 20 56 45 4C 4F 43 49 54 |TA INPUT VELOCIT|
00000600: 59 20 43 41 4C 43 55 4C 41 54 49 4F 4E 00 15 0E |Y CALCULATION...|
00000610: 08 02 99 3A 99 00 1F 0E 12 02 8D 33 30 30 30 00 |...:.......3000.|
00000620: 25 0E 17 02 99 00 2F 0E 1C 02 8D 33 30 31 30 00 |%...../....3010.|
00000630: 35 0E 21 02 99 00 3F 0E 26 02 8D 33 30 32 30 00 |5.!...?.&..3020.|
00000640: 45 0E 2B 02 99 00 4F 0E 30 02 8D 33 30 33 30 00 |E.+...O.0..3030.|
00000650: 55 0E 35 02 99 00 5F 0E 37 02 8D 34 30 30 30 00 |U.5..._.7..4000.|
00000660: 67 0E 38 02 99 3A 99 00 84 0E 3A 02 85 22 44 41 |g.8..:....:.."DA|
00000670: 54 41 20 43 4F 52 52 45 43 54 3F 28 59 2F 4E 29 |TA CORRECT?(Y/N)|
00000680: 22 3B 41 24 00 96 0E 3F 02 8B 20 41 24 B2 22 59 |";A$...?.. A$."Y|
00000690: 22 A7 20 36 30 30 00 B2 0E 44 02 85 22 57 48 49 |". 600...D.."WHI|
000006A0: 43 48 20 44 41 54 41 20 4E 52 28 31 2D 35 29 22 |CH DATA NR(1-5)"|
000006B0: 3B 5A 00 C1 0E 49 02 8B 20 5A B3 31 20 89 35 38 |;Z...I.. Z.1 .58|
000006C0: 30 00 D0 0E 4A 02 8B 5A B1 35 20 89 20 35 38 30 |0...J..Z.5 . 580|
000006D0: 00 F2 0E 4E 02 91 20 5A 8D 20 33 30 30 30 2C 33 |...N.. Z. 3000,3|
000006E0: 30 31 30 2C 33 30 32 30 2C 33 30 33 30 2C 34 30 |010,3020,3030,40|
000006F0: 30 30 00 FC 0E 53 02 89 20 35 37 30 00 17 0F 58 |00...S.. 570...X|
00000700: 02 8F 20 56 45 4C 4F 43 49 54 59 20 43 41 4C 43 |.. VELOCITY CALC|
00000710: 55 4C 41 54 49 4F 4E 00 29 0F 62 02 43 B2 43 50 |ULATION.).b.C.CP|
00000720: AD 28 53 AD 31 30 30 30 29 00 40 0F 67 02 43 53 |.(S.1000).@.g.CS|
00000730: B2 B5 28 43 AC 31 30 30 AA 2E 35 29 AD 31 30 30 |..(C.100..5).100|
00000740: 00 4D 0F 6C 02 46 46 31 B2 2E 30 33 32 00 6C 0F |.M.l.FF1..032.l.|
00000750: 71 02 56 B2 BA 28 28 50 32 AD 28 46 46 31 AC 4C |q.V..((P2.(FF1.L|
00000760: AC 53 29 29 AC 44 29 AC 31 34 2E 31 00 85 0F 85 |.S)).D).14.1....|
00000770: 02 52 B2 28 56 AC 44 29 AD 28 43 53 AD 31 30 30 |.R.(V.D).(CS.100|
00000780: 30 30 30 30 29 00 94 0F 8A 02 52 45 B2 B5 28 52 |0000).....RE..(R|
00000790: AA 2E 35 29 00 A8 0F 8D 02 8B 20 52 45 B3 32 30 |..5)...... RE.20|
000007A0: 30 30 20 A7 20 36 39 37 00 B4 0F 8F 02 46 46 B2 |00 . 697.....FF.|
000007B0: 36 34 AD 52 00 C1 0F 94 02 46 B2 46 46 31 AB 46 |64.R.....F.FF1.F|
000007C0: 46 00 D6 0F 95 02 8B B6 28 46 29 B3 2E 30 30 31 |F.......(F)..001|
000007D0: 20 A7 20 36 36 35 00 E1 0F 96 02 46 46 31 B2 46 | . 665.....FF1.F|
000007E0: 46 00 EB 0F 98 02 89 20 36 32 35 00 FF 0F 99 02 |F...... 625.....|
000007F0: 8B 46 B3 2E 30 30 31 A7 20 46 B2 2E 30 33 32 00 |.F..001. F..032.|
00000800: 1C 10 9B 02 56 B2 BA 28 28 50 32 AD 28 46 AC 4C |....V..((P2.(F.L|
00000810: AC 53 29 29 AC 44 29 AC 31 34 2E 31 00 30 10 9C |.S)).D).14.1.0..|
00000820: 02 56 B2 B5 28 56 AC 31 30 AA 2E 35 29 AD 31 30 |.V..(V.10..5).10|
00000830: 00 49 10 9E 02 52 B2 28 56 AC 44 29 AD 28 43 53 |.I...R.(V.D).(CS|
00000840: AD 31 30 30 30 30 30 30 29 00 57 10 A3 02 44 31 |.1000000).W...D1|
00000850: B2 44 AD 31 30 30 30 00 6A 10 A8 02 51 B2 2E 37 |.D.1000.j...Q..7|
00000860: 38 35 AC 44 31 AC 44 31 AC 56 00 78 10 AD 02 51 |85.D1.D1.V.x...Q|
00000870: 32 B2 51 AC 33 36 30 30 00 96 10 B0 02 51 31 B2 |2.Q.3600.....Q1.|
00000880: 28 B5 28 51 32 AC 31 30 30 30 29 AD 31 30 30 30 |(.(Q2.1000).1000|
00000890: 29 AD 33 36 30 30 00 A0 10 B7 02 89 20 34 34 35 |).3600...... 445|
000008A0: 00 A6 10 B9 02 80 00 CD 10 84 03 8F 20 44 41 54 |............ DAT|
000008B0: 41 20 49 4E 50 55 54 20 4C 49 4E 45 20 53 49 5A |A INPUT LINE SIZ|
000008C0: 45 20 43 41 4C 43 55 4C 41 54 49 4F 4E 00 EA 10 |E CALCULATION...|
000008D0: 85 03 97 35 33 32 38 30 2C 39 3A 97 35 33 32 38 |...53280,9:.5328|
000008E0: 31 2C 31 30 3A 99 C7 28 35 29 00 F3 10 86 03 99 |1,10:..(5)......|
000008F0: 22 93 22 00 FE 10 89 03 8D 20 39 30 30 30 00 04 |"."...... 9000..|
00000900: 11 8B 03 99 00 0F 11 8E 03 8D 20 33 30 30 30 00 |.......... 3000.|
00000910: 15 11 93 03 99 00 20 11 A2 03 8D 20 34 35 30 30 |...... .... 4500|
00000920: 00 26 11 A7 03 99 00 31 11 AC 03 8D 20 33 30 32 |.&.....1.... 302|
00000930: 30 00 37 11 B1 03 99 00 42 11 B6 03 8D 20 33 30 |0.7.....B.... 30|
00000940: 33 30 00 48 11 BB 03 99 00 53 11 C0 03 8D 20 33 |30.H.....S.... 3|
00000950: 30 34 30 00 59 11 C5 03 99 00 61 11 CA 03 99 3A |040.Y.....a....:|
00000960: 99 00 7E 11 D4 03 85 22 44 41 54 41 20 43 4F 52 |..~...."DATA COR|
00000970: 52 45 43 54 20 28 59 2F 4E 29 22 3B 41 24 00 91 |RECT (Y/N)";A$..|
00000980: 11 DE 03 8B 20 41 24 B2 22 59 22 A7 20 31 31 30 |.... A$."Y". 110|
00000990: 30 00 A4 11 E8 03 8B 20 41 24 B2 22 4E 22 A7 20 |0...... A$."N". |
000009A0: 31 30 32 30 00 AE 11 F2 03 89 20 39 38 30 00 CA |1020...... 980..|
000009B0: 11 FC 03 85 22 57 48 49 43 48 20 44 41 54 41 20 |...."WHICH DATA |
000009C0: 28 4E 52 31 2D 35 29 22 3B 5A 00 DA 11 06 04 8B |(NR1-5)";Z......|
000009D0: 20 5A B3 31 A7 20 31 30 32 30 00 EA 11 0B 04 8B | Z.1. 1020......|
000009E0: 20 5A B1 35 A7 20 31 30 32 30 00 0A 12 10 04 91 | Z.5. 1020......|
000009F0: 5A 8D 33 30 30 30 2C 34 35 30 30 2C 33 30 32 30 |Z.3000,4500,3020|
00000A00: 2C 33 30 33 30 2C 33 30 34 30 00 14 12 1A 04 89 |,3030,3040......|
00000A10: 20 39 38 30 00 30 12 24 04 8F 20 4C 49 4E 45 20 | 980.0.$.. LINE |
00000A20: 53 49 5A 45 20 43 41 4C 43 55 4C 41 54 49 4F 4E |SIZE CALCULATION|
00000A30: 00 3C 12 4C 04 46 46 B2 2E 30 33 32 00 5E 12 56 |.<.L.FF..032.^.V|
00000A40: 04 44 B2 28 56 AC 56 AC 53 AC 4C AC 46 46 29 AD |.D.(V.V.S.L.FF).|
00000A50: 28 31 34 2E 31 AC 31 34 2E 31 AC 50 32 29 00 6C |(14.1.14.1.P2).l|
00000A60: 12 5B 04 44 31 B2 44 AD 31 30 30 30 00 7E 12 60 |.[.D1.D.1000.~.`|
00000A70: 04 43 B2 43 50 AD 28 53 AD 31 30 30 30 29 00 95 |.C.CP.(S.1000)..|
00000A80: 12 6A 04 43 53 B2 B5 28 43 AC 31 30 30 AA 2E 35 |.j.CS..(C.100..5|
00000A90: 29 AD 31 30 30 00 AF 12 74 04 52 B2 28 56 AC 44 |).100...t.R.(V.D|
00000AA0: 31 29 AD 28 43 53 AD 31 30 30 30 30 30 30 29 00 |1).(CS.1000000).|
00000AB0: BE 12 7E 04 52 45 B2 B5 28 52 AA 2E 35 29 00 D1 |..~.RE..(R..5)..|
00000AC0: 12 9C 04 51 B2 2E 37 38 35 AC 44 31 AC 44 31 AC |...Q..785.D1.D1.|
00000AD0: 56 00 DF 12 A6 04 51 32 B2 51 AC 33 36 30 30 00 |V.....Q2.Q.3600.|
00000AE0: FD 12 B0 04 51 31 B2 28 B5 28 51 32 AC 31 30 30 |....Q1.(.(Q2.100|
00000AF0: 30 29 AD 31 30 30 30 29 AD 33 36 30 30 00 06 13 |0).1000).3600...|
00000B00: F6 04 89 34 34 35 00 2D 13 D0 07 85 22 31 2E 20 |...445.-...."1. |
00000B10: 48 2E 49 2E 20 52 45 46 45 52 45 4E 43 45 20 20 |H.I. REFERENCE |
00000B20: 20 20 20 20 20 20 20 20 3A 22 3B 48 24 00 33 13 | :";H$.3.|
00000B30: D5 07 8E 00 5A 13 DA 07 85 22 32 2E 20 43 4F 53 |....Z...."2. COS|
00000B40: 54 55 4D 45 52 20 20 20 20 20 20 20 20 20 20 20 |TUMER |
00000B50: 20 20 20 20 20 3A 22 3B 43 24 00 60 13 DF 07 8E | :";C$.`....|
00000B60: 00 87 13 E4 07 85 22 33 2E 20 45 4E 51 55 49 52 |......"3. ENQUIR|
00000B70: 59 20 4E 4F 20 20 20 20 20 20 20 20 20 20 20 20 |Y NO |
00000B80: 20 20 3A 22 3B 45 24 00 8D 13 E9 07 8E 00 B4 13 | :";E$.........|
00000B90: EE 07 85 22 34 2E 20 52 45 51 55 49 53 49 54 49 |..."4. REQUISITI|
00000BA0: 4F 4E 20 4E 4F 20 20 20 20 20 20 20 20 20 20 3A |ON NO :|
00000BB0: 22 3B 52 24 00 BA 13 F3 07 8E 00 E1 13 F8 07 85 |";R$............|
00000BC0: 22 35 2E 20 41 4E 41 4C 59 5A 45 52 20 4E 4F 20 |"5. ANALYZER NO |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B 5A | :";Z|
00000BE0: 24 00 E7 13 FD 07 8E 00 0E 14 02 08 85 22 36 2E |$............"6.|
00000BF0: 20 54 41 47 20 4E 4F 20 20 20 20 20 20 20 20 20 | TAG NO |
00000C00: 20 20 20 20 20 20 20 20 20 3A 22 3B 54 24 00 14 | :";T$..|
00000C10: 14 07 08 8E 00 3B 14 0C 08 85 22 37 2E 20 53 45 |.....;...."7. SE|
00000C20: 52 56 49 43 45 20 20 20 20 20 20 20 20 20 20 20 |RVICE |
00000C30: 20 20 20 20 20 20 3A 22 3B 53 24 00 41 14 11 08 | :";S$.A...|
00000C40: 8E 00 67 14 B8 0B 85 22 31 2E 4C 49 4E 45 20 4C |..g...."1.LINE L|
00000C50: 45 4E 47 48 54 20 49 4E 20 4D 45 54 45 52 53 20 |ENGHT IN METERS |
00000C60: 20 20 20 3A 22 3B 4C 00 6D 14 BD 0B 8E 00 93 14 | :";L.m.......|
00000C70: C2 0B 85 22 32 2E 49 4E 54 45 52 4E 41 4C 20 44 |..."2.INTERNAL D|
00000C80: 49 41 4D 45 54 45 52 20 49 4E 20 4D 4D 20 20 3A |IAMETER IN MM :|
00000C90: 22 3B 44 00 99 14 C7 0B 8E 00 BF 14 CC 0B 85 22 |";D............"|
00000CA0: 33 2E 53 2E 47 2E 20 49 4E 20 4B 47 2F 4D 33 20 |3.S.G. IN KG/M3 |
00000CB0: 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B 53 00 | :";S.|
00000CC0: C5 14 D1 0B 8E 00 EC 14 D6 0B 85 22 34 2E 56 49 |..........."4.VI|
00000CD0: 53 43 4F 53 49 54 59 20 49 4E 20 43 50 20 20 20 |SCOSITY IN CP |
00000CE0: 20 20 20 20 20 20 20 3A 22 3B 43 50 00 F2 14 DB | :";CP....|
00000CF0: 0B 8E 00 18 15 E0 0B 85 22 35 2E 56 45 4C 4F 43 |........"5.VELOC|
00000D00: 49 54 59 20 49 4E 20 4D 2F 53 45 43 20 20 20 20 |ITY IN M/SEC |
00000D10: 20 20 20 20 3A 22 3B 56 00 1E 15 E5 0B 8E 00 45 | :";V.......E|
00000D20: 15 A0 0F 85 22 35 2E 41 56 41 49 4C 41 42 4C 45 |...."5.AVAILABLE|
00000D30: 20 50 52 45 53 53 2E 20 44 52 4F 50 20 20 20 20 | PRESS. DROP |
00000D40: 3A 22 3B 50 32 00 5C 15 A5 0F 50 31 B2 50 32 AC |:";P2.\...P1.P2.|
00000D50: 31 30 30 30 3A 50 33 B2 50 31 AD 4C 00 62 15 AA |1000:P3.P1.L.b..|
00000D60: 0F 8E 00 89 15 94 11 85 22 32 2E 41 56 41 49 4C |........"2.AVAIL|
00000D70: 41 42 4C 45 20 50 52 45 53 53 2E 20 44 52 4F 50 |ABLE PRESS. DROP|
00000D80: 20 20 20 20 3A 22 3B 50 32 00 A0 15 99 11 50 31 | :";P2.....P1|
00000D90: B2 50 32 AC 31 30 30 30 3A 50 33 B2 50 31 AD 4C |.P2.1000:P3.P1.L|
00000DA0: 00 A6 15 9E 11 8E 00 AF 15 88 13 99 22 93 22 00 |............".".|
00000DB0: B8 15 8C 13 9F 34 2C 34 00 C0 15 8D 13 57 B2 33 |.....4,4.....W.3|
00000DC0: 00 C9 15 90 13 9F 33 2C 33 00 FC 15 92 13 98 28 |......3,3......(|
00000DD0: 57 29 2C 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |W),"************|
00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 2C 16 9C |***********".,..|
00000E00: 13 98 28 57 29 2C 22 20 20 20 20 3C 3C 20 53 41 |..(W)," << SA|
00000E10: 4D 50 4C 45 20 53 59 53 54 45 4D 20 43 41 4C 43 |MPLE SYSTEM CALC|
00000E20: 55 4C 41 54 49 4F 4E 53 20 3E 3E 22 00 5F 16 A6 |ULATIONS >>"._..|
00000E30: 13 98 28 57 29 2C 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(W),"*********|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00000E60: 73 16 C9 13 8B 20 41 24 B2 22 4E 22 20 A7 20 36 |s.... A$."N" . 6|
00000E70: 30 30 30 00 9B 16 CE 13 98 28 57 29 2C 22 20 20 |000......(W)," |
00000E80: 20 48 2E 49 2E 20 52 45 46 45 52 45 4E 43 45 20 | H.I. REFERENCE |
00000E90: 20 20 20 20 20 20 3A 22 3B 48 24 00 C3 16 D8 13 | :";H$.....|
00000EA0: 98 28 57 29 2C 22 20 20 20 43 4F 53 54 55 4D 45 |.(W)," COSTUME|
00000EB0: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 |R :"|
00000EC0: 3B 43 24 00 EB 16 E2 13 98 28 57 29 2C 22 20 20 |;C$......(W)," |
00000ED0: 20 45 4E 51 55 49 52 59 20 4E 4F 20 20 20 20 20 | ENQUIRY NO |
00000EE0: 20 20 20 20 20 20 3A 22 3B 45 24 00 13 17 EC 13 | :";E$.....|
00000EF0: 98 28 57 29 2C 22 20 20 20 52 45 51 55 49 53 49 |.(W)," REQUISI|
00000F00: 54 49 4F 4E 20 4E 4F 20 20 20 20 20 20 20 3A 22 |TION NO :"|
00000F10: 3B 52 24 00 3B 17 F6 13 98 28 57 29 2C 22 20 20 |;R$.;....(W)," |
00000F20: 20 41 4E 41 4C 59 5A 45 52 20 20 20 20 20 20 20 | ANALYZER |
00000F30: 20 20 20 20 20 20 3A 22 3B 5A 24 00 63 17 00 14 | :";Z$.c...|
00000F40: 98 28 57 29 2C 22 20 20 20 54 41 47 20 4E 4F 20 |.(W)," TAG NO |
00000F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 | :"|
00000F60: 3B 54 24 00 8B 17 0A 14 98 28 57 29 2C 22 20 20 |;T$......(W)," |
00000F70: 20 53 45 52 56 49 43 45 20 20 20 20 20 20 20 20 | SERVICE |
00000F80: 20 20 20 20 20 20 3A 22 3B 53 24 00 BA 17 70 17 | :";S$...p.|
00000F90: 98 28 57 29 2C 22 20 20 20 4C 49 4E 45 20 4C 45 |.(W)," LINE LE|
00000FA0: 4E 47 48 54 20 20 20 20 20 20 20 20 20 20 3A 22 |NGHT :"|
00000FB0: 3B 4C 3B 22 4D 45 54 45 52 22 00 E6 17 7A 17 98 |;L;"METER"...z..|
00000FC0: 28 57 29 2C 22 20 20 20 49 4E 54 45 52 4E 41 4C |(W)," INTERNAL|
00000FD0: 20 44 49 41 4D 45 54 45 52 20 20 20 20 3A 22 3B | DIAMETER :";|
00000FE0: 44 3B 22 4D 4D 22 00 15 18 84 17 98 28 57 29 2C |D;"MM"......(W),|
00000FF0: 22 20 20 20 53 50 45 43 2E 20 47 52 41 56 49 54 |" SPEC. GRAVIT|
00001000: 59 20 20 20 20 20 20 20 20 3A 22 3B 53 3B 22 4B |Y :";S;"K|
00001010: 47 2F 4D 33 22 00 44 18 8E 17 98 28 57 29 2C 22 |G/M3".D....(W),"|
00001020: 20 20 20 56 45 4C 4F 43 49 54 59 20 20 20 20 20 | VELOCITY |
00001030: 20 20 20 20 20 20 20 20 3A 22 3B 56 3B 22 4D 2F | :";V;"M/|
00001040: 53 45 43 22 00 71 18 98 17 98 28 57 29 2C 22 20 |SEC".q....(W)," |
00001050: 20 20 41 42 53 2E 20 56 49 53 43 4F 53 49 54 59 | ABS. VISCOSITY|
00001060: 20 20 20 20 20 20 20 3A 22 3B 43 50 3B 22 43 50 | :";CP;"CP|
00001070: 22 00 7C 18 99 17 8D 20 37 30 30 30 00 A9 18 A2 |".|.... 7000....|
00001080: 17 98 28 57 29 2C 22 20 20 20 4B 49 4E 2E 20 56 |..(W)," KIN. V|
00001090: 49 53 43 4F 53 49 54 59 20 20 20 20 20 20 20 3A |ISCOSITY :|
000010A0: 22 3B 43 53 3B 22 43 53 22 00 DD 18 AC 17 98 28 |";CS;"CS"......(|
000010B0: 57 29 2C 22 20 20 20 53 41 4D 50 4C 45 20 46 4C |W)," SAMPLE FL|
000010C0: 4F 57 20 20 20 20 20 20 20 20 20 20 3A 22 3B 51 |OW :";Q|
000010D0: 31 AC 33 36 30 30 3B 22 4D 33 2F 48 22 00 05 19 |1.3600;"M3/H"...|
000010E0: B6 17 98 28 57 29 2C 22 20 20 20 52 45 59 4E 4F |...(W)," REYNO|
000010F0: 4C 44 53 20 4E 4F 20 20 20 20 20 20 20 20 20 20 |LDS NO |
00001100: 3A 22 3B 52 45 00 2D 19 C0 17 98 28 57 29 2C 22 |:";RE.-....(W),"|
00001110: 20 20 20 46 52 49 43 54 49 4F 4E 20 46 41 43 54 | FRICTION FACT|
00001120: 4F 52 20 20 20 20 20 20 3A 22 3B 46 46 00 5C 19 |OR :";FF.\.|
00001130: CA 17 98 28 57 29 2C 22 20 20 20 54 4F 54 41 4C |...(W)," TOTAL|
00001140: 20 4C 49 4E 45 20 50 52 45 53 53 2E 44 52 4F 50 | LINE PRESS.DROP|
00001150: 3A 22 3B 50 31 3B 22 4D 42 41 52 22 00 8A 19 D4 |:";P1;"MBAR"....|
00001160: 17 98 28 57 29 2C 22 20 20 20 20 20 20 20 20 20 |..(W)," |
00001170: 20 20 20 20 20 20 20 20 20 20 20 4F 52 20 20 3A | OR :|
00001180: 22 3B 50 32 3B 22 42 41 52 22 00 A2 19 D9 17 50 |";P2;"BAR".....P|
00001190: 33 B2 B5 28 50 33 AC 31 30 30 AA 2E 35 29 AD 31 |3..(P3.100..5).1|
000011A0: 30 30 00 D1 19 DE 17 98 28 57 29 2C 22 50 52 45 |00......(W),"PRE|
000011B0: 53 53 55 52 45 20 44 52 4F 50 20 50 45 52 20 4D |SSURE DROP PER M|
000011C0: 45 54 45 52 20 3A 22 3B 50 33 3B 22 4D 42 41 52 |ETER :";P3;"MBAR|
000011D0: 22 00 E5 19 42 18 81 20 49 B2 31 A4 20 31 30 30 |"...B.. I.1. 100|
000011E0: 30 3A 82 20 49 00 01 1A 47 18 97 35 33 32 38 30 |0:. I...G..53280|
000011F0: 2C 34 3A 97 35 33 32 38 31 2C 39 3A 99 C7 28 35 |,4:.53281,9:..(5|
00001200: 29 00 1F 1A 48 18 81 49 B2 31 A4 35 3A 98 28 57 |)...H..I.1.5:.(W|
00001210: 29 3A 82 49 3A 8B 57 B2 34 20 89 36 32 31 39 00 |):.I:.W.4 .6219.|
00001220: 41 1A 49 18 85 22 44 4F 20 59 4F 55 20 57 41 4E |A.I.."DO YOU WAN|
00001230: 54 20 41 20 48 41 52 44 20 43 4F 50 59 22 3B 57 |T A HARD COPY";W|
00001240: 24 00 5A 1A 4A 18 8B 20 57 24 B2 22 59 22 20 A7 |$.Z.J.. W$."Y" .|
00001250: 20 57 B2 34 3A 89 35 30 31 30 00 61 1A 4B 18 A0 | W.4:.5010.a.K..|
00001260: 34 00 85 1A 4C 18 85 22 12 4D 4F 52 45 20 43 41 |4...L..".MORE CA|
00001270: 4C 43 55 4C 41 54 49 4F 4E 53 20 28 59 2F 4E 29 |LCULATIONS (Y/N)|
00001280: 92 22 3B 41 24 00 96 1A 56 18 8B 20 41 24 B2 22 |.";A$...V.. A$."|
00001290: 59 22 20 A7 20 35 00 9F 1A 60 18 99 22 93 22 00 |Y" . 5...`..".".|
000012A0: D5 1A 6A 18 99 22 11 11 11 11 11 11 11 11 11 11 |..j.."..........|
000012B0: 1D 1D 1D 1D 1D 4A 41 4D 4D 45 52 2C 20 54 4F 54 |.....JAMMER, TOT|
000012C0: 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 4B 45 45 | DE VOLGENDE KEE|
000012D0: 52 21 21 21 22 00 DB 1A 74 18 80 00 ED 1A 58 1B |R!!!"...t.....X.|
000012E0: 43 B2 43 50 AD 28 53 AD 31 30 30 30 29 00 04 1B |C.CP.(S.1000)...|
000012F0: 62 1B 43 53 B2 B5 28 43 AC 31 30 30 AA 2E 35 29 |b.CS..(C.100..5)|
00001300: AD 31 30 30 00 12 1B 67 1B 44 31 B2 44 AD 31 30 |.100...g.D1.D.10|
00001310: 30 30 00 2C 1B 6C 1B 52 B2 28 56 AC 44 31 29 AD |00.,.l.R.(V.D1).|
00001320: 28 43 53 AD 31 30 30 30 30 30 30 29 00 3B 1B 76 |(CS.1000000).;.v|
00001330: 1B 52 45 B2 B5 28 52 AA 2E 35 29 00 59 1B 80 1B |.RE..(R..5).Y...|
00001340: 46 46 B2 B5 28 28 36 34 AD 52 29 AC 31 30 30 30 |FF..((64.R).1000|
00001350: AA 2E 35 29 AD 31 30 30 30 00 71 1B 82 1B 8B 20 |..5).1000.q.... |
00001360: 46 46 B3 2E 30 30 31 20 A7 20 46 46 B2 2E 30 33 |FF..001 . FF..03|
00001370: 32 00 77 1B 8A 1B 8E 00 A6 1B 28 23 99 22 2A 2A |2.w.......(#."**|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013A0: 2A 2A 2A 2A 2A 22 00 D2 1B 32 23 99 22 20 20 20 |*****"...2#." |
000013B0: 20 3C 3C 20 53 41 4D 50 4C 45 20 53 59 53 54 45 | << SAMPLE SYSTE|
000013C0: 4D 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 3E |M CALCULATIONS >|
000013D0: 3E 22 00 E8 1B 3C 23 91 4F 89 39 30 33 30 2C 39 |>"...<#.O.9030,9|
000013E0: 30 33 32 2C 39 30 33 35 00 16 1C 46 23 99 22 11 |032,9035...F#.".|
000013F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |............PRES|
00001400: 53 55 52 45 20 44 52 4F 50 20 43 41 4C 43 92 22 |SURE DROP CALC."|
00001410: 3A 89 39 30 35 30 00 44 1C 48 23 99 22 11 1D 1D |:.9050.D.H#."...|
00001420: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 46 4C 4F 57 20 56 |..........FLOW V|
00001430: 45 4C 4F 43 49 54 59 20 43 41 4C 43 92 22 3A 89 |ELOCITY CALC.":.|
00001440: 39 30 35 30 00 70 1C 4B 23 99 22 11 1D 1D 1D 1D |9050.p.K#.".....|
00001450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4C 49 4E 45 20 53 |..........LINE S|
00001460: 49 5A 45 20 43 41 4C 43 92 22 3A 89 39 30 35 30 |IZE CALC.":.9050|
00001470: 00 9F 1C 5A 23 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |...Z#."*********|
00001480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
000014A0: A5 1C 6E 23 8E 00 B9 1C 50 C3 9F 36 2C 34 2C 36 |..n#....P..6,4,6|
000014B0: 3A 98 36 2C C7 28 33 34 29 00 C5 1C 5F C3 9F 34 |:.6,.(34)..._..4|
000014C0: 2C 34 3A 9D 34 00 D9 1C 64 C3 81 49 B2 30 A4 32 |,4:.4...d..I.0.2|
000014D0: 34 3A 81 4A B2 30 A4 33 39 00 EE 1C 6E C3 41 B2 |4:.J.0.39...n.A.|
000014E0: C2 28 31 30 32 34 AA 49 AC 34 30 AA 4A 29 00 F9 |.(1024.I.40.J)..|
000014F0: 1C 78 C3 8D 36 30 30 30 30 00 08 1D 82 C3 99 41 |.x..60000......A|
00001500: 24 3B 42 24 3B 43 24 3B 00 14 1D 8C C3 82 4A 3A |$;B$;C$;......J:|
00001510: 99 3A 82 49 00 20 1D 96 C3 98 34 3A A0 34 3A 80 |.:.I. ....4:.4:.|
00001520: 00 36 1D 60 EA 41 24 B2 22 22 3A 42 24 B2 22 22 |.6.`.A$."":B$.""|
00001530: 3A 43 24 B2 22 22 00 5F 1D 6A EA 8B 41 B1 31 32 |:C$.""._.j..A.12|
00001540: 37 A7 20 41 24 B2 C7 28 31 38 29 3A 43 24 B2 C7 |7. A$..(18):C$..|
00001550: 28 31 34 36 29 3A 41 B2 41 AB 31 32 38 3A 8E 00 |(146):A.A.128:..|
00001560: 77 1D 74 EA 8B 41 B3 33 32 A7 20 41 24 B2 C7 28 |w.t..A.32. A$..(|
00001570: 41 AA 36 34 29 3A 8E 00 91 1D 7E EA 8B 41 B1 33 |A.64):....~..A.3|
00001580: 31 AF 41 B3 36 34 A7 20 42 24 B2 C7 28 41 29 3A |1.A.64. B$..(A):|
00001590: 8E 00 AF 1D 88 EA 8B 41 B1 36 33 AF 41 B3 39 36 |.......A.63.A.96|
000015A0: A7 20 42 24 B2 C7 28 41 AA 31 32 38 29 3A 8E 00 |. B$..(A.128):..|
000015B0: C0 1D 92 EA 42 24 B2 C7 28 41 AA 36 34 29 3A 8E |....B$..(A.64):.|
000015C0: 00 00 00 |... |
.......53280,5:.53281,6:. G(5).'....".".
W...."**********************************
******".].........." .<< SAMPLE SYSTE
MS CALCULATIONS >>.".......B...."*******
*********************************".H....
......"SELECT ONE OF THE FOLOWING"......
:..5) "1. PRESSURE DROP CALC.".2.#..:..5
) "2. FLOW VELOCITY CALC.".R.(..:..5) "3
. LINE SIZE CALC.".Z.-..:..N.P..". CHOIS
E =";O.}.U.. O.1 . 80...V..O.3 . 80. .Z.
.O . 300,500,900...D.. DATA INTAKE GENER
AL DATA.H.I..".".P.N..:....P..53280,7:.5
3281,0:.G(5)...X.. 2000............ 2010
......... .. 2020.......*.... 2030.0....
.;.H.. 2040.A.R...L.... 2050.R.....]....
2060.C.........."DATA CORRECT?(Y/N)";A$
...... A$."Y". 290......"WHICH DATA NR?
(1-7)";Z...... Z.1 . 270.P.... Z.7 . 270
...... Z . 2000,2010,2020,2030,2040,2050
,2060...... 250..."..5000...$.O$."C".".+
...M.,.. DATA INPUT PRESSURE DROP CALCUL
ATION.I.-..53280,1:.53281,2:.G(5).R...."
.".}.1.. 9000...6.. 3000...;.....@.. 301
0...E.....J.. 3020...O.....T.. 3030.A.Y.
..L.^.. 3040.R.C.....H.."DATA CORRECT?(Y
/N)";A$...M.. A$."Y". 390...R.."WHICH DA
TA NR (1-5):";Z./.W.. Z.1 . 370.?.X.. Z.
5 . 370.B.|.. Z . 3000,3010,3020,3030,30
40.L.... 360.R.......... CALCULATION PRE
SSURE DROP. ...D1.D.1000.....P.(.032.(L.
D1).2).S.(V.V).Q...P1..(P.100..5).....P2
.P1.1000.....P3..((P1.L).100..5).100....
.Q..785.D1.D1.V.....Q2.Q.3600.;...Q1.(.(
Q2.1000).1000).3600.C....:..H...."INCLUD
E GENERAL DATA (Y/N)";A$.{.... A$."Y" .
100...A.. A$."N" . 460...B.. 445...D.O$.
"C"...L.. 5000......".".S....53280,0:.53
281,2:.G(7)......"."...... 9000...... DA
TA INPUT VELOCITY CALCULATION......:....
...3000.%...../....3010.5.!...?.&..3020.
E.+...O.0..3030.U.5..._.7..4000.G.8..:..
..:.."DATA CORRECT?(Y/N)";A$...?.. A$."Y
". 600...D.."WHICH DATA NR(1-5)";Z.A.I..
Z.1 .580.P.J..Z.5 . 580...N.. Z. 3000,3
010,3020,3030,4000...S.. 570...X.. VELOC
ITY CALCULATION.).B.C.CP.(S.1000).@.G.CS
..(C.100..5).100.M.L.FF1..032.L.Q.V..((P
2.(FF1.L.S)).D).14.1.....R.(V.D).(CS.100
0000).....RE..(R..5)...... RE.2000 . 697
.....FF.64.R.A...F.FF1.FF.V.....(F)..001
. 665.....FF1.FF...... 625......F..001.
F..032.....V..((P2.(F.L.S)).D).14.1.0..
.V..(V.10..5).10.I...R.(V.D).(CS.1000000
).W...D1.D.1000.J...Q..785.D1.D1.V.X...Q
2.Q.3600.....Q1.(.(Q2.1000).1000).3600.
.... 445.......M.... DATA INPUT LINE SIZ
E CALCULATION......53280,9:.53281,10:.G(
5)......"."...... 9000............ 3000.
...... .... 4500.&.....1.... 3020.7.....
B.... 3030.H.....S.... 3040.Y.E...A.J..:
..~.T.."DATA CORRECT (Y/N)";A$...... A$.
"Y". 1100...... A$."N". 1020...... 980.J
...."WHICH DATA (NR1-5)";Z.Z.... Z.1. 10
20...... Z.5. 1020......Z.3000,4500,3020
,3030,3040...... 980.0.$.. LINE SIZE CAL
CULATION.<.L.FF..032.^.V.D.(V.V.S.L.FF).
(14.1.14.1.P2).L.[.D1.D.1000.~.`.C.CP.(S
.1000)...J.CS..(C.100..5).100...T.R.(V.D
1).(CS.1000000)...~.RE..(R..5).Q...Q..78
5.D1.D1.V.....Q2.Q.3600.....Q1.(.(Q2.100
0).1000).3600......445.-.P.."1. H.I. REF
ERENCE :";H$.3.U...Z.Z.."2. COS
TUMER :";C$.`.........."3
. ENQUIRY NO :";E$.........
..."4. REQUISITION NO :";R$....
........"5. ANALYZER NO :";Z
$............"6. TAG NO
:";T$.......;...."7. SERVICE
:";S$.A.....G...."1.LINE LENGHT IN
METERS :";L.M.......B.."2.INTERNAL D
IAMETER IN MM :";D...G.....L.."3.S.G. I
N KG/M3 :";S.E.Q.....V.."4.VI
SCOSITY IN CP :";CP............
"5.VELOCITY IN M/SEC :";V.......E
. .."5.AVAILABLE PRESS. DROP :";P2.\.
..P1.P2.1000:P3.P1.L.B.........."2.AVAIL
ABLE PRESS. DROP :";P2. ...P1.P2.1000
:P3.P1.L............"."......4,4.....W.3
.I....3,3......(W),"********************
*******************".,....(W)," << SA
MPLE SYSTEM CALCULATIONS >>"._....(W),"*
**************************************".
S.I.. A$."N" . 6000...N..(W)," H.I. RE
FERENCE :";H$.C.X..(W)," COSTUME
R :";C$......(W)," ENQUIRY
NO :";E$......(W)," REQUISI
TION NO :";R$.;....(W)," ANALYZE
R :";Z$.C....(W)," TAG NO
:";T$......(W)," SERVICE
:";S$...P..(W)," LINE LE
NGHT :";L;"METER"...Z..(W),"
INTERNAL DIAMETER :";D;"MM"......(W),
" SPEC. GRAVITY :";S;"KG/M3".D.
...(W)," VELOCITY :";V;"M/
SEC".Q....(W)," ABS. VISCOSITY :
";CP;"CP".|.... 7000......(W)," KIN. V
ISCOSITY :";CS;"CS"......(W)," S
AMPLE FLOW :";Q1.3600;"M3/H"...
...(W)," REYNOLDS NO :";RE.-.
...(W)," FRICTION FACTOR :";FF.\.
J..(W)," TOTAL LINE PRESS.DROP:";P1;"M
BAR"...T..(W)," OR :
";P2;"BAR"...Y.P3..(P3.100..5).100.Q....
(W),"PRESSURE DROP PER METER :";P3;"MBAR
"...B.. I.1. 1000:. I...G..53280,4:.5328
1,9:.G(5)...H..I.1.5:.(W):.I:.W.4 .6219.
A.I.."DO YOU WANT A HARD COPY";W$.Z.J..
W$."Y" . W.4:.5010.A.K. 4...L..".MORE CA
LCULATIONS (Y/N).";A$...V.. A$."Y" . 5..
.`..".".U.J.."...............JAMMER, TOT
DE VOLGENDE KEER!!!"...T.....X.C.CP.(S.
1000)...B.CS..(C.100..5).100...G.D1.D.10
00.,.L.R.(V.D1).(CS.1000000).;.V.RE..(R.
.5).Y...FF..((64.R).1000..5).1000.Q....
FF..001 . FF..032.W.......(#."**********
*****************************".R.2#."
<< SAMPLE SYSTEM CALCULATIONS >>"...<#.
O.9030,9032,9035...F#.".............PRES
SURE DROP CALC.":.9050.D.H#."...........
..FLOW VELOCITY CALC.":.9050.P.K#.".....
..........LINE SIZE CALC.":.9050...Z#."*
**************************************".
..N#....PC.6,4,6:.6,G(34).E._C.4,4:.4.Y.
DC.I.0.24:.J.0.39...NCA.B(1024.I.40.J)..
.XC.60000....C.A$;B$;C$;....C.J:.:.I. ..
C.4: 4:..6.`.A$."":B$."":C$.""._.J..A.12
7. A$.G(18):C$.G(146):A.A.128:..W.T..A.3
2. A$.G(A.64):....~..A.31.A.64. B$.G(A):
.......A.63.A.96. B$.G(A.128):......B$.G
(A.64):....
> CLICK IMAGE PREVIEW FOR FULL MODAL