FRICTION LOSS V2
FILE INFORMATION
FILENAME(S): FRICTION LOSS V2
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-10-20 14:30:32
APPEARS ON: 1 disk(s)
FILE HASH
d9ccd971b8f588c35be8cac3cb9582610bd6fcb438c7fc39945135439931a95e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026ED | FRICTION LOSS V2 | PRG | Treasure Chest - Klaus Der Suhler | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 01 00 99 C7 28 31 34 37 29 00 2B 08 |........(147).+.|
00000010: 02 00 97 35 33 32 38 31 2C 31 3A 97 35 33 32 38 |...53281,1:.5328|
00000020: 30 2C 31 3A 99 C7 28 31 34 37 29 00 5B 08 03 00 |0,1:..(147).[...|
00000030: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 |."..............|
00000040: 11 11 11 11 11 11 11 11 11 4F 4E 45 20 4D 4F 4D |.........ONE MOM|
00000050: 45 4E 54 20 50 4C 45 41 53 45 22 00 85 08 04 00 |ENT PLEASE".....|
00000060: 99 22 11 11 11 11 11 11 11 11 11 11 53 45 45 20 |."..........SEE |
00000070: 52 45 4D 27 53 20 41 54 20 45 4E 44 20 4F 46 20 |REM'S AT END OF |
00000080: 4C 49 53 54 22 00 90 08 05 00 8D 32 32 39 20 20 |LIST"......229 |
00000090: 00 A0 08 06 00 81 54 B2 31 A4 31 30 30 30 3A 82 |......T.1.1000:.|
000000A0: 00 BB 08 07 00 97 37 38 30 2C 31 30 3A 97 37 38 |......780,10:.78|
000000B0: 31 2C 38 36 3A 97 37 38 32 2C 32 00 C7 08 08 00 |1,86:.782,2.....|
000000C0: 9E 20 34 39 31 37 36 00 D3 08 09 00 99 C7 28 31 |. 49176.......(1|
000000D0: 34 37 29 00 EE 08 0A 00 97 35 33 32 38 31 2C 31 |47)......53281,1|
000000E0: 3A 97 35 33 32 38 30 2C 31 3A 99 22 9F 22 00 01 |:.53280,1:."."..|
000000F0: 09 0B 00 81 58 B2 31 30 32 34 20 A4 20 31 30 36 |....X.1024 . 106|
00000100: 33 00 0C 09 0C 00 97 20 58 2C 34 32 00 14 09 0D |3...... X,42....|
00000110: 00 82 20 58 00 27 09 0E 00 81 58 B2 31 39 38 34 |.. X.'....X.1984|
00000120: 20 A4 20 32 30 32 33 00 35 09 0F 00 97 20 58 2C | . 2023.5.... X,|
00000130: 34 32 3A 82 58 00 4C 09 10 00 81 58 B2 31 30 36 |42:.X.L....X.106|
00000140: 34 20 A4 20 31 39 34 34 20 A9 34 30 00 5B 09 11 |4 . 1944 .40.[..|
00000150: 00 97 20 58 2C 34 32 3A 82 20 58 00 72 09 12 00 |.. X,42:. X.r...|
00000160: 81 58 B2 31 31 30 33 20 A4 20 31 39 38 33 20 A9 |.X.1103 . 1983 .|
00000170: 34 30 00 80 09 13 00 97 20 58 2C 34 32 3A 82 58 |40...... X,42:.X|
00000180: 00 8B 09 14 00 8D 32 31 38 20 20 00 AB 09 15 00 |......218 .....|
00000190: 99 22 93 22 3A 99 22 98 22 3A 97 35 33 32 38 31 |.".":.".":.53281|
000001A0: 2C 31 3A 97 35 33 32 38 30 2C 33 00 B6 09 16 00 |,1:.53280,3.....|
000001B0: 8D 31 39 30 20 20 00 C6 09 17 00 81 54 B2 31 A4 |.190 ......T.1.|
000001C0: 32 35 30 30 3A 82 00 F4 09 18 00 99 22 93 22 3A |2500:.......".":|
000001D0: 99 3A 99 3A 99 A3 33 29 22 41 20 20 46 4F 52 20 |.:.:..3)"A FOR |
000001E0: 31 2D 31 2F 32 20 49 4E 43 48 22 3A 97 35 33 32 |1-1/2 INCH":.532|
000001F0: 38 30 2C 33 00 FC 09 19 00 99 3A 99 00 18 0A 1A |80,3......:.....|
00000200: 00 99 A3 33 29 22 42 20 20 46 4F 52 20 31 2D 33 |...3)"B FOR 1-3|
00000210: 2F 34 20 49 4E 43 48 22 00 20 0A 1B 00 99 3A 99 |/4 INCH". ....:.|
00000220: 00 3C 0A 1C 00 99 A3 33 29 22 43 20 20 46 4F 52 |.<.....3)"C FOR|
00000230: 20 32 2D 31 2F 32 20 49 4E 43 48 22 00 44 0A 1D | 2-1/2 INCH".D..|
00000240: 00 99 3A 99 00 5C 0A 1E 00 99 A3 33 29 22 44 20 |..:..\.....3)"D |
00000250: 20 46 4F 52 20 33 20 49 4E 43 48 22 00 64 0A 1F | FOR 3 INCH".d..|
00000260: 00 99 3A 99 00 7C 0A 20 00 99 A3 33 29 22 45 20 |..:..|. ...3)"E |
00000270: 20 46 4F 52 20 34 20 49 4E 43 48 22 00 84 0A 21 | FOR 4 INCH"...!|
00000280: 00 99 3A 99 00 A0 0A 22 00 99 A3 33 29 22 46 20 |..:...."...3)"F |
00000290: 20 46 4F 52 20 34 2D 31 2F 32 20 49 4E 43 48 22 | FOR 4-1/2 INCH"|
000002A0: 00 A8 0A 23 00 99 3A 99 00 C0 0A 24 00 99 A3 33 |...#..:....$...3|
000002B0: 29 22 47 20 20 46 4F 52 20 35 20 49 4E 43 48 22 |)"G FOR 5 INCH"|
000002C0: 00 CA 0A 25 00 99 3A 99 3A 99 00 EE 0A 26 00 99 |...%..:.:....&..|
000002D0: 22 53 49 5A 45 20 4F 46 20 48 4F 53 45 20 28 53 |"SIZE OF HOSE (S|
000002E0: 45 4C 45 43 54 20 41 20 54 4F 20 47 29 22 00 04 |ELECT A TO G)"..|
000002F0: 0B 27 00 A1 20 41 24 3A 8B 41 24 B2 22 22 20 A7 |.'.. A$:.A$."" .|
00000300: 33 39 20 20 00 15 0B 28 00 8B 41 24 B2 22 41 22 |39 ...(..A$."A"|
00000310: A7 37 39 20 20 00 26 0B 29 00 8B 41 24 B2 22 44 |.79 .&.)..A$."D|
00000320: 22 A7 31 31 32 20 00 37 0B 2A 00 8B 41 24 B2 22 |".112 .7.*..A$."|
00000330: 42 22 A7 39 35 20 20 00 47 0B 2B 00 8B 41 24 B2 |B".95 .G.+..A$.|
00000340: 22 46 22 A7 34 38 20 00 58 0B 2C 00 8B 41 24 B2 |"F".48 .X.,..A$.|
00000350: 22 45 22 A7 31 34 34 20 00 69 0B 2D 00 8B 41 24 |"E".144 .i.-..A$|
00000360: B2 22 43 22 A7 36 34 20 20 00 7C 0B 2E 00 8B 20 |."C".64 .|.... |
00000370: 41 24 B2 22 47 22 20 A7 31 32 38 20 00 BE 0B 2F |A$."G" .128 .../|
00000380: 00 8B 41 24 B3 B1 22 41 22 B0 41 24 B3 B1 22 42 |..A$.."A".A$.."B|
00000390: 22 B0 41 24 B3 B1 22 43 22 B0 41 24 B3 B1 22 44 |".A$.."C".A$.."D|
000003A0: 22 B0 41 24 B3 B1 22 46 22 B0 41 24 B3 B1 22 45 |".A$.."F".A$.."E|
000003B0: 22 B0 41 24 B3 B1 22 47 22 A7 32 34 20 20 00 C7 |".A$.."G".24 ..|
000003C0: 0B 30 00 99 22 93 22 00 D3 0B 31 00 99 3A 99 3A |.0.."."...1..:.:|
000003D0: 99 3A 99 00 E2 0B 32 00 53 24 B2 22 34 2D 31 2F |.:....2.S$."4-1/|
000003E0: 32 22 00 1A 0C 33 00 99 22 46 52 49 43 54 49 4F |2"...3.."FRICTIO|
000003F0: 4E 20 4C 4F 53 53 20 46 4F 52 20 34 2D 31 2F 32 |N LOSS FOR 4-1/2|
00000400: 20 49 4E 43 48 20 48 4F 53 45 20 50 45 52 20 20 | INCH HOSE PER |
00000410: 20 31 30 30 20 46 45 45 54 22 00 24 0C 34 00 99 | 100 FEET".$.4..|
00000420: 3A 99 3A 99 00 3C 0C 35 00 99 22 57 48 41 54 20 |:.:..<.5.."WHAT |
00000430: 49 53 20 54 48 45 20 47 50 4D 3F 22 00 47 0C 36 |IS THE GPM?".G.6|
00000440: 00 97 31 39 2C 33 32 00 4F 0C 37 00 85 20 47 00 |..19,32.O.7.. G.|
00000450: 5B 0C 38 00 51 B2 47 AD 31 30 30 00 69 0C 39 00 |[.8.Q.G.100.i.9.|
00000460: 46 B2 51 AC 51 AC 32 AA 51 00 75 0C 3A 00 46 B2 |F.Q.Q.2.Q.u.:.F.|
00000470: 46 AC 2E 30 35 00 81 0C 3B 00 99 3A 99 3A 99 3A |F..05...;..:.:.:|
00000480: 99 00 C2 0C 3C 00 99 22 54 48 45 20 46 52 49 43 |....<.."THE FRIC|
00000490: 54 49 4F 4E 20 4C 4F 53 53 20 46 4F 52 20 34 2D |TION LOSS FOR 4-|
000004A0: 31 2F 32 20 49 4E 43 48 20 48 4F 53 45 20 41 54 |1/2 INCH HOSE AT|
000004B0: 2C 22 47 22 47 50 4D 20 49 53 2C 22 46 22 50 53 |,"G"GPM IS,"F"PS|
000004C0: 49 22 00 D5 0C 3D 00 8B 20 46 B1 33 36 20 A7 20 |I"...=.. F.36 . |
000004D0: 8D 31 37 34 20 00 E6 0C 3E 00 81 54 B2 31 20 A4 |.174 ...>..T.1 .|
000004E0: 31 30 30 30 3A 82 00 F0 0C 3F 00 8D 31 38 30 20 |1000:....?..180 |
000004F0: 00 F9 0C 40 00 99 22 93 22 00 05 0D 41 00 99 3A |...@.."."...A..:|
00000500: 99 3A 99 3A 99 00 14 0D 42 00 53 24 B2 22 32 2D |.:.:....B.S$."2-|
00000510: 31 2F 32 22 00 4C 0D 43 00 99 22 46 52 49 43 54 |1/2".L.C.."FRICT|
00000520: 49 4F 4E 20 4C 4F 53 53 20 46 4F 52 20 32 2D 31 |ION LOSS FOR 2-1|
00000530: 2F 32 20 49 4E 43 48 20 48 4F 53 45 20 50 45 52 |/2 INCH HOSE PER|
00000540: 20 20 20 31 30 30 20 46 45 45 54 22 00 56 0D 44 | 100 FEET".V.D|
00000550: 00 99 3A 99 3A 99 00 6D 0D 45 00 99 22 57 48 41 |..:.:..m.E.."WHA|
00000560: 54 20 49 53 20 54 48 45 20 47 50 4D 3F 00 78 0D |T IS THE GPM?.x.|
00000570: 46 00 97 31 39 2C 33 32 00 80 0D 47 00 85 20 47 |F..19,32...G.. G|
00000580: 00 8C 0D 48 00 51 B2 47 AD 31 30 30 00 9A 0D 49 |...H.Q.G.100...I|
00000590: 00 46 B2 51 AC 51 AC 32 AA 51 00 A6 0D 4A 00 99 |.F.Q.Q.2.Q...J..|
000005A0: 3A 99 3A 99 3A 99 00 E7 0D 4B 00 99 22 54 48 45 |:.:.:....K.."THE|
000005B0: 20 46 52 49 43 54 49 4F 4E 20 4C 4F 53 53 20 46 | FRICTION LOSS F|
000005C0: 4F 52 20 32 2D 31 2F 32 20 49 4E 43 48 20 48 4F |OR 2-1/2 INCH HO|
000005D0: 53 45 20 41 54 2C 22 47 22 47 50 4D 20 49 53 2C |SE AT,"G"GPM IS,|
000005E0: 22 46 22 50 53 49 22 00 FC 0D 4C 00 8B 20 46 B1 |"F"PSI"...L.. F.|
000005F0: 33 36 20 A7 20 20 8D 31 37 34 20 20 00 0C 0E 4D |36 . .174 ...M|
00000600: 00 81 54 B2 31 A4 31 30 30 30 3A 82 00 17 0E 4E |..T.1.1000:....N|
00000610: 00 8D 31 38 30 20 20 00 20 0E 4F 00 99 22 93 22 |..180 . .O.."."|
00000620: 00 2C 0E 50 00 99 3A 99 3A 99 3A 99 00 3B 0E 51 |.,.P..:.:.:..;.Q|
00000630: 00 53 24 B2 22 31 2D 31 2F 32 22 00 73 0E 52 00 |.S$."1-1/2".s.R.|
00000640: 99 22 46 52 49 43 54 49 4F 4E 20 4C 4F 53 53 20 |."FRICTION LOSS |
00000650: 46 4F 52 20 31 2D 31 2F 32 20 49 4E 43 48 20 48 |FOR 1-1/2 INCH H|
00000660: 4F 53 45 20 50 45 52 20 20 20 31 30 30 20 46 45 |OSE PER 100 FE|
00000670: 45 54 22 00 7D 0E 53 00 99 3A 99 3A 99 00 94 0E |ET".}.S..:.:....|
00000680: 54 00 99 22 57 48 41 54 20 49 53 20 54 48 45 20 |T.."WHAT IS THE |
00000690: 47 50 4D 3F 00 9F 0E 55 00 97 31 39 2C 33 32 00 |GPM?...U..19,32.|
000006A0: A7 0E 56 00 85 20 47 00 B3 0E 57 00 51 B2 47 AD |..V.. G...W.Q.G.|
000006B0: 31 30 30 00 C1 0E 58 00 46 B2 51 AC 51 AC 32 AA |100...X.F.Q.Q.2.|
000006C0: 51 00 CC 0E 59 00 46 B2 46 AC 31 30 00 D6 0E 5A |Q...Y.F.F.10...Z|
000006D0: 00 99 3A 99 3A 99 00 17 0F 5B 00 99 22 54 48 45 |..:.:....[.."THE|
000006E0: 20 46 52 49 43 54 49 4F 4E 20 4C 4F 53 53 20 46 | FRICTION LOSS F|
000006F0: 4F 52 20 31 2D 31 2F 32 20 49 4E 43 48 20 48 4F |OR 1-1/2 INCH HO|
00000700: 53 45 20 41 54 2C 22 47 22 47 50 4D 20 49 53 2C |SE AT,"G"GPM IS,|
00000710: 22 46 22 50 53 49 22 00 2A 0F 5C 00 8B 20 46 B1 |"F"PSI".*.\.. F.|
00000720: 33 36 20 A7 20 8D 31 37 34 20 00 3A 0F 5D 00 81 |36 . .174 .:.]..|
00000730: 54 B2 31 A4 31 30 30 30 3A 82 00 45 0F 5E 00 8D |T.1.1000:..E.^..|
00000740: 31 38 30 20 20 00 4E 0F 5F 00 99 22 93 22 00 5A |180 .N._..".".Z|
00000750: 0F 60 00 99 3A 99 3A 99 3A 99 00 69 0F 61 00 53 |.`..:.:.:..i.a.S|
00000760: 24 B2 22 31 2D 33 2F 34 22 00 A1 0F 62 00 99 22 |$."1-3/4"...b.."|
00000770: 46 52 49 43 54 49 4F 4E 20 4C 4F 53 53 20 46 4F |FRICTION LOSS FO|
00000780: 52 20 31 2D 33 2F 34 20 49 4E 43 48 20 48 4F 53 |R 1-3/4 INCH HOS|
00000790: 45 20 50 45 52 20 20 20 31 30 30 20 46 45 45 54 |E PER 100 FEET|
000007A0: 22 00 AB 0F 63 00 99 3A 99 3A 99 00 C2 0F 64 00 |"...c..:.:....d.|
000007B0: 99 22 57 48 41 54 20 49 53 20 54 48 45 20 47 50 |."WHAT IS THE GP|
000007C0: 4D 3F 00 CD 0F 65 00 97 31 39 2C 33 32 00 D5 0F |M?...e..19,32...|
000007D0: 66 00 85 20 47 00 E1 0F 67 00 51 B2 47 AD 31 30 |f.. G...g.Q.G.10|
000007E0: 30 00 EF 0F 68 00 46 B2 51 AC 51 AC 32 AA 51 00 |0...h.F.Q.Q.2.Q.|
000007F0: F9 0F 69 00 46 B2 46 AC 34 00 03 10 6A 00 99 3A |..i.F.F.4...j..:|
00000800: 99 3A 99 00 44 10 6B 00 99 22 54 48 45 20 46 52 |.:..D.k.."THE FR|
00000810: 49 43 54 49 4F 4E 20 4C 4F 53 53 20 46 4F 52 20 |ICTION LOSS FOR |
00000820: 31 2D 33 2F 34 20 49 4E 43 48 20 48 4F 53 45 20 |1-3/4 INCH HOSE |
00000830: 41 54 2C 22 47 22 47 50 4D 20 49 53 2C 22 46 22 |AT,"G"GPM IS,"F"|
00000840: 50 53 49 22 00 57 10 6C 00 8B 20 46 B1 33 36 20 |PSI".W.l.. F.36 |
00000850: A7 20 8D 31 37 34 20 00 67 10 6D 00 81 54 B2 31 |. .174 .g.m..T.1|
00000860: A4 31 30 30 30 3A 82 00 72 10 6E 00 8D 31 38 30 |.1000:..r.n..180|
00000870: 20 20 00 7C 10 6F 00 89 31 36 30 20 00 85 10 70 | .|.o..160 ...p|
00000880: 00 99 22 93 22 00 90 10 71 00 53 24 B2 22 33 22 |.."."...q.S$."3"|
00000890: 00 9C 10 72 00 99 3A 99 3A 99 3A 99 00 D0 10 73 |...r..:.:.:....s|
000008A0: 00 99 22 46 52 49 43 54 49 4F 4E 20 4C 4F 53 53 |.."FRICTION LOSS|
000008B0: 20 46 4F 52 20 33 20 49 4E 43 48 20 48 4F 53 45 | FOR 3 INCH HOSE|
000008C0: 20 50 45 52 20 31 30 30 20 20 20 46 45 45 54 22 | PER 100 FEET"|
000008D0: 00 DA 10 74 00 99 3A 99 3A 99 00 F1 10 75 00 99 |...t..:.:....u..|
000008E0: 22 57 48 41 54 20 49 53 20 54 48 45 20 47 50 4D |"WHAT IS THE GPM|
000008F0: 3F 00 FC 10 76 00 97 31 39 2C 33 32 00 04 11 77 |?...v..19,32...w|
00000900: 00 85 20 47 00 10 11 78 00 51 B2 47 AD 31 30 30 |.. G...x.Q.G.100|
00000910: 00 1E 11 79 00 46 B2 51 AC 51 AC 32 AA 51 00 2A |...y.F.Q.Q.2.Q.*|
00000920: 11 7A 00 46 B2 46 AC 30 2E 34 00 34 11 7B 00 99 |.z.F.F.0.4.4.{..|
00000930: 3A 99 3A 99 00 73 11 7C 00 99 22 54 48 45 20 46 |:.:..s.|.."THE F|
00000940: 52 49 43 54 49 4F 4E 20 4C 4F 53 53 20 46 4F 52 |RICTION LOSS FOR|
00000950: 20 33 20 49 4E 43 48 20 48 4F 53 45 20 41 54 2C | 3 INCH HOSE AT,|
00000960: 20 20 22 47 22 47 50 4D 20 49 53 2C 22 46 22 50 | "G"GPM IS,"F"P|
00000970: 53 49 22 00 85 11 7D 00 8B 20 46 B1 33 36 20 A7 |SI"...}.. F.36 .|
00000980: 8D 31 37 34 20 00 95 11 7E 00 81 54 B2 31 A4 31 |.174 ...~..T.1.1|
00000990: 30 30 30 3A 82 00 A0 11 7F 00 8D 31 38 30 20 20 |000:.......180 |
000009A0: 00 A9 11 80 00 99 22 93 22 00 B4 11 81 00 53 24 |......".".....S$|
000009B0: B2 22 35 22 00 C0 11 82 00 99 3A 99 3A 99 3A 99 |."5"......:.:.:.|
000009C0: 00 F4 11 83 00 99 22 46 52 49 43 54 49 4F 4E 20 |......"FRICTION |
000009D0: 4C 4F 53 53 20 46 4F 52 20 35 20 49 4E 43 48 20 |LOSS FOR 5 INCH |
000009E0: 48 4F 53 45 20 50 45 52 20 31 30 30 20 20 20 46 |HOSE PER 100 F|
000009F0: 45 45 54 22 00 FE 11 84 00 99 3A 99 3A 99 00 15 |EET"......:.:...|
00000A00: 12 85 00 99 22 57 48 41 54 20 49 53 20 54 48 45 |...."WHAT IS THE|
00000A10: 20 47 50 4D 3F 00 20 12 86 00 97 31 39 2C 33 32 | GPM?. ....19,32|
00000A20: 00 28 12 87 00 85 20 47 00 34 12 88 00 51 B2 47 |.(.... G.4...Q.G|
00000A30: AD 31 30 30 00 42 12 89 00 46 B2 51 AC 51 AC 32 |.100.B...F.Q.Q.2|
00000A40: AA 51 00 4F 12 8A 00 46 B2 46 AC 30 2E 30 33 00 |.Q.O...F.F.0.03.|
00000A50: 59 12 8B 00 99 3A 99 3A 99 00 98 12 8C 00 99 22 |Y....:.:......."|
00000A60: 54 48 45 20 46 52 49 43 54 49 4F 4E 20 4C 4F 53 |THE FRICTION LOS|
00000A70: 53 20 46 4F 52 20 35 20 49 4E 43 48 20 48 4F 53 |S FOR 5 INCH HOS|
00000A80: 45 20 41 54 2C 20 20 22 47 22 47 50 4D 20 49 53 |E AT, "G"GPM IS|
00000A90: 2C 22 46 22 50 53 49 22 00 AB 12 8D 00 8B 20 46 |,"F"PSI"...... F|
00000AA0: B1 33 36 20 A7 20 8D 31 37 34 20 00 BB 12 8E 00 |.36 . .174 .....|
00000AB0: 81 54 B2 31 A4 31 30 30 30 3A 82 00 C6 12 8F 00 |.T.1.1000:......|
00000AC0: 8D 31 38 30 20 20 00 CF 12 90 00 99 22 93 22 00 |.180 ......".".|
00000AD0: DA 12 91 00 53 24 B2 22 34 22 00 E6 12 92 00 99 |....S$."4"......|
00000AE0: 3A 99 3A 99 3A 99 00 1A 13 93 00 99 22 46 52 49 |:.:.:......."FRI|
00000AF0: 43 54 49 4F 4E 20 4C 4F 53 53 20 46 4F 52 20 34 |CTION LOSS FOR 4|
00000B00: 20 49 4E 43 48 20 48 4F 53 45 20 50 45 52 20 31 | INCH HOSE PER 1|
00000B10: 30 30 20 20 20 46 45 45 54 22 00 24 13 94 00 99 |00 FEET".$....|
00000B20: 3A 99 3A 99 00 3B 13 95 00 99 22 57 48 41 54 20 |:.:..;...."WHAT |
00000B30: 49 53 20 54 48 45 20 47 50 4D 3F 00 46 13 96 00 |IS THE GPM?.F...|
00000B40: 97 31 39 2C 33 32 00 4E 13 97 00 85 20 47 00 5A |.19,32.N.... G.Z|
00000B50: 13 98 00 51 B2 47 AD 31 30 30 00 68 13 99 00 46 |...Q.G.100.h...F|
00000B60: B2 51 AC 51 AC 32 AA 51 00 75 13 9A 00 46 B2 46 |.Q.Q.2.Q.u...F.F|
00000B70: AC 30 2E 31 30 00 7F 13 9B 00 99 3A 99 3A 99 00 |.0.10......:.:..|
00000B80: BE 13 9C 00 99 22 54 48 45 20 46 52 49 43 54 49 |....."THE FRICTI|
00000B90: 4F 4E 20 4C 4F 53 53 20 46 4F 52 20 34 20 49 4E |ON LOSS FOR 4 IN|
00000BA0: 43 48 20 48 4F 53 45 20 41 54 2C 20 20 22 47 22 |CH HOSE AT, "G"|
00000BB0: 47 50 4D 20 49 53 2C 22 46 22 50 53 49 22 00 CF |GPM IS,"F"PSI"..|
00000BC0: 13 9D 00 8B 20 46 B1 33 36 A7 8D 31 37 34 20 00 |.... F.36..174 .|
00000BD0: DF 13 9E 00 81 54 B2 31 A4 31 30 30 30 3A 82 00 |.....T.1.1000:..|
00000BE0: EA 13 9F 00 8D 31 38 30 20 20 00 F3 13 A0 00 99 |.....180 ......|
00000BF0: 22 93 22 00 05 14 A1 00 99 3A 99 3A 99 3A 99 3A |"."......:.:.:.:|
00000C00: 99 3A 99 3A 99 00 37 14 A2 00 99 22 13 11 11 11 |.:.:..7...."....|
00000C10: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C20: 1D 2A 2A 20 41 4E 4F 54 48 45 52 20 50 52 4F 42 |.** ANOTHER PROB|
00000C30: 4C 45 4D 20 2A 2A 22 00 41 14 A3 00 99 3A 99 3A |LEM **".A....:.:|
00000C40: 99 00 52 14 A4 00 99 A6 31 37 29 22 28 59 2F 4E |..R.....17)"(Y/N|
00000C50: 29 22 00 68 14 A5 00 A1 41 24 3A 8B 41 24 B2 22 |)".h....A$:.A$."|
00000C60: 22 20 A7 31 36 35 20 20 00 79 14 A6 00 8B 41 24 |" .165 .y....A$|
00000C70: B2 22 4E 22 A7 31 36 39 20 00 89 14 A7 00 8B 41 |."N".169 ......A|
00000C80: 24 B2 22 59 22 A7 32 34 20 00 A7 14 A8 00 8B 20 |$."Y".24 ...... |
00000C90: 41 24 B3 B1 22 4E 22 20 B0 20 41 24 B3 B1 22 59 |A$.."N" . A$.."Y|
00000CA0: 22 20 A7 31 36 32 20 00 B3 14 A9 00 99 C7 28 31 |" .162 .......(1|
00000CB0: 34 37 29 00 E0 14 AA 00 99 22 1D 1D 1D 1D 1D 1D |47)......"......|
00000CC0: 1D 1D 1D 1D 11 11 11 11 11 11 11 11 41 52 45 20 |............ARE |
00000CD0: 59 4F 55 20 53 55 52 45 3F 20 28 59 2F 4E 29 22 |YOU SURE? (Y/N)"|
00000CE0: 00 F4 14 AB 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000CF0: 31 37 31 20 00 09 15 AC 00 8B 20 41 24 B2 22 59 |171 ...... A$."Y|
00000D00: 22 20 A7 20 89 33 31 36 20 00 1B 15 AD 00 8B 20 |" . .316 ...... |
00000D10: 41 24 B2 22 4E 22 20 A7 32 34 20 00 45 15 AE 00 |A$."N" .24 .E...|
00000D20: 99 22 11 11 11 54 48 45 20 52 45 44 20 4C 49 4E |."...THE RED LIN|
00000D30: 45 20 48 41 53 20 42 45 45 4E 20 45 58 43 45 45 |E HAS BEEN EXCEE|
00000D40: 44 45 44 22 3B 00 8D 15 AF 00 99 22 20 46 4F 52 |DED";......" FOR|
00000D50: 20 54 48 49 53 20 53 49 5A 45 20 4F 46 20 48 4F | THIS SIZE OF HO|
00000D60: 53 45 20 59 4F 55 20 53 48 4F 55 4C 44 20 55 53 |SE YOU SHOULD US|
00000D70: 45 20 41 20 4C 41 52 47 45 52 20 20 20 20 44 49 |E A LARGER DI|
00000D80: 41 4D 45 54 45 52 20 48 4F 53 45 22 3B 00 A9 15 |AMETER HOSE";...|
00000D90: B0 00 99 22 20 4F 52 20 4C 41 59 20 41 4E 4F 54 |..." OR LAY ANOT|
00000DA0: 48 45 52 20 4C 49 4E 45 2E 00 B6 15 B1 00 97 35 |HER LINE.......5|
00000DB0: 33 32 38 30 2C 32 00 C1 15 B2 00 8D 32 30 37 20 |3280,2......207 |
00000DC0: 20 00 C7 15 B3 00 8E 00 F1 15 B4 00 99 3A 99 3A | ............:.:|
00000DD0: 99 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |.:."DO YOU WANT |
00000DE0: 48 41 52 44 20 43 4F 50 59 3F 20 28 59 2F 4E 29 |HARD COPY? (Y/N)|
00000DF0: 22 00 08 16 B5 00 A1 20 48 24 3A 8B 20 48 24 B2 |"...... H$:. H$.|
00000E00: 22 22 A7 31 38 31 20 20 00 23 16 B6 00 8B 20 48 |"".181 .#.... H|
00000E10: 24 B2 22 59 22 20 A7 20 8D 31 39 39 20 3A 8D 31 |$."Y" . .199 :.1|
00000E20: 38 34 20 00 38 16 B7 00 8B 20 48 24 B3 B1 22 59 |84 .8.... H$.."Y|
00000E30: 22 20 A7 31 36 30 20 20 00 41 16 B8 00 9F 37 2C |" .160 .A....7,|
00000E40: 34 00 49 16 B9 00 9D 20 37 00 88 16 BA 00 99 22 |4.I.... 7......"|
00000E50: 54 48 45 20 46 52 49 43 54 49 4F 4E 20 4C 4F 53 |THE FRICTION LOS|
00000E60: 53 20 46 4F 52 20 22 53 24 22 20 49 4E 43 48 20 |S FOR "S$" INCH |
00000E70: 48 4F 53 45 20 41 54 22 47 22 47 50 4D 20 49 53 |HOSE AT"G"GPM IS|
00000E80: 22 46 22 50 53 49 22 3B 00 A0 16 BB 00 98 37 2C |"F"PSI";......7,|
00000E90: 22 20 50 45 52 20 31 30 30 20 46 45 45 54 2E 22 |" PER 100 FEET."|
00000EA0: 00 A7 16 BC 00 A0 37 00 B1 16 BD 00 89 31 36 30 |......7......160|
00000EB0: 20 00 CD 16 BE 00 97 37 38 30 2C 36 3A 97 37 38 | ......780,6:.78|
00000EC0: 31 2C 31 36 30 3A 97 37 38 32 2C 31 30 00 DB 16 |1,160:.782,10...|
00000ED0: BF 00 97 35 33 32 38 30 2C 31 30 00 E7 16 C0 00 |...53280,10.....|
00000EE0: 9E 20 34 39 31 37 30 00 F3 16 C1 00 99 C7 28 31 |. 49170.......(1|
00000EF0: 34 37 29 00 13 17 C2 00 99 A3 31 33 29 22 11 11 |47).......13)"..|
00000F00: 11 11 11 11 11 46 52 49 43 54 49 4F 4E 20 4C 4F |.....FRICTION LO|
00000F10: 53 53 22 00 2C 17 C3 00 99 A3 31 33 29 22 A3 A3 |SS".,.....13)"..|
00000F20: A3 A3 A3 A3 A3 A3 20 A3 A3 A3 A3 22 00 4C 17 C4 |...... ....".L..|
00000F30: 00 99 A3 31 33 29 22 11 11 11 11 11 11 11 46 4F |...13)".......FO|
00000F40: 52 20 46 49 52 45 20 48 4F 53 45 22 00 6B 17 C5 |R FIRE HOSE".k..|
00000F50: 00 99 A3 32 38 29 22 11 11 11 11 11 11 11 11 12 |...28)".........|
00000F60: 52 45 56 2E 41 55 47 20 38 37 22 00 71 17 C6 00 |REV.AUG 87".q...|
00000F70: 8E 00 7C 17 C7 00 9F 32 2C 34 2C 37 00 84 17 C8 |..|....2,4,7....|
00000F80: 00 A0 20 32 00 94 17 C9 00 8B 20 53 54 20 B2 30 |.. 2...... ST .0|
00000F90: 20 A7 20 8E 00 9A 17 CA 00 99 00 E4 17 CB 00 99 | . .............|
00000FA0: 22 59 4F 55 52 20 50 52 49 4E 54 45 52 20 49 53 |"YOUR PRINTER IS|
00000FB0: 20 4F 46 46 21 20 50 4C 45 41 53 45 20 54 55 52 | OFF! PLEASE TUR|
00000FC0: 4E 20 49 54 20 4F 4E 20 20 20 41 4E 44 20 50 52 |N IT ON AND PR|
00000FD0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 47 |ESS ANY KEY TO G|
00000FE0: 45 54 22 3B 00 F7 17 CC 00 99 22 20 48 41 52 44 |ET";......" HARD|
00000FF0: 20 43 4F 50 59 2E 22 00 0F 18 CD 00 A1 20 41 24 | COPY."...... A$|
00001000: 3A 20 8B 20 41 24 B2 22 22 20 A7 32 30 35 20 00 |: . A$."" .205 .|
00001010: 19 18 CE 00 89 31 39 39 20 00 25 18 CF 00 53 B2 |.....199 .%...S.|
00001020: 35 34 32 37 32 00 33 18 D0 00 97 20 53 AA 32 34 |54272.3.... S.24|
00001030: 2C 31 35 00 41 18 D1 00 97 20 53 AA 36 2C 32 34 |,15.A.... S.6,24|
00001040: 30 00 4E 18 D2 00 97 20 53 AA 34 2C 31 37 00 5D |0.N.... S.4,17.]|
00001050: 18 D3 00 81 20 41 B2 31 20 A4 20 31 30 00 74 18 |.... A.1 . 10.t.|
00001060: D4 00 81 20 58 B2 20 31 20 A4 20 32 35 35 20 20 |... X. 1 . 255 |
00001070: A9 20 32 35 00 80 18 D5 00 97 20 53 AA 31 2C 58 |. 25...... S.1,X|
00001080: 00 88 18 D6 00 82 20 58 00 90 18 D7 00 82 20 41 |...... X...... A|
00001090: 00 9D 18 D8 00 97 20 53 AA 34 2C 33 32 00 A3 18 |...... S.4,32...|
000010A0: D9 00 8E 00 D3 18 DA 00 99 22 1D 11 11 11 54 48 |........."....TH|
000010B0: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 50 55 |IS PROGRAM IS PU|
000010C0: 42 4C 49 43 20 44 4F 4D 41 49 4E 20 49 54 20 4D |BLIC DOMAIN IT M|
000010D0: 41 59 22 00 F3 18 DB 00 99 22 1D 42 45 20 43 4F |AY"......".BE CO|
000010E0: 50 49 45 44 20 42 55 54 20 4E 4F 54 20 53 4F 4C |PIED BUT NOT SOL|
000010F0: 44 2E 22 00 22 19 DC 00 99 22 11 11 1D 54 48 49 |D."."...."...THI|
00001100: 53 20 50 52 4F 47 52 41 4D 20 43 41 4C 43 55 4C |S PROGRAM CALCUL|
00001110: 41 54 45 53 20 54 48 45 20 46 52 49 43 54 49 4F |ATES THE FRICTIO|
00001120: 4E 22 00 4A 19 DD 00 99 22 1D 4C 4F 53 53 20 49 |N".J....".LOSS I|
00001130: 4E 20 53 54 41 4E 44 41 52 44 20 53 49 5A 45 20 |N STANDARD SIZE |
00001140: 46 49 52 45 20 48 4F 53 45 22 00 50 19 DE 00 99 |FIRE HOSE".P....|
00001150: 00 80 19 DF 00 99 22 11 11 1D 57 52 49 54 54 45 |......"...WRITTE|
00001160: 4E 20 42 59 20 47 41 52 59 20 4D 4F 48 52 20 52 |N BY GARY MOHR R|
00001170: 49 43 48 54 4F 4E 20 50 41 52 4B 20 49 4C 2E 22 |ICHTON PARK IL."|
00001180: 00 AB 19 E0 00 99 22 1D 4E 4F 56 45 4D 42 45 52 |......".NOVEMBER|
00001190: 20 31 39 38 34 20 52 45 56 49 53 45 44 20 41 55 | 1984 REVISED AU|
000011A0: 47 55 53 54 20 31 39 38 37 2E 22 00 BF 19 E1 00 |GUST 1987.".....|
000011B0: 81 20 54 B2 20 31 20 A4 20 35 30 30 30 3A 82 00 |. T. 1 . 5000:..|
000011C0: CC 19 E2 00 97 35 33 32 38 30 2C 34 00 E7 19 E3 |.....53280,4....|
000011D0: 00 97 37 38 30 2C 36 3A 97 37 38 31 2C 31 36 30 |..780,6:.781,160|
000011E0: 3A 97 37 38 32 2C 34 00 00 1A E4 00 9E 34 39 31 |:.782,4......491|
000011F0: 37 33 3A 81 54 B2 31 A4 20 35 30 30 3A 82 3A 8E |73:.T.1. 500:.:.|
00001200: 00 06 1A E5 00 8F 00 0C 1A E6 00 8F 00 12 1A E7 |................|
00001210: 00 8F 00 35 1A E8 00 81 49 B2 34 39 31 35 32 A4 |...5....I.49152.|
00001220: 34 39 36 33 33 3A 87 41 3A 97 49 2C 41 3A 58 B2 |49633:.A:.I,A:X.|
00001230: 58 AA 41 3A 82 00 63 1A E9 00 8B 58 B3 B1 35 38 |X.A:..c....X..58|
00001240: 34 33 35 A7 20 99 22 45 52 52 4F 52 20 49 4E 20 |435. ."ERROR IN |
00001250: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 2E |DATA STATEMENTS.|
00001260: 22 3A 90 00 7E 1A EA 00 83 37 36 2C 31 37 37 2C |":..~....76,177,|
00001270: 31 39 32 2C 37 36 2C 31 39 31 2C 31 39 32 00 99 |192,76,191,192..|
00001280: 1A EB 00 83 37 36 2C 32 30 33 2C 31 39 32 2C 37 |....76,203,192,7|
00001290: 36 2C 32 31 37 2C 31 39 32 00 B2 1A EC 00 83 37 |6,217,192......7|
000012A0: 36 2C 32 34 36 2C 31 39 32 2C 37 36 2C 34 2C 31 |6,246,192,76,4,1|
000012B0: 39 33 00 CB 1A ED 00 83 37 36 2C 37 36 2C 31 39 |93......76,76,19|
000012C0: 33 2C 37 36 2C 38 38 2C 31 39 33 00 E6 1A EE 00 |3,76,88,193.....|
000012D0: 83 37 36 2C 31 35 32 2C 31 39 33 2C 37 36 2C 31 |.76,152,193,76,1|
000012E0: 36 36 2C 31 39 33 00 03 1B EF 00 83 31 36 35 2C |66,193......165,|
000012F0: 32 35 31 2C 31 33 33 2C 31 30 35 2C 31 36 35 2C |251,133,105,165,|
00001300: 32 35 32 00 1E 1B F0 00 83 31 33 33 2C 31 30 36 |252......133,106|
00001310: 2C 31 36 35 2C 32 2C 31 33 33 2C 31 30 37 00 39 |,165,2,133,107.9|
00001320: 1B F1 00 83 33 32 2C 38 39 2C 31 39 32 2C 31 36 |....32,89,192,16|
00001330: 35 2C 32 35 33 2C 31 34 35 00 56 1B F2 00 83 31 |5,253,145.V....1|
00001340: 30 38 2C 31 36 35 2C 32 35 34 2C 31 34 35 2C 31 |08,165,254,145,1|
00001350: 31 30 2C 31 39 38 00 71 1B F3 00 83 31 30 37 2C |10,198.q....107,|
00001360: 32 34 30 2C 33 31 2C 31 36 35 2C 31 30 38 2C 32 |240,31,165,108,2|
00001370: 34 00 8D 1B F4 00 83 31 30 39 2C 31 36 2C 31 39 |4......109,16,19|
00001380: 33 2C 31 33 33 2C 31 30 38 2C 31 36 35 00 A8 1B |3,133,108,165...|
00001390: F5 00 83 31 30 39 2C 31 30 35 2C 30 2C 31 33 33 |...109,105,0,133|
000013A0: 2C 31 30 39 2C 31 36 35 00 C3 1B F6 00 83 31 31 |,109,165......11|
000013B0: 30 2C 32 34 2C 31 30 39 2C 31 36 2C 31 39 33 2C |0,24,109,16,193,|
000013C0: 31 33 33 00 DE 1B F7 00 83 31 31 30 2C 31 36 35 |133......110,165|
000013D0: 2C 31 31 31 2C 31 30 35 2C 30 2C 31 33 33 00 F8 |,111,105,0,133..|
000013E0: 1B F8 00 83 31 31 31 2C 37 36 2C 34 35 2C 31 39 |....111,76,45,19|
000013F0: 32 2C 39 36 2C 31 36 39 00 12 1C F9 00 83 30 2C |2,96,169......0,|
00001400: 31 33 33 2C 33 39 2C 31 36 35 2C 31 30 36 2C 31 |133,39,165,106,1|
00001410: 33 33 00 29 1C FA 00 83 33 38 2C 31 30 2C 33 38 |33.)....38,10,38|
00001420: 2C 33 39 2C 31 30 2C 33 38 00 41 1C FB 00 83 33 |,39,10,38.A....3|
00001430: 39 2C 31 30 2C 33 38 2C 33 39 2C 31 33 33 2C 34 |9,10,38,39,133,4|
00001440: 30 00 5B 1C FC 00 83 31 36 35 2C 33 39 2C 31 33 |0.[....165,39,13|
00001450: 33 2C 34 31 2C 31 36 35 2C 34 30 00 72 1C FD 00 |3,41,165,40.r...|
00001460: 83 31 30 2C 33 38 2C 33 39 2C 31 30 2C 33 38 2C |.10,38,39,10,38,|
00001470: 33 39 00 8C 1C FE 00 83 32 34 2C 31 30 31 2C 34 |39......24,101,4|
00001480: 30 2C 31 33 33 2C 33 38 2C 31 36 35 00 A6 1C FF |0,133,38,165....|
00001490: 00 83 33 39 2C 31 30 31 2C 34 31 2C 31 33 33 2C |..39,101,41,133,|
000014A0: 33 39 2C 31 36 39 00 BF 1C 00 01 83 30 2C 32 34 |39,169......0,24|
000014B0: 2C 31 30 31 2C 33 38 2C 31 33 33 2C 31 30 38 00 |,101,38,133,108.|
000014C0: D9 1C 01 01 83 31 36 39 2C 34 2C 31 30 31 2C 33 |.....169,4,101,3|
000014D0: 39 2C 31 33 33 2C 31 30 39 00 F2 1C 02 01 83 31 |9,133,109......1|
000014E0: 36 39 2C 30 2C 32 34 2C 31 30 31 2C 33 38 2C 31 |69,0,24,101,38,1|
000014F0: 33 33 00 0E 1D 03 01 83 31 31 30 2C 31 36 39 2C |33......110,169,|
00001500: 32 31 36 2C 31 30 31 2C 33 39 2C 31 33 33 00 29 |216,101,39,133.)|
00001510: 1D 04 01 83 31 31 31 2C 31 36 34 2C 31 30 35 2C |....111,164,105,|
00001520: 39 36 2C 33 32 2C 31 37 38 00 44 1D 05 01 83 31 |96,32,178.D....1|
00001530: 39 33 2C 31 36 39 2C 34 30 2C 31 34 31 2C 31 36 |93,169,40,141,16|
00001540: 2C 31 39 33 00 5E 1D 06 01 83 31 36 39 2C 30 2C |,193.^....169,0,|
00001550: 31 33 33 2C 32 35 32 2C 31 36 39 2C 32 35 00 77 |133,252,169,25.w|
00001560: 1D 07 01 83 31 33 33 2C 32 2C 39 36 2C 33 32 2C |....133,2,96,32,|
00001570: 31 36 30 2C 31 39 32 00 91 1D 08 01 83 31 36 32 |160,192......162|
00001580: 2C 30 2C 33 32 2C 31 38 37 2C 31 39 33 2C 32 33 |,0,32,187,193,23|
00001590: 32 00 AB 1D 09 01 83 32 32 34 2C 32 30 2C 32 30 |2......224,20,20|
000015A0: 38 2C 32 34 38 2C 39 36 2C 33 32 00 C6 1D 0A 01 |8,248,96,32.....|
000015B0: 83 31 36 30 2C 31 39 32 2C 31 36 32 2C 31 39 2C |.160,192,162,19,|
000015C0: 33 32 2C 31 38 37 00 E0 1D 0B 01 83 31 39 33 2C |32,187......193,|
000015D0: 32 30 32 2C 31 36 2C 32 35 30 2C 39 36 2C 33 32 |202,16,250,96,32|
000015E0: 00 FA 1D 0C 01 83 31 36 30 2C 31 39 32 2C 31 36 |......160,192,16|
000015F0: 32 2C 30 2C 33 32 2C 31 39 38 00 16 1E 0D 01 83 |2,0,32,198......|
00001600: 31 39 33 2C 32 33 32 2C 32 32 34 2C 34 30 2C 32 |193,232,224,40,2|
00001610: 30 38 2C 32 34 38 00 30 1E 0E 01 83 39 36 2C 33 |08,248.0....96,3|
00001620: 32 2C 31 36 30 2C 31 39 32 2C 31 36 32 2C 33 39 |2,160,192,162,39|
00001630: 00 4B 1E 0F 01 83 33 32 2C 31 39 38 2C 31 39 33 |.K....32,198,193|
00001640: 2C 32 30 32 2C 31 36 2C 32 35 30 00 64 1E 10 01 |,202,16,250.d...|
00001650: 83 39 36 2C 33 32 2C 31 37 38 2C 31 39 33 2C 31 |.96,32,178,193,1|
00001660: 36 39 2C 31 00 7E 1E 11 01 83 31 34 31 2C 31 36 |69,1.~....141,16|
00001670: 2C 31 39 33 2C 31 36 39 2C 30 2C 31 33 33 00 97 |,193,169,0,133..|
00001680: 1E 12 01 83 32 35 31 2C 31 36 39 2C 34 30 2C 31 |....251,169,40,1|
00001690: 33 33 2C 32 2C 39 36 00 B0 1E 13 01 83 33 32 2C |33,2,96......32,|
000016A0: 32 32 39 2C 31 39 32 2C 31 36 32 2C 30 2C 33 32 |229,192,162,0,32|
000016B0: 00 CC 1E 14 01 83 32 30 36 2C 31 39 33 2C 32 33 |......206,193,23|
000016C0: 32 2C 32 32 34 2C 32 35 2C 32 30 38 00 E7 1E 15 |2,224,25,208....|
000016D0: 01 83 32 34 38 2C 39 36 2C 33 32 2C 32 32 39 2C |..248,96,32,229,|
000016E0: 31 39 32 2C 31 36 32 00 01 1F 16 01 83 32 34 2C |192,162......24,|
000016F0: 33 32 2C 32 30 36 2C 31 39 33 2C 32 30 32 2C 31 |32,206,193,202,1|
00001700: 36 00 18 1F 17 01 83 32 35 30 2C 39 36 2C 30 2C |6......250,96,0,|
00001710: 30 2C 31 37 33 2C 31 32 00 31 1F 18 01 83 33 2C |0,173,12.1....3,|
00001720: 31 34 31 2C 31 37 2C 31 39 33 2C 32 34 30 2C 31 |141,17,193,240,1|
00001730: 35 00 4C 1F 19 01 83 31 37 33 2C 31 37 2C 32 30 |5.L....173,17,20|
00001740: 38 2C 34 38 2C 32 35 31 2C 31 37 33 00 66 1F 1A |8,48,251,173.f..|
00001750: 01 83 31 37 2C 32 30 38 2C 31 36 2C 32 35 31 2C |..17,208,16,251,|
00001760: 32 30 36 2C 31 37 00 80 1F 1B 01 83 31 39 33 2C |206,17......193,|
00001770: 32 30 38 2C 32 34 31 2C 39 36 2C 33 32 2C 36 38 |208,241,96,32,68|
00001780: 00 99 1F 1C 01 83 31 39 33 2C 33 32 2C 33 30 2C |......193,32,30,|
00001790: 31 39 32 2C 37 36 2C 36 38 00 B2 1F 1D 01 83 31 |192,76,68......1|
000017A0: 39 33 2C 33 32 2C 36 30 2C 31 39 33 2C 33 32 2C |93,32,60,193,32,|
000017B0: 33 30 00 CC 1F 1E 01 83 31 39 32 2C 37 36 2C 36 |30......192,76,6|
000017C0: 30 2C 31 39 33 2C 31 36 39 2C 32 34 00 E7 1F 1F |0,193,169,24....|
000017D0: 01 83 35 36 2C 32 32 39 2C 32 35 32 2C 31 33 33 |..56,229,252,133|
000017E0: 2C 32 35 32 2C 39 36 00 02 20 20 01 83 31 36 39 |,252,96.. ..169|
000017F0: 2C 33 39 2C 35 36 2C 32 32 39 2C 32 35 31 2C 31 |,39,56,229,251,1|
00001800: 33 33 00 1D 20 21 01 83 32 35 31 2C 39 36 2C 33 |33.. !..251,96,3|
00001810: 32 2C 32 32 39 2C 31 39 32 2C 31 36 32 00 37 20 |2,229,192,162.7 |
00001820: 22 01 83 31 32 2C 33 32 2C 32 31 34 2C 31 39 33 |"..12,32,214,193|
00001830: 2C 32 30 32 2C 31 36 00 52 20 23 01 83 32 35 30 |,202,16.R #..250|
00001840: 2C 39 36 2C 33 32 2C 32 32 39 2C 31 39 32 2C 31 |,96,32,229,192,1|
00001850: 36 32 00 6C 20 24 01 83 30 2C 33 32 2C 32 31 34 |62.l $..0,32,214|
00001860: 2C 31 39 33 2C 32 33 32 2C 32 32 34 00 87 20 25 |,193,232,224.. %|
00001870: 01 83 31 33 2C 32 30 38 2C 32 34 38 2C 39 36 2C |..13,208,248,96,|
00001880: 31 33 38 2C 31 33 33 00 A3 20 26 01 83 32 35 32 |138,133.. &..252|
00001890: 2C 31 33 33 2C 32 35 31 2C 31 36 39 2C 34 30 2C |,133,251,169,40,|
000018A0: 31 34 31 00 BD 20 27 01 83 31 36 2C 31 39 33 2C |141.. '..16,193,|
000018B0: 31 36 39 2C 32 35 2C 35 36 2C 32 32 39 00 D7 20 |169,25,56,229.. |
000018C0: 28 01 83 32 35 32 2C 35 36 2C 32 32 39 2C 32 35 |(..252,56,229,25|
000018D0: 32 2C 31 33 33 2C 32 00 F0 20 29 01 83 33 32 2C |2,133,2.. )..32,|
000018E0: 33 30 2C 31 39 32 2C 33 32 2C 34 32 2C 31 39 33 |30,192,32,42,193|
000018F0: 00 0A 21 2A 01 83 31 36 39 2C 31 2C 31 34 31 2C |..!*..169,1,141,|
00001900: 31 36 2C 31 39 33 2C 31 36 39 00 24 21 2B 01 83 |16,193,169.$!+..|
00001910: 34 30 2C 35 36 2C 32 32 39 2C 32 35 32 2C 35 36 |40,56,229,252,56|
00001920: 2C 32 32 39 00 3D 21 2C 01 83 32 35 32 2C 31 33 |,229.=!,..252,13|
00001930: 33 2C 32 2C 33 32 2C 33 30 2C 31 39 32 00 56 21 |3,2,32,30,192.V!|
00001940: 2D 01 83 33 32 2C 35 31 2C 31 39 33 2C 37 36 2C |-..32,51,193,76,|
00001950: 31 38 2C 31 39 33 00 6F 21 2E 01 83 33 32 2C 32 |18,193.o!...32,2|
00001960: 32 39 2C 31 39 32 2C 31 36 32 2C 30 2C 33 32 00 |29,192,162,0,32.|
00001970: 8B 21 2F 01 83 31 30 32 2C 31 39 33 2C 32 33 32 |.!/..102,193,232|
00001980: 2C 32 32 34 2C 31 33 2C 32 30 38 00 A6 21 30 01 |,224,13,208..!0.|
00001990: 83 32 34 38 2C 39 36 2C 33 32 2C 32 32 39 2C 31 |.248,96,32,229,1|
000019A0: 39 32 2C 31 36 32 00 C0 21 31 01 83 31 32 2C 33 |92,162..!1..12,3|
000019B0: 32 2C 31 30 32 2C 31 39 33 2C 32 30 32 2C 31 36 |2,102,193,202,16|
000019C0: 00 DC 21 32 01 83 32 35 30 2C 39 36 2C 31 33 34 |..!2..250,96,134|
000019D0: 2C 32 35 33 2C 31 33 32 2C 32 35 34 00 F7 21 33 |,253,132,254..!3|
000019E0: 01 83 31 36 39 2C 31 39 2C 37 36 2C 32 30 32 2C |..169,19,76,202,|
000019F0: 32 34 31 2C 31 33 34 00 10 22 34 01 83 32 35 31 |241,134.."4..251|
00001A00: 2C 33 32 2C 33 30 2C 31 39 32 2C 33 32 2C 34 32 |,32,30,192,32,42|
00001A10: 00 2B 22 35 01 83 31 39 33 2C 37 36 2C 31 38 2C |.+"5..193,76,18,|
00001A20: 31 39 33 2C 31 33 34 2C 32 35 31 00 44 22 36 01 |193,134,251.D"6.|
00001A30: 83 33 32 2C 33 30 2C 31 39 32 2C 37 36 2C 31 38 |.32,30,192,76,18|
00001A40: 2C 31 39 33 00 5E 22 37 01 83 31 33 34 2C 32 35 |,193.^"7..134,25|
00001A50: 32 2C 33 32 2C 33 30 2C 31 39 32 2C 37 36 00 78 |2,32,30,192,76.x|
00001A60: 22 38 01 83 31 38 2C 31 39 33 2C 31 33 34 2C 32 |"8..18,193,134,2|
00001A70: 35 32 2C 33 32 2C 33 30 00 91 22 39 01 83 31 39 |52,32,30.."9..19|
00001A80: 32 2C 33 32 2C 35 31 2C 31 39 33 2C 37 36 2C 31 |2,32,51,193,76,1|
00001A90: 38 00 AC 22 3A 01 83 31 39 33 2C 31 39 33 2C 32 |8..":..193,193,2|
00001AA0: 30 32 2C 31 36 2C 32 35 30 2C 39 36 00 B2 22 3B |02,16,250,96..";|
00001AB0: 01 8E 00 BE 22 3C 01 99 C7 28 31 34 37 29 00 D9 |...."<...(147)..|
00001AC0: 22 3D 01 97 35 33 32 38 31 2C 31 3A 97 35 33 32 |"=..53281,1:.532|
00001AD0: 38 30 2C 31 3A 99 22 98 22 00 FE 22 3E 01 97 35 |80,1:."."..">..5|
00001AE0: 33 32 38 30 2C 31 33 20 20 20 20 20 20 20 20 20 |3280,13 |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 27 | .'|
00001B00: 23 3F 01 99 22 1D 1D 11 11 11 1D 1D 11 11 11 11 |#?.."...........|
00001B10: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 |...............B|
00001B20: 59 20 2D 20 42 59 22 00 44 23 40 01 97 37 38 30 |Y - BY".D#@..780|
00001B30: 2C 31 35 3A 97 37 38 31 2C 31 36 30 3A 97 37 38 |,15:.781,160:.78|
00001B40: 32 2C 31 33 00 4F 23 41 01 9E 34 39 31 37 36 00 |2,13.O#A..49176.|
00001B50: 68 23 42 01 81 54 B2 31 20 A4 20 31 30 30 30 3A |h#B..T.1 . 1000:|
00001B60: 82 3A 9E 36 34 37 33 38 00 8D 23 43 01 8F 20 54 |.:.64738..#C.. T|
00001B70: 48 49 53 20 50 52 4F 47 20 55 53 45 46 55 4C 20 |HIS PROG USEFUL |
00001B80: 46 4F 52 20 46 49 52 45 20 44 45 50 54 00 B3 23 |FOR FIRE DEPT..#|
00001B90: 44 01 8F 20 50 45 52 53 4F 4E 41 4C 20 46 49 47 |D.. PERSONAL FIG|
00001BA0: 55 52 49 4E 47 20 46 52 49 43 54 49 4F 4E 20 4C |URING FRICTION L|
00001BB0: 4F 53 53 00 D8 23 45 01 8F 20 46 4F 52 20 54 45 |OSS..#E.. FOR TE|
00001BC0: 53 54 49 4E 47 20 46 49 52 45 20 50 55 4D 50 53 |STING FIRE PUMPS|
00001BD0: 20 4F 52 20 46 49 52 45 00 FD 23 46 01 8F 20 50 | OR FIRE..#F.. P|
00001BE0: 52 45 50 4C 41 4E 4E 49 4E 47 2E 20 52 45 4D 45 |REPLANNING. REME|
00001BF0: 4D 42 45 52 20 54 48 45 20 4C 4F 53 53 00 21 24 |MBER THE LOSS.!$|
00001C00: 47 01 8F 20 49 4E 20 4E 4F 5A 5A 45 4C 53 20 41 |G.. IN NOZZELS A|
00001C10: 4E 44 20 41 50 50 4C 41 4E 43 45 53 20 54 48 49 |ND APPLANCES THI|
00001C20: 53 00 3D 24 48 01 8F 20 49 53 20 46 4F 52 20 54 |S.=$H.. IS FOR T|
00001C30: 48 45 20 48 4F 53 45 20 4F 4E 4C 59 2E 00 5F 24 |HE HOSE ONLY.._$|
00001C40: 49 01 8F 20 41 4E 59 20 43 4F 4D 4D 45 4E 54 53 |I.. ANY COMMENTS|
00001C50: 20 53 45 4E 44 20 45 20 4D 41 49 4C 20 4F 4E 00 | SEND E MAIL ON.|
00001C60: 78 24 4A 01 8F 20 51 2D 4C 49 4E 4B 20 54 4F 20 |x$J.. Q-LINK TO |
00001C70: 47 41 52 59 4D 33 38 2E 00 00 00 |GARYM38.... |
.......G(147).+....53281,1:.53280,1:.G(1
47).[....".......................ONE MOM
ENT PLEASE"......"..........SEE REM'S AT
END OF LIST"......229 . ....T.1.1000:.
......780,10:.781,86:.782,2.G.... 49176.
S....G(147)......53281,1:.53280,1:."."..
....X.1024 . 1063...... X,42...... X.'..
..X.1984 . 2023.5.... X,42:.X.L....X.106
4 . 1944 .40.[.... X,42:. X.R....X.1103
. 1983 .40...... X,42:.X......218 .....
.".":.".":.53281,1:.53280,3......190 .F
....T.1.2500:.......".":.:.:..3)"A FOR
1-1/2 INCH":.53280,3......:........3)"B
FOR 1-3/4 INCH". ....:..<.....3)"C FOR
2-1/2 INCH".D....:..\.....3)"D FOR 3 I
NCH".D....:..|. ...3)"E FOR 4 INCH"...!
..:.. ."...3)"F FOR 4-1/2 INCH"...#..:.
...$...3)"G FOR 5 INCH".J.%..:.:....&..
"SIZE OF HOSE (SELECT A TO G)"...'.. A$:
.A$."" .39 ...(..A$."A".79 .&.)..A$."D
".112 .7.*..A$."B".95 .G.+..A$."F".48 .
X.,..A$."E".144 .I.-..A$."C".64 .|....
A$."G" .128 .../..A$.."A".A$.."B".A$.."C
".A$.."D".A$.."F".A$.."E".A$.."G".24 .G
.0..".".S.1..:.:.:....2.S$."4-1/2"...3..
"FRICTION LOSS FOR 4-1/2 INCH HOSE PER
100 FEET".$.4..:.:..<.5.."WHAT IS THE G
PM?".G.6..19,32.O.7.. G.[.8.Q.G.100.I.9.
F.Q.Q.2.Q.U.:.F.F..05...;..:.:.:..B.<.."
THE FRICTION LOSS FOR 4-1/2 INCH HOSE AT
,"G"GPM IS,"F"PSI".U.=.. F.36 . .174 ...
>..T.1 .1000:....?..180 ...@.."."...A..:
.:.:....B.S$."2-1/2".L.C.."FRICTION LOSS
FOR 2-1/2 INCH HOSE PER 100 FEET".V.D
..:.:..M.E.."WHAT IS THE GPM?.X.F..19,32
...G.. G...H.Q.G.100...I.F.Q.Q.2.Q...J..
:.:.:....K.."THE FRICTION LOSS FOR 2-1/2
INCH HOSE AT,"G"GPM IS,"F"PSI"...L.. F.
36 . .174 ...M..T.1.1000:....N..180 .
.O..".".,.P..:.:.:..;.Q.S$."1-1/2".S.R.
."FRICTION LOSS FOR 1-1/2 INCH HOSE PER
100 FEET".}.S..:.:....T.."WHAT IS THE
GPM?...U..19,32...V.. G...W.Q.G.100.A.X.
F.Q.Q.2.Q.L.Y.F.F.10.V.Z..:.:....[.."THE
FRICTION LOSS FOR 1-1/2 INCH HOSE AT,"G
"GPM IS,"F"PSI".*.\.. F.36 . .174 .:.]..
T.1.1000:..E.^..180 .N._..".".Z.`..:.:.
:..I.A.S$."1-3/4"...B.."FRICTION LOSS FO
R 1-3/4 INCH HOSE PER 100 FEET"...C..:
.:..B.D.."WHAT IS THE GPM?.M.E..19,32.U.
F.. G...G.Q.G.100...H.F.Q.Q.2.Q...I.F.F.
4...J..:.:..D.K.."THE FRICTION LOSS FOR
1-3/4 INCH HOSE AT,"G"GPM IS,"F"PSI".W.L
.. F.36 . .174 .G.M..T.1.1000:..R.N..180
.|.O..160 ...P.."."...Q.S$."3"...R..:.
:.:..P.S.."FRICTION LOSS FOR 3 INCH HOSE
PER 100 FEET".Z.T..:.:....U.."WHAT IS
THE GPM?...V..19,32...W.. G...X.Q.G.100
...Y.F.Q.Q.2.Q.*.Z.F.F.0.4.4.{..:.:..S.|
.."THE FRICTION LOSS FOR 3 INCH HOSE AT,
"G"GPM IS,"F"PSI"...}.. F.36 ..174 ...
~..T.1.1000:.. ...180 ......".".....S$
."5"......:.:.:......."FRICTION LOSS FOR
5 INCH HOSE PER 100 FEET"......:.:...
...."WHAT IS THE GPM?. ....19,32.(.... G
.4...Q.G.100.B...F.Q.Q.2.Q.O...F.F.0.03.
Y....:.:......."THE FRICTION LOSS FOR 5
INCH HOSE AT, "G"GPM IS,"F"PSI"...... F
.36 . .174 ......T.1.1000:..F....180 .O
....".".Z...S$."4"......:.:.:......."FRI
CTION LOSS FOR 4 INCH HOSE PER 100 FEE
T".$....:.:..;...."WHAT IS THE GPM?.F...
.19,32.N.... G.Z...Q.G.100.H...F.Q.Q.2.Q
.U...F.F.0.10.....:.:......."THE FRICTI
ON LOSS FOR 4 INCH HOSE AT, "G"GPM IS,"
F"PSI".O.... F.36..174 ......T.1.1000:..
.....180 ... .."."......:.:.:.:.:.:..7.
...".....................** ANOTHER PROB
LEM **".A....:.:..R.....17)"(Y/N)".H....
A$:.A$."" .165 .Y....A$."N".169 ......A
$."Y".24 ...... A$.."N" . A$.."Y" .162 .
.....G(147)......"..................ARE
YOU SURE? (Y/N)"......A$:.A$."".171 ....
.. A$."Y" . .316 ...... A$."N" .24 .E...
."...THE RED LINE HAS BEEN EXCEEDED";...
..." FOR THIS SIZE OF HOSE YOU SHOULD US
E A LARGER DIAMETER HOSE";......" OR
LAY ANOTHER LINE.......53280,2.A....207
.G..........:.:.:."DO YOU WANT HARD COP
Y? (Y/N)"...... H$:. H$."".181 .#.... H
$."Y" . .199 :.184 .8.... H$.."Y" .160
.A....7,4.I.... 7......"THE FRICTION LOS
S FOR "S$" INCH HOSE AT"G"GPM IS"F"PSI";
. ....7," PER 100 FEET."..... 7......160
.M....780,6:.781,160:.782,10......53280
,10...... 49170...A..G(147)...B...13)"..
.....FRICTION LOSS".,.C...13)"........ .
...".L.D...13)".......FOR FIRE HOSE".K.E
...28)".........REV.AUG 87".Q.F...|.G..2
,4,7...H. 2...I.. ST .0 . ....J.....K..
"YOUR PRINTER IS OFF! PLEASE TURN IT ON
AND PRESS ANY KEY TO GET";...L.." HARD
COPY."...M.. A$: . A$."" .205 ...N..199
.%.O.S.54272.3.P.. S.24,15.A.Q.. S.6,24
0.N.R.. S.4,17.].S.. A.1 . 10.T.T.. X. 1
. 255 . 25...U.. S.1,X...V.. X...W.. A
...X.. S.4,32...Y...S.Z.."....THIS PROGR
AM IS PUBLIC DOMAIN IT MAY"......".BE CO
PIED BUT NOT SOLD."."...."...THIS PROGRA
M CALCULATES THE FRICTION".J....".LOSS I
N STANDARD SIZE FIRE HOSE".P..........".
..WRITTEN BY GARY MOHR RICHTON PARK IL."
......".NOVEMBER 1984 REVISED AUGUST 198
7."...... T. 1 . 5000:..L....53280,4....
..780,6:.781,160:.782,4......49173:.T.1.
500:.:....................5....I.49152.
49633:.A:.I,A:X.X.A:..C....X..58435. ."E
RROR IN DATA STATEMENTS.":..~....76,177,
192,76,191,192......76,203,192,76,217,19
2......76,246,192,76,4,193.K....76,76,19
3,76,88,193......76,152,193,76,166,193..
....165,251,133,105,165,252......133,106
,165,2,133,107.9....32,89,192,165,253,14
5.V....108,165,254,145,110,198.Q....107,
240,31,165,108,24......109,16,193,133,10
8,165......109,105,0,133,109,165.C....11
0,24,109,16,193,133......110,165,111,105
,0,133......111,76,45,192,96,169......0,
133,39,165,106,133.)....38,10,38,39,10,3
8.A....39,10,38,39,133,40.[....165,39,13
3,41,165,40.R....10,38,39,10,38,39......
24,101,40,133,38,165......39,101,41,133,
39,169......0,24,101,38,133,108.Y....169
,4,101,39,133,109......169,0,24,101,38,1
33......110,169,216,101,39,133.)....111,
164,105,96,32,178.D....193,169,40,141,16
,193.^....169,0,133,252,169,25.W....133,
2,96,32,160,192......162,0,32,187,193,23
2......224,20,208,248,96,32.F....160,192
,162,19,32,187......193,202,16,250,96,32
......160,192,162,0,32,198......193,232,
224,40,208,248.0....96,32,160,192,162,39
.K....32,198,193,202,16,250.D....96,32,1
78,193,169,1.~....141,16,193,169,0,133..
....251,169,40,133,2,96......32,229,192,
162,0,32.L....206,193,232,224,25,208....
..248,96,32,229,192,162......24,32,206,1
93,202,16......250,96,0,0,173,12.1....3,
141,17,193,240,15.L....173,17,208,48,251
,173.F....17,208,16,251,206,17......193,
208,241,96,32,68......193,32,30,192,76,6
8......193,32,60,193,32,30.L....192,76,6
0,193,169,24......56,229,252,133,252,96.
. ..169,39,56,229,251,133.. !..251,96,3
2,229,192,162.7 "..12,32,214,193,202,16.
R #..250,96,32,229,192,162.L $..0,32,214
,193,232,224.. %..13,208,248,96,138,133.
. &..252,133,251,169,40,141.. '..16,193,
169,25,56,229.W (..252,56,229,252,133,2.
. )..32,30,192,32,42,193..!*..169,1,141,
16,193,169.$!+..40,56,229,252,56,229.=!,
..252,133,2,32,30,192.V!-..32,51,193,76,
18,193.O!...32,229,192,162,0,32..!/..102
,193,232,224,13,208..!0..248,96,32,229,1
92,162..!1..12,32,102,193,202,16..!2..25
0,96,134,253,132,254..!3..169,19,76,202,
241,134.."4..251,32,30,192,32,42.+"5..19
3,76,18,193,134,251.D"6..32,30,192,76,18
,193.^"7..134,252,32,30,192,76.X"8..18,1
93,134,252,32,30.."9..192,32,51,193,76,1
8..":..193,193,202,16,250,96..";...."<..
G(147).Y"=..53281,1:.53280,1:."."..">..5
3280,13 .'#?.."...
.......................BY - BY".D#@..780
,15:.781,160:.782,13.O#A..49176.H#B..T.1
. 1000:.:.64738..#C.. THIS PROG USEFUL
FOR FIRE DEPT..#D.. PERSONAL FIGURING FR
ICTION LOSS.X#E.. FOR TESTING FIRE PUMPS
OR FIRE..#F.. PREPLANNING. REMEMBER THE
LOSS.!$G.. IN NOZZELS AND APPLANCES THI
S.=$H.. IS FOR THE HOSE ONLY.._$I.. ANY
COMMENTS SEND E MAIL ON.X$J.. Q-LINK TO
GARYM38....
> CLICK IMAGE PREVIEW FOR FULL MODAL