1000 REM *** STRESS ***
1010 REM *** Versie september 1983 door J.N. Verwoerd ***
1020 REM *** Test ontwikkeld door de psychologen ***
1030 REM *** Lyle H. Miller en Alma Dell Smith   ***
1040 Z1$=CHR$(26)
1050 Z2$=CHR$(7)
1060 Z3$=CHR$(31)
1070 W=0
1080 PRINT Z1$;Z2$:PRINT:PRINT
1090 PRINT TAB(20)"***** STRESS *****":PRINT:PRINT
1100 PRINT "Dit is een test om uw gevoeligheid voor Stress te bepalen."
1110 PRINT "Deze test is ontwikkeld aan de Boston University (Medical Center)."
1120 PRINT "U krijgt 20 vragen te beantwoorden waarbij u de volgende waardering"
1130 PRINT "kunt geven: van 1 (zeer zeker) tot 5 (totaal niet)."
1140 PRINT "Met 2, 3, 4, geeft u tussenwaarden aan."
1150 PRINT:PRINT
1160 INPUT "TOETS -RETURN- OM TE STARTEN.....";A
1170 PRINT Z1$:PRINT:PRINT
1180 INPUT " 1. IK EET OP Z'N MINST 1 VOLLEDIGE/GOEDE WARME MAALTIJD PER DAG";A1
1190 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1210
1200 GOTO 1180
1210 GOSUB 2220
1220 PRINT " 2. IK KRIJG ZEVEN TOT ACHT UUR SLAAP, OP Z'N MINST 4 NACHTEN"
1230 PRINT "    PER WEEK";:INPUT A1
1240 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1260
1250 GOTO 1220
1260 GOSUB 2220
1270 INPUT " 3. IK GEEF EN ONTVANG REGELMATIG AFFECTIE (GENEGENHEID)";A1
1280 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1300
1290 GOTO 1270
1300 GOSUB 2220
1310 PRINT " 4. IK HEB OP Z'N MINST 1 FAMILIELID BINNEN EEN AFSTAND VAN 80 KM"
1320 PRINT "    WAAROP IK KAN STEUNEN";:INPUT A1
1330 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1350
1340 GOTO 1310
1350 GOSUB 2220
1360 PRINT " 5. IK GYMNASTIEK OP Z'N MINST 2 KEER PER WEEK, WAARBIJ TRANSPIRATIE"
1370 PRINT "    OPTREEDT";:INPUT A1
1380 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1400
1390 GOTO 1360
1400 GOSUB 2220
1410 INPUT " 6. IK ROOK MINDER DAN EEN HALF PAKJE CIGARETTEN PER DAG";A1
1420 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1440
1430 GOTO 1410
1440 GOSUB 2220
1450 INPUT " 7. IK NEEM MINDER DAN 5 ALCOHOLISCHE DRANKEN PER WEEK";A1
1460 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1480
1470 GOTO 1450
1480 GOSUB 2220
1490 INPUT " 8. IK ZIT OP HET TOEGESTANE GEWICHT VOOR MIJN LENGTE";A1
1500 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1520
1510 GOTO 1490
1520 GOSUB 2220
1530 INPUT " 9. IK HEB EEN INKOMEN RUIM GENOEG VOOR DE BASIS-ONKOSTEN";A1
1540 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1560
1550 GOTO 1530
1560 GOSUB 2220
1570 INPUT "10. IK WORDT GESTERKT DOOR MIJN RELIGIEUZE LEVEN";A1
1580 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1600
1590 GOTO 1570
1600 GOSUB 2220
1610 INPUT "11. IK NEEM REGELMATIG DEEL AAN CLUB- OF SOCIALE ACTIVITEITEN";A1
1620 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1640
1630 GOTO 1610
1640 GOSUB 2220
1650 INPUT "12. IK HEB EEN NETWERK VAN VRIENDEN EN BEKENDEN";A1
1660 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1680
1670 GOTO 1650
1680 GOSUB 2220
1690 PRINT "13. IK HEB EEN OF MEER VRIENDEN WAAR IK TERECHT KAN MET ZAKEN VAN"
1700 PRINT "    PERSOONLIJKE AARD";:INPUT A1
1710 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1730
1720 GOTO 1690
1730 GOSUB 2220
1740 INPUT "14. IK BEN IN GOEDE GEZONDHEID (INCLUSIEF ZIEN, HOREN EN GEBIT)";A1
1750 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1770
1760 GOTO 1740
1770 GOSUB 2220
1780 PRINT "15. IK BEN IN STAAT OPEN TE SPREKEN OVER MIJN GEVOELENS ALS IK BANG"
1790 PRINT "    BEN OF KWAAD";:INPUT A1
1800 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1820
1810 GOTO 1780
1820 GOSUB 2220
1830 PRINT "16. IK HEB REGELMATIG GESPREKKEN MET DE MENSEN WAARMEE IK SAMENLEEF"
1840 PRINT "    OVER DAGELIJKSE ZAKEN/PROBLEMEN ZOALS HUISHOUDING, GELD ENZ.";:INPUT A1
1850 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1870
1860 GOTO 1830
1870 GOSUB 2220
1880 INPUT "17. IK DOE IETS VOOR HET PLEZIER, OP Z'N MINST 1 KEER PER WEEK";A1
1890 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1910
1900 GOTO 1880
1910 GOSUB 2220
1920 INPUT "18. IK BEN IN STAAT MIJN TIJD EFFECTIEF IN TE DELEN";A1
1930 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1950
1940 GOTO 1920
1950 GOSUB 2220
1960 PRINT "19. IK DRINK MINDER DAN DRIE KOPPEN KOFFIE (OF THEE OF COLA) PER DAG";:INPUT A1
1970 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 1990
1980 GOTO 1960
1990 GOSUB 2220
2000 INPUT "20. IK NEEM TIJD VOOR MEZELF (ONTSPANNING) IN DE LOOP VAN DE DAG";A1
2010 IF A1<1 THEN GOSUB 2190 ELSE IF A1>5 THEN GOSUB 2190 ELSE GOTO 2030
2020 GOTO 2000
2030 W=W+A1:U=W-20
2040 PRINT Z1$:PRINT:PRINT:PRINT
2050 PRINT TAB(15)"***** UW TOTALE SCORE BEDRAAGT ";U;" *****"
2060 FOR I=1 TO 1000:NEXT I
2070 PRINT:PRINT:PRINT
2080 PRINT Z2$:FOR I=1 TO 80:PRINT Z3$;:NEXT I:PRINT
2090 IF U<30 THEN PRINT TAB(15)"** U LEEFT NOG NIET ZO GEK -- GA ZO DOOR **":GOTO 2130
2100 IF U<50 THEN PRINT TAB(15)"** U BENT GEVOELIG VOOR STRESS! **":GOTO 2130
2110 IF U<75 THEN PRINT TAB(15)"** U BENT ZEER GEVOELIG VOOR STRESS! **":GOTO 2130
2120 IF U>=75 THEN PRINT TAB(15)"** U BENT EXTREEM GEVOELIG VOOR STRESS! **"
2130 PRINT:FOR I=1 TO 80:PRINT Z3$;:NEXT I:PRINT:PRINT
2140 PRINT" 0 - 30   U leeft nog niet zo gek -- ga zo door"
2150 PRINT"30 - 50   U bent gevoelig voor stress!"
2160 PRINT"50 - 75   U bent zeer gevoelig voor stress!"
2170 PRINT"75 - 80   U bent extreem gevoelig voor stress!"
2180 PRINT:PRINT:END
2190 PRINT:PRINT:PRINT
2195 PRINT TAB(5)"UW WAARDERING DIENT VAN 1 T/M 5 TE BEDRAGEN !!!"
2200 PRINT TAB(5)"(1 = zeer zeker    5 = totaal niet    2,3,4 voor tussenwaarden)"
2205 FOR I=1 TO 2000:NEXT I:PRINT CHR$(26):PRINT:PRINT
2210 RETURN
2220 W=W+A1:PRINT Z1$:PRINT:PRINT:RETURN
ussenwaarden)"
2205 FOR I=1 TO 2000:NEXT I:PRINT CHR$(26):PRINT:PRINT
2210 RETURN
2220 W=W+A1:PRINT