100 PROGRAM "Teszt_2.bas" 110 TEXT 40 120 EXT "Hfont" 130 OUT 191,12 140 SET BORDER0 150 EXT "status "JÓL ÉRZI MAGÁT A BŐRÉBEN?"" 160 NUMERIC P(1TO4) 170 SET VIDEOMODE1:SET VIDEOCOLOUR2:SET VIDEOX40:SET VIDEOY4 180 OPEN #1:"video:" 190 SET #1:PALETTE0,RED,13,75,59,18,22,255 200 LET SORSZ=1:LET PONT=0 210 SET #102:PALETTE0,CYAN,BLUE,255 220 PRINT #102:"" 230 PRINT #102:"Lelkünk harmóniájához egyaránt hozzátar-tozik a szerelem, a szeretet, a szexua-litás és az életben elért siker. "; 240 PRINT #102:"Akikitölti a tesztet, választ kaphat arra akérdésre, boldog és kiegyensúlyozott-e,megtalálta-e a lelki nyugalmát partner-kapcsolatában, a munkahelyén és a bará-tai között..." 250 PRINT #102:"Teszt közben bármikor visszatérhetsz ehez a képhez a 'Q' gomb megnyomásával!" 260 SET #102:INK3 270 PRINT #102,AT13,2:"╔═══════════════════════════════════╗" 280 PRINT #102,AT14,2:"║ Írta: Kiss László 1995-ben ║" 290 PRINT #102,AT15,2:"║ Készült a Nők Lapja alapján. ║" 300 PRINT #102,AT16,2:"║ A program csak EPDOS mellet fut! ║" 310 PRINT #102,AT17,2:"╚═══════════════════════════════════╝" 320 SET #102:INK1 330 PRINT #102,AT20,1:" Nyomj meg egy gombot a folytatáshoz!" 340 PRINT #102,AT21,1:" Q - kiépés a programból" 350 LET KEY$=INKEY$ 360 IF KEY$=""THEN 350 370 IF KEY$<>"q"THEN 610 380 IF KEY$="q"THEN 390 SET #102:INK3 400 PRINT #102,AT20,13:"║ 2 - WP ║" 410 PRINT #102,AT21,13:"║ 3 - EPDOS ║" 420 PRINT #102,AT19,13:"║ 1 - BASIC ║" 430 PRINT #102,AT22,13:"║ Q - vissza ║" 440 PRINT #102,AT18,13:"╔═════════════╗" 450 PRINT #102,AT23,13:"╚═════════════╝" 460 LET KEY$=INKEY$ 470 IF KEY$=""THEN 460 480 IF KEY$="1"THENEXT "basic" 490 IF KEY$="2"THENEXT "wp" 500 IF KEY$="3"THENEXT "i" 510 IF KEY$="q"THEN 520 SET #102:INK1 530 PRINT #102,AT18,13:" " 540 PRINT #102,AT19,13:" " 550 PRINT #102,AT22,13:" " 560 PRINT #102,AT23,13:" " 570 GOTO 330 580 END IF 590 END IF 600 GOTO 460 610 PRINT AT23,1:"" 620 SET #102:PALETTE0,25,0,CYAN 630 READ KERDES$,V1$,V2$,V3$,V4$ 640 READ P(1),P(2),P(3),P(4) 650 PRINT AT8,1:SORSZ;".";KERDES$:PRINT 660 SET #102:INK3 670 PRINT " 1 - ";V1$ 680 PRINT " 2 - ";V2$ 690 PRINT " 3 - ";V3$ 700 PRINT " 4 - ";V4$ 710 SET #102:INK1 720 LET KEY$=INKEY$ 730 IF KEY$="q"THENCLEAR SCREEN:RESTORE :GOTO 200 740 IF KEY$<"1"ORKEY$>"5"THEN 720 750 LET PONT=PONT+P(VAL(KEY$)) 760 LET SORSZ=SORSZ+1 770 IF SORSZ=16THEN 800 780 CLEAR SCREEN 790 GOTO 630 800 TEXT 80 810 SET #102:PALETTE0,255,0,YELLOW 820 PRINT "A pontszámod:";PONT 830 SET #102:INK3 840 IF PONT<35THEN 850 PRINT "Napjait olyan erős, és az élet minden területén jelentkező stresszkeltő té-nyezők zavarják, hogy számítania kell rá: az elkövetkező során lelki- vagy idegbetegséget szerez. "; 860 PRINT "A mindennapos terhek nemcsak a lelkét, hanem egyes szerveinek és egész szervezetének működését megzavarhatják. Gondolja jól meg, a helyzet megváltoztatásáért mit tehetne. De minnél gyorsabban, mielött még túl késő lenne!" 870 END IF 880 IF PONT>=35ANDPONT<59THEN 890 PRINT "Ön mindennapjait lelkileg erősen fárasztó stresszhelyzetekben éli, bár ezek nem annyira partnerkapcsolatában, hanem a munkahelyén és a baráti körében adódnak. "; 900 PRINT "Vizsgálja meg, melyek azok a tényezők, amelyek különösen rossz ha-tással vannak lelkiállapotára, és próbálja megerősíteni tűrőképességét. A legfontosabb feladat, hogy az okokat ne a környezetében, társában, "; 910 PRINT "a többi emberben keresse, hanem saját magában!" 920 END IF 930 IF PONT<=79ANDPONT>59THEN 940 PRINT "A partnerkapcsolatából adódó stressz csak kevéssé terheli meg lelkileg. Társá-val kialakított kapcsolatának köszönhetően jól elviseli az élet számos nehéz-ségét. "; 950 PRINT "Ennek ellenére át kellene gondolnia, melyek a gyenge pontjai, hogy eredményesen védekezhessen a pszichikailag megterhelő izgalmak ellen." 960 END IF 970 IF PONT>=80THEN 980 PRINT "Hála partnerkapcsolatának, és annak a képességének, hogy ezt a kapcsolatot megfelelően ápolni is tudja, megtalálta lelki nyugalmát és boldogságát. Lel-kileg terhelhető, pszichikailag erős és kiegyensújozott." 990 END IF 1000 CLEAR #1 1010 SET #1:INK1 1020 PLOT #1:20,40;394,40;394,100;20,100;20,40 1030 PLOT #1:30,50,PAINT 1040 SET #1:INK2 1050 PLOT #1:394,35;669,35;669,105;394,105;394,35 1060 PLOT #1:400,50,PAINT 1070 SET #1:INK3 1080 PLOT #1:669,30;889,30;889,110;669,110;669,30 1090 PLOT #1:700,50,PAINT 1100 SET #1:INK4 1110 PLOT #1:889,25;1197,25;1197,115;889,115;889,25 1120 PLOT #1:1000,50,PAINT 1130 SET #1:INK7 1140 PLOT #1:20+(PONT*11),0;20+(PONT*11),120 1150 DISPLAY #1:AT10FROM1TO4 1160 GET KEY$ 1170 IF INKEY$=""THEN 1170 1180 RESTORE 1190 TEXT 40 1200 GOTO 200 1210 DATA "Boldognak érzi-e magát partnerkapcsolatában?","igen","többnyire","néha","nem",10,8,4,0 1220 DATA "Elégedett e partnerkapcsolatával?","igen","többnyire","néha","nem",10,8,4,2 1230 DATA "Megkapja-e partnerétől a szükséges erőt, biztonságot, nyugalmat?","igen","többnyire","néha","nem",10,8,4,2 1240 DATA "El tudná-e képzelni, hogy partner nélkül, teljesen egyedül is elé- gedetten és boldogan éljen?","igen","talán","nem-igen","nem",2,4,6,8 1250 DATA "Partnerkapcsolata kielégíti-e szexuális igényeit?","igen","nagyjából","nemigen","nem",10,8,4,2 1260 DATA "Sokat beszélgetnek-e partnerével mindenféle általános témáról?","igen","többnyire","néha","soha",3,2,1,1 1270 DATA "Megvitatják-e nézeteltéréseiket?","igen","többnyire","néha","soha",3,2,1,0 1280 DATA "Beszélgetnek-e saját problémáik- ról, gondjaikról, szorongásaikról és kudarcaikról?","igen","gyakran","néha","soha",3,2,1,0 1290 DATA "Békésen elviseli-e partnerének azokat a nézeteit, amelyekről el- térő a véleményük?","igen","többnyire","néha","nem",8,6,4,2 1300 DATA "Köszönhet-e partnerének személyes sikereket, előnyöket?","igen","sokat","néhányat","nem",1,8,4,2 1310 DATA "Megiszik-e naponta két pohárnál több bort, sört vagy tömény alkoholt?","igen","gyakran","néha","soha",1,2,3,4 1320 DATA "Megiszik-e partnere naponta két pohárnál több bort, sört vagy tömény alkoholt?","igen","gyakran","néha","soha",1,2,3,4 1330 DATA "Ha partnerével összeszólalkoznak, még a következő napon is izgatott a veszekedés miatt?","igen","többnyire","néha","nem",0,2,5,8 1340 DATA "Van-e saját baráti köre?","igen","mondhatni","nemigen","nincs",8,6,4,2 1350 DATA "Boldog és elégedett-e a munkahe- lyén, szívesen megy-e nap mint nap dolgozni, örömét leli-e munkájá- ban?","igen","többnyire","néha","mem",10,8,4,2