1 POKE808,225:POKE775,200 2 GOSUB11131:GOTO10 3 POKE214,INT(PO/40):POKE211,PO-((INT(PO/40))*40):SYS58640:RETURN 10 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14)CHR$(8) 12 PRINTTAB(11)"[158][200][160][207][160][210][160][207][160][211][160][203][160][207][160][208][160]" 13 PRINT"[149] *";" [149]* ";" *";" [155]*";" [151]* [144]* [144]* [159]* [149]*" 14 PRINT"[153]*";" *";" [151]*";" [152]*";" [159]*";" [129]*";" [156]*";" [158]*" 15 PRINT"[155] * ";" [129]*";" [144]*";" [150]*";"* * [155]*";" [153]*" 16 PRINT"[149]*";" *  [155] [144] [150] * [153] * [149] [155]" 17 PRINT"*  * [144]* [158]* * * [158]* [129]* [150]* [152] * [150]* [155]* [129]* * [149]*" 18 PRINT" [153]* * [159][196]IE [211]TERNE * * [159]* * * * * * *"; 19 PRINT" * [155]* [154]* [153]* [152]* [152]* [152]* [149]* [129]* * [144]* 20 [153]" OPENLUEGEN NICHT* * STOP* (null)* ^* * * ^* (null) * *"; 21 [153]" * * * * CONT* POKE* FOR* * OPEN* "; 22 [153]" VERIFY* STOP* CLR* SYS* * STOP* SYS* * CLR* " 23 [153]"* * *OPEN ** CLR* LIST* FOR* VERIFY* POKE* DEF* CONT* PRINT#* DEF* VERIFY* VERIFY" 24 [129]X[178]1[164]40 25 B$[178]B$[170]" " 26 [130] X:D$[178]"(null)ARTEN (null)IE BIS DIE (null)AUFSCHRIFT VERSCHWUNDEN IST DANN ASC1 STR$ANKE " 27 A$[178]"SYSLEFT$ALLO ICH FREUE MICH (null)IE ZU SEHEN,WOLLEN WIR ZUSAMMEN ARBEITEN ? " 28 C$[178]"SYSSTR$ANN DRUECKEN (null)IE BITTE DIE (null)ASTE ASC1 ZUM (null)TARTEN. " 29 F$[178]A$[170]C$[170]D$ 31 F$[178]B$[170]F$ 32 S[178]8:[129]I[178]1[164]100:[130] 33 T[178]30 34 PO[178]364:[141]3:[153][199](145)[202](F$,S,T) 35 [129] Z[178]1[164]100:[130] 36 S[178]S[170]1 37 [139]S[178][195](F$)[167][137]40 38 [137] 34 40 [161] Z$:[139]Z$[178]""[167]40 41 [139]Z$[178][199](133)[167]50 42 [139]Z$[179][177][199](133)[167]40 50 [156]: [153]"LOAD":[153]" RIGHT$LEFT$(null)VALCLOSE(null)(null)VAL(null)(null)VALCLOSERIGHT$(null)CLOSE(null)RIGHT$(null)RIGHT$VAL(null)" 51 [140]:PO[178]280:[141]3:[153]"SYSCHR$EBEN (null)IE RIGHT$HR CHR$EBURTSDATUM EIN." 52 [153]"RIGHT$N DER ASCORM (null)AG((null)VAL(null)(null)(null)(null)),(null)ONAT((null)VAL(null)(null)(null)(null)), MID$AHR(4 STELLIG) ((null)VAL(null)(null)(null)(null)) " 53 PO[178]400:[141]3:[133]G,M,J 54 D[178]J[171]4[172][181](J[173]4) 55 [139]G[178]29[175]M[178]2[175]D[179][177]0[167]90 56 [141]1100 57 PO[178]520:[141]3:[133]"(null)ORAUSAGEDATUM ?";PT,PM,PJ 58 E[178]PJ[171]4[172][181](PJ[173]4) 59 [139]PT[178]29[175]PM[178]2[175]E[179][177]0[167]100 60 [141]1200 77 [129]I[178]0[164]366 78 [135]A,B,V$ 79 [139]A[178]G[175] B[178]M [167][137]2000 81 [130]I 82 [140] 83 [139]A[179][177]G[175]B[179][177]M[167]159 90 [153]:[153]J;" IST KEIN (null)CHALTJAHR":[153]"VALS GIBT KEINEN 29.2.";J:[129]I[178]1[164]5000:[130] 91 PO[178]520:[141]3:[153]" " 92 PO[178]560:[141]3:[153]" " 93 PO[178]600:[141]3:[153]" ":[137]53 100 [153]:[153]PJ;" IST KEIN (null)CHALTJAHR":[153]"ES GIBT KEINEN 29.2.";PJ 101 [129]I[178]1[164]5000:[130]:PO[178]680:[141]3:[153]" " 102 PO[178]720:[141]3:[153]" ":[137]57 159 [139]A[179][177]G[175]B[179][177]M[167][153]:[153]"STR$IESES STR$ATUM KENN ICH NICHT.LEFT$ABEN (null)IE SICH GEIRRT" 160 [153]:[153]:[153]:[153]"NOCHMAL ?? JA/NEIN" 170 [161]Z$:[139]Z$[178]""[167]170 171 [139]Z$[178]"J"[167][137] 50 172 [139]Z$[178]"N"[167]200 173 [137]170 185 U$[178]Y$[170]W$ 200 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:[153][199](14)[199](8) 210 [153][163]11)"SYSLEFT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE" 220 [153]"VERIFY *";" VERIFY* ";" *";" LIST*";" POKE* STOP* STOP* OPEN* VERIFY*" 230 [153]"PRINT*";" *";" POKE*";" PRINT#*";" OPEN*";" FOR*";" CLR*";" SYS*" 240 [153]"LIST * ";" FOR*";" STOP*";" DEF*";" LIST*";" PRINT*" 250 [153]"VERIFY*";" * * LIST* STOP * DEF* * PRINT * VERIFY LIST" 260 [153]"*  * STOP* SYS* * * SYS* FOR* DEF* PRINT# * DEF* LIST* FOR* * 270 PRINT" [153]* [149]* [129]* [153]* * [155]* [153]* [152]* [151]* [150]* [149]* [129]* [154]* [149]* 280 [153]"STOP* CLR* * OPEN* CONT* SYS* * STOP* OPEN* * VERIFY * FOR*" 290 [153]" * LIST* CONT* PRINT* PRINT#* PRINT#* PRINT#* VERIFY* FOR* * STOP* 300 PRINT" * * * * [154]* [151]* [129]* * [159]* 310 [153]" VERIFY* STOP* CLR* SYS* * STOP* SYS* * CLR* " 340 [129]X[178]1[164]40 350 E$[178]E$[170]" " 360 [130] X:G$[178]"(null)ARTEN (null)IE BIS DIE (null)AUFSCHRIFT VERSCHWUNDEN IST. " 380 H$[178]"SYSLEFT$IER IST DAS VALNDE DES (null)ROGRAMMES,WOLLEN (null)IE WIRKLICH AUFHOEREN ? " 390 I$[178]"SYSSTR$ANN DRUECKEN (null)IE BITTE DIE (null)ASTE ASC1. (null)EITER MIT ANDERER (null)ASTE. " 400 K$[178]H$[170]G$[170]I$ 420 K$[178]E$[170]K$ 430 S[178]1 440 T[178]23 450 PO[178]287:[141]3:[153][199](145)[202](K$,S,T) 460 [129] Z[178]1[164]100:[130] 470 S[178]S[170]1 480 [139]S[178][195](K$)[167][137]501 500 [137] 450 501 PO[178]880:[141]3:[153]"OPEN (null)ASTE DRUECKEN " 502 [153]"CLR ASC 1 FUER VALNDE (SONST ATNNDERE) " 510 [161] Z$:[139]Z$[178]""[167]510 520 [139]Z$[178][199](133)[167]540 530 [139]Z$[179][177][199](133)[167]50 540 [153]"LOAD":[151]53280,6:[151]53281,14 550 [158]64738 1000 [131]31,12,"(null)TEINBOCK",1,1,"(null)TEINBOCK",2,1,"(null)TEINBOCK",3,1,"(null)TEINBOCK" 1001 [131]4,1,"(null)TEINBOCK",5,1,"(null)TEINBOCK",6,1,"(null)TEINBOCK",7,1,"(null)TEINBOCK" 1002 [131]8,1,"(null)TEINBOCK",9,1,"(null)TEINBOCK",10,1,"(null)TEINBOCK",11,1,"(null)TEINBOCK" 1003 [131]12,1,"(null)TEINBOCK",13,1,"(null)TEINBOCK",14,1,"(null)TEINBOCK",15,1,"(null)TEINBOCK" 1004 [131]16,1,"(null)TEINBOCK",17,1,"(null)TEINBOCK",18,1,"(null)TEINBOCK",19,1,"(null)TEINBOCK" 1005 [131]20,1,"(null)TEINBOCK",21,1,"(null)ASSERMANN",22,1,"(null)ASSERMANN",23,1,"(null)ASSERMANN" 1006 [131]24,1,"(null)ASSERMANN",25,1,"(null)ASSERMANN",26,1,"(null)ASSERMANN",27,1,"(null)ASSERMANN" 1007 [131]28,1,"(null)ASSERMANN",29,1,"(null)ASSERMANN",1,2,"(null)ASSERMANN",2,2,"(null)ASSERMANN" 1008 [131]3,2,"(null)ASSERMANN",4,2,"(null)ASSERMANN",5,2,"(null)ASSERMANN",5,2,"(null)ASSERMANN" 1009 [131]6,2,"(null)ASSERMANN",7,2,"(null)ASSERMANN",8,2,"(null)ASSERMANN",9,2,"(null)ASSERMANN" 1010 [131]10,2,"(null)ASSERMANN",11,2,"(null)ASSERMANN",12,2,"(null)ASSERMANN",13,2,"(null)ASSERMANN" 1011 [131]14,2,"(null)ASSERMANN",15,2,"(null)ASSERMANN",16,2,"(null)ASSERMANN",17,2,"(null)ASSERMANN" 1012 [131]18,2,"(null)ASSERMANN",19,2,"(null)ASSERMANN",20,2,"ASCISCHE",21,2,"ASCISCHE" 1013 [131]30,1,"(null)ASSERMANN",31,1,"(null)ASSERMANN",22,2,"ASCISCHE",23,2,"ASCISCHE" 1014 [131]24,2,"ASCISCHE",25,2,"ASCISCHE",26,2,"ASCISCHE",27,2,"ASCISCHE",28,2,"ASCISCHE" 1015 [131]29,2,"ASCISCHE",1,3,"ASCISCHE",2,3,"ASCISCHE",3,3,"ASCISCHE",4,3,"ASCISCHE" 1016 [131]5,3,"ASCISCHE",6,3,"ASCISCHE",7,3,"ASCISCHE",8,3,"ASCISCHE",9,3,"ASCISCHE" 1017 [131]10,3,"ASCISCHE",11,3,"ASCISCHE",12,3,"ASCISCHE",13,3,"ASCISCHE",14,3,"ASCISCHE" 1018 [131]15,3,"ASCISCHE",16,3,"ASCISCHE",17,3,"ASCISCHE",18,3,"ASCISCHE",19,3,"ASCISCHE" 1019 [131]20,3,"ASCISCHE",21,3,"(null)IDDER",22,3,"(null)IDDER",23,3,"(null)IDDER",24,3,"(null)IDDER" 1020 [131]25,3,"(null)IDDER",26,3,"(null)IDDER",27,3,"(null)IDDER",28,3,"(null)IDDER",29,3,"(null)IDDER" 1021 [131]30,3,"(null)IDDER",31,3,"(null)IDDER",1,4,"(null)IDDER",2,4,"(null)IDDER",3,4,"(null)IDDER" 1022 [131]4,4,"(null)IDDER",5,4,"(null)IDDER",6,4,"(null)IDDER",7,4,"(null)IDDER",8,4,"(null)IDDER" 1023 [131]9,4,"(null)IDDER",10,4,"(null)IDDER",11,4,"(null)IDDER",12,4,"(null)IDDER",13,4,"(null)IDDER" 1024 [131]14,4,"(null)IDDER",15,4,"(null)IDDER",16,4,"(null)IDDER",17,4,"(null)IDDER",18,4,"(null)IDDER" 1025 [131]19,4,"(null)IDDER",20,4,"(null)IDDER",21,4,"(null)TIER",22,4,"(null)TIER",23,4,"(null)TIER" 1026 [131]24,4,"(null)TIER",25,4,"(null)TIER",26,4,"(null)TIER",27,4,"(null)TIER",28,4,"(null)TIER" 1027 [131]29,4,"(null)TIER",30,4,"(null)TIER",1,5,"(null)TIER",2,5,"(null)TIER",3,5,"(null)TIER" 1028 [131]4,5,"(null)TIER",5,5,"(null)TIER",6,5,"(null)TIER",7,5,"(null)TIER",8,5,"(null)TIER",9,5,"(null)TIER" 1029 [131]10,5,"(null)TIER",11,5,"(null)TIER",12,5,"(null)TIER",13,5,"(null)TIER",14,5,"(null)TIER" 1030 [131]15,5,"(null)TIER",16,5,"(null)TIER",17,5,"(null)TIER",18,5,"(null)TIER",19,5,"(null)TIER" 1031 [131]20,5,"(null)TIER",21,5,"(null)WILLINGE",22,5,"(null)WILLINGE",23,5,"(null)WILLINGE" 1032 [131]24,5,"(null)WILLINGE",25,5,"(null)WILLINGE",26,5,"(null)WILLINGE",27,5,"(null)WILLINGE" 1033 [131]28,5,"(null)WILLINGE",29,5,"(null)WILLINGE",30,5,"(null)WILLINGE",31,5,"(null)WILLINGE" 1034 [131]1,6,"(null)WILLINGE",2,6,"(null)WILLINGE",3,6,"(null)WILLINGE",4,6,"(null)WILLINGE" 1035 [131]5,6,"(null)WILLINGE",6,6,"(null)WILLINGE",7,6,"(null)WILLINGE",8,6,"(null)WILLINGE" 1036 [131]9,6,"(null)WILLINGE",10,6,"(null)WILLINGE",11,6,"(null)WILLINGE",12,6,"(null)WILLINGE" 1037 [131]13,6,"(null)WILLINGE",14,6,"(null)WILLINGE",15,6,"(null)WILLINGE",16,6,"(null)WILLINGE" 1038 [131]17,6,"(null)WILLINGE",18,6,"(null)WILLINGE",19,6,"(null)WILLINGE",20,6,"(null)WILLINGE" 1039 [131]21,6,"(null)REBS",22,6,"(null)REBS",23,6,"(null)REBS",24,6,"(null)REBS",25,6,"(null)REBS" 1040 [131]26,6,"(null)REBS",27,6,"(null)REBS",28,8,"(null)REBS",29,6,"(null)REBS",30,6,"(null)REBS" 1041 [131]1,7,"(null)REBS",2,7,"(null)REBS",3,7,"(null)REBS",4,7,"(null)REBS",5,7,"(null)REBS",6,7,"(null)REBS" 1042 [131]7,7,"(null)REBS",8,7,"(null)REBS",9,7,"(null)REBS",10,7,"(null)REBS",11,7,"(null)REBS" 1043 [131]12,7,"(null)REBS",13,7,"(null)REBS",14,7,"(null)REBS",15,7,"(null)REBS",16,7,"(null)REBS" 1044 [131]17,7,"(null)REBS",18,7,"(null)REBS",19,7,"(null)REBS",20,7,"(null)REBS",21,7,"(null)REBS" 1045 [131]22,7,"(null)REBS",23,7,"(null)OEWE",24,7,"(null)OEWE",25,7,"(null)OEWE",26,7,"(null)OEWE" 1046 [131]27,7,"(null)OEWE",28,7,"(null)OEWE",29,7,"(null)OEWE",30,7,"(null)OEWE",31,7,"(null)OEWE" 1047 [131]1,8,"(null)OEWE",2,8,"(null)OEWE",3,8,"(null)OEWE",4,8,"(null)OEWE",5,8,"(null)OEWE",6,8,"(null)OEWE" 1048 [131]7,8,"(null)OEWE",8,8,"(null)OEWE",9,8,"(null)OEWE",10,8,"(null)OEWE",11,8,"(null)OEWE" 1049 [131]12,8,"(null)OEWE",13,8,"(null)OEWE",14,8,"(null)OEWE",15,8,"(null)OEWE",16,8,"(null)OEWE" 1050 [131]17,8,"(null)OEWE",18,8,"(null)OEWE",19,8,"(null)OEWE",20,8,"(null)OEWE",21,8,"(null)OEWE" 1051 [131]22,8,"(null)OEWE",23,8,"(null)OEWE",24,8,"MID$UNGFRAU",25,8,"MID$UNGFRAU" 1052 [131]26,8,"MID$UNGFRAU",27,8,"MID$UNGFRAU",28,8,"MID$UNGFRAU",29,8,"MID$UNGFRAU" 1053 [131]30,8,"MID$UNGFRAU",31,8,"MID$UNGFRAU",1,9,"MID$UNGFRAU",2,9,"MID$UNGFRAU" 1054 [131]3,9,"MID$UNGFRAU",4,9,"MID$UNGFRAU",5,9,"MID$UNGFRAU",6,9,"MID$UNGFRAU" 1055 [131]7,9,"MID$UNGFRAU",8,9,"MID$UNGFRAU",9,9,"MID$UNGFRAU",10,9,"MID$UNGFRAU" 1056 [131]11,9,"MID$UNGFRAU",12,9,"MID$UNGFRAU",13,9,"MID$UNGFRAU",14,9,"MID$UNGFRAU" 1057 [131]15,9,"MID$UNGFRAU",16,9,"MID$UNGFRAU",17,9,"MID$UNGFRAU",18,9,"MID$UNGFRAU" 1058 [131]19,9,"MID$UNGFRAU",20,9,"MID$UNGFRAU",21,9,"MID$UNGFRAU",22,9,"MID$UNGFRAU" 1059 [131]23,9,"MID$UNGFRAU",24,9,"(null)AAGE",25,9,"(null)AAGE",26,9,"(null)AAGE",27,9,"(null)AAGE" 1060 [131]28,9,"(null)AAGE",29,9,"(null)AAGE",30,9,"(null)AAGE",1,10,"(null)AAGE",2,10,"(null)AAGE" 1061 [131]3,10,"(null)AAGE",4,10,"(null)AAGE",5,10,"(null)AAGE",6,10,"(null)AAGE",7,10,"(null)AAGE" 1062 [131]8,10,"(null)AAGE",9,10,"(null)AAGE",10,10,"(null)AAGE",11,10,"(null)AAGE",12,10,"(null)AAGE" 1063 [131]13,10,"(null)AAGE",14,10,"(null)AAGE",15,10,"(null)AAGE",16,10,"(null)AAGE",17,10,"(null)AAGE" 1064 [131]18,10,"(null)AAGE",19,10,"(null)AAGE",20,10,"(null)AAGE",21,10,"(null)AAGE",22,10,"(null)AAGE" 1065 [131]23,10,"(null)AAGE",24,10,"(null)KORPION",25,10,"(null)KORPION",26,10,"(null)KORPION" 1066 [131]27,10,"(null)KORPION",28,10,"(null)KORPION",29,10,"(null)KORPION",30,10,"(null)KORPION" 1067 [131]31,10,"(null)KORPION",1,11,"(null)KORPION",2,11,"(null)KORPION",3,11,"(null)KORPION" 1068 [131]4,11,"(null)KORPION",5,11,"(null)KORPION",6,11,"(null)KORPION",7,11,"(null)KORPION" 1069 [131]8,11,"(null)KORPION",9,11,"(null)KORPION",10,11,"(null)KORPION",11,11,"(null)KORPION" 1070 [131]12,11,"(null)KORPION",13,11,"(null)KORPION",14,11,"(null)KORPION",15,11,"(null)KORPION" 1071 [131]16,11,"(null)KORPION",17,11,"(null)KORPION",18,11,"(null)KORPION",19,11,"(null)KORPION" 1072 [131]20,11,"(null)KORPION",21,11,"(null)KORPION",22,11,"(null)KORPION",23,11,"(null)CHUETZE" 1073 [131]24,11,"(null)CHUETZE",25,11,"(null)CHUETZE",26,11,"(null)CHUETZE",27,11,"(null)CHUETZE" 1074 [131]28,11,"(null)CHUETZE",29,11,"(null)CHUETZE",30,11,"(null)CHUETZE",1,12,"(null)CHUETZE" 1075 [131]2,12,"(null)CHUETZE",3,12,"(null)CHUETZE",4,12,"(null)CHUETZE",5,12,"(null)CHUETZE" 1076 [131]6,12,"(null)CHUETZE",7,12,"(null)CHUETZE",8,12,"(null)CHUETZE",9,12,"(null)CHUETZE" 1077 [131]10,12,"(null)CHUETZE",11,12,"(null)CHUETZE",12,12,"(null)CHUETZE",13,12,"(null)CHUETZE" 1078 [131]14,12,"(null)CHUETZE",15,12,"(null)CHUETZE",16,12,"(null)CHUETZE",17,12,"(null)CHUETZE" 1079 [131]18,12,"(null)CHUETZE",19,12,"(null)CHUETZE",20,12,"(null)CHUETZE",21,12,"(null)CHUETZE" 1080 [131]22,12,"(null)CHUETZE",23,12,"(null)TEINBOCK",24,12,"(null)TEINBOCK",25,12,"(null)TEINBOCK" 1081 [131]26,12,"(null)TEINBOCK",27,12,"(null)TEINBOCK",28,12,"(null)TEINBOCK",29,12,"(null)TEINBOCK" 1082 [131]30,12,"(null)TEINBOCK" 1100 [139]G[177]31[167]1150 1110 [139]G[179][178]31[175]M[178]1[167][142] 1111 [139]G[179][178]29[175]M[178]2[167][142] 1112 [139]G[179][178]31[175]M[178]3[167][142] 1113 [139]G[179][178]30[175]M[178]4[167][142] 1114 [139]G[179][178]31[175]M[178]5[167][142] 1115 [139]G[179][178]30[175]M[178]6[167][142] 1116 [139]G[179][178]31[175]M[178]7[167][142] 1117 [139]G[179][178]31[175]M[178]8[167][142] 1118 [139]G[179][178]30[175]M[178]9[167][142] 1120 [139]G[179][178]31[175]M[178]10[167][142] 1121 [139]G[179][178]30[175]M[178]11[167][142] 1122 [139]G[179][178]31[175]M[178]12[167][142] 1150 [153]"DEF STR$AS STR$ATUM IST FALSCH":[129]I[178]1[164]5000:[130]:[137]50 1160 [142] 1200 [139]PT[177]31[167]1250 1210 [139]PT[179][178]31[175]PM[178]1[167][142] 1211 [139]PT[179][178]29[175]PM[178]2[167][142] 1212 [139]PT[179][178]31[175]PM[178]3[167][142] 1213 [139]PT[179][178]30[175]PM[178]4[167][142] 1214 [139]PT[179][178]31[175]PM[178]5[167][142] 1215 [139]PT[179][178]30[175]PM[178]6[167][142] 1216 [139]PT[179][178]31[175]PM[178]7[167][142] 1217 [139]PT[179][178]31[175]PM[178]8[167][142] 1218 [139]PT[179][178]30[175]PM[178]9[167][142] 1220 [139]PT[179][178]31[175]PM[178]10[167][142] 1221 [139]PT[179][178]30[175]PM[178]11[167][142] 1222 [139]PT[179][178]31[175]PM[178]12[167][142] 1250 [153]"DEF STR$AS STR$ATUM IST FALSCH":[129]I[178]1[164]5000:[130] 1251 PO[178]560:[141]3:[153]" " 1252 PO[178]600:[141]3:[153]" " 1260 PO[178]640:[141]3:[153]" " 1270 PO[178]660:[141]3:[153]" ":[137]57 2000 PI$[178]"LISTCHR$EBOREN AM ":[153]"LOAD":[153][163]15)"PRINT"V$:[153]:[153]PI$;G;M;J 2002 [153]:[153]:[153]"SYS(null)ROGNOSE FUER DEN";PT;".";PM;".";PJ 2003 OI$[178]"SYS LEFT$OROSKOP V.LEFT$ANS MID$OACHIM (null)EYER,1988 ":PO[178]800:[141]3:[153]OI$ 2004 PO[178]280:[141]3:[153]"(null)OMENT,DIE STR$ATEN WERDEN EINGELESEN!" 2005 [139]PT[178]G[175]PM[178]M[167][153]:[153]"LEFT$CLRESYSROPENZLICLISTHVERIFYEPRINT#N CHR$LUECKWUNSCH ZUM CHR$EBURTSTAG" 2006 [139]PT[178]6[175]PM[178]12[167][153]:[153]" LEFT$EUTE IST (null)IKOLAUS.LEFT$AST STR$U EIN CHR$ESCHENK?" 2007 [139]PT[178]24[175]PM[178]12[167][153]:[153]"OPENASCROEHLICHE (null)EINNACHTEN UND ALLES CHR$UTE" 2008 [139]PT[178]31[175]PM[178]12[167][153]:[153]"(null)RSYSOOPENSIVERIFYT POKE(null)PRINTECONTULISTJDEFAFORHVERIFYR" 2009 [139]PJ[178]J[175]PM[179]M[167][153]:[153]"(null)IE SIND NOCH NICHT GEBOREN??" 2010 [139]J[177]PJ[167][153]:[153]"(null)ERDEN (null)IE NOCH GEBOREN??" 2011 [139]J[179]1868[175]PJ[177][178]1988[167][153]:[153]"(null)IE SIND UEBERDEF120MID$AHRE ALT???" 2012 [139]J[178]PJ[175]PM[177][178]M[175]PT[177][178]G[167][153]:[153]"DEFSTR$ONNERWETTER!VALRST DIESES MID$AHR GEBOREN." 2013 [139]J[178]PJ[175]M[178]PM[175]PT[177][178]G[167][153]:[153]"(null)IE DA EIN ASCRISCHLING !" 2014 [139]PM[178]M[175]PJ[178]J[175]PT[179]G[167][153]:[153]"VALINE (null)ROGNOSE KURZ VOR DER CHR$EBURT?" 2015 [139]PJ[179]1800[167][153]"(null)IE HABEN SICH SICHER GEIRRT":[129]I[178]1[164]3000:[130]:[137]92 2016 PO[178]640:[141]3:[153]"DEFTHENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN" 2017 [153]"DEFTHENVALIGENSCHAFTENFN +TOTOTOTOTOTOTOTOTOTOTOTOTOSGN" 2018 [137]8000 2020 [129]I[178]1[164]2000:[130] 4000 V[178][181](12[172][187](0))[170]1 4010 [145]V[137]5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100 5000 [141]9600:[141]10000:W[178][181](6[172][187](0))[170]1 5011 [145]W[137]5020,5030,5040,5050,5060,5070 5020 [153]"RIGHT$N DER (null)ARTNERSCHAFT KANN ES (null)ROBLEME GEBEN ,ABER WER SICH MIT"; 5021 [153]" LEFT$UMOR DER (null)ROB-LEME STELLT WIRD LEICHT MIT JEDER (null)AGE FERTIG":[137]9500 5030 [153]"(null)ER SICH GUT BETTET DER SCHLAEFT GUT. STR$IESER (null)PRUCH KOMMT NICHT"; 5031 [153]" VON UNGEFAEHR" 5032 [153]"(null)ER EIN PAAR KLEINE (null)EGELN EINHAELT DER HAT SCHON GUTE LENHANCEN SICH"; 5033 [153]" MIT SEINEN (null)ROBLEMEN GUT AUSEINANDERSETZEN ZU KOEN-NEN":[137]9500 5040 [153]"(null)IE TRETEN AUF DER (null)TELLE OBWOHL SO MANCHES IN ASCLUSS IST."; 5041 [153]"MID$ETZT NICHT UNGE- DULDIG WERDEN UND ABWARTEN OB SICH EINE"; 5042 [153]" BESTIMMTE (null)ITUATION GEKLAERT HAT.(null)EINE ATNNGST VOR EINER ATNBSAGE":[137]9500 5050 [153]"(null)CHMUECKEN (null)IE SICH NICHT MIT FREMDEN ASCEDERN!(null)IE ZAHLEN SONST EINEN"; 5051 [153]" HOHEN (null)REIS.(null)ERDEN (null)IE LIEBER AUF CHR$EBIETEN AKTIV,DIE (null)IE"; 5052 [153]" SOUVERAEN BEHERRSCHEN.STR$ANNWIRD AUCH DER VALRFOLG NICHT AUSBLEIBEN." 5053 [137]9500 5060 [153]"RIGHT$N CHR$ELDANGELEGENHEITEN VORSICHTIG OPE- RIEREN SONST DROHT EIN "; 5061 [153]"FINANZIELLER (null)EINFALL.CHR$ESUNDHEITLICH IST KEINE (null)OLKE AM LEFT$IMMEL ZU "; 5062 [153]"ERKENNEN.CHR$UT FUER (null)OTTO- SPIELER!ATNM (null)ONNTAG RUHIG ANGEHEN LASSEN!" 5063 [137]9500 5070 [153]"ASCOERDERN (null)IE RIGHT$HRE PEEKEWEGUNGSFREIHEIT DAMIT RIGHT$HRE VIELSEITIGEN "; 5071 [153]"ASCAEHIGKEITEN VOLL ZUR CHR$ELTUNG KOMMEN.RIGHT$HR (null)ARTNER HAT VIEL (null)ER"; 5072 [153]"TRAUEN IN RIGHT$HRE (null)CHAFFENSKRAFT. VALNTTAEUSCHEN (null)IE IHN NICHT.":[137]9500 5100 [141]9600:[141]10000:W[178][181](6[172][187](0))[170]1 5111 [145]W[137]5120,5130,5140,5150,5160,5170 5120 [153]"ASCINANZIELL SOLLTEN (null)IE JETZT KUERZER TRETEN DENN CHR$ELD KANN MAN IMMER" 5121 [153]"AUF DIE HOHE (null)ANTE LEGEN.(null)ANCHE (null)UENSCHEAUF DER (null)UNSCHLISTE"; 5122 [153]" SOLLTEN (null)IE SICH NOCH VERKNEIFEN.VALS KOMMEN BESSERE (null)EITEN.":[137]9500 5130 [153]"(null)IE KOENNEN SICH ZUR (null)EIT NUR SCHWER ZU EINER VALNTSCHEIDUNG AUFRAFFEN"; 5131 [153]",UND DAS LIEGT RIGHT$HNEN IM (null)AGEN.RIGHT$HR (null)ROBLEM LAESST SICH ABER NICHT DAD"; 5132 [153]"URCH LOESEN,DAS (null)IE ES LINKS LIEGENLASSEN,RIGHT$NITIATIVE IST AN-GESAGT!" 5133 [137]9500 5140 [153]"(null)IE HABEN SICH IM (null)ON VERGRIFFEN,UND RIGHT$HR(null)ARTNER IST DARUEBER VERAERGERT"; 5141 [153]".STR$AS SOLLTE (null)IE NICHT WUNDERN,DENN (null)IE KENNENJA SEINE VALMPFINDLICH"; 5142 [153]"KEIT.(null)UN IST (null)EIT SICH VERSOEHNLICH ZU ZEIGEN!":[137]9500 5150 [153]"(null)UEMMERN (null)IE SICH JETZT NUR UM (null)ENSCHEN DIE FUER (null)IE WICHTIG SIND"; 5151 [153]".(null)UFALLSBEKANNTSCHAFTEN BRINGEN (null)IE NICHT WEITER."; 5152 [153]"CHR$EHEN (null)IE MIT LEFT$UMOR AN EINE GROSSE ATNUFGABE. (null)IE WERDEN ES SCHAFFEN." 5153 [137]9500 5160 [153]"(null)IE SIND AUF MENSCHLICHE (null)AEHE ANGE- WIESEN.VALS HAT KEINEN (null)INN SICH"; 5161 [153]" ABZUKAP- SELN.(null)REFFEN (null)IE JETZT KEINE EINSAMEN VALNTSCHEIDUNGEN,DIE RIGHT$HR"; 5162 [153]" (null)EBEN VERAENDERN.RIGHT$HR (null)ARTNER HAT ATNNSPRUCH AUF PEEKETEILIGUNGAN RIGHT$HREMCLOSE(null)EBEN." 5163 [137]9500 5170 [153]"RIGHT$HRE BERUFLICHE (null)UNKUNFT SCHEINT GE- SICHERT,ABER (null)ORSICHT VOR ZU"; 5171 [153]" GROSSEN VALRWARTUNGEN.RIGHT$HR (null)RIVATLEBEN VERLAEUFT IMATNUGENBLICK OHNE"; 5172 [153]" (null)ROBLEME.(null)IE HABEN EINE GLUECKLICHE LEFT$AND BEIM (null)OTTO.(null)IEL CHR$LUECK." 5173 [137]9500 5200 [141]9600:[141]10000:W[178][181](6[172][187](0))[170]1 5211 [145]W[137]5220,5230,5240,5250,5260,5270 5220 [153]"(null)IE KAPSELN SICH ZU SEHR AB,WO RIGHT$HNEN GERADE JETZT NEUE VALINDRUECKE"; 5221 [153]" GUTTUN WUERDEN,UM AUS EINER GEWISSEN (null)ESIGNATION WIEDER"; 5222 [153]" HERAUSZUKOMMEN.(null)EHMEN (null)IE MAL WIEDER EINE VALINLADUNG AN ODER"; 5223 [153]" GEHEN (null)IE TOLL AUS!":[137]9500 5230 [153]"PEEKERUFLICHE ATNNGELEGENHEITEN BEREITEN RIGHT$HNEN (null)OPFSCHMERZEN.MID$ETZT"; 5231 [153]" MUESSEN (null)IE SICH ETWAS EINFALLEN LASSEN,WIE (null)IE DIE "; 5232 [153]"(null)CHWIERIGKEITEN BEHEBEN KOENNEN.STR$A VIEL AUF DEM (null)PIEL STEHT"; 5233 [153]" WERDEN (null)IE DARUM NICHT NERVOES.VALS WIRD SCHON KLAPPEN !":[137]9500 5240 [153]"VALINE VEWORRENEN ATNNGELEGENHEIT MACHT RIGHT$HNEN (null)ORGEN,WEIL (null)IE NICHT"; 5241 [153]" SEHEN,WIE (null)IE DIESE ENTWIRREN KOENNTEN.(null)ERSUCHEN (null)IE KEINE "; 5242 [153]"CHR$EWALTLOESUNG,SONDERN WARTEN (null)IE AB,MANCHES LOEST SICH VON SELBST" 5243 [137]9500 5250 [153]"STR$IE ASCEHLER DER (null)ONKURENZ SIND JETZT RIGHT$HR (null)ORTEIL,NUTZEN (null)IE RIGHT$HRE "; 5251 [153]"LENHANCE.STR$ER VALR- FOLG IST NUR DEM (null)UECHTIGEN ZUEIGEN.STR$IE CHR$ESUNDHEIT HAELT"; 5252 [153]" EINE KLEINE VALRKAELTUNG IN DER LEFT$INTERHAND,ALSO AUFGEPASST!":[137]9500 5260 [153]"(null)ASSEN (null)IE SICH NICHT ZU SEHR VON ATNNDE- REN IN PEEKESCHLAG NEHMEN"; 5261 [153]" SONST KOMMEN (null)IE SELBST ZU KURZ.(null)IE MUESSEN SICH (null)EIT FUER "; 5262 [153]"VALNTSPANNUNG GOENNEN,SONST NIMMT RIGHT$HRCHR$EMUET NOCH (null)CHADEN.CHR$UT FUER (null)RLAUB." 5263 [137]9500 5270 [153]"LEFT$ABEN SIE KEINE CHR$EHEIMNISSE VOR RIGHT$HREM (null)ARTNER.VALR HAT EIN (null)ECHT AUF"; 5271 [153]" VALHRLICHKEIT(null)ASSEN SIE SICH NICHT VON FALSCHEN ASCREUNDEN ZU (null)ATEN"; 5272 [153]" BRINGEN,DIE (null)IE NICHT WOLLEN.(null)ELBSTVERTRAUEN IST GEFRAGT!":[137]9500 5300 [141]9600:[141]10000:W[178][181](6[172][187](0))[170]1 5311 [145]W[137]5320,5330,5340,5350,5360,5370 5320 [153]:[153]"(null)IE SIND MIT ATNRBEIT UEBERLASTET,UND DADURCH KOMMT RIGHT$HR (null)RIVATLEBEN"; 5321 [153]" ZU KURZ. (null)IE MUESSEN ABER UNBEDINGT MEHR (null)EIT FUER RIGHT$HREN (null)ARTNER"; 5322 [153]" ERUEBRIGEN,BEVOR ER RIGHT$HNEN ERNSTHAFT ZUERNT.(null)ASSENVERANSTAL- TUNGEN "; 5323 [153]"SOLLTEN (null)IE MEIDEN!":[137]9500 5330 [153]"RIGHT$N DER (null)ARTNERSCHAFT KANN ES EINIGE (null)N- RUHE GEBEN,DENN DIE (null)EIGUNG"; 5331 [153]",EINER GROS- SEN (null)ERSUCHUNG NACHZUGEBEN,IST GROSS. 5332 PRINT"[196]OCH UNGESTRAFT SPIELT NIEMAND MIT DEM [198]EUER.[214]ERBRENNEN [211]IE SICH "; 5333 PRINT"NICHT DIE [198]INGER! ":GOTO9500 5340 PRINT"[199]EISTIG SIND [211]IE JETZT IN [200]OCHFORM UND HABEN IN ALLEM,WAS [211]PRACHE"; 5341 PRINT" UND [211]CHRIFT BETRIFFT,EINE GLUECKLICHE [200]AND.[211]O KOEN- NEN [211]IE"; 5342 PRINT" BESTIMMTE [193]BMACHUNGEN TREFFEN UND [214]ERTRAEGE SCHLIESSEN!":GOTO9500 5350 PRINT"[201]HRE [208]ARTNERSCHAFT STEHT VOR EINER [194]EWAEHRUNGSPROBE.[204]ASSEN [211]IE"; 5351 PRINT" SICH NICHT VON FALSCHEN [210]ATSCHLAEGEN LEITEN.[211]IE SOLLTEN SELBST "; 5352 PRINT"ENTSCHEIDEN OB [201]HR [208]ARTNER RECHT HAT.[214]ERSOEHNUNG KANN SEHR"; 5353 PRINT" SCHOEN SEIN.[206]ICHTS UEBERSTUERZEN. " 5359 GOTO9500 5360 PRINT"[211]IE SIND IN EINER [199]LUECKSPHASE.[204]ASSEN [211]IE NICHT VON [201]HREN [214]ORABEN"; 5361 PRINT" ABBRINGEN ESWIRD [201]HNEN GELINGEN.[208]RIVAT ZIEHEN EIN PAAR [215]OLKEN"; 5362 PRINT" AUF.[211]IE MUESSEN SICH JETZT UM GUTE [208]ARTNERSCHAFT BEMUEHEN,DENN "; 5363 PRINT"[201]HREGANZE [203]RAFT WERDEN [211]IE BRAUCHEN." 5369 GOTO9500 5370 PRINT"[197]S WILL [201]HNEN JEMAND EINEN [198]EHLER ZUM [208]ROBLEM AUFBAUSCHEN.[204]ASSEN "; 5371 PRINT"[211]IE SICH NICHT AUS DER [210]ESERVE LOCKEN.[193]LLES KLAERT SICH AUF.[201]M"; 5372 PRINT" [208]RIVATLEBEN IST IM [205]OMENT KEINE [214]ERAENDERUNG ZU ERKENNEN."; 5373 PRINT" [194]LEIBEN [211]IE AKTIV.[201]HR [203]OERPER DANKT ES.":GOTO9500 5400 GOSUB9600:GOSUB10000:W=INT(6*RND(0))+1 5411 ONWGOTO5420,5430,5440,5450,5460,5470 5420 PRINT"[211]IE DUERFEN NICHT ALLES GLAUBEN WAS [201]HNEN IN EINER ROMANTISCHEN "; 5421 PRINT" [211]TUNDE INS [207]HR GEFLUESTERT WIRD,UND HUETEN [211]IE SICHDAVOR"; 5422 PRINT",AUF [214]ERSPRECHUNGEN HEREINZUFALLEN,DIE JEDER [210]EALITAET ENTBEHREN." 5429 GOTO9500 5430 PRINT"[197]INE [197]RFOLGVERSPRECHENDE [201]DEE GEHT [201]HNENNICHT MEHR AUS DEM [203]OPF."; 5431 PRINT"[197]ILE MIT [215]EILE SOLLTE JETZT [201]HR [205]OTTO SEIN.[211]AMSTAG GUT FUER [204]OTTO"; 5432 PRINT"SPIELE.[197]S WINKT EIN KLEINER [199]EWINN"; 5433 PRINT".[198]UELLEN [211]IE MAL WIEDER EINEN [211]CHEIN AUS":GOTO9500 5440 PRINT"[197]S GEHT IM [205]OMENT NICHT ALLES NACH [215]UNSCH.[206]UN GEHT ES MIT KLEINEN"; 5441 PRINT" [211]CHRITTENWEITER WIEDER VORAN.[206]UR DURCH [193]USDAUER KOMMEN [211]IE AN [201]HR "; 5442 PRINT"[218]IEL.[197]INE [199]EHALTS- ERHOEHUNG STEHT INS [200]AUS":GOTO9500 5450 PRINT"[211]IE HABEN EINE [197]NTSCHEIDUNG GETROFFEN. [194]LEIBEN [211]IE [201]HR TREU,DENN"; 5451 PRINT" [215]ANKELMUT BRINGT [211]IE NICHT WEITER,ES MACHT [211]IE EHER "; 5452 PRINT"UNGLAUBWUERDIG.[208]RIVAT STEHEN NEUE [197]RLEBNISSE INS [200]AUS.[214]IEL [211]PASS " 5459 GOTO9500 5460 PRINT"[197]INE UNERWARTETE [206]ACHRICHT KANN [211]IE ZUM [213]MDENKEN ZWINGEN.[204]ASSEN "; 5461 PRINT"[211]IE SICH NICHT ZUR [197]ILE TREIBEN.[203]EINE [197]NTSCHEIDUNG MUSSSOFORT "; 5462 PRINT"FALLEN.[213]EBERLEGEN [211]IE GUT.[211]PIELEN[211]IE AUCH MAL WIEDER [204]OTTO.":GOTO9500 5470 PRINT"[201]HR [208]ARTNER ERWARTET DAS [211]IE MAL WIEDER NETT ZU [201]HM SIND.[211]EHR GUT"; 5471 PRINT" WAERE EINE KLEINE [210]EISE,ABER AUCH EIN SCHOENES [197]SSEN IST "; 5472 PRINT"NICHT ZU VERACHTEN.[196]ENKEN [211]IE MAL WIEDER AN [193]NDERE.":GOTO9500 5500 GOSUB9600:GOSUB10000:W=INT(6*RND(0))+1 5511 ONWGOTO5520,5530,5540,5550,5560,5570 5520 PRINT"[211]IE SIND ZUR [218]EIT RASTLOS UND MOECHTEN ETWAS [206]EUES BEGINNEN.[194]EVOR [211]IE"; 5521 PRINT" SICH BLINDLINGS IN EIN [193]BENTEUER STUERZEN, SOLLTEN [211]IE ALLERDINGS"; 5522 PRINT" ERST GENAU WISSEN,WAS SIE WIRKLICH WOLLEN.[196]ANN KOENNEN [211]IE"; 5523 PRINT" HANDELN.[214]IEL [197]RFOLG .":GOTO9500 5530 PRINT"[204]ASSEN SIE SICH DURCH DEN [193]LLTAGSAERGER NICHT [201]HREN [198]EIERABEND VERDER"; 5531 PRINT"BEN.[194]EACH- TEN [211]IE DIE [210]ATSCHLAEGE EINES [203]OLLEGEN BESSER,DANN WIRD AUCH"; 5532 PRINT" KEINE [208]ANNE MEHR PASSIEREN":GOTO9500 5540 PRINT"[196]ISHARMONIEN IN DER [208]ARTNERSCHAFT UEBER-SCHATTEN DIE [215]OCHE.[215]ENN [211]IE"; 5541 PRINT" NICHT ETWAS NACHGIEBIGER SIND,KANN ES ZU EINEM HAND-FESTEN [203]RACH"; 5542 PRINT" KOMMEN.[197]INE FINAZIELLE [213]EBERASCHUNG WINKT ZUM [215]OCHENENDE.":GOTO9500 5550 PRINT"[197]INE HEIKLE [211]ITUATION STEHT BEVOR.[211]IE HABEN SIE DURCH EIN WENIG"; 5551 PRINT" [204]EICHTSINN SELBST VERSCHULDET.[214]ERSUCHEN [211]IE EINEN KLAREN [203]OPF "; 5552 PRINT"ZU BEHALTEN.[197]S WIRD SICH SCHON KLAEREN.":GOTO9500 5560 PRINT"[193]NGELEGENHEITEN MIT [215]OHNUNG ODER [200]AUS STEHEN JETZT AN,[211]IE SIND "; 5561 PRINT"GEFORDERT. [205]ACHEN [211]IE DAS [194]ESTE DARAUS.[201]HR [208]ARTNER IST MIT"; 5562 PRINT" [201]HNEN EINER [205]EINUNG.[206]UTZEN [211]IE DIE [199]UNST DER [211]TUNDE.":GOTO9500 5570 PRINT"[208]LANEN [211]IE JETZT [201]HR [215]OCHENENDE,DIE [198]AMILIE IST WICHTIGER DENN"; 5571 PRINT" JE.[201]M [194]ERUF STEHT [201]HNEN JETZT EINE POSITIVE [214]ERAEN- DERUNG BEVOR"; 5572 PRINT",LASSEN [211]IE SICH UEBERASCHEN ":GOTO9500 5600 GOSUB9600:GOSUB10000:W=INT(6*RND(0))+1 5611 ONWGOTO5620,5630,5640,5650,5660,5670 5620 PRINT"[194]REMSEN [211]IE [201]HRE [193]USGABEN;DENN [211]IE KOENNEN SICH KEINE [197]XTRAVAGANZEN"; 5621 PRINT" LEISTEN[215]AS NICHT UNBEDINGT NOETIG IST,MUESSEN [211]IE ZURUECKSTELLEN"; 5622 PRINT".[193]UCH [201]HR [208]ARTNER SOLLTE FINAZIELLES [193]UGENMASS BEWAHREN.":GOTO9500 5630 PRINT"[211]IE SIND VON ZWIESPAELTIGEN [199]EFUEHLEN HIN- UND HERGERISSEN UND HABEN"; 5631 PRINT" ZUR [218]EIT NICHT DIE [203]RAFT,EINE DEFINITIVE [197]NT- SCHEIDUNG ZU TREFFEN"; 5632 PRINT".[193]M BESTEN LASSEN [211]IE ALLES EINFACH AUF SICH ZUKOMMEN.":GOTO9500 5640 PRINT"[211]IE HABEN DAS [199]EFUEHL,BERUFLICH AUF DER [211]TELLE ZU TRETEN.[196]AS IST "; 5641 PRINT"EIN [201]RRTUM, [201]HNEN FEHLT NUR EINE [208]ORTION [199]EDULD,ABER[201]HR [203]URS IST"; 5642 PRINT" RICHTIG,UND DEN SOLLTEN [211]IEBEIBEHALTEN.":GOTO9500 5650 PRINT"[196]IE [215]ELT SCHEINT SICH VERSCHWOREN ZU HABEN DENN [211]IE HABEN KEIN"; 5651 PRINT" [199]LUECK IM [205]OMENT,DOCH LASSEN [211]IE DEN [203]OPF NICHT HAENGEN,ES "; 5652 PRINT"GEHT WIEDER VORWAERTS.IN DER[204]IEBE GIBT ES EINE NEUE [214]ARIANTE.[211]IE"; 5653 PRINT" SOLLTEN SICH NICHT IN [211]TREITEREIEN MIT DEM [208]ARTNER VERSTRICKEN." 5654 GOTO9500 5660 PRINT"[211]IE SIN IN FALSCHEN [214]ERDACHT GERATEN, ABER RUHIG [194]LUT,DENN DIE "; 5661 PRINT"[211]ACHLAGE KLAERTSICH ZU [201]HREN [199]UNSTEN.[194]ERUFLICH VORSICH-TIG "; 5662 PRINT"OPERIEREN;EHER DEZENT AN NEUE [208]ROJEKTE HERANWAGEN.":GOTO9500 5670 PRINT"[193]UCH WENN [211]IE GEGEN DEN [211]TROM SCHWIMMEN BLEIBEN [211]IE"; 5671 PRINT" FEST IN DER [211]ACHE.[201]HR [198]AMILIENLEBEN VELAEUFT RUHIG UND ES "; 5672 PRINT" KANN AUCH EINEN [199]ELDGEWINN GEBEN.[211]PIELEN[211]IE MAL [204]OTTERIE.":GOTO9500 5700 GOSUB9600:GOSUB10000:W=INT(6*RND(0))+1 5711 ONWGOTO5720,5730,5740,5750,5760,5770 5720 PRINT"[201]N DIESEN [212]AGEN MUESSEN [211]IE WOHL ODER UEBEL EIN HEISSES [197]ISEN "; 5721 PRINT"ANFASSEN,ABER BEKANNTLICH WIRD NICHTS SO HEISS GEGES- SEN,WIE ES "; 5722 PRINT"GEKOCHT WIRD.[193]LSO KEINE [193]NGSTHABEN UND DIESE [193]NGELEGENHEIT AUS "; 5723 PRINT"DER [215]ELT SCHAFFEN.":GOTO9500 5730 PRINT"[201]N DIESER [215]OCHE MEINT ES DAS [211]CHICKSAL GUT MIT [201]HNEN.[201]M [194]ERUF"; 5731 PRINT" KOENNEN [211]IE EINEN[197]RFOLG VERBUCHEN,DER [201]HR [211]ELBSTBEWUSST- SEIN"; 5732 PRINT" NOCH STEIGERT.[205]IT DER [199]ESUNDHEIT HEISST ES ABER AUFPASSEN!!":GOTO9500 5740 PRINT"[204]EGEN [211]IE IN DIESER [215]OCHE JEDES [215]ORT AUFDIE [199]OLDWAAGE,DENN EIN"; 5741 PRINT" FALSCHES [215]ORT KANN EINE GUTE [194]EZIEHUNG GEFAEHRDEN. [213]EBERHAUPT"; 5742 PRINT" SOLLTEN [211]IE JEDE [213]EBERAKTIVI-TAET MEIDEN.[214]ORSICHT BEIM [211]PORT!!":GOTO9500 5750 PRINT"[201]HNEN FALLEN [197]RFOLGE ZU,OHNE DASS [211]IE SICH ANSTRENGEN MUESSEN."; 5751 PRINT"[193]UCH [201]HR [200]ERZ DARF SICH GUT AUFGEHOBEN FUEHLEN."; 5752 PRINT"SO MANCHER BRAUCHT JETZT [201]HREN [210]AT.[211]CHOEP- FEN [211]IE AUS [201]HREN";; 5753 PRINT" [197]RFAHRUNGEN.":GOTO9500 5760 PRINT"[197]INE [206]ACHRICHT KANN [211]IE JETZT AUS DEM [199]LEICHGEWICHT BRINGEN "; 5761 PRINT"[211]IE SOLLTEN SICH MIT [201]HREM [208]ARTNER JETZT ZUSAMMENTUN DANNWERDEN"; 5762 PRINT" [211]IE ES MEISTERN.[204]ASSEN [211]IE DEN [205]UT NICHT SINKEN!":GOTO9500 5770 PRINT"[197]INE [215]OLKE AM [200]IMMEL MACHT NOCH KEINEN [210]EGEN.[211]IE SOLLTEN DIE "; 5771 PRINT"[212]ATSACHEN NICHT UEBERBEWERTEN,SONST GERATEN [211]IE SCHNELL INS"; 5772 PRINT" [193]BSEITS.[204]ASSEN [211]IE ALLES RUHIGER AN SICH HERANKOMMEN!":GOTO9500 5800 GOSUB9600:GOSUB10000:W=INT(5*RND(0))+1 5811 ONWGOTO5820,5830,5840,5850,5860,5870 5820 PRINT"[197]INE [194]EHOERDENANGELEGENHEIT SCHLEPPT SICH HIN,ES KOENNTE NICHT"; 5821 PRINT" SCHADEN,WENN [211]IE MAL NACHFRAGEN.[199]EDULD MUESSEN [211]IE DENNOCH HABEN"; 5822 PRINT".[201]HRE [196]ISPOSITIONEN ZUM [215]OCHENENDE WERDEN [211]IE AENDERN MUESSEN":GOTO9500 5830 PRINT"[214]ERPLEMPERN [211]IE [201]HRE ZEIT NICHT MIT DEN FALSCHEN [204]EUTEN,DAS BRINGT"; 5831 PRINT" NUR [214]ERDRUSS MIT DEM [208]ARTNER EIN.[198]INANZIELL STEHT ALLES BESTENS,"; 5832 PRINT"UND HABEN KEINEN [199]RUND,AUFEIN WINDIGES [193]NGEBOT EINZUGEHEN."; 5833 PRINT"[196]ENKEN [211]IE MAL AN [213]RLAUB":GOTO9500 5840 PRINT"[211]IE SIND IN DIESEN [212]AGEN SEHR AKTIV,UND ALLES GEHT [201]HNEN LEICHT "; 5841 PRINT"VON DER [200]AND. [214]ERGESSEN [211]IE BEI [201]HRER [194]ETRIEBSAMKEIT EINEN GUTEN"; 5842 PRINT" [194]EKANNTEN NICHT,DER AUF EINE[206]ACHRICHT VON [201]HNEN WARTET!":GOTO9500 5850 PRINT"[211]IE WERDEN FESTSTELLEN DAS SICH ALLES EINPENDELT,WAS AN NEUEM AUF"; 5851 PRINT" [211]IE EIN- STUERMT.[211]IE KOMMEN LANGSAM WIEDER IN RUHIGERE [199]E-"; 5852 PRINT" FILDE.[211]IE BEHERRSCHEN.DIE NEUE [211]ITUATION MIT [197]RFOLG." :GOTO9500 5860 PRINT"[204]EGEN [211]IE IN DIESER [215]OCHE UNBEDINGT EINE[197]RHOLUNGSPAUSE EIN."; 5861 PRINT"[197]S STEHT SONST EIN GESUNDHEITLICHE [212]IEF IN [193]USSICHT.[194]ERUF- LICHE "; 5862 PRINT"[193]KTIVITAETEN AUF [211]PARFLAMME DREHENSO KOMMEN [211]IE GUT ZURECHT.":GOTO9500 5870 PRINT"[197]INE DRUECKENDE [214]ERPFLICHTUNG MOECHTEN [211]IE AM LIEBSTEN VERGESSEN,"; 5871 PRINT"DOCH [211]IE DUER-FEN NICHTS VERTROEDELN SONST KANN ES BRENZLIG WERDEN."; 5872 PRINT"[208]ROBEN [211]IE KEINEN [193]LLEINGANG,SONDERN LASSEN [211]IE SICH HELFEN !":GOTO9500 5900 GOSUB9600:GOSUB10000:W=INT(6*RND(0))+1 5911 ONWGOTO5920,5930,5940,5950,5960,5970 5920 PRINT"[201]HR [207]PTIMISMUS UEBERTRAEGT SICH AUCH AUF[201]HREN [208]ARTNER.[197]INE "; 5921 PRINT"GLUECKLICHE [215]OCHE STEHT [201]HNEN BEVOR.[197]IN [208]OSITIONSWECHSEL IST "; 5922 PRINT" MOEGLICH.[208]FLEGEN [211]IE [201]HRE [204]IEBE.[197]S WIRD SICH AUSZAHLEN.":GOTO9500 5930 PRINT"[206]UR WER SICH MUEHT UND PLAGT DEM IST DER[197]RFOLG VORAUSGESAGT."; 5931 PRINT"[196]IESES [215]ORT IST FUER[211]IE PASSEND.[211]IE WERDEN FUER [201]HRE [205]UEHE BELOHNT"; 5932 PRINT".[214]ERZICHTEN [211]IE ABER,[203]RITIK AN [193]NDEREN ZU UEBEN.[197]S WIRD [201]HNEN "; 5933 PRINT"[198]REUNDE BRINGEN,DIE [211]IE BRAUCHEN KOENNEN!":GOTO9500 5940 PRINT"[197]IN ALTER [215]UNSCH IM [215]OHNUNGSFRAGEN GEHT BALD IN [197]RFUELLUNG.[204]ASSEN"; 5941 PRINT" [211]IE SICH [218]EIT FUER EINE [193]UFGABE,DIE [201]HRE GANZE [193]UF- MERKSAMKEIT"; 5942 PRINT" FORDERT.[196]ANN WIRD [211]IE AUCH GELINGEN.[201]HR [208]ARTNER STEHT MIT [210]AT UND [212]AT"; 5943 PRINT" ZUR [211]EITE ":GOTO9500 5950 PRINT"[211]IE HAENGEN TRUEBEN [199]EDANKEN NACH UND SIND MIT SICH UNZUFRIEDEN "; 5951 PRINT"DOCH BEDENKEN [211]IE WIE DIE [215]ELT AUCH SCHOEN SEIN KANN. [201]HR [208]ARTNER "; 5952 PRINT"BRAUCHT [211]IE AUCH JETZT. [196]ENKEN [211]IE EIN WENIG POSITIV !":GOTO9500 5960 PRINT"[212]REUE SOLLTE FUER [211]IE IMMER MEHR SEIN ALS DAS [215]ORT.[196]ENKEN [211]IE DARAN"; 5961 PRINT"[201]HR [208]ARTNERHAT AUCH [201]HRE [204]IEBE NOETIG.[203]EIN [205]ENSCH KANN ALLEIN "; 5962 PRINT"LEBEN.[193]LLES ZU TEILEN HEISSTDOPPELT ZU BEKOMMEN!":GOTO9500 5970 PRINT"[201]N DIESER [215]OCHE STEHEN EINIGE FINAZIELLE[208]ROBLEME AN.[204]OESEN [211]IE "; 5971 PRINT"ES WIE IMMER MIT [213]EBERLEGUNG UND OHNE [200]AST.[194]ERUFLICH IST KEINE "; 5972 PRINT"[215]OLKE AM [200]IMMEL ZU ERKENNEN.[199]LUECKAM [215]OCHENENDE!":GOTO9500 6000 GOSUB9600:GOSUB10000:W=INT(4*RND(0))+1 6011 ONWGOTO6020,6030,6040,6050 6020 PRINT"[196]IE [204]IEBE [201]HRES [208]ARTNERS WIRD VON [201]HNEN IN DIESER [215]OCHE STRAPAZIERT"; 6021 PRINT".[204]ASSEN [211]IE [201]HREM [208]ARTNER DEN [198]REIRAUM DEN ER BRAUCHT,ERDRUECKEN "; 6022 PRINT"[211]IE NICHT [201]HRE [199]EMEINSAMKEIT.[201]N BERUFLICHER [200]INSICHT IST KEINE "; 6023 PRINT"[215]OLKE AM [200]IMMEL ZU ERKENNEN!":GOTO9500 6030 PRINT"[204]ASSEN [211]IE SICH NICHT INS [194]OCKSHORN JAGEN.[214]EMEIDEN [211]IE [213]EBERMUT"; 6031 PRINT" DENN [213]EBER- MUT DER SCHADET MEHR ALS ER NUTZT.[201]HR [208]ARTNER WIRD ES "; 6032 PRINT" [201]HNEN DANKEN.[194]ERUFLICH WERDEN SICH DIE [215]OGEN GLAETTEN.[197]S GEHT "; 6033 PRINT" AUFWAERTS":GOTO9500 6040 PRINT"[211]IE SIND [201]HREM [208]ARTNER NOCH EINE [193]NTWORTSCHULDIG.[211]IE HABEN DIE "; 6041 PRINT"[205]OEGLICHKEIT SICHZU ENTFALTEN.[197]INE RUHIGE [193]RBEITSWOCHE WARTET "; 6042 PRINT"AUF [211]IE.[204]ASSEN [211]IE SICH NICHT AUSDER [210]UHE BRINGEN":GOTO9500 6050 PRINT"[201]N DIESER [215]OCHE WERDEN [215]EICHEN GESTELLT FUER DIE [218]UKUNFT ACHTEN "; 6051 PRINT"DARAUF DAS [211]IE NICHT ZU SCHLECHT ABSCHNEIDEN.[205]ACHEN [211]IEEINEN "; 6052 PRINT"WICHTIGEN [194]ESUCH,DANN KANN NICHTS MEHR SCHIEFGEHEN."::GOTO9500 6100 GOSUB9600:GOSUB10000:W=INT(4*RND(0))+1 6111 ONWGOTO6120,6130,6140,6150 6120 PRINT"[200]UETEN [211]IE SICH VOR ALLZU GROSSEN [215]AGNISSEN,DENN [211]IE SIND STARK"; 6121 PRINT" UNFALLGE- FAEHRDET.[196]IE [208]ARTNERSCHAFT IST UNTER STARKEM [196]RUCK ALSO"; 6122 PRINT" AUFGEPASST![196]IE [204]IEBE IST KEINE [197]INBAHNSTRASSE.[211]IE SOLLTEN ETWAS TUN!" 6129 GOTO9500 6130 PRINT"[199]UT FUER [213]NTERNEHMUNGEN.[211]IE SOLLTEN MAL WIEDER EINEN [193]USFLUG MIT"; 6131 PRINT" DER [198]AMILIE UNTERNEHMEN,GEMEINSAME [197]RLEBNISSSE FUEHREN DIE "; 6132 PRINT"[198]AMILIE WIEDER ZUSAMMEN. [204]ASSEN [211]IE DAS [215]OCHENENDE RUHIG"; 6133 PRINT" VERLAUFEN.[193]CHTEN [211]IE AUF [197]RKAELTUNGEN!":GOTO9500 6140 PRINT"[194]ERUFLICH STEHT EINE [214]ERANDERUNG INS [200]AUS.[208]RIVAT KAUM [208]ROBLEME"; 6141 PRINT".[201]HR [208]ARTNER STEHT [201]HNEN TREU ZUR [211]EITE.[205]IT [210]UHE UND "; 6142 PRINT"[193]USGEGLICHENHEIT KANN MAN VIELES"; 6143 PRINT" MEISTERN.[196]IE [215]ELT ERSCHEINT IN NEUEM [204]ICHT"; 6144 PRINT" WENN MAN POSITIV DENKT.":GOTO9500 6150 PRINT"[197]IN [198]REUND BRAUCHT [201]HRE [200]ILFE IST ABER NICHT IN DER [204]AGE [201]HNEN "; 6151 PRINT"DIESES ZUZUGEBEN[199]EHEN [211]IE AUF [201]HN ZU UND HELFEN [211]IE WENN[211]IE "; 6152 PRINT"KOENNEN.[201]M [194]ERUF IST EINE UNANGE- NEHME [211]ITUATION ZU MEISTERN":GOTO9500 7000 PRINT:PRINT:PRINT"[158][201]HRE [199]LUECKSZAHLEN: ":FORN=1TO7 7001 LETZ=INT(49*RND(0))+1 7002 FORP=1TON 7003 IFZ=L(P)THENGOTO7001 7004 NEXTP 7005 LETL(N)=Z 7006 PRINT""L(N);:FORI=1TO100:NEXT 7007 NEXTN 7008 RETURN 8000 PRINT"[152]":GOSUB9100 8001 AI$="[211]TEINBOCK" 8002 BI$="[215]ASSERMANN" 8003 CI$="[198]ISCHE" 8004 DI$="[215]IDDER" 8005 EI$="[211]TIER" 8006 FI$="[218]WILLINGE" 8007 GI$="[203]REBS" 8008 HI$="[204]OEWE" 8009 II$="[202]UNGFRAU" 8010 KI$="[215]AAGE" 8011 LI$="[211]KORPION" 8012 MI$="[211]CHUETZE" 8013 IFV$=AI$THEN9000 8014 IFV$=BI$THEN9001 8015 IFV$=CI$THEN9002 8016 IFV$=DI$THEN9003 8017 IFV$=EI$THEN9004 8018 IFV$=FI$THEN9005 8019 IFV$=GI$THEN9006 8020 IFV$=HI$THEN9007 8021 IFV$=II$THEN9008 8022 IFV$=KI$THEN9009 8023 IFV$=LI$THEN9010 8024 IFV$=MI$THEN9011 8025 RETURN 9000 AI$=AL$:U$=U$+AL$:GOTO9060 9001 BI$=BL$:U$=U$+BL$:GOTO9060 9002 CI$=CL$:U$=U$+CL$:GOTO9060 9003 DI$=DL$:U$=U$+DL$:GOTO9060 9004 EI$=EL$:U$=U$+EL$:GOTO9060 9005 FI$=FL$:U$=U$+FL$:GOTO9060 9006 GI$=GL$:U$=U$+GL$:GOTO9060 9007 HI$=HL$:U$=U$+HL$:GOTO9060 9008 II$=IL$:U$=U$+IL$:GOTO9060 9009 KI$=KL$:U$=U$+KL$:GOTO9060 9010 LI$=LL$:U$=U$+LL$:GOTO9060 9011 MI$=ML$:U$=U$+ML$:GOTO9060 9012 GOTO50 9060 FORX=1TO40 9061 X$=X$+" " 9062 NEXTX 9066 U$=X$+U$ 9067 S=1 9068 T=24 9069 PO=735:GOSUB3:PRINTCHR$(145)MID$(U$,S,T) 9070 FORZ=1TO100:NEXT 9071 S=S+1 9073 IFS>LEN(U$)THENGOTO 2020 9074 GOTO9069 9100 AL$="[211]TEINBOCK.[201]MMER MIT DEM [203]OPF DURCH DIE [215]AND.[210]AUH ABER HERZLICH. " 9101 BL$="[215]ASSERMANN.[218]AERTLICH ,SCHUECHTERN,ZUR [214]ERSOEHNUNG BEREIT.[197]HRLICH. " 9102 CL$="[198]ISCHE.[213]NBERECHENBAR,ETWAS RECHTHABERISCH,ABER IN DER [210]EGEL TREU. " 9103 DL$="[215]IDDER.[218]ORNIG,STUERMISCH,IN DER [204]IEBE GEWANDT.[211]EHR SINNLICH! " 9104 EL$="[211]TIER.[214]ORAUSSCHAUEND,ETWAS TRAEGE ABER ZUVERLAESSIG UND TREU. " 9105 FL$="[218]WILLING.[218]WEI [211]EELEN IN EINER [194]RUST.[193]KTIONSFREUDIG ABER WANKEND. " 9106 GL$="[203]REBS.[193]BWARTEND,ZURUECKHALTEND,ABER TREU UND AUFRECHT,GUTER [198]REUND " 9107 HL$="[204]OEWE.[200]ERRSCHEND,TREU,ABER AUCH SEHR BESTIMMT.[213]NBEUGSAM UND STARK. " 9108 IL$="[202]UNGFRAU.[214]ERSTANDESMENSCH,TRAEGT DAS [200]ERZ AUF DER [218]UNGE,TREU,EHRLICH. " 9109 KL$="[215]AAGE.[193]BWARTEND,ZURUECKHALTEND,MEHR DEFENSIV,ABER ZUVERLAESSIG. " 9110 LL$="[211]KORPION.[197]TWAS UNZUVERLAESSIG,ABER TREFFENDE [199]EISTESBLITZE,TREU. " 9111 ML$="[211]CHUETZE.[218]IELSTREBIG,NICHT WANKEND,SEHR SINNLICH,MANCHMAL STUERMISCH. " 9112 RETURN 9500 GOSUB7000:PO=920:GOSUB3:PRINTOI$:GOTO11000 9600 PRINT"[147]":PRINTTAB(15)"[153]"V$:PRINT:PRINTPI$;:PRINTG;M;J:PRINT"":RETURN 10000 PRINT"[196]IE [208]ROGNOSE FUER DEN";PT;".";PM;".";PJ 10001 PRINT"LAUTET: " 10010 RETURN 11000 REM 11001 FORX=1TO40 11002 K$=K$+" " 11003 NEXTX 11004 L$="[159][205]IT [198] 1 WEITER! " 11005 G$=K$+L$ 11006 S=1:T=39 11007 PO=840:GOSUB3:PRINTCHR$(145)MID$(G$,S,T) 11008 FORZ=1TO10:NEXT 11009 S=S+1 11010 IFS>(40+LEN(L$))/2THEN11012 11011 GOTO11007 11012 PRINT:PRINT 11013 FOR X=1TO40 11014 K$=K$+" " 11015 NEXTX 11016 L$=" [197]NDE MIT [198] 3 ! [150]" 11017 G$=K$+L$ 11018 S=LEN(G$) 11019 T=1 11020 PO=880:GOSUB3:PRINTCHR$(145)MID$(G$,S,T) 11021 FORZ=1TO10:NEXT 11022 T=T+1 11023 S=S-1 11024 IFT>(41+LEN(L$))/2THEN11100 11025 GOTO11020 11100 GETZ$:IFZ$=""THEN11100 11110 IFZ$=CHR$(133)THEN50 11120 IFZ$=CHR$(134)THEN200 11130 IFZ$<>CHR$(133)ORZ$<>CHR$(134)THEN11100 11131 PRINT"[147]":PRINTCHR$(14)CHR$(8):POKE53280,0:POKE53281,0:POKE646,1 11132 PRINTTAB(11)"[152][213]NSERE [211]TERNE":PRINT 11134 PRINTTAB(11)"[158][213]NSER [211]CHICKSAL":PRINT:PRINT:PRINT 11136 PRINT" [150][200]OROSKOP V. [200]ANS-[202]OACHIM [205]EYER" 11137 PRINT:PRINTTAB(15)"1988" 11141 PO=560:GOSUB3:POKE53280,0:POKE53281,0:POKE646,1 11142 PRINT"[159][196]IESES [208]ROGRAMM ERSTELLT [201]HNEN EINE":PRINT:GOSUB12000 11143 PRINT"[151][208]ROGNOSE EINES VON [201]HNEN GEWUENSCHTEN":PRINT:GOSUB12000 11144 PRINT"[153][212]AGES.DAZU NOCH EINE [210]EIHE VON [199]LUECKS":PRINT:GOSUB12000 11145 PRINT"[152]ZAHLEN,DIE [211]IE BENUTZEN KOENNEN UM [201]HR":PRINT:GOSUB12000 11146 PRINT"[155][199]LUECK ZU FINDEN.":GOSUB12000:FORI=1TO5000:NEXT:RETURN 12000 FORI=1TO1000:NEXT:RETURN