55 B1=B*.0118041 360 REM PRINT CHR$(12) 370 LINE= 100:STRIG=100 390 INPUT"NAME";N$ 400 INPUT"SEX M/F";S$ 410 INPUT"ALTER IN JAHREN";A 420 INPUT"DATUM";D$ 430 INPUT"ARZT - KLINIK";O$ 440 INPUT"CHOLESTEROL";C 450 INPUT"BLUTDRUCK";B 460 INPUT"EKG ABNORMAL J>1 N>0";E1 470 INPUT"RAUCHER J>1 N>0";S 480 INPUT"DIABETIKER J>1 N>0";G 490 INPUT"HDL'HIGH DENSITY LIPROTEIN'";H 510 IF S$="F" THEN 630 520 A1=A*.3754941 530 A2=A*A*(-2.2165E-3) 540 C1=C*.0271697 560 C2=S*.4389169 570 E3=E*.521969 580 G1=G*.2312953 590 C3=C*A*(-3.178E-4) 600 I1=-19.4532586 610 GOTO 870 620 PRINT 630 A1=A*.3769988 640 A3=A*A*(-2.2325E-3) 650 C1=C*.0185534 660 B1=B*.0132024 670 C2=S*(-.1779578) 680 E1=E*.7187659 690 G1=G*.5602%16 700 C3=C*A*(-2.288E-4) 710 I1=-19.9537134 720 REM OVERALL RISK 750 860 870 S1=C3+A2+A1+C1+B1+C2+E1+G1+I1 880 P1=(1/(1+EXP(-S1))*100) 890 IF H=0 THEN 920 900 IF S$="M" THEN P1=P1*(6*EXP(-.04*H)):GOTO920 910 IF S$="F" THEN P1=P1*11*EXP(-.043*H) 920 GOTO 930 930 IF S$="F" THEN 1030 935 P=.001 940 IFA>33THENP=.6 950 IFA>37THENP=1.1 960 IFA>42THENP=2 970 IFA>47THENP=3.3 980 IFA>52THENP=4.6 990 IFA>57THENP=5.9 1000 IF A>62 THEN P=6.8 1010 GOTO 1090 1030 IF A>42 IF A<=47 THEN P=.8 1040 IF A>47 IF A<=52 THEN P=1.5 1050 IF A>52 IF A<=57 THEN P=2.3 1060 IF A>57 IF A<62 THEN P=3.2 1070 IF A>62 THEN P=3.9 1090 C4=P1/P 1190 PRINT :PRINT 1200 PRINT "PATIENT:";N$;TAB(50);"ARZT - KLINIK:";O$ 1210 PRINT :PRINT"DATE ";D$ 1220 PRINT :PRINT 1230 PRINT "ALTER";A;:IF S$="M" THEN PRINT"MALE":IF S$="F"THEN PRINT " 1240 IF S=1 THEN PRINT"RAUCHER" 1242 IF S=0 THEN PRINT "NICHT RAUCHER" 1250 PRINT "CHOLESTEROL";C;"MG/100 ML" 1260 IF G=1 THEN PRINT "DIABETIKER" 1265 IF G<>1 THEN PRINT"KEIN DIABETIKER" 1270 PRINT "SYSTOLIC BLUTDRUCK=";B;"MM.HG." 1280 IF E=1 THEN PRINT "EKG ABNORMAL" 1282 IF E<>1 THEN PRINT "EKG NORMAL" 1290 PRINT E1 1300 IF H=0 THEN PRINT "HDL NICHT ANGEGEBEN":GOTO1320 1310 PRINT "HDL= ";H;" MG/100ML" 1320 PRINT :PRINT:PRINT 1330 PRINT "DER WAHRSCHEINLICHKEIT EINEN HERZINFRAKT" 1332 PRINT "IN DER NAECHSTEN 6 JAHREN:";P1;"%" 1340 PRINT "ODER";C4;"MAL MENSCHEN IN IHREM ALTER" 1350 PRINT "OHNE ZU BERUECKSICHTIGEN ANDERE FAKTOREN" OK