Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10 WINDOW:CLS
   11 PRINT AT(0,2);"PRUEFEN SIE IHREN SEX-QUOTIENTEN !"
   20 PRINT AT(1,2);STRING$(36,"*")
   30 INK 7:PRINT AT(3,2);"JEDER WEISS, DASS MAN DIE INTELLIGENZ"
   40 PRINT AT(4,2);"DES MENSCHEN MESSEN KANN."
   50 PRINT AT(5,2);"DAS MASS DAFUER HEISST INTELLIGENZ-"
   60 PRINT AT(6,2);"QUOTIENT"
   70 PRINT AT(7,2);"BRITISCHE WISSENSCHAFTLER HABEN EINE"
   80 PRINT AT(8,2);"METHODE ENTWICKELT,MIT DER MAN"
   90 PRINT AT(9,2);"SEINEN SEX-QUOTIENTEN MESSEN KANN."
  100 PRINT AT(10,2);"D.H.,JETZT IST ENDLICH MESSBAR, OB"
  110 PRINT AT(11,2);"MAN IM BETT ZU DEN GROSSEN ASSEN GE-"
  120 PRINT AT(12,2);"HOERT,GUTER DURCHSCHITT IST ODER EIN"
  130 PRINT AT(13,2);"EISBLOCK, DEN AUCH DIE HEISSESTE"
  140 PRINT AT(14,2);"LIEBESNACHT NICHT AUFTAUEN KANN."
  150 PRINT AT(15,2);"JE GROESSER DER SQ IST, DESTO BESSER"
  160 PRINT AT(16,2);"SIND SIE. ALSO TESTEN SIE IHREN SQ !"
  170 PRINT AT(17,2);"INDEM SIE IMMER NUR MIT JA ODER NEIN"
  180 PRINT AT(18,2);"AUF JEDE FRAGE ANTWORTEN."
  190 PRINT AT(19,2);"MOECHEN SIE ? WENN JA, DANN TASTEN"
  200 PRINT AT(20,2);"SIE J !!!"
  210 A$=INKEY$:IF A$=""THEN 210:ELSE IF A$="J"OR A$="N"THEN 220:ELSE 210
  220 IF A$="N" THEN 10
  230 LET X=0
  240 WINDOW:CLS:WINDOW 1,23,1,38:CLS
  241 PRINT "ERMITTLUNG IHRES ";:PRINT "SEX-QUOTIENTEN"
  242 PRINT "BEANTWORTEN SIE FOLGENDE FRAGEN !(J/N)":PRINT STRING$(35,"_")
  250 WINDOW 6,23,1,38:CLS:PRINT "GLAUBEN SIE, DASS MAN VOM ANDEREN"
  260 PRINT "GESCHLECHT MEHR RESPEKTIERT WIRD,"
  270 PRINT "WENN MAN ZURUECKHALTENDER IST ?"
  280 INPUT B$
  290 IF B$="N"THEN 310
  300 GOTO 330
  310 LET X=10
  330 PRINT:PRINT "IST SEX AUCH OHNE LIEBE ZUFRIEDEN-"
  340 PRINT "STELLEND ?"
  350 INPUT C$
  360 IF C$="J"THEN 380
  370 GOTO 400
  380 X=X+10
  400 PRINT:PRINT "IST JUNGFRAEULICHKEIT DER TEUERSTE"
  410 PRINT "BESITZ EINES MAEDCHENS ?"
  420 INPUT D$
  430 IF D$="n"THEN 450
  440 GOTO 470
  450 X=X+10
  470 PRINT:PRINT "WUERDE ES IHNEN ETWAS AUSMACHEN,"
  480 PRINT "EINEN PARTNER ZU HABEN, DER NICHT"
  490 PRINT "UNBERUEHRT IST ?"
  500 INPUT E$
  510 IF E$="J"THEN 530
  520 GOTO 540
  530 LET X=X+10
  540 PRINT:PRINT "SIND SIE SEXUELL LEICHT ERREGBAR?"
  550 INPUT F$
  560 IF F$="J"THEN 580
  570 GOTO 590
  580 LET X=X+10
  590 CLS:PRINT:PRINT "DENKEN SIE JEDEN TAG AN SEX ?"
  600 INPUT G$
  610 IF G$="J"THEN 630
  620 GOTO 640
  630 LET X=X+10
  640 PRINT:PRINT "SIND SIE DER MEINUNG, DASS MAN "
  650 PRINT "VOR DER EHE SEXUELLE ERFAHRUNGEN "
  655 PRINT "SAMMELN SOLLTE ?"
  660 INPUT H$
  670 IF H$="J"THEN 690
  680 GOTO 700
  690 LET X=X+10
  700 PRINT:PRINT "SIND SIE GEGEN INTIME BEZIEHUNGEN VOR"
  710 PRINT "DER EHE ?"
  720 INPUT I$
  730 IF I$="N"THEN 750
  740 GOTO 760
  750 LET X=X+10
  760 PRINT:PRINT "SEHEN SIE SICH GERN SEX-FOTOS AN ?"
  770 INPUT J$
  780 IF J$="J"THEN 800
  790 GOTO 810
  800 X=X+10
  810 PRINT:PRINT "SIND SIE DEM ANDEREN GESCHLECHT"
  820 PRINT "GEGENUEBER NERVOES ?"
  830 INPUT K$
  840 IF K$="N"THEN 860
  850 GOTO 870
  860 LET X=X+10
  870 CLS:PRINT:PRINT "SIND SIE GEHEMMT, WENN SICH EIN GE-"
  880 PRINT "SPRAECH UM SEX DREHT ?"
  890 INPUT L$
  900 IF L$="N"THEN 920
  910 GOTO 930
  920 LET X=X+10
  930 PRINT:PRINT "SOLLTEN FRAUEN SEXUELL FEURIGER":PRINT "SEIN ?"
  950 INPUT M$
  960 IF M$="J"THEN 980
  970 GOTO 990
  980 LET X=X+10
  990 PRINT:PRINT "SUCHEN SIE IHR VERGNUEGEN, WO SIE"
 1000 PRINT "ES GERADE FINDEN ?"
 1010 INPUT N$
 1020 IF N$="J"THEN 1040
 1030 GOTO 1050
 1040 LET X=X+10
 1050 PRINT:PRINT "SOLLTE EIN MENSCH BEHUTSAM DIE LIEBE"
 1060 PRINT "ERLERNEN ?"
 1070 INPUT O$
 1080 IF O$="J"THEN 1100
 1090 GOTO 1110
 1100 LET X=X+10
 1110 CLS:PRINT:PRINT "WERDEN IM FERNSEHEN ZUVIELE EROTISCHE"
 1120 PRINT "FILME GEZEIGT ?"
 1130 INPUT P$
 1140 IF P$="N"THEN 1160
 1150 GOTO 1170
 1160 LET X=X+10
 1170 PRINT:PRINT "SOLLTE ES BEI SEX-FILMEN EINE ZENSUR"
 1180 PRINT "GEBEN ?"
 1190 INPUT Q$
 1200 IF Q$="N"THEN 1220
 1210 GOTO 1230
 1220 LET X=X+10
 1230 PRINT:PRINT "IST VOELLIGE TREUE IN DER EHE GENAU"
 1240 PRINT "SO SCHLECHT, WIE DAS >ZOELIBAT< ?"
 1250 PRINT "(ZOELIBAT IST DIE EHELOSIGKEIT BEI"
 1260 PRINT "ROEM.-KATH. GEISTLICHEN)"
 1270 INPUT R$
 1280 IF R$="J"THEN 1300
 1290 GOTO 1310
 1300 LET X=X+10
 1310 PRINT:PRINT "SIND KOERPERLICHE BEZIEHUNGEN DER "
 1320 PRINT "WICHTIGSTE TEIL EINER EHE ?"
 1330 INPUT S$
 1340 IF S$="J"THEN 1360
 1350 GOTO 1370
 1360 LET X=X+10
 1370 CLS:PRINT:PRINT "IST ES IHNEN EGAL OB DER PARTNER"
 1375 PRINT "IHNEN TREU IST, HAUPTSACHE ER"
 1380 PRINT "KOMMT ZU IHNEN ZURUECK ?"
 1390 INPUT T$
 1400 IF T$="J"THEN 1420
 1410 GOTO 1430
 1420 LET X=X+10
 1430 PRINT:PRINT "IST IHNEN DER GEDANKE AN "
 1435 PRINT "PARTNERTAUSCH UNANGENEHM ?"
 1440 INPUT U$
 1450 IF U$="N"THEN 1470
 1460 GOTO 1490
 1470 LET X=X+10
 1490 PRINT:PRINT "MOECHTEN SIE IN JEDER NACHT "
 1495 PRINT "EINEN ANDEREN PARTNER HABEN ?"
 1500 INPUT V$
 1510 IF V$="J"THEN 1530
 1520 GOTO 1540
 1530 LET X=X+10
 1540 PRINT:PRINT "MACHT IHNEN SEX MIT EINEM ANDEREN"
 1545 PRINT "PARTNER AM MEISSTEN SPASS ?"
 1550 INPUT W$
 1560 IF W$="J"THEN 1580
 1570 GOTO 1590
 1580 LET X=X+10
 1590 CLS:PRINT:PRINT "KOENNEN SIE NUR NACHTS LIEBEN ?"
 1600 INPUT X$
 1610 IF X$="N"THEN 1630
 1620 GOTO 1640
 1630 LET X=X+10
 1640 PRINT:PRINT "SIND SIE FUER EINIGE SPIELARTEN "
 1645 PRINT "DER LIEBE ZU HABEN ?"
 1650 INPUT Y$
 1660 IF Y$="N"THEN 1680
 1670 GOTO 1700
 1680 LET X=X+10
 1700 PRINT:PRINT "WIE OFT HABEN SIE SEX AM LIEBSTEN ?"
 1710 PRINT "A: 1X IM MONAT"
 1720 PRINT "B: 1X IN DER WOCHE"
 1730 PRINT "C: 2X IN DER WOCHE"
 1740 PRINT "D: BIS 5X PRO WOCHE"
 1750 PRINT "E: TAEGLICH"
 1760 PRINT "F: MEHRMALS TAEGLICH"
 1770 PRINT:PRINT "TASTEN SIE DEN JEWEILIGEN":PRINT "BUCHSTABEN EIN !"
 1780 INPUT Z$
 1790 CLS
 1800 IF Z$="D"THEN 1850
 1810 IF Z$="E"THEN 1850
 1820 IF Z$="F"THEN 1850 
 1830 GOTO 1870
 1850 X=X+10
 1870 IF X=10 THEN 2130
 1880 IF X=20 THEN 2130
 1890 IF X=30 THEN 2130
 1900 IF X=40 THEN 2130
 1910 IF X=50 THEN 2290
 1920 IF X=60 THEN 2290
 1930 IF X=70 THEN 2290
 1940 IF X=80 THEN 2500
 1950 IF X=90 THEN 2500
 1960 IF X=100 THEN 2760
 1970 IF X=110 THEN 2760
 1980 IF X=120 THEN 2760
 1990 IF X=130 THEN 2950
 2000 IF X=140 THEN 2950
 2010 IF X=150 THEN 2950
 2020 IF X=160 THEN 3180
 2030 IF X=170 THEN 3180
 2040 IF X=180 THEN 3180
 2050 IF X=190 THEN 3180
 2060 IF X=200 THEN 3180
 2070 IF X=210 THEN 3410
 2080 IF X=220 THEN 3410
 2090 IF X=230 THEN 3410
 2100 IF X=240 THEN 3410
 2110 IF X=250 THEN 3410
 2130 GOSUB 5100
 2160 IF A$="J"THEN 2190:ELSE GOTO 5140
 2170 END
 2180 CLS
 2190 PRINT:PRINT:PRINT "KAELTER ALS SIE KANN MAN NICHT SEIN."
 2195 PRINT "IN IHRER NAEHE GEFRIERT JEDE"
 2200 PRINT "LEBENDE HAND EIN."
 2205 PRINT "FUER SIE IST SEX NICHTS ANDERES ALS "
 2206 PRINT "EINE FRAGE DES HORMONSPIEGELS."
 2215 PRINT "NEHMEN SIE SCHNELLSTENS NACHHILFE-"
 2216 PRINT "STUNDEN IN ZAERTLICHKEIT !"
 2240 GOSUB 5000
 2260 IF B$="J"THEN 10
 2270 END
 2290 GOSUB 5100
 2330 IF A$="J"THEN 2370:ELSE GOTO 5140
 2340 END
 2370 CLS:PRINT:PRINT:PRINT "WARUM MACHT SEX SO WENIG FREUDE ?"
 2380 PRINT "SIND SIE WIE EIN UNTERENTWICKELTES ?"
 2390 PRINT "KIND.":PRINT "SIE BESITZEN ALLE FAEHIGKEITEN,"
 2400 PRINT "ABER SIE SIND ALLE NOCH VERBORGEN UND"
 2410 PRINT "MUESSEN ERST EINMAL GEFORDERT WeRDEN."
 2420 PRINT "SEX IST KEINE VERHASSTE PFLICHT-"
 2430 PRINT "UEBUNG SONDERN LUSTVOLL UND LEBENS-":PRINT "FREUNDLICH !"
 2450 GOSUB 5000
 2480 IF B$="J"THEN 10
 2490 END
 2500 GOSUB 5100
 2550 IF A$="J"THEN 2570:ELSE GOTO 5140
 2560 END
 2570 CLS:PRINT:PRINT:PRINT "SIE SIND EIN WENIG VERKLEMMT "
 2580 PRINT "UND EIN WENIG PHANTASIELOS."
 2590 PRINT "AENDERN SIE DAS SCHNELLSTENS !"
 2600 PRINT "MACHEN SIE RUHIG EINMAL LICHT,"
 2610 PRINT "WENN SIE DEN KOERPER DES PARTNERS IM"
 2620 PRINT "ARM HALTEN."
 2630 PRINT "PROBIEREN SIE RUHIG AUCH EINMAL EINE "
 2640 PRINT "NEUE STELLUNG."
 2650 PRINT "LIEBE IST DOCH NICHTS VERBOTENES,"
 2660 PRINT "WAS MAN HEIMLICH UND MIT SCHLECHTEM "
 2670 PRINT "GEWISSEN TUT."
 2680 PRINT "LIEBE IST ETWAS, WAS MAN IMMER NEU "
 2690 PRINT "UND REIZVOLL BEGINNEN KANN."
 2710 GOSUB 5000
 2740 IF B$="J"THEN 10
 2750 END
 2760 GOSUB 5100
 2800 IF A$="J"THEN 2820:ELSE GOTO 5140
 2810 END
 2820 CLS:PRINT:PRINT:PRINT "SIE DUERFEN SICH IM BETT ODER AUF DER"
 2830 PRINT "WIESE ODER WO SIE SICH NOCH BEFINDEN,"
 2840 PRINT "ALS GUTEN DURCHSCHNITT BETRACHTEN."
 2850 PRINT "IHR PARTNER WIRD ZWAR VON IHNEN KEINE"
 2860 PRINT "HIMMELSSTUERMENDEN GERAEUSCHE ERWARTEN "
 2870 PRINT "DUERFEN, ABER DOCH SOLIDES LIEBESWERKEN."
 2890 GOSUB 5000
 2930 IF B$="J"THEN 10
 2940 END
 2950 GOSUB 5100
 2990 IF A$="J"THEN 3010:ELSE GOTO 5140
 3000 END
 3010 CLS:PRINT:PRINT:PRINT "SIE SIND, WENN ES SICH UM SEX DREHT,"
 3020 PRINT "GANZ BEI DER SACHE."
 3030 PRINT "SIE HABEN KEINE HEMMUNGEN UND "
 3040 PRINT "VERSTEHEN ETWAS VON DER LIEBE."
 3050 PRINT "IHR PARTNER WIRD IHNEN OEFTER "
 3060 PRINT "GESTEHEN, DASS SIE GUT SIND."
 3070 PRINT "MANCHMAL FEHLT IHNEN DIE GEDULD UND"
 3080 PRINT "DIE ZAERTLICHKEIT, ABER IM GROSSEN "
 3090 PRINT "UND GANZEN GEHOEREN SIE ZU DEN GUTEN "
 3100 PRINT "LIEBHABERN."
 3120 GOSUB 5000
 3160 IF B$="J"THEN 10
 3170 END
 3180 GOSUB 5100
 3220 IF A$="J"THEN 3240:ELSE GOTO 5140
 3230 END
 3240 CLS:PRINT:PRINT:PRINT:PRINT "BRAVO !!!!!!!"
 3250 PRINT:PRINT:PRINT "IHR PARTNER IST ZU BENEIDEN !!!"
 3260 PRINT "SIE BESITZEN ALLE FAEHIGKEITEN,"
 3270 PRINT "UM EINEN MENSCHEN GLUECKLICH ZU"
 3280 PRINT "MACHEN.":PRINT "SIE VEPASSEN KEINE MOEGLICHKEIT,"
 3290 PRINT "DEN GEMEINSAMEN HOEHEPUNKT UND DAS"
 3300 PRINT "SEXUELLE ERLEBNIS ZU EINER WUNDER-"
 3310 PRINT "SCHOENEN EPISODE ZU GESTALTEN."
 3320 PRINT "ES IST WIRKLICH EINE LUST MIT IHNEN "
 3330 PRINT "LUST ZU EMPFINDEN."
 3350 GOSUB 5000
 3390 IF B$="J"THEN 10
 3400 END
 3410 GOSUB 5100
 3450 IF A$="J"THEN 3470:ELSE GOTO 5140
 3460 END
 3470 CLS:PRINT:PRINT:PRINT "SIE SIND EINE ART <EINSTEIN> IN DER"
 3480 PRINT "LIEBE, EIN GENIE IM BETT, EIN":PRINT "PARTNER,"
 3490 PRINT "VON DEM MAN IN SEHNSUECHTEN TRAEUMT."
 3500 PRINT "WER SIE IM BETT ERLEBT, WIRD NIE"
 3510 PRINT "WIEDER ETWAS ANDERES WOLLEN,"
 3520 PRINT "ALS VON IHNEN GELIEBT ZU WERDEN."
 3540 GOSUB 5000
 3580 IF B$="J"THEN 10
 3590 END
 5000 LET C$=INKEY$:IF C$=""GOTO 5000:CLS
 5005 PRINT:PRINT:PRINT "MOECHTE SICH NOCH EINE ANDERE PERSON"
 5010 PRINT "TESTEN LASSEN ?"
 5020 PRINT "DANN TASTEN SIE J EIN !"
 5030 INPUT B$:RETURN
 5100 CLS:PRINT:PRINT:PRINT X;"IST IHR QUOTIENT."
 5110 PRINT:PRINT "MOECHTEN SIE MEHR DARUEBER WISSEN ?"
 5120 PRINT "DANN J TASTEN !"
 5130 INPUT A$:RETURN
 5140 CLS:PRINT:PRINT:PRINT "MOECHTEN SIE ES NICHT DER OEFFENT-"
 5150 PRINT "LICHKEIT PREISGEBEN ?"
 5160 PRINT:PRINT:PRINT "DANN SIND SIE EIN FEIGLING !!!"
 5180 GOTO 2190