home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 10 / Dark_Star_10_1996_-_de_Side_B.d64 / horoskop (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  718 lines
  1. 90 rem ***** device test ***************
  2. 91 fori=49152to49185:readj:pokei,j:nexti
  3. 92 data 169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
  4. 93 data192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
  5. 100 rem **** vereinbarungen ************
  6. 105 print"[147]":poke53281,0:poke53280,0
  7. 110 dimb(13),sz$(12),mt(12),pl$(60),mk(60),da(10),el$(12),mk$(12),fa$(12)
  8. 112 dimgt$(12),me$(12),ms$(12),qt(12)
  9. 113 dimpe$(12,7),ce$(12,3)
  10. 114 dims1(24),s2(24),s3(24),s4(24),s5(24),s6(24)
  11. 115 fa=-0.066
  12. 120 b(1)=0:b(2)=2.6:b(3)=5.41:b(4)=7.87:b(5)=9.7:b(6)=10.95
  13. 130 b(7)=11.75:b(8)=12.75:b(9)=13.80:b(10)=15.70:b(11)=18.12:b(12)=20.9
  14. 135 b(13)=23.74
  15. 170 mt(1)=31:mt(2)=28:mt(3)=31:mt(4)=30:mt(5)=31:mt(6)=30:mt(7)=30:mt(8)=31
  16. 180 mt(9)=30:mt(10)=31:mt(11)=30:mt(12)=31
  17. 190 fori=1to60:readpl$(i),mk(i):next
  18. 200 fori=1to12:readel$(i),mk$(i),fa$(i),gt$(i),me$(i):next
  19. 210 fori=1to12:readsz$(i):next
  20. 220 fori=1to12:readms$(i):next
  21. 230 fori=1to12:forj=1to7:readpe$(i,j):nextj:nexti
  22. 240 fori=1to12:forj=1to3:readce$(i,j):nextj:nexti
  23. 250 fori=1to24:reads1(i),s2(i),s3(i),s4(i),s5(i),s6(i):nexti
  24. 260 qt(1)=20:qt(2)=19:qt(3)=20:qt(4)=20:qt(5)=20:qt(6)=21:qt(7)=22:qt(8)=23
  25. 270 qt(9)=23:qt(10)=23:qt(11)=22:qt(12)=21
  26. 300 rem *** anleitung ******************
  27. 310 print"[147]"tab(252)"h o r o s k o p"
  28. 320 printtab(16)"p 1986"
  29. 330 printtab(13)"hans  friebe"
  30. 499 fori=1to1500:next
  31. 500 rem **** hauptprogramm *************
  32. 505 gosub5000:rem vorbefragung
  33. 507 ifdr=1thengosub34000:rem namenseing
  34. 510 gosub1000:rem  dateneingabe
  35. 520 gosub25000:rem geb.zeit korrektur
  36. 530 gosub21000:rem tageszahl berechnen
  37. 540 gosub4000:rem  sternzeichen ermitt.
  38. 550 gosub3000:rem  aszendentenberechnen
  39. 552 ifdr=1thengosub33000:goto500
  40. 560 gosub24000:rem datentafel
  41. 570 gosub28000:rem wahlanalyse/kurzinfo
  42. 580 onwagoto590,600,610
  43. 590 gosub27000:gosub28500:goto560
  44. 600 gosub29000:gosub28500:goto560:rem kurzinfo
  45. 610 goto500
  46. 999 goto510
  47. 1000 rem *** eingabe geburstag *********
  48. 1010 print"[147]horoskop                    dateneingabe";
  49. 1015 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  50. 1020 ifsu=0then1030
  51. 1025 print"berechnung ihres aszendenten unmoeglich![145][145]";
  52. 1030 print"   ihr geburtsdatum :           [146]"
  53. 1040 print"   z.b. (4.11.1939)"
  54. 1045 ifsu=1then1070
  55. 1050 print" ihre geburtsstunde :   [146]"
  56. 1051 print"             (0-23)"
  57. 1052 ifmu=1thenmi=0:goto1070
  58. 1055 print"            minuten :   [146]"
  59. 1060 print"             (0-59)"
  60. 1070 q1=7:q2=22:q3=10:q7=1:gosub30000:gd$=q4$:gosub22000:ifwi=1then1070
  61. 1075 ifsu=1then1110
  62. 1080 q1=13:q2=22:q3=2:gosub30000:gs=val(q4$):ifgs<0orgs>23then1080
  63. 1085 ifmu=1then1110
  64. 1090 q1=17:q2=22:q3=2:gosub30000:mi=val(q4$):ifmi<0ormi>59then1090
  65. 1110 q1=24:q2=9:gosub30340:print"eingabe ok? [160]j[146]a n[146]ein";
  66. 1120 geti$:ifi$="j"then1999
  67. 1130 ifi$="n"then1000
  68. 1140 goto1120
  69. 1999 return
  70. 2000 rem *** eingabe geburstag o.min.***
  71. 2010 print"[147]horoskop                    dateneingabe";
  72. 2020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  73. 2030 print"   ihr geburtsdatum :           [146]"
  74. 2040 print"   z.b. (4.11.1939)"
  75. 2047 printmi$
  76. 3000 rem *** aszendenten ermitteln *****
  77. 3005 ifsu=1then3060
  78. 3010 fb=gs-fa*tz
  79. 3015 iffb>=24thenfb=fb-24
  80. 3020 fori=1to12:ii=i+1
  81. 3030 ifb(i)<=fbandfb<b(ii)thenas=i:i=12
  82. 3040 nexti
  83. 3042 iffb>=23.74thenas=1
  84. 3050 as=as+9:ifas>12thenas=as-12
  85. 3060 return
  86. 4000 rem *** sternzeichen ermitteln ****
  87. 4010 ifgt>qt(gm)thenhz=gm+1+12*(gm=12)
  88. 4020 ifgt<=qt(gm)thenhz=gm
  89. 4030 return
  90. 5000 rem *** vorbefragung **************
  91. 5010 print"[147]horoskop                    vorbefragung";
  92. 5020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  93. 5025 print"die aufgrund ihrer geburtsdaten berech-"
  94. 5026 print"neten astrologischen aussagen sind umso"
  95. 5027 print"treffender, je genauer sie angaben ueber";
  96. 5028 print"ihre geburtsstunde machen koennen."
  97. 5030 print"fuer die ermittlung ihres aszendenten"
  98. 5031 print"ist die angabe ihrer geburtsstunde"
  99. 5032 print"erforderlich!"
  100. 5033 print"zeitverschiebungen durch sommerzeit "
  101. 5034 print"in den jahren 1916-1949 und 1979-1989"
  102. 5035 print"werden automatisch beruecksichtigt!"
  103. 5036 print"ausgabe auf drucker        [146]"
  104. 5040 print"geburtsstunde bekannt      [146]"
  105. 5050 print"geburtsminute bekannt      [146]"
  106. 5055 q1=24:q2=0:gosub30340:print" bitte antworten sie mit ja oder nein";
  107. 5060 q1=14:q2=23:q3=4:q7=0:gosub30000
  108. 5065 ifq4$="nein"thendr=0:lz$="":goto5070
  109. 5066 ifq4$<>"ja"then5060
  110. 5067 gosub55040:ifdr=1thenlz$="                    ":goto5070
  111. 5069 goto5000
  112. 5070 q1=17:q2=23:q3=4:q7=0:gosub30000
  113. 5080 ifq4$="ja"thensu=0:goto5110
  114. 5090 ifq4$="nein"thensu=1:mu=1:goto5150
  115. 5100 goto5070
  116. 5110 q1=20:q2=23:q3=4:q7=0:gosub30000
  117. 5120 ifq4$="ja"thenmu=0:goto5150
  118. 5130 ifq4$="nein"thenmu=1:goto5150
  119. 5140 goto5110
  120. 5150 return
  121. 21000 rem ** tageszahl berechnen *******
  122. 21005 tz=0
  123. 21010 ifgm=1then21040
  124. 21020 fori=1togm-1:tz=tz+mt(i)
  125. 21030 nexti
  126. 21040 tz=tz+gt
  127. 21050 return
  128. 22000 rem ** 3 werte aus string ********
  129. 22005 w(1)=0:w(2)=0:w(3)=0
  130. 22010 zz$="":ii=1:wi=0
  131. 22020 fori=1to10
  132. 22030 za$=mid$(gd$,i,1)
  133. 22040 ifza$<>"."thenzz$=zz$+za$:goto22060
  134. 22050 w(ii)=val(zz$):ii=ii+1:zz$=""
  135. 22060 nexti
  136. 22070 w(ii)=val(zz$)
  137. 22080 gt=w(1):gm=w(2):gj=w(3)
  138. 22100 ifgm<1orgm>12thenwi=1:goto22200
  139. 22110 ifgt<1orgt>mt(gm)-(gm=2)thenwi=1:goto22200
  140. 22120 ifgj<1800orgj>2000thenwi=1
  141. 22200 return
  142. 23000 rem ** zeile 24 loeschen *********
  143. 23010 q1=24:q2=0:gosub30340:print"                                      ";
  144. 23020 return
  145. 24000 rem ** datentafel ****************
  146. 24005 ifdr=1then24030
  147. 24010 print"[147]horoskop                      datentafel";
  148. 24020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  149. 24025 print:print
  150. 24030 printlz$"ihre geburtsdaten"
  151. 24035 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  152. 24040 printlz$"geburtstag  : "gd$
  153. 24045 printlz$"geburtstunde: ";:ifsu=1thenprint"-":goto24052
  154. 24046 x$=str$(int(gs%)):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$;":";
  155. 24047 x$=str$(mi%):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1)
  156. 24048 printx$" (";
  157. 24049 x$=str$(int(gs)):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$;":";
  158. 24050 x$=str$(mi):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$")";
  159. 24052 print:printlz$"geburtsort  : "pl$(gp);" oder naehe"
  160. 24055 print
  161. 24060 printlz$"ihre astrologischen daten"
  162. 24070 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  163. 24080 printlz$"sternzeichen: "sz$(hz)
  164. 24090 printlz$"aszendent   : ";:ifsu=1thenprint"-":goto24094
  165. 24092 printsz$(as)
  166. 24094 print
  167. 24095 printlz$"traditionelle entsprechungen"
  168. 24096 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  169. 24100 printlz$"element     : "el$(hz)
  170. 24110 printlz$"koerperteile: "mk$(hz)
  171. 24120 printlz$"farbe       : "fa$(hz)
  172. 24130 printlz$"stein       : "gt$(hz)
  173. 24140 printlz$"metall      : "me$(hz)
  174. 24170 return
  175. 25000 rem ** korrekturtabelle  *********
  176. 25010 print"[147]horoskop                      geburtsort";
  177. 25020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  178. 25040 fori=1to19
  179. 25050 printitab(5)pl$(i)tab(21)i+20tab(26)pl$(i+20)
  180. 25060 next
  181. 25061 printitab(5)pl$(20)
  182. 25070 q1=23:q2=0:gosub30340:print" stadt naehe geburtsort? (1-39)    [146]";
  183. 25080 q2=33:q3=2:gosub30000:gp=int(val(q4$)):ifgp<0orgp>39then25070
  184. 25083 ifgp=37orgp=38thengosub25500
  185. 25084 ifsu=1then25270
  186. 25085 mi%=mi:gs%=gs:rem unkor.zeitp. %
  187. 25090 mi=mi+mk(gp)
  188. 25100 ifmi>59thenmi=mi-60:gs=gs+1:gosub53000:goto25160
  189. 25110 ifmi<0thenmi=60+mi:gs=gs-1:gosub53000
  190. 25160 fori=1to24
  191. 25180 ifgj<>s3(i)then25230
  192. 25190 ifgm<s2(i)orgm>s5(i)then25230
  193. 25200 ifgm=s2(i)andgt<s1(i)then25230
  194. 25210 ifgm=s5(i)andgt>s4(i)then25230
  195. 25220 sk=1:i=50:goto25240
  196. 25230 sk=0
  197. 25240 nexti
  198. 25250 ifsk=1thengs=gs-1
  199. 25260 gosub53000
  200. 25270 gs=gs+mi/60:return
  201. 25500 rem ** korrekt. schweiz/oesterr.**
  202. 25510 print"[147]horoskop                      geburtsort";
  203. 25520 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  204. 25540 fori=40to50
  205. 25550 printitab(5)pl$(i)tab(21)i+10tab(26)pl$(i+10)
  206. 25560 next
  207. 25570 q1=23:q2=0:gosub30340:print" stadt naehe geburtsort? (40-60)   [146]";
  208. 25580 q2=33:q3=2:gosub30000:gp=int(val(q4$)):ifgp<40orgp>60then25570
  209. 25590 return
  210. 26000 rem ** datas f. korekturtabelle **
  211. 26010 data aachen,-15,augsburg,4,berlin,14,bonn,-11,braunschweig,2,bremen,-5
  212. 26020 data bresslau,28,chemnitz,12,danzig,34,dresden,15,duesseldorf,-13
  213. 26030 data essen,-12,frankfurt/m.,-5,frankfurt/o.,18,freiburg i.b.,-9
  214. 26040 data halle,8,hamburg,0,hannover,-1,heidelberg,-5
  215. 26050 data jena,6,kassel,-2,kiel,1,koeln,-12,koenigsberg,42,konstanz,-3
  216. 26060 data leipzig,10,luebeck,3,magdeburg,7,mainz,-7,mannheim,-6,muenchen,6
  217. 26070 data nuernberg,4,regensburg,8,saarbruecken,-12,stuttgart,-3,wuerzburg,0
  218. 26071 data schweiz,0,oesterreich,0,ausland,0
  219. 26072 data basel,-10,bern,-10,brig,-8,chur,-2,genf,-16,lausanne,-14
  220. 26073 datalugano,-5,luzern,-7,neuenburg,-13,schaffhausen,-6,st. gallen,-3
  221. 26074 datazuerich,-6,bregenz,-1,graz,22,innsbruck,6,linz,17,salzburg,12
  222. 26075 data wien,25,klagenfurt,12,villach,15,ausland,0
  223. 26080 data erde,knie und haut,schwarz,onyx u. chalzedon,blei
  224. 26090 data luft,hand u. fussgelenke,-,saphir u.schwarze perle,nickel
  225. 26100 data wasser,fuesse u. zehen,blau,chrysolith u. koralle,zink
  226. 26110 data feuer,kopf u. gesicht,rot,amethyst,stahl
  227. 26120 data erde,hals u. rachen,gruen,achat,messing
  228. 26130 data luft,arme,-,beryll,quecksilber
  229. 26140 data wasser,brust u. magen,blau,smaragd,silber
  230. 26150 data feuer,ruecken u. herz,gelb,rubin,gold u. kupfer
  231. 26160 data erde,bauch u. eingeweide,grau,jaspis,aluminium u. neusilber
  232. 26170 data luft,lenden u. nieren,gruen,diamant,kupfer
  233. 26180 data wasser,genitale,rot,topas,eisen
  234. 26190 data feuer,schenkel u. arterien,blau,karfunkel u. granat,zinn
  235. 26200 data steinbock,wassermann,fisch,widder,stier,zwilling,krebs,loewe,jungfrau
  236. 26210 data waage,skorpion,schuetze
  237. 26220 data steinboecke,wassermaenner,fische,widder,stiere,zwillinge,krebse
  238. 26230 data loewen,jungfrauen,waagen,skorpione,schuetzen
  239. 26240 data konrad adenauer,albert schweizer,heinrich nordhoff,martin niemoeller
  240. 26250 data conrad hilton,marlene dietrich,hildegard knef
  241. 26260 data friedrich der grosse,abraham lincoln,theodor heuss,ludwig erhardt
  242. 26270 data juliet greco, nastasja kinski,john travolta
  243. 26280 dataalbert einstein,karlheinz boehm,heinz ruehmann,grete weiser,karl may
  244. 26290 data rosa luxemburg,nadja tiller
  245. 26300 datajean paul belmondo,rudi dutschke,wilhelm conrad roentgen,casanova
  246. 26310 dataanna magnani,vincent van gogh,herbert von karajan
  247. 26320 data juliane von holland,golda meir,paul hoerbiger,sigmund freud
  248. 26330 data sebastian kneip,bernhard grizmek,koenigin elisabeth von england
  249. 26340 data j.f.kennedy, peter frankenfeld,marilyn monroe,charles aznavour
  250. 26350 data thomas mann, konstantin wecker,josephine baker
  251. 26360 data herman hesse,franz kaffka,louis amstrong,gina lollobrigida
  252. 26370 data friedrich flick,natalie wood,jean jacques rousseau
  253. 26380 data napoleon, benito mussolini,jaqueline kennedy,fidel castro
  254. 26390 data henry ford,prinzessin margarete,kaiser franz joseph i   v.o.
  255. 26400 data romy schneider, franz beckenbauer,ingrid bergmann,greta garbo
  256. 26410 datacarl zeiss,theodor storm,johann wolfgang von goethe
  257. 26420 data heinrich luebke,rita hayworth,alfred nobel,brigitte bardot
  258. 26430 datadavid ben gurion,mahatma ghandi,freiherr von knigge
  259. 26440 dataindira ghandi,martin luther,rudolf augstein,grace kelly
  260. 26450 data  catherin hephburn,wolf biermann,barabara hutton
  261. 26460 data  frank sinatra,ludwig v. beethoven,curd juergens,alice schwarzer
  262. 26470 data willy brandt,barbara valentin,winston churchill
  263. 26480 data konzentration/pflichtbewusstsein/fleiss
  264. 26490 data verschlossenheit/misstrauen/starrsinn
  265. 26500 data zaehigkeit/ernst/hemmung
  266. 26510 data reformerisches denken/menschenkenntnis
  267. 26530 data freiheitsmanie/auflehnung gegen bevor-
  268. 26540 data mundung/soziales u. humanitaeres denken
  269. 26550 data sensibilitaet/aufnahmefaehigkeit/geduld
  270. 26560 data naechstenliebe/beeinflussbarkeit
  271. 26570 data bequemlichkeit/nachlaessigkeit
  272. 26580 datadynamik/tatkraft/mut/kuehnheit
  273. 26590 data zielbewusstsein/herrschsucht
  274. 26600 data streitlust/aggressivitaet
  275. 26610 data beharrlichkeit/verinnerlichung
  276. 26620 dataformensinn/kunstverstaendnis
  277. 26630 datamaterialismus/genussucht/bequemlichkeit
  278. 26640 data flexibilitaet/vielseitigkeit/sprach- u.
  279. 26650 data redebegabung/ruhelosigkeit/wankel-
  280. 26660 data muetigkeit/oberflaechlichkeit
  281. 26670 datafuersorglichkeit/gefuehlsreichtum
  282. 26680 datahaeuslichkeit/guete/verschlossenheit
  283. 26690 data zurueckhaltung/empfindlichkeit
  284. 26700 data selbstsicherheit/organisationstalent
  285. 26710 data fuerhungseigenschaft/grosszuegigkeit
  286. 26720 data selbstueberschaetzung/egoismus
  287. 26740 data korrektheit/analytisches denken
  288. 26750 data ordnungssinn/methodik/pedanterie
  289. 26760 data kritisches denken/noergelei
  290. 26770 data kunstverstaendnis/gemeinschaftssinn
  291. 26780 data diplomatie/ausgleichungsbestreben
  292. 26790 data beeinflussbarkeit/wankelmuetigkeit
  293. 26800 datawillenskraft/zaehigklkeit/kampfesmut
  294. 26810 datafurchtlosigkeit/ruecksichtslosigkeit
  295. 26820 dataeifersucht/uebertriebener ehrgeiz
  296. 26830 data idealismus/begeisterungsfaehigkeit/mut
  297. 26840 data starker gerechtigkeitssinn
  298. 26850 data tendenz schonungslos zu kritisieren
  299. 26860 data30,4,1916,1,10,1916
  300. 26865 data16,4,1917,17,9,1917
  301. 26870 data15,4,1918,16,9,1918
  302. 26875 data1,4,1940,31,12,1940
  303. 26880 data1,1,1941,31,12,1941
  304. 26885 data1,1,1942,2,11,1942
  305. 26890 data29,3,1943,3,10,1943
  306. 26895 data3,4,1944,7,10,1944
  307. 26900 data2,4,1945,16,9,1945
  308. 26905 data14,4,1946,7,10,1946
  309. 26910 data6,4,1947,5,10,1947
  310. 26915 data18,4,1948,3,10,1948
  311. 26920 data10,4,1949,2,10,1949
  312. 26930 data1,4,1979,29,9,1979
  313. 26931 data30,3,1980,27,9,1980
  314. 26932 data29,3,1981,26,9,1981
  315. 26933 data28,3,1982,25,9,1882
  316. 26934 data27,3,1983,24,9,1983
  317. 26935 data25,3,1984,29,9,1984
  318. 26936 data31,3,1985,28,9,1985
  319. 26937 data30,3,1986,27,9,1986
  320. 26938 data29,3,1987,26,9,1987
  321. 26939 data27,3,1988,24,9,1988
  322. 26940 data26,3,1989,23,9,1989
  323. 27000 rem ** wahlanalyse/kurzinfo ******
  324. 27005 ifhz>=7then27030
  325. 27010 onhzgosub40000,40200,40400,40600,40800,41000
  326. 27020 goto27040
  327. 27030 onhz-6gosub41200,41400,41600,41800,42000,42200
  328. 27040 ifsu=1thengosub32000:goto27090
  329. 27045 gosub60000
  330. 27050 ifas>=7then27080
  331. 27060 onasgosub50000,50200,50400,50600,50800,51000
  332. 27070 goto27090
  333. 27080 onas-6gosub51200,51400,51600,51800,52000,52200
  334. 27090 return
  335. 28000 rem ** auswahl char.u.kuszin ****
  336. 28010 q1=24:q2=1:gosub30340:print"  c[146]harackteranalyse  k[146]urzinfo  e[146]nde";
  337. 28020 geti$:ifi$<>"c"andi$<>"k"andi$<>"e"then28020
  338. 28030 wa=-(i$="c")-2*(i$="k")-3*(i$="e"):return
  339. 28500 rem ** ausstieg char.u.kuszin ****
  340. 28510 q1=24:q2=16:gosub30340:print"z[146]urueck";
  341. 28520 geti$:ifi$<>"z"then28520
  342. 28530 return
  343. 29000 rem ** datentafel ****************
  344. 29005 ifdr=1then29050
  345. 29010 print"[147]horoskop                        kurzinfo";
  346. 29020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  347. 29050 print:printlz$"ihre eigenschaften, bestimmt durch"
  348. 29060 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  349. 29070 printlz$"a) ihr sternzeichen "sz$(hz):print
  350. 29090 printlz$;ce$(hz,1)
  351. 29100 printlz$;ce$(hz,2)
  352. 29110 printlz$;ce$(hz,3)
  353. 29115 ifsu=0then29120
  354. 29116 print:printlz$"ueber ihre eigenschaften, die durch den"
  355. 29117 printlz$"aszendenten bestimmt werden, kann leider"
  356. 29118 printlz$"[145]keine aussage gemacht werden, da ihre"
  357. 29119 printlz$"geburtsstunde nicht bekannt ist.":print:goto29230
  358. 29120 print:printlz$"b) ihren aszendenten "sz$(as):print
  359. 29130 printlz$;ce$(as,1)
  360. 29140 printlz$;ce$(as,2)
  361. 29150 printlz$;ce$(as,3)
  362. 29230 print:printlz$"bekannte ";ms$(hz)
  363. 29240 printlz$"[163][163][163][163][163][163][163][163][163]"+left$("[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]",len(ms$(hz)))
  364. 29250 printlz$;pe$(hz,1)", "pe$(hz,2)
  365. 29260 printlz$;pe$(hz,3)", "pe$(hz,4)
  366. 29270 printlz$;pe$(hz,5)", "pe$(hz,6)
  367. 29280 printlz$;pe$(hz,7)
  368. 29999 return
  369. 30000 rem ** input at ******************
  370. 30010 q8=0:q9=0
  371. 30020 ifq1>-1thengosub30340:goto30040
  372. 30030 q1=peek(214):q2=peek(211)+2
  373. 30040 forii=1toq3:print" ";:next
  374. 30050 gosub30340
  375. 30060 q5=0:q4$="":poke1024+40*q1+q2,191
  376. 30070 forii=631to640:pokeii,0:next
  377. 30080 q5=q5+1
  378. 30090 getq6$:ifq6$=""then30090
  379. 30100 ifasc(q6$)=32andq5<=1then30090
  380. 30110 ifasc(q6$)=13thenprint:goto30370
  381. 30120 ifasc(q6$)=20orasc(q6$)=157then30220
  382. 30130 ifq7=1then30160
  383. 30140 ifasc(q6$)<32orasc(q6$)>90then30090
  384. 30150 goto30270
  385. 30160 ifasc(q6$)>=48andasc(q6$)<=57then30270
  386. 30170 ifq8=2then30190
  387. 30180 ifasc(q6$)=46orasc(q6$)=44thenq8=q8+1:q6$=".":goto30270
  388. 30190 ifq9=1then30210
  389. 30200 ifasc(q6$)=45andq5=1thenq9=1:goto30270
  390. 30210 goto30090
  391. 30220 ifq5<=1then30090
  392. 30230 q2=q2-1:gosub30340:q8$=mid$(q4$,q5-1,1):ifq8$="."thenq8=q8-1
  393. 30240 ifq8$="-"thenq9=0
  394. 30250 print" ":gosub30340
  395. 30260 q4$=left$(q4$,q5-2):q5=q5-1:goto30090
  396. 30270 q4$=q4$+q6$
  397. 30280 print"";q6$;:q2=q2+1:gosub30340
  398. 30290 ifq5<q3then30080
  399. 30300 q5=q3+1:getq6$:ifq6$=""then30300
  400. 30310 ifasc(q6$)=20orasc(q6$)=157then30220
  401. 30320 ifasc(q6$)=13thenprint:goto30370
  402. 30330 goto30300
  403. 30340 rem ** cursor positionieren ******
  404. 30350 poke214,q1:poke211,q2:sys58640
  405. 30360 return
  406. 30370 ifq4$=""then30000
  407. 30380 return
  408. 31000 rem ** rechtsbund ****************
  409. 31005 za$=str$(int(za))
  410. 31010 ql=ql+1:ifql>14thenprint"[147]laenge ql im up zu gross!!!":end
  411. 31020 iflen(za$)>qlthenza$=">1mio."
  412. 31040 za$=left$("                ",ql-len(za$))+za$
  413. 31050 return
  414. 32000 rem ** aszendenttext unbekannt ***
  415. 32010 print:printlz$"da ihre geburtsstunde nicht bekannt ist,"
  416. 32020 printlz$"[145]kann keine aussage ueber weitere, durch"
  417. 32030 printlz$"den aszendenten praegende charackter-"
  418. 32040 printlz$"eigenschaften gemacht werden!"
  419. 32050 return
  420. 33000 rem ** ausdruckabfrage ***********
  421. 33010 open3,4:cmd3
  422. 33020 print:printlz$"horoskop fuer: "na$
  423. 33030 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  424. 33040 gosub24000:rem datentafel
  425. 33050 print:print:printlz$"ihre besonderen characktermerkmale"
  426. 33055 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  427. 33060 gosub27000:rem text hz
  428. 33070 print
  429. 33080 gosub29000:rem kurzinfo
  430. 33090 print
  431. 33100 print#3:close3
  432. 33999 return
  433. 34000 rem ** namenseingabe *************
  434. 34010 print"[147]horoskop                   namenseingabe";
  435. 34020 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  436. 34030 print"ihr name                           [146]"
  437. 34050 q1=11:q2=10:q3=25:q7=0:gosub30000:na$=q4$
  438. 34999 return
  439. 40000 rem ** text 1 ********************
  440. 40010 printlz$"[147]sie sind sehr zuverlaessig, fleissig,"
  441. 40020 printlz$"diszipliniert, gruendlich und gewissen-"
  442. 40030 printlz$"haft - der geborene karrieretyp."
  443. 40050 print:printlz$"sie lassen aber in ihr inneres nicht so"
  444. 40060 printlz$"leicht einblicken und stehen menschen"
  445. 40070 printlz$"und dingen oft misstrauisch gegenueber."
  446. 40080 printlz$"ihre berufliche postion bauen sie mit"
  447. 40090 printlz$"ernst und konsequenz aus."
  448. 40110 printlz$"sie selten. sie beweisen ihre staerke"
  449. 40120 printlz$"durch hartnaeckigen widerstand."
  450. 40130 print:printlz$"da sie ein zurueckhaltender mensch sind,"
  451. 40140 printlz$"[145]gehen sie nicht direkt auf ihre mitmen-"
  452. 40150 printlz$"schen zu,sondern waehlen indirekte wege."
  453. 40160 printlz$"[145][145]"
  454. 40199 return
  455. 40200 rem ** text 2 ********************
  456. 40210 printlz$"[147]sie sind ein dynamischer und zukunfts-"
  457. 40220 printlz$"orientierter mensch. es fasziniert sie,"
  458. 40230 printlz$"ungewoehnliche aufgaben zu uebernehmen."
  459. 40240 printlz$"ein richtiger forschertyp.
  460. 40250 [153]:[153]lz$"an geduld und ausdauer mangelt es ihnen"
  461. 40260 [153]lz$"sehr. schlagartig geben sie erreichtes"
  462. 40270 [153]lz$"auf und verfolgen neue ziele."
  463. 40280 [153]lz$"ihr freiheitsdrang ist aussergewoehnlich"
  464. 40290 [153]lz$"onstark."
  465. 40300 [153]lz$"sie sehnen sich nach einer partnerschaft"
  466. 40310 [153]lz$"onin der sie diese freiheit in keiner hin-"
  467. 40320 [153]lz$"onsicht aufgeben muessen. "
  468. 40330 [153]:[153]lz$"der partner sollte stark und ruhevoll"
  469. 40340 [153]lz$"sein und die faehigkeit haben sie ab und"
  470. 40350 [153]lz$"onzu aus der phantasie in die realitaet"
  471. 40360 [153]lz$"zurueckzufuehren."
  472. 40399 [142]
  473. 40400 [143] ** text hz 3******************
  474. 40410 [153]lz$"loadsie sind ein sehr empfindsamer mensch,"
  475. 40420 [153]lz$"der haeufig in die welt der traeume und"
  476. 40430 [153]lz$"des scheins flieht. sie moechten allen"
  477. 40440 [153]lz$"menschen helfen doch bleibt es oft beim"
  478. 40450 [153]lz$"wunsch."
  479. 40460 [153]:[153]lz$"sie sind kein kaempfer und resignieren "
  480. 40465 [153]lz$"sehr schnell. "
  481. 40470 [153]:[153]lz$"gutgemeinte ratschlaege ihrer umwelt"
  482. 40480 [153]lz$"laehmen geradezu ihre eigene entschei-"
  483. 40490 [153]lz$"dungsfaehigkeit."
  484. 40500 [153]:[153]lz$"mit ihren launen stellen sie die geduld"
  485. 40510 [153]lz$"ihrer freunde oft auf harte proben."
  486. 40520 [153]:[153]lz$"sie sollten einen mutigen und kampfes-"
  487. 40530 [153]lz$"freudigen partner an ihrer seite haben."
  488. 40599 [142]
  489. 40600 [143] ** text hz 4******************
  490. 40610 [153]lz$"loadsie verfuegen ueber eine grosse impulsi-"
  491. 40620 [153]lz$"onvitaet und starke vitalitaet."
  492. 40630 [153]lz$"bei der verfolgung ihrer ziele bedienen"
  493. 40640 [153]lz$"sie sich oft der weniger feinen mittel."
  494. 40650 [153]:[153]lz$"angriffen aus ihrer umwelt stellen sie "
  495. 40660 [153]lz$"sich entschlossen und mutig."
  496. 40680 [153]lz$"in geldfragen neigen sie ebenso zu ver-"
  497. 40690 [153]lz$"schwendung wie im umgang mit ihrer "
  498. 40700 [153]lz$"eigenen energie."
  499. 40740 [153]:[153]lz$"in ihrem freundeskreis gelten sie als"
  500. 40750 [153]lz$"lebhaft und schlagfertig. sie wissen gut"
  501. 40760 [153]lz$"onzu formulieren,sind forscbittsglaeubig"
  502. 40770 [153]lz$"onund zu jeder diskussion bereit."
  503. 40780 [153]:[153]lz$"ihr partner sollte kritisch distanzierte"
  504. 40790 [153]lz$"onvernunft mitbringen.
  505. 40799 return
  506. 40800 rem ** text hz 5 *****************
  507. 40810 printlz$"[147]sie sind ein langmuetiger und fuersorg-"
  508. 40820 printlz$"licher mensch. sie treffen keine ent-"
  509. 40830 printlz$"scheidungen ohne reifliche ueberlegung,"
  510. 40840 printlz$"streben nach sicherheit und stabilitaet."
  511. 40850 printlz$"ihre geduld ist sehr gross, wird sie"
  512. 40860 printlz$"ueberstrapaziert, entlaedt sich die "
  513. 40870 printlz$"gestaute agression erruptiv."
  514. 40880 print:printlz$"bei der verfolgung eines ziels haben sie"
  515. 40890 printlz$"[145]grosse ausdauer. fehlschlaege nehmen"
  516. 40900 printlz$"sie sich schwer zu herzen, hindern sie"
  517. 40910 printlz$"jedoch nicht an einem weiteren versuch."
  518. 40920 printlz$"eine starke maetrielle einstellung"
  519. 40930 printlz$"ist dabei nicht zu uebersehen."
  520. 40940 print:printlz$"von ihrem partner erwarten sie eiserne"
  521. 40950 printlz$"treue und solidaritaet."
  522. 40999 return
  523. 41000 rem ** text hz 6 *****************
  524. 41010 printlz$"[147]sie sind ein sehr schnell reagierender"
  525. 41020 printlz$"mensch mit einem beweglichen und wachen"
  526. 41030 printlz$"verstand. eindruecke werden sofort auf-"
  527. 41040 printlz$"genommen, verarbeitet und der umgebung"
  528. 41050 printlz$"mitgeteilt."
  529. 41060 print:printlz$"ihre liebe zur abwechslung laesst das"
  530. 41070 printlz$"noetige ausreifen eines gedankens ver-"
  531. 41080 printlz$"missen. auf ihre mitmenschen wirken sie"
  532. 41090 printlz$"eher oberflaechlich gelten aber als"
  533. 41100 printlz$"gesellig, sprach- und redegewandt."
  534. 41110 print:printlz$"groesseren problemen stellen sie sich"
  535. 41120 printlz$"nicht gerne und ziehen die flucht einer"
  536. 41130 printlz$"auseinandersetzung vor."
  537. 41140 printlz$"sie sollten sich einen partner suchen,"
  538. 41150 printlz$"der bei ihren ideenfluten die spreu vom""
  539. 41160 [153]lz$"weizen trennt."
  540. 41199 [142]
  541. 41200 [143] ** text hz 7 *****************
  542. 41210 [153]lz$"loadsie sind ein sehr sensibler mensch und"
  543. 41220 [153]lz$"haben ein gespuer fuer menschliches."
  544. 41230 [153]lz$"hinter ihrer harten schale verbirgt sich"
  545. 41240 [153]lz$"onein weiches innenleben."
  546. 41250 [153]:[153]lz$"im team und im famielienleben sind sie"
  547. 41260 [153]lz$"sehr fuersorglich u. erkennen als erster"
  548. 41270 [153]lz$"onfehlentwicklungen und spannungen."
  549. 41280 [153]:[153]lz$"ihre friedfertigkeit wird im freundes-"
  550. 41290 [153]lz$"kreis sehr geschaetzt zumal sie zu jedem"
  551. 41300 [153]lz$"onpreis um harmonie bemueht sind."
  552. 41305 [153]lz$"fuer das innerbetriebliche klima sind "
  553. 41306 [153]lz$"sie deshalb geradezu eine garantie."
  554. 41310 [153]:[153]lz$"damit sich ihr seelenleben stabilisieren"
  555. 41320 [153]lz$"onkann, sollten sie sich um einen ruhigen"
  556. 41330 [153]lz$"und einfuehlsamen menschen bemuehen."
  557. 41399 [142]
  558. 41400 [143] ** text hz 8 *****************
  559. 41410 [153]lz$"loadsie verfuegen ueber eine erstaunliche"
  560. 41420 [153]lz$"selbstsicherheit. sind voller lebens-"
  561. 41430 [153]lz$"kraft, vertrauen auf das eigene koennen"
  562. 41440 [153]lz$"und den entsprechenden erfolg."
  563. 41450 [153]lz$"sie verstehen zu organisieren und sind"
  564. 41460 [153]lz$"groesszuegig und einsatzfreudig."
  565. 41470 [153]:[153]lz$"zollt man ihnen nicht beachtung,so"
  566. 41480 [153]lz$"reagieren sie manchmal mit arroganz und"
  567. 41490 [153]lz$"rechthaberei. ihren freunden sind sie"
  568. 41500 [153]lz$"ein guter freund."
  569. 41510 [153]:[153]lz$"beruflich eignen sie sich aufgrung ihrer"
  570. 41520 [153]lz$"onbesonderen fuehrungsqualitaeten dazu,"
  571. 41530 [153]lz$"eine leitende position zu uebernehmen."
  572. 41540 [153]:[153]lz$"in der partnerschaft stellt ihr ange-"
  573. 41550 [153]lz$"borener egoismus eine ernste gefahr dar.onon"
  574. 41599 [142]
  575. 41600 [143] ** text hz 9 *****************
  576. 41610 [153]lz$"loadordnung ist fuer sie das halbe leben!"
  577. 41620 [153]lz$"sie sind kein senkrechtstarter, sondern"
  578. 41630 [153]lz$"arbeiten sich systematisch nach oben."
  579. 41640 [153]lz$"wenn an der basis nicht jede kleinigkeit"
  580. 41650 [153]lz$"onstimmt,geraten sie in gefahr, pedantisch"
  581. 41660 [153]lz$"onzu reagieren."
  582. 41670 [153]:[153]lz$"sie suchen staendig nach festen grenzen"
  583. 41680 [153]lz$"und seelischer sicherheit."
  584. 41690 [153]lz$"aus dieser gefuehlsunsicherheit heraus"
  585. 41700 [153]lz$"schaerfen sie ihre anlagen zur beobach-"
  586. 41710 [153]lz$"tung und wahrnehmnung der umwelt. "
  587. 41720 [153]:[153]lz$"in ihrem freundeskreis schaetzt man "
  588. 41730 [153]lz$"ihre vernunft und holt sich von ihnen"
  589. 41740 [153]lz$"gerne einen klugen rat ein."
  590. 41750 [153]lz$"der partner sollte ein grosses selbstbe-"
  591. 41760 [153]lz$"onwusstsein besitzen und bestaendig sein."
  592. 41799 [142]
  593. 41800 [143] ** text hz 10 ****************
  594. 41810 [153]lz$"loadsie sind sehr friedliebend und immer um"
  595. 41820 [153]lz$"ausgleich bemueht. gutes aussehen und"
  596. 41830 [153]lz$"gute umgansformen sind fuer sie sehr "
  597. 41840 [153]lz$"wichtig. sie interessieren sich fuer "
  598. 41850 [153]lz$"kunst und musik."
  599. 41860 [153]:[153]lz$"im berufsleben hilft ihnen ihr ehrgeiz"
  600. 41870 [153]lz$"und ihr diplomatisches geschick, das "
  601. 41880 [153]lz$"erstrebte ziel zu erreichen."
  602. 41890 [153]:[153]lz$"in der partnerschaft sind sie sehr an-"
  603. 41900 [153]lz$"passungsfaehig und achten immer darauf,"
  604. 41910 [153]lz$"dass beide innerhalb der beziehung die "
  605. 41920 [153]lz$"gleichen rechte erhalten."
  606. 41930 [153]:[153]lz$"wegen ihrem ausgepraegten gemeinschafts-"
  607. 41940 [153]lz$"onsinn und der grossen beweglichkeit, sind"
  608. 41950 [153]lz$"onsie in der gruppe sehr gern gesehen."
  609. 41999 [142]
  610. 42000 [143] ** text hz 11 ****************
  611. 42010 [153]lz$"loadsie sind sensibel signalisieren aber"
  612. 42020 [153]lz$"kampfbereitschaft. deshalb leben sie oft"
  613. 42030 [153]lz$"onin einer disharmonischen umwelt."
  614. 42040 [153]lz$"sie streben nach fuehrung und sind nur"
  615. 42050 [153]lz$"ruhig, wenn sie alles selbst im griff"
  616. 42060 [153]lz$"haben."
  617. 42070 [153]:[153]lz$"von ihrem partner fordern sie absolute"
  618. 42080 [153]lz$"treue. schon geringe anleasse treiben"
  619. 42090 [153]lz$"sie zu rasender eifersucht."
  620. 42100 [153]:[153]lz$"bei der verfolgung beruflicher ziele"
  621. 42110 [153]lz$"beweisen sie willenskraft u. zaehigkeit.";
  622. 42120 [153]:[153]lz$"auf die menschen in ihrer naehe wirken"
  623. 42130 [153]lz$"sie bevormundend. steckt allerdings der"
  624. 42140 [153]lz$"'karren im dreck', ist ihre kampfeslust"
  625. 42150 [153]lz$"und zaehigkeit sehr gefragt."
  626. 42199 [142]
  627. 42200 [143] ** text hz 12 ****************
  628. 42210 [153]lz$"loadsie lassen sich in keine schablone"
  629. 42220 [153]lz$"zwaengen. beharren auf selbstaendigkeit"
  630. 42230 [153]lz$"und unabhaengigkeit. sie sind auf expan-"
  631. 42240 [153]lz$"onsion eingestellt. deshalb ist das aus-"
  632. 42250 [153]lz$"land fuer sie von grossem reiz."
  633. 42260 [153]lz$"ihren standpunkt vertreten sie mit vehe-"
  634. 42270 [153]lz$"onmenz, und kuemmern sich wenig um die "
  635. 42280 [153]lz$"meinungen anderer."
  636. 42290 [153]:[153]lz$"durch ihren ausgepraegten idealismus und"
  637. 42300 [153]lz$"onihr geselliges wesen sind sie bei ihren"
  638. 42310 [153]lz$"freunden sehr beliebt.
  639. 42320 printlz$"der partner sollte ruhe u. erdverbunden-"
  640. 42330 printlz$"[145]heit in das gemeinsame leben bringen."
  641. 42340 print:printlz$"beruflich streben sie staendig nach"
  642. 42350 printlz$"verbesserung und ruhen sich nicht auf"
  643. 42360 printlz$"den lorbeeren aus."
  644. 42399 return
  645. 50000 rem ** text asz 1 ****************
  646. 50010 printlz$"zaehigkeit, pflichtbewusstsein, fleiss"
  647. 50020 printlz$"aber auch verschlossenheit, hemmung und"
  648. 50030 printlz$"starrsinn."
  649. 50040 return
  650. 50200 rem ** text asz 2 ****************
  651. 50210 printlz$"reformerisches denken, humanitaeres"
  652. 50220 printlz$"angagement, auflehnung gegen bevormun-"
  653. 50230 printlz$"dung und starken freiheitsdrang."
  654. 50240 return
  655. 50400 rem ** text asz 3 ****************
  656. 50410 printlz$"geduld, sensibilitaet, aufnahmefaehig-"
  657. 50420 printlz$"keit aber auch stimmungsschwankungen,"
  658. 50430 printlz$"bequemlich- bis nachlaessigkeit."
  659. 50440 return
  660. 50600 rem ** text asz 4 ****************
  661. 50610 printlz$"dynamik, tatkraft, mut, zielbewusstsein"
  662. 50620 printlz$"kuehnheit und leider auch herrschsucht,"
  663. 50630 printlz$"streitlust und agressivitaet."
  664. 50640 return
  665. 50800 rem ** text asz 5 ****************
  666. 50810 printlz$"beharrlichkeit verinnerlichung, formen-"
  667. 50820 printlz$"sinn,kunstverstaendnis aber auch genuss-";
  668. 50830 printlz$"sucht, materialismus und bequemlichkeit."
  669. 50840 return
  670. 51000 rem ** text asz 6 ****************
  671. 51010 printlz$"vielseitigkeit, handlungsbereitschaft,"
  672. 51020 printlz$"sprach und redebegabung leider auch "
  673. 51030 printlz$"wankelmut sowie oberflaechlichkeit."
  674. 51050 return
  675. 51200 rem ** text asz 7 ****************
  676. 51210 printlz$"gefuehlsreichtum,fuersorglichkeit, und"
  677. 51220 printlz$"guete. leider auch empfindlichkeit,"
  678. 51230 printlz$"zurueckhaltung und verschlossenheit."
  679. 51240 return
  680. 51400 rem ** text asz 8 ****************
  681. 51410 printlz$"selbstsicherheit, organisationstalent,"
  682. 51420 printlz$"grosszuegigkeit leider auch selbst-"
  683. 51430 printlz$"ueberschaetzung und egoismus."
  684. 51440 return
  685. 51600 rem ** text asz 9 ****************
  686. 51610 printlz$"korrektheit, analytisches denken, ord-"
  687. 51620 printlz$"nungssinn, kritisches denken, methodik"
  688. 51630 printlz$"leider auch pedanterie und noergelei."
  689. 51640 return
  690. 51800 rem ** text asz 10 ***.***********
  691. 51810 printlz$"diplomatie,ausgleichungsbestreben,kunst-"
  692. 51820 printlz$"[145]verstaendnis, gemeinschaftssinn leider"
  693. 51830 printlz$"auch opportunismus und wankelmut."
  694. 51840 return
  695. 52000 rem ** text asz 11 ***************
  696. 52010 printlz$"willenskraft,zeahigkeit, furchtlosigkeit"
  697. 52020 printlz$"[145]kampfesmut leider auch eifersucht,ueber-"
  698. 52030 printlz$"[145]trieb. ehrgeiz und ruecksichtslosigkeit."
  699. 52040 return
  700. 52200 rem ** text asz 12 ***************
  701. 52210 printlz$"idealismus,begeisterungsfaehigkeit, mut,"
  702. 52220 printlz$"[145]gerechtigkeitssinn aber auch die faehig-"
  703. 52230 printlz$"[145]keit uebers ziel hinauszuschiessen!"
  704. 52240 return
  705. 53000 rem ** korrektur tag/mo  *********
  706. 53010 ifgs>=24thengs=gs-24:goto53030
  707. 53020 ifgs<0thengs=gs+24
  708. 53030 return
  709. 55040 rem ** pruefen drucker ein *******
  710. 55050 poke2,4
  711. 55060 sys49152:ifpeek(2)=0thendr=1:return
  712. 55065 print"[147]          drucker einschalten!"
  713. 55066 fori=1to2000:nexti
  714. 55070 dr=0:return
  715. 60000 rem ** text vor asz **************
  716. 60010 print:printlz$"ihr aszendent bewirkt gleichzeitig"
  717. 60020 return
  718.