home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 35 / Commodore_Disc_35_19xx_-_de.d64 / horoskop (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  31KB  |  616 lines
  1. 1 poke808,225:poke775,200
  2. 2 gosub11131:goto10
  3. 3 poke214,int(po/40):poke211,po-((int(po/40))*40):sys58640:return
  4. 10 print"[147]":poke53280,0:poke53281,0:poke646,1:printchr$(14)chr$(8)
  5. 12 printtab(11)"[158][200][160][207][160][210][160][207][160][211][160][203][160][207][160][208][160]"
  6. 13 print"[149] *";"   [149]*  ";"          *";"       [155]*";"  [151]*    [144]*  [144]*     [159]*   [149]*"
  7. 14 print"[153]*";"  *";"    [151]*";"     [152]*";"       [159]*";"    [129]*";"     [156]*";"    [158]*"
  8. 15 print"[155]     * ";"          [129]*";"     [144]*";"       [150]*";"* *  [155]*";"      [153]*"
  9. 16 print"[149]*";" *           [155]      [144]         [150]     *     [153]  *  [149] [155]"
  10. 17 print"*     *     [144]*   [158]*   *    *   [158]*  [129]*  [150]*  [152] *   [150]*   [155]*   [129]*   * [149]*"
  11. 18 print"   [153]*    * [159][196]ie  [211]terne *  *   [159]*   *  * *   *   *  *";
  12. 19 print"   *     [155]*   [154]*   [153]*   [152]*      [152]*      [152]*      [149]*      [129]*   *    [144]*
  13. 20 [153]"         openluegen nicht*  *   stop*   (NULL)*    ^*   *    *      ^*   (NULL) * *";
  14. 21 [153]"    *    *      *     *     cont*     poke*      for*        *      open*     ";
  15. 22 [153]"     verify*    stop*   clr*     sys*       *     stop*      sys*     *   clr*     "
  16. 23 [153]"*  *  *open   **  clr*    list*    for*    verify*   poke*   def*   cont*   print#*  def*  verify*   verify"
  17. 24 [129]x[178]1[164]40
  18. 25 b$[178]b$[170]" "
  19. 26 [130] x:d$[178]"(NULL)arten (NULL)ie bis die (NULL)aufschrift verschwunden ist dann asc1 str$anke  "
  20. 27 a$[178]"sysleft$allo ich freue mich (NULL)ie zu sehen,wollen wir zusammen arbeiten ?  "
  21. 28 c$[178]"sysstr$ann druecken (NULL)ie bitte die (NULL)aste asc1 zum (NULL)tarten. "
  22. 29 f$[178]a$[170]c$[170]d$
  23. 31 f$[178]b$[170]f$
  24. 32 s[178]8:[129]i[178]1[164]100:[130]
  25. 33 t[178]30
  26. 34 po[178]364:[141]3:[153][199](145)[202](f$,s,t)
  27. 35 [129] z[178]1[164]100:[130]
  28. 36 s[178]s[170]1
  29. 37 [139]s[178][195](f$)[167][137]40
  30. 38 [137] 34
  31. 40 [161] z$:[139]z$[178]""[167]40
  32. 41 [139]z$[178][199](133)[167]50
  33. 42 [139]z$[179][177][199](133)[167]40
  34. 50 [156]: [153]"load":[153]"       right$left$(NULL)valclose(NULL)(NULL)val(NULL)(NULL)valcloseright$(NULL)close(NULL)right$(NULL)right$val(NULL)"
  35. 51 [140]:po[178]280:[141]3:[153]"syschr$eben (NULL)ie right$hr chr$eburtsdatum ein."
  36. 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)) "
  37. 53 po[178]400:[141]3:[133]g,m,j
  38. 54 d[178]j[171]4[172][181](j[173]4)
  39. 55 [139]g[178]29[175]m[178]2[175]d[179][177]0[167]90
  40. 56 [141]1100
  41. 57 po[178]520:[141]3:[133]"(NULL)orausagedatum ?";pt,pm,pj
  42. 58 e[178]pj[171]4[172][181](pj[173]4)
  43. 59 [139]pt[178]29[175]pm[178]2[175]e[179][177]0[167]100
  44. 60 [141]1200
  45. 77 [129]i[178]0[164]366
  46. 78 [135]a,b,v$
  47. 79 [139]a[178]g[175] b[178]m [167][137]2000
  48. 81 [130]i
  49. 82 [140]
  50. 83 [139]a[179][177]g[175]b[179][177]m[167]159
  51. 90 [153]:[153]j;" ist kein (NULL)chaltjahr":[153]"vals gibt keinen 29.2.";j:[129]i[178]1[164]5000:[130]
  52. 91 po[178]520:[141]3:[153]"                                        "
  53. 92 po[178]560:[141]3:[153]"                                        "
  54. 93 po[178]600:[141]3:[153]"                                        ":[137]53
  55. 100 [153]:[153]pj;" ist kein (NULL)chaltjahr":[153]"es gibt keinen 29.2.";pj
  56. 101 [129]i[178]1[164]5000:[130]:po[178]680:[141]3:[153]"                                        "
  57. 102 po[178]720:[141]3:[153]"                                          ":[137]57
  58. 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"
  59. 160 [153]:[153]:[153]:[153]"nochmal ?? ja/nein"
  60. 170 [161]z$:[139]z$[178]""[167]170
  61. 171 [139]z$[178]"j"[167][137] 50
  62. 172 [139]z$[178]"n"[167]200
  63. 173 [137]170
  64. 185 u$[178]y$[170]w$
  65. 200 [153]"load":[151]53280,0:[151]53281,0:[151]646,1:[153][199](14)[199](8)
  66. 210 [153][163]11)"sysleft$close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close(NULL)close"
  67. 220 [153]"verify *";"   verify*  ";"          *";"       list*";"  poke*    stop*  stop*     open*   verify*"
  68. 230 [153]"print*";"  *";"    poke*";"     print#*";"       open*";"    for*";"     clr*";"    sys*"
  69. 240 [153]"list     * ";"          for*";"     stop*";"       def*";"       list*";"      print*"
  70. 250 [153]"verify*";"      * *    list*     stop  *      def*    *     print  *  verify list"
  71. 260 [153]"*     *     stop*   sys*   *    *   sys*  for*  def*  print# *   def*   list*   for*   *
  72. 270 print"   [153]*    [149]*  [129]*   [153]*    *   [155]*   [153]*   [152]*    [151]*     [150]* [149]*   [129]*    [154]*  [149]*
  73. 280 [153]"stop*    clr*    *   open*     cont*    sys*    *   stop*    open*      *    verify *   for*"
  74. 290 [153]"   *     list*   cont*   print*   print#*      print#*      print#*      verify*      for*   *    stop*
  75. 300 print"    *    *      *     *     [154]*     [151]*      [129]*        *      [159]*
  76. 310 [153]"     verify*    stop*   clr*     sys*       *     stop*      sys*     *       clr*     "
  77. 340 [129]x[178]1[164]40
  78. 350 e$[178]e$[170]" "
  79. 360 [130] x:g$[178]"(NULL)arten (NULL)ie bis die (NULL)aufschrift verschwunden ist. "
  80. 380 h$[178]"sysleft$ier ist das valnde des (NULL)rogrammes,wollen (NULL)ie wirklich aufhoeren ?  "
  81. 390 i$[178]"sysstr$ann druecken (NULL)ie bitte die (NULL)aste asc1. (NULL)eiter mit anderer (NULL)aste.  "
  82. 400 k$[178]h$[170]g$[170]i$
  83. 420 k$[178]e$[170]k$
  84. 430 s[178]1
  85. 440 t[178]23
  86. 450 po[178]287:[141]3:[153][199](145)[202](k$,s,t)
  87. 460 [129] z[178]1[164]100:[130]
  88. 470 s[178]s[170]1
  89. 480 [139]s[178][195](k$)[167][137]501
  90. 500 [137] 450
  91. 501 po[178]880:[141]3:[153]"open                     (NULL)aste druecken "
  92. 502 [153]"clr     asc 1  fuer valnde  (sonst atnndere) "
  93. 510 [161] z$:[139]z$[178]""[167]510
  94. 520 [139]z$[178][199](133)[167]540
  95. 530 [139]z$[179][177][199](133)[167]50
  96. 540 [153]"load":[151]53280,6:[151]53281,14
  97. 550 [158]64738
  98. 1000 [131]31,12,"(NULL)teinbock",1,1,"(NULL)teinbock",2,1,"(NULL)teinbock",3,1,"(NULL)teinbock"
  99. 1001 [131]4,1,"(NULL)teinbock",5,1,"(NULL)teinbock",6,1,"(NULL)teinbock",7,1,"(NULL)teinbock"
  100. 1002 [131]8,1,"(NULL)teinbock",9,1,"(NULL)teinbock",10,1,"(NULL)teinbock",11,1,"(NULL)teinbock"
  101. 1003 [131]12,1,"(NULL)teinbock",13,1,"(NULL)teinbock",14,1,"(NULL)teinbock",15,1,"(NULL)teinbock"
  102. 1004 [131]16,1,"(NULL)teinbock",17,1,"(NULL)teinbock",18,1,"(NULL)teinbock",19,1,"(NULL)teinbock"
  103. 1005 [131]20,1,"(NULL)teinbock",21,1,"(NULL)assermann",22,1,"(NULL)assermann",23,1,"(NULL)assermann"
  104. 1006 [131]24,1,"(NULL)assermann",25,1,"(NULL)assermann",26,1,"(NULL)assermann",27,1,"(NULL)assermann"
  105. 1007 [131]28,1,"(NULL)assermann",29,1,"(NULL)assermann",1,2,"(NULL)assermann",2,2,"(NULL)assermann"
  106. 1008 [131]3,2,"(NULL)assermann",4,2,"(NULL)assermann",5,2,"(NULL)assermann",5,2,"(NULL)assermann"
  107. 1009 [131]6,2,"(NULL)assermann",7,2,"(NULL)assermann",8,2,"(NULL)assermann",9,2,"(NULL)assermann"
  108. 1010 [131]10,2,"(NULL)assermann",11,2,"(NULL)assermann",12,2,"(NULL)assermann",13,2,"(NULL)assermann"
  109. 1011 [131]14,2,"(NULL)assermann",15,2,"(NULL)assermann",16,2,"(NULL)assermann",17,2,"(NULL)assermann"
  110. 1012 [131]18,2,"(NULL)assermann",19,2,"(NULL)assermann",20,2,"ascische",21,2,"ascische"
  111. 1013 [131]30,1,"(NULL)assermann",31,1,"(NULL)assermann",22,2,"ascische",23,2,"ascische"
  112. 1014 [131]24,2,"ascische",25,2,"ascische",26,2,"ascische",27,2,"ascische",28,2,"ascische"
  113. 1015 [131]29,2,"ascische",1,3,"ascische",2,3,"ascische",3,3,"ascische",4,3,"ascische"
  114. 1016 [131]5,3,"ascische",6,3,"ascische",7,3,"ascische",8,3,"ascische",9,3,"ascische"
  115. 1017 [131]10,3,"ascische",11,3,"ascische",12,3,"ascische",13,3,"ascische",14,3,"ascische"
  116. 1018 [131]15,3,"ascische",16,3,"ascische",17,3,"ascische",18,3,"ascische",19,3,"ascische"
  117. 1019 [131]20,3,"ascische",21,3,"(NULL)idder",22,3,"(NULL)idder",23,3,"(NULL)idder",24,3,"(NULL)idder"
  118. 1020 [131]25,3,"(NULL)idder",26,3,"(NULL)idder",27,3,"(NULL)idder",28,3,"(NULL)idder",29,3,"(NULL)idder"
  119. 1021 [131]30,3,"(NULL)idder",31,3,"(NULL)idder",1,4,"(NULL)idder",2,4,"(NULL)idder",3,4,"(NULL)idder"
  120. 1022 [131]4,4,"(NULL)idder",5,4,"(NULL)idder",6,4,"(NULL)idder",7,4,"(NULL)idder",8,4,"(NULL)idder"
  121. 1023 [131]9,4,"(NULL)idder",10,4,"(NULL)idder",11,4,"(NULL)idder",12,4,"(NULL)idder",13,4,"(NULL)idder"
  122. 1024 [131]14,4,"(NULL)idder",15,4,"(NULL)idder",16,4,"(NULL)idder",17,4,"(NULL)idder",18,4,"(NULL)idder"
  123. 1025 [131]19,4,"(NULL)idder",20,4,"(NULL)idder",21,4,"(NULL)tier",22,4,"(NULL)tier",23,4,"(NULL)tier"
  124. 1026 [131]24,4,"(NULL)tier",25,4,"(NULL)tier",26,4,"(NULL)tier",27,4,"(NULL)tier",28,4,"(NULL)tier"
  125. 1027 [131]29,4,"(NULL)tier",30,4,"(NULL)tier",1,5,"(NULL)tier",2,5,"(NULL)tier",3,5,"(NULL)tier"
  126. 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"
  127. 1029 [131]10,5,"(NULL)tier",11,5,"(NULL)tier",12,5,"(NULL)tier",13,5,"(NULL)tier",14,5,"(NULL)tier"
  128. 1030 [131]15,5,"(NULL)tier",16,5,"(NULL)tier",17,5,"(NULL)tier",18,5,"(NULL)tier",19,5,"(NULL)tier"
  129. 1031 [131]20,5,"(NULL)tier",21,5,"(NULL)willinge",22,5,"(NULL)willinge",23,5,"(NULL)willinge"
  130. 1032 [131]24,5,"(NULL)willinge",25,5,"(NULL)willinge",26,5,"(NULL)willinge",27,5,"(NULL)willinge"
  131. 1033 [131]28,5,"(NULL)willinge",29,5,"(NULL)willinge",30,5,"(NULL)willinge",31,5,"(NULL)willinge"
  132. 1034 [131]1,6,"(NULL)willinge",2,6,"(NULL)willinge",3,6,"(NULL)willinge",4,6,"(NULL)willinge"
  133. 1035 [131]5,6,"(NULL)willinge",6,6,"(NULL)willinge",7,6,"(NULL)willinge",8,6,"(NULL)willinge"
  134. 1036 [131]9,6,"(NULL)willinge",10,6,"(NULL)willinge",11,6,"(NULL)willinge",12,6,"(NULL)willinge"
  135. 1037 [131]13,6,"(NULL)willinge",14,6,"(NULL)willinge",15,6,"(NULL)willinge",16,6,"(NULL)willinge"
  136. 1038 [131]17,6,"(NULL)willinge",18,6,"(NULL)willinge",19,6,"(NULL)willinge",20,6,"(NULL)willinge"
  137. 1039 [131]21,6,"(NULL)rebs",22,6,"(NULL)rebs",23,6,"(NULL)rebs",24,6,"(NULL)rebs",25,6,"(NULL)rebs"
  138. 1040 [131]26,6,"(NULL)rebs",27,6,"(NULL)rebs",28,8,"(NULL)rebs",29,6,"(NULL)rebs",30,6,"(NULL)rebs"
  139. 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"
  140. 1042 [131]7,7,"(NULL)rebs",8,7,"(NULL)rebs",9,7,"(NULL)rebs",10,7,"(NULL)rebs",11,7,"(NULL)rebs"
  141. 1043 [131]12,7,"(NULL)rebs",13,7,"(NULL)rebs",14,7,"(NULL)rebs",15,7,"(NULL)rebs",16,7,"(NULL)rebs"
  142. 1044 [131]17,7,"(NULL)rebs",18,7,"(NULL)rebs",19,7,"(NULL)rebs",20,7,"(NULL)rebs",21,7,"(NULL)rebs"
  143. 1045 [131]22,7,"(NULL)rebs",23,7,"(NULL)oewe",24,7,"(NULL)oewe",25,7,"(NULL)oewe",26,7,"(NULL)oewe"
  144. 1046 [131]27,7,"(NULL)oewe",28,7,"(NULL)oewe",29,7,"(NULL)oewe",30,7,"(NULL)oewe",31,7,"(NULL)oewe"
  145. 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"
  146. 1048 [131]7,8,"(NULL)oewe",8,8,"(NULL)oewe",9,8,"(NULL)oewe",10,8,"(NULL)oewe",11,8,"(NULL)oewe"
  147. 1049 [131]12,8,"(NULL)oewe",13,8,"(NULL)oewe",14,8,"(NULL)oewe",15,8,"(NULL)oewe",16,8,"(NULL)oewe"
  148. 1050 [131]17,8,"(NULL)oewe",18,8,"(NULL)oewe",19,8,"(NULL)oewe",20,8,"(NULL)oewe",21,8,"(NULL)oewe"
  149. 1051 [131]22,8,"(NULL)oewe",23,8,"(NULL)oewe",24,8,"mid$ungfrau",25,8,"mid$ungfrau"
  150. 1052 [131]26,8,"mid$ungfrau",27,8,"mid$ungfrau",28,8,"mid$ungfrau",29,8,"mid$ungfrau"
  151. 1053 [131]30,8,"mid$ungfrau",31,8,"mid$ungfrau",1,9,"mid$ungfrau",2,9,"mid$ungfrau"
  152. 1054 [131]3,9,"mid$ungfrau",4,9,"mid$ungfrau",5,9,"mid$ungfrau",6,9,"mid$ungfrau"
  153. 1055 [131]7,9,"mid$ungfrau",8,9,"mid$ungfrau",9,9,"mid$ungfrau",10,9,"mid$ungfrau"
  154. 1056 [131]11,9,"mid$ungfrau",12,9,"mid$ungfrau",13,9,"mid$ungfrau",14,9,"mid$ungfrau"
  155. 1057 [131]15,9,"mid$ungfrau",16,9,"mid$ungfrau",17,9,"mid$ungfrau",18,9,"mid$ungfrau"
  156. 1058 [131]19,9,"mid$ungfrau",20,9,"mid$ungfrau",21,9,"mid$ungfrau",22,9,"mid$ungfrau"
  157. 1059 [131]23,9,"mid$ungfrau",24,9,"(NULL)aage",25,9,"(NULL)aage",26,9,"(NULL)aage",27,9,"(NULL)aage"
  158. 1060 [131]28,9,"(NULL)aage",29,9,"(NULL)aage",30,9,"(NULL)aage",1,10,"(NULL)aage",2,10,"(NULL)aage"
  159. 1061 [131]3,10,"(NULL)aage",4,10,"(NULL)aage",5,10,"(NULL)aage",6,10,"(NULL)aage",7,10,"(NULL)aage"
  160. 1062 [131]8,10,"(NULL)aage",9,10,"(NULL)aage",10,10,"(NULL)aage",11,10,"(NULL)aage",12,10,"(NULL)aage"
  161. 1063 [131]13,10,"(NULL)aage",14,10,"(NULL)aage",15,10,"(NULL)aage",16,10,"(NULL)aage",17,10,"(NULL)aage"
  162. 1064 [131]18,10,"(NULL)aage",19,10,"(NULL)aage",20,10,"(NULL)aage",21,10,"(NULL)aage",22,10,"(NULL)aage"
  163. 1065 [131]23,10,"(NULL)aage",24,10,"(NULL)korpion",25,10,"(NULL)korpion",26,10,"(NULL)korpion"
  164. 1066 [131]27,10,"(NULL)korpion",28,10,"(NULL)korpion",29,10,"(NULL)korpion",30,10,"(NULL)korpion"
  165. 1067 [131]31,10,"(NULL)korpion",1,11,"(NULL)korpion",2,11,"(NULL)korpion",3,11,"(NULL)korpion"
  166. 1068 [131]4,11,"(NULL)korpion",5,11,"(NULL)korpion",6,11,"(NULL)korpion",7,11,"(NULL)korpion"
  167. 1069 [131]8,11,"(NULL)korpion",9,11,"(NULL)korpion",10,11,"(NULL)korpion",11,11,"(NULL)korpion"
  168. 1070 [131]12,11,"(NULL)korpion",13,11,"(NULL)korpion",14,11,"(NULL)korpion",15,11,"(NULL)korpion"
  169. 1071 [131]16,11,"(NULL)korpion",17,11,"(NULL)korpion",18,11,"(NULL)korpion",19,11,"(NULL)korpion"
  170. 1072 [131]20,11,"(NULL)korpion",21,11,"(NULL)korpion",22,11,"(NULL)korpion",23,11,"(NULL)chuetze"
  171. 1073 [131]24,11,"(NULL)chuetze",25,11,"(NULL)chuetze",26,11,"(NULL)chuetze",27,11,"(NULL)chuetze"
  172. 1074 [131]28,11,"(NULL)chuetze",29,11,"(NULL)chuetze",30,11,"(NULL)chuetze",1,12,"(NULL)chuetze"
  173. 1075 [131]2,12,"(NULL)chuetze",3,12,"(NULL)chuetze",4,12,"(NULL)chuetze",5,12,"(NULL)chuetze"
  174. 1076 [131]6,12,"(NULL)chuetze",7,12,"(NULL)chuetze",8,12,"(NULL)chuetze",9,12,"(NULL)chuetze"
  175. 1077 [131]10,12,"(NULL)chuetze",11,12,"(NULL)chuetze",12,12,"(NULL)chuetze",13,12,"(NULL)chuetze"
  176. 1078 [131]14,12,"(NULL)chuetze",15,12,"(NULL)chuetze",16,12,"(NULL)chuetze",17,12,"(NULL)chuetze"
  177. 1079 [131]18,12,"(NULL)chuetze",19,12,"(NULL)chuetze",20,12,"(NULL)chuetze",21,12,"(NULL)chuetze"
  178. 1080 [131]22,12,"(NULL)chuetze",23,12,"(NULL)teinbock",24,12,"(NULL)teinbock",25,12,"(NULL)teinbock"
  179. 1081 [131]26,12,"(NULL)teinbock",27,12,"(NULL)teinbock",28,12,"(NULL)teinbock",29,12,"(NULL)teinbock"
  180. 1082 [131]30,12,"(NULL)teinbock"
  181. 1100 [139]g[177]31[167]1150
  182. 1110 [139]g[179][178]31[175]m[178]1[167][142]
  183. 1111 [139]g[179][178]29[175]m[178]2[167][142]
  184. 1112 [139]g[179][178]31[175]m[178]3[167][142]
  185. 1113 [139]g[179][178]30[175]m[178]4[167][142]
  186. 1114 [139]g[179][178]31[175]m[178]5[167][142]
  187. 1115 [139]g[179][178]30[175]m[178]6[167][142]
  188. 1116 [139]g[179][178]31[175]m[178]7[167][142]
  189. 1117 [139]g[179][178]31[175]m[178]8[167][142]
  190. 1118 [139]g[179][178]30[175]m[178]9[167][142]
  191. 1120 [139]g[179][178]31[175]m[178]10[167][142]
  192. 1121 [139]g[179][178]30[175]m[178]11[167][142]
  193. 1122 [139]g[179][178]31[175]m[178]12[167][142]
  194. 1150 [153]"def str$as str$atum ist falsch":[129]i[178]1[164]5000:[130]:[137]50
  195. 1160 [142]
  196. 1200 [139]pt[177]31[167]1250
  197. 1210 [139]pt[179][178]31[175]pm[178]1[167][142]
  198. 1211 [139]pt[179][178]29[175]pm[178]2[167][142]
  199. 1212 [139]pt[179][178]31[175]pm[178]3[167][142]
  200. 1213 [139]pt[179][178]30[175]pm[178]4[167][142]
  201. 1214 [139]pt[179][178]31[175]pm[178]5[167][142]
  202. 1215 [139]pt[179][178]30[175]pm[178]6[167][142]
  203. 1216 [139]pt[179][178]31[175]pm[178]7[167][142]
  204. 1217 [139]pt[179][178]31[175]pm[178]8[167][142]
  205. 1218 [139]pt[179][178]30[175]pm[178]9[167][142]
  206. 1220 [139]pt[179][178]31[175]pm[178]10[167][142]
  207. 1221 [139]pt[179][178]30[175]pm[178]11[167][142]
  208. 1222 [139]pt[179][178]31[175]pm[178]12[167][142]
  209. 1250 [153]"def str$as str$atum ist falsch":[129]i[178]1[164]5000:[130]
  210. 1251 po[178]560:[141]3:[153]"                                         "
  211. 1252 po[178]600:[141]3:[153]"                                         "
  212. 1260 po[178]640:[141]3:[153]"                                         "
  213. 1270 po[178]660:[141]3:[153]"                                         ":[137]57
  214. 2000 pi$[178]"listchr$eboren am ":[153]"load":[153][163]15)"print"v$:[153]:[153]pi$;g;m;j
  215. 2002 [153]:[153]:[153]"sys(NULL)rognose fuer den";pt;".";pm;".";pj
  216. 2003 oi$[178]"sys   left$oroskop v.left$ans mid$oachim (NULL)eyer,1988  ":po[178]800:[141]3:[153]oi$
  217. 2004 po[178]280:[141]3:[153]"(NULL)oment,die str$aten werden eingelesen!"
  218. 2005 [139]pt[178]g[175]pm[178]m[167][153]:[153]"left$clresysropenzliclisthverifyeprint#n chr$lueckwunsch zum chr$eburtstag"
  219. 2006 [139]pt[178]6[175]pm[178]12[167][153]:[153]" left$eute ist (NULL)ikolaus.left$ast str$u ein chr$eschenk?"
  220. 2007 [139]pt[178]24[175]pm[178]12[167][153]:[153]"openascroehliche (NULL)einnachten und alles chr$ute"
  221. 2008 [139]pt[178]31[175]pm[178]12[167][153]:[153]"(NULL)rsysoopensiverifyt poke(NULL)printecontulistjdefaforhverifyr"
  222. 2009 [139]pj[178]j[175]pm[179]m[167][153]:[153]"(NULL)ie sind noch nicht geboren??"
  223. 2010 [139]j[177]pj[167][153]:[153]"(NULL)erden (NULL)ie noch geboren??"
  224. 2011 [139]j[179]1868[175]pj[177][178]1988[167][153]:[153]"(NULL)ie sind ueberdef120mid$ahre alt???"
  225. 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."
  226. 2013 [139]j[178]pj[175]m[178]pm[175]pt[177][178]g[167][153]:[153]"(NULL)ie da ein ascrischling !"
  227. 2014 [139]pm[178]m[175]pj[178]j[175]pt[179]g[167][153]:[153]"valine (NULL)rognose kurz vor der chr$eburt?"
  228. 2015 [139]pj[179]1800[167][153]"(NULL)ie haben sich sicher geirrt":[129]i[178]1[164]3000:[130]:[137]92
  229. 2016 po[178]640:[141]3:[153]"defthentab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(fn"
  230. 2017 [153]"defthenvaligenschaftenfn                         +tototototototototototototosgn"
  231. 2018 [137]8000
  232. 2020 [129]i[178]1[164]2000:[130]
  233. 4000 v[178][181](12[172][187](0))[170]1
  234. 4010 [145]v[137]5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100
  235. 5000 [141]9600:[141]10000:w[178][181](6[172][187](0))[170]1
  236. 5011 [145]w[137]5020,5030,5040,5050,5060,5070
  237. 5020 [153]"right$n der (NULL)artnerschaft kann es (NULL)robleme   geben ,aber wer sich mit";
  238. 5021 [153]" left$umor der (NULL)rob-leme stellt wird leicht mit jeder (NULL)age  fertig":[137]9500
  239. 5030 [153]"(NULL)er sich gut bettet der schlaeft gut.   str$ieser (NULL)pruch kommt nicht";
  240. 5031 [153]" von ungefaehr"
  241. 5032 [153]"(NULL)er ein paar kleine (NULL)egeln einhaelt der hat schon gute lenhancen sich";
  242. 5033 [153]" mit seinen  (NULL)roblemen gut auseinandersetzen zu koen-nen":[137]9500
  243. 5040 [153]"(NULL)ie treten auf der (NULL)telle obwohl so     manches in ascluss ist.";
  244. 5041 [153]"mid$etzt nicht unge-  duldig werden und abwarten ob sich eine";
  245. 5042 [153]" bestimmte (NULL)ituation geklaert hat.(NULL)eine  atnngst vor einer atnbsage":[137]9500
  246. 5050 [153]"(NULL)chmuecken (NULL)ie sich nicht mit fremden   ascedern!(NULL)ie zahlen sonst einen";
  247. 5051 [153]" hohen     (NULL)reis.(NULL)erden (NULL)ie lieber auf chr$ebieten    aktiv,die (NULL)ie";
  248. 5052 [153]" souveraen beherrschen.str$annwird auch der valrfolg nicht ausbleiben."
  249. 5053 [137]9500
  250. 5060 [153]"right$n chr$eldangelegenheiten vorsichtig ope-  rieren sonst droht ein ";
  251. 5061 [153]"finanzieller     (NULL)einfall.chr$esundheitlich ist keine (NULL)olke am left$immel zu ";
  252. 5062 [153]"erkennen.chr$ut fuer (NULL)otto-   spieler!atnm (NULL)onntag ruhig angehen lassen!"
  253. 5063 [137]9500
  254. 5070 [153]"ascoerdern (NULL)ie right$hre peekewegungsfreiheit     damit right$hre vielseitigen ";
  255. 5071 [153]"ascaehigkeiten    voll zur chr$eltung kommen.right$hr (NULL)artner hat viel (NULL)er";
  256. 5072 [153]"trauen in right$hre (NULL)chaffenskraft.  valnttaeuschen (NULL)ie ihn nicht.":[137]9500
  257. 5100 [141]9600:[141]10000:w[178][181](6[172][187](0))[170]1
  258. 5111 [145]w[137]5120,5130,5140,5150,5160,5170
  259. 5120 [153]"ascinanziell sollten (NULL)ie jetzt kuerzer    treten denn chr$eld kann man immer"
  260. 5121 [153]"auf die hohe (NULL)ante legen.(NULL)anche (NULL)uenscheauf der (NULL)unschliste";
  261. 5122 [153]" sollten (NULL)ie sich    noch verkneifen.vals kommen bessere (NULL)eiten.":[137]9500
  262. 5130 [153]"(NULL)ie koennen sich zur (NULL)eit nur schwer zu einer valntscheidung aufraffen";
  263. 5131 [153]",und das    liegt right$hnen im (NULL)agen.right$hr (NULL)roblem laesst sich aber nicht dad";
  264. 5132 [153]"urch loesen,das (NULL)ie  es links liegenlassen,right$nitiative ist an-gesagt!"
  265. 5133 [137]9500
  266. 5140 [153]"(NULL)ie haben sich im (NULL)on vergriffen,und right$hr(NULL)artner ist darueber veraergert";
  267. 5141 [153]".str$as     sollte (NULL)ie nicht wundern,denn (NULL)ie kennenja seine valmpfindlich";
  268. 5142 [153]"keit.(NULL)un ist (NULL)eit   sich versoehnlich zu zeigen!":[137]9500
  269. 5150 [153]"(NULL)uemmern (NULL)ie sich jetzt nur um (NULL)enschen die fuer (NULL)ie wichtig sind";
  270. 5151 [153]".(NULL)ufallsbekanntschaften bringen (NULL)ie nicht weiter.";
  271. 5152 [153]"chr$ehen (NULL)ie mit left$umor an eine grosse atnufgabe.   (NULL)ie werden es schaffen."
  272. 5153 [137]9500
  273. 5160 [153]"(NULL)ie sind auf menschliche (NULL)aehe ange-    wiesen.vals hat keinen (NULL)inn sich";
  274. 5161 [153]" abzukap- seln.(NULL)reffen (NULL)ie jetzt keine einsamen   valntscheidungen,die right$hr";
  275. 5162 [153]" (NULL)eben veraendern.right$hr (NULL)artner hat atnnspruch auf peeketeiligungan right$hremclose(NULL)eben."
  276. 5163 [137]9500
  277. 5170 [153]"right$hre berufliche (NULL)unkunft scheint ge-    sichert,aber (NULL)orsicht vor zu";
  278. 5171 [153]" grossen    valrwartungen.right$hr (NULL)rivatleben verlaeuft imatnugenblick ohne";
  279. 5172 [153]" (NULL)robleme.(NULL)ie haben eine glueckliche left$and beim (NULL)otto.(NULL)iel chr$lueck."
  280. 5173 [137]9500
  281. 5200 [141]9600:[141]10000:w[178][181](6[172][187](0))[170]1
  282. 5211 [145]w[137]5220,5230,5240,5250,5260,5270
  283. 5220 [153]"(NULL)ie kapseln sich zu sehr ab,wo right$hnen    gerade jetzt neue valindruecke";
  284. 5221 [153]" guttun wuerden,um aus einer gewissen (NULL)esignation   wieder";
  285. 5222 [153]" herauszukommen.(NULL)ehmen (NULL)ie mal wieder eine valinladung an oder";
  286. 5223 [153]" gehen (NULL)ie    toll aus!":[137]9500
  287. 5230 [153]"peekerufliche atnngelegenheiten bereiten     right$hnen (NULL)opfschmerzen.mid$etzt";
  288. 5231 [153]" muessen (NULL)ie   sich etwas einfallen lassen,wie (NULL)ie die ";
  289. 5232 [153]"(NULL)chwierigkeiten beheben koennen.str$a viel auf dem (NULL)piel steht";
  290. 5233 [153]" werden (NULL)ie darum    nicht nervoes.vals wird schon klappen !":[137]9500
  291. 5240 [153]"valine veworrenen atnngelegenheit macht     right$hnen (NULL)orgen,weil (NULL)ie nicht";
  292. 5241 [153]" sehen,wie   (NULL)ie diese entwirren koennten.(NULL)ersuchen  (NULL)ie keine ";
  293. 5242 [153]"chr$ewaltloesung,sondern warten  (NULL)ie ab,manches loest sich von selbst"
  294. 5243 [137]9500
  295. 5250 [153]"str$ie ascehler der (NULL)onkurenz sind jetzt right$hr (NULL)orteil,nutzen (NULL)ie right$hre ";
  296. 5251 [153]"lenhance.str$er valr-  folg ist nur dem (NULL)uechtigen zueigen.str$ie chr$esundheit haelt";
  297. 5252 [153]" eine kleine valrkaeltung in der left$interhand,also aufgepasst!":[137]9500
  298. 5260 [153]"(NULL)assen (NULL)ie sich nicht zu sehr von atnnde- ren in peekeschlag nehmen";
  299. 5261 [153]" sonst kommen (NULL)ie selbst zu kurz.(NULL)ie muessen sich (NULL)eit    fuer ";
  300. 5262 [153]"valntspannung goennen,sonst nimmt right$hrchr$emuet noch (NULL)chaden.chr$ut fuer (NULL)rlaub."
  301. 5263 [137]9500
  302. 5270 [153]"left$aben sie keine chr$eheimnisse vor right$hrem   (NULL)artner.valr hat ein (NULL)echt auf";
  303. 5271 [153]" valhrlichkeit(NULL)assen sie sich nicht von falschen      ascreunden zu (NULL)aten";
  304. 5272 [153]" bringen,die (NULL)ie nicht wollen.(NULL)elbstvertrauen ist gefragt!":[137]9500
  305. 5300 [141]9600:[141]10000:w[178][181](6[172][187](0))[170]1
  306. 5311 [145]w[137]5320,5330,5340,5350,5360,5370
  307. 5320 [153]:[153]"(NULL)ie sind mit atnrbeit ueberlastet,und     dadurch kommt right$hr (NULL)rivatleben";
  308. 5321 [153]" zu kurz.  (NULL)ie muessen aber unbedingt mehr (NULL)eit    fuer right$hren (NULL)artner";
  309. 5322 [153]" eruebrigen,bevor er  right$hnen ernsthaft zuernt.(NULL)assenveranstal- tungen ";
  310. 5323 [153]"sollten (NULL)ie meiden!":[137]9500
  311. 5330 [153]"right$n der (NULL)artnerschaft kann es einige (NULL)n- ruhe geben,denn die (NULL)eigung";
  312. 5331 [153]",einer gros- sen (NULL)ersuchung nachzugeben,ist gross.
  313. 5332 print"[196]och ungestraft spielt niemand mit dem  [198]euer.[214]erbrennen [211]ie sich ";
  314. 5333 print"nicht die     [198]inger! ":goto9500
  315. 5340 print"[199]eistig sind [211]ie jetzt in [200]ochform und  haben in allem,was [211]prache";
  316. 5341 print" und [211]chrift  betrifft,eine glueckliche [200]and.[211]o koen- nen [211]ie";
  317. 5342 print" bestimmte [193]bmachungen treffen   und [214]ertraege schliessen!":goto9500
  318. 5350 print"[201]hre [208]artnerschaft steht vor einer      [194]ewaehrungsprobe.[204]assen [211]ie";
  319. 5351 print" sich nicht  von falschen [210]atschlaegen leiten.[211]ie    sollten selbst ";
  320. 5352 print"entscheiden ob [201]hr       [208]artner recht hat.[214]ersoehnung kann sehr";
  321. 5353 print" schoen sein.[206]ichts ueberstuerzen. "
  322. 5359 goto9500
  323. 5360 print"[211]ie sind in einer [199]luecksphase.[204]assen   [211]ie nicht von [201]hren [214]oraben";
  324. 5361 print" abbringen eswird [201]hnen gelingen.[208]rivat ziehen ein   paar [215]olken";
  325. 5362 print" auf.[211]ie muessen sich jetzt  um gute [208]artnerschaft bemuehen,denn ";
  326. 5363 print"[201]hreganze [203]raft werden [211]ie brauchen."
  327. 5369 goto9500
  328. 5370 print"[197]s will [201]hnen jemand einen [198]ehler zum   [208]roblem aufbauschen.[204]assen ";
  329. 5371 print"[211]ie sich     nicht aus der [210]eserve locken.[193]lles      klaert sich auf.[201]m";
  330. 5372 print" [208]rivatleben ist im   [205]oment keine [214]eraenderung zu erkennen.";
  331. 5373 print"  [194]leiben [211]ie aktiv.[201]hr [203]oerper dankt es.":goto9500
  332. 5400 gosub9600:gosub10000:w=int(6*rnd(0))+1
  333. 5411 onwgoto5420,5430,5440,5450,5460,5470
  334. 5420 print"[211]ie duerfen nicht alles glauben was     [201]hnen in einer romantischen ";
  335. 5421 print" [211]tunde ins [207]hr gefluestert wird,und hueten [211]ie sichdavor";
  336. 5422 print",auf [214]ersprechungen hereinzufallen,die jeder [210]ealitaet entbehren."
  337. 5429 goto9500
  338. 5430 print"[197]ine [197]rfolgversprechende [201]dee geht [201]hnennicht mehr aus dem [203]opf.";
  339. 5431 print"[197]ile mit [215]eile  sollte jetzt [201]hr [205]otto sein.[211]amstag gut fuer [204]otto";
  340. 5432 print"spiele.[197]s winkt ein kleiner   [199]ewinn";
  341. 5433 print".[198]uellen [211]ie mal wieder einen     [211]chein aus":goto9500
  342. 5440 print"[197]s geht im [205]oment nicht alles nach      [215]unsch.[206]un geht es mit kleinen";
  343. 5441 print" [211]chrittenweiter wieder voran.[206]ur durch [193]usdauer  kommen [211]ie an [201]hr ";
  344. 5442 print"[218]iel.[197]ine [199]ehalts-    erhoehung steht ins [200]aus":goto9500
  345. 5450 print"[211]ie haben eine [197]ntscheidung getroffen.  [194]leiben [211]ie [201]hr treu,denn";
  346. 5451 print" [215]ankelmut     bringt [211]ie nicht weiter,es macht [211]ie    eher ";
  347. 5452 print"unglaubwuerdig.[208]rivat stehen neue  [197]rlebnisse ins [200]aus.[214]iel [211]pass "
  348. 5459 goto9500
  349. 5460 print"[197]ine unerwartete [206]achricht kann [211]ie zum [213]mdenken zwingen.[204]assen ";
  350. 5461 print"[211]ie sich nicht  zur [197]ile treiben.[203]eine [197]ntscheidung musssofort ";
  351. 5462 print"fallen.[213]eberlegen [211]ie gut.[211]pielen[211]ie auch  mal wieder [204]otto.":goto9500
  352. 5470 print"[201]hr [208]artner erwartet das [211]ie mal wieder nett zu [201]hm sind.[211]ehr gut";
  353. 5471 print" waere eine    kleine [210]eise,aber auch ein schoenes     [197]ssen ist ";
  354. 5472 print"nicht zu verachten.[196]enken [211]ie mal wieder an [193]ndere.":goto9500
  355. 5500 gosub9600:gosub10000:w=int(6*rnd(0))+1
  356. 5511 onwgoto5520,5530,5540,5550,5560,5570
  357. 5520 print"[211]ie sind zur [218]eit rastlos und moechten  etwas [206]eues beginnen.[194]evor [211]ie";
  358. 5521 print" sich     blindlings in ein [193]benteuer stuerzen,   sollten [211]ie allerdings";
  359. 5522 print" erst genau wissen,was sie wirklich wollen.[196]ann koennen   [211]ie";
  360. 5523 print" handeln.[214]iel [197]rfolg .":goto9500
  361. 5530 print"[204]assen sie sich durch den [193]lltagsaerger nicht [201]hren [198]eierabend verder";
  362. 5531 print"ben.[194]each- ten [211]ie die [210]atschlaege eines [203]ollegen  besser,dann wird auch";
  363. 5532 print" keine [208]anne mehr  passieren":goto9500
  364. 5540 print"[196]isharmonien in der [208]artnerschaft ueber-schatten die [215]oche.[215]enn [211]ie";
  365. 5541 print" nicht etwas nachgiebiger sind,kann es zu einem hand-festen [203]rach";
  366. 5542 print" kommen.[197]ine finazielle     [213]eberaschung winkt zum [215]ochenende.":goto9500
  367. 5550 print"[197]ine heikle [211]ituation steht bevor.[211]ie   haben sie durch ein wenig";
  368. 5551 print" [204]eichtsinn    selbst verschuldet.[214]ersuchen [211]ie einen  klaren [203]opf ";
  369. 5552 print"zu behalten.[197]s wird sich    schon klaeren.":goto9500
  370. 5560 print"[193]ngelegenheiten mit [215]ohnung oder [200]aus   stehen jetzt an,[211]ie sind ";
  371. 5561 print"gefordert.     [205]achen [211]ie das [194]este daraus.[201]hr [208]artner ist mit";
  372. 5562 print" [201]hnen einer [205]einung.[206]utzen [211]ie  die [199]unst der [211]tunde.":goto9500
  373. 5570 print"[208]lanen [211]ie jetzt [201]hr [215]ochenende,die     [198]amilie ist wichtiger denn";
  374. 5571 print" je.[201]m [194]eruf  steht [201]hnen jetzt eine positive [214]eraen- derung bevor";
  375. 5572 print",lassen [211]ie sich ueberaschen ":goto9500
  376. 5600 gosub9600:gosub10000:w=int(6*rnd(0))+1
  377. 5611 onwgoto5620,5630,5640,5650,5660,5670
  378. 5620 print"[194]remsen [211]ie [201]hre [193]usgaben;denn [211]ie      koennen sich keine [197]xtravaganzen";
  379. 5621 print" leisten[215]as nicht unbedingt noetig ist,muessen  [211]ie zurueckstellen";
  380. 5622 print".[193]uch [201]hr [208]artner     sollte finazielles [193]ugenmass bewahren.":goto9500
  381. 5630 print"[211]ie sind von zwiespaeltigen [199]efuehlen   hin- und hergerissen und haben";
  382. 5631 print" zur [218]eit nicht die [203]raft,eine definitive [197]nt-    scheidung zu treffen";
  383. 5632 print".[193]m besten lassen   [211]ie alles einfach auf sich zukommen.":goto9500
  384. 5640 print"[211]ie haben das [199]efuehl,beruflich auf der [211]telle zu treten.[196]as ist ";
  385. 5641 print"ein [201]rrtum,    [201]hnen fehlt nur eine [208]ortion [199]eduld,aber[201]hr [203]urs ist";
  386. 5642 print" richtig,und den sollten [211]iebeibehalten.":goto9500
  387. 5650 print"[196]ie [215]elt scheint sich verschworen zu    haben denn [211]ie haben kein";
  388. 5651 print" [199]lueck im     [205]oment,doch lassen [211]ie den [203]opf nicht   haengen,es ";
  389. 5652 print"geht  wieder vorwaerts.in der[204]iebe gibt es eine neue [214]ariante.[211]ie";
  390. 5653 print"    sollten sich nicht in [211]treitereien mit  dem [208]artner verstricken."
  391. 5654 goto9500
  392. 5660 print"[211]ie sin in falschen [214]erdacht geraten,   aber ruhig [194]lut,denn die ";
  393. 5661 print"[211]achlage klaertsich zu [201]hren [199]unsten.[194]eruflich vorsich-tig ";
  394. 5662 print"operieren;eher dezent an neue       [208]rojekte  heranwagen.":goto9500
  395. 5670 print"[193]uch wenn [211]ie gegen den [211]trom schwimmen bleiben [211]ie";
  396. 5671 print" fest in der [211]ache.[201]hr       [198]amilienleben velaeuft ruhig  und es ";
  397. 5672 print"   kann auch einen [199]eldgewinn geben.[211]pielen[211]ie mal [204]otterie.":goto9500
  398. 5700 gosub9600:gosub10000:w=int(6*rnd(0))+1
  399. 5711 onwgoto5720,5730,5740,5750,5760,5770
  400. 5720 print"[201]n diesen [212]agen muessen [211]ie wohl oder   uebel ein heisses [197]isen ";
  401. 5721 print"anfassen,aber   bekanntlich wird nichts so heiss geges- sen,wie es ";
  402. 5722 print"gekocht wird.[193]lso keine [193]ngsthaben und diese [193]ngelegenheit aus ";
  403. 5723 print"der   [215]elt schaffen.":goto9500
  404. 5730 print"[201]n dieser [215]oche meint es das [211]chicksal  gut mit [201]hnen.[201]m [194]eruf";
  405. 5731 print" koennen [211]ie einen[197]rfolg verbuchen,der [201]hr [211]elbstbewusst- sein";
  406. 5732 print" noch steigert.[205]it der [199]esundheit   heisst es aber aufpassen!!":goto9500
  407. 5740 print"[204]egen [211]ie in dieser [215]oche jedes [215]ort aufdie [199]oldwaage,denn ein";
  408. 5741 print" falsches [215]ort    kann eine gute [194]eziehung gefaehrden.    [213]eberhaupt";
  409. 5742 print" sollten [211]ie jede [213]eberaktivi-taet meiden.[214]orsicht beim [211]port!!":goto9500
  410. 5750 print"[201]hnen fallen [197]rfolge zu,ohne dass  [211]ie  sich anstrengen muessen.";
  411. 5751 print"[193]uch [201]hr [200]erz   darf sich gut aufgehoben fuehlen.";
  412. 5752 print"so     mancher braucht jetzt [201]hren [210]at.[211]choep- fen [211]ie aus [201]hren";;
  413. 5753 print" [197]rfahrungen.":goto9500
  414. 5760 print"[197]ine [206]achricht kann [211]ie jetzt aus dem   [199]leichgewicht bringen ";
  415. 5761 print"[211]ie sollten sich  mit [201]hrem [208]artner jetzt zusammentun dannwerden";
  416. 5762 print" [211]ie es meistern.[204]assen [211]ie den   [205]ut nicht sinken!":goto9500
  417. 5770 print"[197]ine [215]olke am [200]immel macht noch keinen  [210]egen.[211]ie sollten die ";
  418. 5771 print"[212]atsachen nicht   ueberbewerten,sonst geraten [211]ie schnell ins";
  419. 5772 print" [193]bseits.[204]assen [211]ie alles ruhiger    an sich herankommen!":goto9500
  420. 5800 gosub9600:gosub10000:w=int(5*rnd(0))+1
  421. 5811 onwgoto5820,5830,5840,5850,5860,5870
  422. 5820 print"[197]ine [194]ehoerdenangelegenheit schleppt    sich hin,es koennte nicht";
  423. 5821 print" schaden,wenn  [211]ie mal nachfragen.[199]eduld muessen [211]ie   dennoch haben";
  424. 5822 print".[201]hre [196]ispositionen zum    [215]ochenende werden [211]ie aendern muessen":goto9500
  425. 5830 print"[214]erplempern [211]ie [201]hre zeit nicht mit den falschen [204]euten,das bringt";
  426. 5831 print" nur [214]erdruss mit dem [208]artner ein.[198]inanziell steht    alles bestens,";
  427. 5832 print"und haben keinen [199]rund,aufein windiges [193]ngebot einzugehen.";
  428. 5833 print"[196]enken  [211]ie mal an [213]rlaub":goto9500
  429. 5840 print"[211]ie sind in diesen [212]agen sehr aktiv,und alles geht [201]hnen leicht ";
  430. 5841 print"von der [200]and.   [214]ergessen [211]ie bei [201]hrer [194]etriebsamkeit  einen guten";
  431. 5842 print" [194]ekannten nicht,der auf eine[206]achricht von [201]hnen wartet!":goto9500
  432. 5850 print"[211]ie werden feststellen das sich alles   einpendelt,was an neuem auf";
  433. 5851 print" [211]ie ein-    stuermt.[211]ie kommen langsam wieder in    ruhigere  [199]e-";
  434. 5852 print" filde.[211]ie beherrschen.die neue [211]ituation mit [197]rfolg." :goto9500
  435. 5860 print"[204]egen [211]ie in dieser [215]oche unbedingt eine[197]rholungspause ein.";
  436. 5861 print"[197]s steht sonst ein   gesundheitliche [212]ief in [193]ussicht.[194]eruf- liche ";
  437. 5862 print"[193]ktivitaeten auf [211]parflamme drehenso kommen [211]ie gut zurecht.":goto9500
  438. 5870 print"[197]ine drueckende [214]erpflichtung moechten  [211]ie am liebsten vergessen,";
  439. 5871 print"doch [211]ie duer-fen nichts vertroedeln sonst kann es    brenzlig werden.";
  440. 5872 print"[208]roben [211]ie keinen [193]lleingang,sondern lassen [211]ie sich helfen !":goto9500
  441. 5900 gosub9600:gosub10000:w=int(6*rnd(0))+1
  442. 5911 onwgoto5920,5930,5940,5950,5960,5970
  443. 5920 print"[201]hr [207]ptimismus uebertraegt sich auch auf[201]hren [208]artner.[197]ine ";
  444. 5921 print"glueckliche [215]oche    steht [201]hnen bevor.[197]in [208]ositionswechsel  ist ";
  445. 5922 print" moeglich.[208]flegen [211]ie [201]hre [204]iebe.[197]s wird sich auszahlen.":goto9500
  446. 5930 print"[206]ur wer sich mueht und plagt dem ist der[197]rfolg vorausgesagt.";
  447. 5931 print"[196]ieses [215]ort ist fuer[211]ie passend.[211]ie werden fuer [201]hre [205]uehe  belohnt";
  448. 5932 print".[214]erzichten [211]ie aber,[203]ritik an   [193]nderen zu ueben.[197]s wird [201]hnen ";
  449. 5933 print"[198]reunde  bringen,die [211]ie brauchen koennen!":goto9500
  450. 5940 print"[197]in alter [215]unsch im [215]ohnungsfragen geht bald in [197]rfuellung.[204]assen";
  451. 5941 print" [211]ie sich [218]eit fuer eine [193]ufgabe,die [201]hre ganze [193]uf-   merksamkeit";
  452. 5942 print" fordert.[196]ann wird [211]ie auch  gelingen.[201]hr [208]artner steht mit [210]at und  [212]at";
  453. 5943 print" zur [211]eite ":goto9500
  454. 5950 print"[211]ie haengen trueben [199]edanken nach und   sind mit sich unzufrieden ";
  455. 5951 print"doch bedenken [211]ie wie die [215]elt auch schoen sein kann. [201]hr [208]artner ";
  456. 5952 print"braucht [211]ie auch jetzt.     [196]enken [211]ie ein wenig positiv !":goto9500
  457. 5960 print"[212]reue sollte fuer [211]ie immer mehr sein   als das [215]ort.[196]enken [211]ie daran";
  458. 5961 print"[201]hr [208]artnerhat auch [201]hre [204]iebe noetig.[203]ein [205]ensch  kann allein ";
  459. 5962 print"leben.[193]lles zu teilen heisstdoppelt zu bekommen!":goto9500
  460. 5970 print"[201]n dieser [215]oche stehen einige finazielle[208]robleme an.[204]oesen [211]ie ";
  461. 5971 print"es wie immer mit [213]eberlegung und ohne [200]ast.[194]eruflich ist keine ";
  462. 5972 print"[215]olke am [200]immel zu erkennen.[199]lueckam [215]ochenende!":goto9500
  463. 6000 gosub9600:gosub10000:w=int(4*rnd(0))+1
  464. 6011 onwgoto6020,6030,6040,6050
  465. 6020 print"[196]ie [204]iebe [201]hres [208]artners wird von [201]hnen in dieser [215]oche strapaziert";
  466. 6021 print".[204]assen [211]ie  [201]hrem [208]artner den [198]reiraum den er       braucht,erdruecken ";
  467. 6022 print"[211]ie nicht [201]hre       [199]emeinsamkeit.[201]n beruflicher [200]insicht   ist keine ";
  468. 6023 print"[215]olke am [200]immel zu erkennen!":goto9500
  469. 6030 print"[204]assen [211]ie sich nicht ins [194]ockshorn     jagen.[214]emeiden [211]ie [213]ebermut";
  470. 6031 print" denn [213]eber- mut der schadet mehr als er nutzt.[201]hr   [208]artner wird es ";
  471. 6032 print" [201]hnen danken.[194]eruflich werden sich die [215]ogen glaetten.[197]s geht ";
  472. 6033 print" aufwaerts":goto9500
  473. 6040 print"[211]ie sind [201]hrem [208]artner noch eine [193]ntwortschuldig.[211]ie haben die ";
  474. 6041 print"[205]oeglichkeit sichzu entfalten.[197]ine ruhige [193]rbeitswoche   wartet ";
  475. 6042 print"auf [211]ie.[204]assen [211]ie sich nicht ausder [210]uhe bringen":goto9500
  476. 6050 print"[201]n dieser [215]oche werden [215]eichen gestellt fuer die [218]ukunft achten ";
  477. 6051 print"darauf das [211]ie  nicht zu schlecht abschneiden.[205]achen [211]ieeinen ";
  478. 6052 print"wichtigen [194]esuch,dann kann nichts mehr schiefgehen."::goto9500
  479. 6100 gosub9600:gosub10000:w=int(4*rnd(0))+1
  480. 6111 onwgoto6120,6130,6140,6150
  481. 6120 print"[200]ueten [211]ie sich vor allzu grossen       [215]agnissen,denn [211]ie sind stark";
  482. 6121 print" unfallge- faehrdet.[196]ie [208]artnerschaft ist unter    starkem [196]ruck also";
  483. 6122 print" aufgepasst![196]ie [204]iebe ist keine [197]inbahnstrasse.[211]ie sollten    etwas tun!"
  484. 6129 goto9500
  485. 6130 print"[199]ut fuer [213]nternehmungen.[211]ie sollten mal wieder einen [193]usflug mit";
  486. 6131 print" der [198]amilie    unternehmen,gemeinsame [197]rlebnissse      fuehren die ";
  487. 6132 print"[198]amilie wieder zusammen.    [204]assen [211]ie das [215]ochenende ruhig";
  488. 6133 print"         verlaufen.[193]chten [211]ie auf [197]rkaeltungen!":goto9500
  489. 6140 print"[194]eruflich steht eine [214]eranderung ins    [200]aus.[208]rivat kaum [208]robleme";
  490. 6141 print".[201]hr  [208]artner  steht [201]hnen treu zur [211]eite.[205]it [210]uhe und ";
  491. 6142 print"[193]usgeglichenheit kann man vieles";
  492. 6143 print"        meistern.[196]ie [215]elt erscheint in neuem    [204]icht";
  493. 6144 print" wenn man positiv denkt.":goto9500
  494. 6150 print"[197]in [198]reund braucht [201]hre [200]ilfe ist aber  nicht in der [204]age [201]hnen ";
  495. 6151 print"dieses zuzugeben[199]ehen [211]ie auf [201]hn zu und helfen [211]ie wenn[211]ie ";
  496. 6152 print"koennen.[201]m [194]eruf ist eine unange-   nehme [211]ituation zu meistern":goto9500
  497. 7000 print:print:print"[158][201]hre [199]lueckszahlen: ":forn=1to7
  498. 7001 letz=int(49*rnd(0))+1
  499. 7002 forp=1ton
  500. 7003 ifz=l(p)thengoto7001
  501. 7004 nextp
  502. 7005 letl(n)=z
  503. 7006 print""l(n);:fori=1to100:next
  504. 7007 nextn
  505. 7008 return
  506. 8000 print"[152]":gosub9100
  507. 8001 ai$="[211]teinbock"
  508. 8002 bi$="[215]assermann"
  509. 8003 ci$="[198]ische"
  510. 8004 di$="[215]idder"
  511. 8005 ei$="[211]tier"
  512. 8006 fi$="[218]willinge"
  513. 8007 gi$="[203]rebs"
  514. 8008 hi$="[204]oewe"
  515. 8009 ii$="[202]ungfrau"
  516. 8010 ki$="[215]aage"
  517. 8011 li$="[211]korpion"
  518. 8012 mi$="[211]chuetze"
  519. 8013 ifv$=ai$then9000
  520. 8014 ifv$=bi$then9001
  521. 8015 ifv$=ci$then9002
  522. 8016 ifv$=di$then9003
  523. 8017 ifv$=ei$then9004
  524. 8018 ifv$=fi$then9005
  525. 8019 ifv$=gi$then9006
  526. 8020 ifv$=hi$then9007
  527. 8021 ifv$=ii$then9008
  528. 8022 ifv$=ki$then9009
  529. 8023 ifv$=li$then9010
  530. 8024 ifv$=mi$then9011
  531. 8025 return
  532. 9000 ai$=al$:u$=u$+al$:goto9060
  533. 9001 bi$=bl$:u$=u$+bl$:goto9060
  534. 9002 ci$=cl$:u$=u$+cl$:goto9060
  535. 9003 di$=dl$:u$=u$+dl$:goto9060
  536. 9004 ei$=el$:u$=u$+el$:goto9060
  537. 9005 fi$=fl$:u$=u$+fl$:goto9060
  538. 9006 gi$=gl$:u$=u$+gl$:goto9060
  539. 9007 hi$=hl$:u$=u$+hl$:goto9060
  540. 9008 ii$=il$:u$=u$+il$:goto9060
  541. 9009 ki$=kl$:u$=u$+kl$:goto9060
  542. 9010 li$=ll$:u$=u$+ll$:goto9060
  543. 9011 mi$=ml$:u$=u$+ml$:goto9060
  544. 9012 goto50
  545. 9060 forx=1to40
  546. 9061 x$=x$+" "
  547. 9062 nextx
  548. 9066 u$=x$+u$
  549. 9067 s=1
  550. 9068 t=24
  551. 9069 po=735:gosub3:printchr$(145)mid$(u$,s,t)
  552. 9070 forz=1to100:next
  553. 9071 s=s+1
  554. 9073 ifs>len(u$)thengoto 2020
  555. 9074 goto9069
  556. 9100 al$="[211]teinbock.[201]mmer mit dem [203]opf durch die [215]and.[210]auh aber herzlich. "
  557. 9101 bl$="[215]assermann.[218]aertlich ,schuechtern,zur [214]ersoehnung bereit.[197]hrlich.  "
  558. 9102 cl$="[198]ische.[213]nberechenbar,etwas rechthaberisch,aber in der [210]egel treu.    "
  559. 9103 dl$="[215]idder.[218]ornig,stuermisch,in der [204]iebe gewandt.[211]ehr sinnlich!   "
  560. 9104 el$="[211]tier.[214]orausschauend,etwas traege aber zuverlaessig und treu.        "
  561. 9105 fl$="[218]willing.[218]wei [211]eelen in einer [194]rust.[193]ktionsfreudig aber wankend.  "
  562. 9106 gl$="[203]rebs.[193]bwartend,zurueckhaltend,aber treu  und aufrecht,guter [198]reund "
  563. 9107 hl$="[204]oewe.[200]errschend,treu,aber auch sehr bestimmt.[213]nbeugsam und stark.   "
  564. 9108 il$="[202]ungfrau.[214]erstandesmensch,traegt das [200]erz auf der [218]unge,treu,ehrlich. "
  565. 9109 kl$="[215]aage.[193]bwartend,zurueckhaltend,mehr defensiv,aber zuverlaessig.     "
  566. 9110 ll$="[211]korpion.[197]twas unzuverlaessig,aber treffende [199]eistesblitze,treu.     "
  567. 9111 ml$="[211]chuetze.[218]ielstrebig,nicht wankend,sehr sinnlich,manchmal stuermisch. "
  568. 9112 return
  569. 9500 gosub7000:po=920:gosub3:printoi$:goto11000
  570. 9600 print"[147]":printtab(15)"[153]"v$:print:printpi$;:printg;m;j:print"":return
  571. 10000 print"[196]ie [208]rognose fuer den";pt;".";pm;".";pj
  572. 10001 print"lautet: "
  573. 10010 return
  574. 11000 rem
  575. 11001 forx=1to40
  576. 11002 k$=k$+" "
  577. 11003 nextx
  578. 11004 l$="[159][205]it [198] 1 weiter! "
  579. 11005 g$=k$+l$
  580. 11006 s=1:t=39
  581. 11007 po=840:gosub3:printchr$(145)mid$(g$,s,t)
  582. 11008 forz=1to10:next
  583. 11009 s=s+1
  584. 11010 ifs>(40+len(l$))/2then11012
  585. 11011 goto11007
  586. 11012 print:print
  587. 11013 for x=1to40
  588. 11014 k$=k$+" "
  589. 11015 nextx
  590. 11016 l$=" [197]nde mit [198] 3 ! [150]"
  591. 11017 g$=k$+l$
  592. 11018 s=len(g$)
  593. 11019 t=1
  594. 11020 po=880:gosub3:printchr$(145)mid$(g$,s,t)
  595. 11021 forz=1to10:next
  596. 11022 t=t+1
  597. 11023 s=s-1
  598. 11024 ift>(41+len(l$))/2then11100
  599. 11025 goto11020
  600. 11100 getz$:ifz$=""then11100
  601. 11110 ifz$=chr$(133)then50
  602. 11120 ifz$=chr$(134)then200
  603. 11130 ifz$<>chr$(133)orz$<>chr$(134)then11100
  604. 11131 print"[147]":printchr$(14)chr$(8):poke53280,0:poke53281,0:poke646,1
  605. 11132 printtab(11)"[152][213]nsere [211]terne":print
  606. 11134 printtab(11)"[158][213]nser [211]chicksal":print:print:print
  607. 11136 print"    [150][200]oroskop v. [200]ans-[202]oachim [205]eyer"
  608. 11137 print:printtab(15)"1988"
  609. 11141 po=560:gosub3:poke53280,0:poke53281,0:poke646,1
  610. 11142 print"[159][196]ieses [208]rogramm erstellt [201]hnen eine":print:gosub12000
  611. 11143 print"[151][208]rognose eines von [201]hnen gewuenschten":print:gosub12000
  612. 11144 print"[153][212]ages.dazu noch eine [210]eihe von [199]luecks":print:gosub12000
  613. 11145 print"[152]zahlen,die [211]ie benutzen koennen um [201]hr":print:gosub12000
  614. 11146 print"[155][199]lueck zu finden.":gosub12000:fori=1to5000:next:return
  615. 12000 fori=1to1000:next:return
  616.