(41C) Friedewald Formula for LDL-cholesterol

[Gene]

From user Dinamarco

Uses the Friedewald Formula for LDL-cholesterol.
The limitation: Triglycerides > 400 mg/dL and Nephrotic Syndrome .
The units used: mg/dL.

Code:

01 LBL "LDL CHOLEST"
02 CLX
03 BEEP
04 "TOTAL - CHOLEST:"
05 PROMPT
06 "HDL - CHOLEST:"
07 PROMPT
08   -
09 "TRIGL - CHOLEST:"
10 PROMPT
11   5
12   /
13   -
14 "LDL - CHOLEST: "
15 ARCL X
16 AVIEW
17 BEEP
18 END