10 PRINT "CARDIOVASCULAR RISK CALCULATION"
20 PRINT "  adapted from the Michigan Heart Association"
30 PRINT "      by J.S. Zesk, M.D."
40 PRINT
50 PRINT
51 C$="YOUR CARDIOVASCULAR RISK IS <"
52 D$="> WHICH IS BELOW AVERAGE"
53 E$="> WHICH IS GENERALLY AVERAGE"
54 F$="> WHICH IS MODERATE"
55 G$="> WHICH IS AT A DANGEROUS LEVEL"
56 H$="> WHICH INDICATES AN URGENT DANGER"
60 PRINT "ENTER AGE RATING"
70 PRINT
80 PRINT "Age 10 - 20  *  Enter <1>"
90 PRINT "Age 21 - 30  *  Enter <2>"
91 PRINT "Age 31 - 40  *  Enter <3>"
92 PRINT "Age 41 - 50  *  Enter <4>"
93 PRINT "Age 51 - 60  *  Enter <6>"
94 PRINT "Age 61 and over  *  Enter <8>"
100 INPUT A
102 PRINT
104 PRINT
110 PRINT "ENTER HEREDITY RATING"
120 PRINT
130 PRINT "No known history of heart disease * Enter <1>"
140 PRINT "1 relative with cardiovascular disease over 60 * Enter <2>"
150 PRINT "2 relatives with cardiovascular disease over 60 * Enter <3>"
160 PRINT "1 relative with cardiovascular disease under 60 * Enter <4>"
170 PRINT "2 relatives with cardiovascular disease under 60 * Enter <6>"
180 PRINT "3 relatives with cardiovascular disease under 60 * Enter <7>"
190 INPUT B
192 PRINT
194 PRINT
200 PRINT "ENTER WEIGHT RATING"
210 PRINT
220 PRINT "More than 5 lbs. below standard weight * Enter <0>"
230 PRINT "-5 to +5 lbs. standard weight * Enter <1>"
240 PRINT "6 to 20 lbs. overweight * Enter <2>"
250 PRINT "21 to 35 lbs. overweight * Enter <3>"
260 PRINT "36 to 50 lbs. overweight * Enter <5>"
270 PRINT "51 or more lbs. overweight * Enter <7>"
280 INPUT C
282 PRINT
284 PRINT
290 PRINT "ENTER TOBACCO SMOKING RATING"
300 PRINT
310 PRINT "Non-user * Enter <0>"
320 PRINT "Cigar and/or pipe * Enter <1>"
330 PRINT "10 cigarettes or less a day * Enter <2>"
340 PRINT "20 cigarettes a day * Enter <4>"
350 PRINT "30 cigarettes a day * Enter <6>"
360 PRINT "40 cigarettes or more a day * Enter <10>"
370 INPUT D
372 PRINT
374 PRINT
380 PRINT "ENTER EXERCISE RATING"
390 PRINT
400 PRINT "Intensive occupational and recreational exertion * Enter <1>"
410 PRINT "Moderate occupational and recreational exertion * Enter <2>"
420 PRINT "Sedentary work and intense recreational exertion * Enter <3>"
430 PRINT "Sedentary work and moderate recreational exertion * Enter <5>"
440 PRINT "Sedentary work and light recreational exertion * Enter <6>"
450 PRINT "Complete lack of all exercise * Enter <8>"
460 INPUT E
462 PRINT
464 PRINT
470 PRINT "ENTER CHOLESTEROL RATING"
480 PRINT
490 PRINT "Cholesterol below 180 mg. * Enter <1>"
500 PRINT "Cholesterol 181-205 mg. * Enter <2>"
510 PRINT "Cholesterol 206-230 mg. * Enter <3>"
520 PRINT "Cholesterol 231-255 mg. * Enter <4>"
530 PRINT "Cholesterol 256-280 mg. * Enter <5>"
540 PRINT "Cholesterol 281 or more mg. * Enter <7>"
550 INPUT F
552 PRINT
554 PRINT
560 PRINT "ENTER BLOOD PRESSURE RATING"
570 PRINT
580 PRINT "100 upper reading * Enter <1>"
590 PRINT "120 upper reading * Enter <2>"
600 PRINT "140 upper reading * Enter <3>"
610 PRINT "160 upper reading * Enter <4>"
620 PRINT "180 upper reading * Enter <6>"
630 PRINT "200 or over upper reading * Enter <8>"
640 INPUT G
642 PRINT
644 PRINT
650 PRINT "ENTER SEX RATING"
660 PRINT
670 PRINT "Female under 40 * Enter <1>"
680 PRINT "Female 40-50 * Enter <2>"
690 PRINT "Female over 50 * Enter <3>"
700 PRINT "Male * Enter <5>"
710 PRINT "Stocky male * Enter <6>"
720 PRINT "Bald stocky male * Enter <7>"
730 INPUT H
740 PRINT
750 PRINT
760 LET X=A+B+C+D+E+F+G+H
770 IF X<18 GOTO 900
780 IF X<25 GOTO 910
790 IF X<32 GOTO 920
800 IF X<41 GOTO 930
810 IF X<63 GOTO 940
812 PRINT "PLEASE RECHECK DATA ENTRIES!"
815 END
900 PRINT C$;X;D$
902 GOTO 1000
910 PRINT C$;X;E$
912 GOTO 1000
920 PRINT C$;X;F$
922 GOTO 1000
930 PRINT C$;X;G$
932 GOTO 1000
940 PRINT C$;X;H$
942 GOTO 1000
1000 PRINT "DO YOU WISH A TYPED REPORT ?"
1010 PRINT "ENTER <YES> OR <NO>"
1020 INPUT A$
1030 IF A$="YES" THEN 1100
1040 IF A$="NO" THEN END
1100 PRINT "PLEASE ENTER <NAME>"
1110 INPUT B$
1115 PRINT "PLEASE BE SURE PRINTER IS ON AND LOADED WITH PAPER"
1120 LPRINT "      ";B$
1125 LPRINT
1130 IF X<18 GOTO 1200
1140 IF X<25 GOTO 1300
1150 IF X<32 GOTO 1400
1160 IF X<41 GOTO 1500
1170 IF X<63 GOTO 1600
1200 LPRINT "      ";C$;X;D$
1210 GOTO 1700
1300 LPRINT "      ";C$;X;E$
1310 GOTO 1700
1400 LPRINT "      ";C$;X;F$
1410 GOTO 1700
1500 LPRINT "      ";C$;X;G$
1510 GOTO 1700
1600 LPRINT "      ";C$;X;H$
1610 GOTO 1700
1700 LPRINT
1705 LPRINT "      THE RISK FACTORS OF AGE, HEREDITY, AND SEX CANNOT BE ALTERED
1708 LPRINT
1710 LPRINT "      THE RISK FACTORS OF OBESITY, SMOKING, LACK OF EXERCISE, ELEVATED"
1711 LPRINT "      CHOLESTEROL, AND HIGH BLOOD PRESSURE CAN BE REDUCED!"
1712 LPRINT
1720 LET Y=C+D+E+F+G-3
1730 LPRINT "                IF YOU WERE ABLE TO:"
1731 LPRINT
1732 LPRINT"                 1. MAINTAIN IDEAL BODY WEIGHT"
1733 LPRINT"                 2. NOT SMOKE"
1734 LPRINT"                 3. EXERCISE REGULARLY"
1735 LPRINT"                 4. LOWER CHOLESTEROL THROUGH DIET"
1736 LPRINT"                 5. REDUCE BLOOD PRESSURE"
1737 LPRINT
1780 LPRINT"      YOU COULD LOWER YOUR RISK RATING BY AS MUCH AS <";Y;"> POINTS!"
1781 LPRINT
1790 LET Z=X-Y
1800 IF Z<18 GOTO 1900
1810 IF Z<25 GOTO 1950
1900 LPRINT"      THIS WOULD LOWER YOUR RISK TO <";Z;D$
1910 GOTO 2000
1950 LPRINT "      THIS WOULD LOWER YOUR RISK TO <";Z;E$
1960 GOTO 2000
2000 LPRINT
2010 LPRINT "             RISK FACTOR     YOUR SCORE     RANGE"
2020 LPRINT
2030 LPRINT "                AGE             <";A;">       <1-8>"
2040 LPRINT "              HEREDITY          <";B;">       <1-7>"
2050 LPRINT "               WEIGHT           <";C;">       <0-7>"
2060 LPRINT "              SMOKING           <";D;">       <0-10>"
2070 LPRINT "              EXERCISE          <";E;">       <1-8>"
2080 LPRINT "             CHOLESTEROL        <";F;">       <1-7>"
2090 LPRINT "           BLOOD PRESSURE       <";G;">       <1-8>"
2100 LPRINT "                SEX             <";H;">       <1-7>"
2110 LPRINT
2120 LPRINT
2200 LPRINT "                CARDIOVASCULAR RISK RANGES"
2210 LPRINT
2220 LPRINT "                <12-17> RISK BELOW AVERAGE"
2230 LPRINT "                <18-24> RISK GENERALLY AVERAGE"
2240 LPRINT "                <25-31> RISK MODERATE"
2250 LPRINT "                <32-40> RISK AT A DANGEROUS LEVEL"
2260 LPRINT "                <41-62> RISK INDICATES URGENT DANGER"
2300 PRINT "DO YOU WISH ANOTHER COPY OF THIS REPORT?"
2310 PRINT "ENTER <YES> OR <NO>"
2320 INPUT Q$
2330 IF Q$="YES" THEN 1120
2340 IF Q$="NO" THEN END