1000 REM *** LEVEN ***
1010 REM *** Versie november 1983 door J.N. Verwoerd ***
1020 GOSUB 2150
1030 PRINT TAB(17)"***** HOE LANG ZULT U LEVEN ? *****"
1040 PRINT:PRINT:PRINT
1050 PRINT "HET VOLGENDE LEEFTIJD-VERWACHTING PROGRAMMA"
1060 PRINT "WORDT GEBRUIKT DOOR DOKTOREN, ZIEKENHUIZEN EN"
1070 PRINT "VERZEKERINGSMAATSCHAPPIJEN IN DE USA."
1080 PRINT "HOEWEL DIT PROGRAMMA NOOIT 100% ZEKERHEID ZAL"
1090 PRINT "GEVEN IS HET BETER DAN HETGEEN TOT NU TOE"
1100 PRINT "IS GEHANTEERD."
1110 PRINT:PRINT
1120 PRINT "U KRIJGT EEN AANTAL VRAGEN TE BEANTWOORDEN,"
1130 PRINT "HEEFT DE VRAAG OP U GEEN BETREKKING GA DAN"
1140 PRINT "VERDER DOOR -RETURN- IN TE DRUKKEN."
1150 PRINT:PRINT
1160 INPUT "TOETS -RETURN- OM HET PROGRAMMA TE STARTEN.....";A
1170 W=72
1180 GOSUB 2150
1190 PRINT "INDIEN U EEN MAN BENT, TREK 3 AF..."
1200 PRINT "BENT U EEN VROUW, TEL 4 OP..."
1210 GOSUB 2180
1220 GOSUB 2150
1230 PRINT "INDIEN U IN EEN WOONGEBIED LEEFT WAAR MEER DAN"
1240 PRINT "2 MILJOEN MENSEN WONEN, TREK 2 AF..."
1250 PRINT "WOONT U IN EEN PLAATS KLEINER DAN 10.000 INWONERS"
1260 PRINT "OF OP EEN BOERDERIJ, TEL 2 OP..."
1270 GOSUB 2180
1280 GOSUB 2150
1290 PRINT "INDIEN EEN VAN UW GROOTOUDERS 85 IS GEWORDEN, TEL 2 OP..."
1300 PRINT "ALS ALLE VIER GROOTOUDERS 80 ZIJN GEWORDEN, TEL 6 OP..."
1310 GOSUB 2180
1320 GOSUB 2150
1330 PRINT "ALS EEN VAN DE OUDERS AAN EEN HARTAANVAL IS OVERLEDEN"
1340 PRINT "VOOR DE LEEFTIJD VAN 50, TREK 4 AF..."
1350 GOSUB 2180
1360 GOSUB 2150
1370 PRINT "ALS EEN VAN DE OUDERS, BROERS OF ZUSTERS ONDER DE"
1380 PRINT "50 EEN HARTZIEKTE OF KANKER HEEFT (OF HAD), OF"
1390 PRINT "SUIKERZIEKTE VAN KINDS AF, TREK 3 AF..."
1400 GOSUB 2180
1410 GOSUB 2150
1420 PRINT "VERDIENT U MEER DAN FL 50.000 PER JAAR, TREK 2 AF..."
1430 GOSUB 2180
1440 GOSUB 2150
1450 PRINT "HEEFT U EEN HOGERE SCHOOLOPLEIDING AFGEMAAKT, TEL 1 OP..."
1460 GOSUB 2180
1470 GOSUB 2150
1480 PRINT "ALS U EEN TITEL HEEFT, TEL 2 PUNTEN EXTRA OP..."
1490 GOSUB 2180
1500 GOSUB 2150
1510 PRINT "ALS U OUDER BENT DAN 65 EN NOG STEEDS AAN HET WERK, TEL 3 OP..."
1520 GOSUB 2180
1530 GOSUB 2150
1540 PRINT "ALS U MET IEMAND SAMENLEEFT, TEL 5 OP..."
1550 PRINT "ZO NIET, TREK 1 PUNT AF VOOR ELKE TIEN JAAR DAT U"
1560 PRINT "ALLEEN LEEFT SINDS UW 25 STE..."
1570 GOSUB 2180
1580 GOSUB 2150
1590 PRINT "ALS U ACHTER EEN BUREAU WERKT, TREK 3 AF..."
1600 PRINT "ALS U REGELMATIG ZWARE LICHAMELIJKE ARBEID VERRICHT"
1610 PRINT "VOOR UW WERK, TEL 3 OP..."
1620 GOSUB 2180
1630 GOSUB 2150
1640 PRINT "ALS U INTENSIEF SPORT BEDRIJFT (TENNIS, HARDLOPEN,"
1650 PRINT "ZWEMMEN, ENZ) VIJF KEER PER WEEK OP Z'N MINST EEN"
1660 PRINT "HALF UUR, TEL 4 OP..."
1670 PRINT "DOET U BOVENSTAANDE TWEE OF DRIE KEER PER WEEK, TEL 2 OP..."
1680 GOSUB 2180
1690 GOSUB 2150
1700 PRINT "SLAAPT U MEER DAN TIEN UUR ELKE NACHT, TREK 4 AF..."
1710 GOSUB 2180
1720 GOSUB 2150
1730 PRINT "BENT U INTENS, AGRESSIEF, GEMAKKELIJK BOOS, TREK 3 AF..."
1740 PRINT "BENT U ONTSPANNEN EN GEMAKKELIJK VAN AARD, TEL 3 OP..."
1750 GOSUB 2180
1760 GOSUB 2150
1770 PRINT "BENT U GELUKKIG, TEL 1 OP..."
1780 PRINT "INDIEN ONGELUKKIG, TREK 2 AF..."
1790 GOSUB 2180
1800 GOSUB 2150
1810 PRINT "HEEFT U HET LAATSTE JAAR EEN BEKEURING GEHAD VOOR TE"
1820 PRINT "HARD RIJDEN, TREK 1 AF..."
1830 GOSUB 2180
1840 GOSUB 2150
1850 PRINT "ROOKT U MEER DAN TWEE PAKJES PER DAG, TREK 8 AF..."
1860 PRINT "EEN TOT TWEE PAKJES PER DAG, TREK 6 AF..."
1870 PRINT "EEN HALF TOT EEN HEEL PAKJE PER DAG, TREK 3 AF..."
1880 GOSUB 2180
1890 GOSUB 2150
1900 PRINT "DRINKT U 1.5 BORREL (4,5 CL) PER DAG, TREK 1 AF..."
1910 GOSUB 2180
1920 GOSUB 2150
1930 PRINT "HEEFT U EEN OVERGEWICHT VAN 50 POND OF MEER, TREK 8 AF..."
1940 PRINT "EEN OVERGEWICHT VAN 30 TOT 50 POND, TREK 4 AF..."
1950 PRINT "EEN OVERGEWICHT VAN 10 TOT 30 POND, TREK 2 AF..."
1960 GOSUB 2180
1970 GOSUB 2150
1980 PRINT "BENT U EEN MAN OUDER DAN 40 MET REGELMATIG DOKTERSCONTROLE,"
1990 PRINT "OF ALS U EEN VROUW BENT EN JAARLIJKS DE GYNEACOLOOG BEZOEKT,"
2000 PRINT "TEL DAN 2 OP..."
2010 GOSUB 2180
2020 GOSUB 2150
2030 PRINT "IS UW LEEFTIJD TUSSEN 30 EN 40, TEL 2 OP..."
2040 PRINT "IS UW LEEFTIJD TUSSEN 40 EN 50, TEL 3 OP..."
2050 PRINT "IS UW LEEFTIJD TUSSEN 50 EN 70, TEL 4 OP..."
2060 PRINT "BENT U OUDER DAN 70, TEL 5 OP..."
2070 GOSUB 2180
2080 GOSUB 2150
2090 GOSUB 2220
2100 PRINT CHR$(7)
2110 PRINT TAB(15)"DE VERWACHTING IS DAT U ";W;" JAAR OUD ZULT WORDEN"
2120 GOSUB 2220
2130 PRINT "EINDE PROGRAMMA"
2140 END
2150 PRINT CHR$(26)
2160 PRINT:PRINT:PRINT:PRINT
2170 RETURN
2180 PRINT:PRINT
2190 INPUT "VOER GETAL IN ";R
2200 W=W+R
2210 RETURN
2220 PRINT:PRINT:PRINT
2230 FOR I=1 TO 80:PRINT CHR$(31);:NEXT I
2240 PRINT:PRINT
2250 RETURN
;R
2200 W=W+R
2210 RETURN
2220 PRINT:PRINT:PRINT
2230 FOR I=1 TO 80:PRINT CHR$(31);:NEXT I
2240 PRI