PRINT
PRINT "推定糸球体濾過量"
PRINT
10 INPUT PROMPT " 1. 男  2.女 ？  ":s
   INPUT PROMPT  "年齢 ？  ":Age
   INPUT PROMPT  "血清クレアチニン ？  ":Cr
   IF s=1 THEN
      LET eGFR=194*Cr^(-1.094)*Age^(-0.287)
   ELSEIF s=2 THEN
      LET eGFR=194*Cr^(-1.094)*Age^(-0.287)*0.739
   ELSE
      GOTO 10
   END IF
   PRINT
   PRINT "推定糸球体濾過量 ＝";ROUND(eGFR,1);"mL/min/1.73m^2"
   PRINT "                 ↓"
   IF eGFR<30 THEN PRINT"          重度腎機能障害"
   IF eGFR>=30 AND eGFR<60 THEN PRINT"          中等度腎機能障害"
   IF eGFR>=60 AND eGFR<90 THEN PRINT"          軽度腎機能障害"
   IF eGFR>=90 THEN PRINT"          腎機能は正常です。"
   PRINT
END