MEDICAL
FILE INFORMATION
FILENAME(S): MEDICAL
FILE TYPE(S): PRG
FILE SIZE: 29K
FIRST SEEN: 2025-10-20 14:30:32
APPEARS ON: 1 disk(s)
FILE HASH
bf4a4c8ee0ed23188e11d6e8c84ef9a85f4651e64904682be29414837d254e8b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026ED | MEDICAL | PRG | Treasure Chest - Klaus Der Suhler | 20 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 2A |*******.M.n.. **|
00000030: 2A 2A 2A 2A 2A 20 4D 45 44 49 43 41 4C 20 50 52 |***** MEDICAL PR|
00000040: 4F 47 52 41 4D 20 2A 2A 2A 2A 2A 2A 2A 00 73 08 |OGRAM *******.s.|
00000050: 78 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 42 59 20 4A |x.. ******* BY J|
00000060: 45 52 52 59 20 53 43 48 41 55 53 53 20 2A 2A 2A |ERRY SCHAUSS ***|
00000070: 2A 2A 2A 00 99 08 82 00 8F 20 2A 2A 2A 2A 2A 2A |***...... ******|
00000080: 2A 20 52 45 57 52 49 54 54 45 4E 20 46 4F 52 20 |* REWRITTEN FOR |
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 08 8C 00 8F 20 |*********...... |
000000A0: 2A 2A 2A 2A 2A 2A 2A 20 54 48 45 20 43 4F 4D 4D |******* THE COMM|
000000B0: 4F 44 4F 52 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |ODORE *********.|
000000C0: E5 08 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 36 34 |..... ******* 64|
000000D0: 20 43 4F 4D 50 55 54 45 52 20 2A 2A 2A 2A 2A 2A | COMPUTER ******|
000000E0: 2A 2A 2A 2A 2A 00 0B 09 A0 00 8F 20 2A 2A 2A 2A |*****...... ****|
000000F0: 2A 2A 2A 20 46 45 42 55 41 52 59 20 31 39 38 33 |*** FEBUARY 1983|
00000100: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 09 AA 00 | **********.1...|
00000110: 8F 20 2A 2A 2A 2A 2A 2A 2A 20 55 50 44 41 54 45 |. ******* UPDATE|
00000120: 44 20 4E 4F 56 2E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |D NOV. *********|
00000130: 2A 00 57 09 B4 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |*.W.... ******* |
00000140: 20 20 20 20 31 39 38 36 20 20 20 20 2A 2A 2A 2A | 1986 ****|
00000150: 2A 2A 2A 2A 2A 2A 2A 00 7D 09 BE 00 8F 20 2A 2A |*******.}.... **|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AF 09 |*************...|
00000180: C8 00 8F 20 58 20 49 53 20 55 53 45 44 20 46 4F |... X IS USED FO|
00000190: 52 20 50 52 45 53 53 20 52 45 54 55 52 4E 20 26 |R PRESS RETURN &|
000001A0: 20 46 4F 52 20 4E 45 58 54 20 4C 4F 4F 50 53 00 | FOR NEXT LOOPS.|
000001B0: D5 09 D2 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 00 02 0A DC 00 97 35 33 32 38 30 |*****......53280|
000001E0: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 8F 20 50 4F |,0:.53281,0:. PO|
000001F0: 4B 45 31 39 2C 36 34 3A 3F 43 48 52 24 28 31 34 |KE19,64:?CHR$(14|
00000200: 32 29 00 0E 0A E6 00 8D 38 36 32 30 3A 9C 00 34 |2)......8620:..4|
00000210: 0A F0 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 2A 00 5A 0A FA 00 8F 20 2A 2A 2A 2A 2A |****.Z.... *****|
00000240: 2A 2A 2A 2A 20 4D 45 4E 55 20 4C 49 53 54 49 4E |**** MENU LISTIN|
00000250: 47 20 2A 2A 2A 2A 2A 2A 2A 2A 00 80 0A 04 01 8F |G ********......|
00000260: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 00 A0 0A 0E 01 99 22 93 22 A6 31 30 29 22 D5 C3 |......".".10)"..|
00000290: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 |................|
000002A0: 00 BE 0A 18 01 99 A6 31 30 29 22 C2 4D 45 44 49 |.......10)".MEDI|
000002B0: 43 41 4C 20 50 52 4F 47 52 41 4D 53 C2 22 00 DC |CAL PROGRAMS."..|
000002C0: 0A 22 01 99 A6 31 30 29 22 CA C3 C3 C3 C3 C3 C3 |."...10)".......|
000002D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 00 FA 0A 2C |..........."...,|
000002E0: 01 99 22 31 2E 20 44 52 55 47 20 43 41 4C 43 55 |.."1. DRUG CALCU|
000002F0: 4C 41 54 49 4F 4E 53 22 3A 99 00 1F 0B 36 01 99 |LATIONS":....6..|
00000300: 22 32 2E 20 48 45 4D 4F 44 59 4E 41 4D 49 43 20 |"2. HEMODYNAMIC |
00000310: 43 41 4C 43 55 4C 41 54 49 4F 4E 53 22 3A 99 00 |CALCULATIONS":..|
00000320: 47 0B 40 01 99 22 33 2E 20 43 45 52 45 42 52 41 |G.@.."3. CEREBRA|
00000330: 4C 20 50 52 45 46 55 53 49 4F 4E 20 50 52 45 53 |L PREFUSION PRES|
00000340: 53 55 52 45 22 3A 99 00 6D 0B 4A 01 99 22 34 2E |SURE":..m.J.."4.|
00000350: 20 57 45 49 47 48 54 20 26 20 48 45 49 47 48 54 | WEIGHT & HEIGHT|
00000360: 20 54 4F 20 4D 45 54 52 49 43 22 3A 99 00 9D 0B | TO METRIC":....|
00000370: 54 01 99 22 35 2E 20 49 4E 54 52 41 2D 41 4F 52 |T.."5. INTRA-AOR|
00000380: 54 49 43 20 42 41 4C 4C 4F 4E 20 50 55 4D 50 20 |TIC BALLON PUMP |
00000390: 43 41 4C 43 55 4C 41 54 49 4F 4E 53 22 00 CC 0B |CALCULATIONS"...|
000003A0: 5E 01 99 22 36 2E 20 43 4C 49 4E 49 43 41 4C 20 |^.."6. CLINICAL |
000003B0: 50 55 4C 4D 4F 4E 41 52 59 20 53 48 55 4E 54 20 |PULMONARY SHUNT |
000003C0: 4D 45 41 53 55 52 45 4D 45 4E 54 22 00 F0 0B 68 |MEASUREMENT"...h|
000003D0: 01 99 22 20 20 20 54 4F 20 43 41 52 44 49 41 43 |.." TO CARDIAC|
000003E0: 20 4F 55 54 50 55 54 20 52 41 54 49 4F 22 3A 99 | OUTPUT RATIO":.|
000003F0: 00 1D 0C 72 01 99 22 37 2E 20 43 45 4C 53 49 55 |...r.."7. CELSIU|
00000400: 53 20 26 20 46 41 48 52 45 4E 48 45 49 54 20 43 |S & FAHRENHEIT C|
00000410: 4F 4E 56 45 52 53 49 4F 4E 53 22 3A 99 00 43 0C |ONVERSIONS":..C.|
00000420: 7C 01 99 22 38 2E 20 43 41 52 44 49 41 43 20 4F ||.."8. CARDIAC O|
00000430: 55 54 50 55 54 20 41 44 56 45 52 41 47 49 4E 47 |UTPUT ADVERAGING|
00000440: 22 3A 99 00 5D 0C 86 01 99 22 39 2E 20 46 41 54 |":..]...."9. FAT|
00000450: 2F 43 48 4F 20 52 41 54 49 4F 22 3A 99 00 81 0C |/CHO RATIO":....|
00000460: 90 01 99 22 53 45 4C 45 43 54 20 54 4F 50 49 43 |..."SELECT TOPIC|
00000470: 20 4E 45 45 44 45 44 2C 20 50 4C 45 41 53 45 3A | NEEDED, PLEASE:|
00000480: 22 00 A4 0C 9A 01 99 22 C3 C3 C3 C3 C3 C3 C3 C3 |"......"........|
00000490: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 20 20 C3 C3 C3 |........... ...|
000004A0: C3 C3 C3 22 00 AE 0C A4 01 8D 38 38 37 30 00 BE |..."......8870..|
000004B0: 0C AE 01 8B 43 24 B3 22 31 22 A7 32 32 30 00 CE |....C$."1".220..|
000004C0: 0C B8 01 8B 43 24 B1 22 39 22 A7 32 32 30 00 01 |....C$."9".220..|
000004D0: 0D C2 01 91 58 89 34 36 30 2C 32 32 38 30 2C 33 |....X.460,2280,3|
000004E0: 35 31 30 2C 33 36 34 30 2C 33 38 31 30 2C 34 38 |510,3640,3810,48|
000004F0: 36 30 2C 36 30 36 30 2C 36 33 32 30 2C 37 30 36 |60,6060,6320,706|
00000500: 30 00 0B 0D CC 01 8D 38 36 32 30 00 31 0D D6 01 |0......8620.1...|
00000510: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 00 57 0D E0 01 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |*.W.... ******* |
00000540: 44 52 55 47 20 43 41 4C 43 2E 20 4D 45 4E 55 20 |DRUG CALC. MENU |
00000550: 2A 2A 2A 2A 2A 2A 2A 00 7D 0D EA 01 8F 20 2A 2A |*******.}.... **|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0D |*************...|
00000580: F4 01 99 A6 31 30 29 22 D5 C3 C3 C3 C3 C3 C3 C3 |....10)"........|
00000590: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 BB 0D FE |..........."....|
000005A0: 01 99 A6 31 30 29 22 C2 44 52 55 47 20 43 41 4C |...10)".DRUG CAL|
000005B0: 43 55 4C 41 54 49 4F 4E 53 C2 22 00 DB 0D 08 02 |CULATIONS.".....|
000005C0: 99 A6 31 30 29 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |..10)"..........|
000005D0: C3 C3 C3 C3 C3 C3 C3 C3 CB 11 22 00 03 0E 12 02 |..........".....|
000005E0: 99 22 31 2E 20 43 41 4C 43 55 4C 41 54 49 4F 4E |."1. CALCULATION|
000005F0: 20 4F 46 20 49 56 20 44 52 49 50 20 52 41 54 45 | OF IV DRIP RATE|
00000600: 22 3A 99 00 1A 0E 1C 02 99 22 32 2E 20 4D 43 47 |":......."2. MCG|
00000610: 2F 4B 47 2F 4D 49 4E 22 3A 99 00 35 0E 26 02 99 |/KG/MIN":..5.&..|
00000620: 22 33 2E 20 55 4E 49 54 53 20 50 45 52 20 48 4F |"3. UNITS PER HO|
00000630: 55 52 22 3A 99 00 52 0E 30 02 99 22 34 2E 20 47 |UR":..R.0.."4. G|
00000640: 54 54 53 2F 4D 49 4E 20 26 20 43 43 2F 48 52 22 |TTS/MIN & CC/HR"|
00000650: 3A 99 00 71 0E 3A 02 99 22 35 2E 20 43 43 2F 48 |:..q.:.."5. CC/H|
00000660: 52 20 4B 4E 4F 57 49 4E 47 20 55 2F 48 52 22 3A |R KNOWING U/HR":|
00000670: 99 00 95 0E 44 02 99 22 53 45 4C 45 43 54 20 54 |....D.."SELECT T|
00000680: 4F 50 49 43 20 4E 45 45 44 45 44 2C 20 50 4C 45 |OPIC NEEDED, PLE|
00000690: 41 53 45 3A 22 00 B8 0E 4E 02 99 22 C3 C3 C3 C3 |ASE:"...N.."....|
000006A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 20 |............... |
000006B0: 20 C3 C3 C3 C3 C3 C3 22 00 C2 0E 58 02 8D 38 38 | ......"...X..88|
000006C0: 37 30 00 CF 0E 62 02 8B 58 B3 31 A7 32 32 30 00 |70...b..X.1.220.|
000006D0: DC 0E 6C 02 8B 58 B1 35 A7 34 36 30 00 FB 0E 76 |..l..X.5.460...v|
000006E0: 02 91 58 89 36 34 30 2C 31 30 34 30 2C 31 34 35 |..X.640,1040,145|
000006F0: 30 2C 31 37 32 30 2C 32 30 34 30 00 05 0F 80 02 |0,1720,2040.....|
00000700: 8D 38 36 32 30 00 2B 0F 8A 02 8F 20 2A 2A 2A 2A |.8620.+.... ****|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 0F 94 02 |***********.Q...|
00000730: 8F 20 2A 2A 2A 2A 2A 2A 20 49 56 20 44 52 49 50 |. ****** IV DRIP|
00000740: 20 52 41 54 45 20 43 41 4C 43 20 2A 2A 2A 2A 2A | RATE CALC *****|
00000750: 2A 00 77 0F 9E 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.w.... ********|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 2A 2A 2A 2A 00 8C 0F A8 02 8F 20 43 3D |*******...... C=|
00000780: 44 52 4F 50 53 20 50 45 52 20 43 43 00 A7 0F B2 |DROPS PER CC....|
00000790: 02 8F 20 44 3D 41 4D 4F 55 4E 54 20 4F 46 20 49 |.. D=AMOUNT OF I|
000007A0: 56 20 46 4C 55 49 44 00 C7 0F BC 02 8F 20 46 3D |V FLUID...... F=|
000007B0: 41 4D 4F 55 4E 54 20 4F 46 20 46 4C 55 49 44 20 |AMOUNT OF FLUID |
000007C0: 49 4E 20 43 43 27 53 00 E0 0F C6 02 8F 20 47 3D |IN CC'S...... G=|
000007D0: 50 54 20 57 45 49 47 48 54 20 49 4E 20 4B 47 53 |PT WEIGHT IN KGS|
000007E0: 00 F6 0F D0 02 8F 20 4B 3D 49 4E 46 55 53 49 4F |...... K=INFUSIO|
000007F0: 4E 20 52 41 54 45 00 0F 10 DA 02 8F 20 50 3D 50 |N RATE...... P=P|
00000800: 54 20 57 45 49 47 48 54 20 49 4E 20 4C 42 53 00 |T WEIGHT IN LBS.|
00000810: 2D 10 E4 02 8F 20 52 3D 28 28 47 2A 4B 29 2F 28 |-.... R=((G*K)/(|
00000820: 44 2F 46 29 2A 31 30 30 30 29 29 2A 43 00 42 10 |D/F)*1000))*C.B.|
00000830: EE 02 8F 20 54 3D 49 4E 54 28 52 2A 31 30 29 2F |... T=INT(R*10)/|
00000840: 31 30 00 68 10 F8 02 8F 20 59 3D 28 28 28 52 2F |10.h.... Y=(((R/|
00000850: 43 29 2A 36 30 29 2A 31 30 29 2F 31 30 3D 3D 43 |C)*60)*10)/10==C|
00000860: 43 27 53 20 48 4F 55 52 00 8E 10 02 03 8F 20 2A |C'S HOUR...... *|
00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B6 |**************..|
00000890: 10 0C 03 99 A6 35 29 22 D5 C3 C3 C3 C3 C3 C3 C3 |.....5)"........|
000008A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000008B0: C3 C3 C3 C3 C9 22 00 DE 10 16 03 99 A6 35 29 22 |.....".......5)"|
000008C0: C2 43 41 4C 43 55 4C 41 54 49 4F 4E 20 4F 46 20 |.CALCULATION OF |
000008D0: 49 56 20 44 52 49 50 20 52 41 54 45 C2 22 00 08 |IV DRIP RATE."..|
000008E0: 11 20 03 99 A6 35 29 22 CA C3 C3 C3 C3 C3 C3 C3 |. ...5)"........|
000008F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000900: C3 C3 C3 C3 CB 11 11 22 00 36 11 2A 03 85 22 45 |.......".6.*.."E|
00000910: 4E 54 45 52 20 49 4E 46 55 53 45 44 20 52 41 54 |NTER INFUSED RAT|
00000920: 45 20 41 54 20 4D 43 47 2F 4B 47 2F 4D 49 4E 3A |E AT MCG/KG/MIN:|
00000930: 20 22 3B 4B 3A 99 00 4A 11 34 03 8B 4B B2 30 A7 | ";K:..J.4..K.0.|
00000940: 8D 38 37 30 30 3A 89 36 34 30 00 76 11 3E 03 85 |.8700:.640.v.>..|
00000950: 22 93 11 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 |"...ENTER AMOUNT|
00000960: 20 4F 46 20 44 52 55 47 20 49 4E 20 4D 47 53 3A | OF DRUG IN MGS:|
00000970: 20 22 3B 44 3A 99 00 8A 11 48 03 8B 44 B2 30 A7 | ";D:....H..D.0.|
00000980: 8D 38 37 30 30 3A 89 38 33 30 00 BA 11 52 03 85 |.8700:.830...R..|
00000990: 22 93 11 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 |"...ENTER AMOUNT|
000009A0: 20 4F 46 20 49 56 20 46 4C 55 49 44 20 49 4E 20 | OF IV FLUID IN |
000009B0: 43 43 27 53 20 22 3B 46 3A 99 00 CE 11 5C 03 8B |CC'S ";F:....\..|
000009C0: 46 B2 30 A7 8D 38 37 30 30 3A 89 38 35 30 00 F1 |F.0..8700:.850..|
000009D0: 11 66 03 85 22 93 11 11 45 4E 54 45 52 20 44 52 |.f.."...ENTER DR|
000009E0: 4F 50 53 20 50 45 52 20 43 43 3A 20 22 3B 43 3A |OPS PER CC: ";C:|
000009F0: 99 00 05 12 70 03 8B 43 B2 30 A7 8D 38 37 30 30 |....p..C.0..8700|
00000A00: 3A 89 38 37 30 00 39 12 7A 03 85 22 93 11 11 45 |:.870.9.z.."...E|
00000A10: 4E 54 45 52 20 50 41 54 49 45 4E 54 20 57 45 49 |NTER PATIENT WEI|
00000A20: 47 48 54 20 49 4E 20 4C 42 53 3A 20 22 3B 50 3A |GHT IN LBS: ";P:|
00000A30: 47 B2 28 50 AD 32 2E 32 29 00 4D 12 84 03 8B 47 |G.(P.2.2).M....G|
00000A40: B2 30 A7 8D 38 37 30 30 3A 89 38 39 30 00 6A 12 |.0..8700:.890.j.|
00000A50: 8E 03 52 B2 28 28 47 AC 4B 29 AD 28 28 44 AD 46 |..R.((G.K).((D.F|
00000A60: 29 AC 31 30 30 30 29 29 AC 43 00 74 12 98 03 8D |).1000)).C.t....|
00000A70: 38 36 32 30 00 94 12 A2 03 47 B2 28 B5 28 47 AC |8620.....G.(.(G.|
00000A80: 31 30 29 29 AD 31 30 3A 54 B2 B5 28 52 AC 31 30 |10)).10:T..(R.10|
00000A90: 29 AD 31 30 00 B4 12 AC 03 99 A6 39 29 22 D5 C3 |).10.......9)"..|
00000AA0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000AB0: C3 C3 C3 C9 00 D5 12 B6 03 99 A6 39 29 22 C2 4D |...........9)".M|
00000AC0: 43 47 2F 4B 47 2F 4D 49 4E 3D 22 3B 4B 3B A3 33 |CG/KG/MIN=";K;.3|
00000AD0: 30 29 22 C2 22 00 F7 12 C0 03 99 A6 39 29 22 C2 |0)".".......9)".|
00000AE0: 44 52 55 47 20 49 4E 20 4D 47 53 3D 22 3B 44 3B |DRUG IN MGS=";D;|
00000AF0: A3 33 30 29 22 C2 22 00 1B 13 CA 03 99 A6 39 29 |.30)".".......9)|
00000B00: 22 C2 49 56 20 46 4C 55 49 44 20 43 43 27 53 3D |".IV FLUID CC'S=|
00000B10: 22 3B 46 3B A3 33 30 29 22 C2 22 00 3E 13 D4 03 |";F;.30)".".>...|
00000B20: 99 A6 39 29 22 C2 44 52 4F 50 53 20 50 45 52 20 |..9)".DROPS PER |
00000B30: 43 43 3D 22 3B 43 3B A3 33 30 29 22 C2 22 00 5F |CC=";C;.30)"."._|
00000B40: 13 DE 03 99 A6 39 29 22 C2 50 54 2E 20 57 45 49 |.....9)".PT. WEI|
00000B50: 47 48 54 3D 22 3B 50 3B A3 33 30 29 22 C2 22 00 |GHT=";P;.30)".".|
00000B60: 7F 13 E8 03 99 A3 39 29 22 CA C3 C3 C3 C3 C3 C3 |......9)".......|
00000B70: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 00 |................|
00000B80: BC 13 F2 03 99 22 11 54 48 45 20 49 4E 46 55 53 |.....".THE INFUS|
00000B90: 49 4F 4E 20 52 41 54 45 20 49 53 22 3B 54 3B 22 |ION RATE IS";T;"|
00000BA0: 44 50 4D 22 3A 59 B2 B5 28 28 28 52 AD 43 29 AC |DPM":Y..(((R.C).|
00000BB0: 36 30 29 AC 31 30 29 AD 31 30 3A 99 00 E3 13 FC |60).10).10:.....|
00000BC0: 03 99 22 54 48 49 53 20 49 53 20 41 4C 53 4F 22 |.."THIS IS ALSO"|
00000BD0: 3B 59 3B 22 43 43 27 53 20 50 45 52 20 48 4F 55 |;Y;"CC'S PER HOU|
00000BE0: 52 2E 22 00 ED 13 06 04 89 38 35 38 30 00 F7 13 |R."......8580...|
00000BF0: 10 04 8D 38 36 32 30 00 1C 14 1A 04 8F 20 2A 2A |...8620...... **|
00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 14 24 |************.A.$|
00000C20: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 43 47 2F |.. ******** MCG/|
00000C30: 4B 47 2F 4D 49 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |KG/MIN *********|
00000C40: 2A 00 66 14 2E 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.f.... ********|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C60: 2A 2A 2A 2A 2A 2A 00 7F 14 38 04 8F 20 43 3D 43 |******...8.. C=C|
00000C70: 43 27 53 20 4F 46 20 53 4F 4C 55 54 49 4F 4E 00 |C'S OF SOLUTION.|
00000C80: 96 14 42 04 8F 20 46 3D 4A 2A 36 30 3D 3D 4D 47 |..B.. F=J*60==MG|
00000C90: 2F 4B 47 2F 48 52 00 A6 14 4C 04 8F 20 47 3D 4D |/KG/HR...L.. G=M|
00000CA0: 43 47 53 2F 43 43 00 BC 14 56 04 8F 20 48 3D 49 |CGS/CC...V.. H=I|
00000CB0: 4E 46 55 53 49 4F 4E 20 52 41 54 45 00 CE 14 60 |NFUSION RATE...`|
00000CC0: 04 8F 20 4A 3D 4D 47 2F 4B 47 2F 4D 49 4E 00 E7 |.. J=MG/KG/MIN..|
00000CD0: 14 6A 04 8F 20 4B 3D 50 54 20 57 45 49 47 48 54 |.j.. K=PT WEIGHT|
00000CE0: 20 49 4E 20 4B 47 53 00 FD 14 74 04 8F 20 4D 3D | IN KGS...t.. M=|
00000CF0: 4D 43 47 27 53 20 4F 46 20 44 52 55 47 00 16 15 |MCG'S OF DRUG...|
00000D00: 7E 04 8F 20 50 3D 50 54 20 57 45 49 47 48 54 20 |~.. P=PT WEIGHT |
00000D10: 49 4E 20 4C 42 53 00 26 15 88 04 8F 20 52 3D 4D |IN LBS.&.... R=M|
00000D20: 43 47 53 2F 48 52 00 37 15 92 04 8F 20 54 3D 4D |CGS/HR.7.... T=M|
00000D30: 43 47 53 2F 4D 49 4E 00 4A 15 9C 04 8F 20 55 3D |CGS/MIN.J.... U=|
00000D40: 4D 43 47 53 2F 4B 47 2F 48 52 00 5E 15 A6 04 8F |MCGS/KG/HR.^....|
00000D50: 20 56 3D 4D 43 47 53 2F 4B 47 2F 4D 49 4E 00 6D | V=MCGS/KG/MIN.m|
00000D60: 15 B0 04 8F 20 57 3D 4D 47 53 2F 43 43 00 92 15 |.... W=MGS/CC...|
00000D70: BA 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D90: 2A 2A 00 B7 15 C4 04 8F 20 2A 2A 2A 2A 2A 2A 2A |**...... *******|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 00 D1 15 CE 04 99 A6 31 30 |*******.......10|
00000DC0: 29 22 4D 43 47 2F 4B 47 2F 4D 49 4E 22 3A 99 3A |)"MCG/KG/MIN":.:|
00000DD0: 99 00 FF 15 D8 04 99 22 49 4E 53 45 52 54 20 43 |......."INSERT C|
00000DE0: 4F 52 52 45 43 54 20 56 41 4C 55 45 53 20 46 4F |ORRECT VALUES FO|
00000DF0: 52 20 4D 47 53 2F 43 43 22 3A 99 3A 99 3A 99 00 |R MGS/CC":.:.:..|
00000E00: 26 16 E2 04 85 22 4D 47 53 20 4F 46 20 44 52 55 |&...."MGS OF DRU|
00000E10: 47 20 22 3B 4D 3A 8B 4D B2 30 A7 8D 38 37 30 30 |G ";M:.M.0..8700|
00000E20: 3A 89 31 30 34 30 00 59 16 EC 04 85 22 11 45 4E |:.1040.Y....".EN|
00000E30: 54 45 52 20 43 43 27 53 20 4F 46 20 53 4F 4C 55 |TER CC'S OF SOLU|
00000E40: 54 49 4F 4E 20 22 3B 43 3A 8B 43 B2 30 A7 8D 38 |TION ";C:.C.0..8|
00000E50: 37 30 30 3A 89 31 32 36 30 00 82 16 F6 04 85 22 |700:.1260......"|
00000E60: 11 45 4E 54 45 52 20 49 4E 46 55 53 49 4F 4E 20 |.ENTER INFUSION |
00000E70: 52 41 54 45 20 28 43 43 27 53 2F 48 52 29 20 22 |RATE (CC'S/HR) "|
00000E80: 3B 48 00 97 16 00 05 8B 48 B2 30 A7 8D 38 37 30 |;H......H.0..870|
00000E90: 30 3A 89 31 32 37 30 00 D1 16 0A 05 85 22 11 45 |0:.1270......".E|
00000EA0: 4E 54 45 52 20 50 41 54 49 45 4E 54 27 53 20 57 |NTER PATIENT'S W|
00000EB0: 45 49 47 48 54 20 49 4E 20 4C 42 53 20 22 3B 50 |EIGHT IN LBS ";P|
00000EC0: 3A 8B 50 B2 30 A7 8D 38 37 30 30 3A 89 31 32 39 |:.P.0..8700:.129|
00000ED0: 30 00 F3 16 14 05 57 B2 4D AD 43 3A 47 B2 B5 28 |0.....W.M.C:G..(|
00000EE0: 57 AC 31 30 30 30 30 29 AD 31 30 3A 52 B2 28 48 |W.10000).10:R.(H|
00000EF0: AC 47 29 00 2F 17 1E 05 99 22 93 11 11 22 3A 4B |.G)./...."...":K|
00000F00: B2 B5 28 28 50 AD 32 2E 32 29 AC 31 30 30 29 AD |..((P.2.2).100).|
00000F10: 31 30 30 3A 54 B2 28 52 AD 36 30 29 3A 56 B2 B5 |100:T.(R.60):V..|
00000F20: 28 28 54 AD 4B 29 AC 31 30 30 29 AD 31 30 30 00 |((T.K).100).100.|
00000F30: 69 17 28 05 99 22 4D 47 53 2F 43 43 3D 22 3B B5 |i.(.."MGS/CC=";.|
00000F40: 28 57 AC 31 30 30 29 AD 31 30 30 3B A3 31 37 29 |(W.100).100;.17)|
00000F50: 22 C2 4D 47 53 20 4F 46 20 44 52 55 47 22 3B 4D |".MGS OF DRUG";M|
00000F60: 3A 99 A3 31 37 29 22 C2 22 00 A2 17 32 05 99 22 |:..17)"."...2.."|
00000F70: 4D 43 47 53 2F 43 43 3D 22 3B 47 3B A3 31 37 29 |MCGS/CC=";G;.17)|
00000F80: 22 C2 43 43 27 53 20 53 4F 4C 55 54 49 4F 4E 22 |".CC'S SOLUTION"|
00000F90: 3B 43 3A 99 A3 31 37 29 22 C2 22 3A 55 B2 56 AC |;C:..17)".":U.V.|
00000FA0: 36 30 00 B5 17 3C 05 55 B2 28 B5 28 55 AC 31 30 |60...<.U.(.(U.10|
00000FB0: 29 29 AD 31 30 00 E7 17 46 05 99 22 4D 43 47 53 |)).10...F.."MCGS|
00000FC0: 2F 48 52 3D 22 3B 52 3B A3 31 37 29 22 C2 49 4E |/HR=";R;.17)".IN|
00000FD0: 46 55 53 49 4F 4E 20 52 41 54 45 22 3B 48 3A 99 |FUSION RATE";H:.|
00000FE0: A3 31 37 29 22 C2 22 00 17 18 50 05 99 22 4D 43 |.17)"."...P.."MC|
00000FF0: 47 53 2F 4D 49 4E 3D 22 3B B5 28 54 AC 31 30 29 |GS/MIN=";.(T.10)|
00001000: AD 31 30 3B A3 31 37 29 22 C2 50 54 2E 20 57 45 |.10;.17)".PT. WE|
00001010: 49 47 48 54 22 3B 50 00 37 18 5A 05 99 A3 31 37 |IGHT";P.7.Z...17|
00001020: 29 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |)"..............|
00001030: C3 C3 C3 C3 C3 C3 22 00 4D 18 64 05 99 22 4D 43 |......".M.d.."MC|
00001040: 47 53 2F 4B 47 2F 4D 49 4E 3D 22 3B 56 00 64 18 |GS/KG/MIN=";V.d.|
00001050: 6E 05 99 22 11 4D 43 47 53 2F 4B 47 2F 48 52 3D |n..".MCGS/KG/HR=|
00001060: 20 22 3B 55 00 7A 18 78 05 4A B2 28 56 AD 31 30 | ";U.z.x.J.(V.10|
00001070: 30 30 29 3A 46 B2 4A AC 36 30 00 8F 18 82 05 99 |00):F.J.60......|
00001080: 22 11 4D 47 2F 4B 47 2F 4D 49 4E 3D 22 3B 4A 00 |".MG/KG/MIN=";J.|
00001090: B0 18 8C 05 99 22 11 4D 47 2F 4B 47 2F 48 52 3D |.....".MG/KG/HR=|
000010A0: 22 3B B5 28 46 AC 31 30 30 30 29 AD 31 30 30 30 |";.(F.1000).1000|
000010B0: 00 D0 18 96 05 99 22 11 50 41 54 49 45 4E 54 20 |......".PATIENT |
000010C0: 57 45 49 47 48 54 20 49 4E 20 4B 47 53 22 3B 4B |WEIGHT IN KGS";K|
000010D0: 00 DA 18 A0 05 89 38 35 38 30 00 E4 18 AA 05 8D |......8580......|
000010E0: 38 36 32 30 00 09 19 B4 05 8F 20 2A 2A 2A 2A 2A |8620...... *****|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2E 19 BE 05 8F 20 |*********...... |
00001110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 55 2F 50 45 52 20 |********* U/PER |
00001120: 48 4F 55 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 |HOUR *********.S|
00001130: 19 C8 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00001140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001150: 2A 2A 2A 00 71 19 D2 05 8F 20 41 3D 41 4D 4F 55 |***.q.... A=AMOU|
00001160: 4E 54 20 4F 46 20 55 4E 49 54 53 20 47 49 56 45 |NT OF UNITS GIVE|
00001170: 4E 00 8A 19 DC 05 8F 20 42 3D 43 43 27 53 20 4F |N...... B=CC'S O|
00001180: 46 20 53 4F 4C 55 54 49 4F 4E 00 A1 19 E6 05 8F |F SOLUTION......|
00001190: 20 43 3D 43 43 2F 48 52 20 52 55 4E 20 52 41 54 | C=CC/HR RUN RAT|
000011A0: 45 00 AD 19 F0 05 8F 20 44 3D 41 2F 42 00 D2 19 |E...... D=A/B...|
000011B0: FA 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000011C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011D0: 2A 2A 00 E8 19 04 06 99 A6 31 35 29 22 55 2F 50 |**.......15)"U/P|
000011E0: 45 52 20 48 4F 55 52 22 00 16 1A 0E 06 85 22 11 |ER HOUR"......".|
000011F0: 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 20 4F 46 |.ENTER AMOUNT OF|
00001200: 20 55 4E 49 54 53 20 54 4F 20 42 45 20 47 49 56 | UNITS TO BE GIV|
00001210: 45 4E 20 22 3B 41 00 2B 1A 18 06 8B 41 B2 30 A7 |EN ";A.+....A.0.|
00001220: 8D 38 37 30 30 3A 89 31 34 35 30 00 4C 1A 22 06 |.8700:.1450.L.".|
00001230: 99 22 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 20 |.".ENTER AMOUNT |
00001240: 4F 46 20 53 4F 4C 55 54 49 4F 4E 22 00 64 1A 2C |OF SOLUTION".d.,|
00001250: 06 85 22 49 4E 20 43 43 27 53 20 28 44 35 57 29 |.."IN CC'S (D5W)|
00001260: 20 22 3B 42 00 79 1A 36 06 8B 42 B2 30 A7 8D 38 | ";B.y.6..B.0..8|
00001270: 37 30 30 3A 89 31 35 37 30 00 99 1A 40 06 85 22 |700:.1570...@.."|
00001280: 11 45 4E 54 45 52 20 43 43 2F 48 52 20 52 55 4E |.ENTER CC/HR RUN|
00001290: 20 52 41 54 45 20 22 3B 43 00 AE 1A 4A 06 8B 43 | RATE ";C...J..C|
000012A0: B2 30 A7 8D 38 37 30 30 3A 89 31 36 30 30 00 B8 |.0..8700:.1600..|
000012B0: 1A 54 06 8D 38 36 32 30 00 D5 1A 5E 06 99 A6 31 |.T..8620...^...1|
000012C0: 30 29 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |0)".............|
000012D0: C3 C3 C3 C9 22 00 F2 1A 68 06 99 A6 31 30 29 22 |...."...h...10)"|
000012E0: C2 55 4E 49 54 53 3D 22 3B 41 3B A3 32 36 29 22 |.UNITS=";A;.26)"|
000012F0: C2 22 00 12 1B 72 06 99 A6 31 30 29 22 C2 53 4F |."...r...10)".SO|
00001300: 4C 55 54 49 4F 4E 3D 22 3B 42 3B A3 32 36 29 22 |LUTION=";B;.26)"|
00001310: C2 22 00 2F 1B 7C 06 99 A6 31 30 29 22 C2 43 43 |."./.|...10)".CC|
00001320: 2F 48 52 3D 22 3B 43 3B A3 32 36 29 22 C2 22 00 |/HR=";C;.26)".".|
00001330: 4C 1B 86 06 99 A6 31 30 29 22 CA C3 C3 C3 C3 C3 |L.....10)"......|
00001340: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 00 7A 1B 90 |...........".z..|
00001350: 06 99 22 11 54 48 45 20 55 2F 50 45 52 20 43 43 |..".THE U/PER CC|
00001360: 20 49 53 2C 22 3B B5 28 41 AD 42 29 3B 22 55 2F | IS,";.(A.B);"U/|
00001370: 50 45 52 20 43 43 2E 22 3A 99 00 84 1B 9A 06 44 |PER CC.":......D|
00001380: B2 41 AD 42 00 B1 1B A4 06 99 22 54 48 45 20 55 |.A.B......"THE U|
00001390: 2F 50 45 52 20 48 4F 55 52 20 49 53 2C 22 3B B5 |/PER HOUR IS,";.|
000013A0: 28 44 AC 43 29 3B 22 55 2F 50 45 52 20 48 52 2E |(D.C);"U/PER HR.|
000013B0: 22 00 BB 1B AE 06 89 38 35 38 30 00 C5 1B B8 06 |"......8580.....|
000013C0: 8D 38 36 32 30 00 EA 1B C2 06 8F 20 2A 2A 2A 2A |.8620...... ****|
000013D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 1C CC 06 8F |**********......|
000013F0: 20 2A 2A 2A 2A 2A 2A 20 47 54 54 53 2F 4D 49 4E | ****** GTTS/MIN|
00001400: 20 26 20 43 43 2F 48 52 20 2A 2A 2A 2A 2A 2A 00 | & CC/HR ******.|
00001410: 34 1C D6 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4.... **********|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001430: 2A 2A 2A 2A 00 51 1C E0 06 8F 20 41 3D 41 4D 4F |****.Q.... A=AMO|
00001440: 55 4E 54 20 4F 46 20 44 52 55 47 20 49 4E 20 47 |UNT OF DRUG IN G|
00001450: 4D 00 6A 1C EA 06 8F 20 42 3D 43 43 27 53 20 4F |M.j.... B=CC'S O|
00001460: 46 20 49 56 20 46 4C 55 49 44 00 7E 1C F4 06 8F |F IV FLUID.~....|
00001470: 20 43 3D 4D 47 20 52 55 4E 20 52 41 54 45 00 93 | C=MG RUN RATE..|
00001480: 1C FE 06 8F 20 44 3D 28 41 2A 31 30 30 30 29 3D |.... D=(A*1000)=|
00001490: 3D 4D 47 00 A8 1C 08 07 8F 20 45 3D 28 44 2F 42 |=MG...... E=(D/B|
000014A0: 29 3D 3D 4D 47 2F 43 43 00 B9 1C 12 07 8F 20 46 |)==MG/CC...... F|
000014B0: 3D 47 54 54 53 2F 4D 49 4E 00 C7 1C 1C 07 8F 20 |=GTTS/MIN...... |
000014C0: 47 3D 43 43 2F 48 52 00 EC 1C 26 07 8F 20 2A 2A |G=CC/HR...&.. **|
000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 08 1D 30 |************...0|
000014F0: 07 99 A6 31 30 29 22 47 54 54 53 2F 4D 49 4E 20 |...10)"GTTS/MIN |
00001500: 26 20 43 43 2F 48 52 22 00 2F 1D 3A 07 85 22 11 |& CC/HR"./.:..".|
00001510: 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 20 4F 46 |.ENTER AMOUNT OF|
00001520: 20 44 52 55 47 20 49 4E 20 47 4D 20 22 3B 41 00 | DRUG IN GM ";A.|
00001530: 44 1D 44 07 8B 41 B2 30 A7 8D 38 37 30 30 3A 89 |D.D..A.0..8700:.|
00001540: 31 37 32 30 00 70 1D 4E 07 85 22 11 45 4E 54 45 |1720.p.N..".ENTE|
00001550: 52 20 41 4D 4F 55 4E 54 20 4F 46 20 49 56 20 46 |R AMOUNT OF IV F|
00001560: 4C 55 49 44 20 49 4E 20 43 43 27 53 20 22 3B 42 |LUID IN CC'S ";B|
00001570: 00 85 1D 58 07 8B 42 B2 30 A7 8D 38 37 30 30 3A |...X..B.0..8700:|
00001580: 89 31 38 37 30 00 B1 1D 62 07 85 22 11 45 4E 54 |.1870...b..".ENT|
00001590: 45 52 20 54 48 45 20 4D 47 20 52 55 4E 20 52 41 |ER THE MG RUN RA|
000015A0: 54 45 20 50 45 52 20 4D 49 4E 55 54 45 20 22 3B |TE PER MINUTE ";|
000015B0: 43 00 C6 1D 6C 07 8B 43 B2 30 A7 8D 38 37 30 30 |C...l..C.0..8700|
000015C0: 3A 89 31 38 39 30 00 FF 1D 76 07 44 B2 28 41 AC |:.1890...v.D.(A.|
000015D0: 31 30 30 30 29 3A 45 B2 28 44 AD 42 29 3A 44 B2 |1000):E.(D.B):D.|
000015E0: 28 B5 28 44 AC 31 30 30 29 29 AD 31 30 30 3A 45 |(.(D.100)).100:E|
000015F0: B2 28 B5 28 45 AC 31 30 30 29 29 AD 31 30 30 00 |.(.(E.100)).100.|
00001600: 09 1E 80 07 8D 38 36 32 30 00 29 1E 8A 07 99 A6 |.....8620.).....|
00001610: 31 30 29 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |10)"............|
00001620: C3 C3 C3 C3 C3 C3 C3 C9 22 00 4B 1E 94 07 99 A6 |........".K.....|
00001630: 31 30 29 22 C2 44 52 55 47 20 49 4E 20 47 4D 3D |10)".DRUG IN GM=|
00001640: 22 3B 41 3B A3 32 39 29 22 C2 22 00 6D 1E 9E 07 |";A;.29)".".m...|
00001650: 99 A6 31 30 29 22 C2 46 4C 55 49 44 20 43 43 27 |..10)".FLUID CC'|
00001660: 53 3D 22 3B 42 3B A3 32 39 29 22 C2 22 00 90 1E |S=";B;.29)"."...|
00001670: A8 07 99 A6 31 30 29 22 C2 4D 47 20 52 55 4E 20 |....10)".MG RUN |
00001680: 52 41 54 45 3D 22 3B 43 3B A3 32 39 29 22 C2 22 |RATE=";C;.29)"."|
00001690: 00 B0 1E B2 07 99 A6 31 30 29 22 CA C3 C3 C3 C3 |.......10)".....|
000016A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 |..............."|
000016B0: 00 DB 1E BC 07 99 41 3B 22 47 4D 20 49 53 20 45 |......A;"GM IS E|
000016C0: 51 55 41 4C 20 54 4F 22 3B 44 3B 22 4D 47 20 49 |QUAL TO";D;"MG I|
000016D0: 4E 22 3B 42 3B 22 43 43 27 53 22 00 F4 1E C6 07 |N";B;"CC'S".....|
000016E0: 99 22 20 4F 46 20 53 4F 4C 55 54 49 4F 4E 2E 22 |." OF SOLUTION."|
000016F0: 3A 99 3A 99 00 25 1F D0 07 99 22 54 48 49 53 20 |:.:..%...."THIS |
00001700: 45 51 55 41 4C 53 22 3B 45 3B 22 4D 47 2F 43 43 |EQUALS";E;"MG/CC|
00001710: 20 41 54 22 3B 43 3B 22 20 4D 47 2F 4D 49 4E 2E | AT";C;" MG/MIN.|
00001720: 22 3A 99 3A 99 00 41 1F DA 07 46 B2 B5 28 36 30 |":.:..A...F..(60|
00001730: AD 45 29 AC 43 3A 47 B2 B5 28 36 30 AD 45 29 AC |.E).C:G..(60.E).|
00001740: 43 00 74 1F E4 07 99 22 53 45 54 20 41 54 20 2D |C.t...."SET AT -|
00001750: 2D 2D 2D 22 3B 46 3B 22 47 54 54 53 2F 4D 49 4E |---";F;"GTTS/MIN|
00001760: 20 2D 2D 2D 2D 22 3B 47 3B 22 43 43 2F 48 52 22 | ----";G;"CC/HR"|
00001770: 3A 99 3A 99 00 7E 1F EE 07 89 38 35 38 30 00 88 |:.:..~....8580..|
00001780: 1F F8 07 8D 38 36 32 30 00 AD 1F 02 08 8F 20 2A |....8620...... *|
00001790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D2 1F |*************...|
000017B0: 0C 08 8F 20 2A 2A 2A 2A 2A 20 43 43 2F 48 52 20 |... ***** CC/HR |
000017C0: 4B 4E 4F 57 49 4E 47 20 55 2F 48 52 20 2A 2A 2A |KNOWING U/HR ***|
000017D0: 2A 2A 00 F7 1F 16 08 8F 20 2A 2A 2A 2A 2A 2A 2A |**...... *******|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017F0: 2A 2A 2A 2A 2A 2A 2A 00 0D 20 20 08 8F 20 41 3D |*******.. .. A=|
00001800: 55 4E 49 54 53 20 4F 46 20 44 52 55 47 00 25 20 |UNITS OF DRUG.% |
00001810: 2A 08 8F 20 42 3D 41 4D 4F 55 4E 54 20 4F 46 20 |*.. B=AMOUNT OF |
00001820: 46 4C 55 49 44 00 3C 20 34 08 8F 20 43 3D 55 4E |FLUID.< 4.. C=UN|
00001830: 49 54 53 20 50 45 52 20 48 4F 55 52 00 61 20 3E |ITS PER HOUR.a >|
00001840: 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001860: 2A 00 7F 20 48 08 99 A6 31 30 29 22 43 43 2F 48 |*.. H...10)"CC/H|
00001870: 52 20 4B 4E 4F 57 49 4E 47 20 55 2F 48 52 22 00 |R KNOWING U/HR".|
00001880: 9F 20 52 08 85 22 11 11 45 4E 54 45 52 20 55 4E |. R.."..ENTER UN|
00001890: 49 54 53 20 4F 46 20 44 52 55 47 3A 22 3B 41 00 |ITS OF DRUG:";A.|
000018A0: B4 20 5C 08 8B 41 B2 30 A7 8D 38 37 30 30 3A 89 |. \..A.0..8700:.|
000018B0: 32 30 34 30 00 DC 20 66 08 85 22 11 45 4E 54 45 |2040.. f..".ENTE|
000018C0: 52 20 41 4D 4F 55 4E 54 20 4F 46 20 46 4C 55 49 |R AMOUNT OF FLUI|
000018D0: 44 2C 20 28 44 35 57 29 3A 22 3B 42 00 F1 20 70 |D, (D5W):";B.. p|
000018E0: 08 8B 42 B2 30 A7 8D 38 37 30 30 3A 89 32 31 35 |..B.0..8700:.215|
000018F0: 30 00 07 21 7A 08 85 22 11 45 4E 54 45 52 20 55 |0..!z..".ENTER U|
00001900: 2F 48 52 3A 22 3B 43 00 1C 21 84 08 8B 43 B2 30 |/HR:";C..!...C.0|
00001910: A7 8D 38 37 30 30 3A 89 32 31 37 30 00 26 21 8E |..8700:.2170.&!.|
00001920: 08 8D 38 36 32 30 00 48 21 98 08 99 A6 31 30 29 |..8620.H!....10)|
00001930: 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
00001940: C3 C3 C3 C3 C3 C3 C9 22 00 6D 21 A2 08 99 A6 31 |.......".m!....1|
00001950: 30 29 22 C2 55 4E 49 54 53 20 4F 46 20 44 52 55 |0)".UNITS OF DRU|
00001960: 47 3D 22 3B 41 3B A3 33 31 29 22 C2 22 00 8F 21 |G=";A;.31)"."..!|
00001970: AC 08 99 A6 31 30 29 22 C2 43 43 27 53 20 46 4C |....10)".CC'S FL|
00001980: 55 49 44 3D 22 3B 42 3B A3 33 31 29 22 C2 22 00 |UID=";B;.31)".".|
00001990: AF 21 B6 08 99 A6 31 30 29 22 C2 55 4E 49 54 53 |.!....10)".UNITS|
000019A0: 20 48 52 3D 22 3B 43 3B A3 33 31 29 22 C2 22 00 | HR=";C;.31)".".|
000019B0: D1 21 C0 08 99 A6 31 30 29 22 CA C3 C3 C3 C3 C3 |.!....10)"......|
000019C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB |................|
000019D0: 22 00 F2 21 CA 08 99 22 11 54 48 45 20 55 2F 50 |"..!...".THE U/P|
000019E0: 45 52 20 43 43 20 49 53 22 3B B5 28 41 AD 42 29 |ER CC IS";.(A.B)|
000019F0: 3A 99 00 30 22 D4 08 99 22 54 48 45 20 49 4E 46 |:..0"..."THE INF|
00001A00: 55 53 49 4F 4E 20 52 41 54 45 20 57 4F 55 4C 44 |USION RATE WOULD|
00001A10: 20 42 45 22 3B B5 28 28 43 AD 28 41 AD 42 29 29 | BE";.((C.(A.B))|
00001A20: AC 31 30 29 AD 31 30 3B 22 43 43 2F 48 52 2E 22 |.10).10;"CC/HR."|
00001A30: 00 3A 22 DE 08 89 38 35 38 30 00 44 22 E8 08 8D |.:"...8580.D"...|
00001A40: 38 36 32 30 00 69 22 F2 08 8F 20 2A 2A 2A 2A 2A |8620.i"... *****|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 22 FC 08 8F 20 |*********.."... |
00001A70: 2A 2A 2A 2A 2A 2A 2A 20 43 41 52 44 49 4F 50 55 |******* CARDIOPU|
00001A80: 4C 4D 4F 4E 41 52 59 20 2A 2A 2A 2A 2A 2A 00 B3 |LMONARY ******..|
00001A90: 22 06 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"... ***********|
00001AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001AB0: 2A 2A 2A 00 D4 22 10 09 8F 20 41 3D 50 55 4C 4C |***.."... A=PULL|
00001AC0: 4D 4F 4E 41 52 59 20 56 41 53 43 55 4C 41 52 20 |MONARY VASCULAR |
00001AD0: 52 45 53 2E 00 EE 22 1A 09 8F 20 42 3D 42 4F 44 |RES..."... B=BOD|
00001AE0: 59 20 53 55 52 46 41 43 45 20 41 52 45 41 00 05 |Y SURFACE AREA..|
00001AF0: 23 24 09 8F 20 43 3D 43 41 52 44 49 41 43 20 4F |#$.. C=CARDIAC O|
00001B00: 55 54 50 55 54 00 1D 23 2E 09 8F 20 44 3D 53 59 |UTPUT..#... D=SY|
00001B10: 53 54 4F 4C 49 43 20 50 52 45 53 53 2E 00 36 23 |STOLIC PRESS..6#|
00001B20: 38 09 8F 20 45 3D 44 49 41 53 54 4F 4C 49 43 20 |8.. E=DIASTOLIC |
00001B30: 50 52 45 53 53 2E 00 52 23 42 09 8F 20 46 3D 52 |PRESS..R#B.. F=R|
00001B40: 41 54 45 20 50 52 45 53 53 2E 20 50 52 4F 44 55 |ATE PRESS. PRODU|
00001B50: 43 54 00 67 23 4C 09 8F 20 47 3D 54 52 49 50 4C |CT.g#L.. G=TRIPL|
00001B60: 45 20 49 4E 44 45 58 00 83 23 56 09 8F 20 48 3D |E INDEX..#V.. H=|
00001B70: 50 54 20 48 45 49 47 48 54 20 49 4E 20 49 4E 43 |PT HEIGHT IN INC|
00001B80: 48 45 53 00 9D 23 60 09 8F 20 49 3D 53 2F 42 3D |HES..#`.. I=S/B=|
00001B90: 3D 53 54 52 4F 4B 45 20 49 4E 44 45 58 00 B6 23 |=STROKE INDEX..#|
00001BA0: 6A 09 8F 20 4B 3D 50 54 20 57 45 49 47 48 54 20 |j.. K=PT WEIGHT |
00001BB0: 49 4E 20 4B 47 53 00 D5 23 74 09 8F 20 4C 3D 4C |IN KGS..#t.. L=L|
00001BC0: 45 46 54 20 56 45 4E 54 2E 20 53 54 52 4F 4B 45 |EFT VENT. STROKE|
00001BD0: 20 57 4F 52 4B 00 F5 23 7E 09 8F 20 4D 3D 4D 45 | WORK..#~.. M=ME|
00001BE0: 41 4E 20 50 55 4C 2E 20 41 52 54 2E 20 50 52 45 |AN PUL. ART. PRE|
00001BF0: 53 53 55 52 45 00 17 24 88 09 8F 20 4E 3D 50 55 |SSURE..$... N=PU|
00001C00: 4C 2E 20 41 52 54 2E 20 53 59 53 54 4F 4C 49 43 |L. ART. SYSTOLIC|
00001C10: 20 50 52 45 53 53 2E 00 2D 24 92 09 8F 20 4F 3D | PRESS..-$... O=|
00001C20: 43 41 52 44 49 41 43 20 49 4E 44 45 58 00 4A 24 |CARDIAC INDEX.J$|
00001C30: 9C 09 8F 20 50 3D 4D 45 41 4E 20 41 52 54 45 52 |... P=MEAN ARTER|
00001C40: 59 20 50 52 45 53 53 55 52 45 00 6D 24 A6 09 8F |Y PRESSURE.m$...|
00001C50: 20 51 3D 50 55 4C 2E 20 41 52 54 2E 20 44 49 41 | Q=PUL. ART. DIA|
00001C60: 53 54 4F 49 4C 43 20 50 52 45 53 53 2E 00 80 24 |STOILC PRESS...$|
00001C70: B0 09 8F 20 52 3D 48 45 41 52 54 20 52 41 54 45 |... R=HEART RATE|
00001C80: 00 9E 24 BA 09 8F 20 53 3D 53 54 52 4F 4B 45 20 |..$... S=STROKE |
00001C90: 56 4F 4C 55 4D 45 20 4D 4C 2F 42 45 41 54 00 BE |VOLUME ML/BEAT..|
00001CA0: 24 C4 09 8F 20 54 3D 52 49 47 48 54 20 56 45 4E |$... T=RIGHT VEN|
00001CB0: 54 2E 20 53 54 52 4F 4B 45 20 57 4F 52 4B 00 DF |T. STROKE WORK..|
00001CC0: 24 CE 09 8F 20 55 3D 50 55 4C 2E 20 43 41 50 2E |$... U=PUL. CAP.|
00001CD0: 20 57 45 47 44 45 20 50 52 45 53 53 55 52 45 00 | WEGDE PRESSURE.|
00001CE0: FF 24 D8 09 8F 20 56 3D 43 45 4E 54 52 41 4C 20 |.$... V=CENTRAL |
00001CF0: 56 45 4E 4F 55 53 20 50 52 45 53 53 55 52 45 00 |VENOUS PRESSURE.|
00001D00: 18 25 E2 09 8F 20 57 3D 50 54 20 57 45 49 47 48 |.%... W=PT WEIGH|
00001D10: 54 20 49 4E 20 4C 42 53 00 39 25 EC 09 8F 20 59 |T IN LBS.9%... Y|
00001D20: 3D 53 59 53 54 45 4D 49 43 20 56 41 53 2E 20 52 |=SYSTEMIC VAS. R|
00001D30: 45 53 49 53 54 41 4E 43 45 00 5B 25 F6 09 8F 20 |ESISTANCE.[%... |
00001D40: 5A 3D 50 54 20 48 45 49 47 48 54 20 49 4E 20 43 |Z=PT HEIGHT IN C|
00001D50: 45 4E 54 2E 20 4D 45 54 45 52 53 00 7C 25 00 0A |ENT. METERS.|%..|
00001D60: 8F 20 4C 49 3D 4C 45 46 54 20 56 45 4E 54 2E 20 |. LI=LEFT VENT. |
00001D70: 53 54 52 4F 4B 45 20 49 4E 44 45 58 00 9E 25 0A |STROKE INDEX..%.|
00001D80: 0A 8F 20 52 49 3D 52 49 47 48 54 20 56 45 4E 54 |.. RI=RIGHT VENT|
00001D90: 2E 20 53 54 52 4F 4B 45 20 49 4E 44 45 58 00 BB |. STROKE INDEX..|
00001DA0: 25 14 0A 8F 20 53 56 3D 53 54 52 4F 4B 45 20 56 |%... SV=STROKE V|
00001DB0: 4F 4C 55 4D 45 20 49 4E 44 45 58 00 E0 25 1E 0A |OLUME INDEX..%..|
00001DC0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DE0: 00 EA 25 28 0A 8D 38 39 32 30 00 24 26 32 0A 99 |..%(..8920.$&2..|
00001DF0: 22 C2 22 3B A6 34 29 22 43 41 52 44 49 4F 50 55 |".";.4)"CARDIOPU|
00001E00: 4C 4D 4F 4E 41 52 59 20 44 45 54 45 52 4D 49 4E |LMONARY DETERMIN|
00001E10: 41 54 49 4F 4E 53 22 3B A6 33 29 22 C2 22 3A 8D |ATIONS";.3)".":.|
00001E20: 38 39 39 30 00 58 26 3C 0A 99 A6 32 29 22 11 11 |8990.X&<...2)"..|
00001E30: 49 4E 20 4F 52 44 45 52 20 54 4F 20 57 4F 52 4B |IN ORDER TO WORK|
00001E40: 20 41 4C 4C 20 54 48 45 20 43 41 4C 43 55 4C 41 | ALL THE CALCULA|
00001E50: 54 49 4F 4E 53 22 3A 99 00 87 26 46 0A 99 22 49 |TIONS":...&F.."I|
00001E60: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 59 |N THIS PROGRAM Y|
00001E70: 4F 55 20 57 49 4C 4C 20 4E 45 45 44 20 54 4F 20 |OU WILL NEED TO |
00001E80: 4B 4E 4F 57 22 3A 99 00 B4 26 50 0A 99 22 54 48 |KNOW":...&P.."TH|
00001E90: 45 53 45 20 56 41 4C 55 45 53 3B 20 43 41 52 44 |ESE VALUES; CARD|
00001EA0: 49 41 43 20 4F 55 54 50 55 54 2C 20 48 45 41 52 |IAC OUTPUT, HEAR|
00001EB0: 54 22 3A 99 00 E5 26 5A 0A 99 22 52 41 54 45 2C |T":...&Z.."RATE,|
00001EC0: 20 50 41 54 49 45 4E 54 20 57 45 49 47 48 54 2C | PATIENT WEIGHT,|
00001ED0: 20 50 41 54 49 45 4E 54 20 48 45 49 47 48 54 20 | PATIENT HEIGHT |
00001EE0: 49 4E 22 3A 99 00 15 27 64 0A 99 22 49 4E 43 48 |IN":...'d.."INCH|
00001EF0: 45 53 2C 20 4D 45 41 4E 20 50 55 4C 4D 4F 4E 41 |ES, MEAN PULMONA|
00001F00: 52 59 20 50 52 45 53 53 55 52 45 2C 20 43 45 4E |RY PRESSURE, CEN|
00001F10: 54 52 41 4C 22 00 44 27 6E 0A 99 22 56 45 4E 4F |TRAL".D'n.."VENO|
00001F20: 55 53 20 50 52 45 53 53 55 52 45 2C 20 53 59 53 |US PRESSURE, SYS|
00001F30: 54 4F 4C 49 43 20 26 20 44 49 41 53 54 4F 4C 49 |TOLIC & DIASTOLI|
00001F40: 43 22 3A 99 00 76 27 78 0A 99 22 50 52 45 53 53 |C":..v'x.."PRESS|
00001F50: 55 52 45 2C 20 4D 45 41 4E 20 50 55 4C 4D 4F 4E |URE, MEAN PULMON|
00001F60: 41 52 59 20 50 52 45 53 53 55 52 45 2E 22 3A 99 |ARY PRESSURE.":.|
00001F70: 3A 99 3A 99 3A 99 00 98 27 82 0A 85 22 50 52 45 |:.:.:...'..."PRE|
00001F80: 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E |SS RETURN TO CON|
00001F90: 54 49 4E 55 45 22 3B 58 00 A2 27 8C 0A 8D 38 36 |TINUE";X..'...86|
00001FA0: 32 30 00 C3 27 96 0A 85 22 93 11 11 45 4E 54 45 |20..'..."...ENTE|
00001FB0: 52 20 43 41 52 44 49 41 43 20 4F 55 54 50 55 54 |R CARDIAC OUTPUT|
00001FC0: 22 3B 43 00 DD 27 A0 0A 8B 43 B2 B3 31 B0 43 B1 |";C..'...C..1.C.|
00001FD0: 39 A7 8D 38 37 30 30 3A 89 32 37 31 30 00 FA 27 |9..8700:.2710..'|
00001FE0: AA 0A 85 22 93 11 11 45 4E 54 45 52 20 48 45 41 |..."...ENTER HEA|
00001FF0: 52 54 20 52 41 54 45 22 3B 52 00 17 28 B4 0A 8B |RT RATE";R..(...|
00002000: 52 B2 B3 32 35 B0 52 B1 32 35 30 A7 8D 38 37 30 |R..25.R.250..870|
00002010: 30 3A 89 32 37 33 30 00 33 28 BE 0A 53 B2 B5 28 |0:.2730.3(..S..(|
00002020: 28 28 43 AD 52 29 AC 31 30 30 30 29 AC 31 30 29 |((C.R).1000).10)|
00002030: AD 31 30 00 6E 28 C8 0A 85 22 93 11 11 45 4E 54 |.10.n(..."...ENT|
00002040: 45 52 20 50 41 54 49 45 4E 54 20 57 45 49 47 48 |ER PATIENT WEIGH|
00002050: 54 20 49 4E 20 50 4F 55 4E 44 53 22 3B 57 3A 99 |T IN POUNDS";W:.|
00002060: 3A 4B B2 57 AC 2E 34 35 34 35 34 35 34 35 00 A4 |:K.W..45454545..|
00002070: 28 D2 0A 85 22 93 11 11 45 4E 54 45 52 20 50 41 |(..."...ENTER PA|
00002080: 54 49 45 4E 54 20 48 45 49 47 48 54 20 49 4E 20 |TIENT HEIGHT IN |
00002090: 49 4E 43 48 45 53 22 3B 48 3A 99 3A 5A B2 48 AC |INCHES";H:.:Z.H.|
000020A0: 32 2E 35 34 00 BD 28 DC 0A 8B 4B B2 30 B0 5A B2 |2.54..(...K.0.Z.|
000020B0: 30 A7 8D 38 37 30 30 3A 89 32 37 36 30 00 F0 28 |0..8700:.2760..(|
000020C0: E6 0A 42 B2 37 31 2E 38 34 AC 28 4B AE 2E 34 32 |..B.71.84.(K..42|
000020D0: 35 29 AC 28 5A AE 2E 37 32 35 29 AD 31 30 30 30 |5).(Z..725).1000|
000020E0: 30 3A 42 B2 B5 28 42 AC 31 30 30 29 AD 31 30 30 |0:B..(B.100).100|
000020F0: 00 07 29 F0 0A 4F B2 B5 28 28 43 AD 42 29 AC 31 |..)..O..((C.B).1|
00002100: 30 30 29 AD 31 30 30 00 32 29 FA 0A 85 22 93 11 |00).100.2)..."..|
00002110: 11 45 4E 54 45 52 20 42 4C 4F 4F 44 20 50 52 45 |.ENTER BLOOD PRE|
00002120: 53 53 55 52 45 20 53 59 53 54 4F 4C 49 43 3B 22 |SSURE SYSTOLIC;"|
00002130: 3B 44 00 47 29 04 0B 8B 44 B2 30 A7 8D 38 37 30 |;D.G)...D.0..870|
00002140: 30 3A 89 32 38 31 30 00 73 29 0E 0B 85 22 93 11 |0:.2810.s)..."..|
00002150: 11 45 4E 54 45 52 20 42 4C 4F 4F 44 20 50 52 45 |.ENTER BLOOD PRE|
00002160: 53 53 55 52 45 20 44 49 41 53 54 4F 4C 49 43 3B |SSURE DIASTOLIC;|
00002170: 22 3B 45 00 88 29 18 0B 8B 45 B2 30 A7 8D 38 37 |";E..)...E.0..87|
00002180: 30 30 3A 89 32 38 33 30 00 9C 29 22 0B 50 B2 28 |00:.2830..)".P.(|
00002190: 44 AA 28 32 AC 45 29 29 AD 33 3A 99 00 C6 29 2C |D.(2.E)).3:...),|
000021A0: 0B 99 22 93 11 11 45 4E 54 45 52 20 50 55 4C 4D |.."...ENTER PULM|
000021B0: 4F 4E 41 52 59 20 41 52 54 45 52 59 20 53 59 53 |ONARY ARTERY SYS|
000021C0: 54 4F 4C 49 43 22 00 E9 29 36 0B 85 22 50 52 45 |TOLIC"..)6.."PRE|
000021D0: 53 53 55 52 45 20 28 52 45 54 55 52 4E 20 49 46 |SSURE (RETURN IF|
000021E0: 20 4E 4F 4E 45 29 22 3B 4E 00 F7 29 40 0B 8B 4E | NONE)";N..)@..N|
000021F0: B2 30 A7 32 39 32 30 00 18 2A 4A 0B 99 22 93 11 |.0.2920..*J.."..|
00002200: 11 45 4E 54 45 52 20 50 55 4C 4D 4F 4E 41 52 59 |.ENTER PULMONARY|
00002210: 20 41 52 54 45 52 59 22 00 34 2A 54 0B 85 22 44 | ARTERY".4*T.."D|
00002220: 49 41 53 54 4F 4C 49 43 20 50 52 45 53 53 55 52 |IASTOLIC PRESSUR|
00002230: 45 22 3B 51 00 5F 2A 5E 0B 4D B2 28 28 4E AC 28 |E";Q._*^.M.((N.(|
00002240: 31 AD 33 29 AD 31 30 29 AA 28 51 AC 28 32 AD 33 |1.3).10).(Q.(2.3|
00002250: 29 AD 31 30 29 29 AC 31 30 3A 89 32 39 35 30 00 |).10)).10:.2950.|
00002260: 8E 2A 68 0B 99 22 93 11 11 45 4E 54 45 52 20 4D |.*h.."...ENTER M|
00002270: 45 41 4E 20 50 55 4C 4D 4F 4E 41 52 59 20 41 52 |EAN PULMONARY AR|
00002280: 54 45 52 59 20 50 52 45 53 53 55 52 45 22 00 95 |TERY PRESSURE"..|
00002290: 2A 72 0B 85 4D 00 AA 2A 7C 0B 8B 4D B2 30 A7 8D |*r..M..*|..M.0..|
000022A0: 38 37 30 30 3A 89 32 39 33 30 00 DC 2A 86 0B 85 |8700:.2930..*...|
000022B0: 22 93 11 11 45 4E 54 45 52 20 43 45 4E 54 52 41 |"...ENTER CENTRA|
000022C0: 4C 20 56 45 4E 4F 55 53 20 50 52 45 53 53 55 52 |L VENOUS PRESSUR|
000022D0: 45 22 3B 56 3A 49 B2 53 AD 42 3A 99 00 F1 2A 90 |E";V:I.S.B:...*.|
000022E0: 0B 8B 56 B2 30 A7 8D 38 37 30 30 3A 89 32 39 35 |..V.0..8700:.295|
000022F0: 30 00 25 2B 9A 0B 54 B2 28 53 AC 28 4D AB 56 29 |0.%+..T.(S.(M.V)|
00002300: AC 2E 30 31 33 36 29 3A 8F 20 52 49 47 48 54 20 |..0136):. RIGHT |
00002310: 56 45 4E 54 52 49 43 41 4C 20 53 54 52 4F 4B 45 |VENTRICAL STROKE|
00002320: 20 57 4F 52 4B 00 54 2B A4 0B 99 22 93 11 11 45 | WORK.T+..."...E|
00002330: 4E 54 45 52 20 4D 45 41 4E 20 50 55 4C 4D 4F 4E |NTER MEAN PULMON|
00002340: 41 52 59 20 43 41 50 49 4C 4C 41 52 59 20 57 45 |ARY CAPILLARY WE|
00002350: 44 47 45 22 00 79 2B AE 0B 85 22 50 52 45 53 53 |DGE".y+..."PRESS|
00002360: 55 52 45 22 3B 55 3A 41 B2 28 28 4D AB 55 29 AC |URE";U:A.((M.U).|
00002370: 37 39 2E 39 29 AD 43 3A 99 00 9B 2B B8 0B 99 22 |79.9).C:...+..."|
00002380: 93 11 11 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002390: C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 BA 2B C2 0B |.........."..+..|
000023A0: 99 22 C2 20 48 45 4D 4F 44 59 4E 41 4D 49 43 53 |.". HEMODYNAMICS|
000023B0: 20 56 41 4C 55 45 53 20 C2 22 00 D9 2B CC 0B 99 | VALUES ."..+...|
000023C0: 22 C2 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |". .............|
000023D0: C5 C5 C5 C5 C5 C5 20 C2 22 00 F9 2B D6 0B 99 22 |...... ."..+..."|
000023E0: C2 20 43 4F 20 3D 3D 3D 3D 3D 20 22 3B 43 3A 99 |. CO ===== ";C:.|
000023F0: A6 32 32 29 3B 22 91 C2 22 00 19 2C E0 0B 99 22 |.22);".."..,..."|
00002400: C2 20 48 52 20 3D 3D 3D 3D 3D 20 22 3B 52 3A 99 |. HR ===== ";R:.|
00002410: A6 32 32 29 3B 22 91 C2 22 00 39 2C EA 0B 99 22 |.22);"..".9,..."|
00002420: C2 20 57 45 49 47 48 54 20 3D 20 22 3B 57 3A 99 |. WEIGHT = ";W:.|
00002430: A6 32 32 29 3B 22 91 C2 22 00 59 2C F4 0B 99 22 |.22);"..".Y,..."|
00002440: C2 20 48 45 49 47 48 54 20 3D 20 22 3B 48 3A 99 |. HEIGHT = ";H:.|
00002450: A6 32 32 29 3B 22 91 C2 22 00 79 2C FE 0B 99 22 |.22);"..".y,..."|
00002460: C2 20 42 50 20 53 59 20 3D 3D 20 22 3B 44 3A 99 |. BP SY == ";D:.|
00002470: A6 32 32 29 3B 22 91 C2 22 00 99 2C 08 0C 99 22 |.22);".."..,..."|
00002480: C2 20 42 50 20 44 49 20 3D 3D 20 22 3B 45 3A 99 |. BP DI == ";E:.|
00002490: A6 32 32 29 3B 22 91 C2 22 00 B9 2C 12 0C 99 22 |.22);".."..,..."|
000024A0: C2 20 50 41 20 53 59 20 3D 3D 20 22 3B 4E 3A 99 |. PA SY == ";N:.|
000024B0: A6 32 32 29 3B 22 91 C2 22 00 D9 2C 1C 0C 99 22 |.22);".."..,..."|
000024C0: C2 20 50 41 20 44 49 20 3D 3D 20 22 3B 51 3A 99 |. PA DI == ";Q:.|
000024D0: A6 32 32 29 3B 22 91 C2 22 00 F9 2C 26 0C 99 22 |.22);".."..,&.."|
000024E0: C2 20 43 56 50 20 3D 3D 3D 3D 20 22 3B 56 3A 99 |. CVP ==== ";V:.|
000024F0: A6 32 32 29 3B 22 91 C2 22 00 19 2D 30 0C 99 22 |.22);".."..-0.."|
00002500: C2 20 50 43 57 50 20 3D 3D 3D 20 22 3B 55 3A 99 |. PCWP === ";U:.|
00002510: A6 32 32 29 3B 22 91 C2 22 00 38 2D 3A 0C 99 22 |.22);"..".8-:.."|
00002520: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002530: C3 C3 C3 C3 C3 C3 CB 22 00 52 2D 44 0C 8D 38 35 |.......".R-D..85|
00002540: 35 30 3A 8B 43 24 B2 22 59 22 A7 9C 3A 89 32 36 |50:.C$."Y"..:.26|
00002550: 30 30 00 88 2D 4E 0C 4C B2 28 28 53 29 AC 28 50 |00..-N.L.((S).(P|
00002560: AB 55 29 AC 2E 30 31 33 36 29 3A 59 B2 28 28 50 |.U)..0136):Y.((P|
00002570: AB 56 29 AC 38 30 29 AD 43 3A 99 3A 4B B2 B5 28 |.V).80).C:.:K..(|
00002580: 4B AC 31 30 29 AD 31 30 00 9B 2D 58 0C 4C B2 B5 |K.10).10..-X.L..|
00002590: 28 4C AC 31 30 30 29 AD 31 30 30 00 AE 2D 62 0C |(L.100).100..-b.|
000025A0: 59 B2 B5 28 59 AC 31 30 30 29 AD 31 30 30 00 C3 |Y..(Y.100).100..|
000025B0: 2D 6C 0C 8B 55 B2 30 A7 8D 38 37 30 30 3A 89 32 |-l..U.0..8700:.2|
000025C0: 39 39 30 00 D6 2D 76 0C 41 B2 B5 28 41 AC 31 30 |990..-v.A..(A.10|
000025D0: 30 29 AD 31 30 30 00 F9 2D 80 0C 8F 20 2A 2A 2A |0).100..-... ***|
000025E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000025F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1C 2E 8A 0C 8F 20 |*********...... |
00002600: 2A 2A 2A 2A 2A 2A 20 4F 55 54 50 55 54 20 44 49 |****** OUTPUT DI|
00002610: 53 50 4C 41 59 20 2A 2A 2A 2A 2A 2A 00 3F 2E 94 |SPLAY ******.?..|
00002620: 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00002630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002640: 4E 2E 9E 0C 99 22 93 22 C7 28 35 29 3A 99 00 75 |N....".".(5):..u|
00002650: 2E A8 0C 99 22 43 4F 20 3D 3D 3D 3D 3D 3D 3D 3D |...."CO ========|
00002660: 3D 3D 22 3B 43 3B 22 20 20 20 20 20 20 20 48 52 |==";C;" HR|
00002670: 20 3D 22 3B 52 00 95 2E B2 0C 99 22 43 49 20 3D | =";R......"CI =|
00002680: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 4F 3B 22 4C 50 |=========";O;"LP|
00002690: 4D 2F 4D 32 22 00 BE 2E BC 0C 99 22 57 45 49 47 |M/M2"......"WEIG|
000026A0: 48 54 20 3D 3D 3D 3D 3D 3D 22 3B 57 3B 22 4C 42 |HT ======";W;"LB|
000026B0: 53 20 2D 2D 2D 22 3B 4B 3B 22 4B 47 53 22 00 E7 |S ---";K;"KGS"..|
000026C0: 2E C6 0C 99 22 48 45 49 47 48 54 20 3D 3D 3D 3D |...."HEIGHT ====|
000026D0: 3D 3D 22 3B 48 3B 22 49 4E 20 2D 2D 2D 2D 2D 22 |==";H;"IN -----"|
000026E0: 3B 5A 3B 22 43 4D 22 00 0A 2F D0 0C 99 22 42 53 |;Z;"CM"../..."BS|
000026F0: 41 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 42 3B 22 |A =========";B;"|
00002700: 53 51 20 4D 45 54 45 52 53 22 00 1C 2F DA 0C 53 |SQ METERS"../..S|
00002710: 56 B2 B5 28 49 AC 31 30 29 AD 31 30 00 44 2F E4 |V..(I.10).10.D/.|
00002720: 0C 99 22 53 56 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.."SV ==========|
00002730: 22 3B 53 3B 22 4D 4C 20 20 20 20 53 56 49 A0 3D |";S;"ML SVI.=|
00002740: 22 3B 53 56 00 5F 2F EE 0C 99 22 42 50 20 53 59 |";SV._/..."BP SY|
00002750: 53 2F 44 49 41 20 3D 3D 22 3B 44 22 2F 22 45 00 |S/DIA ==";D"/"E.|
00002760: 86 2F F8 0C 99 22 4D 41 50 20 3D 3D 3D 3D 3D 3D |./..."MAP ======|
00002770: 3D 3D 3D 22 3B B5 28 50 AC 31 30 29 AD 31 30 3B |===";.(P.10).10;|
00002780: 22 4D 4D 48 47 22 00 94 2F 02 0D 8B 4E B2 30 A7 |"MMHG"../...N.0.|
00002790: 33 33 35 30 00 AF 2F 0C 0D 99 22 50 41 20 53 59 |3350../..."PA SY|
000027A0: 53 2F 44 49 41 20 3D 3D 22 3B 4E 22 2F 22 51 00 |S/DIA ==";N"/"Q.|
000027B0: CD 2F 16 0D 99 22 4D 50 41 50 20 3D 3D 3D 3D 3D |./..."MPAP =====|
000027C0: 3D 3D 3D 22 3B 4D 3B 22 4D 4D 48 47 22 00 EB 2F |===";M;"MMHG"../|
000027D0: 20 0D 99 22 43 56 50 20 3D 3D 3D 3D 3D 3D 3D 3D | .."CVP ========|
000027E0: 3D 22 3B 56 3B 22 4D 4D 48 47 22 00 0B 30 2A 0D |=";V;"MMHG"..0*.|
000027F0: 52 49 B2 28 31 33 2E 36 AC 43 AC 4D 29 AD 28 52 |RI.(13.6.C.M).(R|
00002800: AC 42 29 3A 8F 20 52 56 53 57 49 00 48 30 34 0D |.B):. RVSWI.H04.|
00002810: 99 22 52 56 53 57 20 3D 3D 3D 3D 3D 3D 3D 3D 22 |."RVSW ========"|
00002820: 3B B5 28 54 AC 31 30 30 29 AD 31 30 3B 22 20 20 |;.(T.100).10;" |
00002830: 20 20 52 56 53 57 49 20 3D 22 3B B5 28 52 49 AC | RVSWI =";.(RI.|
00002840: 31 30 30 29 AD 31 30 30 00 6B 30 3E 0D 4C 49 B2 |100).100.k0>.LI.|
00002850: B5 28 28 28 28 50 AB 55 29 AC 53 56 29 AC 2E 30 |.((((P.U).SV)..0|
00002860: 31 33 36 29 AC 31 30 29 AD 31 30 00 9C 30 48 0D |136).10).10..0H.|
00002870: 99 22 4C 56 53 57 20 3D 3D 3D 3D 3D 3D 3D 3D 22 |."LVSW ========"|
00002880: 3B B5 28 4C AC 31 30 30 29 AD 31 30 3B 22 20 20 |;.(L.100).10;" |
00002890: 20 4C 56 53 57 49 20 3D 22 3B 4C 49 00 BC 30 52 | LVSWI =";LI..0R|
000028A0: 0D 99 22 53 56 52 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.."SVR =========|
000028B0: 22 3B B5 28 59 AC 31 30 29 AD 31 30 00 D4 30 5C |";.(Y.10).10..0\|
000028C0: 0D 43 50 B2 B5 28 28 28 45 AB 55 29 AC 31 30 29 |.CP..(((E.U).10)|
000028D0: AD 31 30 29 00 FD 30 66 0D 99 22 4D 50 43 57 50 |.10)..0f.."MPCWP|
000028E0: 20 3D 3D 3D 3D 3D 3D 3D 22 3B 55 3B 22 20 20 20 | =======";U;" |
000028F0: 20 20 20 20 43 50 50 20 3D 22 3B 43 50 00 0E 31 | CPP =";CP..1|
00002900: 70 0D 41 B2 B5 28 41 AC 31 30 29 AD 31 30 00 34 |p.A..(A.10).10.4|
00002910: 31 7A 0D 99 22 50 56 52 20 3D 3D 3D 3D 3D 3D 3D |1z.."PVR =======|
00002920: 3D 3D 22 3B 41 3A 46 B2 B5 28 44 AC 52 AC 31 30 |==";A:F..(D.R.10|
00002930: 29 AD 31 30 00 66 31 84 0D 99 22 52 50 50 20 3D |).10.f1..."RPP =|
00002940: 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 46 22 54 4F 52 52 |========";F"TORR|
00002950: 20 42 2F 4D 49 4E 22 3A 47 B2 B5 28 46 AC 55 AC | B/MIN":G..(F.U.|
00002960: 31 30 29 AD 31 30 00 7F 31 8E 0D 8B 4C B2 30 B0 |10).10..1...L.0.|
00002970: 54 B2 30 A7 8D 38 37 30 30 3A 89 32 38 31 30 00 |T.0..8700:.2810.|
00002980: A3 31 98 0D 99 22 4C 56 2F 52 56 20 52 41 54 49 |.1..."LV/RV RATI|
00002990: 4F 20 3D 22 3B B5 28 28 4C AD 54 29 AC 31 30 29 |O =";.((L.T).10)|
000029A0: AD 31 30 00 C9 31 A2 0D 99 22 54 49 20 3D 3D 3D |.10..1..."TI ===|
000029B0: 3D 3D 3D 3D 3D 3D 3D 22 3B 47 3B 22 54 4F 52 52 |=======";G;"TORR|
000029C0: 2F 53 45 43 2F 4D 49 4E 22 00 D3 31 AC 0D 89 38 |/SEC/MIN"..1...8|
000029D0: 35 38 30 00 DD 31 B6 0D 8D 38 36 32 30 00 02 32 |580..1...8620..2|
000029E0: C0 0D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000029F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A00: 2A 2A 00 27 32 CA 0D 8F 20 2A 2A 20 43 45 52 45 |**.'2... ** CERE|
00002A10: 42 52 41 4C 20 50 52 45 46 55 53 49 4F 4E 20 50 |BRAL PREFUSION P|
00002A20: 52 45 53 53 20 2A 2A 00 4C 32 D4 0D 8F 20 2A 2A |RESS **.L2... **|
00002A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6E 32 DE |************.n2.|
00002A50: 0D 8F 20 41 3D 43 45 52 45 42 52 41 4C 20 50 52 |.. A=CEREBRAL PR|
00002A60: 45 46 55 53 49 4F 4E 20 50 52 45 53 53 2E 00 8A |EFUSION PRESS...|
00002A70: 32 E8 0D 8F 20 49 3D 49 4E 54 45 52 43 52 41 49 |2... I=INTERCRAI|
00002A80: 4E 41 4C 20 50 52 45 53 53 2E 00 A3 32 F2 0D 8F |NAL PRESS...2...|
00002A90: 20 4D 3D 4D 45 41 4E 20 41 52 54 2E 20 50 52 45 | M=MEAN ART. PRE|
00002AA0: 53 53 2E 00 AD 32 FC 0D 8D 38 39 32 30 00 E4 32 |SS...2...8920..2|
00002AB0: 06 0E 99 22 C2 22 3B A6 35 29 22 43 45 52 45 42 |...".";.5)"CEREB|
00002AC0: 52 41 4C 20 50 45 52 46 55 53 49 4F 4E 20 50 52 |RAL PERFUSION PR|
00002AD0: 45 53 53 55 52 45 22 3B A6 35 29 22 C2 22 3A 8D |ESSURE";.5)".":.|
00002AE0: 38 39 39 30 00 0D 33 10 0E 85 22 11 11 11 45 4E |8990..3..."...EN|
00002AF0: 54 45 52 20 4D 45 41 4E 20 41 52 54 45 52 49 41 |TER MEAN ARTERIA|
00002B00: 4C 20 50 52 45 53 53 55 52 45 22 3B 4D 00 3C 33 |L PRESSURE";M.<3|
00002B10: 1A 0E 85 22 11 11 45 4E 54 45 52 20 49 4E 54 45 |..."..ENTER INTE|
00002B20: 52 43 52 41 4E 49 41 4C 20 50 52 45 53 53 55 52 |RCRANIAL PRESSUR|
00002B30: 45 22 3B 49 3A 41 B2 28 4D AB 49 29 00 6D 33 24 |E";I:A.(M.I).m3$|
00002B40: 0E 99 22 11 11 43 45 52 45 42 52 41 4C 20 50 52 |.."..CEREBRAL PR|
00002B50: 45 46 55 53 49 4F 4E 20 50 52 45 53 53 55 52 45 |EFUSION PRESSURE|
00002B60: 3D 22 3B 41 3B 22 4D 4D 48 47 11 11 22 00 77 33 |=";A;"MMHG..".w3|
00002B70: 2E 0E 89 38 35 38 30 00 81 33 38 0E 8D 38 36 32 |...8580..38..862|
00002B80: 30 00 A6 33 42 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0..3B.. ********|
00002B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002BA0: 2A 2A 2A 2A 2A 2A 00 CB 33 4C 0E 8F 20 2A 2A 2A |******..3L.. ***|
00002BB0: 2A 2A 2A 20 43 4F 4E 56 45 52 54 20 54 4F 20 4D |*** CONVERT TO M|
00002BC0: 45 54 52 49 43 20 2A 2A 2A 2A 2A 00 F0 33 56 0E |ETRIC *****..3V.|
00002BD0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002BF0: 00 11 34 60 0E 8F 20 43 3D 50 54 20 48 45 49 47 |..4`.. C=PT HEIG|
00002C00: 48 54 20 49 4E 20 43 45 4E 54 49 4D 45 54 45 52 |HT IN CENTIMETER|
00002C10: 53 00 2D 34 6A 0E 8F 20 48 3D 50 54 20 48 45 49 |S.-4j.. H=PT HEI|
00002C20: 47 48 54 20 49 4E 20 49 4E 43 48 45 53 00 46 34 |GHT IN INCHES.F4|
00002C30: 74 0E 8F 20 4B 3D 50 54 20 57 45 49 47 48 54 20 |t.. K=PT WEIGHT |
00002C40: 49 4E 20 4B 47 53 00 5F 34 7E 0E 8F 20 57 3D 50 |IN KGS._4~.. W=P|
00002C50: 54 20 57 45 49 47 48 54 20 49 4E 20 4C 42 53 00 |T WEIGHT IN LBS.|
00002C60: 84 34 88 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4... **********|
00002C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C80: 2A 2A 2A 2A 00 8E 34 92 0E 8D 38 39 32 30 00 BF |****..4...8920..|
00002C90: 34 9C 0E 99 22 C2 22 3B A6 35 29 22 50 52 4F 47 |4...".";.5)"PROG|
00002CA0: 52 41 4D 20 54 4F 20 43 4F 4E 56 45 52 54 20 50 |RAM TO CONVERT P|
00002CB0: 4F 55 4E 44 53 20 26 22 3B A6 35 29 22 C2 22 00 |OUNDS &";.5)".".|
00002CC0: ED 34 A6 0E 99 22 C2 22 3B A6 31 30 29 22 49 4E |.4...".";.10)"IN|
00002CD0: 43 48 45 53 20 54 4F 20 4D 45 54 52 49 43 22 3B |CHES TO METRIC";|
00002CE0: A6 31 31 29 22 C2 22 3A 8D 38 39 39 30 00 2C 35 |.11)".":.8990.,5|
00002CF0: B0 0E 85 22 11 11 45 4E 54 45 52 20 57 45 49 47 |..."..ENTER WEIG|
00002D00: 48 54 20 49 4E 20 50 4F 55 4E 44 53 22 3B 57 3A |HT IN POUNDS";W:|
00002D10: 4B B2 B5 28 28 57 AC 2E 34 35 34 35 34 35 34 35 |K..((W..45454545|
00002D20: 29 AC 31 30 30 29 AD 31 30 30 3A 99 00 52 35 BA |).100).100:..R5.|
00002D30: 0E 99 22 57 45 49 47 48 54 20 49 4E 20 4B 49 4C |.."WEIGHT IN KIL|
00002D40: 4F 47 52 41 4D 53 3D 22 3B 4B 3B 22 4B 47 53 22 |OGRAMS=";K;"KGS"|
00002D50: 3A 99 00 8A 35 C4 0E 85 22 45 4E 54 45 52 20 48 |:...5..."ENTER H|
00002D60: 45 49 47 48 54 20 49 4E 20 49 4E 43 48 45 53 22 |EIGHT IN INCHES"|
00002D70: 3B 48 3A 43 B2 B5 28 28 48 AC 32 2E 35 34 29 AC |;H:C..((H.2.54).|
00002D80: 31 30 30 29 AD 31 30 30 3A 99 00 B6 35 CE 0E 99 |100).100:...5...|
00002D90: 22 48 45 49 47 48 54 20 49 4E 20 43 45 4E 54 49 |"HEIGHT IN CENTI|
00002DA0: 4D 45 54 45 52 53 3D 22 3B 43 3B 22 43 4D 53 22 |METERS=";C;"CMS"|
00002DB0: 3A 99 3A 99 3A 99 00 C0 35 D8 0E 89 38 35 38 30 |:.:.:...5...8580|
00002DC0: 00 CA 35 E2 0E 8D 38 36 32 30 00 EF 35 EC 0E 8F |..5...8620..5...|
00002DD0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00002DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002DF0: 14 36 F6 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 42 |.6... ******** B|
00002E00: 41 4C 4C 4F 4F 4E 20 50 55 4D 50 20 2A 2A 2A 2A |ALLOON PUMP ****|
00002E10: 2A 2A 2A 2A 00 39 36 00 0F 8F 20 2A 2A 2A 2A 2A |****.96... *****|
00002E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 36 0A 0F 8F 20 |*********.S6... |
00002E40: 42 3D 42 4F 44 59 20 53 55 52 46 41 43 45 20 41 |B=BODY SURFACE A|
00002E50: 52 45 41 00 6A 36 14 0F 8F 20 43 3D 43 41 52 44 |REA.j6... C=CARD|
00002E60: 49 41 43 20 4F 55 54 50 55 54 00 8A 36 1E 0F 8F |IAC OUTPUT..6...|
00002E70: 20 44 3D 4D 45 41 4E 20 44 49 41 53 54 4F 4C 49 | D=MEAN DIASTOLI|
00002E80: 43 20 50 52 45 53 53 55 52 45 00 A9 36 28 0F 8F |C PRESSURE..6(..|
00002E90: 20 45 3D 4D 45 41 4E 20 53 59 53 54 4F 4C 49 43 | E=MEAN SYSTOLIC|
00002EA0: 20 50 52 45 53 53 55 52 45 00 CB 36 32 0F 8F 20 | PRESSURE..62.. |
00002EB0: 47 3D 53 59 53 54 45 4D 49 43 20 56 41 53 43 2E |G=SYSTEMIC VASC.|
00002EC0: 20 52 45 53 49 53 54 41 4E 43 45 00 DE 36 3C 0F | RESISTANCE..6<.|
00002ED0: 8F 20 48 3D 48 45 41 52 54 20 52 41 54 45 00 F8 |. H=HEART RATE..|
00002EE0: 36 46 0F 8F 20 49 3D 50 54 2E 20 48 45 49 47 48 |6F.. I=PT. HEIGH|
00002EF0: 54 20 49 4E 43 48 45 53 00 0E 37 50 0F 8F 20 4A |T INCHES..7P.. J|
00002F00: 3D 53 54 52 4F 4B 45 20 56 4F 4C 55 4D 45 00 25 |=STROKE VOLUME.%|
00002F10: 37 5A 0F 8F 20 4B 3D 50 54 2E 20 57 45 49 47 48 |7Z.. K=PT. WEIGH|
00002F20: 54 20 4C 42 53 00 40 37 64 0F 8F 20 4C 3D 4C 45 |T LBS.@7d.. L=LE|
00002F30: 46 54 20 41 52 54 2E 20 50 52 45 53 53 55 52 45 |FT ART. PRESSURE|
00002F40: 00 56 37 6E 0F 8F 20 4D 3D 50 54 2E 20 48 45 49 |.V7n.. M=PT. HEI|
00002F50: 47 48 54 20 43 4D 00 6C 37 78 0F 8F 20 4E 3D 43 |GHT CM.l7x.. N=C|
00002F60: 41 52 44 49 41 43 20 49 4E 44 45 58 00 82 37 82 |ARDIAC INDEX..7.|
00002F70: 0F 8F 20 4F 3D 53 59 53 54 4F 4C 49 43 20 54 49 |.. O=SYSTOLIC TI|
00002F80: 4D 45 00 99 37 8C 0F 8F 20 50 3D 50 54 2E 20 57 |ME..7... P=PT. W|
00002F90: 45 49 47 48 54 20 4C 42 53 00 BE 37 96 0F 8F 20 |EIGHT LBS..7... |
00002FA0: 51 3D 45 4E 44 4F 43 41 52 44 49 41 4C 20 56 49 |Q=ENDOCARDIAL VI|
00002FB0: 41 42 49 4C 49 54 59 20 50 52 45 53 53 2E 00 DC |ABILITY PRESS...|
00002FC0: 37 A0 0F 8F 20 52 3D 4D 45 41 4E 20 41 54 45 52 |7... R=MEAN ATER|
00002FD0: 49 41 4C 20 50 52 45 53 53 55 52 45 00 EB 37 AA |IAL PRESSURE..7.|
00002FE0: 0F 8F 20 53 3D 53 55 50 50 4C 59 00 02 38 B4 0F |.. S=SUPPLY..8..|
00002FF0: 8F 20 54 3D 44 49 41 53 54 4F 4C 49 43 20 54 49 |. T=DIASTOLIC TI|
00003000: 4D 45 00 11 38 BE 0F 8F 20 55 3D 44 45 4D 41 4E |ME..8... U=DEMAN|
00003010: 44 00 31 38 C8 0F 8F 20 56 3D 43 45 4E 54 52 41 |D.18... V=CENTRA|
00003020: 4C 20 56 45 4E 4F 55 53 20 50 52 45 53 53 55 52 |L VENOUS PRESSUR|
00003030: 45 00 56 38 D2 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |E.V8... ********|
00003040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003050: 2A 2A 2A 2A 2A 2A 00 60 38 DC 0F 8D 38 39 32 30 |******.`8...8920|
00003060: 00 8E 38 E6 0F 99 22 C2 22 3B A6 37 29 22 49 4E |..8...".";.7)"IN|
00003070: 54 52 41 2D 41 4F 52 54 49 43 20 42 41 4C 4C 4F |TRA-AORTIC BALLO|
00003080: 4F 4E 20 50 55 4D 50 20 20 20 20 20 C2 22 00 C7 |ON PUMP ."..|
00003090: 38 F0 0F 99 22 C2 22 3B A6 32 29 22 4D 45 41 53 |8...".";.2)"MEAS|
000030A0: 55 52 45 4D 45 4E 54 20 4F 46 20 43 41 52 44 49 |UREMENT OF CARDI|
000030B0: 41 43 20 50 45 52 46 4F 52 4D 41 4E 43 45 20 C2 |AC PERFORMANCE .|
000030C0: 22 3A 8D 38 39 39 30 00 E7 38 FA 0F 85 22 11 11 |":.8990..8..."..|
000030D0: 45 4E 54 45 52 20 43 41 52 44 49 41 43 20 4F 55 |ENTER CARDIAC OU|
000030E0: 54 50 55 54 22 3B 43 00 01 39 04 10 8B 43 B2 B3 |TPUT";C..9...C..|
000030F0: 31 B0 43 B1 39 A7 8D 38 37 30 30 3A 89 33 38 31 |1.C.9..8700:.381|
00003100: 30 00 1E 39 0E 10 85 22 93 11 11 45 4E 54 45 52 |0..9..."...ENTER|
00003110: 20 48 45 41 52 54 20 52 41 54 45 22 3B 48 00 3B | HEART RATE";H.;|
00003120: 39 18 10 8B 48 B2 B3 32 35 B0 48 B1 32 35 30 A7 |9...H..25.H.250.|
00003130: 8D 38 37 30 30 3A 89 34 31 31 30 00 52 39 22 10 |.8700:.4110.R9".|
00003140: 4A B2 B5 28 28 43 AD 48 29 AC 31 30 30 30 29 AD |J..((C.H).1000).|
00003150: 31 30 00 8E 39 2C 10 8F 20 50 52 49 4E 54 20 22 |10..9,.. PRINT "|
00003160: 53 54 52 4F 4B 45 20 56 4F 4C 55 4D 45 3D 22 3B |STROKE VOLUME=";|
00003170: 4A 3B 22 4D 4C 2F 42 45 41 54 20 2D 2D 2D 2D 20 |J;"ML/BEAT ---- |
00003180: 28 41 56 47 3D 20 36 30 2D 31 33 30 29 22 00 D1 |(AVG= 60-130)"..|
00003190: 39 36 10 85 22 93 11 11 45 4E 54 45 52 20 50 41 |96.."...ENTER PA|
000031A0: 54 49 45 4E 54 20 57 45 49 47 48 54 20 49 4E 20 |TIENT WEIGHT IN |
000031B0: 4C 42 53 22 3B 50 3A 4B B2 B5 28 28 50 AC 2E 34 |LBS";P:K..((P..4|
000031C0: 35 34 35 34 35 34 35 29 AC 31 30 30 29 AD 31 30 |5454545).100).10|
000031D0: 30 00 11 3A 40 10 85 22 11 11 45 4E 54 45 52 20 |0..:@.."..ENTER |
000031E0: 50 41 54 49 45 4E 54 20 48 45 49 47 48 54 20 49 |PATIENT HEIGHT I|
000031F0: 4E 20 49 4E 43 48 45 53 22 3B 49 3A 4D B2 B5 28 |N INCHES";I:M..(|
00003200: 28 49 AC 32 2E 35 34 29 AC 31 30 30 29 AD 31 30 |(I.2.54).100).10|
00003210: 30 00 2A 3A 4A 10 8B 50 B2 30 B0 49 B2 30 A7 8D |0.*:J..P.0.I.0..|
00003220: 38 37 30 30 3A 89 34 31 35 30 00 5D 3A 54 10 42 |8700:.4150.]:T.B|
00003230: B2 37 31 2E 38 34 AC 28 4B AE 2E 34 32 35 29 AC |.71.84.(K..425).|
00003240: 28 4D AE 2E 37 32 35 29 AD 31 30 30 30 30 3A 42 |(M..725).10000:B|
00003250: B2 B5 28 42 AC 31 30 30 29 AD 31 30 30 00 74 3A |..(B.100).100.t:|
00003260: 5E 10 4E B2 B5 28 28 43 AD 42 29 AC 31 30 30 29 |^.N..((C.B).100)|
00003270: AD 31 30 30 00 AB 3A 68 10 99 22 11 11 43 41 52 |.100..:h.."..CAR|
00003280: 44 49 41 43 20 49 4E 44 45 58 3D 22 3B 4E 3B 22 |DIAC INDEX=";N;"|
00003290: 2D 2D 2D 2D 20 28 41 56 47 3D 20 32 2E 35 2D 33 |---- (AVG= 2.5-3|
000032A0: 2E 35 29 11 22 3A 8D 38 36 35 30 00 B5 3A 72 10 |.5).":.8650..:r.|
000032B0: 8D 38 39 32 30 00 EA 3A 7C 10 99 22 C2 54 4F 20 |.8920..:|..".TO |
000032C0: 46 49 4E 44 20 45 4E 44 4F 43 41 52 44 49 41 4C |FIND ENDOCARDIAL|
000032D0: 20 56 49 41 42 49 4C 49 54 59 20 52 41 54 49 4F | VIABILITY RATIO|
000032E0: 20 20 C2 22 3A 8D 38 39 39 30 00 06 3B 86 10 99 | .":.8990..;...|
000032F0: 22 11 22 3B A6 38 29 22 44 50 54 49 20 20 20 53 |".";.8)"DPTI S|
00003300: 55 50 50 4C 59 22 00 33 3B 90 10 99 A6 32 29 22 |UPPLY".3;....2)"|
00003310: 45 56 52 3D 20 20 2D 2D 2D 2D 2D 2D 2D 2D 20 20 |EVR= -------- |
00003320: 3D 20 2D 2D 2D 28 4E 4C 3D 20 30 2E 39 2D 31 2E |= ---(NL= 0.9-1.|
00003330: 35 29 22 00 4D 3B 9A 10 99 A6 38 29 22 54 54 49 |5)".M;....8)"TTI|
00003340: 20 20 20 20 44 45 4D 41 4E 44 22 3A 99 00 79 3B | DEMAND":..y;|
00003350: A4 10 99 22 44 50 49 54 3D 20 44 49 41 53 54 4F |..."DPIT= DIASTO|
00003360: 4C 49 43 20 50 52 45 53 53 55 52 45 20 54 49 4D |LIC PRESSURE TIM|
00003370: 45 20 49 4E 44 45 58 3B 22 00 C3 3B AE 10 99 22 |E INDEX;"..;..."|
00003380: 28 4D 45 41 4E 20 44 49 41 53 54 4F 4C 49 43 20 |(MEAN DIASTOLIC |
00003390: 50 52 45 53 53 55 52 45 20 2D 20 4C 45 46 54 20 |PRESSURE - LEFT |
000033A0: 41 54 52 49 41 4C 20 20 50 52 45 53 53 55 52 45 |ATRIAL PRESSURE|
000033B0: 29 20 58 20 44 49 41 53 54 4F 4C 49 43 20 54 49 |) X DIASTOLIC TI|
000033C0: 4D 45 22 00 F3 3B B8 10 99 22 11 54 54 49 3D 20 |ME"..;...".TTI= |
000033D0: 54 45 4E 53 49 4F 4E 20 54 49 4D 45 20 49 4E 44 |TENSION TIME IND|
000033E0: 45 58 3B 20 28 4D 45 41 4E 20 53 59 53 54 4F 4C |EX; (MEAN SYSTOL|
000033F0: 49 43 22 00 14 3C C2 10 99 22 50 52 45 53 53 55 |IC"..<..."PRESSU|
00003400: 52 45 20 58 20 53 59 53 54 4F 4C 49 43 20 54 49 |RE X SYSTOLIC TI|
00003410: 4D 45 29 22 00 3C 3C CC 10 85 22 11 45 4E 54 45 |ME)".<<...".ENTE|
00003420: 52 20 4D 45 41 4E 20 44 49 41 53 54 4F 4C 49 43 |R MEAN DIASTOLIC|
00003430: 20 50 52 45 53 53 55 52 45 22 3B 44 00 61 3C D6 | PRESSURE";D.a<.|
00003440: 10 85 22 11 45 4E 54 45 52 20 4C 45 46 54 20 41 |..".ENTER LEFT A|
00003450: 54 52 49 41 4C 20 50 52 45 53 53 55 52 45 22 3B |TRIAL PRESSURE";|
00003460: 4C 00 7F 3C E0 10 8B 44 B3 31 B0 4C B3 31 A7 8D |L..<...D.1.L.1..|
00003470: 38 37 30 30 3A 99 22 93 22 3A 89 34 33 30 30 00 |8700:.".":.4300.|
00003480: 9E 3C EA 10 85 22 11 45 4E 54 45 52 20 44 49 41 |.<...".ENTER DIA|
00003490: 53 54 4F 4C 49 43 20 54 49 4D 45 22 3B 54 00 B7 |STOLIC TIME";T..|
000034A0: 3C F4 10 53 B2 28 44 AB 4C 29 AC 54 3A 8F 20 53 |<..S.(D.L).T:. S|
000034B0: 3D 53 55 50 50 4C 59 00 D2 3C FE 10 8B 54 B2 B3 |=SUPPLY..<...T..|
000034C0: 30 A7 8D 38 37 30 30 3A 99 22 93 22 3A 89 34 33 |0..8700:.".":.43|
000034D0: 33 30 00 F9 3C 08 11 85 22 11 45 4E 54 45 52 20 |30..<...".ENTER |
000034E0: 4D 45 41 4E 20 53 59 53 54 4F 4C 49 43 20 50 52 |MEAN SYSTOLIC PR|
000034F0: 45 53 53 55 52 45 22 3B 45 00 14 3D 12 11 8B 45 |ESSURE";E..=...E|
00003500: B2 B3 30 A7 8D 38 37 30 30 3A 99 22 93 22 3A 89 |..0..8700:.".":.|
00003510: 34 33 36 30 00 32 3D 1C 11 85 22 11 45 4E 54 45 |4360.2=...".ENTE|
00003520: 52 20 53 59 53 54 4F 4C 49 43 20 54 49 4D 45 22 |R SYSTOLIC TIME"|
00003530: 3B 4F 00 4D 3D 26 11 8B 4F B2 B3 30 A7 8D 38 37 |;O.M=&..O..0..87|
00003540: 30 30 3A 99 22 93 22 3A 89 34 33 38 30 00 68 3D |00:.".":.4380.h=|
00003550: 30 11 55 B2 45 AC 4F 3A 8F 20 55 3D 54 54 49 20 |0.U.E.O:. U=TTI |
00003560: 28 44 45 4D 41 4E 44 29 00 81 3D 3A 11 99 22 93 |(DEMAND)..=:..".|
00003570: 11 11 22 3B A6 37 29 22 44 50 54 49 A0 3D 22 3B |..";.7)"DPTI.=";|
00003580: 53 00 AB 3D 44 11 99 22 45 56 52 20 3D 20 2D 2D |S..=D.."EVR = --|
00003590: 2D 2D 2D 2D 20 20 2D 2D 2D 2D 2D 20 20 28 4E 4C |---- ----- (NL|
000035A0: 3D 20 30 2E 39 2D 31 2E 35 29 22 00 D1 3D 4E 11 |= 0.9-1.5)"..=N.|
000035B0: 99 A6 37 29 22 54 54 49 20 3D 20 22 3B 55 3A 51 |..7)"TTI = ";U:Q|
000035C0: B2 B5 28 28 53 AD 55 29 AC 31 30 30 29 AD 31 30 |..((S.U).100).10|
000035D0: 30 00 02 3E 58 11 99 22 11 11 45 4E 44 4F 43 41 |0..>X.."..ENDOCA|
000035E0: 52 44 49 41 4C 20 56 49 41 42 49 4C 49 54 59 20 |RDIAL VIABILITY |
000035F0: 52 41 54 49 4F 3D 22 3B 51 22 11 22 3A 8D 38 36 |RATIO=";Q".":.86|
00003600: 35 30 00 0C 3E 62 11 8D 38 39 32 30 00 41 3E 6C |50..>b..8920.A>l|
00003610: 11 99 22 C2 54 4F 20 46 49 4E 44 20 53 59 53 54 |..".TO FIND SYST|
00003620: 45 4D 49 43 20 56 41 53 43 55 4C 41 52 20 52 45 |EMIC VASCULAR RE|
00003630: 53 49 53 54 41 4E 43 45 20 C2 22 3A 8D 38 39 39 |SISTANCE .":.899|
00003640: 30 00 6E 3E 76 11 85 22 11 11 45 4E 54 45 52 20 |0.n>v.."..ENTER |
00003650: 4D 45 41 4E 20 41 54 45 52 49 41 4C 20 50 52 45 |MEAN ATERIAL PRE|
00003660: 53 53 55 52 45 20 28 4D 41 50 29 22 3B 52 00 89 |SSURE (MAP)";R..|
00003670: 3E 80 11 8B 52 B2 B3 30 A7 8D 38 37 30 30 3A 99 |>...R..0..8700:.|
00003680: 22 93 22 3A 89 34 34 37 30 00 B6 3E 8A 11 85 22 |".":.4470..>..."|
00003690: 11 45 4E 54 45 52 20 43 45 4E 54 52 41 4C 20 56 |.ENTER CENTRAL V|
000036A0: 45 4E 4F 55 53 20 50 52 45 53 53 55 52 45 28 43 |ENOUS PRESSURE(C|
000036B0: 56 50 29 22 3B 56 00 D1 3E 94 11 8B 56 B2 B3 30 |VP)";V..>...V..0|
000036C0: A7 8D 38 37 30 30 3A 99 22 93 22 3A 89 34 34 39 |..8700:.".":.449|
000036D0: 30 00 F3 3E 9E 11 47 B2 B5 28 28 28 28 52 AB 56 |0..>..G..((((R.V|
000036E0: 29 AD 28 43 29 29 AC 38 30 29 AC 31 30 30 29 AD |).(C)).80).100).|
000036F0: 31 30 30 00 03 3F A8 11 99 22 11 11 53 56 52 3D |100..?..."..SVR=|
00003700: 22 3B 47 00 30 3F B2 11 99 22 11 28 4E 4C 3D 20 |";G.0?...".(NL= |
00003710: 39 30 30 2D 31 35 30 30 20 44 59 4E 45 53 2F 53 |900-1500 DYNES/S|
00003720: 45 43 2F 43 4D 2D 35 29 11 22 3A 8D 38 36 35 30 |EC/CM-5).":.8650|
00003730: 00 3A 3F BC 11 8D 38 36 32 30 00 59 3F C6 11 99 |.:?...8620.Y?...|
00003740: 22 43 41 52 44 49 41 43 20 4F 55 54 50 55 54 3D |"CARDIAC OUTPUT=|
00003750: 22 3B 43 3B 22 4C 50 4D 22 00 74 3F D0 11 99 22 |";C;"LPM".t?..."|
00003760: 48 45 41 52 54 20 52 41 54 45 3D 22 3B 48 3B 22 |HEART RATE=";H;"|
00003770: 42 50 4D 22 00 A4 3F DA 11 99 22 53 54 52 4F 4B |BPM"..?..."STROK|
00003780: 45 20 56 4F 4C 55 4D 45 3D 22 3B 4A 3A 99 22 28 |E VOLUME=";J:."(|
00003790: 4E 4C 3D 20 36 30 2D 31 33 30 20 4D 4C 2F 42 45 |NL= 60-130 ML/BE|
000037A0: 41 54 29 22 00 E2 3F E4 11 99 22 53 54 52 4F 4B |AT)"..?..."STROK|
000037B0: 45 20 49 4E 44 45 58 3D 22 3B B5 28 28 4A AD 42 |E INDEX=";.((J.B|
000037C0: 29 AC 31 30 29 AD 31 30 3A 99 22 28 4E 4C 3D 20 |).10).10:."(NL= |
000037D0: 33 33 2D 34 37 20 4D 4C 2F 42 45 41 54 2F 4D 32 |33-47 ML/BEAT/M2|
000037E0: 29 22 00 0E 40 EE 11 99 22 42 4F 44 59 20 53 55 |)"..@..."BODY SU|
000037F0: 52 46 41 43 45 20 41 52 45 41 3D 22 3B 42 3B 22 |RFACE AREA=";B;"|
00003800: 53 51 55 41 52 45 20 4D 45 54 45 52 53 22 00 40 |SQUARE METERS".@|
00003810: 40 F8 11 99 22 43 41 52 44 49 41 43 20 49 4E 44 |@..."CARDIAC IND|
00003820: 45 58 3D 22 3B 4E 3A 99 22 28 4E 4C 3D 20 32 2E |EX=";N:."(NL= 2.|
00003830: 35 2D 33 2E 35 20 4C 2F 4D 49 4E 2F 4D 32 29 22 |5-3.5 L/MIN/M2)"|
00003840: 00 66 40 02 12 99 22 45 4E 44 4F 43 41 52 44 49 |.f@..."ENDOCARDI|
00003850: 41 4C 20 56 49 41 42 49 4C 49 54 59 20 52 41 54 |AL VIABILITY RAT|
00003860: 49 4F 3D 22 3B 51 00 7B 40 0C 12 99 22 28 4E 4C |IO=";Q.{@..."(NL|
00003870: 3D 20 30 2E 39 2D 31 2E 35 29 22 00 A2 40 16 12 |= 0.9-1.5)"..@..|
00003880: 99 22 53 59 53 54 45 4D 49 43 20 56 41 53 43 55 |."SYSTEMIC VASCU|
00003890: 4C 41 52 20 52 45 53 49 53 54 41 4E 43 45 3D 22 |LAR RESISTANCE="|
000038A0: 3B 47 00 C6 40 20 12 99 22 28 4E 4C 3D 20 39 30 |;G..@ .."(NL= 90|
000038B0: 30 2D 31 35 30 30 20 44 59 4E 45 53 2F 53 45 43 |0-1500 DYNES/SEC|
000038C0: 2F 43 4D 2D 35 29 00 E6 40 2A 12 4C B2 B5 28 28 |/CM-5)..@*.L..((|
000038D0: 28 31 33 2E 36 AC 43 AC 52 29 AD 48 29 AC 31 30 |(13.6.C.R).H).10|
000038E0: 30 29 AD 31 30 30 00 0D 41 34 12 99 22 4C 45 46 |0).100..A4.."LEF|
000038F0: 54 20 56 45 4E 54 52 49 43 55 4C 41 52 20 53 54 |T VENTRICULAR ST|
00003900: 52 4F 4B 45 20 57 4F 52 4B 3D 22 3B 4C 00 2C 41 |ROKE WORK=";L.,A|
00003910: 3E 12 99 22 4E 4C 3D 20 33 35 2D 38 35 20 47 4D |>.."NL= 35-85 GM|
00003920: 2D 4D 2F 4D 32 2F 42 45 41 54 29 22 00 65 41 48 |-M/M2/BEAT)".eAH|
00003930: 12 99 22 4C 45 46 54 20 56 45 4E 54 52 49 43 4C |.."LEFT VENTRICL|
00003940: 20 53 54 52 4F 4B 45 20 57 4F 52 4B 20 49 4E 44 | STROKE WORK IND|
00003950: 45 58 3D 22 3B B5 28 28 4C AD 42 29 AC 31 30 30 |EX=";.((L.B).100|
00003960: 29 AD 31 30 30 00 6F 41 52 12 89 38 35 38 30 00 |).100.oAR..8580.|
00003970: 79 41 5C 12 8D 38 36 32 30 00 9E 41 66 12 8F 20 |yA\..8620..Af.. |
00003980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C3 |**************..|
000039A0: 41 70 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |Ap.. ***********|
000039B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000039C0: 2A 2A 2A 00 E8 41 7A 12 8F 20 2A 20 43 4C 49 4E |***..Az.. * CLIN|
000039D0: 49 43 41 4C 2F 53 48 55 4E 54 20 4D 45 41 53 55 |ICAL/SHUNT MEASU|
000039E0: 52 45 4D 45 4E 54 53 2A 00 0D 42 84 12 8F 20 2A |REMENTS*..B... *|
000039F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 42 |*************.2B|
00003A10: 8E 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00003A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003A30: 2A 2A 00 41 42 98 12 8F 20 41 20 3D 20 50 41 4F |**.AB... A = PAO|
00003A40: 32 00 59 42 A2 12 8F 20 42 20 3D 20 42 41 52 4D |2.YB... B = BARM|
00003A50: 20 50 52 45 53 53 55 52 45 00 68 42 AC 12 8F 20 | PRESSURE.hB... |
00003A60: 43 20 3D 20 43 41 4F 32 00 89 42 B6 12 8F 20 43 |C = CAO2..B... C|
00003A70: 24 20 3D 20 43 4F 4E 44 49 54 49 4F 4E 41 4C 20 |$ = CONDITIONAL |
00003A80: 53 54 41 54 45 4D 45 4E 54 00 98 42 C0 12 8F 20 |STATEMENT..B... |
00003A90: 46 20 3D 20 46 49 4F 32 00 A7 42 CA 12 8F 20 50 |F = FIO2..B... P|
00003AA0: 20 3D 20 50 41 4F 32 00 B9 42 D4 12 8F 20 51 20 | = PAO2..B... Q |
00003AB0: 3D 20 51 53 2F 51 54 20 25 00 C8 42 DE 12 8F 20 |= QS/QT %..B... |
00003AC0: 56 20 3D 20 43 56 4F 32 00 EC 42 E8 12 8F 20 58 |V = CVO2..B... X|
00003AD0: 20 3D 20 53 45 4C 45 43 54 49 4F 4E 20 4F 46 20 | = SELECTION OF |
00003AE0: 50 41 54 49 45 4E 54 20 54 59 50 45 00 11 43 F2 |PATIENT TYPE..C.|
00003AF0: 12 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00003B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B10: 2A 00 1B 43 FC 12 8D 38 36 32 30 00 40 43 06 13 |*..C...8620.@C..|
00003B20: 99 A6 36 29 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..6)"...........|
00003B30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 |..............."|
00003B40: 00 65 43 10 13 99 A6 36 29 22 C2 43 4C 49 4E 49 |.eC....6)".CLINI|
00003B50: 43 41 4C 20 50 55 4C 4D 4F 4E 41 52 59 20 53 48 |CAL PULMONARY SH|
00003B60: 55 4E 54 C2 22 00 8A 43 1A 13 99 A6 36 29 22 C2 |UNT."..C....6)".|
00003B70: 4D 45 41 53 55 52 45 4D 45 4E 54 20 54 4F 20 43 |MEASUREMENT TO C|
00003B80: 41 52 44 49 41 43 20 20 C2 22 00 AF 43 24 13 99 |ARDIAC ."..C$..|
00003B90: A6 36 29 22 C2 20 20 20 20 20 20 4F 55 54 50 55 |.6)". OUTPU|
00003BA0: 54 20 52 41 54 49 4F 20 20 20 20 20 20 C2 22 00 |T RATIO .".|
00003BB0: D6 43 2E 13 99 A6 36 29 22 CA C3 C3 C3 C3 C3 C3 |.C....6)".......|
00003BC0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003BD0: C3 C3 CB 11 11 22 00 F6 43 38 13 99 A6 35 29 22 |....."..C8...5)"|
00003BE0: 31 2E 20 56 45 4E 54 49 4C 41 54 4F 52 20 50 41 |1. VENTILATOR PA|
00003BF0: 54 49 45 4E 54 22 00 23 44 42 13 99 A6 35 29 22 |TIENT".#DB...5)"|
00003C00: 32 2E 20 4E 4F 4E 56 45 4E 54 49 4C 41 54 4F 52 |2. NONVENTILATOR|
00003C10: 20 50 41 54 49 45 4E 54 22 3A 99 3A 99 3A 8D 38 | PATIENT":.:.:.8|
00003C20: 36 38 30 00 35 44 4C 13 8B 58 B3 31 B0 58 B1 32 |680.5DL..X.1.X.2|
00003C30: A7 34 38 36 30 00 43 44 56 13 8B 58 B2 32 A7 35 |.4860.CDV..X.2.5|
00003C40: 35 35 30 00 68 44 60 13 8F 20 2A 2A 2A 2A 2A 2A |550.hD`.. ******|
00003C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C60: 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 44 6A 13 8F 20 2A |********..Dj.. *|
00003C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 44 |*************..D|
00003C90: 74 13 8F 20 2A 2A 2A 2A 2A 20 56 45 4E 54 49 4C |t.. ***** VENTIL|
00003CA0: 41 54 4F 52 20 50 41 54 49 45 4E 54 20 2A 2A 2A |ATOR PATIENT ***|
00003CB0: 2A 2A 00 D7 44 7E 13 8F 20 2A 2A 2A 2A 2A 2A 2A |**..D~.. *******|
00003CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CD0: 2A 2A 2A 2A 2A 2A 2A 00 FC 44 88 13 8F 20 2A 2A |*******..D... **|
00003CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 45 92 |************..E.|
00003D00: 13 8D 38 39 32 30 3A 8D 38 39 34 30 00 3B 45 9C |..8920:.8940.;E.|
00003D10: 13 99 22 C2 20 20 20 20 20 20 20 4F 4E 20 56 45 |..". ON VE|
00003D20: 4E 54 49 4C 41 54 45 44 20 50 41 54 49 45 4E 54 |NTILATED PATIENT|
00003D30: 53 20 20 20 20 20 20 20 20 C2 22 00 45 45 A6 13 |S .".EE..|
00003D40: 8D 38 39 37 30 00 74 45 B0 13 99 22 C2 54 48 45 |.8970.tE...".THE|
00003D50: 20 50 41 54 49 45 4E 54 20 49 53 20 50 4C 41 43 | PATIENT IS PLAC|
00003D60: 45 44 20 53 55 50 49 4E 45 20 41 4E 44 20 49 53 |ED SUPINE AND IS|
00003D70: 20 20 C2 22 00 A3 45 BA 13 99 22 C2 53 55 43 54 | ."..E...".SUCT|
00003D80: 49 4F 4E 45 44 20 57 45 4C 4C 2C 20 42 45 43 41 |IONED WELL, BECA|
00003D90: 55 53 45 20 56 45 4E 54 49 4C 41 54 49 4F 4E 20 |USE VENTILATION |
00003DA0: 20 C2 22 00 D2 45 C4 13 99 22 C2 53 48 4F 55 4C | ."..E...".SHOUL|
00003DB0: 44 20 4E 4F 54 20 42 45 20 49 4E 54 45 52 52 55 |D NOT BE INTERRU|
00003DC0: 50 54 45 44 20 46 4F 52 20 31 35 20 20 20 20 20 |PTED FOR 15 |
00003DD0: C2 22 00 01 46 CE 13 99 22 C2 4D 49 4E 55 54 45 |."..F...".MINUTE|
00003DE0: 53 2E 20 44 55 52 49 4E 47 20 54 48 49 53 20 54 |S. DURING THIS T|
00003DF0: 49 4D 45 20 54 48 45 20 50 41 54 49 45 4E 54 C2 |IME THE PATIENT.|
00003E00: 22 00 30 46 D8 13 99 22 C2 49 53 20 4E 4F 54 20 |".0F...".IS NOT |
00003E10: 44 49 53 54 55 52 42 45 44 20 41 4E 44 20 4D 55 |DISTURBED AND MU|
00003E20: 53 54 20 42 45 20 49 4E 20 50 48 41 53 45 C2 22 |ST BE IN PHASE."|
00003E30: 00 5F 46 E2 13 99 22 C2 57 49 54 48 20 54 48 45 |._F...".WITH THE|
00003E40: 20 56 45 4E 54 49 4C 41 54 4F 52 2E 20 20 46 49 | VENTILATOR. FI|
00003E50: 30 32 20 4F 46 20 31 30 30 25 20 49 53 C2 22 00 |02 OF 100% IS.".|
00003E60: 8E 46 EC 13 99 22 C2 53 54 41 52 54 45 44 20 41 |.F...".STARTED A|
00003E70: 4E 44 20 43 48 45 43 4B 45 44 20 57 49 54 48 20 |ND CHECKED WITH |
00003E80: 4F 32 20 4D 4F 4E 49 54 4F 52 20 20 C2 22 00 BD |O2 MONITOR ."..|
00003E90: 46 F6 13 99 22 C2 49 4E 20 31 35 20 4D 49 4E 55 |F...".IN 15 MINU|
00003EA0: 54 45 53 20 46 49 4F 32 20 49 53 20 41 47 49 41 |TES FIO2 IS AGIA|
00003EB0: 4E 20 43 48 45 43 4B 45 44 2C 20 C2 22 00 EC 46 |N CHECKED, ."..F|
00003EC0: 00 14 99 22 C2 41 4E 44 20 56 49 54 41 4C 20 53 |...".AND VITAL S|
00003ED0: 49 47 4E 53 20 4E 4F 54 45 44 2E 20 53 49 4D 55 |IGNS NOTED. SIMU|
00003EE0: 4C 54 41 4E 45 4F 55 53 4C 59 C2 22 00 1B 47 0A |LTANEOUSLY."..G.|
00003EF0: 14 99 22 C2 42 4C 4F 4F 44 20 49 53 20 54 41 4B |..".BLOOD IS TAK|
00003F00: 45 4E 20 46 52 4F 4D 20 42 4F 54 48 20 54 48 45 |EN FROM BOTH THE|
00003F10: 20 41 52 54 45 52 49 41 4C C2 22 00 4A 47 14 14 | ARTERIAL.".JG..|
00003F20: 99 22 C2 41 4E 44 20 43 45 4E 54 52 41 4C 20 56 |.".AND CENTRAL V|
00003F30: 45 4E 4F 55 53 20 4C 49 4E 45 53 2E 20 54 48 45 |ENOUS LINES. THE|
00003F40: 20 53 41 4D 50 4C 45 20 C2 22 00 79 47 1E 14 99 | SAMPLE .".yG...|
00003F50: 22 C2 41 52 45 20 52 55 53 48 45 44 20 54 4F 20 |".ARE RUSHED TO |
00003F60: 54 48 45 20 4C 41 42 2C 20 57 45 52 45 20 54 48 |THE LAB, WERE TH|
00003F70: 45 59 20 57 49 4C 4C C2 22 00 A8 47 28 14 99 22 |EY WILL."..G(.."|
00003F80: C2 54 48 45 4E 20 42 45 20 52 45 41 44 20 57 49 |.THEN BE READ WI|
00003F90: 54 48 49 4E 20 32 20 4D 49 4E 55 54 45 53 2E 20 |THIN 2 MINUTES. |
00003FA0: 20 54 48 45 20 20 C2 22 00 D7 47 32 14 99 22 C2 | THE ."..G2..".|
00003FB0: 52 45 53 55 4C 54 53 20 41 52 45 20 54 48 45 4E |RESULTS ARE THEN|
00003FC0: A0 52 45 54 55 52 4E 45 44 20 46 4F 52 20 51 53 |.RETURNED FOR QS|
00003FD0: 2F 51 54 20 20 C2 22 00 F3 47 3C 14 99 22 C2 43 |/QT ."..G<..".C|
00003FE0: 41 4C 43 55 4C 41 54 49 4F 4E 2E 22 A6 32 35 29 |ALCULATION.".25)|
00003FF0: 22 C2 22 00 03 48 46 14 8D 38 39 39 30 3A 8D 38 |"."..HF..8990:.8|
00004000: 37 39 30 00 14 48 50 14 8B 43 24 B3 B1 22 43 22 |790..HP..C$.."C"|
00004010: A7 31 30 30 00 1E 48 5A 14 8D 38 39 32 30 00 4D |.100..HZ..8920.M|
00004020: 48 64 14 99 22 C2 20 51 53 20 20 20 20 20 20 20 |Hd..". QS |
00004030: 20 28 50 41 4F 32 2D 50 41 4F 32 29 2A 30 2E 30 | (PAO2-PAO2)*0.0|
00004040: 30 33 20 20 20 20 20 20 20 20 20 C2 22 00 57 48 |03 .".WH|
00004050: 6E 14 8D 39 30 31 30 00 86 48 78 14 99 22 C2 20 |n..9010..Hx..". |
00004060: 51 54 20 20 20 28 43 41 4F 32 2D 43 56 4F 32 29 |QT (CAO2-CVO2)|
00004070: 2B 28 50 41 4F 32 2D 50 41 4F 32 29 2A 30 2E 30 |+(PAO2-PAO2)*0.0|
00004080: 30 33 20 20 C2 22 00 90 48 82 14 8D 38 39 37 30 |03 ."..H...8970|
00004090: 00 BF 48 8C 14 99 22 C2 50 41 4F 32 20 3D 20 28 |..H...".PAO2 = (|
000040A0: 28 46 49 4F 32 2A 42 41 52 4D 20 50 29 2D 34 37 |(FIO2*BARM P)-47|
000040B0: 29 2D 50 43 4F 32 29 2A 30 2E 30 30 33 C2 22 00 |)-PCO2)*0.003.".|
000040C0: C9 48 96 14 8D 38 39 39 30 00 F8 48 A0 14 85 22 |.H...8990..H..."|
000040D0: 11 45 4E 54 45 52 20 25 20 46 49 4F 32 20 28 57 |.ENTER % FIO2 (W|
000040E0: 48 4F 4C 45 20 4E 55 4D 42 45 52 29 20 22 3B 46 |HOLE NUMBER) ";F|
000040F0: 3A 4F B2 46 AD 31 30 30 00 1D 49 AA 14 85 22 11 |:O.F.100..I...".|
00004100: 45 4E 54 45 52 20 42 41 52 4F 4D 45 54 52 49 43 |ENTER BAROMETRIC|
00004110: 20 50 52 45 53 53 55 52 45 20 22 3B 42 00 3D 49 | PRESSURE ";B.=I|
00004120: B4 14 85 22 11 45 4E 54 45 52 20 41 4D 4F 55 4E |...".ENTER AMOUN|
00004130: 54 20 4F 46 20 50 41 4F 32 20 22 3B 50 00 5E 49 |T OF PAO2 ";P.^I|
00004140: BE 14 41 B2 B5 28 28 28 28 4F AC 42 29 AB 34 37 |..A..((((O.B).47|
00004150: 29 AB 50 AD 2E 38 29 AC 31 30 29 AD 31 30 00 7C |).P..8).10).10.||
00004160: 49 C8 14 99 22 11 50 41 4F 32 20 45 51 55 41 4C |I...".PAO2 EQUAL|
00004170: 53 20 2D 2D 2D 2D 2D 2D 2D 22 3B 41 00 9C 49 D2 |S -------";A..I.|
00004180: 14 85 22 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 |..".ENTER AMOUNT|
00004190: 20 4F 46 20 43 41 4F 32 20 22 3B 43 00 BC 49 DC | OF CAO2 ";C..I.|
000041A0: 14 85 22 11 45 4E 54 45 52 20 41 4D 4F 55 4E 54 |..".ENTER AMOUNT|
000041B0: 20 4F 46 20 43 56 4F 32 20 22 3B 56 00 C6 49 E6 | OF CVO2 ";V..I.|
000041C0: 14 8D 38 39 32 30 00 F0 49 F0 14 99 22 C2 51 53 |..8920..I...".QS|
000041D0: 20 20 20 20 20 20 20 20 20 20 28 22 3B 41 3B 22 | (";A;"|
000041E0: 2D 22 3B 50 3B 22 29 20 2A 20 30 2E 30 30 33 22 |-";P;") * 0.003"|
000041F0: 00 FE 49 FA 14 99 A6 33 38 29 22 91 C2 22 00 28 |..I....38)"..".(|
00004200: 4A 04 15 51 B2 28 28 41 AB 50 29 AC 30 2E 30 30 |J..Q.((A.P).0.00|
00004210: 33 29 AD 28 28 43 AB 56 29 AA 28 28 41 AB 50 29 |3).((C.V).((A.P)|
00004220: AC 30 2E 30 30 33 29 29 00 32 4A 0E 15 8D 39 30 |.0.003)).2J...90|
00004230: 31 30 00 61 4A 18 15 99 22 C2 51 54 20 20 20 28 |10.aJ...".QT (|
00004240: 22 3B 43 3B 22 2D 22 3B 56 3B 22 29 2B 28 22 3B |";C;"-";V;")+(";|
00004250: 41 3B 22 2D 22 3B 50 3B 22 29 2A 30 2E 30 30 33 |A;"-";P;")*0.003|
00004260: 22 00 75 4A 22 15 99 A6 33 38 29 22 91 C2 22 3A |".uJ"...38)"..":|
00004270: 8D 38 39 39 30 00 82 4A 2C 15 99 22 11 11 20 51 |.8990..J,..".. Q|
00004280: 53 22 00 A3 4A 36 15 99 22 20 C3 C3 20 3D 22 3B |S"..J6.." .. =";|
00004290: B5 28 28 51 AC 31 30 30 29 AC 31 30 29 AD 31 30 |.((Q.100).10).10|
000042A0: 22 25 22 00 AE 4A 40 15 99 22 20 51 54 22 00 D4 |"%"..J@.." QT"..|
000042B0: 4A 4A 15 99 22 11 11 46 49 4F 32 20 3D 22 3B 46 |JJ.."..FIO2 =";F|
000042C0: 3B 22 25 22 A6 31 34 29 22 42 41 52 4D 20 50 20 |;"%".14)"BARM P |
000042D0: 3D 22 3B 42 00 F4 4A 54 15 99 22 11 50 41 4F 32 |=";B..JT..".PAO2|
000042E0: 20 3D 22 3B 50 3B A6 31 35 29 22 43 41 4F 32 20 | =";P;.15)"CAO2 |
000042F0: 3D 22 3B 43 00 05 4B 5E 15 99 22 11 43 56 4F 32 |=";C..K^..".CVO2|
00004300: 20 3D 22 3B 56 00 0F 4B 68 15 89 38 35 38 30 00 | =";V..Kh..8580.|
00004310: 19 4B 72 15 8D 38 36 32 30 00 3E 4B 7C 15 8F 20 |.Kr..8620.>K|.. |
00004320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 |**************.c|
00004340: 4B 86 15 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |K... ***********|
00004350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004360: 2A 2A 2A 00 88 4B 90 15 8F 20 2A 2A 2A 20 4E 4F |***..K... *** NO|
00004370: 4E 2D 56 45 4E 54 49 4C 41 54 45 44 20 50 41 54 |N-VENTILATED PAT|
00004380: 49 45 4E 54 20 2A 2A 2A 00 AD 4B 9A 15 8F 20 2A |IENT ***..K... *|
00004390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000043A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D2 4B |*************..K|
000043B0: A4 15 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000043C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000043D0: 2A 2A 00 E8 4B AE 15 8D 38 39 32 30 3A 8D 38 39 |**..K...8920:.89|
000043E0: 34 30 3A 8D 38 39 37 30 00 17 4C B8 15 99 22 C2 |40:.8970..L...".|
000043F0: 54 48 49 53 20 49 53 20 41 20 45 53 54 49 4D 41 |THIS IS A ESTIMA|
00004400: 54 45 44 20 53 48 55 4E 54 2E 20 20 54 48 45 20 |TED SHUNT. THE |
00004410: 41 2D 56 20 20 C2 22 00 46 4C C2 15 99 22 C2 43 |A-V .".FL...".C|
00004420: 4F 4E 54 45 4E 54 20 49 53 20 53 45 54 20 41 54 |ONTENT IS SET AT|
00004430: 20 33 2E 35 20 56 4F 4C 20 25 2C 20 57 48 49 43 | 3.5 VOL %, WHIC|
00004440: 48 20 20 20 C2 22 00 75 4C CC 15 99 22 C2 49 53 |H .".uL...".IS|
00004450: 20 41 20 4E 4F 52 4D 41 4C 20 41 2D 56 20 43 4F | A NORMAL A-V CO|
00004460: 4E 54 45 4E 54 2E 20 4F 4E 4C 59 20 46 49 30 32 |NTENT. ONLY FI02|
00004470: 20 20 20 C2 22 00 A4 4C D6 15 99 22 C2 41 4E 44 | ."..L...".AND|
00004480: 20 41 52 54 45 52 49 41 4C 20 42 4C 4F 4F 44 20 | ARTERIAL BLOOD |
00004490: 47 41 53 20 49 53 20 4E 45 45 44 45 44 2C 20 54 |GAS IS NEEDED, T|
000044A0: 48 45 C2 22 00 D3 4C E0 15 99 22 C2 50 48 59 53 |HE."..L...".PHYS|
000044B0: 49 43 49 41 4E 20 4D 55 53 54 20 4D 41 4B 45 20 |ICIAN MUST MAKE |
000044C0: 54 48 45 20 4A 55 44 47 45 4D 45 4E 54 20 20 20 |THE JUDGEMENT |
000044D0: 20 C2 22 00 02 4D EA 15 99 22 C2 54 48 41 54 20 | ."..M...".THAT |
000044E0: 41 20 4E 4F 52 4D 41 4C 20 41 2D 56 20 43 4F 4E |A NORMAL A-V CON|
000044F0: 54 45 4E 54 20 44 49 46 46 45 52 45 4E 43 45 20 |TENT DIFFERENCE |
00004500: C2 22 00 31 4D F4 15 99 22 C2 49 53 20 41 20 52 |.".1M...".IS A R|
00004510: 45 41 53 4F 4E 41 42 4C 45 20 41 53 53 55 4D 50 |EASONABLE ASSUMP|
00004520: 54 49 4F 4E 2E 20 20 20 20 20 20 20 20 20 20 C2 |TION. .|
00004530: 22 00 41 4D FE 15 8D 38 39 39 30 3A 8D 38 37 39 |".AM...8990:.879|
00004540: 30 00 52 4D 08 16 8B 43 24 B3 B1 22 43 22 A7 31 |0.RM...C$.."C".1|
00004550: 30 30 00 68 4D 12 16 8D 38 39 32 30 3A 8D 38 39 |00.hM...8920:.89|
00004560: 34 30 3A 8D 38 39 37 30 00 97 4D 1C 16 99 22 C2 |40:.8970..M...".|
00004570: 54 48 45 20 50 41 54 49 45 4E 54 20 49 53 20 47 |THE PATIENT IS G|
00004580: 49 56 45 4E 20 41 20 43 4F 4E 54 52 4F 4C 4C 45 |IVEN A CONTROLLE|
00004590: 44 20 20 20 20 C2 22 00 C6 4D 26 16 99 22 C2 41 |D ."..M&..".A|
000045A0: 4D 4F 55 4E 54 20 4F 46 20 4F 58 59 47 45 4E 20 |MOUNT OF OXYGEN |
000045B0: 54 4F 20 42 52 45 41 54 48 20 56 49 41 20 41 20 |TO BREATH VIA A |
000045C0: 48 49 47 48 C2 22 00 F5 4D 30 16 99 22 C2 2D 46 |HIGH."..M0..".-F|
000045D0: 4C 4F 57 20 53 59 53 54 45 4D 2E 20 54 48 49 53 |LOW SYSTEM. THIS|
000045E0: 20 4D 41 59 20 42 45 20 31 30 30 25 20 4F 58 59 | MAY BE 100% OXY|
000045F0: 47 45 4E C2 22 00 24 4E 3A 16 99 22 C2 4F 52 20 |GEN.".$N:..".OR |
00004600: 41 4E 59 20 46 52 41 43 54 49 4F 4E 20 54 48 45 |ANY FRACTION THE|
00004610: 52 45 4F 46 20 54 48 41 54 20 57 49 4C 4C 20 20 |REOF THAT WILL |
00004620: 20 20 C2 22 00 53 4E 44 16 99 22 C2 50 52 4F 44 | .".SND..".PROD|
00004630: 55 43 45 20 41 4E 20 41 52 54 45 52 49 41 4C 20 |UCE AN ARTERIAL |
00004640: 50 4F 32 20 4F 46 20 4D 4F 52 45 20 54 48 41 4E |PO2 OF MORE THAN|
00004650: 20 C2 22 00 82 4E 4E 16 99 22 C2 31 35 30 20 4D | ."..NN..".150 M|
00004660: 4D 20 48 47 2E 20 20 20 20 20 20 20 20 20 20 20 |M HG. |
00004670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004680: C2 22 00 94 4E 58 16 99 22 C2 22 3B A6 33 37 29 |."..NX..".";.37)|
00004690: 3B 22 C2 22 00 C3 4E 62 16 99 22 C2 41 46 54 45 |;"."..Nb..".AFTE|
000046A0: 52 20 31 35 20 4D 49 4E 55 54 45 53 20 41 20 52 |R 15 MINUTES A R|
000046B0: 45 44 49 41 4C 20 41 52 54 45 52 49 41 4C 20 20 |EDIAL ARTERIAL |
000046C0: 20 C2 22 00 F2 4E 6C 16 99 22 C2 53 54 49 43 4B | ."..Nl..".STICK|
000046D0: 20 49 53 20 41 43 43 4F 4D 50 4F 4C 49 53 48 45 | IS ACCOMPOLISHE|
000046E0: 44 20 41 4E 44 20 54 48 45 20 42 4C 4F 4F 44 20 |D AND THE BLOOD |
000046F0: C2 22 00 21 4F 76 16 99 22 C2 53 41 4D 50 4C 45 |.".!Ov..".SAMPLE|
00004700: 20 49 53 20 4F 42 54 41 49 4E 45 44 2E 20 54 48 | IS OBTAINED. TH|
00004710: 45 20 50 41 54 49 45 4E 54 20 49 53 20 20 20 C2 |E PATIENT IS .|
00004720: 22 00 50 4F 80 16 99 22 C2 4E 4F 54 20 54 41 4B |".PO...".NOT TAK|
00004730: 45 4E 20 4F 46 46 20 54 48 45 20 43 4F 4E 54 52 |EN OFF THE CONTR|
00004740: 4F 4C 4C 45 44 20 4F 58 59 47 45 4E 20 20 C2 22 |OLLED OXYGEN ."|
00004750: 00 7F 4F 8A 16 99 22 C2 55 4E 54 49 4C 20 54 48 |..O...".UNTIL TH|
00004760: 45 20 4D 45 41 53 55 52 45 4D 45 4E 54 53 20 41 |E MEASUREMENTS A|
00004770: 52 45 20 43 4F 4D 50 4C 45 54 45 20 20 C2 22 00 |RE COMPLETE .".|
00004780: A2 4F 94 16 99 22 C2 41 4E 44 20 53 41 54 49 53 |.O...".AND SATIS|
00004790: 46 41 43 54 4F 52 59 2E 22 3B A6 32 30 29 3B 22 |FACTORY.";.20);"|
000047A0: C2 22 00 B2 4F 9E 16 8D 38 39 39 30 3A 8D 38 37 |."..O...8990:.87|
000047B0: 39 30 00 C3 4F A8 16 8B 43 24 B3 B1 22 43 22 A7 |90..O...C$.."C".|
000047C0: 31 30 30 00 CD 4F B2 16 8D 38 39 32 30 00 FC 4F |100..O...8920..O|
000047D0: BC 16 99 22 C2 20 51 53 20 20 20 20 20 20 20 20 |...". QS |
000047E0: 28 50 41 4F 32 2D 50 41 4F 32 29 2A 30 2E 30 30 |(PAO2-PAO2)*0.00|
000047F0: 33 20 20 20 20 20 20 20 20 20 C2 22 00 06 50 C6 |3 ."..P.|
00004800: 16 8D 39 30 31 30 00 3B 50 D0 16 99 22 C2 20 51 |..9010.;P...". Q|
00004810: 54 20 20 20 20 20 20 33 2E 35 2B 28 50 41 4F 32 |T 3.5+(PAO2|
00004820: 2D 50 41 4F 32 29 2A 30 2E 30 30 33 20 20 20 20 |-PAO2)*0.003 |
00004830: 20 20 20 C2 22 3A 8D 38 39 37 30 00 70 50 DA 16 | .":.8970.pP..|
00004840: 99 22 C2 50 41 4F 32 20 3D 20 28 28 46 49 4F 32 |.".PAO2 = ((FIO2|
00004850: 2A 42 41 52 4D 20 50 29 2D 34 37 29 2D 50 43 4F |*BARM P)-47)-PCO|
00004860: 32 29 2A 30 2E 30 30 33 C2 22 3A 8D 38 39 39 30 |2)*0.003.":.8990|
00004870: 00 9F 50 E4 16 85 22 11 45 4E 54 45 52 20 25 20 |..P...".ENTER % |
00004880: 46 49 4F 32 20 28 57 48 4F 4C 45 20 4E 55 4D 42 |FIO2 (WHOLE NUMB|
00004890: 45 52 29 20 22 3B 46 3A 4F B2 46 AD 31 30 30 00 |ER) ";F:O.F.100.|
000048A0: C4 50 EE 16 85 22 11 45 4E 54 45 52 20 42 41 52 |.P...".ENTER BAR|
000048B0: 4F 4D 45 54 52 49 43 20 50 52 45 53 53 55 52 45 |OMETRIC PRESSURE|
000048C0: 20 22 3B 42 00 E4 50 F8 16 85 22 11 45 4E 54 45 | ";B..P...".ENTE|
000048D0: 52 20 41 4D 4F 55 4E 54 20 4F 46 20 50 41 4F 32 |R AMOUNT OF PAO2|
000048E0: 20 22 3B 50 00 05 51 02 17 41 B2 B5 28 28 28 28 | ";P..Q..A..((((|
000048F0: 4F AC 42 29 AB 34 37 29 AB 50 AD 2E 38 29 AC 31 |O.B).47).P..8).1|
00004900: 30 29 AD 31 30 00 2D 51 0C 17 51 B2 28 28 41 AB |0).10.-Q..Q.((A.|
00004910: 50 29 AC 30 2E 30 30 33 29 AD 28 33 2E 35 AA 28 |P).0.003).(3.5.(|
00004920: 28 41 AB 50 29 AC 30 2E 30 30 33 29 29 00 37 51 |(A.P).0.003)).7Q|
00004930: 16 17 8D 38 39 32 30 00 61 51 20 17 99 22 C2 51 |...8920.aQ ..".Q|
00004940: 53 20 20 20 20 20 20 20 20 20 20 28 22 3B 41 3B |S (";A;|
00004950: 22 2D 22 3B 50 3B 22 29 20 2A 20 30 2E 30 30 33 |"-";P;") * 0.003|
00004960: 22 00 6F 51 2A 17 99 A6 33 38 29 22 91 C2 22 00 |".oQ*...38)"..".|
00004970: 79 51 34 17 8D 39 30 31 30 00 A4 51 3E 17 99 22 |yQ4..9010..Q>.."|
00004980: C2 51 54 20 20 20 20 20 20 20 20 20 33 2E 35 2B |.QT 3.5+|
00004990: 28 22 3B 41 3B 22 2D 22 3B 50 3B 22 29 2A 30 2E |(";A;"-";P;")*0.|
000049A0: 30 30 33 22 00 B8 51 48 17 99 A6 33 38 29 22 91 |003"..QH...38)".|
000049B0: C2 22 3A 8D 38 39 39 30 00 C5 51 52 17 99 22 11 |.":.8990..QR..".|
000049C0: 11 20 51 53 22 00 E6 51 5C 17 99 22 20 C3 C3 20 |. QS"..Q\.." .. |
000049D0: 3D 22 3B B5 28 28 51 AC 31 30 30 29 AC 31 30 29 |=";.((Q.100).10)|
000049E0: AD 31 30 22 25 22 00 F1 51 66 17 99 22 20 51 54 |.10"%"..Qf.." QT|
000049F0: 22 00 17 52 70 17 99 22 11 11 46 49 4F 32 20 3D |"..Rp.."..FIO2 =|
00004A00: 22 3B 46 3B 22 25 22 A6 31 34 29 22 42 41 52 4D |";F;"%".14)"BARM|
00004A10: 20 50 20 3D 22 3B 42 00 37 52 7A 17 99 22 11 50 | P =";B.7Rz..".P|
00004A20: 41 4F 32 20 3D 22 3B 50 3B A6 31 34 29 22 50 41 |AO2 =";P;.14)"PA|
00004A30: 4F 32 20 3D 22 3B 41 00 41 52 84 17 89 38 35 38 |O2 =";A.AR...858|
00004A40: 30 00 4B 52 8E 17 8D 38 36 32 30 00 70 52 98 17 |0.KR...8620.pR..|
00004A50: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00004A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004A70: 00 76 52 A2 17 80 00 9B 52 AC 17 8F 20 2A 2A 2A |.vR.....R... ***|
00004A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 52 B6 17 |***********..R..|
00004AA0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00004AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004AC0: 00 E5 52 C0 17 8F 20 2A 2A 20 54 45 4D 50 45 52 |..R... ** TEMPER|
00004AD0: 41 54 55 52 45 20 43 4F 4E 56 45 52 53 49 4F 4E |ATURE CONVERSION|
00004AE0: 20 20 2A 2A 2A 00 0A 53 CA 17 8F 20 2A 2A 2A 2A | ***..S... ****|
00004AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 53 D4 17 8F |**********./S...|
00004B10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00004B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00004B30: 4C 53 DE 17 8F 20 50 54 3D 50 41 54 49 45 4E 54 |LS... PT=PATIENT|
00004B40: 20 54 45 4D 50 45 52 41 54 55 52 45 00 5C 53 E8 | TEMPERATURE.\S.|
00004B50: 17 8F 20 43 3D 43 45 4C 53 49 55 53 00 6F 53 F2 |.. C=CELSIUS.oS.|
00004B60: 17 8F 20 46 3D 46 41 48 52 45 4E 48 45 49 54 00 |.. F=FAHRENHEIT.|
00004B70: 8E 53 FC 17 8F 20 43 24 3D 43 4F 4E 44 49 54 49 |.S... C$=CONDITI|
00004B80: 4F 4E 41 4C 20 53 54 41 54 45 4D 45 4E 54 00 B3 |ONAL STATEMENT..|
00004B90: 53 06 18 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S... ***********|
00004BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004BB0: 2A 2A 2A 00 DA 53 10 18 99 22 93 11 20 20 20 20 |***..S...".. |
00004BC0: 20 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ..............|
00004BD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 00 00 54 1A 18 99 |............T...|
00004BE0: 22 20 20 20 20 20 20 C2 54 45 4D 50 45 52 41 54 |" .TEMPERAT|
00004BF0: 55 52 45 20 43 4F 4E 56 45 52 53 49 4F 4E C2 22 |URE CONVERSION."|
00004C00: 00 29 54 24 18 99 22 20 20 20 20 20 20 CA C3 C3 |.)T$.." ...|
00004C10: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00004C20: C3 C3 C3 C3 CB 11 11 11 22 00 50 54 2E 18 85 22 |........".PT..."|
00004C30: 45 4E 54 45 52 20 50 41 54 49 45 4E 54 27 53 20 |ENTER PATIENT'S |
00004C40: 54 45 4D 50 45 52 41 54 55 52 45 20 22 3B 50 54 |TEMPERATURE ";PT|
00004C50: 00 60 54 38 18 8B 50 54 B1 35 30 A7 36 32 37 30 |.`T8..PT.50.6270|
00004C60: 00 7D 54 42 18 46 B2 B5 28 28 28 50 54 AC 31 2E |.}TB.F..(((PT.1.|
00004C70: 38 29 AA 33 32 29 AC 31 30 29 AD 31 30 00 9D 54 |8).32).10).10..T|
00004C80: 4C 18 99 22 11 11 43 45 4C 53 49 55 53 20 54 45 |L.."..CELSIUS TE|
00004C90: 4D 50 20 3D 20 22 3B 50 54 3B 22 43 22 00 BE 54 |MP = ";PT;"C"..T|
00004CA0: 56 18 99 22 11 46 41 48 52 45 4E 48 45 49 54 20 |V..".FAHRENHEIT |
00004CB0: 54 45 4D 50 20 3D 20 22 3B 46 3B 22 46 22 00 C8 |TEMP = ";F;"F"..|
00004CC0: 54 60 18 8D 38 37 34 30 00 D9 54 6A 18 8B 43 24 |T`..8740..Tj..C$|
00004CD0: B2 22 43 22 A7 36 31 36 30 00 E2 54 74 18 89 31 |."C".6160..Tt..1|
00004CE0: 30 30 00 FF 54 7E 18 43 B2 B5 28 28 28 50 54 AB |00..T~.C..(((PT.|
00004CF0: 33 32 29 AD 31 2E 38 29 AC 31 30 29 AD 31 30 00 |32).1.8).10).10.|
00004D00: 22 55 88 18 99 22 11 11 46 41 48 52 45 4E 48 45 |"U..."..FAHRENHE|
00004D10: 49 54 20 54 45 4D 50 20 3D 20 22 3B 50 54 3B 22 |IT TEMP = ";PT;"|
00004D20: 46 22 00 40 55 92 18 99 22 11 43 45 4C 53 49 55 |F".@U...".CELSIU|
00004D30: 53 20 54 45 4D 50 20 3D 20 22 3B 43 3B 22 43 22 |S TEMP = ";C;"C"|
00004D40: 00 4A 55 9C 18 89 38 35 38 30 00 54 55 A6 18 8D |.JU...8580.TU...|
00004D50: 38 36 32 30 00 79 55 B0 18 8F 20 2A 2A 2A 2A 2A |8620.yU... *****|
00004D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 55 BA 18 8F 20 |*********..U... |
00004D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C3 |**************..|
00004DA0: 55 C4 18 8F 20 2A 2A 20 43 41 52 44 49 41 43 20 |U... ** CARDIAC |
00004DB0: 4F 55 54 50 55 54 20 41 44 56 45 52 47 49 4E 47 |OUTPUT ADVERGING|
00004DC0: 20 2A 2A 00 E8 55 CE 18 8F 20 2A 2A 2A 2A 2A 2A | **..U... ******|
00004DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004DE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0D 56 D8 18 8F 20 2A |********..V... *|
00004DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 56 |*************./V|
00004E10: E2 18 8F 20 4E 3D 23 20 4F 46 20 43 41 52 44 49 |... N=# OF CARDI|
00004E20: 41 43 20 4F 55 54 50 55 54 20 20 28 43 4F 29 00 |AC OUTPUT (CO).|
00004E30: 50 56 EC 18 8F 20 41 3D 41 28 4E 29 20 44 49 4D |PV... A=A(N) DIM|
00004E40: 20 46 4F 52 20 43 4F 55 4E 54 49 4E 47 20 43 4F | FOR COUNTING CO|
00004E50: 00 67 56 F6 18 8F 20 43 3D 43 41 52 44 49 41 43 |.gV... C=CARDIAC|
00004E60: 20 4F 55 54 50 55 54 00 8A 56 00 19 8F 20 4D 3D | OUTPUT..V... M=|
00004E70: 23 4F 46 20 43 41 52 44 49 41 43 20 4F 55 54 50 |#OF CARDIAC OUTP|
00004E80: 55 54 20 50 52 49 4E 54 45 44 00 9F 56 0A 19 8F |UT PRINTED..V...|
00004E90: 20 4C 3D 4C 4F 4F 50 20 43 4F 55 4E 54 45 52 00 | L=LOOP COUNTER.|
00004EA0: BE 56 14 19 8F 20 43 24 3D 43 4F 4E 44 49 54 49 |.V... C$=CONDITI|
00004EB0: 4F 4E 41 4C 20 53 54 41 54 45 4D 45 4E 54 00 CC |ONAL STATEMENT..|
00004EC0: 56 1E 19 9C 3A 4E B2 31 3A 41 B2 30 00 F4 56 28 |V...:N.1:A.0..V(|
00004ED0: 19 99 22 93 11 20 20 20 20 20 D5 C3 C3 C3 C3 C3 |..".. ......|
00004EE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00004EF0: C3 C3 C9 22 00 1A 57 32 19 99 22 20 20 20 20 20 |..."..W2.." |
00004F00: C2 43 41 52 44 49 41 43 20 4F 55 54 50 55 54 20 |.CARDIAC OUTPUT |
00004F10: 41 44 56 45 52 41 47 45 C2 22 00 43 57 3C 19 99 |ADVERAGE.".CW<..|
00004F20: 22 20 20 20 20 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |" ..........|
00004F30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 11 |................|
00004F40: 11 11 22 00 73 57 46 19 99 22 45 4E 54 45 52 20 |..".sWF.."ENTER |
00004F50: 43 41 52 44 49 41 43 20 4F 55 54 50 55 54 20 54 |CARDIAC OUTPUT T|
00004F60: 48 45 4E 20 50 52 45 53 53 20 52 45 54 55 52 4E |HEN PRESS RETURN|
00004F70: 11 11 22 00 9E 57 50 19 99 22 45 4E 54 45 52 20 |.."..WP.."ENTER |
00004F80: 56 41 4C 55 45 20 23 22 3B 4E 3A 85 22 43 41 52 |VALUE #";N:."CAR|
00004F90: 44 49 41 43 20 4F 55 54 50 55 54 22 3B 43 00 D3 |DIAC OUTPUT";C..|
00004FA0: 57 5A 19 8B 43 B1 39 A7 99 22 11 4F 55 54 20 4F |WZ..C.9..".OUT O|
00004FB0: 46 20 52 41 4E 47 45 20 28 31 20 54 4F 20 39 29 |F RANGE (1 TO 9)|
00004FC0: 21 22 3A 81 4C B2 31 A4 39 30 30 3A 82 3A 89 36 |!":.L.1.900:.:.6|
00004FD0: 34 34 30 00 EA 57 64 19 41 28 4E 29 B2 43 3A 8B |440..Wd.A(N).C:.|
00004FE0: 41 28 31 29 B2 30 A7 31 30 30 00 FF 57 6E 19 8B |A(1).0.100..Wn..|
00004FF0: 43 B2 30 A7 4E B2 4E AB 31 3A 89 36 35 34 30 00 |C.0.N.N.1:.6540.|
00005000: 13 58 78 19 8B 4E B2 31 30 A7 43 B2 30 3A 89 36 |.Xx..N.10.C.0:.6|
00005010: 35 34 30 00 27 58 82 19 43 B2 30 3A 4E B2 4E AA |540.'X..C.0:N.N.|
00005020: 31 3A 89 36 34 34 30 00 50 58 8C 19 99 22 93 11 |1:.6440.PX..."..|
00005030: 20 20 20 20 20 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ..........|
00005040: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 |..............."|
00005050: 00 77 58 96 19 99 22 20 20 20 20 20 20 C2 43 41 |.wX..." .CA|
00005060: 52 44 49 41 43 20 4F 55 54 50 55 54 20 41 44 56 |RDIAC OUTPUT ADV|
00005070: 45 52 41 47 45 C2 22 00 A1 58 A0 19 99 22 20 20 |ERAGE."..X..." |
00005080: 20 20 20 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ............|
00005090: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 11 11 11 |................|
000050A0: 22 00 AC 58 AA 19 81 4D B2 31 A4 4E 00 CC 58 B4 |"..X...M.1.N..X.|
000050B0: 19 43 B2 43 AA 41 28 4D 29 3A 99 22 43 4F 20 23 |.C.C.A(M):."CO #|
000050C0: 22 4D 22 3D 22 41 28 4D 29 3A 82 4D 00 F7 58 BE |"M"="A(M):.M..X.|
000050D0: 19 43 41 B2 B5 28 28 43 AD 4E 29 AC 31 30 29 AD |.CA..((C.N).10).|
000050E0: 31 30 3A 99 22 11 11 41 44 56 45 52 41 47 45 20 |10:."..ADVERAGE |
000050F0: 43 4F 20 3D 22 43 41 00 01 59 C8 19 89 38 35 38 |CO ="CA..Y...858|
00005100: 30 00 0B 59 D2 19 8D 38 36 32 30 00 30 59 DC 19 |0..Y...8620.0Y..|
00005110: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00005120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005130: 00 55 59 E6 19 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.UY... *********|
00005140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005150: 2A 2A 2A 2A 2A 00 7A 59 F0 19 8F 20 2A 2A 2A 2A |*****.zY... ****|
00005160: 2A 2A 2A 20 46 41 54 2F 43 48 4F 20 52 41 54 49 |*** FAT/CHO RATI|
00005170: 4F 20 2A 2A 2A 2A 2A 2A 2A 2A 00 9F 59 FA 19 8F |O ********..Y...|
00005180: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00005190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000051A0: C4 59 04 1A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.Y... **********|
000051B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000051C0: 2A 2A 2A 2A 00 D9 59 0E 1A 8F 20 53 3D 53 54 45 |****..Y... S=STE|
000051D0: 50 20 43 4F 55 4E 54 45 52 00 EE 59 18 1A 8F 20 |P COUNTER..Y... |
000051E0: 54 3D 4C 4F 4F 50 20 43 4F 55 4E 54 45 52 00 0D |T=LOOP COUNTER..|
000051F0: 5A 22 1A 8F 20 43 24 3D 43 4F 4E 44 49 54 49 4F |Z".. C$=CONDITIO|
00005200: 4E 41 4C 20 53 54 41 54 45 4D 45 4E 54 00 2E 5A |NAL STATEMENT..Z|
00005210: 2C 1A 8F 20 44 24 2C 45 2C 46 2C 47 20 28 52 45 |,.. D$,E,F,G (RE|
00005220: 41 44 20 53 54 41 54 45 4D 45 4E 54 53 29 00 45 |AD STATEMENTS).E|
00005230: 5A 36 1A 8F 20 44 24 3D 20 50 52 4F 44 55 43 54 |Z6.. D$= PRODUCT|
00005240: 20 4E 41 4D 45 00 5D 5A 40 1A 8F 20 45 3D 20 50 | NAME.]Z@.. E= P|
00005250: 52 4F 2C 20 47 4D 20 53 4F 55 52 43 45 00 75 5A |RO, GM SOURCE.uZ|
00005260: 4A 1A 8F 20 46 3D 20 46 41 54 2C 20 47 4D 20 53 |J.. F= FAT, GM S|
00005270: 4F 55 52 43 45 00 8D 5A 54 1A 8F 20 47 3D 20 43 |OURCE..ZT.. G= C|
00005280: 48 4F 2C 20 47 4D 20 53 4F 55 52 43 45 00 A3 5A |HO, GM SOURCE..Z|
00005290: 5E 1A 8F 20 48 3D 43 41 4C 2F 43 43 20 46 41 43 |^.. H=CAL/CC FAC|
000052A0: 54 4F 52 00 BA 5A 68 1A 8F 20 4E 24 3D 46 41 54 |TOR..Zh.. N$=FAT|
000052B0: 2F 43 48 4F 20 52 41 54 49 4F 00 CB 5A 72 1A 8F |/CHO RATIO..Zr..|
000052C0: 20 50 24 3D 50 52 4F 44 55 43 54 00 EE 5A 7C 1A | P$=PRODUCT..Z|.|
000052D0: 8F 20 41 43 3D 41 44 4A 2E 20 43 43 27 53 20 4F |. AC=ADJ. CC'S O|
000052E0: 46 20 50 52 4F 44 55 43 54 20 46 41 2F 48 00 07 |F PRODUCT FA/H..|
000052F0: 5B 86 1A 8F 20 41 46 3D 41 43 54 49 56 49 54 59 |[... AF=ACTIVITY|
00005300: 20 46 41 43 54 4F 52 00 24 5B 90 1A 8F 20 42 4D | FACTOR.$[... BM|
00005310: 3D 42 41 53 45 20 4D 45 54 41 42 4F 4C 49 43 20 |=BASE METABOLIC |
00005320: 52 41 54 45 00 3A 5B 9A 1A 8F 20 42 45 3D 42 41 |RATE.:[... BE=BA|
00005330: 53 41 4C 20 45 4E 45 52 47 59 00 53 5B A4 1A 8F |SAL ENERGY.S[...|
00005340: 20 43 43 3D 43 43 27 53 20 4F 46 20 50 52 4F 44 | CC=CC'S OF PROD|
00005350: 55 43 54 00 65 5B AE 1A 8F 20 43 48 3D 43 48 4F |UCT.e[... CH=CHO|
00005360: 20 43 41 4C 53 00 7A 5B B8 1A 8F 20 43 54 3D 28 | CALS.z[... CT=(|
00005370: 43 48 2F 54 43 29 2A 31 30 30 00 9B 5B C2 1A 8F |CH/TC)*100..[...|
00005380: 20 46 41 3D 42 4D 2D 4D 4C 20 28 50 45 52 20 4B | FA=BM-ML (PER K|
00005390: 49 4C 4F 43 41 4C 4F 52 49 45 29 00 B4 5B CC 1A |ILOCALORIE)..[..|
000053A0: 8F 20 46 43 3D 46 41 54 20 43 41 4C 53 20 28 39 |. FC=FAT CALS (9|
000053B0: 2A 54 46 29 00 C9 5B D6 1A 8F 20 46 54 3D 28 46 |*TF)..[... FT=(F|
000053C0: 43 2F 54 43 29 2A 31 30 30 00 DC 5B E0 1A 8F 20 |C/TC)*100..[... |
000053D0: 47 43 3D 47 52 41 4D 53 20 43 48 4F 00 EF 5B EA |GC=GRAMS CHO..[.|
000053E0: 1A 8F 20 47 46 3D 47 52 41 4D 53 20 46 41 54 00 |.. GF=GRAMS FAT.|
000053F0: 0E 5C F4 1A 8F 20 4B 42 3D 46 41 2F 31 30 30 30 |.\... KB=FA/1000|
00005400: 20 28 50 45 52 20 43 41 4C 4F 52 49 45 29 00 2C | (PER CALORIE).,|
00005410: 5C FE 1A 8F 20 4B 47 3D 50 54 2E 20 57 45 49 47 |\... KG=PT. WEIG|
00005420: 48 54 20 4B 49 4C 4F 47 52 41 4D 53 00 4D 5C 08 |HT KILOGRAMS.M\.|
00005430: 1B 8F 20 4D 46 3D 4D 49 43 52 4F 4C 49 50 49 44 |.. MF=MICROLIPID|
00005440: 20 46 41 54 20 28 37 2E 35 2A 54 42 29 00 71 5C | FAT (7.5*TB).q\|
00005450: 12 1B 8F 20 4D 4C 3D 4D 49 43 52 4F 4C 49 50 49 |... ML=MICROLIPI|
00005460: 44 20 43 43 27 53 20 28 54 42 2A 32 32 2E 33 33 |D CC'S (TB*22.33|
00005470: 29 00 88 5C 1C 1B 8F 20 4E 46 3D 49 4E 4A 55 52 |)..\... NF=INJUR|
00005480: 59 20 46 41 43 54 4F 52 00 99 5C 26 1B 8F 20 50 |Y FACTOR..\&.. P|
00005490: 41 3D 50 54 2E 20 41 47 45 00 B9 5C 30 1B 8F 20 |A=PT. AGE..\0.. |
000054A0: 50 43 3D 50 54 2E 20 48 45 49 47 48 54 20 43 45 |PC=PT. HEIGHT CE|
000054B0: 4E 54 49 4D 45 54 45 52 53 00 D4 5C 3A 1B 8F 20 |NTIMETERS..\:.. |
000054C0: 50 48 3D 50 54 2E 20 48 45 49 47 48 54 20 49 4E |PH=PT. HEIGHT IN|
000054D0: 43 48 45 53 00 F0 5C 44 1B 8F 20 50 57 3D 50 54 |CHES..\D.. PW=PT|
000054E0: 2E 20 57 45 49 47 48 54 20 49 4E 20 4C 42 53 2E |. WEIGHT IN LBS.|
000054F0: 00 03 5D 4E 1B 8F 20 53 45 24 3D 20 50 54 2E 20 |..]N.. SE$= PT. |
00005500: 53 45 58 00 26 5D 58 1B 8F 20 54 42 3D 54 41 42 |SEX.&]X.. TB=TAB|
00005510: 4C 45 53 50 4F 4F 4E 53 20 4F 46 20 4D 49 43 52 |LESPOONS OF MICR|
00005520: 4F 4C 49 50 49 44 00 3B 5D 62 1B 8F 20 54 43 3D |OLIPID.;]b.. TC=|
00005530: 54 4F 54 41 4C 20 43 41 4C 53 2E 00 57 5D 6C 1B |TOTAL CALS..W]l.|
00005540: 8F 20 54 46 3D 54 4F 54 41 4C 20 47 52 41 4D 53 |. TF=TOTAL GRAMS|
00005550: 20 4F 46 20 46 41 54 00 7C 5D 76 1B 8F 20 2A 2A | OF FAT.|]v.. **|
00005560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 5D 80 |************..].|
00005580: 1B 8F 20 2A 2A 2A 2A 2A 20 53 45 54 20 53 54 41 |.. ***** SET STA|
00005590: 52 54 20 56 41 4C 55 45 53 20 2A 2A 2A 2A 2A 2A |RT VALUES ******|
000055A0: 00 C5 5D 8A 1B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..]... *********|
000055B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000055C0: 2A 2A 2A 2A 2A 00 E3 5D 94 1B 50 57 B2 30 3A 53 |*****..]..PW.0:S|
000055D0: 45 24 B2 22 22 3A 41 46 B2 31 2E 32 3A 4E 46 B2 |E$."":AF.1.2:NF.|
000055E0: 31 2E 32 00 01 5E 9E 1B 50 24 B2 22 43 49 42 22 |1.2..^..P$."CIB"|
000055F0: 3A 50 41 B2 30 3A 53 45 24 B2 22 4D 22 3A 53 B2 |:PA.0:SE$."M":S.|
00005600: 31 00 26 5E A8 1B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |1.&^... ********|
00005610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005620: 2A 2A 2A 2A 2A 2A 00 4B 5E B2 1B 8F 20 2A 2A 2A |******.K^... ***|
00005630: 2A 2A 2A 2A 20 20 53 45 54 55 50 20 53 43 52 45 |**** SETUP SCRE|
00005640: 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 00 70 5E BC 1B |EN ********.p^..|
00005650: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00005660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005670: 00 97 5E C6 1B 99 22 93 11 20 20 20 20 20 20 20 |..^...".. |
00005680: 20 20 20 20 20 AA B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 | ...........|
00005690: B7 B7 B7 B7 B7 B4 22 00 BC 5E D0 1B 99 22 20 20 |......"..^..." |
000056A0: 20 20 20 20 20 20 20 20 20 20 AA 20 46 41 54 2F | . FAT/|
000056B0: 43 48 4F 20 52 41 54 49 4F 20 B4 22 00 E1 5E DA |CHO RATIO ."..^.|
000056C0: 1B 99 22 20 20 20 20 20 20 20 20 20 20 20 20 AA |.." .|
000056D0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF B4 |................|
000056E0: 22 00 FF 5E E4 1B 8F 20 50 4F 4B 45 31 39 2C 36 |"..^... POKE19,6|
000056F0: 34 3A 52 45 4D 20 52 45 4D 4F 56 45 53 20 3F 00 |4:REM REMOVES ?.|
00005700: 2E 5F EE 1B 99 22 B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 |._..."..........|
00005710: C3 C3 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 C3 C3 C3 C3 |................|
00005720: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 AE 22 00 5D |.............".]|
00005730: 5F F8 1B 99 22 C2 20 50 52 4F 44 55 43 54 20 20 |_...". PRODUCT |
00005740: 46 41 54 2F 43 48 4F 20 C2 20 50 52 4F 44 55 43 |FAT/CHO . PRODUC|
00005750: 54 20 20 46 41 54 2F 43 48 4F 20 C2 22 00 8C 5F |T FAT/CHO .".._|
00005760: 02 1C 99 22 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..."............|
00005770: C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 C3 C3 C3 C3 |................|
00005780: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 BB 5F 0C |...........".._.|
00005790: 1C 99 22 C2 20 53 55 53 54 41 43 41 4C 20 20 32 |..". SUSTACAL 2|
000057A0: 37 2F 37 33 20 20 C2 20 43 4F 4D 50 4C 45 54 45 |7/73 . COMPLETE|
000057B0: 20 42 20 34 33 2F 35 37 20 C2 22 00 EA 5F 16 1C | B 43/57 .".._..|
000057C0: 99 22 C2 20 49 53 4F 43 41 4C 20 20 20 20 34 33 |.". ISOCAL 43|
000057D0: 2F 35 37 20 20 C2 20 45 4E 53 55 52 45 20 20 20 |/57 . ENSURE |
000057E0: 20 20 33 37 2F 36 33 20 C2 22 00 19 60 20 1C 99 | 37/63 ."..` ..|
000057F0: 22 C2 20 53 55 53 54 41 43 41 4C 20 20 20 20 20 |". SUSTACAL |
00005800: 20 20 20 20 C2 20 45 4E 53 55 52 45 20 20 20 20 | . ENSURE |
00005810: 20 20 20 20 20 20 20 C2 22 00 48 60 2A 1C 99 22 | .".H`*.."|
00005820: C2 20 20 20 20 48 43 20 20 20 20 20 34 30 2F 36 |. HC 40/6|
00005830: 30 20 20 C2 20 20 50 4C 55 53 20 20 20 20 20 20 |0 . PLUS |
00005840: 33 37 2F 36 33 20 C2 22 00 77 60 34 1C 99 22 C2 |37/63 .".w`4..".|
00005850: 20 49 53 4F 43 41 4C 20 20 20 20 20 20 20 20 20 | ISOCAL |
00005860: 20 20 C2 20 50 52 4F 54 41 47 45 4E 20 20 20 34 | . PROTAGEN 4|
00005870: 38 2F 35 32 20 C2 22 00 A6 60 3E 1C 99 22 C2 20 |8/52 ."..`>..". |
00005880: 20 20 48 43 4E 20 20 20 20 20 34 38 2F 35 32 20 | HCN 48/52 |
00005890: 20 C2 20 56 49 56 4F 4E 45 58 20 20 20 20 20 31 | . VIVONEX 1|
000058A0: 2F 39 39 20 C2 22 00 D5 60 48 1C 99 22 C2 20 56 |/99 ."..`H..". V|
000058B0: 49 56 4F 4E 45 58 20 20 20 20 20 20 20 20 20 20 |IVONEX |
000058C0: C2 20 41 4D 49 4E 20 41 49 44 20 20 20 33 33 2F |. AMIN AID 33/|
000058D0: 36 37 20 C2 22 00 04 61 52 1C 99 22 C2 20 20 20 |67 ."..aR..". |
000058E0: 20 48 4E 20 20 20 20 20 20 31 2F 39 39 20 20 C2 | HN 1/99 .|
000058F0: 20 54 52 41 56 45 53 4F 52 42 20 20 20 20 20 20 | TRAVESORB |
00005900: 20 20 C2 22 00 33 61 5C 1C 99 22 C2 20 43 49 42 | .".3a\..". CIB|
00005910: 20 20 20 20 20 20 20 33 33 2F 36 37 20 20 C2 20 | 33/67 . |
00005920: 20 52 45 4E 41 4C 20 20 20 20 20 31 35 2F 38 37 | RENAL 15/87|
00005930: 20 C2 22 00 62 61 66 1C 99 22 C2 20 4E 55 54 52 | .".baf..". NUTR|
00005940: 41 4D 45 4E 54 20 33 30 2F 37 30 20 20 C2 20 43 |AMENT 30/70 . C|
00005950: 49 54 52 4F 54 45 4E 45 20 20 20 35 2F 39 35 20 |ITROTENE 5/95 |
00005960: C2 22 00 91 61 70 1C 99 22 AD C3 C3 C3 C3 C3 C3 |."..ap..".......|
00005970: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 |................|
00005980: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD |................|
00005990: 22 00 C0 61 7A 1C 99 22 11 49 4E 20 4F 52 44 45 |"..az..".IN ORDE|
000059A0: 52 20 54 4F 20 43 48 41 4E 47 45 20 52 41 54 49 |R TO CHANGE RATI|
000059B0: 4F 3A 20 45 58 41 4D 50 4C 45 3A 20 37 43 43 22 |O: EXAMPLE: 7CC"|
000059C0: 00 EE 61 84 1C 99 22 4F 46 20 53 41 46 46 4C 4F |..a..."OF SAFFLO|
000059D0: 57 45 52 20 4F 49 4C 20 54 4F 20 45 41 43 48 20 |WER OIL TO EACH |
000059E0: 43 41 4E 20 4F 46 20 45 4E 53 55 52 45 22 00 0D |CAN OF ENSURE"..|
000059F0: 62 8E 1C 99 22 57 49 4C 4C 20 47 49 56 45 20 41 |b..."WILL GIVE A|
00005A00: 20 35 30 2F 35 30 20 52 41 54 49 4F 22 00 40 62 | 50/50 RATIO".@b|
00005A10: 98 1C 99 22 11 54 59 50 45 20 4E 41 4D 45 20 4F |...".TYPE NAME O|
00005A20: 46 20 50 52 4F 44 55 43 54 20 4E 45 45 44 45 44 |F PRODUCT NEEDED|
00005A30: 3A 22 3B C7 28 31 33 29 3B 22 20 20 22 3B 50 24 |:";.(13);" ";P$|
00005A40: 00 4C 62 A2 1C 85 22 91 22 3B 50 24 00 71 62 AC |.Lb...".";P$.qb.|
00005A50: 1C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00005A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005A70: 2A 00 96 62 B6 1C 8F 20 2A 2A 2A 2A 20 50 24 20 |*..b... **** P$ |
00005A80: 50 4F 53 53 49 42 4C 45 20 50 52 4F 44 55 43 54 |POSSIBLE PRODUCT|
00005A90: 53 20 2A 2A 2A 2A 00 BB 62 C0 1C 8F 20 2A 2A 2A |S ****..b... ***|
00005AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E5 62 CA 1C |***********..b..|
00005AC0: 8B 50 24 B2 22 53 55 53 54 41 43 41 4C 22 A7 4E |.P$."SUSTACAL".N|
00005AD0: 24 B2 22 32 37 2F 37 33 22 3A 8D 38 31 31 30 3A |$."27/73":.8110:|
00005AE0: 89 37 35 36 30 00 11 63 D4 1C 8B 50 24 B2 22 43 |.7560..c...P$."C|
00005AF0: 4F 4D 50 4C 45 54 45 20 42 22 A7 4E 24 B2 22 34 |OMPLETE B".N$."4|
00005B00: 33 2F 35 37 22 3A 8D 38 31 31 30 3A 89 37 35 36 |3/57":.8110:.756|
00005B10: 30 00 39 63 DE 1C 8B 50 24 B2 22 49 53 4F 43 41 |0.9c...P$."ISOCA|
00005B20: 4C 22 A7 4E 24 B2 22 34 33 2F 35 37 22 3A 8D 38 |L".N$."43/57":.8|
00005B30: 31 31 30 3A 89 37 35 36 30 00 61 63 E8 1C 8B 50 |110:.7560.ac...P|
00005B40: 24 B2 22 45 4E 53 55 52 45 22 A7 4E 24 B2 22 33 |$."ENSURE".N$."3|
00005B50: 37 2F 36 33 22 3A 8D 38 31 31 30 3A 89 37 35 36 |7/63":.8110:.756|
00005B60: 30 00 8E 63 F2 1C 8B 50 24 B2 22 53 55 53 54 41 |0..c...P$."SUSTA|
00005B70: 43 41 4C 20 48 43 22 A7 4E 24 B2 22 34 30 2F 36 |CAL HC".N$."40/6|
00005B80: 30 22 3A 8D 38 31 31 30 3A 89 37 35 36 30 00 BB |0":.8110:.7560..|
00005B90: 63 FC 1C 8B 50 24 B2 22 45 4E 53 55 52 45 20 50 |c...P$."ENSURE P|
00005BA0: 4C 55 53 22 A7 4E 24 B2 22 33 37 2F 36 33 22 3A |LUS".N$."37/63":|
00005BB0: 8D 38 31 31 30 3A 89 37 35 36 30 00 E7 63 06 1D |.8110:.7560..c..|
00005BC0: 8B 50 24 B2 22 49 53 4F 43 41 4C 20 48 43 4E 22 |.P$."ISOCAL HCN"|
00005BD0: A7 4E 24 B2 22 34 38 2F 35 32 22 3A 8D 38 31 31 |.N$."48/52":.811|
00005BE0: 30 3A 89 37 35 36 30 00 11 64 10 1D 8B 50 24 B2 |0:.7560..d...P$.|
00005BF0: 22 50 52 4F 54 41 47 45 4E 22 A7 4E 24 B2 22 34 |"PROTAGEN".N$."4|
00005C00: 38 2F 35 32 22 3A 8D 38 31 31 30 3A 89 37 35 36 |8/52":.8110:.756|
00005C10: 30 00 3A 64 1A 1D 8B 50 24 B2 22 56 49 56 4F 4E |0.:d...P$."VIVON|
00005C20: 45 58 22 A7 4E 24 B2 22 20 31 2F 39 39 22 3A 8D |EX".N$." 1/99":.|
00005C30: 38 31 31 30 3A 89 37 35 36 30 00 66 64 24 1D 8B |8110:.7560.fd$..|
00005C40: 50 24 B2 22 49 56 49 4F 4E 45 58 20 48 4E 22 A7 |P$."IVIONEX HN".|
00005C50: 4E 24 B2 22 20 31 2F 39 39 22 3A 8D 38 31 31 30 |N$." 1/99":.8110|
00005C60: 3A 89 37 35 36 30 00 90 64 2E 1D 8B 50 24 B2 22 |:.7560..d...P$."|
00005C70: 41 4D 49 4E 20 41 49 44 22 A7 4E 24 B2 22 33 33 |AMIN AID".N$."33|
00005C80: 2F 36 37 22 3A 8D 38 31 31 30 3A 89 37 35 36 30 |/67":.8110:.7560|
00005C90: 00 C1 64 38 1D 8B 50 24 B2 22 54 52 41 56 45 53 |..d8..P$."TRAVES|
00005CA0: 4F 52 42 20 52 45 4E 41 4C 22 A7 4E 24 B2 22 31 |ORB RENAL".N$."1|
00005CB0: 35 2F 38 37 22 3A 8D 38 31 31 30 3A 89 37 35 36 |5/87":.8110:.756|
00005CC0: 30 00 E6 64 42 1D 8B 50 24 B2 22 43 49 42 22 A7 |0..dB..P$."CIB".|
00005CD0: 4E 24 B2 22 33 33 2F 36 37 22 3A 8D 38 31 31 30 |N$."33/67":.8110|
00005CE0: 3A 89 37 35 36 30 00 11 65 4C 1D 8B 50 24 B2 22 |:.7560..eL..P$."|
00005CF0: 4E 55 54 52 41 4D 45 4E 54 22 A7 4E 24 B2 22 33 |NUTRAMENT".N$."3|
00005D00: 30 2F 37 30 22 3A 8D 38 31 31 30 3A 89 37 35 36 |0/70":.8110:.756|
00005D10: 30 00 3C 65 56 1D 8B 50 24 B2 22 43 49 54 52 4F |0.<eV..P$."CITRO|
00005D20: 54 45 4E 45 22 A7 4E 24 B2 22 20 35 2F 39 35 22 |TENE".N$." 5/95"|
00005D30: 3A 8D 38 31 31 30 3A 89 37 35 36 30 00 71 65 60 |:.8110:.7560.qe`|
00005D40: 1D 99 22 93 11 11 11 11 11 11 11 11 11 11 11 49 |.."............I|
00005D50: 4E 43 4F 52 52 45 43 54 20 53 50 45 4C 4C 49 4E |NCORRECT SPELLIN|
00005D60: 47 20 4F 52 20 4E 4F 54 20 4C 49 53 54 45 44 21 |G OR NOT LISTED!|
00005D70: 22 00 A4 65 6A 1D 99 22 C5 C5 C5 C5 C5 C5 C5 C5 |"..ej.."........|
00005D80: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00005D90: C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 81 54 B2 31 A4 |.........":.T.1.|
00005DA0: 32 30 30 30 00 B1 65 74 1D 82 54 3A 89 37 31 31 |2000..et..T:.711|
00005DB0: 30 00 D6 65 7E 1D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0..e~.. ********|
00005DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005DD0: 2A 2A 2A 2A 2A 2A 00 00 66 88 1D 99 22 11 45 4E |******..f...".EN|
00005DE0: 54 45 52 20 50 41 54 49 45 4E 54 20 57 45 49 47 |TER PATIENT WEIG|
00005DF0: 48 54 20 49 4E 20 4C 42 53 2E 20 20 22 3B 50 57 |HT IN LBS. ";PW|
00005E00: 00 1D 66 92 1D 99 A6 32 39 29 3A 85 22 91 22 3B |..f....29):.".";|
00005E10: 50 57 3A 8B 50 57 B2 30 A7 37 31 31 30 00 3C 66 |PW:.PW.0.7110.<f|
00005E20: 9C 1D 4B 47 B2 B5 28 28 50 57 AC 2E 34 35 34 35 |..KG..((PW..4545|
00005E30: 34 35 29 AC 31 30 30 29 AD 31 30 30 00 67 66 A6 |45).100).100.gf.|
00005E40: 1D 99 22 11 45 4E 54 45 52 20 50 41 54 49 45 4E |..".ENTER PATIEN|
00005E50: 54 20 48 45 49 47 48 54 20 49 4E 20 49 4E 43 48 |T HEIGHT IN INCH|
00005E60: 45 53 20 22 3B 50 48 00 83 66 B0 1D 50 43 B2 B5 |ES ";PH..f..PC..|
00005E70: 28 28 50 48 AC 32 2E 35 34 29 AC 31 30 30 29 AD |((PH.2.54).100).|
00005E80: 31 30 30 00 A7 66 BA 1D 99 A6 33 30 29 3A 85 22 |100..f....30):."|
00005E90: 91 22 3B 50 48 3A 8B 50 48 B2 30 A7 8D 38 31 31 |.";PH:.PH.0..811|
00005EA0: 30 3A 89 37 35 36 30 00 C3 66 C4 1D 50 43 B2 B5 |0:.7560..f..PC..|
00005EB0: 28 28 50 48 AC 32 2E 35 34 29 AC 31 30 30 29 AD |((PH.2.54).100).|
00005EC0: 31 30 30 00 E1 66 CE 1D 99 22 11 45 4E 54 45 52 |100..f...".ENTER|
00005ED0: 20 50 41 54 49 45 4E 54 20 41 47 45 20 22 3B 50 | PATIENT AGE ";P|
00005EE0: 41 00 05 67 D8 1D 99 A6 31 37 29 3A 85 22 91 22 |A..g....17):."."|
00005EF0: 3B 50 41 3A 8B 50 41 B2 30 A7 8D 38 31 31 30 3A |;PA:.PA.0..8110:|
00005F00: 89 37 35 36 30 00 2D 67 E2 1D 99 22 11 45 4E 54 |.7560.-g...".ENT|
00005F10: 45 52 20 50 41 54 49 45 4E 54 27 53 20 53 45 58 |ER PATIENT'S SEX|
00005F20: 20 28 4D 2F 46 29 20 20 22 3B 53 45 24 00 40 67 | (M/F) ";SE$.@g|
00005F30: EC 1D 99 A6 32 35 29 3A 85 22 91 22 3B 53 45 24 |....25):.".";SE$|
00005F40: 00 52 67 F6 1D 8B 53 45 24 B2 22 4D 22 A7 37 37 |.Rg...SE$."M".77|
00005F50: 30 30 00 64 67 00 1E 8B 53 45 24 B2 22 46 22 A7 |00.dg...SE$."F".|
00005F60: 37 37 31 30 00 74 67 0A 1E 8D 38 31 31 30 3A 89 |7710.tg...8110:.|
00005F70: 37 35 36 30 00 A1 67 14 1E 42 45 B2 B5 28 36 36 |7560..g..BE..(66|
00005F80: AA 28 31 33 2E 37 AC 4B 47 29 AA 28 35 AC 50 43 |.(13.7.KG).(5.PC|
00005F90: 29 AB 28 36 2E 38 AC 50 41 29 29 3A 89 37 37 32 |).(6.8.PA)):.772|
00005FA0: 30 00 CA 67 1E 1E 42 45 B2 B5 28 36 35 35 AA 28 |0..g..BE..(655.(|
00005FB0: 39 2E 36 AC 4B 47 29 AA 28 31 2E 37 AC 50 43 29 |9.6.KG).(1.7.PC)|
00005FC0: AB 28 34 2E 37 AC 50 41 29 29 00 DA 67 28 1E 8D |.(4.7.PA))..g(..|
00005FD0: 38 31 38 30 3A 8D 38 33 30 30 00 1D 68 32 1E 99 |8180:.8300..h2..|
00005FE0: 22 C2 41 43 54 2E 20 46 41 43 54 4F 52 20 3D 22 |".ACT. FACTOR ="|
00005FF0: 3B 41 46 3A 99 22 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 |;AF:."..........|
00006000: C3 C3 C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 C3 |................|
00006010: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 22 00 30 68 |............".0h|
00006020: 3C 1E 99 A6 31 33 29 3A 85 22 91 91 22 3B 41 46 |<...13):."..";AF|
00006030: 00 5D 68 46 1E 99 A6 31 38 29 22 91 C2 49 4E 4A |.]hF...18)"..INJ|
00006040: 2E 20 46 41 43 54 4F 52 20 3D 22 3B 4E 46 3B 3A |. FACTOR =";NF;:|
00006050: 99 A6 33 34 29 3A 85 22 91 22 3B 4E 46 00 70 68 |..34):.".";NF.ph|
00006060: 50 1E 42 4D B2 B5 28 42 45 AC 41 46 AC 4E 46 29 |P.BM..(BE.AF.NF)|
00006070: 00 86 68 5A 1E 8D 38 31 38 30 3A 8D 38 34 31 30 |..hZ..8180:.8410|
00006080: 3A 8D 38 35 35 30 00 98 68 64 1E 8B 43 24 B2 22 |:.8550..hd..C$."|
00006090: 59 22 A7 89 37 31 31 30 00 B0 68 6E 1E 81 58 B2 |Y"..7110..hn..X.|
000060A0: 30 A4 33 39 3A 99 A6 58 29 22 91 20 22 3A 82 58 |0.39:..X)". ":.X|
000060B0: 00 E0 68 78 1E 99 22 91 91 31 20 54 42 53 50 20 |..hx.."..1 TBSP |
000060C0: 4F 46 20 4D 49 43 52 4F 4C 49 50 49 44 20 45 51 |OF MICROLIPID EQ|
000060D0: 55 41 4C 53 20 32 32 2E 33 33 20 43 41 4C 53 22 |UALS 22.33 CALS"|
000060E0: 00 F2 68 82 1E 99 22 91 50 45 52 20 54 42 53 50 |..h...".PER TBSP|
000060F0: 2E 22 00 1F 69 8C 1E 99 22 11 48 4F 57 20 4D 41 |."..i...".HOW MA|
00006100: 4E 59 20 54 42 53 50 20 44 4F 20 59 4F 55 20 57 |NY TBSP DO YOU W|
00006110: 41 4E 54 20 54 4F 20 41 44 44 20 22 3B 54 42 00 |ANT TO ADD ";TB.|
00006120: 31 69 96 1E 99 A6 33 32 29 3A 85 22 91 22 3B 54 |1i....32):.".";T|
00006130: 42 00 37 69 A0 1E 8C 00 47 69 AA 1E 87 44 24 2C |B.7i....Gi...D$,|
00006140: 45 2C 46 2C 47 2C 48 00 57 69 B4 1E 8B 44 24 B2 |E,F,G,H.Wi...D$.|
00006150: 50 24 A7 37 38 39 30 00 91 69 BE 1E 8B 44 24 B2 |P$.7890..i...D$.|
00006160: 22 39 39 39 22 A7 99 22 93 11 11 11 11 11 11 44 |"999"..".......D|
00006170: 41 54 41 20 45 52 52 4F 52 20 43 41 4C 4C 20 42 |ATA ERROR CALL B|
00006180: 49 4F 4D 45 44 20 50 48 23 20 34 33 30 33 22 3A |IOMED PH# 4303":|
00006190: 80 00 9B 69 C8 1E 89 37 38 35 30 00 AB 69 D2 1E |...i...7850..i..|
000061A0: 4D 4C B2 B5 28 54 42 AC 36 37 29 00 B8 69 DC 1E |ML..(TB.67)..i..|
000061B0: 46 41 B2 42 4D AB 4D 4C 00 C4 69 E6 1E 41 43 B2 |FA.BM.ML..i..AC.|
000061C0: 46 41 AD 48 00 D3 69 F0 1E 4B 42 B2 46 41 AD 31 |FA.H..i..KB.FA.1|
000061D0: 30 30 30 00 DF 69 FA 1E 47 46 B2 46 AC 4B 42 00 |000..i..GF.F.KB.|
000061E0: EB 69 04 1F 47 43 B2 47 AC 4B 42 00 F9 69 0E 1F |.i..GC.G.KB..i..|
000061F0: 4D 46 B2 37 2E 35 AC 54 42 00 06 6A 18 1F 54 46 |MF.7.5.TB..j..TF|
00006200: B2 4D 46 AA 47 46 00 12 6A 22 1F 46 43 B2 39 AC |.MF.GF..j".FC.9.|
00006210: 54 46 00 1E 6A 2C 1F 43 48 B2 34 AC 47 43 00 2B |TF..j,.CH.4.GC.+|
00006220: 6A 36 1F 54 43 B2 46 43 AA 43 48 00 41 6A 40 1F |j6.TC.FC.CH.Aj@.|
00006230: 46 54 B2 B5 28 28 46 43 AD 54 43 29 AC 31 30 30 |FT..((FC.TC).100|
00006240: 29 00 57 6A 4A 1F 43 54 B2 B5 28 28 43 48 AD 54 |).WjJ.CT..((CH.T|
00006250: 43 29 AC 31 30 30 29 00 63 6A 54 1F 43 43 B2 42 |C).100).cjT.CC.B|
00006260: 4D AD 48 00 77 6A 5E 1F 8D 38 34 33 30 3A 8D 38 |M.H.wj^..8430:.8|
00006270: 37 34 30 3A 53 B2 31 00 88 6A 68 1F 8B 43 24 B2 |740:S.1..jh..C$.|
00006280: 22 43 22 A7 37 37 37 30 00 9A 6A 72 1F 8B 43 24 |"C".7770..jr..C$|
00006290: B2 22 50 22 A7 8D 39 32 36 30 00 A5 6A 7C 1F 9C |."P"..9260..j|..|
000062A0: 3A 89 31 30 30 00 AB 6A 86 1F 80 00 D0 6A 90 1F |:.100..j.....j..|
000062B0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000062C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000062D0: 00 F5 6A 9A 1F 8F 20 2A 2A 2A 2A 2A 2A 20 47 4F |..j... ****** GO|
000062E0: 53 55 42 20 4C 4F 43 41 54 49 4F 4E 53 20 2A 2A |SUB LOCATIONS **|
000062F0: 2A 2A 2A 2A 2A 00 1A 6B A4 1F 8F 20 2A 2A 2A 2A |*****..k... ****|
00006300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 6B AE 1F 99 |**********.Bk...|
00006320: 22 93 11 B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
00006330: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006340: AE 22 00 68 6B B8 1F 99 22 C2 20 50 52 4F 44 55 |.".hk...". PRODU|
00006350: 43 54 20 20 20 20 20 20 20 20 20 20 20 20 46 41 |CT FA|
00006360: 54 2F 43 48 4F 20 C2 22 00 8E 6B C2 1F 99 22 AB |T/CHO ."..k...".|
00006370: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006380: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 9B |............."..|
00006390: 6B CC 1F 99 22 C2 20 22 3B 50 24 00 C3 6B D6 1F |k...". ";P$..k..|
000063A0: 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000063B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 24 3B 22 20 |.........";N$;" |
000063C0: 20 C2 22 00 EB 6B E0 1F 99 22 AD C3 C3 C3 C3 C3 | ."..k..."......|
000063D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000063E0: C3 C3 C3 C3 C3 C3 C3 BD 22 3A 8E 00 F1 6B EA 1F |........":...k..|
000063F0: 8E 00 15 6C F4 1F 99 22 93 11 B0 C3 C3 C3 C3 C3 |...l..."........|
00006400: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006410: C3 C3 C3 AE 22 00 37 6C FE 1F 99 22 C2 20 20 50 |....".7l...". P|
00006420: 41 54 49 45 4E 54 20 49 4E 46 4F 52 4D 41 54 49 |ATIENT INFORMATI|
00006430: 4F 4E 20 20 20 C2 22 00 59 6C 08 20 99 22 AB C3 |ON .".Yl. ."..|
00006440: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006450: C3 C3 C3 C3 C3 C3 C3 B3 22 00 75 6C 12 20 99 22 |........".ul. ."|
00006460: C2 22 3B 50 24 3A 99 A6 32 30 29 22 91 22 3B 4E |.";P$:..20)".";N|
00006470: 24 3B 22 C2 22 00 9D 6C 1C 20 99 22 C2 50 54 2E |$;"."..l. .".PT.|
00006480: 20 41 47 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 22 | AGE --------- "|
00006490: 3B 50 41 3A 99 A6 32 35 29 22 91 C2 22 00 C7 6C |;PA:..25)".."..l|
000064A0: 26 20 99 22 C2 50 54 2E 20 53 45 58 20 2D 2D 2D |& .".PT. SEX ---|
000064B0: 2D 2D 2D 2D 2D 2D 20 20 22 3B 53 45 24 3A 99 A6 |------ ";SE$:..|
000064C0: 32 35 29 22 91 C2 22 00 EF 6C 30 20 99 22 C2 50 |25)".."..l0 .".P|
000064D0: 54 2E 20 57 45 49 47 48 54 20 2D 2D 2D 2D 2D 2D |T. WEIGHT ------|
000064E0: 20 22 3B 50 57 3A 99 A6 32 35 29 22 91 C2 22 00 | ";PW:..25)"..".|
000064F0: 17 6D 3A 20 99 22 C2 49 4E 20 4B 47 53 2E 20 2D |.m: .".IN KGS. -|
00006500: 2D 2D 2D 2D 2D 2D 2D 2D 20 22 3B 4B 47 3A 99 A6 |-------- ";KG:..|
00006510: 32 35 29 22 91 C2 22 00 3F 6D 44 20 99 22 C2 50 |25)"..".?mD .".P|
00006520: 54 2E 20 48 45 49 47 48 54 20 2D 2D 2D 2D 2D 2D |T. HEIGHT ------|
00006530: 20 22 3B 50 48 3A 99 A6 32 35 29 22 91 C2 22 00 | ";PH:..25)"..".|
00006540: 67 6D 4E 20 99 22 C2 49 4E 20 43 4D 27 53 20 2D |gmN .".IN CM'S -|
00006550: 2D 2D 2D 2D 2D 2D 2D 2D 20 22 3B 50 43 3A 99 A6 |-------- ";PC:..|
00006560: 32 35 29 22 91 C2 22 00 91 6D 58 20 99 22 C2 42 |25)".."..mX .".B|
00006570: 41 53 41 4C 20 45 4E 45 52 47 59 20 45 58 50 2E |ASAL ENERGY EXP.|
00006580: 20 22 3B 42 45 3A 99 A6 32 35 29 22 91 C2 22 3A | ";BE:..25)"..":|
00006590: 8E 00 B5 6D 62 20 99 22 AD C3 C3 C3 C3 C3 C3 C3 |...mb ."........|
000065A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000065B0: C3 BD 22 3A 8E 00 E4 6D 6C 20 99 22 91 AB C3 C3 |..":...ml ."....|
000065C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000065D0: C3 C3 C3 C3 C3 C3 B1 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000065E0: C3 C3 AE 22 00 12 6E 76 20 99 22 C2 20 20 20 20 |..."..nv .". |
000065F0: 20 20 20 20 42 41 53 45 20 4D 45 54 4F 42 4C 49 | BASE METOBLI|
00006600: 43 20 52 41 54 45 20 20 20 20 20 20 20 20 20 20 |C RATE |
00006610: C2 22 00 40 6E 80 20 99 22 AB C3 C3 C3 C3 C3 C3 |.".@n. .".......|
00006620: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B2 C3 C3 C3 C3 |................|
00006630: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 |..............."|
00006640: 00 6E 6E 8A 20 99 22 C2 20 41 43 54 49 56 49 54 |.nn. .". ACTIVIT|
00006650: 59 20 46 41 43 54 4F 52 20 C2 20 20 20 49 4E 4A |Y FACTOR . INJ|
00006660: 55 52 59 20 46 41 43 54 4F 52 20 20 C2 22 00 9C |URY FACTOR ."..|
00006670: 6E 94 20 99 22 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |n. ."...........|
00006680: C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006690: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 CA 6E 9E |..........."..n.|
000066A0: 20 99 22 C2 20 43 4F 4E 46 49 4E 45 44 20 54 4F | .". CONFINED TO|
000066B0: 20 20 20 20 20 C2 20 20 20 4D 49 4E 2E 20 4F 50 | . MIN. OP|
000066C0: 45 52 2E 20 31 2E 32 20 C2 22 00 F8 6E A8 20 99 |ER. 1.2 ."..n. .|
000066D0: 22 C2 20 42 45 44 20 2D 2D 2D 2D 2D 2D 2D 20 31 |". BED ------- 1|
000066E0: 2E 32 20 C2 20 20 20 53 4B 45 4C 2E 20 54 52 41 |.2 . SKEL. TRA|
000066F0: 2E 20 31 2E 33 35 C2 22 00 26 6F B2 20 99 22 C2 |. 1.35.".&o. .".|
00006700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006710: 20 C2 20 20 20 4D 41 4A 2E 20 53 45 50 49 53 20 | . MAJ. SEPIS |
00006720: 31 2E 36 30 C2 22 00 54 6F BC 20 99 22 C2 20 4F |1.60.".To. .". O|
00006730: 55 54 20 4F 46 20 42 45 44 20 20 31 2E 33 20 C2 |UT OF BED 1.3 .|
00006740: 20 20 20 53 45 56 2E 20 42 55 52 4E 20 20 32 2E | SEV. BURN 2.|
00006750: 31 30 C2 22 00 82 6F C6 20 99 22 C2 20 4F 54 48 |10."..o. .". OTH|
00006760: 45 52 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 C2 20 20 |ER --------- . |
00006770: 20 4F 54 48 45 52 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | OTHER ---------|
00006780: C2 22 00 B2 6F D0 20 99 22 AB C3 C3 C3 C3 C3 C3 |."..o. .".......|
00006790: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 DB C3 C3 C3 C3 |................|
000067A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 |..............."|
000067B0: 3A 8E 00 DA 6F DA 20 99 22 C2 42 41 53 45 20 4D |:...o. .".BASE M|
000067C0: 45 54 2E 20 52 41 54 45 20 2D 2D 2D 22 3B 42 4D |ET. RATE ---";BM|
000067D0: 3A 99 A6 32 35 29 22 91 C2 22 00 FE 6F E4 20 99 |:..25)".."..o. .|
000067E0: 22 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
000067F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 22 3A 8E 00 0B |...........":...|
00006800: 70 EE 20 99 22 91 91 91 91 91 22 00 23 70 F8 20 |p. .".....".#p. |
00006810: 81 58 B2 30 A4 33 39 3A 99 A6 58 29 22 91 20 22 |.X.0.39:..X)". "|
00006820: 3A 82 58 00 38 70 02 21 53 B2 53 AA 31 3A 8B 53 |:.X.8p.!S.S.1:.S|
00006830: B3 36 A7 89 38 34 34 30 00 61 70 0C 21 99 22 91 |.6..8440.ap.!.".|
00006840: 91 91 91 91 91 91 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006850: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 |................|
00006860: 22 00 8A 70 16 21 99 22 C2 43 43 27 53 20 4F 46 |"..p.!.".CC'S OF|
00006870: 20 50 52 4F 44 55 43 54 20 2D 20 22 3B 43 43 3A | PRODUCT - ";CC:|
00006880: 99 A6 32 35 29 22 91 91 C2 22 00 B6 70 20 21 99 |..25)"..."..p !.|
00006890: 22 91 C2 43 41 4C 53 20 4F 46 20 43 48 4F 20 2D |"..CALS OF CHO -|
000068A0: 2D 2D 2D 2D 20 22 3B B5 28 43 48 29 3A 99 A6 32 |---- ";.(CH):..2|
000068B0: 35 29 22 91 C2 22 00 E2 70 2A 21 99 22 C2 43 41 |5)".."..p*!.".CA|
000068C0: 4C 53 20 4F 46 20 46 41 54 20 2D 2D 2D 2D 2D 20 |LS OF FAT ----- |
000068D0: 22 3B B5 28 46 43 29 3A 99 A6 32 35 29 22 91 91 |";.(FC):..25)"..|
000068E0: C2 22 00 16 71 34 21 99 22 91 C2 41 44 4A 2E 20 |."..q4!."..ADJ. |
000068F0: 46 41 54 2F 43 48 4F 20 2D 2D 2D 2D 20 22 3B 46 |FAT/CHO ---- ";F|
00006900: 54 3A 99 A6 32 32 29 22 91 22 43 54 3A 99 A6 32 |T:..22)"."CT:..2|
00006910: 32 29 22 91 2F 22 00 24 71 3E 21 99 A6 32 35 29 |2)"./".$q>!..25)|
00006920: 22 91 C2 22 00 42 71 48 21 99 22 C2 41 44 4A 2E |"..".BqH!.".ADJ.|
00006930: 20 50 52 4F 44 55 43 54 20 43 43 27 53 20 22 3B | PRODUCT CC'S ";|
00006940: 41 43 00 51 71 52 21 99 A6 32 35 29 22 91 91 C2 |AC.QqR!..25)"...|
00006950: 22 00 76 71 5C 21 99 22 91 AD C3 C3 C3 C3 C3 C3 |".vq\!."........|
00006960: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006970: C3 C3 BD 22 3A 8E 00 A6 71 66 21 99 22 11 44 4F |...":...qf!.".DO|
00006980: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 | YOU WANT TO CHA|
00006990: 4E 47 45 20 41 4E 59 54 48 49 4E 47 20 28 59 2F |NGE ANYTHING (Y/|
000069A0: 4E 29 20 20 4E 22 00 BA 71 70 21 99 A6 33 36 29 |N) N"..qp!..36)|
000069B0: 3A 85 22 91 22 3B 43 24 3A 8E 00 DF 71 7A 21 8F |:.".";C$:...qz!.|
000069C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000069D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000069E0: E9 71 84 21 8D 38 38 33 30 00 FB 71 8E 21 8B 43 |.q.!.8830..q.!.C|
000069F0: 24 B2 22 50 22 A7 8D 39 32 36 30 00 04 72 98 21 |$."P"..9260..r.!|
00006A00: 89 32 32 30 00 29 72 A2 21 8F 20 2A 2A 2A 2A 2A |.220.)r.!. *****|
00006A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3C 72 AC 21 99 22 |*********.<r.!."|
00006A30: 93 22 C7 28 35 29 3A 99 3A 99 3A 99 00 42 72 B6 |.".(5):.:.:..Br.|
00006A40: 21 8E 00 67 72 C0 21 8F 20 2A 2A 2A 2A 2A 2A 2A |!..gr.!. *******|
00006A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006A60: 2A 2A 2A 2A 2A 2A 2A 00 8E 72 CA 21 85 22 50 52 |*******..r.!."PR|
00006A70: 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F |ESS RETURN TO CO|
00006A80: 4E 54 49 4E 55 45 22 3B 58 3A 99 22 93 22 00 94 |NTINUE";X:."."..|
00006A90: 72 D4 21 8E 00 B9 72 DE 21 8F 20 2A 2A 2A 2A 2A |r.!...r.!. *****|
00006AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 72 E8 21 85 22 |*********..r.!."|
00006AC0: 53 45 4C 45 43 54 20 4E 55 4D 42 45 52 20 26 20 |SELECT NUMBER & |
00006AD0: 50 52 45 53 53 20 52 45 54 55 52 4E 22 3B 58 3A |PRESS RETURN";X:|
00006AE0: 8E 00 06 73 F2 21 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...s.!. ********|
00006AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006B00: 2A 2A 2A 2A 2A 2A 00 42 73 FC 21 99 22 93 11 11 |******.Bs.!."...|
00006B10: 11 11 11 11 11 11 11 11 11 11 54 48 49 53 20 49 |..........THIS I|
00006B20: 53 20 41 4E 20 49 4E 43 4F 52 52 45 43 54 20 56 |S AN INCORRECT V|
00006B30: 41 4C 55 45 20 54 52 59 20 41 47 49 41 4E 2E 22 |ALUE TRY AGIAN."|
00006B40: 3A 99 00 52 73 06 22 81 4C B2 31 A4 35 30 30 3A |:..Rs.".L.1.500:|
00006B50: 82 4C 00 58 73 10 22 8E 00 7D 73 1A 22 8F 20 2A |.L.Xs."..}s.". *|
00006B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 73 |*************..s|
00006B80: 24 22 99 22 11 54 59 50 45 20 28 43 29 20 46 4F |$".".TYPE (C) FO|
00006B90: 52 20 43 48 41 4E 47 45 2C 20 28 50 29 20 54 4F |R CHANGE, (P) TO|
00006BA0: 20 50 52 49 4E 54 2C 20 4F 52 22 00 C2 73 2E 22 | PRINT, OR"..s."|
00006BB0: 99 22 28 4D 29 20 46 4F 52 20 4D 45 4E 55 20 20 |."(M) FOR MENU |
00006BC0: 43 22 00 D4 73 38 22 99 A6 31 32 29 3A 85 22 91 |C"..s8"..12):.".|
00006BD0: 22 3B 43 24 00 1B 74 42 22 99 22 91 91 20 20 20 |";C$..tB".".. |
00006BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006C10: 20 20 20 20 20 20 20 20 22 3A 8E 00 40 74 4C 22 | ":..@tL"|
00006C20: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00006C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006C40: 00 70 74 56 22 99 22 11 54 59 50 45 20 28 43 29 |.ptV".".TYPE (C)|
00006C50: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4F 52 20 | TO CONTINUE OR |
00006C60: 28 4D 29 20 46 4F 52 20 4D 45 4E 55 20 20 43 22 |(M) FOR MENU C"|
00006C70: 00 82 74 60 22 99 A6 33 36 29 3A 85 22 91 22 3B |..t`"..36):.".";|
00006C80: 43 24 00 B4 74 6A 22 99 22 91 20 20 20 20 20 20 |C$..tj".". |
00006C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006CB0: 20 22 3A 8E 00 D9 74 74 22 8F 20 2A 2A 2A 2A 2A | ":...tt". *****|
00006CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 06 75 7E 22 99 22 |*********..u~"."|
00006CE0: 11 54 59 50 45 20 28 50 29 20 54 4F 20 50 52 49 |.TYPE (P) TO PRI|
00006CF0: 4E 54 20 4F 52 20 28 4D 29 20 46 4F 52 20 4D 45 |NT OR (M) FOR ME|
00006D00: 4E 55 20 20 4D 22 00 18 75 88 22 99 A6 33 33 29 |NU M"..u."..33)|
00006D10: 3A 85 22 91 22 3B 43 24 00 48 75 92 22 99 22 91 |:.".";C$.Hu.".".|
00006D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006D40: 20 20 20 20 20 22 3A 8E 00 6D 75 9C 22 8F 20 2A | ":..mu.". *|
00006D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7E 75 |*************.~u|
00006D70: A6 22 54 49 24 B2 22 30 30 30 30 30 30 22 00 99 |."TI$."000000"..|
00006D80: 75 B0 22 A1 43 24 3A 8B 54 49 24 B1 22 30 30 31 |u.".C$:.TI$."001|
00006D90: 35 30 30 22 A7 99 22 93 22 00 A9 75 BA 22 8B 43 |500".."."..u.".C|
00006DA0: 24 B2 22 22 A7 38 38 38 30 00 BE 75 C4 22 58 B2 |$."".8880..u."X.|
00006DB0: C6 28 43 24 29 3A 58 B2 58 AB 34 38 3A 8E 00 E3 |.(C$):X.X.48:...|
00006DC0: 75 CE 22 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |u.". ***********|
00006DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006DE0: 2A 2A 2A 00 16 76 D8 22 99 22 93 11 D5 C3 C3 C3 |***..v."."......|
00006DF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006E00: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006E10: C3 C3 C9 22 3A 8E 00 3B 76 E2 22 8F 20 2A 2A 2A |...":..;v.". ***|
00006E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 76 EC 22 |***********.jv."|
00006E40: 99 22 C2 20 20 20 20 20 53 41 4D 50 4C 45 20 43 |.". SAMPLE C|
00006E50: 4F 4C 4C 45 43 54 49 4F 4E 20 46 4F 52 20 51 53 |OLLECTION FOR QS|
00006E60: 2F 51 54 20 20 20 20 20 C2 22 00 9B 76 F6 22 99 |/QT ."..v.".|
00006E70: 22 C2 20 20 20 20 20 20 20 4E 4F 4E 2D 56 45 4E |". NON-VEN|
00006E80: 54 49 4C 41 54 45 44 20 50 41 54 49 45 4E 54 20 |TILATED PATIENT |
00006E90: 20 20 20 20 20 20 20 C2 22 3A 8E 00 C0 76 00 23 | .":...v.#|
00006EA0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00006EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006EC0: 00 F1 76 0A 23 99 22 AB C3 C3 C3 C3 C3 C3 C3 C3 |..v.#.".........|
00006ED0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006EE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 3A |..............":|
00006EF0: 8E 00 16 77 14 23 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...w.#. ********|
00006F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006F10: 2A 2A 2A 2A 2A 2A 00 47 77 1E 23 99 22 CA C3 C3 |******.Gw.#."...|
00006F20: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006F30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006F40: C3 C3 C3 CB 22 3A 8E 00 6C 77 28 23 8F 20 2A 2A |....":..lw(#. **|
00006F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9D 77 32 |************..w2|
00006F70: 23 99 22 C2 20 C3 C3 20 3D 20 C3 C3 C3 C3 C3 C3 |#.". .. = ......|
00006F80: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00006F90: C3 C3 C3 C3 C3 C3 C3 20 20 C2 22 3A 8E 00 C2 77 |....... .":...w|
00006FA0: 3C 23 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |<#. ************|
00006FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006FC0: 2A 2A 00 FD 77 46 23 99 22 93 11 11 11 11 50 52 |**..wF#.".....PR|
00006FD0: 49 4E 54 45 52 20 4E 4F 54 20 43 4F 4E 4E 45 43 |INTER NOT CONNEC|
00006FE0: 54 45 44 20 54 4F 20 53 59 53 54 45 4D 22 3A 81 |TED TO SYSTEM":.|
00006FF0: 58 B2 31 A4 31 30 30 30 3A 82 58 3A 8E 00 22 78 |X.1.1000:.X:.."x|
00007000: 50 23 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P#. ************|
00007010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00007020: 2A 2A 00 47 78 5A 23 8F 20 2A 2A 2A 2A 2A 2A 2A |**.GxZ#. *******|
00007030: 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 | DATA STATEMENTS|
00007040: 20 2A 2A 2A 2A 2A 2A 00 6C 78 64 23 8F 20 2A 2A | ******.lxd#. **|
00007050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00007060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 78 6E |************..xn|
00007070: 23 83 20 22 43 4F 4D 50 4C 45 54 45 20 42 22 2C |#. "COMPLETE B",|
00007080: 34 30 2C 34 30 2C 31 32 30 2C 31 00 AB 78 78 23 |40,40,120,1..xx#|
00007090: 83 20 22 49 53 4F 43 41 4C 22 2C 33 32 2E 35 2C |. "ISOCAL",32.5,|
000070A0: 34 32 2C 31 32 35 2C 31 2E 30 36 00 CC 78 82 23 |42,125,1.06..x.#|
000070B0: 83 20 22 53 55 53 54 41 43 41 4C 22 2C 36 30 2E |. "SUSTACAL",60.|
000070C0: 33 2C 32 33 2C 31 33 37 2E 38 2C 31 00 EC 78 8C |3,23,137.8,1..x.|
000070D0: 23 83 20 22 45 4E 53 55 52 45 22 2C 33 35 2C 33 |#. "ENSURE",35,3|
000070E0: 35 2C 31 33 36 2E 37 2C 31 2E 30 36 00 14 79 96 |5,136.7,1.06..y.|
000070F0: 23 83 20 22 53 55 53 54 41 43 41 4C 20 48 43 22 |#. "SUSTACAL HC"|
00007100: 2C 34 30 2E 36 2C 33 38 2E 36 2C 31 32 36 2E 35 |,40.6,38.6,126.5|
00007110: 2C 31 2E 35 00 3C 79 A0 23 83 20 22 45 4E 53 55 |,1.5.<y.#. "ENSU|
00007120: 52 45 20 50 4C 55 53 22 2C 33 36 2E 36 2C 33 35 |RE PLUS",36.6,35|
00007130: 2E 35 2C 31 33 33 2E 32 2C 31 2E 35 00 5B 79 AA |.5,133.2,1.5.[y.|
00007140: 23 83 20 22 49 53 4F 43 41 4C 20 48 43 4E 22 2C |#. "ISOCAL HCN",|
00007150: 33 38 2C 34 36 2C 31 31 32 2C 32 00 7A 79 B4 23 |38,46,112,2.zy.#|
00007160: 83 20 22 50 4F 52 54 41 47 45 4E 22 2C 33 35 2C |. "PORTAGEN",35,|
00007170: 34 37 2E 37 2C 31 31 35 2C 31 00 99 79 BE 23 83 |47.7,115,1..y.#.|
00007180: 20 22 56 49 56 4F 4E 45 58 22 2C 32 30 2E 34 2C | "VIVONEX",20.4,|
00007190: 31 2E 34 2C 32 33 30 2C 31 00 BB 79 C8 23 83 20 |1.4,230,1..y.#. |
000071A0: 22 56 49 56 4F 4E 45 58 20 48 4E 22 2C 34 33 2E |"VIVONEX HN",43.|
000071B0: 33 2C 30 2E 39 2C 32 31 31 2C 31 00 DC 79 D2 23 |3,0.9,211,1..y.#|
000071C0: 83 20 22 41 4D 49 4E 20 41 49 44 22 2C 39 2E 37 |. "AMIN AID",9.7|
000071D0: 32 2C 33 35 2E 32 2C 31 36 32 2C 32 00 0A 7A DC |2,35.2,162,2..z.|
000071E0: 23 83 20 22 54 52 41 56 41 53 4F 52 42 20 52 45 |#. "TRAVASORB RE|
000071F0: 4E 41 4C 22 2C 31 37 2E 31 33 2C 31 33 2E 33 2C |NAL",17.13,13.3,|
00007200: 32 30 32 2E 37 2C 31 2E 33 35 00 28 7A E6 23 83 |202.7,1.35.(z.#.|
00007210: 20 22 43 49 42 22 2C 35 35 2E 32 2C 32 37 2E 36 | "CIB",55.2,27.6|
00007220: 2C 31 32 34 2E 31 2C 31 00 4C 7A F0 23 83 20 22 |,124.1,1.Lz.#. "|
00007230: 4E 55 54 52 41 4D 45 4E 54 22 2C 34 34 2E 34 2C |NUTRAMENT",44.4,|
00007240: 32 37 2E 37 2C 31 34 34 2E 34 2C 31 00 6F 7A FA |27.7,144.4,1.oz.|
00007250: 23 83 20 22 43 49 54 52 4F 54 45 49 4E 22 2C 36 |#. "CITROTEIN",6|
00007260: 30 2E 35 2C 32 2E 36 2C 31 38 34 2E 32 2C 31 00 |0.5,2.6,184.2,1.|
00007270: 89 7A 04 24 83 20 39 39 39 2C 39 39 39 2C 39 39 |.z.$. 999,999,99|
00007280: 39 2C 39 39 39 2C 39 39 39 00 AE 7A 0E 24 8F 20 |9,999,999..z.$. |
00007290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000072A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D3 |**************..|
000072B0: 7A 18 24 8F 20 2A 2A 2A 2A 20 53 43 52 45 45 4E |z.$. **** SCREEN|
000072C0: 20 50 52 49 4E 54 20 55 54 49 4C 49 54 59 20 2A | PRINT UTILITY *|
000072D0: 2A 2A 2A 00 F8 7A 22 24 8F 20 2A 2A 2A 2A 2A 2A |***..z"$. ******|
000072E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000072F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 1C 7B 2C 24 9F 33 2C |********..{,$.3,|
00007300: 33 3A 9F 34 2C 34 3A 99 22 13 22 3B 3A 53 53 B2 |3:.4,4:.".";:SS.|
00007310: 28 C2 28 32 31 30 29 29 AC 32 35 36 00 2E 7B 36 |(.(210)).256..{6|
00007320: 24 81 52 B2 30 A4 32 34 3A 42 24 B2 22 22 00 40 |$.R.0.24:B$."".@|
00007330: 7B 40 24 81 43 B2 30 A4 33 39 3A 41 24 B2 22 22 |{@$.C.0.39:A$.""|
00007340: 00 7E 7B 4A 24 8B C2 28 53 53 AA 28 28 52 AC 34 |.~{J$..(SS.((R.4|
00007350: 30 29 AA 43 29 29 B1 31 32 37 A7 3A A1 23 33 2C |0).C)).127.:.#3,|
00007360: 41 24 3A 42 24 B2 42 24 AA C7 28 31 38 29 AA 41 |A$:B$.B$..(18).A|
00007370: 24 AA C7 28 31 34 36 29 3A 89 39 33 32 30 00 9A |$..(146):.9320..|
00007380: 7B 54 24 A1 23 33 2C 41 24 3A 8B 41 24 B2 C7 28 |{T$.#3,A$:.A$..(|
00007390: 31 33 29 A7 3A 41 24 B2 22 22 00 A7 7B 5E 24 42 |13).:A$.""..{^$B|
000073A0: 24 B2 42 24 AA 41 24 00 B7 7B 68 24 82 43 3A 98 |$.B$.A$..{h$.C:.|
000073B0: 34 2C 42 24 3A 82 52 00 C9 7B 72 24 81 58 B2 31 |4,B$:.R..{r$.X.1|
000073C0: A4 32 30 3A 98 34 3A 82 58 00 D9 7B 7C 24 A0 33 |.20:.4:.X..{|$.3|
000073D0: 2C 33 3A A0 34 2C 34 3A 8E 00 DF 7B 86 24 80 00 |,3:.4,4:...{.$..|
000073E0: 00 00 |.. |
..'.D.. *******************************.
M.N.. ******* MEDICAL PROGRAM *******.S.
X.. ******* BY JERRY SCHAUSS ******.....
. ******* REWRITTEN FOR *********......
******* THE COMMODORE *********...... **
***** 64 COMPUTER ***********... .. ****
*** FEBUARY 1983 **********.1.... ******
* UPDATED NOV. **********.W.... *******
1986 ***********.}.... **********
*********************...H.. X IS USED FO
R PRESS RETURN & FOR NEXT LOOPS.U.R.. **
*****************************......53280
,0:.53281,0:. POKE19,64:?CHR$(142)......
8620:..4.... ***************************
****.Z.... ********* MENU LISTING ******
**...... *******************************
. ....".".10)"UCCCCCCCCCCCCCCCCI.......1
0)"BMEDICAL PROGRAMSB"..."...10)"JCCCCCC
CCCCCCCCCCK"...,.."1. DRUG CALCULATIONS"
:....6.."2. HEMODYNAMIC CALCULATIONS":..
G.@.."3. CEREBRAL PREFUSION PRESSURE":..
M.J.."4. WEIGHT & HEIGHT TO METRIC":....
T.."5. INTRA-AORTIC BALLON PUMP CALCULAT
IONS".L.^.."6. CLINICAL PULMONARY SHUNT
MEASUREMENT"...H.." TO CARDIAC OUTPUT
RATIO":....R.."7. CELSIUS & FAHRENHEIT C
ONVERSIONS":..C.|.."8. CARDIAC OUTPUT AD
VERAGING":..]...."9. FAT/CHO RATIO":....
..."SELECT TOPIC NEEDED, PLEASE:"......"
CCCCCCCCCCCCCCCCCCC CCCCCC"......8870..
....C$."1".220.N....C$."9".220...B..X.46
0,2280,3510,3640,3810,4860,6060,6320,706
0...L..8620.1.V.. **********************
*********.W.... ******* DRUG CALC. MENU
*******.}.... **************************
*****.......10)"UCCCCCCCCCCCCCCCCCI"....
...10)"BDRUG CALCULATIONSB".......10)"JC
CCCCCCCCCCCCCCCCK."......"1. CALCULATION
OF IV DRIP RATE":......."2. MCG/KG/MIN"
:..5.&.."3. UNITS PER HOUR":..R.0.."4. G
TTS/MIN & CC/HR":..Q.:.."5. CC/HR KNOWIN
G U/HR":....D.."SELECT TOPIC NEEDED, PLE
ASE:"...N.."CCCCCCCCCCCCCCCCCCC CCCCCC"
.B.X..8870.O.B..X.1.220...L..X.5.460...V
..X.640,1040,1450,1720,2040......8620.+.
... *******************************.Q...
. ****** IV DRIP RATE CALC ******.W....
*******************************...... C=
DROPS PER CC...... D=AMOUNT OF IV FLUID.
G.... F=AMOUNT OF FLUID IN CC'S...F.. G=
PT WEIGHT IN KGS...P.. K=INFUSION RATE..
.Z.. P=PT WEIGHT IN LBS.-.... R=((G*K)/(
D/F)*1000))*C.B.... T=INT(R*10)/10.H....
Y=(((R/C)*60)*10)/10==CC'S HOUR...... *
******************************.......5)"
UCCCCCCCCCCCCCCCCCCCCCCCCCCCI".......5)"
BCALCULATION OF IV DRIP RATEB"... ...5)"
JCCCCCCCCCCCCCCCCCCCCCCCCCCCK..".6.*.."E
NTER INFUSED RATE AT MCG/KG/MIN: ";K:..J
.4..K.0..8700:.640.V.>.."...ENTER AMOUNT
OF DRUG IN MGS: ";D:....H..D.0..8700:.8
30...R.."...ENTER AMOUNT OF IV FLUID IN
CC'S ";F:..N.\..F.0..8700:.850...F.."...
ENTER DROPS PER CC: ";C:....P..C.0..8700
:.870.9.Z.."...ENTER PATIENT WEIGHT IN L
BS: ";P:G.(P.2.2).M....G.0..8700:.890.J.
..R.((G.K).((D.F).1000)).C.T....8620....
.G.(.(G.10)).10:T..(R.10).10.......9)"UC
CCCCCCCCCCCCCCCCCCCI.U.....9)"BMCG/KG/MI
N=";K;.30)"B".......9)"BDRUG IN MGS=";D;
.30)"B"...J...9)"BIV FLUID CC'S=";F;.30)
"B".>.T...9)"BDROPS PER CC=";C;.30)"B"._
.....9)"BPT. WEIGHT=";P;.30)"B"......9)
"JCCCCCCCCCCCCCCCCCCCCK......".THE INFUS
ION RATE IS";T;"DPM":Y..(((R.C).60).10).
10:......."THIS IS ALSO";Y;"CC'S PER HOU
R."......8580......8620...... **********
********************.A.$.. ******** MCG/
KG/MIN **********.F.... ****************
**************..8.. C=CC'S OF SOLUTION.
..B.. F=J*60==MG/KG/HR...L.. G=MCGS/CC..
.V.. H=INFUSION RATE.N.`.. J=MG/KG/MIN..
.J.. K=PT WEIGHT IN KGS...T.. M=MCG'S OF
DRUG...~.. P=PT WEIGHT IN LBS.&.... R=M
CGS/HR.7.... T=MCGS/MIN.J.... U=MCGS/KG/
HR.^.... V=MCGS/KG/MIN.M.... W=MGS/CC...
... ******************************...D..
******************************.Q.N...10
)"MCG/KG/MIN":.:....X.."INSERT CORRECT V
ALUES FOR MGS/CC":.:.:..&...."MGS OF DRU
G ";M:.M.0..8700:.1040.Y....".ENTER CC'S
OF SOLUTION ";C:.C.0..8700:.1260......"
.ENTER INFUSION RATE (CC'S/HR) ";H......
H.0..8700:.1270.Q....".ENTER PATIENT'S W
EIGHT IN LBS ";P:.P.0..8700:.1290.....W.
M.C:G..(W.10000).10:R.(H.G)./...."...":K
..((P.2.2).100).100:T.(R.60):V..((T.K).1
00).100.I.(.."MGS/CC=";.(W.100).100;.17)
"BMGS OF DRUG";M:..17)"B"...2.."MCGS/CC=
";G;.17)"BCC'S SOLUTION";C:..17)"B":U.V.
60...<.U.(.(U.10)).10...F.."MCGS/HR=";R;
.17)"BINFUSION RATE";H:..17)"B"...P.."MC
GS/MIN=";.(T.10).10;.17)"BPT. WEIGHT";P.
7.Z...17)"JCCCCCCCCCCCCCCCCCCC".M.D.."MC
GS/KG/MIN=";V.D.N..".MCGS/KG/HR= ";U.Z.X
.J.(V.1000):F.J.60......".MG/KG/MIN=";J.
.....".MG/KG/HR=";.(F.1000).1000.P....".
PATIENT WEIGHT IN KGS";K.Z. ..8580......
8620...... *****************************
*...... ********* U/PER HOUR *********.S
.H.. ******************************.Q.R.
. A=AMOUNT OF UNITS GIVEN...... B=CC'S O
F SOLUTION...... C=CC/HR RUN RATE......
D=A/B.R.... ****************************
**.......15)"U/PER HOUR"......"..ENTER A
MOUNT OF UNITS TO BE GIVEN ";A.+....A.0.
.8700:.1450.L."..".ENTER AMOUNT OF SOLUT
ION".D.,.."IN CC'S (D5W) ";B.Y.6..B.0..8
700:.1570...@..".ENTER CC/HR RUN RATE ";
C...J..C.0..8700:.1600...T..8620.U.^...1
0)"UCCCCCCCCCCCCCCCI"...H...10)"BUNITS="
;A;.26)"B"...R...10)"BSOLUTION=";B;.26)"
B"./.|...10)"BCC/HR=";C;.26)"B".L.....10
)"JCCCCCCCCCCCCCCCK".Z....".THE U/PER CC
IS,";.(A.B);"U/PER CC.":......D.A.B....
.."THE U/PER HOUR IS,";.(D.C);"U/PER HR.
"......8580.E....8620...B.. ************
******************...L.. ****** GTTS/MIN
& CC/HR ******.4.V.. ******************
************.Q.... A=AMOUNT OF DRUG IN G
M.J.... B=CC'S OF IV FLUID.~.... C=MG RU
N RATE...... D=(A*1000)==MG...... E=(D/B
)==MG/CC...... F=GTTS/MIN.G.... G=CC/HR.
..&.. ******************************...0
...10)"GTTS/MIN & CC/HR"./.:.."..ENTER A
MOUNT OF DRUG IN GM ";A.D.D..A.0..8700:.
1720.P.N..".ENTER AMOUNT OF IV FLUID IN
CC'S ";B...X..B.0..8700:.1870...B..".ENT
ER THE MG RUN RATE PER MINUTE ";C.F.L..C
.0..8700:.1890...V.D.(A.1000):E.(D.B):D.
(.(D.100)).100:E.(.(E.100)).100......862
0.).....10)"UCCCCCCCCCCCCCCCCCCI".K.....
10)"BDRUG IN GM=";A;.29)"B".M.....10)"BF
LUID CC'S=";B;.29)"B".......10)"BMG RUN
RATE=";C;.29)"B".......10)"JCCCCCCCCCCCC
CCCCCCK"......A;"GM IS EQUAL TO";D;"MG I
N";B;"CC'S"...F.." OF SOLUTION.":.:..%.P
.."THIS EQUALS";E;"MG/CC AT";C;" MG/MIN.
":.:..A.Z.F..(60.E).C:G..(60.E).C.T...."
SET AT ----";F;"GTTS/MIN ----";G;"CC/HR"
:.:..~....8580......8620...... *********
*********************.R.... ***** CC/HR
KNOWING U/HR *****...... ***************
***************.. .. A=UNITS OF DRUG.%
*.. B=AMOUNT OF FLUID.< 4.. C=UNITS PER
HOUR.A >.. *****************************
*. H...10)"CC/HR KNOWING U/HR".. R.."..
ENTER UNITS OF DRUG:";A.. \..A.0..8700:.
2040.. F..".ENTER AMOUNT OF FLUID, (D5W)
:";B.. P..B.0..8700:.2150..!Z..".ENTER U
/HR:";C..!...C.0..8700:.2170.&!...8620.H
!....10)"UCCCCCCCCCCCCCCCCCCCCI".M!....1
0)"BUNITS OF DRUG=";A;.31)"B"..!....10)"
BCC'S FLUID=";B;.31)"B"..!....10)"BUNITS
HR=";C;.31)"B".Q!....10)"JCCCCCCCCCCCCC
CCCCCCCK"..!J..".THE U/PER CC IS";.(A.B)
:..0"T.."THE INFUSION RATE WOULD BE";.((
C.(A.B)).10).10;"CC/HR.".:"...8580.D"...
8620.I"... *****************************
*.."... ******* CARDIOPULMONARY ******..
"... ******************************.T"..
. A=PULLMONARY VASCULAR RES..."... B=BOD
Y SURFACE AREA..#$.. C=CARDIAC OUTPUT..#
... D=SYSTOLIC PRESS..6#8.. E=DIASTOLIC
PRESS..R#B.. F=RATE PRESS. PRODUCT.G#L..
G=TRIPLE INDEX..#V.. H=PT HEIGHT IN INC
HES..#`.. I=S/B==STROKE INDEX..#J.. K=PT
WEIGHT IN KGS.U#T.. L=LEFT VENT. STROKE
WORK..#~.. M=MEAN PUL. ART. PRESSURE..$
... N=PUL. ART. SYSTOLIC PRESS..-$... O=
CARDIAC INDEX.J$... P=MEAN ARTERY PRESSU
RE.M$... Q=PUL. ART. DIASTOILC PRESS...$
... R=HEART RATE..$... S=STROKE VOLUME M
L/BEAT..$D.. T=RIGHT VENT. STROKE WORK..
$N.. U=PUL. CAP. WEGDE PRESSURE..$X.. V=
CENTRAL VENOUS PRESSURE..%... W=PT WEIGH
T IN LBS.9%... Y=SYSTEMIC VAS. RESISTANC
E.[%... Z=PT HEIGHT IN CENT. METERS.|%..
. LI=LEFT VENT. STROKE INDEX..%... RI=RI
GHT VENT. STROKE INDEX..%... SV=STROKE V
OLUME INDEX..%... **********************
********..%(..8920.$&2.."B";.4)"CARDIOPU
LMONARY DETERMINATIONS";.3)"B":.8990.X&<
...2)"..IN ORDER TO WORK ALL THE CALCULA
TIONS":...&F.."IN THIS PROGRAM YOU WILL
NEED TO KNOW":...&P.."THESE VALUES; CARD
IAC OUTPUT, HEART":...&Z.."RATE, PATIENT
WEIGHT, PATIENT HEIGHT IN":...'D.."INCH
ES, MEAN PULMONARY PRESSURE, CENTRAL".D'
N.."VENOUS PRESSURE, SYSTOLIC & DIASTOLI
C":..V'X.."PRESSURE, MEAN PULMONARY PRES
SURE.":.:.:.:...'..."PRESS RETURN TO CON
TINUE";X..'...8620.C'..."...ENTER CARDIA
C OUTPUT";C..' ..C..1.C.9..8700:.2710..'
..."...ENTER HEART RATE";R..(...R..25.R.
250..8700:.2730.3(..S..(((C.R).1000).10)
.10.N(H.."...ENTER PATIENT WEIGHT IN POU
NDS";W:.:K.W..45454545..(R.."...ENTER PA
TIENT HEIGHT IN INCHES";H:.:Z.H.2.54..(.
..K.0.Z.0..8700:.2760..(..B.71.84.(K..42
5).(Z..725).10000:B..(B.100).100..)..O..
((C.B).100).100.2)..."...ENTER BLOOD PRE
SSURE SYSTOLIC;";D.G)...D.0..8700:.2810.
S)..."...ENTER BLOOD PRESSURE DIASTOLIC;
";E..)...E.0..8700:.2830..)".P.(D.(2.E))
.3:..F),.."...ENTER PULMONARY ARTERY SYS
TOLIC"..)6.."PRESSURE (RETURN IF NONE)";
N..)@..N.0.2920..*J.."...ENTER PULMONARY
ARTERY".4*T.."DIASTOLIC PRESSURE";Q._*^
.M.((N.(1.3).10).(Q.(2.3).10)).10:.2950.
.*H.."...ENTER MEAN PULMONARY ARTERY PRE
SSURE"..*R..M..*|..M.0..8700:.2930..*...
"...ENTER CENTRAL VENOUS PRESSURE";V:I.S
.B:...*...V.0..8700:.2950.%+..T.(S.(M.V)
..0136):. RIGHT VENTRICAL STROKE WORK.T+
..."...ENTER MEAN PULMONARY CAPILLARY WE
DGE".Y+..."PRESSURE";U:A.((M.U).79.9).C:
...+..."...UCCCCCCCCCCCCCCCCCCCCCI"..+B.
."B HEMODYNAMICS VALUES B".Y+L.."B EEEEE
EEEEEEEEEEEEEE B"..+V.."B CO ===== ";C:.
.22);".B"..,..."B HR ===== ";R:..22);".B
".9,..."B WEIGHT = ";W:..22);".B".Y,..."
B HEIGHT = ";H:..22);".B".Y,..."B BP SY
== ";D:..22);".B"..,..."B BP DI == ";E:.
.22);".B"..,..."B PA SY == ";N:..22);".B
".Y,..."B PA DI == ";Q:..22);".B"..,&.."
B CVP ==== ";V:..22);".B"..-0.."B PCWP =
== ";U:..22);".B".8-:.."JCCCCCCCCCCCCCCC
CCCCCCK".R-D..8550:.C$."Y"..:.2600..-N.L
.((S).(P.U)..0136):Y.((P.V).80).C:.:K..(
K.10).10..-X.L..(L.100).100..-B.Y..(Y.10
0).100.C-L..U.0..8700:.2990.V-V.A..(A.10
0).100..-... ***************************
*...... ****** OUTPUT DISPLAY ******.?..
.. ****************************.N...."."
G(5):..U...."CO ==========";C;" HR
=";R......"CI ==========";O;"LPM/M2"...
..."WEIGHT ======";W;"LBS ---";K;"KGS"..
.F.."HEIGHT ======";H;"IN -----";Z;"CM".
./P.."BSA =========";B;"SQ METERS"../Z.S
V..(I.10).10.D/..."SV ==========";S;"ML
SVI =";SV._/..."BP SYS/DIA ==";D"/"E.
./..."MAP =========";.(P.10).10;"MMHG"..
/...N.0.3350../..."PA SYS/DIA ==";N"/"Q.
M/..."MPAP ========";M;"MMHG"../ .."CVP
=========";V;"MMHG"..0*.RI.(13.6.C.M).(R
.B):. RVSWI.H04.."RVSW ========";.(T.100
).10;" RVSWI =";.(RI.100).100.K0>.LI.
.((((P.U).SV)..0136).10).10..0H.."LVSW =
=======";.(L.100).10;" LVSWI =";LI..0R
.."SVR =========";.(Y.10).10.T0\.CP..(((
E.U).10).10)..0F.."MPCWP =======";U;"
CPP =";CP..1P.A..(A.10).10.41Z.."PVR
=========";A:F..(D.R.10).10.F1..."RPP =
========";F"TORR B/MIN":G..(F.U.10).10.
1...L.0.T.0..8700:.2810..1..."LV/RV RATI
O =";.((L.T).10).10.I1..."TI =========="
;G;"TORR/SEC/MIN".S1...8580..1...8620..2
... ******************************.'2J..
** CEREBRAL PREFUSION PRESS **.L2T.. **
****************************.N2... A=CER
EBRAL PREFUSION PRESS...2... I=INTERCRAI
NAL PRESS...2... M=MEAN ART. PRESS...2..
.8920..2..."B";.5)"CEREBRAL PERFUSION PR
ESSURE";.5)"B":.8990..3..."...ENTER MEAN
ARTERIAL PRESSURE";M.<3..."..ENTER INTE
RCRANIAL PRESSURE";I:A.(M.I).M3$.."..CER
EBRAL PREFUSION PRESSURE=";A;"MMHG..".W3
...8580..38..8620..3B.. ****************
**************.K3L.. ****** CONVERT TO M
ETRIC *****..3V.. **********************
********..4`.. C=PT HEIGHT IN CENTIMETER
S.-4J.. H=PT HEIGHT IN INCHES.F4T.. K=PT
WEIGHT IN KGS._4~.. W=PT WEIGHT IN LBS.
.4... ******************************..4.
..8920..4..."B";.5)"PROGRAM TO CONVERT P
OUNDS &";.5)"B"..4..."B";.10)"INCHES TO
METRIC";.11)"B":.8990.,5..."..ENTER WEIG
HT IN POUNDS";W:K..((W..45454545).100).1
00:..R5..."WEIGHT IN KILOGRAMS=";K;"KGS"
:...5D.."ENTER HEIGHT IN INCHES";H:C..((
H.2.54).100).100:...5N.."HEIGHT IN CENTI
METERS=";C;"CMS":.:.:...5X..8580.J5...86
20..5... ******************************.
.6... ******** BALLOON PUMP ********.96.
.. ******************************.S6...
B=BODY SURFACE AREA.J6... C=CARDIAC OUTP
UT..6... D=MEAN DIASTOLIC PRESSURE..6(..
E=MEAN SYSTOLIC PRESSURE.K62.. G=SYSTEM
IC VASC. RESISTANCE..6<.. H=HEART RATE..
6F.. I=PT. HEIGHT INCHES..7P.. J=STROKE
VOLUME.%7Z.. K=PT. WEIGHT LBS.@7D.. L=LE
FT ART. PRESSURE.V7N.. M=PT. HEIGHT CM.L
7X.. N=CARDIAC INDEX..7... O=SYSTOLIC TI
ME..7... P=PT. WEIGHT LBS..7... Q=ENDOCA
RDIAL VIABILITY PRESS...7 .. R=MEAN ATER
IAL PRESSURE..7... S=SUPPLY..8... T=DIAS
TOLIC TIME..8... U=DEMAND.18H.. V=CENTRA
L VENOUS PRESSURE.V8R.. ****************
**************.`8...8920..8..."B";.7)"IN
TRA-AORTIC BALLOON PUMP B".G8..."B";
.2)"MEASUREMENT OF CARDIAC PERFORMANCE B
":.8990..8..."..ENTER CARDIAC OUTPUT";C.
.9...C..1.C.9..8700:.3810..9..."...ENTER
HEART RATE";H.;9...H..25.H.250..8700:.4
110.R9".J..((C.H).1000).10..9,.. PRINT "
STROKE VOLUME=";J;"ML/BEAT ---- (AVG= 60
-130)".Q96.."...ENTER PATIENT WEIGHT IN
LBS";P:K..((P..45454545).100).100..:@.."
..ENTER PATIENT HEIGHT IN INCHES";I:M..(
(I.2.54).100).100.*:J..P.0.I.0..8700:.41
50.]:T.B.71.84.(K..425).(M..725).10000:B
..(B.100).100.T:^.N..((C.B).100).100..:H
.."..CARDIAC INDEX=";N;"---- (AVG= 2.5-3
.5).":.8650..:R..8920..:|.."BTO FIND END
OCARDIAL VIABILITY RATIO B":.8990..;...
".";.8)"DPTI SUPPLY".3;....2)"EVR= --
------ = ---(NL= 0.9-1.5)".M;....8)"TTI
DEMAND":..Y;..."DPIT= DIASTOLIC PRES
SURE TIME INDEX;".C;..."(MEAN DIASTOLIC
PRESSURE - LEFT ATRIAL PRESSURE) X DIAS
TOLIC TIME"..;...".TTI= TENSION TIME IND
EX; (MEAN SYSTOLIC"..<B.."PRESSURE X SYS
TOLIC TIME)".<<L..".ENTER MEAN DIASTOLIC
PRESSURE";D.A<V..".ENTER LEFT ATRIAL PR
ESSURE";L.<...D.1.L.1..8700:.".":.4300.
.<...".ENTER DIASTOLIC TIME";T..<..S.(D.
L).T:. S=SUPPLY.R<...T..0..8700:.".":.43
30..<...".ENTER MEAN SYSTOLIC PRESSURE";
E..=...E..0..8700:.".":.4360.2=...".ENTE
R SYSTOLIC TIME";O.M=&..O..0..8700:.".":
.4380.H=0.U.E.O:. U=TTI (DEMAND)..=:..".
..";.7)"DPTI =";S..=D.."EVR = ------ --
--- (NL= 0.9-1.5)".Q=N...7)"TTI = ";U:Q
..((S.U).100).100..>X.."..ENDOCARDIAL VI
ABILITY RATIO=";Q".":.8650..>B..8920.A>L
.."BTO FIND SYSTEMIC VASCULAR RESISTANCE
B":.8990.N>V.."..ENTER MEAN ATERIAL PRE
SSURE (MAP)";R..>...R..0..8700:.".":.447
0..>...".ENTER CENTRAL VENOUS PRESSURE(C
VP)";V.Q>...V..0..8700:.".":.4490..>..G.
.((((R.V).(C)).80).100).100..?..."..SVR=
";G.0?...".(NL= 900-1500 DYNES/SEC/CM-5)
.":.8650.:?...8620.Y?F.."CARDIAC OUTPUT=
";C;"LPM".T?P.."HEART RATE=";H;"BPM"..?Z
.."STROKE VOLUME=";J:."(NL= 60-130 ML/BE
AT)"..?..."STROKE INDEX=";.((J.B).10).10
:."(NL= 33-47 ML/BEAT/M2)"..@..."BODY SU
RFACE AREA=";B;"SQUARE METERS".@@..."CAR
DIAC INDEX=";N:."(NL= 2.5-3.5 L/MIN/M2)"
.F@..."ENDOCARDIAL VIABILITY RATIO=";Q.{
@..."(NL= 0.9-1.5)"..@..."SYSTEMIC VASCU
LAR RESISTANCE=";G.F@ .."(NL= 900-1500 D
YNES/SEC/CM-5)..@*.L..(((13.6.C.R).H).10
0).100..A4.."LEFT VENTRICULAR STROKE WOR
K=";L.,A>.."NL= 35-85 GM-M/M2/BEAT)".EAH
.."LEFT VENTRICL STROKE WORK INDEX=";.((
L.B).100).100.OAR..8580.YA\..8620..AF..
******************************.CAP.. ***
***************************..AZ.. * CLIN
ICAL/SHUNT MEASUREMENTS*..B... *********
*********************.2B... ************
******************.AB... A = PAO2.YB...
B = BARM PRESSURE.HB... C = CAO2..B... C
$ = CONDITIONAL STATEMENT..B... F = FIO2
..BJ.. P = PAO2..BT.. Q = QS/QT %.HB...
V = CVO2..B... X = SELECTION OF PATIENT
TYPE..C... *****************************
*..C...8620.@C....6)"UCCCCCCCCCCCCCCCCCC
CCCCCCI".EC....6)"BCLINICAL PULMONARY SH
UNTB"..C....6)"BMEASUREMENT TO CARDIAC
B"..C$...6)"B OUTPUT RATIO B".
VC....6)"JCCCCCCCCCCCCCCCCCCCCCCCCK.."..
C8...5)"1. VENTILATOR PATIENT".#DB...5)"
2. NONVENTILATOR PATIENT":.:.:.8680.5DL.
.X.1.X.2.4860.CDV..X.2.5550.HD`.. ******
************************..DJ.. *********
*********************..DT.. ***** VENTIL
ATOR PATIENT *****.WD~.. ***************
***************..D... ******************
************..E...8920:.8940.;E..."B
ON VENTILATED PATIENTS B".EE..
.8970.TE..."BTHE PATIENT IS PLACED SUPIN
E AND IS B"..E..."BSUCTIONED WELL, BECA
USE VENTILATION B".RED.."BSHOULD NOT BE
INTERRUPTED FOR 15 B"..FN.."BMINUTE
S. DURING THIS TIME THE PATIENTB".0FX.."
BIS NOT DISTURBED AND MUST BE IN PHASEB"
._F..."BWITH THE VENTILATOR. FI02 OF 10
0% ISB"..F..."BSTARTED AND CHECKED WITH
O2 MONITOR B"..F..."BIN 15 MINUTES FIO2
IS AGIAN CHECKED, B"..F..."BAND VITAL S
IGNS NOTED. SIMULTANEOUSLYB"..G..."BBLOO
D IS TAKEN FROM BOTH THE ARTERIALB".JG..
."BAND CENTRAL VENOUS LINES. THE SAMPLE
B".YG..."BARE RUSHED TO THE LAB, WERE TH
EY WILLB"..G(.."BTHEN BE READ WITHIN 2 M
INUTES. THE B".WG2.."BRESULTS ARE THEN
RETURNED FOR QS/QT B"..G<.."BCALCULATI
ON.".25)"B"..HF..8990:.8790..HP..C$.."C"
.100..HZ..8920.MHD.."B QS (PAO2-P
AO2)*0.003 B".WHN..9010..HX.."B
QT (CAO2-CVO2)+(PAO2-PAO2)*0.003 B"..
H...8970..H..."BPAO2 = ((FIO2*BARM P)-47
)-PCO2)*0.003B".IH...8990..H ..".ENTER %
FIO2 (WHOLE NUMBER) ";F:O.F.100..I...".
ENTER BAROMETRIC PRESSURE ";B.=I...".ENT
ER AMOUNT OF PAO2 ";P.^I..A..((((O.B).47
).P..8).10).10.|IH..".PAO2 EQUALS ------
-";A..IR..".ENTER AMOUNT OF CAO2 ";C..I.
..".ENTER AMOUNT OF CVO2 ";V.FI...8920..
I..."BQS (";A;"-";P;") * 0.003"
..I....38)".B".(J..Q.((A.P).0.003).((C.V
).((A.P).0.003)).2J...9010.AJ..."BQT (
";C;"-";V;")+(";A;"-";P;")*0.003".UJ"...
38)".B":.8990..J,..".. QS"..J6.." CC =";
.((Q.100).10).10"%"..J@.." QT".TJJ.."..F
IO2 =";F;"%".14)"BARM P =";B..JT..".PAO2
=";P;.15)"CAO2 =";C..K^..".CVO2 =";V..K
H..8580..KR..8620.>K|.. ****************
**************.CK... *******************
***********..K... *** NON-VENTILATED PAT
IENT ***..K... *************************
*****.RK... ****************************
**..K...8920:.8940:.8970..L..."BTHIS IS
A ESTIMATED SHUNT. THE A-V B".FLB.."BC
ONTENT IS SET AT 3.5 VOL %, WHICH B".U
LL.."BIS A NORMAL A-V CONTENT. ONLY FI02
B"..LV.."BAND ARTERIAL BLOOD GAS IS N
EEDED, THEB".SL..."BPHYSICIAN MUST MAKE
THE JUDGEMENT B"..M..."BTHAT A NORMAL
A-V CONTENT DIFFERENCE B".1M..."BIS A R
EASONABLE ASSUMPTION. B".AM...8
990:.8790.RM...C$.."C".100.HM...8920:.89
40:.8970..M..."BTHE PATIENT IS GIVEN A C
ONTROLLED B".FM&.."BAMOUNT OF OXYGEN
TO BREATH VIA A HIGHB"..M0.."B-FLOW SYST
EM. THIS MAY BE 100% OXYGENB".$N:.."BOR
ANY FRACTION THEREOF THAT WILL B".SND
.."BPRODUCE AN ARTERIAL PO2 OF MORE THAN
B"..NN.."B150 MM HG.
B"..NX.."B";.37);"B".CNB.."BAFTE
R 15 MINUTES A REDIAL ARTERIAL B"..NL.
."BSTICK IS ACCOMPOLISHED AND THE BLOOD
B".!OV.."BSAMPLE IS OBTAINED. THE PATIEN
T IS B".PO..."BNOT TAKEN OFF THE CONTR
OLLED OXYGEN B".O..."BUNTIL THE MEASUR
EMENTS ARE COMPLETE B"..O..."BAND SATIS
FACTORY.";.20);"B"..O...8990:.8790.CO...
C$.."C".100.MO...8920..O..."B QS
(PAO2-PAO2)*0.003 B"..PF..9010.;
PP.."B QT 3.5+(PAO2-PAO2)*0.003
B":.8970.PPZ.."BPAO2 = ((FIO2*BARM P)
-47)-PCO2)*0.003B":.8990..P...".ENTER %
FIO2 (WHOLE NUMBER) ";F:O.F.100.DP...".E
NTER BAROMETRIC PRESSURE ";B..P...".ENTE
R AMOUNT OF PAO2 ";P..Q..A..((((O.B).47)
.P..8).10).10.-Q..Q.((A.P).0.003).(3.5.(
(A.P).0.003)).7Q...8920.AQ .."BQS
(";A;"-";P;") * 0.003".OQ*...38)".B".
YQ4..9010..Q>.."BQT 3.5+(";A;"-"
;P;")*0.003"..QH...38)".B":.8990.EQR..".
. QS"..Q\.." CC =";.((Q.100).10).10"%"..
QF.." QT"..RP.."..FIO2 =";F;"%".14)"BARM
P =";B.7RZ..".PAO2 =";P;.14)"PAO2 =";A.
AR...8580.KR...8620.PR... **************
****************.VR.....R... ***********
*******************..R... **************
****************..R... ** TEMPERATURE CO
NVERSION ***..SJ.. ********************
**********./ST.. ***********************
*******.LS... PT=PATIENT TEMPERATURE.\S.
.. C=CELSIUS.OS... F=FAHRENHEIT..S... C$
=CONDITIONAL STATEMENT..S... ***********
*******************.ZS...".. UCCCCC
CCCCCCCCCCCCCCCCCI..T..." BTEMPERAT
URE CONVERSIONB".)T$.." JCCCCCCCCCC
CCCCCCCCCCCCK...".PT..."ENTER PATIENT'S
TEMPERATURE ";PT.`T8..PT.50.6270.}TB.F..
(((PT.1.8).32).10).10..TL.."..CELSIUS TE
MP = ";PT;"C"..TV..".FAHRENHEIT TEMP = "
;F;"F".HT`..8740.YTJ..C$."C".6160..TT..1
00..T~.C..(((PT.32).1.8).10).10."U..."..
FAHRENHEIT TEMP = ";PT;"F".@U...".CELSIU
S TEMP = ";C;"C".JU...8580.TU...8620.YU.
.. ******************************..U...
******************************.CUD.. **
CARDIAC OUTPUT ADVERGING **..UN.. ******
************************..VX.. *********
*********************./V... N=# OF CARDI
AC OUTPUT (CO).PV... A=A(N) DIM FOR COU
NTING CO.GV... C=CARDIAC OUTPUT..V... M=
#OF CARDIAC OUTPUT PRINTED..V... L=LOOP
COUNTER..V... C$=CONDITIONAL STATEMENT.L
V...:N.1:A.0..V(..".. UCCCCCCCCCCCCC
CCCCCCCCCCI"..W2.." BCARDIAC OUTPUT
ADVERAGEB".CW<.." JCCCCCCCCCCCCCCCCC
CCCCCCK...".SWF.."ENTER CARDIAC OUTPUT T
HEN PRESS RETURN.."..WP.."ENTER VALUE #"
;N:."CARDIAC OUTPUT";C.SWZ..C.9..".OUT O
F RANGE (1 TO 9)!":.L.1.900:.:.6440..WD.
A(N).C:.A(1).0.100..WN..C.0.N.N.1:.6540.
.XX..N.10.C.0:.6540.'X..C.0:N.N.1:.6440.
PX...".. UCCCCCCCCCCCCCCCCCCCCCCCI"
.WX..." BCARDIAC OUTPUT ADVERAGEB".
.X .." JCCCCCCCCCCCCCCCCCCCCCCCK...
"..X...M.1.N.LX..C.C.A(M):."CO #"M"="A(M
):.M..X..CA..((C.N).10).10:."..ADVERAGE
CO ="CA..YH..8580..YR..8620.0Y... ******
************************.UY... *********
*********************.ZY... ******* FAT/
CHO RATIO ********..Y... ***************
***************.DY... ******************
************.YY... S=STEP COUNTER..Y...
T=LOOP COUNTER..Z".. C$=CONDITIONAL STAT
EMENT..Z,.. D$,E,F,G (READ STATEMENTS).E
Z6.. D$= PRODUCT NAME.]Z@.. E= PRO, GM S
OURCE.UZJ.. F= FAT, GM SOURCE..ZT.. G= C
HO, GM SOURCE..Z^.. H=CAL/CC FACTOR..ZH.
. N$=FAT/CHO RATIO.KZR.. P$=PRODUCT..Z|.
. AC=ADJ. CC'S OF PRODUCT FA/H..[... AF=
ACTIVITY FACTOR.$[... BM=BASE METABOLIC
RATE.:[... BE=BASAL ENERGY.S[... CC=CC'S
OF PRODUCT.E[... CH=CHO CALS.Z[... CT=(
CH/TC)*100..[B.. FA=BM-ML (PER KILOCALOR
IE)..[L.. FC=FAT CALS (9*TF).I[V.. FT=(F
C/TC)*100..[... GC=GRAMS CHO..[... GF=GR
AMS FAT..\... KB=FA/1000 (PER CALORIE).,
\... KG=PT. WEIGHT KILOGRAMS.M\... MF=MI
CROLIPID FAT (7.5*TB).Q\... ML=MICROLIPI
D CC'S (TB*22.33)..\... NF=INJURY FACTOR
..\&.. PA=PT. AGE..\0.. PC=PT. HEIGHT CE
NTIMETERS.T\:.. PH=PT. HEIGHT INCHES..\D
.. PW=PT. WEIGHT IN LBS...]N.. SE$= PT.
SEX.&]X.. TB=TABLESPOONS OF MICROLIPID.;
]B.. TC=TOTAL CALS..W]L.. TF=TOTAL GRAMS
OF FAT.|]V.. **************************
****. ]... ***** SET START VALUES ******
.E]... ******************************..]
..PW.0:SE$."":AF.1.2:NF.1.2..^..P$."CIB"
:PA.0:SE$."M":S.1.&^... ****************
**************.K^... ******* SETUP SCRE
EN ********.P^... **********************
********..^F..".. ...........
......"..^P.." . FAT/CHO RATI
O ."..^Z.." .................
"..^... POKE19,64:REM REMOVES ?.._...".C
CCCCCCCCCCCCCCCCC.CCCCCCCCCCCCCCCCCC.".]
_..."B PRODUCT FAT/CHO B PRODUCT FAT/C
HO B".._...".CCCCCCCCCCCCCCCCCC.CCCCCCCC
CCCCCCCCCC.".._..."B SUSTACAL 27/73 B
COMPLETE B 43/57 B".._..."B ISOCAL 43
/57 B ENSURE 37/63 B"..` .."B SUSTA
CAL B ENSURE B".H`*.."
B HC 40/60 B PLUS 37/63 B"
.W`4.."B ISOCAL B PROTAGEN 4
8/52 B"..`>.."B HCN 48/52 B VIVON
EX 1/99 B".U`H.."B VIVONEX
B AMIN AID 33/67 B"..AR.."B HN
1/99 B TRAVESORB B".3A\.."B CIB
33/67 B RENAL 15/87 B".BAF.
."B NUTRAMENT 30/70 B CITROTENE 5/95
B"..AP..".CCCCCCCCCCCCCCCCCC.CCCCCCCCCCC
CCCCCCC."..AZ..".IN ORDER TO CHANGE RATI
O: EXAMPLE: 7CC"..A..."OF SAFFLOWER OIL
TO EACH CAN OF ENSURE"..B..."WILL GIVE A
50/50 RATIO".@B...".TYPE NAME OF PRODUC
T NEEDED:";G(13);" ";P$.LB...".";P$.QB.
.. ******************************..B...
**** P$ POSSIBLE PRODUCTS ****..B... ***
***************************..BJ..P$."SUS
TACAL".N$."27/73":.8110:.7560..CT..P$."C
OMPLETE B".N$."43/57":.8110:.7560.9C...P
$."ISOCAL".N$."43/57":.8110:.7560.AC...P
$."ENSURE".N$."37/63":.8110:.7560..C...P
$."SUSTACAL HC".N$."40/60":.8110:.7560..
C...P$."ENSURE PLUS".N$."37/63":.8110:.7
560..C...P$."ISOCAL HCN".N$."48/52":.811
0:.7560..D...P$."PROTAGEN".N$."48/52":.8
110:.7560.:D...P$."VIVONEX".N$." 1/99":.
8110:.7560.FD$..P$."IVIONEX HN".N$." 1/9
9":.8110:.7560..D...P$."AMIN AID".N$."33
/67":.8110:.7560.AD8..P$."TRAVESORB RENA
L".N$."15/87":.8110:.7560..DB..P$."CIB".
N$."33/67":.8110:.7560..EL..P$."NUTRAMEN
T".N$."30/70":.8110:.7560.<EV..P$."CITRO
TENE".N$." 5/95":.8110:.7560.QE`..".....
.......INCORRECT SPELLING OR NOT LISTED!
"..EJ.."EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
E":.T.1.2000..ET..T:.7110.VE~.. ********
**********************..F...".ENTER PATI
ENT WEIGHT IN LBS. ";PW..F....29):.".";
PW:.PW.0.7110.<F..KG..((PW..454545).100)
.100.GF...".ENTER PATIENT HEIGHT IN INCH
ES ";PH..F..PC..((PH.2.54).100).100..F..
..30):.".";PH:.PH.0..8110:.7560.CFD.PC..
((PH.2.54).100).100..FN..".ENTER PATIENT
AGE ";PA..GX...17):.".";PA:.PA.0..8110:
.7560.-G...".ENTER PATIENT'S SEX (M/F)
";SE$.@G....25):.".";SE$.RG...SE$."M".77
00.DG...SE$."F".7710.TG...8110:.7560..G.
.BE..(66.(13.7.KG).(5.PC).(6.8.PA)):.772
0.JG..BE..(655.(9.6.KG).(1.7.PC).(4.7.PA
)).ZG(..8180:.8300..H2.."BACT. FACTOR ="
;AF:.".CCCCCCCCCCCCCCCCC.CCCCCCCCCCCCCCC
CCC.".0H<...13):."..";AF.]HF...18)".BINJ
. FACTOR =";NF;:..34):.".";NF.PHP.BM..(B
E.AF.NF)..HZ..8180:.8410:.8550..HD..C$."
Y"..7110..HN..X.0.39:..X)". ":.X..HX..".
.1 TBSP OF MICROLIPID EQUALS 22.33 CALS"
..H...".PER TBSP."..I...".HOW MANY TBSP
DO YOU WANT TO ADD ";TB.1I....32):.".";T
B.7I ...GI...D$,E,F,G,H.WI...D$.P$.7890.
.I...D$."999"..".......DATA ERROR CALL B
IOMED PH# 4303":...IH..7850..IR.ML..(TB.
67)..I..FA.BM.ML.DI..AC.FA.H.SI..KB.FA.1
000..I..GF.F.KB..I..GC.G.KB..I..MF.7.5.T
B..J..TF.MF.GF..J".FC.9.TF..J,.CH.4.GC.+
J6.TC.FC.CH.AJ@.FT..((FC.TC).100).WJJ.CT
..((CH.TC).100).CJT.CC.BM.H.WJ^..8430:.8
740:S.1..JH..C$."C".7770..JR..C$."P"..92
60..J|..:.100..J....PJ... **************
****************..J... ****** GOSUB LOCA
TIONS *******..K... ********************
**********.BK..."...CCCCCCCCCCCCCCCCCCCC
CCCCCCCC.".HK..."B PRODUCT FA
T/CHO B"..KB..".CCCCCCCCCCCCCCCCCCCCCCCC
CCCC."..KL.."B ";P$.CKV.."..............
.........";N$;" B"..K...".CCCCCCCCCCCCC
CCCCCCCCCCCCCCC.":...K.....L..."...CCCCC
CCCCCCCCCCCCCCCCCCC.".7L..."B PATIENT I
NFORMATION B".YL. .".CCCCCCCCCCCCCCCCC
CCCCCCC.".UL. ."B";P$:..20)".";N$;"B"..L
. ."BPT. AGE --------- ";PA:..25)".B".GL
& ."BPT. SEX --------- ";SE$:..25)".B".
.L0 ."BPT. WEIGHT ------ ";PW:..25)".B".
.M: ."BIN KGS. --------- ";KG:..25)".B".
?MD ."BPT. HEIGHT ------ ";PH:..25)".B".
GMN ."BIN CM'S --------- ";PC:..25)".B".
.MX ."BBASAL ENERGY EXP. ";BE:..25)".B":
...MB .".CCCCCCCCCCCCCCCCCCCCCCCC.":...M
L ."..CCCCCCCCCCCCCCCCCCCCCCCC.CCCCCCCCC
CC."..NV ."B BASE METOBLIC RATE
B".@N. .".CCCCCCCCCCCCCCCCC.CCCC
CCCCCCCCCCCCCC.".NN. ."B ACTIVITY FACTOR
B INJURY FACTOR B"..N. .".CCCCCCCCCC
CCCCCCC.CCCCCCCCCCCCCCCCCC.".JN. ."B CON
FINED TO B MIN. OPER. 1.2 B"..N. .
"B BED ------- 1.2 B SKEL. TRA. 1.35B"
.&O. ."B B MAJ. SEPIS
1.60B".TO. ."B OUT OF BED 1.3 B SEV.
BURN 2.10B"..OF ."B OTHER --------- B
OTHER ---------B"..OP .".CCCCCCCCCCCCCC
CCC.CCCCCCCCCCCCCCCCCC.":..ZOZ ."BBASE M
ET. RATE ---";BM:..25)".B"..O. .".CCCCCC
CCCCCCCCCCCCCCCCCC.":...P. .".....".#P.
.X.0.39:..X)". ":.X.8P.!S.S.1:.S.6..8440
.AP.!."........CCCCCCCCCCCCCCCCCCCCCCCC.
"..P.!."BCC'S OF PRODUCT - ";CC:..25)"..
B"..P !.".BCALS OF CHO ----- ";.(CH):..2
5)".B"..P*!."BCALS OF FAT ----- ";.(FC):
..25)"..B"..Q4!.".BADJ. FAT/CHO ---- ";F
T:..22)"."CT:..22)"./".$Q>!..25)".B".BQH
!."BADJ. PRODUCT CC'S ";AC.QQR!..25)"..B
".VQ\!."..CCCCCCCCCCCCCCCCCCCCCCCC.":...
QF!.".DO YOU WANT TO CHANGE ANYTHING (Y/
N) N"..QP!..36):.".";C$:...QZ!. *******
***********************..Q.!.8830..Q.!.C
$."P"..9260..R.!.220.)R.!. *************
*****************.<R.!."."G(5):.:.:..BR.
!..GR.!. ******************************.
.RJ!."PRESS RETURN TO CONTINUE";X:."."..
RT!...R.!. *****************************
*..R.!."SELECT NUMBER & PRESS RETURN";X:
...S.!. ******************************.B
S.!.".............THIS IS AN INCORRECT V
ALUE TRY AGIAN.":..RS.".L.1.500:.L.XS.".
.}S.". ******************************..S
$".".TYPE (C) FOR CHANGE, (P) TO PRINT,
OR".BS."."(M) FOR MENU C".TS8"..12):.".
";C$..TB"."..
":..@TL"
. ******************************.PTV".".
TYPE (C) TO CONTINUE OR (M) FOR MENU C"
..T`"..36):.".";C$..TJ".".
":..YTT". *****
*************************..U~".".TYPE (P
) TO PRINT OR (M) FOR MENU M"..U."..33)
:.".";C$.HU.".".
":..MU.". *****************
*************.~U."TI$."000000"..U.".C$:.
TI$."001500".."."..U.".C$."".8880..UD"X.
F(C$):X.X.48:...UN". *******************
***********..VX"."..UCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCI":..;V.". ***********
*******************.JV."."B SAMPLE C
OLLECTION FOR QS/QT B"..V."."B
NON-VENTILATED PATIENT B":...V.#
. ******************************..V.#.".
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.":
...W.#. ******************************.G
W.#."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCK":..LW(#. **************************
****..W2#."B CC = CCCCCCCCCCCCCCCCCCCCCC
CCCCCCC B":..BW<#. ********************
**********..WF#.".....PRINTER NOT CONNEC
TED TO SYSTEM":.X.1.1000:.X:.."XP#. ****
**************************.GXZ#. *******
DATA STATEMENTS ******.LXD#. **********
********************..XN#. "COMPLETE B",
40,40,120,1..XX#. "ISOCAL",32.5,42,125,1
.06.LX.#. "SUSTACAL",60.3,23,137.8,1..X.
#. "ENSURE",35,35,136.7,1.06..Y.#. "SUST
ACAL HC",40.6,38.6,126.5,1.5.<Y #. "ENSU
RE PLUS",36.6,35.5,133.2,1.5.[Y.#. "ISOC
AL HCN",38,46,112,2.ZY.#. "PORTAGEN",35,
47.7,115,1..Y.#. "VIVONEX",20.4,1.4,230,
1..YH#. "VIVONEX HN",43.3,0.9,211,1..YR#
. "AMIN AID",9.72,35.2,162,2..Z.#. "TRAV
ASORB RENAL",17.13,13.3,202.7,1.35.(Z.#.
"CIB",55.2,27.6,124.1,1.LZ.#. "NUTRAMEN
T",44.4,27.7,144.4,1.OZ.#. "CITROTEIN",6
0.5,2.6,184.2,1..Z.$. 999,999,999,999,99
9..Z.$. ******************************.S
Z.$. **** SCREEN PRINT UTILITY ****..Z"$
. ******************************..{,$.3,
3:.4,4:.".";:SS.(B(210)).256..{6$.R.0.24
:B$."".@{@$.C.0.39:A$."".~{J$.B(SS.((R.4
0).C)).127.:.#3,A$:B$.B$.G(18).A$.G(146)
:.9320..{T$.#3,A$:.A$.G(13).:A$.""..{^$B
$.B$.A$..{H$.C:.4,B$:.R.I{R$.X.1.20:.4:.
X.Y{|$ 3,3: 4,4:...{.$....
> CLICK IMAGE PREVIEW FOR FULL MODAL