10 U1$=CHR$(27)+"-"+CHR$(1)
15 U2$=CHR$(27)+"-"+CHR$(0)
20 DIM A$(119)
25 POKE 53280,5:POKE 53281,5:POKE 646,1
30 PRINT CHR$(14);CHR$(147)
35 PRINT"*** [212][197][211][212] *** [212][197][211][212] *** [212][197][211][212] *** [212][197][211][212] ***"
40 PRINT:PRINT
45 A$(1)="[193]UF MANCHEN [212]YP FLIEGT EINFACH JEDER."
50 A$(2)="[194]EREITS MIT EINEM KLEINEN [204]AECHELN"
55 A$(3)="EROBERT ER ALLE [200]ERZEN IM [211]TURM."
60 A$(4)="[197]IN ANDERER DAGEGEN KRIEGT UEBERHAUPT"
65 A$(5)="KEINEN [203]ONTAKT. [215]IE KOMMST [196]U EIGENT-"
70 A$(6)="LICH AN? [207]B [196]U AUCH EIN [211]UPER-[203]ONTAKT-"
75 A$(7)="[212]YP BIST, SAGT [196]IR DER [212]EST!"
80 FOR N=1 TO 7:PRINT A$(N):NEXT
85 INPUT" [215]IE HEISST [196]U MIT [214]ORNAMEN";NA$
86 INPUT" [213]ND [196]EIN [206]ACHNAME";NN$
90 PRINT CHR$(147)
95 POKE 53280,7:POKE 53281,7:POKE 646,2
100 A$(8)="1. [212]EST"
105 A$(9)="[199]LAUBST [196]U, DASS MAN [205]ENSCHEN NACH DEM"
110 A$(10)="ALLERERSTEN [197]INDRUCK BEREITS RICHTIG"
115 A$(11)="EINSCHAETZEN KANN?"
120 A$(12)="A) [206]EIN, DAS KANN MAN UEBERHAUPT NICHT."
125 A$(13)="B) [202]A, DER ERSTE [197]INDRUCK IST"
130 A$(14)="   ENTSCHEIDEND."
135 A$(15)="C) [201]CH SCHAUE ZUERST AUF DIE [203]LAMOTTEN"
140 A$(16)="   - DAS SAGT MIR EINE [205]ENGE UEBER DEN"
145 A$(17)="   [212]YPEN."
150 FOR N=8 TO 11:PRINT A$(N):NEXT
155 PRINT
160 FOR N=12 TO 17:PRINT A$(N):NEXT
165 GET N$:IF N$="" THEN 165
170 IF N$="A" THEN Z=1:A$(12)=U1$+A$(12)+U2$:GOTO 205
175 IF N$="B" THEN Z=3:A$(13)=U1$+A$(13)+U2$
180 IF N$="B" THEN A$(14)=U1$+A$(14)+U2$:GOTO 205
185 IF N$="C" THEN Z=2:A$(15)=U1$+A$(15)+U2$
190 IF N$="C" THEN A$(16)=U1$+A$(16)+U2$
195 IF N$="C" THEN A$(17)=U1$+A$(17)+U2$:GOTO 205
200 GOTO 165
205 PRINT CHR$(147)
210 POKE 53280,6:POKE 53281,6:POKE 646,7
215 A$(18)="2. [212]EST"
220 A$(19)="[196]U KANNST [196]IR [196]EINEN [213]RLAUBS-[212]RIP"
225 A$(20)="DIESMAL AUSSUCHEN. [198]AEHRST [196]U..."
230 A$(21)="A) ...MIT [196]EINEN [197]LTERN IN EINE KLEINE"
235 A$(22)="   [208]ENSION IN DIE [194]ERGE?"
240 A$(23)="B) ...ZU EINEM [211]PRACHEN-[213]RLAUB NACH"
245 A$(24)="   [197]NGLAND?"
250 A$(25)="C) ...MIT EINEM [202]UGENDCLUB ANS [205]ITTEL-"
255 A$(26)="   MEER?"
260 FOR N=18 TO 20:PRINT A$(N):NEXT
265 PRINT
270 FOR N=21 TO 26:PRINT A$(N):NEXT
275 GET N$:IF N$="" THEN 275
280 IF N$="A" THEN Z=Z+2:A$(21)=U1$+A$(21)+U2$
285 IF N$="A" THEN A$(22)=U1$+A$(22)+U2$:GOTO 315
290 IF N$="B" THEN Z=Z+1:A$(23)=U1$+A$(23)+U2$
295 IF N$="B" THEN A$(24)=U1$+A$(24)+U2$:GOTO 315
300 IF N$="C" THEN Z=Z+3:A$(25)=U1$+A$(25)+U2$
305 IF N$="C" THEN A$(26)=U1$+A$(26)+U2$:GOTO 315
310 GOTO 275
315 PRINT CHR$(147)
320 POKE 53280,3:POKE 53281,3:POKE 646,0
325 A$(27)="3. [212]EST"
330 A$(28)="[196]U HAST [196]EINEM [194]RIEF-[198]REUND / [196]EINER"
335 A$(29)="[194]RIEF-[198]REUNDIN EINEN LANGEN, TIEF-"
340 A$(30)="SINNIGEN [194]RIEF GESCHICKT - ABER AUCH"
345 A$(31)="NACH EINEM [205]ONAT NOCH KEINE [193]NTWORT"
350 A$(32)="BEKOMMEN. [215]IE REAGIERST [196]U?"
355 A$(33)="A) [201]CH RUFE IHN / SIE KURZENTSCHLOSSEN"
360 A$(34)="   AN UND FRAGE, OB ER / SIE MEINEN"
365 A$(35)="   [194]RIEF NICHT BEKOMMEN HAT."
370 A$(36)="B) [201]CH SCHREIBE NOCH EINEN KURZEN [194]RIEF"
375 A$(37)="   UND FRAGE, WAS LOS IST."
380 A$(38)="C) [201]CH WARTE WEITER. [201]CH SELBER"
385 A$(39)="   SCHREIBE JEDENFALLS NICHT NOCH"
390 A$(40)="   EINMAL."
395 FOR N=27 TO 32:PRINT A$(N):NEXT
400 PRINT
405 FOR N=33 TO 40:PRINT A$(N):NEXT
410 GET N$:IF N$="" THEN 410
415 IF N$="A" THEN Z=Z+3:A$(33)=U1$+A$(33)+U2$
420 IF N$="A" THEN A$(34)=U1$+A$(34)+U2$
425 IF N$="A" THEN A$(35)=U1$+A$(35)+U2$:GOTO 460
430 IF N$="B" THEN Z=Z+2:A$(36)=U1$+A$(36)+U2$
435 IF N$="B" THEN A$(37)=U1$+A$(37)+U2$:GOTO 460
440 IF N$="C" THEN Z=Z+1:A$(38)=U1$+A$(38)+U2$
445 IF N$="C" THEN A$(39)=U1$+A$(39)+U2$
450 IF N$="C" THEN A$(40)=U1$+A$(40)+U2$:GOTO 460
455 GOTO 410
460 PRINT CHR$(147)
465 POKE 53280,2:POKE 53281,2:POKE 646,7
470 A$(41)="4. [212]EST"
475 A$(42)="[193]UF EINER [208]ARTY SIND [196]IR ALLE FREMD."
480 A$(43)="[215]EN WUERDEST [196]U AM EHESTEN ANSPRECHEN?"
485 A$(44)="A) [202]EMANDEN, DER GENAUSO VERLOREN"
490 A$(45)="   HERUMSTEHT WIE ICH."
495 A$(46)="B) [197]IN [208]AERCHEN."
500 A$(47)="C) [197]INE LUSTIGE [195]LIQUE."
505 FOR N=41 TO 43:PRINT A$(N):NEXT
510 PRINT
515 FOR N=44 TO 47:PRINT A$(N):NEXT
520 GET N$:IF N$="" THEN 520
525 IF N$="A" THEN Z=Z+1:A$(44)=U1$+A$(44)+U2$
530 IF N$="A" THEN A$(45)=U1$+A$(45)+U2$:GOTO 550
535 IF N$="B" THEN Z=Z+2:A$(46)=U1$+A$(46)+U2$:GOTO 550
540 IF N$="C" THEN Z=Z+3:A$(47)=U1$+A$(47)+U2$:GOTO 550
545 GOTO 520
550 PRINT CHR$(147)
555 POKE 53280,0:POKE 53281,0:POKE 646,4
560 A$(48)="5. [212]EST"
565 A$(49)="[196]U HAST [196]ICH IRRE VERKNALLT - [196]EIN"
570 A$(50)="[211]CHWARM WEISS ABER NOCH NICHTS DAVON."
575 A$(51)="[215]IE MACHST [196]U IHN / SIE AUF [196]ICH AUF-"
580 A$(52)="MERKSAM?"
585 A$(53)="A) [201]CH WARTE EINE GUENSTIGE [199]ELEGENHEIT"
590 A$(54)="   AB UND SAGE ES IHM / IHR DANN"
595 A$(55)="   EINFACH."
600 A$(56)="B) [201]CH HOFFE, DASS ER / SIE SICH AUCH"
605 A$(57)="   IN MICH VERLIEBT. [211]ELBST UNTERNEHME"
610 A$(58)="   ICH ABER NICHTS."
615 A$(59)="C) [201]CH SCHREIBE EINEN [194]RIEF AN"
620 A$(60)="   IHN / SIE, IN DEM ICH MEINE [204]IEBE"
625 A$(61)="   GESTEHE."
630 FOR N=48 TO 52:PRINT A$(N):NEXT
635 PRINT
640 FOR N=53 TO 61:PRINT A$(N):NEXT
645 GET N$:IF N$="" THEN 645
650 IF N$="A" THEN Z=Z+3:A$(53)=U1$+A$(53)+U2$
655 IF N$="A" THEN A$(54)=U1$+A$(54)+U2$
660 IF N$="A" THEN A$(55)=U1$+A$(55)+U2$:GOTO 700
665 IF N$="B" THEN Z=Z+1:A$(56)=U1$+A$(56)+U2$
670 IF N$="B" THEN A$(57)=U1$+A$(57)+U2$
675 IF N$="B" THEN A$(58)=U1$+A$(58)+U2$:GOTO 700
680 IF N$="C" THEN Z=Z+2:A$(59)=U1$+A$(59)+U2$
685 IF N$="C" THEN A$(60)=U1$+A$(60)+U2$
690 IF N$="C" THEN A$(61)=U1$+A$(61)+U2$:GOTO 700
695 GOTO 645
700 PRINT CHR$(147)
705 A$(62)="6. [212]EST"
710 POKE 53280,3:POKE 53281,3:POKE 646,7
715 A$(63)="[215]IE MOECHTEST [196]U SPAETER LEBEN?"
720 A$(64)="A) [218]UERST EINMAL GANZ ALLEIN."
725 A$(65)="B) [205]IT EINEM [208]ARTNER, DEN ICH LIEBE."
730 A$(66)="C) [205]IT EINER FROEHLICHEN [199]ROSSFAMILIE."
735 FOR N=62 TO 63:PRINT A$(N):NEXT
740 PRINT
745 FOR N=64 TO 66:PRINT A$(N):NEXT
750 GET N$:IF N$="" THEN 750
755 IF N$="A" THEN Z=Z+1:A$(64)=U1$+A$(64)+U2$:GOTO 775
760 IF N$="B" THEN Z=Z+2:A$(65)=U1$+A$(65)+U2$:GOTO 775
765 IF N$="C" THEN Z=Z+3:A$(66)=U1$+A$(66)+U2$:GOTO 775
770 GOTO 750
775 PRINT CHR$(147)
780 POKE 53280,1:POKE 53281,1:POKE 646,4
785 A$(67)="7. [212]EST"
790 A$(68)="[196]U BRAUCHST DRINGEND [200]ILFE BEI EINEM"
795 A$(69)="[208]ROBLEM. [215]EN WUERDEST [196]U DARUM BITTEN?"
800 A$(70)="A) [205]EINE [197]LTERN."
805 A$(71)="B) [206]UR MEINEN ALLERBESTEN [198]REUND /"
810 A$(72)="   BESTE [198]REUNDIN."
815 A$(73)="C) [196]ENJENIGEN, DER MIR WIRKLICH HELFEN"
820 A$(74)="   KANN - AUCH WENN ICH IHN NICHT SO"
825 A$(75)="   GUT KENNE."
830 FOR N=67 TO 69:PRINT A$(N):NEXT
835 PRINT
840 FOR N=70 TO 75:PRINT A$(N):NEXT
845 GET N$:IF N$="" THEN 845
850 IF N$="A" THEN Z=Z+2:A$(70)=U1$+A$(70)+U2$:GOTO 885
855 IF N$="B" THEN Z=Z+1:A$(71)=U1$+A$(71)+U2$
860 IF N$="B" THEN A$(72)=U1$+A$(72)+U2$:GOTO 885
865 IF N$="C" THEN Z=Z+3:A$(73)=U1$+A$(73)+U2$
870 IF N$="C" THEN A$(74)=U1$+A$(74)+U2$
875 IF N$="C" THEN A$(75)=U1$+A$(75)+U2$:GOTO 885
880 GOTO 845
885 PRINT CHR$(147)
890 POKE 53280,7:POKE 53281,7:POKE 646,2
895 A$(76)="[212]EST-[193]USWERTUNG 7-11 [208]UNKTE:"
900 A$(77)="[196]U BIST BEIM ERSTEN [203]ONTAKT SCHEU UND"
905 A$(78)="ZURUECKHALTEND. [196]U LAESST DIE ANDEREN"
910 A$(79)="REDEN, GIBST VON [196]IR ABER NICHT VIEL"
915 A$(80)="PREIS. [196]URCH DIESE UNTERKUEHLTE [193]US-"
920 A$(81)="STRAHLUNG WIRKST [196]U ZWAR AEUSSERST"
925 A$(82)="SOUVERAEN, ABER AUCH UNNAHBAR. [206]UR GANZ"
930 A$(83)="STARKE, SELBSTBEWUSSTE [212]YPEN WAGEN SICH"
935 A$(84)="AN [196]ICH HERAN UND VERSUCHEN, [196]EINEN"
940 A$(85)="[208]ANZER ZU KNACKEN. [215]ER'S TATSAECHLICH"
945 A$(86)="GESCHAFFT HAT, STELLT VERBLUEFFT FEST,"
950 A$(87)="DASS [196]U EIN WARMHERZIGER [205]ENSCH BIST:"
955 A$(88)="SCHEU, ABER TREU. [196]U SOLLTEST RUHIG"
960 A$(89)="OEFTER [196]EINEN [208]ANZER ABLEGEN!"
965 :
970 A$(90)="[212]EST-[193]USWERTUNG 12-16 [208]UNKTE:"
975 A$(91)="[196]U BIST EIN [208]HAENOMEN: [215]ER [196]ICH KENNEN-"
980 A$(92)="LERNT, IST SICHER, DASS ER EIGENTLICH"
985 A$(93)="SCHON GANZ LANGE MIT [196]IR BEFREUNDET"
990 A$(94)="IST. [196]U STRAHLST EINE SO GROSSE [200]ERZ-"
995 A$(95)="LICHKEIT UND ECHTE [198]REUNDLICHKEIT AUS,"
1000 A$(96)="DASS JEDER GLEICH MIT [196]IR VERTRAUT IST."
1005 A$(97)="[214]IELLEICHT LIEGT DAS DARAN, DASS [196]U DIE"
1010 A$(98)="[203]ONTAKTSCHWIERIGKEITEN, DIE ANDERE"
1015 A$(99)="HABEN, DURCHAUS AUS EIGENER [193]NSCHAUUNG"
1020 A$(100)="KENNST. [193]UCH [196]U BIST MANCHMAL SCHUECH-"
1025 A$(101)="TERN, UND [196]U VERSUCHST NICHT, DIESE"
1030 A$(102)="KLEINE [211]CHWAECHE ZU VERHEIMLICHEN. [196]AS"
1035 A$(103)="MACHT [196]ICH NOCH SYMPATHISCHER."
1040 :
1045 A$(104)="[212]EST-[193]USWERTUNG 17-21 [208]UNKTE:"
1050 A$(105)="[215]IE SCHAFFST [196]U DAS BLOSS, IMMER UND"
1055 A$(106)="UEBERALL IM [205]ITTELPUNKT ZU STEHEN? [197]S"
1060 A$(107)="LIEGT GANZ SICHER AN [196]EINER POSITIVEN"
1065 A$(108)="[199]RUNDHALTUNG. [196]U BIST OFFEN, UNKOMP-"
1070 A$(109)="LIZIERT UND OHNE [214]ORURTEILE. [196]AS MACHT"
1075 A$(110)="ES AUCH DEM [211]CHUECHTERNSTEN LEICHT,"
1080 A$(111)="SICH MIT [196]IR ANZUFREUNDEN. [197]INS IST [196]IR"
1085 A$(112)="JEDOCH WICHTIG: [196]U MOECHTEST NIE AUF"
1090 A$(113)="[196]EINE STRAHLENDE [211]IEGERPOSE VERZICHTEN."
1095 A$(114)="[211]ELBST KLEINSTE [211]CHWAECHEN ERLAUBST [196]U"
1100 A$(115)="[196]IR NICHT. [215]ENN [196]U JEDOCH EHRLICH BIST,"
1105 A$(116)="FAELLT [196]IR DIESE GESPIELTE [211]TAERKE OFT"
1110 A$(117)="GANZ SCHOEN SCHWER. [196]U BIST DOCH AUCH"
1115 A$(118)="MANCHMAL DOWN, DAS DARFST [196]U RUHIG ZU-"
1120 A$(119)="GEBEN."
1125 :
1130 PRINT"[196]ANKE FUER [196]EINE [194]EANTWORTUNG!"
1135 PRINT
1140 PRINT"[211]OLL DIE [193]USWERTUNG AUF DEN [194]ILDSCHIRM"
1145 PRINT"ODER WILLST [196]U DEN GESAMTEN [212]EST AUS-"
1150 PRINT"DRUCKEN LASSEN?"
1155 PRINT"[ F1 ]  [196]RUCKERAUSGABE"
1160 PRINT"[ F7 ]  AUF DEN [194]ILDSCHIRM"
1165 GET N$:IF N$="" THEN 1165
1170 IF N$=CHR$(133) THEN 1190
1175 IF N$=CHR$(136) THEN 1415
1180 GOTO 1165
1185 :
1190 OPEN 1,4,2
1195 PRINT#1,CHR$(27);"L";CHR$(9);:REM LINKER RAND
1197 PRINT#1,CHR$(27);"H";CHR$(1);
1200 PRINT#1,"*** [212]EST VON ";NA$;" ";NN$;" ***"
1205 PRINT#1,CHR$(27);"H";CHR$(0)
1210 FOR N=1 TO 7:PRINT#1,A$(N):NEXT
1215 PRINT#1,
1220 FOR N=8 TO 11:PRINT#1,A$(N):NEXT
1225 PRINT#1,
1230 FOR N=12 TO 17:PRINT#1,A$(N):NEXT
1235 PRINT#1,
1240 FOR N=18 TO 20:PRINT#1,A$(N):NEXT
1245 PRINT#1,
1250 FOR N=21 TO 26:PRINT#1,A$(N):NEXT
1255 PRINT#1,
1260 FOR N=27 TO 32:PRINT#1,A$(N):NEXT
1265 PRINT#1,
1270 FOR N=33 TO 40:PRINT#1,A$(N):NEXT
1275 PRINT#1,
1280 FOR N=41 TO 43:PRINT#1,A$(N):NEXT
1285 PRINT#1,
1290 FOR N=44 TO 47:PRINT#1,A$(N):NEXT
1295 PRINT#1,
1296 PRINT""
1300 PRINT"[205]IT [212]ASTE  <F7>  GEHT'S WEITER..."
1301 FOR N=1 TO 100:NEXT
1302 PRINT"[145][205]IT [212]ASTE  <F7>  GEHT'S WEITER...[146]"
1304 GET N$
1305 FOR N=1 TO 100:NEXT
1306 IF N$="[136]" THEN 1310
1307 PRINT"[145]";:GOTO 1300
1310 FOR N=48 TO 52:PRINT#1,A$(N):NEXT
1315 PRINT#1,
1320 FOR N=53 TO 61:PRINT#1,A$(N):NEXT
1325 PRINT#1,
1330 FOR N=62 TO 63:PRINT#1,A$(N):NEXT
1335 PRINT#1,
1340 FOR N=64 TO 66:PRINT#1,A$(N):NEXT
1345 PRINT#1,
1350 FOR N=67 TO 69:PRINT#1,A$(N):NEXT
1355 PRINT#1,
1360 FOR N=70 TO 75:PRINT#1,A$(N):NEXT
1365 PRINT#1,
1370 PRINT#1,NA$;", [196]U HAST";Z;"[208]UNKTE"
1375 PRINT#1,"ERHALTEN."
1380 PRINT#1,
1385 IF Z<=11 THEN FOR N=76 TO 89:PRINT#1,A$(N):NEXT:GOTO 1400
1390 IF Z<=16 THEN FOR N=90 TO 103:PRINT#1,A$(N):NEXT:GOTO 1400
1395 IF Z<=21 THEN FOR N=104 TO 119:PRINT#1,A$(N):NEXT
1400 PRINT#1,
1401 PRINT#1,CHR$(27);"H";CHR$(1);
1402 PRINT#1,"  [193]LLES [199]UTE, ";NA$;"!";
1403 PRINT#1,CHR$(27);"H";CHR$(0)
1408 CLOSE 1
1409 RUN 10
1410 :
1415 PRINT CHR$(147)
1420 POKE 53280,5:POKE 53281,5:POKE 646,0
1421 PRINT"*** [212]EST VON ";NA$;" ";NN$;" ***"
1422 PRINT
1425 PRINT NA$;", [196]U HAST";Z;"[208]UNKTE"
1430 PRINT"ERHALTEN."
1435 PRINT
1440 IF Z<=11 THEN FOR N=76 TO 89:PRINT A$(N):NEXT:GOTO 1455
1445 IF Z<=16 THEN FOR N=90 TO 103:PRINT A$(N):NEXT:GOTO 1455
1450 IF Z<=21 THEN FOR N=104 TO 119:PRINT A$(N):NEXT
1455 GET N$:IF N$="" THEN 1455
1460 RUN 10