home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 027 / lipid.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-31  |  58.9 KB  |  1,070 lines
  1.           { LIPD PROFILING PROGRAM FOR USE ALONE, OR WITH THE }
  2.           { PROGRAM LABCOAT AS A LINKED EXECUTE FILE.  IF YOU }
  3.           { DECIDE TO USE AS STAND ALONE, THEN DELETE THE     }
  4.           { EXECUTE CALLS - ELSE CRASH-A-ROONIE AT END.       }
  5.  
  6.         {   Doug Standing and Max von Birdface  - Version 3.6  }
  7.  
  8. PROGRAM LIPID;               { v2.0 6/87; v3.6 6/90 copyright }
  9.  
  10.     TYPE
  11.       STRINGTYPE = STRING[50];
  12.  
  13.    VAR
  14.      FIRSTNAME, LASTNAME,ID,DATE,P,DOCTOR                    : STRINGTYPE;
  15.      CH,CH1,SEX,CHYL                                         : CHAR;
  16.      AGE,I                                                   : INTEGER;
  17.      CHOL,TRIG,HDL,LDL,VLDL,CHOLHDL,LDLHDL                   : REAL;
  18.  
  19. PROCEDURE CLEARLINES;                    { clears lines 23 & 24 }
  20.     BEGIN
  21.       GOTOXY(1,23);TEXTBACKGROUND(0);CLREOL;GOTOXY(1,24);TEXTBACKGROUND(0);CLREOL;
  22.     END;
  23.  
  24. PROCEDURE MAKEaREPORT;  FORWARD;         { forward ref for procedure }
  25.  
  26. PROCEDURE GETOUT; FORWARD;               { forward reference for proc }
  27.  
  28. PROCEDURE MAKEaBORDER (VAR OUTFILE : TEXT);   { For Printer use }
  29.     BEGIN
  30.       FOR I:= 1 TO 80 DO
  31.       WRITE(LST,CHR(61));        { note: 205 works best with IBM char set }
  32.       WRITELN(LST);
  33.     END;
  34.  
  35. PROCEDURE MAKEaLINE;                     { For the Screen to use }
  36.    BEGIN
  37.      FOR I := 1 TO 80 DO
  38.      WRITE(CHR(205));
  39.      WRITELN;
  40.    END;
  41.  
  42. PROCEDURE SIGNON;                 { initial fancy screen }
  43.     BEGIN
  44.       TEXTBACKGROUND(0);GRAPHBACKGROUND(0);CLRSCR;GOTOXY(1,5);TEXTCOLOR(15);
  45.       MAKEaLINE;GOTOXY(1,6);TEXTCOLOR(4);MAKEaLINE;GOTOXY(1,7);TEXTCOLOR(1);
  46.       MAKEaLINE;GOTOXY(12,8);TEXTCOLOR(14);
  47.       WRITE('LIPOPROTEIN DATA ENTRY AND CALCULATIONS - v3.6  ds/mvbf');
  48.       GOTOXY(1,9);TEXTCOLOR(2);MAKEaLINE;GOTOXY(1,10);TEXTCOLOR(3);MAKEaLINE;
  49.       GOTOXY(1,11);TEXTCOLOR(7);MAKEaLINE;GOTOXY(40,23);DELAY(500);
  50.     END;
  51.  
  52. PROCEDURE LBCOAT;           { Execute Procedure to Return to other Program }
  53.  VAR                        { Need to alter your exit here if using this  }
  54.                             { program without LABCOAT Program & as COM   }
  55.    LABCOAT:FILE;
  56.    BEGIN
  57.      ASSIGN(LABCOAT,'LABCOAT.COM');EXECUTE(LABCOAT);
  58.    END;
  59.  
  60. {################ BEGINING OF NORMAL RANGE DETERMINENTS ###################}
  61.  
  62. {---------------------------- LESS THEN 15 yo ------------------------------}
  63.  
  64. OVERLAY PROCEDURE GROUP1;
  65.     BEGIN
  66.       CLRSCR;IF (SEX = 'M') OR (SEX = 'm') THEN
  67.         BEGIN
  68.           IF (CHOL < 173) THEN WRITELN
  69. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 173          >= 190')
  70.           ELSE IF (CHOL >= 173) AND (CHOL < 190) THEN WRITELN
  71. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 173          >= 190')
  72.           ELSE IF (CHOL >= 190) THEN WRITELN
  73. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 173          >= 190');
  74.           IF (TRIG <100) THEN WRITELN
  75. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL                      >  100')
  76.           ELSE IF (TRIG >=100) THEN WRITELN
  77. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *                   >= 100');
  78.           IF (HDL < 38) THEN WRITELN
  79. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *                   <   38')
  80.           ELSE IF (HDL >= 38) THEN WRITELN
  81. (LST,'          HDL           =  ',HDL:5:1,' mg/dL                      <   38');
  82.           IF (LDL < 106) THEN WRITELN
  83. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 106          >= 120')
  84.           ELSE IF (LDL >= 106) AND (LDL < 120) THEN WRITELN
  85. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 106          >= 120')
  86.           ELSE IF (LDL >= 120) THEN WRITELN
  87. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 106          >= 120');
  88.           IF (VLDL > 100) THEN WRITELN
  89. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  90.           ELSE IF (VLDL < 100) AND (VLDL >42) THEN WRITELN
  91. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100 ')
  92.           ELSE IF (VLDL  <= 42) THEN WRITELN
  93. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100');
  94.           IF (CHOLHDL >= 9.6) THEN WRITELN
  95. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  96.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL <9.6) THEN WRITELN
  97. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  98.           ELSE IF (CHOLHDL <= 5) THEN WRITELN
  99. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6');
  100.           IF (LDLHDL <= 2.8) THEN WRITELN
  101. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >   2.8         >   5.0')
  102.           ELSE IF (LDLHDL > 2.8) AND (LDLHDL <=5) THEN WRITELN
  103. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >   2.8         >   5.0')
  104.           ELSE IF (LDLHDL > 5) THEN WRITELN
  105. (LST,'          LDL/HDL       =  ',LDLHDL:5:2,' ratio  *   >   2.8         >   5.0');
  106.           WRITELN(LST);
  107.           WRITELN
  108. (LST,'                 Risk Assessment for Males < 15 years old');
  109.        END
  110.       ELSE IF (SEX = 'F') OR (SEX ='f') THEN
  111.         BEGIN
  112.           IF (CHOL < 174) THEN WRITELN
  113. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 174          >= 180')
  114.           ELSE IF (CHOL >= 174) AND (CHOL < 180) THEN WRITELN
  115. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 174          >= 180')
  116.           ELSE IF (CHOL >= 180) THEN WRITELN
  117. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 174          >= 180');
  118.           IF (TRIG < 115) THEN WRITELN
  119. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 115          >= 130')
  120.           ELSE IF (TRIG >= 115) AND (TRIG < 130) THEN WRITELN
  121. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 115          >= 130')
  122.           ELSE IF (TRIG >= 130) THEN WRITELN
  123. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 115          >= 130');
  124.           IF (HDL <= 36) THEN WRITELN
  125. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *                   <= 36')
  126.           ELSE IF (HDL > 36) THEN WRITELN
  127. (LST,'          HDL           =  ',HDL:5:1,' mg/dL                      <= 36');
  128.           IF (LDL < 113) THEN WRITELN
  129. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 113          >= 126')
  130.           ELSE IF (LDL >= 113) AND (LDL < 126) THEN WRITELN
  131. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 113          >= 126')
  132.           ELSE IF (LDL >= 126) THEN WRITELN
  133. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 113          >= 126');
  134.           IF (VLDL <= 100)  AND (VLDL > 42) THEN WRITELN
  135. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >    42         >  100')
  136.           ELSE IF (VLDL > 100) THEN WRITELN
  137. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >    42         >  100')
  138.           ELSE IF (VLDL <= 42) THEN WRITELN
  139. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >= 100 ');
  140.           IF (CHOLHDL <= 4) THEN WRITELN
  141. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >   7.0')
  142.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL <= 7) THEN WRITELN
  143. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >   7.0')
  144.           ELSE IF (CHOLHDL > 7) THEN WRITELN
  145. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >   7.0');
  146.           IF (LDLHDL <= 2.8) THEN WRITELN
  147. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >   2.8         >   5.0')
  148.           ELSE IF (LDLHDL > 2.8) AND (LDLHDL <=5) THEN WRITELN
  149. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >   2.8         >   5.0')
  150.           ELSE IF (LDLHDL > 5) THEN WRITELN
  151. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >   2.8         >   5.0');
  152.           WRITELN(LST);
  153.           WRITELN
  154. (LST,'                Risk Assessment for Females < 15 years old');
  155.        END
  156.     END;
  157.  
  158. {------------------------------- 15 TO 19 -----------------------------------}
  159.  
  160. OVERLAY PROCEDURE GROUP2;
  161.     BEGIN
  162.       CLRSCR;
  163.       IF (SEX ='M') OR (SEX = 'm') THEN
  164.         BEGIN
  165.           IF (CHOL < 165) THEN WRITELN
  166. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 165          >= 183')
  167.           ELSE IF (CHOL >= 165) AND (CHOL < 183) THEN WRITELN
  168. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 165          >= 183')
  169.           ELSE IF (CHOL >= 183) THEN WRITELN
  170. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 165          >= 183');
  171.           IF (TRIG < 88) THEN WRITELN
  172. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  88          >= 125')
  173.           ELSE IF (TRIG >= 88) AND (TRIG < 125) THEN WRITELN
  174. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  88          >= 125')
  175.           ELSE IF (TRIG > 125) THEN WRITELN
  176. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  88          >= 125');
  177.           IF (HDL > 39) THEN WRITELN
  178. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  39          <=  34')
  179.           ELSE IF (HDL <= 39) AND (HDL > 34) THEN WRITELN
  180. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  39          <=  34')
  181.           ELSE IF (HDL <= 34) THEN WRITELN
  182. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  39          <=  34');
  183.           IF (LDL < 109) THEN WRITELN
  184. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 109          >= 123')
  185.           ELSE IF (LDL >= 109) AND (LDL < 123) THEN WRITELN
  186. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 109          >= 123')
  187.           ELSE IF (LDL >= 123) THEN WRITELN
  188. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 109          >= 123');
  189.           IF  (VLDL <= 42) THEN WRITELN
  190. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  191.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  192. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  193.           ELSE IF (VLDL > 100) THEN WRITELN
  194. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  195.          IF (CHOLHDL <= 5) THEN WRITELN
  196. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  197.          ELSE IF (CHOLHDL >5) AND (CHOLHDL <=9.6) THEN WRITELN
  198. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  199.          ELSE IF (CHOLHDL > 9.6) THEN WRITELN
  200. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  201.          IF (LDLHDL <= 2.8) THEN WRITELN
  202. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >   2.8         >=  5.0')
  203.          ELSE IF (LDLHDL > 2.8) AND (LDLHDL <=5) THEN WRITELN
  204. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >   2.8         >=  5.0')
  205.          ELSE IF (LDLHDL >= 5) THEN WRITELN
  206. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >   2.8         >=  5.0');
  207.          WRITELN(LST);
  208.          WRITELN
  209. (LST,'                 Risk Assessment for Males ages 15 - 19');
  210.         END
  211.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  212.        BEGIN
  213.          IF (CHOL < 173) THEN WRITELN
  214. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 173          >= 195')
  215.          ELSE IF (CHOL >= 173) AND (CHOL <195) THEN WRITELN
  216. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 173          >= 195')
  217.          ELSE IF (CHOL >= 195) THEN WRITELN
  218. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 173          >= 195');
  219.          IF (TRIG < 84) THEN WRITELN
  220. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  84          >= 108')
  221.          ELSE IF (TRIG >= 84) AND (TRIG < 108) THEN WRITELN
  222. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  84          >= 108')
  223.          ELSE IF (TRIG >= 108) THEN WRITELN
  224. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  84          >= 108');
  225.          IF (HDL > 43) THEN WRITELN
  226. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  43          <=  38')
  227.          ELSE IF (HDL <= 43) AND (HDL > 38) THEN WRITELN
  228. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  43          <=  38')
  229.          ELSE IF (HDL <= 38) THEN WRITELN
  230. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  43          <=  38');
  231.          IF (LDL < 110) THEN WRITELN
  232. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 110          >= 127')
  233.          ELSE IF (LDL >= 110) AND (LDL < 127) THEN WRITELN
  234. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 110          >= 127')
  235.          ELSE IF (LDL >= 127) THEN WRITELN
  236. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 110          >= 127');
  237.          IF (VLDL <= 42) THEN WRITELN
  238. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  239.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  240. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  241.           ELSE IF (VLDL > 100) THEN WRITELN
  242. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  243.          IF (CHOLHDL <= 4) THEN WRITELN
  244. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >   7.0')
  245.          ELSE IF (CHOLHDL > 4) AND (CHOLHDL <=7) THEN WRITELN
  246. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >   7.0')
  247.          ELSE IF (CHOLHDL > 7) THEN WRITELN
  248. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >   7.0');
  249.          IF (LDLHDL < 2.8) THEN WRITELN
  250. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >  5.0')
  251.          ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  252. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >  5.0')
  253.          ELSE IF (LDLHDL > 5) THEN WRITELN
  254. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >  5.0');
  255.          WRITELN(LST);
  256.          WRITELN
  257. (LST,'                 Risk Assessment for Females ages 15 - 19 ');
  258.         END
  259.    END;
  260.  
  261. {------------------------------ 20 - 24 ------------------------------------}
  262.  
  263. OVERLAY PROCEDURE GROUP3;
  264.     BEGIN
  265.       CLRSCR;
  266.       IF (SEX ='M') OR (SEX = 'm') THEN
  267.         BEGIN
  268.           IF (CHOL < 179) THEN WRITELN
  269. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 179          >= 197')
  270.           ELSE IF (CHOL >= 179) AND (CHOL <197) THEN WRITELN
  271. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 179          >= 197')
  272.           ELSE IF (CHOL >= 197) THEN WRITELN
  273. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 179          >= 197');
  274.           IF (TRIG < 107) THEN WRITELN
  275. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 107          >= 146')
  276.           ELSE IF (TRIG >= 107) AND (TRIG < 146) THEN WRITELN
  277. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 107          >= 146')
  278.           ELSE IF (TRIG >= 146) THEN WRITELN
  279. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 107          >= 146');
  280.           IF (HDL > 38) THEN WRITELN
  281. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  38          <=  32')
  282.           ELSE  IF (HDL <= 38) AND (HDL > 32) THEN WRITELN
  283. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32')
  284.           ELSE IF (HDL <= 32) THEN WRITELN
  285. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32');
  286.           IF (LDL < 118) THEN WRITELN
  287. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 118          >= 138')
  288.           ELSE IF (LDL >= 118) AND (LDL < 138) THEN WRITELN
  289. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 118          >= 138')
  290.           ELSE IF (LDL >= 138) THEN WRITELN
  291. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 118          >= 138');
  292.           IF (VLDL <= 42) THEN WRITELN
  293. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  294.           ELSE IF (VLDL > 42) AND (VLDL <=100) THEN WRITELN
  295. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  296.           ELSE IF (VLDL > 100) THEN WRITELN
  297. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  298.           IF (CHOLHDL <= 5) THEN WRITELN
  299. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  300.           ELSE IF (CHOLHDL >5) AND (CHOLHDL < 9.6) THEN WRITELN
  301. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  302.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  303. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  304.           IF (LDLHDL < 2.8) THEN WRITELN
  305. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  306.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  307. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  308.           ELSE IF (LDLHDL > 5) THEN WRITELN
  309. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  310.           WRITELN(LST);
  311.           WRITELN
  312. (LST,'                Risk Assessment for Males ages 20 - 24');
  313.         END
  314.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  315.        BEGIN
  316.           IF (CHOL < 176) THEN WRITELN
  317. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 176          >= 202')
  318.           ELSE IF (CHOL >= 176) AND (CHOL < 202) THEN WRITELN
  319. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 176          >= 202')
  320.           ELSE IF (CHOL >= 202) THEN WRITELN
  321. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 176          >= 202');
  322.           IF (TRIG < 81) THEN WRITELN
  323. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  81          >= 100')
  324.           ELSE IF (TRIG >= 81) AND (TRIG < 100) THEN WRITELN
  325. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  81          >= 100')
  326.           ELSE IF (TRIG >= 100) THEN WRITELN
  327. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  81          >= 100');
  328.           IF (HDL >35) THEN WRITELN
  329. (LST,'          HDL           =  ',HDL:5:1,' mg/dL                      <=  35')
  330.           ELSE IF (HDL <=35) THEN WRITELN
  331. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *                   <=  35');
  332.           IF (LDL < 113) THEN WRITELN
  333. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 113          >= 136')
  334.           ELSE IF (LDL >= 113) AND (LDL < 136) THEN WRITELN
  335. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 113          >= 136')
  336.           ELSE IF (LDL >= 136) THEN WRITELN
  337. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 113          >= 136');
  338.           IF (VLDL <= 42) THEN WRITELN
  339. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  340.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  341. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  342.           ELSE IF (VLDL > 100) THEN WRITELN
  343. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  344.           IF (CHOLHDL <= 4) THEN WRITELN
  345. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0')
  346.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL <7) THEN WRITELN
  347. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  348.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  349. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  350.           IF (LDLHDL < 2.8) THEN WRITELN
  351. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  352.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  353. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  354.           ELSE IF (LDLHDL > 5) THEN WRITELN
  355. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  356.          WRITELN(LST);
  357.          WRITELN
  358. (LST,'                Risk Assessment for Females ages 20 - 24');
  359.       END
  360.    END;
  361.  
  362. {------------------------------- 25 TO 29 ----------------------------------}
  363.  
  364. OVERLAY PROCEDURE GROUP4;
  365.     BEGIN
  366.       CLRSCR;
  367.       IF (SEX = 'M') OR (SEX = 'm') THEN
  368.         BEGIN
  369.           IF (CHOL < 199) THEN WRITELN
  370. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 199          >= 223')
  371.           ELSE IF (CHOL >= 199) AND (CHOL < 223) THEN WRITELN
  372. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 199          >= 223')
  373.           ELSE IF (CHOL >= 223) THEN WRITELN
  374. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 199          >= 223');
  375.           IF (TRIG < 120) THEN WRITELN
  376. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 120          >= 171')
  377.           ELSE IF (TRIG >= 120) AND (TRIG < 171) THEN WRITELN
  378. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 120          >= 171')
  379.           ELSE IF (TRIG >= 171) THEN WRITELN
  380. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 120          >= 171');
  381.           IF (HDL > 37) THEN WRITELN
  382. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  37          <=  32')
  383.           ELSE IF (HDL <= 37) AND (HDL > 32)  THEN WRITELN
  384. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  37          <=  32')
  385.           ELSE IF (HDL <= 32) THEN WRITELN
  386. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  37          <=  32');
  387.           IF (LDL < 138) THEN WRITELN
  388. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 138          >= 157')
  389.           ELSE IF (LDL >= 138) AND (LDL < 157) THEN WRITELN
  390. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 138          >= 157')
  391.           ELSE IF (LDL >= 157) THEN WRITELN
  392. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 138          >= 157');
  393.           IF (VLDL <= 42) THEN WRITELN
  394. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  395.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  396. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  397.           ELSE IF (VLDL > 100) THEN WRITELN
  398. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  399.           IF (CHOLHDL <= 5) THEN WRITELN
  400. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  401.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL <9.6) THEN WRITELN
  402. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  403.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  404. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  405.           IF (LDLHDL < 2.8) THEN WRITELN
  406. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >=  5.0')
  407.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <=5) THEN WRITELN
  408. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0')
  409.           ELSE IF (LDLHDL >= 5) THEN WRITELN
  410. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0');
  411.        WRITELN(LST);
  412.        WRITELN
  413. (LST,'                  Risk Assessment for Males ages 25 - 29');
  414.      END
  415.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  416.        BEGIN
  417.           IF (CHOL < 192) THEN WRITELN
  418. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 192          >= 213')
  419.           ELSE IF (CHOL >= 192) AND (CHOL < 213) THEN WRITELN
  420. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 192          >= 213')
  421.           ELSE IF (CHOL >= 213) THEN WRITELN
  422. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 192          >= 213');
  423.           IF (TRIG < 86) THEN WRITELN
  424. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  86          >= 108')
  425.           ELSE IF (TRIG >= 86) AND (TRIG < 108) THEN WRITELN
  426. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  86          >= 108')
  427.           ELSE IF (TRIG >= 108) THEN WRITELN
  428. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  86          >= 108');
  429.           IF (HDL > 47) THEN WRITELN
  430. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  47          <=  40')
  431.           ELSE IF (HDL <= 47) AND (HDL > 40) THEN WRITELN
  432. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  40')
  433.           ELSE IF (HDL <= 40) THEN WRITELN
  434. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  40');
  435.           IF (LDL < 122) THEN WRITELN
  436. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 122          >= 141')
  437.           ELSE IF (LDL >= 122) AND (LDL < 141) THEN WRITELN
  438. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 122          >= 141')
  439.           ELSE IF (LDL >= 141) THEN WRITELN
  440. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 122          >= 141');
  441.           IF (VLDL <= 42) THEN WRITELN
  442. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  443.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  444. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  445.           ELSE IF (VLDL > 100) THEN WRITELN
  446. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  447.           IF (CHOLHDL <= 4) THEN WRITELN
  448. (LST,'          VLDL          =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0')
  449.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL <7) THEN WRITELN
  450. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  451.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  452. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  453.           IF (LDLHDL < 2.8) THEN WRITELN
  454. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  455.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  456. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  457.           ELSE IF (LDLHDL > 5) THEN WRITELN
  458. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  459.        WRITELN(LST); WRITELN
  460. (LST,'                  Risk Assessment for Females ages 25 - 29');
  461.       END
  462.     END;
  463.  
  464. {-------------------------------- 30 TO 34 ----------------------------------}
  465.  
  466. OVERLAY PROCEDURE GROUP5;
  467.     BEGIN
  468.       CLRSCR;      IF (SEX = 'M') OR (SEX = 'm') THEN
  469.         BEGIN
  470.           IF (CHOL < 213) THEN WRITELN
  471. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 213          >= 237')
  472.           ELSE IF (CHOL >= 213) AND (CHOL < 237) THEN WRITELN
  473. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 213          >= 237')
  474.           ELSE IF (CHOL >= 237) THEN WRITELN
  475. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 213          >= 237');
  476.           IF (TRIG < 142) THEN WRITELN
  477. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 142          >= 214')
  478.           ELSE IF (TRIG >= 142) AND (TRIG < 214) THEN WRITELN
  479. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 142          >= 214')
  480.           ELSE IF (TRIG >= 214) THEN WRITELN
  481. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 142          >= 214');
  482.           IF (HDL > 38) THEN WRITELN
  483. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  38          <=  32')
  484.           ELSE IF (HDL <= 38) AND (HDL > 32) THEN WRITELN
  485. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32')
  486.           ELSE IF (HDL <= 32) THEN WRITELN
  487. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32');
  488.           IF (LDL < 144) THEN WRITELN
  489. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 144          >= 166')
  490.           ELSE IF (LDL >= 144) AND (LDL < 166) THEN WRITELN
  491. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 144          >= 166')
  492.           ELSE IF (LDL >= 166) THEN WRITELN
  493. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 144          >= 166');
  494.           IF (VLDL <= 42) THEN WRITELN
  495. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  496.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  497. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  498.           ELSE IF (VLDL > 100) THEN WRITELN
  499. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  500.           IF (CHOLHDL <= 5) THEN WRITELN
  501. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  502.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL < 9.6) THEN WRITELN
  503. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  504.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  505. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  506.           IF (LDLHDL < 2.8) THEN WRITELN
  507. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  508.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <=5) THEN WRITELN
  509. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  510.           ELSE IF (LDLHDL > 5) THEN WRITELN
  511. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  512.        WRITELN(LST); WRITELN
  513. (LST,'                 Risk Assessment for Males ages 30 - 34');
  514.      END
  515.    ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  516.        BEGIN
  517.           IF (CHOL < 193) THEN WRITELN
  518. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 193          >= 211')
  519.           ELSE IF (CHOL >= 193) AND (CHOL < 211) THEN WRITELN
  520. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 193          >= 211')
  521.           ELSE IF (CHOL >= 211) THEN WRITELN
  522. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 193          >= 211');
  523.           IF (TRIG < 84 ) THEN WRITELN
  524. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  84          >= 115')
  525.           ELSE IF (TRIG >= 84) AND ( TRIG < 115) THEN WRITELN
  526. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  84          >= 115')
  527.           ELSE IF ( TRIG >= 115) THEN WRITELN
  528. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  84          >= 115');
  529.           IF ( HDL > 46) THEN WRITELN
  530. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  46          <=  40')
  531.           ELSE IF (HDL <= 46) AND (HDL > 40) THEN WRITELN
  532. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  46          <=  40')
  533.           ELSE IF (HDL <= 40 ) THEN WRITELN
  534. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  46          <=  40');
  535.           IF (LDL < 126) THEN WRITELN
  536. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 126          >= 142')
  537.           ELSE IF (LDL >= 126) AND (LDL < 142) THEN WRITELN
  538. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 126          >= 142')
  539.           ELSE IF (LDL >= 142) THEN WRITELN
  540. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 126          >= 142');
  541.           IF (VLDL <= 42) THEN WRITELN
  542. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  543.           ELSE IF (VLDL > 42) AND (VLDL <=100) THEN WRITELN
  544. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  545.           ELSE IF (VLDL > 100) THEN WRITELN
  546. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  547.           IF (CHOLHDL <= 4) THEN WRITELN
  548. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0' )
  549.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL < 7) THEN WRITELN
  550. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  551.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  552. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  553.           IF (LDLHDL < 2.8) THEN WRITELN
  554. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  555.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  556. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  557.           ELSE IF (LDLHDL > 5) THEN WRITELN
  558. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  559.        WRITELN(LST);
  560.        WRITELN
  561. (LST,'                 Risk Assessment for Females ages 30 - 34');
  562.      END
  563.    END;
  564.  
  565. {------------------------------ 35 TO 39 ------------------------------------}
  566.  
  567. OVERLAY PROCEDURE GROUP6;
  568.    BEGIN
  569.      CLRSCR;
  570.        IF (SEX ='M') OR (SEX = 'm') THEN
  571.          BEGIN
  572.           IF (CHOL < 222) THEN WRITELN
  573. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 222          >= 248')
  574.           ELSE IF (CHOL >= 222) AND (CHOL < 248) THEN WRITELN
  575. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 222          >= 248')
  576.           ELSE IF (CHOL >= 248) THEN WRITELN
  577. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 222          >= 248');
  578.           IF (TRIG < 167) THEN WRITELN
  579. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 167          >= 250')
  580.           ELSE IF (TRIG >= 167) AND (TRIG < 250) THEN WRITELN
  581. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 167          >= 250')
  582.           ELSE IF (TRIG >= 250) THEN WRITELN
  583. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 167          >= 250');
  584.           IF (HDL > 36) THEN WRITELN
  585. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  36          <=  31')
  586.           ELSE IF (HDL <= 36) AND (HDL > 31) THEN WRITELN
  587. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  36          <=  31')
  588.           ELSE IF (HDL <= 31) THEN WRITELN
  589. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  36          <=  31');
  590.           IF (LDL < 154) THEN WRITELN
  591. (LST,'          LDL           =  ',LDL:5:1,' mg/dl      >= 154          >= 176')
  592.           ELSE IF (LDL >= 154) AND (LDL < 176) THEN WRITELN
  593. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 154          >= 176')
  594.           ELSE IF (LDL >= 176) THEN WRITELN
  595. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 154          >= 176');
  596.           IF (VLDL <= 42) THEN WRITELN
  597. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  598.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  599. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  600.           ELSE IF (VLDL > 100) THEN WRITELN
  601. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100 ');
  602.           IF (CHOLHDL <= 5) THEN WRITELN
  603. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >   9.6')
  604.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL < 9.6) THEN WRITELN
  605. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >   9.6')
  606.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  607. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >   9.6');
  608.           IF (LDLHDL < 2.8) THEN WRITELN
  609. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >=  5.0')
  610.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  611. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0')
  612.           ELSE IF (LDLHDL > 5) THEN WRITELN
  613. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0');
  614.        WRITELN(LST);  WRITELN
  615. (LST,'                 Risk Assessment for Males ages 35 - 39');
  616.      END
  617.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  618.       BEGIN
  619.           IF (CHOL < 208) THEN WRITELN
  620. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 208          >= 229')
  621.           ELSE IF (CHOL >= 208) AND (CHOL < 229) THEN WRITELN
  622. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 208          >= 229')
  623.           ELSE IF (CHOL >= 229) THEN WRITELN
  624. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 208          >= 229');
  625.           IF (TRIG < 98) THEN WRITELN
  626. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >=  98          >= 148')
  627.           ELSE IF (TRIG >= 98) AND (TRIG < 148) THEN WRITELN
  628. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  98          >= 148')
  629.           ELSE IF (TRIG >= 148) THEN WRITELN
  630. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >=  98          >= 148');
  631.           IF (HDL > 44) THEN WRITELN
  632. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  44          <=  38')
  633.           ELSE IF (HDL <= 44) AND (HDL > 38) THEN WRITELN
  634. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  44          <=  38')
  635.           ELSE IF (HDL <= 38) THEN WRITELN
  636. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  44          <=  38');
  637.           IF (LDL < 139) THEN WRITELN
  638. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 139          >= 161')
  639.           ELSE IF (LDL >= 139) AND (LDL < 161) THEN WRITELN
  640. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 139          >= 161')
  641.           ELSE IF (LDL >= 161) THEN WRITELN
  642. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 139          >= 161');
  643.           IF (VLDL <= 42) THEN WRITELN
  644. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  645.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  646. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  647.           ELSE IF (VLDL > 100) THEN WRITELN
  648. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  649.           IF (CHOLHDL <= 4) THEN WRITELN
  650. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0')
  651.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL < 7) THEN WRITELN
  652. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  653.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  654. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  655.           IF (LDLHDL < 2.8) THEN WRITELN
  656. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  657.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  658. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  659.           ELSE IF (LDLHDL > 5) THEN WRITELN
  660. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  661.        WRITELN(LST);  WRITELN
  662. (LST,'                Risk Assessment for Females ages 35 - 39');
  663.       END
  664.    END;
  665.  
  666. {---------------------------- 40 TO 49 --------------------------------------}
  667.  
  668. OVERLAY PROCEDURE GROUP7;
  669.    BEGIN
  670.    CLRSCR;  IF (SEX = 'M') OR (SEX = 'm') THEN
  671.      BEGIN
  672.           IF (CHOL < 231) THEN WRITELN
  673. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 231          >= 254')
  674.           ELSE IF (CHOL >= 231) AND (CHOL < 254) THEN WRITELN
  675. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 231          >= 254')
  676.           ELSE IF (CHOL >= 254) THEN WRITELN
  677. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 231          >= 254');
  678.           IF (TRIG < 175) THEN WRITELN
  679. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 175          >= 235')
  680.           ELSE IF (TRIG >= 175) AND (TRIG < 235) THEN WRITELN
  681. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 175          >= 235')
  682.           ELSE IF (TRIG >= 235) THEN WRITELN
  683. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 175          >= 235');
  684.           IF (HDL > 38) THEN WRITELN
  685. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  38          <=  31')
  686.           ELSE IF (HDL <= 38) AND (HDL > 31) THEN WRITELN
  687. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  31')
  688.           ELSE IF (HDL <= 31) THEN WRITELN
  689. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  31');
  690.           IF (LDL < 160 ) THEN WRITELN
  691. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 160          >= 180')
  692.           ELSE IF (LDL >= 160) AND (LDL < 180) THEN WRITELN
  693. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 160          >= 180')
  694.           ELSE IF (LDL >= 180) THEN WRITELN
  695. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 160          >= 180');
  696.           IF (VLDL <= 42) THEN WRITELN
  697. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  698.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  699. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  700.           ELSE IF (VLDL > 100) THEN WRITELN
  701. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  702.           IF (CHOLHDL <= 5) THEN WRITELN
  703. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  704.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL < 9.6) THEN WRITELN
  705. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  706.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  707. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  708.           IF (LDLHDL < 2.8) THEN WRITELN
  709. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >=  5.0')
  710.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  711. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0')
  712.           ELSE IF (LDLHDL > 5) THEN WRITELN
  713. (LST,'          LDLHDL        =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0');
  714.        WRITELN(LST);  WRITELN
  715. (LST,'                Risk Assessment for Males ages 40 -49');
  716.      END
  717.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  718.        BEGIN
  719.           IF (CHOL < 218) THEN WRITELN
  720. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 218          >= 245')
  721.           ELSE IF (CHOL >= 218) AND (CHOL < 245) THEN WRITELN
  722. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 218          >= 245')
  723.           ELSE IF (CHOL >= 245) THEN WRITELN
  724. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 218          >= 245');
  725.           IF (TRIG < 113) THEN WRITELN
  726. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 113          >= 157')
  727.           ELSE IF (TRIG >= 113) AND (TRIG < 157) THEN WRITELN
  728. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 113          >= 157')
  729.           ELSE IF (TRIG >= 157) THEN WRITELN
  730. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 113          >= 157');
  731.           IF (HDL > 47) THEN WRITELN
  732. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  47          <=  39')
  733.           ELSE IF (HDL <= 47) AND (HDL > 39) THEN WRITELN
  734. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  39')
  735.           ELSE IF (HDL <= 39) THEN WRITELN
  736. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  39');
  737.           IF (LDL < 147) THEN WRITELN
  738. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 147          >= 170')
  739.           ELSE IF (LDL >= 147) AND (LDL < 170) THEN WRITELN
  740. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 147          >= 170')
  741.           ELSE IF (LDL >= 170) THEN WRITELN
  742. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 147          >= 170');
  743.           IF (VLDL <= 42) THEN WRITELN
  744. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  745.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  746. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  747.           ELSE IF (VLDL > 100) THEN WRITELN
  748. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  749.           IF (CHOLHDL <= 4) THEN WRITELN
  750. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0')
  751.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL < 7) THEN WRITELN
  752. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  753.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  754. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  755.           IF (LDLHDL < 2.8) THEN WRITELN
  756. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  757.           ELSE IF (LDLHDL >=2.8) AND (LDLHDL <= 5) THEN WRITELN
  758. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  759.           ELSE IF (LDLHDL > 5) THEN WRITELN
  760. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  761.        WRITELN(LST);  WRITELN
  762. (LST,'                Risk Assessment for Females ages 40 - 49');
  763.       END
  764.    END;
  765.  
  766. {---------------------------- 50 AND OLDER ---------------------------------}
  767.  
  768. OVERLAY PROCEDURE GROUP8;
  769.    BEGIN
  770.    CLRSCR;   IF (SEX = 'M') OR (SEX = 'm') THEN
  771.        BEGIN
  772.           IF (CHOL < 237) THEN WRITELN
  773. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 237          >= 260')
  774.           ELSE IF (CHOL >= 237) AND (CHOL < 260) THEN WRITELN
  775. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 237          >= 260')
  776.           ELSE IF (CHOL >= 260) THEN WRITELN
  777. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 237          >= 260');
  778.           IF (TRIG < 160) THEN WRITELN
  779. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 160          >= 215')
  780.           ELSE IF (TRIG >= 160) AND (TRIG < 215) THEN WRITELN
  781. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 160          >= 215')
  782.           ELSE IF (TRIG >= 215) THEN WRITELN
  783. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 160          >= 215');
  784.           IF (HDL > 38) THEN WRITELN
  785. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  38          <=  32')
  786.           ELSE IF (HDL <= 38) AND (HDL > 32) THEN WRITELN
  787. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32')
  788.           ELSE IF (HDL <= 32) THEN WRITELN
  789. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  38          <=  32');
  790.           IF (LDL < 165) THEN WRITELN
  791. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 165          >= 190')
  792.           ELSE IF (LDL >= 165) AND (LDL < 190) THEN WRITELN
  793. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 165          >= 190')
  794.           ELSE IF (LDL >= 190) THEN WRITELN
  795. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 165          >= 190');
  796.           IF (VLDL <= 42) THEN WRITELN
  797. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  798.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  799. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  800.           ELSE IF (VLDL > 100) THEN WRITELN
  801. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  802.           IF (CHOLHDL <= 5) THEN WRITELN
  803. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   5.0         >=  9.6')
  804.           ELSE IF (CHOLHDL > 5) AND (CHOLHDL < 9.6) THEN WRITELN
  805. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6')
  806.           ELSE IF (CHOLHDL >= 9.6) THEN WRITELN
  807. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   5.0         >=  9.6');
  808.           IF (LDLHDL < 2.8) THEN WRITELN
  809. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >=  5.0')
  810.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  811. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0')
  812.           ELSE IF (LDLHDL > 5) THEN WRITELN
  813. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >=  5.0');
  814.        WRITELN(LST);  WRITELN
  815. (LST,'                Risk Assessment for Males ages 50 years & over');
  816.      END
  817.      ELSE IF (SEX = 'F') OR (SEX = 'f') THEN
  818.        BEGIN
  819.           IF (CHOL < 256) THEN WRITELN
  820. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL      >= 256          >= 280')
  821.           ELSE IF (CHOL >= 256) AND (CHOL < 280) THEN WRITELN
  822. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 256          >= 280')
  823.           ELSE IF (CHOL >= 280) THEN WRITELN
  824. (LST,'          CHOL          =  ',CHOL:5:1,' mg/dL  *   >= 256          >= 280');
  825.           IF (TRIG < 140) THEN WRITELN
  826. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL      >= 140          >= 200')
  827.           ELSE IF (TRIG >= 140) AND (TRIG < 200) THEN WRITELN
  828. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 140          >= 200')
  829.           ELSE IF (TRIG >= 200) THEN WRITELN
  830. (LST,'          TRIG          =  ',TRIG:5:1,' mg/dL  *   >= 140          >= 200');
  831.           IF (HDL > 47) THEN WRITELN
  832. (LST,'          HDL           =  ',HDL:5:1,' mg/dL      <=  47          <=  39')
  833.           ELSE IF (HDL <= 47) AND (HDL > 39) THEN WRITELN
  834. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  39')
  835.           ELSE IF (HDL <= 39) THEN WRITELN
  836. (LST,'          HDL           =  ',HDL:5:1,' mg/dL  *   <=  47          <=  39');
  837.           IF (LDL < 179) THEN WRITELN
  838. (LST,'          LDL           =  ',LDL:5:1,' mg/dL      >= 179          >= 195')
  839.           ELSE IF (LDL >= 179) AND (LDL < 195) THEN WRITELN
  840. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 179          >= 195')
  841.           ELSE IF (LDL >= 195) THEN WRITELN
  842. (LST,'          LDL           =  ',LDL:5:1,' mg/dL  *   >= 179          >= 195');
  843.           IF (VLDL <= 42) THEN WRITELN
  844. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL      >   42          >  100')
  845.           ELSE IF (VLDL > 42) AND (VLDL <= 100) THEN WRITELN
  846. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100')
  847.           ELSE IF (VLDL > 100) THEN WRITELN
  848. (LST,'          VLDL          =  ',VLDL:5:1,' mg/dL  *   >   42          >  100');
  849.           IF (CHOLHDL <= 4) THEN WRITELN
  850. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio      >   4.0         >=  7.0')
  851.           ELSE IF (CHOLHDL > 4) AND (CHOLHDL < 7) THEN WRITELN
  852. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0')
  853.           ELSE IF (CHOLHDL >= 7) THEN WRITELN
  854. (LST,'          CHOL/HDL      =  ',CHOLHDL:5:1,' ratio  *   >   4.0         >=  7.0');
  855.           IF (LDLHDL < 2.8) THEN WRITELN
  856. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio      >=  2.8         >   5.0')
  857.           ELSE IF (LDLHDL >= 2.8) AND (LDLHDL <= 5) THEN WRITELN
  858. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0')
  859.           ELSE IF (LDLHDL > 5) THEN WRITELN
  860. (LST,'          LDL/HDL       =  ',LDLHDL:5:1,' ratio  *   >=  2.8         >   5.0');
  861.        WRITELN(LST);  WRITELN
  862. (LST,'                Risk Assessment for Females ages 50 years & older');
  863.       END
  864.   END;
  865.  
  866. {****************************** DATA ENTRY PROCEDURE ************************}
  867.  
  868. PROCEDURE GETDATA;
  869.     BEGIN
  870.       MEM[$40:$17] := MEM[$40:$17] OR $40;    { Toggle on Caps Lock }
  871.       MEM[$40:$17] := MEM[$40:$17] OR $20;    { Toggle on Num Lock }
  872.       GOTOXY(25,20);TEXTCOLOR(1);WRITE('CAPS and NUMLOCK are toggled ON');
  873.       GOTOXY(1,23);TEXTCOLOR(7);WRITE('Please Enter Lab Name: ');
  874.       TEXTCOLOR(14);READ(P);CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  875.       WRITE('Please Enter the Doctor Name: ');TEXTCOLOR(14);READ(DOCTOR);
  876.       CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  877.       WRITE('Please also Enter the Test Date (MM/DD/YY): ');TEXTCOLOR(14);
  878.       READ(DATE);CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  879.       WRITE('Please enter the patient''s First Name: ');TEXTCOLOR(14);
  880.       READ(FIRSTNAME);CLEARLINES;TEXTCOLOR(7);GOTOXY(1,23);
  881.       WRITE('Please enter ',FIRSTNAME,'''s Last Name: ');
  882.       TEXTCOLOR(14);READ(LASTNAME);CLEARLINES;TEXTCOLOR(7);GOTOXY(1,23);
  883.         AGE:= 0;CHOL:=0;TRIG:= 0;HDL:= 1;
  884.       WRITE('Please enter any patient ID # here (up to 10 characters): ');
  885.       TEXTCOLOR(14);READ(ID);CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  886.       WRITE('What is ',FIRSTNAME,'''s age in years? (whole numbers): ');
  887.       TEXTCOLOR(14);READ(AGE);CLEARLINES;
  888.         REPEAT
  889.           GOTOXY(1,23);TEXTCOLOR(7);
  890.           WRITE('Please enter either `F'' or `M'' for ',FIRSTNAME,'''s sex: ');
  891.           TEXTCOLOR(14);READ(CH);CLEARLINES;
  892.         UNTIL (CH = 'F') OR (CH = 'f') OR (CH = 'M') OR (CH = 'm');
  893.       SEX := CH;GOTOXY(1,23);TEXTCOLOR(7);
  894.       WRITE('Please enter ',FIRSTNAME,'''s Cholesterol Level (mg/dL): ');
  895.       TEXTCOLOR(14);READ(CHOL);CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  896.       WRITE('Please next enter ',FIRSTNAME,'''s Triglyceride Level (mg/dL): ');
  897.       TEXTCOLOR(14);READ(TRIG);CLEARLINES;GOTOXY(1,23);TEXTCOLOR(7);
  898.       WRITE('Now, please enter ',FIRSTNAME,'''s HDL Level (mg/dL): ');
  899.       TEXTCOLOR(14);READ(HDL);CLEARLINES;
  900.         REPEAT
  901.           GOTOXY(1,23);TEXTCOLOR(7);WRITE
  902.           ('Was a Chylomicron Layer Present in Chilled Specimen? (Y/N): ');
  903.           TEXTCOLOR(14);READ(CH1);CLEARLINES;
  904.         UNTIL (CH1 = 'Y') OR (CH1 = 'y') OR (CH1 = 'N') OR (CH1 = 'n');
  905.           CHYL := CH1;GOTOXY(11,24);TEXTCOLOR(4);
  906.       WRITE('Thank You, that''s all I need - press any key to continue');
  907.       READ(KBD,CH);CLEARLINES;
  908.         CHOLHDL := CHOL / HDL;
  909.         VLDL := TRIG / 5;                     { THE FORMULAS FOR PROFILE }
  910.         LDL := CHOL - (VLDL + HDL);
  911.         LDLHDL := LDL / HDL;
  912.       GOTOXY(5,14);TEXTCOLOR(15);WRITE('PT:  ',LASTNAME,', ',FIRSTNAME);
  913.       WRITE('      AGE:  ',AGE);WRITE('      SEX:  ',SEX);WRITE('      ID#:  ',ID);
  914.       GOTOXY(22,17);TEXTCOLOR(14);WRITE('CHOLESTEROL      = ');
  915.       TEXTCOLOR(15);WRITE(CHOL:10:1); WRITE('  mg/dL');      GOTOXY(22,18);
  916.       TEXTCOLOR(14);      WRITE('TRIGLYCERIDE     = ');TEXTCOLOR(15);
  917.       WRITE(TRIG:10:1);WRITE('  mg/dL');      GOTOXY(22,19);  TEXTCOLOR(14);
  918.       WRITE('HDL              = ');TEXTCOLOR(15);      WRITE(HDL:10:1);
  919.       WRITE('  mg/dL');GOTOXY(22,20);TEXTCOLOR(14);WRITE('VLDL             = ');
  920.       TEXTCOLOR(15);WRITE(VLDL:10:1);WRITE('  mg/dL');GOTOXY(22,21);
  921.       TEXTCOLOR(14);WRITE('LDL              = ');TEXTCOLOR(15);
  922.       WRITE(LDL:10:1);WRITE('  mg/dL');GOTOXY(22,22);TEXTCOLOR(14);
  923.       WRITE('LDL / HDL ratio  = ');TEXTCOLOR(15);WRITE(LDLHDL:10:1);GOTOXY(22,23);
  924.       TEXTCOLOR(14);      WRITE('CHOL / HDL ratio = ');      TEXTCOLOR(15);
  925.       WRITE(CHOLHDL:10:1);      GOTOXY(15,25);      TEXTCOLOR(4);
  926.       WRITE('Peck any key to continue - or Shft-PrtSc to print    ');
  927.       TEXTCOLOR(1);      READ(KBD,CH);      GETOUT;
  928.     END;
  929.  
  930. {******************************** ESCAPE PROCEDURE **************************}
  931.  
  932.     PROCEDURE GETOUT;   { Rather redundant way of getting more than just OUT }
  933.     BEGIN
  934.       SIGNON;      GOTOXY(5,23);      TEXTCOLOR(15);
  935.       WRITE
  936. ('For Complete Printout With Sex/Age Normals - Peck `Y'', or `N'' to Quit: ');
  937.       READ(KBD,CH);      IF (CH = 'N') OR (CH = 'n') THEN
  938.         BEGIN
  939.           CLEARLINES;          GOTOXY(1,23);
  940.           WRITE('   Do you want to do another report? (Y/N): ');
  941.           READ(KBD,CH);
  942.             IF (CH = 'Y') OR (CH = 'y') THEN
  943.               BEGIN
  944.                 CLEARLINES;  SIGNON;  GETDATA;  GETOUT;
  945.               END
  946.            ELSE IF (CH ='N') OR (CH = 'n') THEN LBCOAT;
  947.         END;
  948.       IF (CH = 'Y') OR (CH = 'y') THEN
  949.         MAKEaREPORT;        SIGNON;        GOTOXY(25,23);        TEXTCOLOR(14);
  950.         WRITE('    DO ANOTHER? (Y/N): ');
  951.         READ(KBD,CH);
  952.           IF (CH = 'Y') OR (CH = 'y') THEN
  953.             BEGIN
  954.               CLEARLINES; SIGNON; GETDATA; GETOUT;
  955.             END
  956.           ELSE LBCOAT;
  957.     END;
  958.  
  959. {**************************** REPORT PRINTER *******************************}
  960.  
  961.  PROCEDURE MAKEaREPORT;
  962.     BEGIN
  963.       CLEARLINES;      GOTOXY(15,23);      TEXTCOLOR(14);
  964.       WRITE('      PLEASE BE SURE PRINTER IS TURNED ON');
  965.       SOUND(400);      DELAY(500);      NOSOUND;      DELAY(1000);
  966.       WRITE(LST,(CHR(27)),(CHR(69)));      { set printer to Emphasized Pitch }
  967.       WRITELN(LST);WRITELN(LST);MAKEaBORDER(LST);MAKEaBORDER(LST);WRITELN(LST);
  968.       WRITELN
  969.       (LST,'                         ',P);      WRITELN(LST);
  970.       WRITELN
  971.    (LST,'          DR: ',DOCTOR);      WRITELN(LST);
  972.       WRITE
  973.    (LST,'     LIPID PROFILE FOR: ',FIRSTNAME,' ',LASTNAME);
  974.       WRITELN(LST,'           DONE ON: ',DATE);
  975.       WRITELN(LST);      WRITELN
  976.    (LST,'          Patient ID: ',ID,'                  Patient Age:  ',AGE);
  977.       WRITELN(LST);      WRITELN
  978.    (LST,'          NOTE: ALL NORMAL RANGES PRESUME FASTING FOR 12 - 14 HOURS');
  979.       WRITELN
  980.       (LST,'          NOTE: ACCURACY OF PROFILE AFFECTED IF TRIG > 400 mg/dL');
  981.       WRITELN(LST);WRITELN(LST); MAKEaBORDER(LST); MAKEaBORDER(LST);
  982.       WRITELN(LST);WRITELN
  983. (LST,'          LIPID           RESULT       ABN    MOD. RISK       HIGH RISK      ');
  984.       WRITELN(LST);      WRITELN(LST);
  985.         IF (AGE < 15) THEN GROUP1
  986.         ELSE IF (AGE >= 15) AND ( AGE < 20) THEN GROUP2
  987.         ELSE IF (AGE >= 20) AND ( AGE < 25) THEN GROUP3
  988.         ELSE IF (AGE >= 25) AND ( AGE < 30) THEN GROUP4
  989.         ELSE IF (AGE >= 30) AND ( AGE < 35) THEN GROUP5
  990.         ELSE IF (AGE >= 35) AND ( AGE < 40) THEN GROUP6
  991.         ELSE IF (AGE >= 40) AND ( AGE < 49) THEN GROUP7
  992.         ELSE IF (AGE >= 50) THEN GROUP8;
  993.       WRITELN(LST);      WRITELN(LST);
  994.       IF (CHYL = 'Y') OR (CHYL = 'y') THEN WRITELN
  995.       (LST,'          CHYLOMICRONS APPEAR TO BE PRESENT IN CHILLED SPECIMEN');
  996.       MAKEaBORDER(LST);      WRITE
  997.  (LST,'Reference (75th percentile - Moderate) & (90th Percentile - High) ');
  998.       WRITELN (LST, 'Risk Groups');      WRITELN
  999.       (LST,'             from JAMA 4:255, 1986 & Lipid Research Clinics');
  1000.       MAKEaBORDER(LST);      WRITELN(LST);
  1001.       IF  (VLDL < 100) AND (LDL >= 165) AND (TRIG < 180) AND (CHYL = 'N') THEN
  1002.         BEGIN
  1003.           WRITELN(LST);          WRITELN
  1004.           (LST,'          ELEVATION OF LDL: Suggests Type IIA Phenotype');
  1005.         END
  1006.       ELSE
  1007.       IF (TRIG >= 180) AND (LDL < 165) AND (CHOL <400) AND (CHYL = 'N')
  1008.            THEN
  1009.         BEGIN
  1010.           WRITELN(LST);          WRITELN
  1011.           (LST,'          ELEVATION OF TRIG: Suggests Type IV Phenotype');
  1012.         END
  1013.       ELSE
  1014.       IF (TRIG >= 180) AND (LDL >=165) AND (VLDL < 100)  AND (CHYL ='N') THEN
  1015.         BEGIN
  1016.           WRITELN(LST);          WRITELN
  1017.       (LST,'          ELEVATIONS OF TRIG & LDL: Suggests Type IIB Phenotype');
  1018.           WRITELN
  1019.       (LST,'                                      Rarely Type III Phenotype');
  1020.          WRITELN
  1021.       (LST,'                     LAB: apo E isoform analysis to distinguish');
  1022.          END
  1023.       ELSE
  1024.       IF (CHYL ='Y') OR (CHYL = 'y') AND  (CHOL <240) AND
  1025.          (LDL < 165) AND (VLDL >= 100) THEN
  1026.          BEGIN
  1027.            WRITELN(LST);           WRITELN
  1028.   (LST,'         ELEVATION OF VLDL w/ CHYLOMICRONS: Suggests Type V Phenotype');
  1029.            WRITELN
  1030.   (LST,'             LAB: Lipoprotein Electrophoresis may be used to confirm');
  1031.          END
  1032.       ELSE
  1033.       IF (CHOL < 240) AND (TRIG < 180) AND (LDL < 165) AND (VLDL < 100) AND
  1034.          (CHYL = 'Y') OR (CHYL = 'y') THEN
  1035.          BEGIN
  1036.            WRITELN(LST);
  1037.            WRITELN
  1038.     (LST,'         PRESENCE OF CHYLOMICRONS ONLY: Suggests Type I Phenotype');
  1039.            WRITELN
  1040.     (LST,'          LAB: Lipoprotein Electrophoresis may be used to confirm');
  1041.         END;
  1042.       IF (TRIG > 1000) AND (VLDL > 200) THEN
  1043.       WRITELN
  1044. (LST,'     TRIG & VLDL  SUGGEST A VERY HIGH RISK FOR PANCREATITIS IN THIS PT.');
  1045.       IF (LDL > 190) AND (CHOLHDL > 5) THEN
  1046.       WRITELN
  1047.     (LST,'                         HIGH CARDIAC RISK FACTORS PRESENT');
  1048.       WRITE(LST,CHR(12));
  1049.       WRITELN(LST, (CHR(27)), (CHR(70)));
  1050.   END;
  1051.  
  1052. {############################# MAIN PROGRAM CODE ############################}
  1053.  
  1054.  
  1055. BEGIN         { User Friendly Pascal - 50 K for 1 Statement & 3 Proc. Calls }
  1056.     CLRSCR;
  1057.     SIGNON;
  1058.     GETDATA;
  1059.     GETOUT;
  1060. END.
  1061.                { Note: The origional tables I was using for 75 and 90th }
  1062.                { percentile ranges were from Kashyap, Modern Medicine,  }
  1063.                { Vol 55/Feb 1987.  The Tables had breakpoints every 4   }
  1064.                { years from age 5 to >= 70.  It became obvious that I   }
  1065.                { might end up with memory size problems, so ages 40 up  }
  1066.                { were truncated to the every 10 year patterns seen in   }
  1067.                { the JAMA report mentioned in the code.                 }
  1068.  
  1069.  
  1070.