SCREEN 0: WIDTH 80: RANDOMIZE Time REDIM CR(4) CR(1) = 10: CR(2) = 9: CR(3) = 13: CR(4) = 14 Ban$ = SPACE$(80): Title$ = "Diabetes A1C to eAG Conversion Chart": Ctr = 18 CLS : LOCATE 5, Ctr: PRINT Title$: LOCATE 5, 1: SLEEP 3: HK$ = INKEY$ NB = INT(4 * RND + 1) LOCATE 3, 65: COLOR 4, 0: PRINT "By Leo French": COLOR 15, 0 LOCATE 5, Ctr: PRINT "Diabetes "; : COLOR CR(NB), 0: PRINT "A1C"; : COLOR 15, 0: PRINT " to "; : COLOR CR(NB), 0: PRINT "eAG"; : COLOR 15, 0: PRINT " Conversion Chart" SLEEP 2: HK$ = INKEY$ LOCATE 6, 12: PRINT "7 and 7.5 for A1C reading comsidered normal, average" LOCATE 7, 3: COLOR 28, O: PRINT "NOTE:": COLOR 15, 0: SLEEP 2: HK$ = INKEY$ LOCATE 8, 8: PRINT "Do Not Use This Software As A Substitue For Checking" LOCATE 9, 8: PRINT "With Your Actual Medical Advisors." SLEEP 3: HK$ = INKEY$ LOCATE 15, 1: PRINT Ban$: LOCATE 15, 5 PRINT "You Wish To Continue Y=yes or N=no" DO: Human$ = INKEY$: IF UCASE$(Human$) = "N" THEN GOTO QUIT LOOP UNTIL UCASE$(Human$) = "Y" POLE: CLS : LOCATE 5, Ctr: PRINT Title$ LOCATE 8, 5: INPUT "Enter Your Meter Reading From Your A1C Meter: ", Meter$ IF VAL(Meter$) = 0 THEN RUN Score = VAL(Meter$) CLIP: SELECT CASE Score CASE 1 TO 5.5, IS < 6 Warn$ = "Very Low" EG = 97 IF Score >= 5.5 THEN EG = 111 CASE 6 TO 6.5, IS < 7 Warn$ = "Low" EG = 126 IF Score >= 6.5 THEN EG = 140 CASE 7 TO 7.5, IS < 8 Warn$ = "Normal" EG = 154 IF Score >= 5 THEN EG = 169 CASE 8 TO 8.5, IS < 9 Warn$ = "High" EG = 183 IF Score >= 8.5 THEN EG = 197 CASE 9 TO 9.5, IS < 10 Warn$ = "High" EG = 212 IF Score >= 9.5 THEN EG = 226 CASE 10 TO 10.5, IS < 11 Warn$ = "High" EG = 240 IF Score >= 10.5 THEN EG = 255 CASE 11 TO 11.5, IS < 12 Warn$ = "Very High" EG = 269 IF Score >= 11.5 THEN EG = 283 CASE IS >= 12 Warn$ = "Too Very High" IF Score >= 12 THEN EG = 298 END SELECT CLS : LOCATE 5, Ctr: PRINT Title$: LOCATE 3, 4: PRINT DATE$; TAB(65); LEFT$(TIME$, 5) LOCATE 7, 19: PRINT "A1C"; TAB(28); "eAG" COLOR 15, 0 LOCATE 8, 18: PRINT Score; TAB(27); EG; IF INSTR(UCASE$(Warn$), "VERY") > 0 THEN COLOR 26, 0 PRINT TAB(35); Warn$; " Blood Reading": COLOR 15, 0 LOCATE 15, 26: PRINT "(Diabetes) 1-800-342-2383": LOCATE 16, 27: PRINT "www.biabetes.org" LOCATE 11, 15: COLOR 14, 0: PRINT "A=another entry Q=quit": COLOR 15, 0 DO: Choice$ = INKEY$: IF UCASE$(Choice$) = "A" THEN GOTO POLE LOCATE 3, 65: PRINT LEFT$(TIME$, 5) LOOP UNTIL UCASE$(Choice$) = "Q" QUIT: SCREEN 0: WIDTH 80: CLS : COLOR 15, 0: SYSTEM