Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 1 OUTC.12 3 PRI. 5 PRI.;PRI.;PRI. 7 PRI." GESUNDHEITS-TEST !"; 8 PRI." ";PRI. 10 PRI."DIESER TEST SOLL DAZU DIENEN";PRI. 12 PRI."FESTZUSTELLEN OB DU GESUND";PRI. 14 PRI."LEBST.DIE UNTERE ALTERSGRENZE";PRI. 15 PRI."IST 15.";PRI. 18 PRI."DRUECKE ---> ENTER ";PRI. 20 W=INC.;OUTC.W 22 OUTC.12 25 PRI.;INP."DEIN ALTER"A 30 IFA<15 GO.34 31 IFA>90 GO.39 32 GO.42 34 PRI.;PRI. 35 PRI."ICH SAGTE DOCH DIE UNTERSTE";PRI. 36 PRI."ALTERSGRENZE IST 15.DU KANNST";PRI. 37 PRI."ALSO AN DIESEM TEST NICHT ";PRI. 38 PRI."TEILNEHMEN.";PRI.;GO.1500 39 PRI.;PRI. 40 PRI."DU GLAUBST DOCH WOHL SELBST";PRI. 41 PRI."NICHT DAS DU SO ALT BIST.";GO.25 42 PRI.;PRI. 43 PRI."DEIN GESCHLECHT: MAENNLICH....1";PRI. 44 PRI." WEIBLICH ....2";PRI. 45 INP."ZUTREFFENDE ZAHL "G 47 IFG=1 GO.50 48 IFG=2 GO.60 49 PRI.;GO.45 50 IFA>14 P=1650 52 IFA>20 P=1750 54 IFA>30 P=1500 56 IFA>40 P=1250 58 IFA>50 P=1050 59 GO.100 60 IFA>14 P=1300 62 IFA>20 P=1400 64 IFA>30 P=1225 66 IFA>40 P=1150 68 IFA>50 P=1050 100 OUTCH.12 105 PRI."********************************";PRI. 107 PRI."BITTE GEBE IM FOLGENDEN AN ";PRI. 109 PRI."WELCHE DER TAETIGKEITEN ";PRI. 111 PRI."DU BETREIBST,WIE OFT UND";PRI. 113 PRI."WIE LANGE .";PRI. 114 PRI."DIE ZEITANGABEN SOLLEN SICH AUF";PRI. 115 PRI."EINMALIGE AUSUEBUNG DER";PRI. 116 PRI."JEWEILIGEN TAETIGKEIT BEZIEHEN.";PRI.;PRI. 117 PRI." >ENTER<";PRI. 118 PRI."********************************";PRI.;U=INC.;OUTC.U 120 OUTC.12;S=0 125 PRI."WANDERN UND SPAZIERENGEHEN";Y=25;GOS.1000 127 PRI."LAUFEN";Y=150;GOS.1000 133 PRI."SCHWIMMEN";Y=100;GOS.1000 135 PRI."RADFAHREN";Y=50;GOS.1000 140 PRI."SKILANGLAUF";Y=100;GOS.1000 145 PRI."EISLAUF";Y=100;GOS.1000 152 D=S 155 PRI."GYMNASTIK";Y=50;GOS.1000 160 PRI."KRAFTSPORT";Y=100;GOS.1000 165 PRI."STUHLBESTEIGEN";Y=150;GOS.1000 170 PRI."EX-UND IMPANDERTRAINING";Y=100;GOS.1000 175 PRI."FUSSBALL ODER HANDBALL";Y=67;GOS.1000 180 PRI."VOLLEBALL ODER FEDERBALL";Y=50;GOS.1000 185 PRI."TENNIS";Y=50;GOS.1000 190 PRI."KEGELN";Y=34;GOS.1000 195 PRI."FREIZEITSPIELE";Y=17;GOS.1000 200 PRI."TANZEN";Y=34;GOS.1000 205 PRI."IM GARTEN UMGABEN";Y=50;GOS.1000 210 PRI."UNKRAUT JAETEN";Y=17;GOS.1000 215 PRI."HOLZ HACKEN";Y=25;GOS.1000 220 OUTC.12;R=S/(P/100) 222 REM R=PROZENTZAHL 224 L=(P-S)/150*5 225 PRI."AUSWERTUNG" 227 PRI."----------";PRI.;PRI. 230 PRI."DU HAST ",R,#3," PROZENT";PRI. 233 PRI."DER NOETIGEN PUNKTE ERREICHT.";PRI. 240 IFR<60 GO.300 243 IFR<100 GO.500 244 IFR<150 GO.400 246 IFR<300 GO.700 248 IFR>300 GO.599 300 PRI."DU BIST JA EIN GANZ SCHOEN";PRI. 310 PRI."FAULER MENSCH.WILLST DU DENN";PRI. 315 PRI."GAR NICHTS FUER DEINE ";PRI. 320 PRI."GESUNDHEIT TUN ? MEHR BEWEGUNG";PRI. 325 PRI."AN FRISCHER LUFT UND REGEL-";PRI. 330 PRI."MAESSIGES SPORTTREIBEN WUERDEN";PRI. 335 PRI."DIR SICHER NICHT SCHADEN !";PRI. 336 PRI."ODER WILLST DU DEINE GESUNDHEIT";PRI. 338 PRI."GEWALTSAM RUINIEREN ?";PRI. 340 PRI."UM DIE FEHLENDEN PUNKTE ZU";PRI. 345 PRI."ERREICHEN MUESSTEST DU ";PRI. 350 PRI."z.B.",L," MINUTEN MEHR IN DER";PRI. 352 PRI."WOCHE LAUFEN.";PRI. 355 GO.1500 400 PRI."DU HAST ZWAR DIE NOTWENDIGE";PRI. 410 PRI."MINDESTPUNKTZAHL ERREICHT.";PRI. 415 PRI."ETWAS MEHR KOENNTEST DU";PRI. 420 PRI."DICH ABER RUHIG SPORTLICH ";PRI. 425 PRI."BETAETIGEN.";PRI. 435 PRI."DANN HAETTEST DU AUCH NOCH ";PRI. 440 PRI."MEHR LEISTUNGS-RESERVEN.";PRI. 445 PRI."GESUND LEBEN HEISST VOR ALLEM";PRI. 450 PRI."AKTIV LEBEN.";PRI. 455 IFD<(S/2) GO.460 457 GO.1500 460 PRI."AUSSERDEM SOLLTEST DU MEHR";PRI. 465 PRI."AUSDAUERNDE UEBUNGEN WIE";PRI. 470 PRI."LAUFEN,WANDERN,SCHWIMMEN UND ";PRI. 475 PRI."RADFAHREN BETREIBEN.DIES TUST";PRI. 480 PRI."DU ZU WENIG.";PRI. 485 GO.1500 500 PRI."DU KANNST RUHIG ETWAS AKTIVER";PRI. 510 PRI."WERDEN.DU TUST NOCH ZU WENIG";PRI. 515 PRI."FUER DEINE GESUNDHEIT.";PRI. 520 PRI."HERZ-KREISLAUF-BESCHWERDEN";PRI. 525 PRI."KOENNEN SONST IN EINIGEN JAHREN";PRI. 530 PRI."DIE FOLGE SEIN.UEBERLEGE ES DIR";PRI. 535 PRI."ALSO.DEIN KOERPER WIRD ES DIR";PRI. 540 PRI."DANKEN.TREIBE MEHR SPORT AN";PRI. 545 PRI."FRISCHER LUFT.";PRI. 550 IFD<(S/2) GO.460 555 GO.1500 599 PRI.;PRI. 600 PRI." HERZLICHEN GLUECKWUNSCH ";PRI. 610 PRI."DU LEBST WIRKLICH GESUND UND";PRI. 615 PRI."TUST ETWAS FUER DEINEN KOERPER.";PRI. 616 IFR>800 GO.625 617 IFR>500 GO.620 618 GO.630 620 PRI."UEBERTREIBEN SOLLTEST DU ES";PRI. 622 PRI."ABER AUCH NICHT,ODER WILLST DU";PRI. 623 PRI."LEISTUNGSSPORTLER WERDEN ?";PRI. 624 GO.630 625 PRI."DU UEBERTREIBST ES NUR";PRI. 627 PRI."EIN WENIG,ODER BIST DU";PRI. 629 PRI."LEISTUNGSSPORTLER ?";PRI. 630 PRI."GOENNE DIR AUCH MAL EIN";PRI. 635 PRI."WENIG RUHE UND GENISSE DAS";PRI. 640 PRI."LEBEN.";PRI. 650 GO.750 700 PRI." HERZLICHEN GLUECKWUNSCH ";PRI. 710 PRI."DU HAST GENAU DAS RICHTIGE";PRI. 715 PRI."MASS ZUR AKTIVEN FREIZEIT-";PRI. 720 PRI."GESTALTUNG GEFUNDEN.DU TUST";PRI. 725 PRI."WIRKLICH ETWAS GUTES FUER";PRI. 730 PRI."DEINE GESUNDHEIT.";PRI. 735 PRI."WENN DU SO WEITER MACHST WIRST";PRI. 740 PRI."IMMER GENUEGEND LEISTUNGS-";PRI. 745 PRI."RESERVEN HABEN.";PRI. 750 IFD<(S/2) GO.760 755 GO.1500 760 PRI."ALLERDINGS KOENNTEST DU DAS";PRI. 765 PRI."VERHALTNISS AUSDAUERSCHULENDEN";PRI. 770 PRI."UEBUNGEN WIE LAUFEN,WANDERN,";PRI. 775 PRI."RADFAHREN USW.ERHOEHEN.";PRI. 780 GO.1500 1000 PRI.;PRI."";PRI.;PRI. 1003 X=0;G=0;T=0;M=0;W=0 1005 PRI."BETREIBST DU DIESE TAETIGKEIT ?";PRI. 1007 PRI."JA ODER NEIN ? (J/N)";PRI. 1010 J=INC.;OUTC.J;PRI. 1015 IFJ='N' OUTC.12;RET. 1017 IFJ#'J' GO.1007 1025 PRI."TUST DU ES TAEGLICH)? (J/N)";PRI. 1027 Q=INC.;OUTC.Q;PRI.;IFQ='J' T=1;GO.1200 1029 IFQ='N' T=0;PRI.;GO.1040 1035 GO.1025 1040 INP."WIE OFT TUST DU ES IN DER WOCHE?"W;PRI.;PRI. 1046 IFW>6PRI."ALSO TUST DU ES DOCH TAEGLICH !";PRI. 1048 IFW>0GO.1200 1049 INP."WIE OFT TUST DU ES IM MONAT ?"M;PRI.;PRI. 1050 IFM>31PRI."ALSO TUST DU ES DOCH TAEGLICH !";PRI.;GO.1200 1051 IFM>4PRI."ALSO TUST DU ES WOECHENTLICH !!";PRI. 1053 IFM>0 GO.1200 1054 OUTC.12;PRI.;PRI.;PRI.;PRI. 1055 PRI."WIE OFT TUST DU ES UEBERHAUPT ?";PRI. 1057 PRI."SO SELTEN WIE DU DIESE SACHE ";PRI. 1059 PRI."BETREIBST HAT SIE KAUM EINEN";PRI. 1061 PRI."GESUNDHEITSFOERDERNDEN EFFEKT";PRI. 1063 PRI."FUER DICH.DU SOLLTEST SIE OEFTER" 1065 PRI."TUN.";FORI=1TO15000;N.I;OUTC.12;RET. 1200 PRI."WIE LANGE BETREIBST DU DIES ?";PRI. 1210 INP."ZEIT IN MINUTEN"Z 1213 PRI. 1215 IFZ=0PRI."ICH DENKE DU TUST ES ?";PRI.;GO.1003 1220 G=Z/5 1280 X=G*(T*7)+(G*W)+(G*M/4);S=S+(X*Y);OUTC.12 1300 RET. 1500 Q=INC.;OUTC.Q 1510 PRI."NOCH EINMAL ? (J/N)" 1520 N=INC.;OUTC.N;PRI. 1530 IFN='J' GO.22 1535 OUTC.12 1540 FORI=1TO13;OUTC.13;N.I;PRI." AUF WIEDERSEHEN";PRI. 1550 STOP
