home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dark Star 10
/
Dark_Star_10_1996_-_de_Side_B.d64
/
horoskop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
27KB
|
718 lines
90 rem ***** device test ***************
91 fori=49152to49185:readj:pokei,j:nexti
92 data 169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
93 data192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
100 rem **** vereinbarungen ************
105 print"[147]":poke53281,0:poke53280,0
110 dimb(13),sz$(12),mt(12),pl$(60),mk(60),da(10),el$(12),mk$(12),fa$(12)
112 dimgt$(12),me$(12),ms$(12),qt(12)
113 dimpe$(12,7),ce$(12,3)
114 dims1(24),s2(24),s3(24),s4(24),s5(24),s6(24)
115 fa=-0.066
120 b(1)=0:b(2)=2.6:b(3)=5.41:b(4)=7.87:b(5)=9.7:b(6)=10.95
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
135 b(13)=23.74
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
180 mt(9)=30:mt(10)=31:mt(11)=30:mt(12)=31
190 fori=1to60:readpl$(i),mk(i):next
200 fori=1to12:readel$(i),mk$(i),fa$(i),gt$(i),me$(i):next
210 fori=1to12:readsz$(i):next
220 fori=1to12:readms$(i):next
230 fori=1to12:forj=1to7:readpe$(i,j):nextj:nexti
240 fori=1to12:forj=1to3:readce$(i,j):nextj:nexti
250 fori=1to24:reads1(i),s2(i),s3(i),s4(i),s5(i),s6(i):nexti
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
270 qt(9)=23:qt(10)=23:qt(11)=22:qt(12)=21
300 rem *** anleitung ******************
310 print"[147]"tab(252)"h o r o s k o p"
320 printtab(16)"p 1986"
330 printtab(13)"hans friebe"
499 fori=1to1500:next
500 rem **** hauptprogramm *************
505 gosub5000:rem vorbefragung
507 ifdr=1thengosub34000:rem namenseing
510 gosub1000:rem dateneingabe
520 gosub25000:rem geb.zeit korrektur
530 gosub21000:rem tageszahl berechnen
540 gosub4000:rem sternzeichen ermitt.
550 gosub3000:rem aszendentenberechnen
552 ifdr=1thengosub33000:goto500
560 gosub24000:rem datentafel
570 gosub28000:rem wahlanalyse/kurzinfo
580 onwagoto590,600,610
590 gosub27000:gosub28500:goto560
600 gosub29000:gosub28500:goto560:rem kurzinfo
610 goto500
999 goto510
1000 rem *** eingabe geburstag *********
1010 print"[147]horoskop dateneingabe";
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]";
1020 ifsu=0then1030
1025 print"berechnung ihres aszendenten unmoeglich![145][145]";
1030 print" ihr geburtsdatum : [146]"
1040 print" z.b. (4.11.1939)"
1045 ifsu=1then1070
1050 print" ihre geburtsstunde : [146]"
1051 print" (0-23)"
1052 ifmu=1thenmi=0:goto1070
1055 print" minuten : [146]"
1060 print" (0-59)"
1070 q1=7:q2=22:q3=10:q7=1:gosub30000:gd$=q4$:gosub22000:ifwi=1then1070
1075 ifsu=1then1110
1080 q1=13:q2=22:q3=2:gosub30000:gs=val(q4$):ifgs<0orgs>23then1080
1085 ifmu=1then1110
1090 q1=17:q2=22:q3=2:gosub30000:mi=val(q4$):ifmi<0ormi>59then1090
1110 q1=24:q2=9:gosub30340:print"eingabe ok? [160]j[146]a n[146]ein";
1120 geti$:ifi$="j"then1999
1130 ifi$="n"then1000
1140 goto1120
1999 return
2000 rem *** eingabe geburstag o.min.***
2010 print"[147]horoskop dateneingabe";
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]";
2030 print" ihr geburtsdatum : [146]"
2040 print" z.b. (4.11.1939)"
2047 printmi$
3000 rem *** aszendenten ermitteln *****
3005 ifsu=1then3060
3010 fb=gs-fa*tz
3015 iffb>=24thenfb=fb-24
3020 fori=1to12:ii=i+1
3030 ifb(i)<=fbandfb<b(ii)thenas=i:i=12
3040 nexti
3042 iffb>=23.74thenas=1
3050 as=as+9:ifas>12thenas=as-12
3060 return
4000 rem *** sternzeichen ermitteln ****
4010 ifgt>qt(gm)thenhz=gm+1+12*(gm=12)
4020 ifgt<=qt(gm)thenhz=gm
4030 return
5000 rem *** vorbefragung **************
5010 print"[147]horoskop vorbefragung";
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]";
5025 print"die aufgrund ihrer geburtsdaten berech-"
5026 print"neten astrologischen aussagen sind umso"
5027 print"treffender, je genauer sie angaben ueber";
5028 print"ihre geburtsstunde machen koennen."
5030 print"fuer die ermittlung ihres aszendenten"
5031 print"ist die angabe ihrer geburtsstunde"
5032 print"erforderlich!"
5033 print"zeitverschiebungen durch sommerzeit "
5034 print"in den jahren 1916-1949 und 1979-1989"
5035 print"werden automatisch beruecksichtigt!"
5036 print"ausgabe auf drucker [146]"
5040 print"geburtsstunde bekannt [146]"
5050 print"geburtsminute bekannt [146]"
5055 q1=24:q2=0:gosub30340:print" bitte antworten sie mit ja oder nein";
5060 q1=14:q2=23:q3=4:q7=0:gosub30000
5065 ifq4$="nein"thendr=0:lz$="":goto5070
5066 ifq4$<>"ja"then5060
5067 gosub55040:ifdr=1thenlz$=" ":goto5070
5069 goto5000
5070 q1=17:q2=23:q3=4:q7=0:gosub30000
5080 ifq4$="ja"thensu=0:goto5110
5090 ifq4$="nein"thensu=1:mu=1:goto5150
5100 goto5070
5110 q1=20:q2=23:q3=4:q7=0:gosub30000
5120 ifq4$="ja"thenmu=0:goto5150
5130 ifq4$="nein"thenmu=1:goto5150
5140 goto5110
5150 return
21000 rem ** tageszahl berechnen *******
21005 tz=0
21010 ifgm=1then21040
21020 fori=1togm-1:tz=tz+mt(i)
21030 nexti
21040 tz=tz+gt
21050 return
22000 rem ** 3 werte aus string ********
22005 w(1)=0:w(2)=0:w(3)=0
22010 zz$="":ii=1:wi=0
22020 fori=1to10
22030 za$=mid$(gd$,i,1)
22040 ifza$<>"."thenzz$=zz$+za$:goto22060
22050 w(ii)=val(zz$):ii=ii+1:zz$=""
22060 nexti
22070 w(ii)=val(zz$)
22080 gt=w(1):gm=w(2):gj=w(3)
22100 ifgm<1orgm>12thenwi=1:goto22200
22110 ifgt<1orgt>mt(gm)-(gm=2)thenwi=1:goto22200
22120 ifgj<1800orgj>2000thenwi=1
22200 return
23000 rem ** zeile 24 loeschen *********
23010 q1=24:q2=0:gosub30340:print" ";
23020 return
24000 rem ** datentafel ****************
24005 ifdr=1then24030
24010 print"[147]horoskop datentafel";
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]";
24025 print:print
24030 printlz$"ihre geburtsdaten"
24035 printlz$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
24040 printlz$"geburtstag : "gd$
24045 printlz$"geburtstunde: ";:ifsu=1thenprint"-":goto24052
24046 x$=str$(int(gs%)):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$;":";
24047 x$=str$(mi%):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1)
24048 printx$" (";
24049 x$=str$(int(gs)):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$;":";
24050 x$=str$(mi):x$=left$("00",3-len(x$))+right$(x$,len(x$)-1):printx$")";
24052 print:printlz$"geburtsort : "pl$(gp);" oder naehe"
24055 print
24060 printlz$"ihre astrologischen daten"
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]"
24080 printlz$"sternzeichen: "sz$(hz)
24090 printlz$"aszendent : ";:ifsu=1thenprint"-":goto24094
24092 printsz$(as)
24094 print
24095 printlz$"traditionelle entsprechungen"
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]"
24100 printlz$"element : "el$(hz)
24110 printlz$"koerperteile: "mk$(hz)
24120 printlz$"farbe : "fa$(hz)
24130 printlz$"stein : "gt$(hz)
24140 printlz$"metall : "me$(hz)
24170 return
25000 rem ** korrekturtabelle *********
25010 print"[147]horoskop geburtsort";
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]";
25040 fori=1to19
25050 printitab(5)pl$(i)tab(21)i+20tab(26)pl$(i+20)
25060 next
25061 printitab(5)pl$(20)
25070 q1=23:q2=0:gosub30340:print" stadt naehe geburtsort? (1-39) [146]";
25080 q2=33:q3=2:gosub30000:gp=int(val(q4$)):ifgp<0orgp>39then25070
25083 ifgp=37orgp=38thengosub25500
25084 ifsu=1then25270
25085 mi%=mi:gs%=gs:rem unkor.zeitp. %
25090 mi=mi+mk(gp)
25100 ifmi>59thenmi=mi-60:gs=gs+1:gosub53000:goto25160
25110 ifmi<0thenmi=60+mi:gs=gs-1:gosub53000
25160 fori=1to24
25180 ifgj<>s3(i)then25230
25190 ifgm<s2(i)orgm>s5(i)then25230
25200 ifgm=s2(i)andgt<s1(i)then25230
25210 ifgm=s5(i)andgt>s4(i)then25230
25220 sk=1:i=50:goto25240
25230 sk=0
25240 nexti
25250 ifsk=1thengs=gs-1
25260 gosub53000
25270 gs=gs+mi/60:return
25500 rem ** korrekt. schweiz/oesterr.**
25510 print"[147]horoskop geburtsort";
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]";
25540 fori=40to50
25550 printitab(5)pl$(i)tab(21)i+10tab(26)pl$(i+10)
25560 next
25570 q1=23:q2=0:gosub30340:print" stadt naehe geburtsort? (40-60) [146]";
25580 q2=33:q3=2:gosub30000:gp=int(val(q4$)):ifgp<40orgp>60then25570
25590 return
26000 rem ** datas f. korekturtabelle **
26010 data aachen,-15,augsburg,4,berlin,14,bonn,-11,braunschweig,2,bremen,-5
26020 data bresslau,28,chemnitz,12,danzig,34,dresden,15,duesseldorf,-13
26030 data essen,-12,frankfurt/m.,-5,frankfurt/o.,18,freiburg i.b.,-9
26040 data halle,8,hamburg,0,hannover,-1,heidelberg,-5
26050 data jena,6,kassel,-2,kiel,1,koeln,-12,koenigsberg,42,konstanz,-3
26060 data leipzig,10,luebeck,3,magdeburg,7,mainz,-7,mannheim,-6,muenchen,6
26070 data nuernberg,4,regensburg,8,saarbruecken,-12,stuttgart,-3,wuerzburg,0
26071 data schweiz,0,oesterreich,0,ausland,0
26072 data basel,-10,bern,-10,brig,-8,chur,-2,genf,-16,lausanne,-14
26073 datalugano,-5,luzern,-7,neuenburg,-13,schaffhausen,-6,st. gallen,-3
26074 datazuerich,-6,bregenz,-1,graz,22,innsbruck,6,linz,17,salzburg,12
26075 data wien,25,klagenfurt,12,villach,15,ausland,0
26080 data erde,knie und haut,schwarz,onyx u. chalzedon,blei
26090 data luft,hand u. fussgelenke,-,saphir u.schwarze perle,nickel
26100 data wasser,fuesse u. zehen,blau,chrysolith u. koralle,zink
26110 data feuer,kopf u. gesicht,rot,amethyst,stahl
26120 data erde,hals u. rachen,gruen,achat,messing
26130 data luft,arme,-,beryll,quecksilber
26140 data wasser,brust u. magen,blau,smaragd,silber
26150 data feuer,ruecken u. herz,gelb,rubin,gold u. kupfer
26160 data erde,bauch u. eingeweide,grau,jaspis,aluminium u. neusilber
26170 data luft,lenden u. nieren,gruen,diamant,kupfer
26180 data wasser,genitale,rot,topas,eisen
26190 data feuer,schenkel u. arterien,blau,karfunkel u. granat,zinn
26200 data steinbock,wassermann,fisch,widder,stier,zwilling,krebs,loewe,jungfrau
26210 data waage,skorpion,schuetze
26220 data steinboecke,wassermaenner,fische,widder,stiere,zwillinge,krebse
26230 data loewen,jungfrauen,waagen,skorpione,schuetzen
26240 data konrad adenauer,albert schweizer,heinrich nordhoff,martin niemoeller
26250 data conrad hilton,marlene dietrich,hildegard knef
26260 data friedrich der grosse,abraham lincoln,theodor heuss,ludwig erhardt
26270 data juliet greco, nastasja kinski,john travolta
26280 dataalbert einstein,karlheinz boehm,heinz ruehmann,grete weiser,karl may
26290 data rosa luxemburg,nadja tiller
26300 datajean paul belmondo,rudi dutschke,wilhelm conrad roentgen,casanova
26310 dataanna magnani,vincent van gogh,herbert von karajan
26320 data juliane von holland,golda meir,paul hoerbiger,sigmund freud
26330 data sebastian kneip,bernhard grizmek,koenigin elisabeth von england
26340 data j.f.kennedy, peter frankenfeld,marilyn monroe,charles aznavour
26350 data thomas mann, konstantin wecker,josephine baker
26360 data herman hesse,franz kaffka,louis amstrong,gina lollobrigida
26370 data friedrich flick,natalie wood,jean jacques rousseau
26380 data napoleon, benito mussolini,jaqueline kennedy,fidel castro
26390 data henry ford,prinzessin margarete,kaiser franz joseph i v.o.
26400 data romy schneider, franz beckenbauer,ingrid bergmann,greta garbo
26410 datacarl zeiss,theodor storm,johann wolfgang von goethe
26420 data heinrich luebke,rita hayworth,alfred nobel,brigitte bardot
26430 datadavid ben gurion,mahatma ghandi,freiherr von knigge
26440 dataindira ghandi,martin luther,rudolf augstein,grace kelly
26450 data catherin hephburn,wolf biermann,barabara hutton
26460 data frank sinatra,ludwig v. beethoven,curd juergens,alice schwarzer
26470 data willy brandt,barbara valentin,winston churchill
26480 data konzentration/pflichtbewusstsein/fleiss
26490 data verschlossenheit/misstrauen/starrsinn
26500 data zaehigkeit/ernst/hemmung
26510 data reformerisches denken/menschenkenntnis
26530 data freiheitsmanie/auflehnung gegen bevor-
26540 data mundung/soziales u. humanitaeres denken
26550 data sensibilitaet/aufnahmefaehigkeit/geduld
26560 data naechstenliebe/beeinflussbarkeit
26570 data bequemlichkeit/nachlaessigkeit
26580 datadynamik/tatkraft/mut/kuehnheit
26590 data zielbewusstsein/herrschsucht
26600 data streitlust/aggressivitaet
26610 data beharrlichkeit/verinnerlichung
26620 dataformensinn/kunstverstaendnis
26630 datamaterialismus/genussucht/bequemlichkeit
26640 data flexibilitaet/vielseitigkeit/sprach- u.
26650 data redebegabung/ruhelosigkeit/wankel-
26660 data muetigkeit/oberflaechlichkeit
26670 datafuersorglichkeit/gefuehlsreichtum
26680 datahaeuslichkeit/guete/verschlossenheit
26690 data zurueckhaltung/empfindlichkeit
26700 data selbstsicherheit/organisationstalent
26710 data fuerhungseigenschaft/grosszuegigkeit
26720 data selbstueberschaetzung/egoismus
26740 data korrektheit/analytisches denken
26750 data ordnungssinn/methodik/pedanterie
26760 data kritisches denken/noergelei
26770 data kunstverstaendnis/gemeinschaftssinn
26780 data diplomatie/ausgleichungsbestreben
26790 data beeinflussbarkeit/wankelmuetigkeit
26800 datawillenskraft/zaehigklkeit/kampfesmut
26810 datafurchtlosigkeit/ruecksichtslosigkeit
26820 dataeifersucht/uebertriebener ehrgeiz
26830 data idealismus/begeisterungsfaehigkeit/mut
26840 data starker gerechtigkeitssinn
26850 data tendenz schonungslos zu kritisieren
26860 data30,4,1916,1,10,1916
26865 data16,4,1917,17,9,1917
26870 data15,4,1918,16,9,1918
26875 data1,4,1940,31,12,1940
26880 data1,1,1941,31,12,1941
26885 data1,1,1942,2,11,1942
26890 data29,3,1943,3,10,1943
26895 data3,4,1944,7,10,1944
26900 data2,4,1945,16,9,1945
26905 data14,4,1946,7,10,1946
26910 data6,4,1947,5,10,1947
26915 data18,4,1948,3,10,1948
26920 data10,4,1949,2,10,1949
26930 data1,4,1979,29,9,1979
26931 data30,3,1980,27,9,1980
26932 data29,3,1981,26,9,1981
26933 data28,3,1982,25,9,1882
26934 data27,3,1983,24,9,1983
26935 data25,3,1984,29,9,1984
26936 data31,3,1985,28,9,1985
26937 data30,3,1986,27,9,1986
26938 data29,3,1987,26,9,1987
26939 data27,3,1988,24,9,1988
26940 data26,3,1989,23,9,1989
27000 rem ** wahlanalyse/kurzinfo ******
27005 ifhz>=7then27030
27010 onhzgosub40000,40200,40400,40600,40800,41000
27020 goto27040
27030 onhz-6gosub41200,41400,41600,41800,42000,42200
27040 ifsu=1thengosub32000:goto27090
27045 gosub60000
27050 ifas>=7then27080
27060 onasgosub50000,50200,50400,50600,50800,51000
27070 goto27090
27080 onas-6gosub51200,51400,51600,51800,52000,52200
27090 return
28000 rem ** auswahl char.u.kuszin ****
28010 q1=24:q2=1:gosub30340:print" c[146]harackteranalyse k[146]urzinfo e[146]nde";
28020 geti$:ifi$<>"c"andi$<>"k"andi$<>"e"then28020
28030 wa=-(i$="c")-2*(i$="k")-3*(i$="e"):return
28500 rem ** ausstieg char.u.kuszin ****
28510 q1=24:q2=16:gosub30340:print"z[146]urueck";
28520 geti$:ifi$<>"z"then28520
28530 return
29000 rem ** datentafel ****************
29005 ifdr=1then29050
29010 print"[147]horoskop kurzinfo";
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]";
29050 print:printlz$"ihre eigenschaften, bestimmt durch"
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]"
29070 printlz$"a) ihr sternzeichen "sz$(hz):print
29090 printlz$;ce$(hz,1)
29100 printlz$;ce$(hz,2)
29110 printlz$;ce$(hz,3)
29115 ifsu=0then29120
29116 print:printlz$"ueber ihre eigenschaften, die durch den"
29117 printlz$"aszendenten bestimmt werden, kann leider"
29118 printlz$"[145]keine aussage gemacht werden, da ihre"
29119 printlz$"geburtsstunde nicht bekannt ist.":print:goto29230
29120 print:printlz$"b) ihren aszendenten "sz$(as):print
29130 printlz$;ce$(as,1)
29140 printlz$;ce$(as,2)
29150 printlz$;ce$(as,3)
29230 print:printlz$"bekannte ";ms$(hz)
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)))
29250 printlz$;pe$(hz,1)", "pe$(hz,2)
29260 printlz$;pe$(hz,3)", "pe$(hz,4)
29270 printlz$;pe$(hz,5)", "pe$(hz,6)
29280 printlz$;pe$(hz,7)
29999 return
30000 rem ** input at ******************
30010 q8=0:q9=0
30020 ifq1>-1thengosub30340:goto30040
30030 q1=peek(214):q2=peek(211)+2
30040 forii=1toq3:print" ";:next
30050 gosub30340
30060 q5=0:q4$="":poke1024+40*q1+q2,191
30070 forii=631to640:pokeii,0:next
30080 q5=q5+1
30090 getq6$:ifq6$=""then30090
30100 ifasc(q6$)=32andq5<=1then30090
30110 ifasc(q6$)=13thenprint:goto30370
30120 ifasc(q6$)=20orasc(q6$)=157then30220
30130 ifq7=1then30160
30140 ifasc(q6$)<32orasc(q6$)>90then30090
30150 goto30270
30160 ifasc(q6$)>=48andasc(q6$)<=57then30270
30170 ifq8=2then30190
30180 ifasc(q6$)=46orasc(q6$)=44thenq8=q8+1:q6$=".":goto30270
30190 ifq9=1then30210
30200 ifasc(q6$)=45andq5=1thenq9=1:goto30270
30210 goto30090
30220 ifq5<=1then30090
30230 q2=q2-1:gosub30340:q8$=mid$(q4$,q5-1,1):ifq8$="."thenq8=q8-1
30240 ifq8$="-"thenq9=0
30250 print" ":gosub30340
30260 q4$=left$(q4$,q5-2):q5=q5-1:goto30090
30270 q4$=q4$+q6$
30280 print"";q6$;:q2=q2+1:gosub30340
30290 ifq5<q3then30080
30300 q5=q3+1:getq6$:ifq6$=""then30300
30310 ifasc(q6$)=20orasc(q6$)=157then30220
30320 ifasc(q6$)=13thenprint:goto30370
30330 goto30300
30340 rem ** cursor positionieren ******
30350 poke214,q1:poke211,q2:sys58640
30360 return
30370 ifq4$=""then30000
30380 return
31000 rem ** rechtsbund ****************
31005 za$=str$(int(za))
31010 ql=ql+1:ifql>14thenprint"[147]laenge ql im up zu gross!!!":end
31020 iflen(za$)>qlthenza$=">1mio."
31040 za$=left$(" ",ql-len(za$))+za$
31050 return
32000 rem ** aszendenttext unbekannt ***
32010 print:printlz$"da ihre geburtsstunde nicht bekannt ist,"
32020 printlz$"[145]kann keine aussage ueber weitere, durch"
32030 printlz$"den aszendenten praegende charackter-"
32040 printlz$"eigenschaften gemacht werden!"
32050 return
33000 rem ** ausdruckabfrage ***********
33010 open3,4:cmd3
33020 print:printlz$"horoskop fuer: "na$
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]"
33040 gosub24000:rem datentafel
33050 print:print:printlz$"ihre besonderen characktermerkmale"
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]"
33060 gosub27000:rem text hz
33070 print
33080 gosub29000:rem kurzinfo
33090 print
33100 print#3:close3
33999 return
34000 rem ** namenseingabe *************
34010 print"[147]horoskop namenseingabe";
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]";
34030 print"ihr name [146]"
34050 q1=11:q2=10:q3=25:q7=0:gosub30000:na$=q4$
34999 return
40000 rem ** text 1 ********************
40010 printlz$"[147]sie sind sehr zuverlaessig, fleissig,"
40020 printlz$"diszipliniert, gruendlich und gewissen-"
40030 printlz$"haft - der geborene karrieretyp."
40050 print:printlz$"sie lassen aber in ihr inneres nicht so"
40060 printlz$"leicht einblicken und stehen menschen"
40070 printlz$"und dingen oft misstrauisch gegenueber."
40080 printlz$"ihre berufliche postion bauen sie mit"
40090 printlz$"ernst und konsequenz aus."
40110 printlz$"sie selten. sie beweisen ihre staerke"
40120 printlz$"durch hartnaeckigen widerstand."
40130 print:printlz$"da sie ein zurueckhaltender mensch sind,"
40140 printlz$"[145]gehen sie nicht direkt auf ihre mitmen-"
40150 printlz$"schen zu,sondern waehlen indirekte wege."
40160 printlz$"[145][145]"
40199 return
40200 rem ** text 2 ********************
40210 printlz$"[147]sie sind ein dynamischer und zukunfts-"
40220 printlz$"orientierter mensch. es fasziniert sie,"
40230 printlz$"ungewoehnliche aufgaben zu uebernehmen."
40240 printlz$"ein richtiger forschertyp.
40250 [153]:[153]lz$"an geduld und ausdauer mangelt es ihnen"
40260 [153]lz$"sehr. schlagartig geben sie erreichtes"
40270 [153]lz$"auf und verfolgen neue ziele."
40280 [153]lz$"ihr freiheitsdrang ist aussergewoehnlich"
40290 [153]lz$"onstark."
40300 [153]lz$"sie sehnen sich nach einer partnerschaft"
40310 [153]lz$"onin der sie diese freiheit in keiner hin-"
40320 [153]lz$"onsicht aufgeben muessen. "
40330 [153]:[153]lz$"der partner sollte stark und ruhevoll"
40340 [153]lz$"sein und die faehigkeit haben sie ab und"
40350 [153]lz$"onzu aus der phantasie in die realitaet"
40360 [153]lz$"zurueckzufuehren."
40399 [142]
40400 [143] ** text hz 3******************
40410 [153]lz$"loadsie sind ein sehr empfindsamer mensch,"
40420 [153]lz$"der haeufig in die welt der traeume und"
40430 [153]lz$"des scheins flieht. sie moechten allen"
40440 [153]lz$"menschen helfen doch bleibt es oft beim"
40450 [153]lz$"wunsch."
40460 [153]:[153]lz$"sie sind kein kaempfer und resignieren "
40465 [153]lz$"sehr schnell. "
40470 [153]:[153]lz$"gutgemeinte ratschlaege ihrer umwelt"
40480 [153]lz$"laehmen geradezu ihre eigene entschei-"
40490 [153]lz$"dungsfaehigkeit."
40500 [153]:[153]lz$"mit ihren launen stellen sie die geduld"
40510 [153]lz$"ihrer freunde oft auf harte proben."
40520 [153]:[153]lz$"sie sollten einen mutigen und kampfes-"
40530 [153]lz$"freudigen partner an ihrer seite haben."
40599 [142]
40600 [143] ** text hz 4******************
40610 [153]lz$"loadsie verfuegen ueber eine grosse impulsi-"
40620 [153]lz$"onvitaet und starke vitalitaet."
40630 [153]lz$"bei der verfolgung ihrer ziele bedienen"
40640 [153]lz$"sie sich oft der weniger feinen mittel."
40650 [153]:[153]lz$"angriffen aus ihrer umwelt stellen sie "
40660 [153]lz$"sich entschlossen und mutig."
40680 [153]lz$"in geldfragen neigen sie ebenso zu ver-"
40690 [153]lz$"schwendung wie im umgang mit ihrer "
40700 [153]lz$"eigenen energie."
40740 [153]:[153]lz$"in ihrem freundeskreis gelten sie als"
40750 [153]lz$"lebhaft und schlagfertig. sie wissen gut"
40760 [153]lz$"onzu formulieren,sind forscbittsglaeubig"
40770 [153]lz$"onund zu jeder diskussion bereit."
40780 [153]:[153]lz$"ihr partner sollte kritisch distanzierte"
40790 [153]lz$"onvernunft mitbringen.
40799 return
40800 rem ** text hz 5 *****************
40810 printlz$"[147]sie sind ein langmuetiger und fuersorg-"
40820 printlz$"licher mensch. sie treffen keine ent-"
40830 printlz$"scheidungen ohne reifliche ueberlegung,"
40840 printlz$"streben nach sicherheit und stabilitaet."
40850 printlz$"ihre geduld ist sehr gross, wird sie"
40860 printlz$"ueberstrapaziert, entlaedt sich die "
40870 printlz$"gestaute agression erruptiv."
40880 print:printlz$"bei der verfolgung eines ziels haben sie"
40890 printlz$"[145]grosse ausdauer. fehlschlaege nehmen"
40900 printlz$"sie sich schwer zu herzen, hindern sie"
40910 printlz$"jedoch nicht an einem weiteren versuch."
40920 printlz$"eine starke maetrielle einstellung"
40930 printlz$"ist dabei nicht zu uebersehen."
40940 print:printlz$"von ihrem partner erwarten sie eiserne"
40950 printlz$"treue und solidaritaet."
40999 return
41000 rem ** text hz 6 *****************
41010 printlz$"[147]sie sind ein sehr schnell reagierender"
41020 printlz$"mensch mit einem beweglichen und wachen"
41030 printlz$"verstand. eindruecke werden sofort auf-"
41040 printlz$"genommen, verarbeitet und der umgebung"
41050 printlz$"mitgeteilt."
41060 print:printlz$"ihre liebe zur abwechslung laesst das"
41070 printlz$"noetige ausreifen eines gedankens ver-"
41080 printlz$"missen. auf ihre mitmenschen wirken sie"
41090 printlz$"eher oberflaechlich gelten aber als"
41100 printlz$"gesellig, sprach- und redegewandt."
41110 print:printlz$"groesseren problemen stellen sie sich"
41120 printlz$"nicht gerne und ziehen die flucht einer"
41130 printlz$"auseinandersetzung vor."
41140 printlz$"sie sollten sich einen partner suchen,"
41150 printlz$"der bei ihren ideenfluten die spreu vom""
41160 [153]lz$"weizen trennt."
41199 [142]
41200 [143] ** text hz 7 *****************
41210 [153]lz$"loadsie sind ein sehr sensibler mensch und"
41220 [153]lz$"haben ein gespuer fuer menschliches."
41230 [153]lz$"hinter ihrer harten schale verbirgt sich"
41240 [153]lz$"onein weiches innenleben."
41250 [153]:[153]lz$"im team und im famielienleben sind sie"
41260 [153]lz$"sehr fuersorglich u. erkennen als erster"
41270 [153]lz$"onfehlentwicklungen und spannungen."
41280 [153]:[153]lz$"ihre friedfertigkeit wird im freundes-"
41290 [153]lz$"kreis sehr geschaetzt zumal sie zu jedem"
41300 [153]lz$"onpreis um harmonie bemueht sind."
41305 [153]lz$"fuer das innerbetriebliche klima sind "
41306 [153]lz$"sie deshalb geradezu eine garantie."
41310 [153]:[153]lz$"damit sich ihr seelenleben stabilisieren"
41320 [153]lz$"onkann, sollten sie sich um einen ruhigen"
41330 [153]lz$"und einfuehlsamen menschen bemuehen."
41399 [142]
41400 [143] ** text hz 8 *****************
41410 [153]lz$"loadsie verfuegen ueber eine erstaunliche"
41420 [153]lz$"selbstsicherheit. sind voller lebens-"
41430 [153]lz$"kraft, vertrauen auf das eigene koennen"
41440 [153]lz$"und den entsprechenden erfolg."
41450 [153]lz$"sie verstehen zu organisieren und sind"
41460 [153]lz$"groesszuegig und einsatzfreudig."
41470 [153]:[153]lz$"zollt man ihnen nicht beachtung,so"
41480 [153]lz$"reagieren sie manchmal mit arroganz und"
41490 [153]lz$"rechthaberei. ihren freunden sind sie"
41500 [153]lz$"ein guter freund."
41510 [153]:[153]lz$"beruflich eignen sie sich aufgrung ihrer"
41520 [153]lz$"onbesonderen fuehrungsqualitaeten dazu,"
41530 [153]lz$"eine leitende position zu uebernehmen."
41540 [153]:[153]lz$"in der partnerschaft stellt ihr ange-"
41550 [153]lz$"borener egoismus eine ernste gefahr dar.onon"
41599 [142]
41600 [143] ** text hz 9 *****************
41610 [153]lz$"loadordnung ist fuer sie das halbe leben!"
41620 [153]lz$"sie sind kein senkrechtstarter, sondern"
41630 [153]lz$"arbeiten sich systematisch nach oben."
41640 [153]lz$"wenn an der basis nicht jede kleinigkeit"
41650 [153]lz$"onstimmt,geraten sie in gefahr, pedantisch"
41660 [153]lz$"onzu reagieren."
41670 [153]:[153]lz$"sie suchen staendig nach festen grenzen"
41680 [153]lz$"und seelischer sicherheit."
41690 [153]lz$"aus dieser gefuehlsunsicherheit heraus"
41700 [153]lz$"schaerfen sie ihre anlagen zur beobach-"
41710 [153]lz$"tung und wahrnehmnung der umwelt. "
41720 [153]:[153]lz$"in ihrem freundeskreis schaetzt man "
41730 [153]lz$"ihre vernunft und holt sich von ihnen"
41740 [153]lz$"gerne einen klugen rat ein."
41750 [153]lz$"der partner sollte ein grosses selbstbe-"
41760 [153]lz$"onwusstsein besitzen und bestaendig sein."
41799 [142]
41800 [143] ** text hz 10 ****************
41810 [153]lz$"loadsie sind sehr friedliebend und immer um"
41820 [153]lz$"ausgleich bemueht. gutes aussehen und"
41830 [153]lz$"gute umgansformen sind fuer sie sehr "
41840 [153]lz$"wichtig. sie interessieren sich fuer "
41850 [153]lz$"kunst und musik."
41860 [153]:[153]lz$"im berufsleben hilft ihnen ihr ehrgeiz"
41870 [153]lz$"und ihr diplomatisches geschick, das "
41880 [153]lz$"erstrebte ziel zu erreichen."
41890 [153]:[153]lz$"in der partnerschaft sind sie sehr an-"
41900 [153]lz$"passungsfaehig und achten immer darauf,"
41910 [153]lz$"dass beide innerhalb der beziehung die "
41920 [153]lz$"gleichen rechte erhalten."
41930 [153]:[153]lz$"wegen ihrem ausgepraegten gemeinschafts-"
41940 [153]lz$"onsinn und der grossen beweglichkeit, sind"
41950 [153]lz$"onsie in der gruppe sehr gern gesehen."
41999 [142]
42000 [143] ** text hz 11 ****************
42010 [153]lz$"loadsie sind sensibel signalisieren aber"
42020 [153]lz$"kampfbereitschaft. deshalb leben sie oft"
42030 [153]lz$"onin einer disharmonischen umwelt."
42040 [153]lz$"sie streben nach fuehrung und sind nur"
42050 [153]lz$"ruhig, wenn sie alles selbst im griff"
42060 [153]lz$"haben."
42070 [153]:[153]lz$"von ihrem partner fordern sie absolute"
42080 [153]lz$"treue. schon geringe anleasse treiben"
42090 [153]lz$"sie zu rasender eifersucht."
42100 [153]:[153]lz$"bei der verfolgung beruflicher ziele"
42110 [153]lz$"beweisen sie willenskraft u. zaehigkeit.";
42120 [153]:[153]lz$"auf die menschen in ihrer naehe wirken"
42130 [153]lz$"sie bevormundend. steckt allerdings der"
42140 [153]lz$"'karren im dreck', ist ihre kampfeslust"
42150 [153]lz$"und zaehigkeit sehr gefragt."
42199 [142]
42200 [143] ** text hz 12 ****************
42210 [153]lz$"loadsie lassen sich in keine schablone"
42220 [153]lz$"zwaengen. beharren auf selbstaendigkeit"
42230 [153]lz$"und unabhaengigkeit. sie sind auf expan-"
42240 [153]lz$"onsion eingestellt. deshalb ist das aus-"
42250 [153]lz$"land fuer sie von grossem reiz."
42260 [153]lz$"ihren standpunkt vertreten sie mit vehe-"
42270 [153]lz$"onmenz, und kuemmern sich wenig um die "
42280 [153]lz$"meinungen anderer."
42290 [153]:[153]lz$"durch ihren ausgepraegten idealismus und"
42300 [153]lz$"onihr geselliges wesen sind sie bei ihren"
42310 [153]lz$"freunden sehr beliebt.
42320 printlz$"der partner sollte ruhe u. erdverbunden-"
42330 printlz$"[145]heit in das gemeinsame leben bringen."
42340 print:printlz$"beruflich streben sie staendig nach"
42350 printlz$"verbesserung und ruhen sich nicht auf"
42360 printlz$"den lorbeeren aus."
42399 return
50000 rem ** text asz 1 ****************
50010 printlz$"zaehigkeit, pflichtbewusstsein, fleiss"
50020 printlz$"aber auch verschlossenheit, hemmung und"
50030 printlz$"starrsinn."
50040 return
50200 rem ** text asz 2 ****************
50210 printlz$"reformerisches denken, humanitaeres"
50220 printlz$"angagement, auflehnung gegen bevormun-"
50230 printlz$"dung und starken freiheitsdrang."
50240 return
50400 rem ** text asz 3 ****************
50410 printlz$"geduld, sensibilitaet, aufnahmefaehig-"
50420 printlz$"keit aber auch stimmungsschwankungen,"
50430 printlz$"bequemlich- bis nachlaessigkeit."
50440 return
50600 rem ** text asz 4 ****************
50610 printlz$"dynamik, tatkraft, mut, zielbewusstsein"
50620 printlz$"kuehnheit und leider auch herrschsucht,"
50630 printlz$"streitlust und agressivitaet."
50640 return
50800 rem ** text asz 5 ****************
50810 printlz$"beharrlichkeit verinnerlichung, formen-"
50820 printlz$"sinn,kunstverstaendnis aber auch genuss-";
50830 printlz$"sucht, materialismus und bequemlichkeit."
50840 return
51000 rem ** text asz 6 ****************
51010 printlz$"vielseitigkeit, handlungsbereitschaft,"
51020 printlz$"sprach und redebegabung leider auch "
51030 printlz$"wankelmut sowie oberflaechlichkeit."
51050 return
51200 rem ** text asz 7 ****************
51210 printlz$"gefuehlsreichtum,fuersorglichkeit, und"
51220 printlz$"guete. leider auch empfindlichkeit,"
51230 printlz$"zurueckhaltung und verschlossenheit."
51240 return
51400 rem ** text asz 8 ****************
51410 printlz$"selbstsicherheit, organisationstalent,"
51420 printlz$"grosszuegigkeit leider auch selbst-"
51430 printlz$"ueberschaetzung und egoismus."
51440 return
51600 rem ** text asz 9 ****************
51610 printlz$"korrektheit, analytisches denken, ord-"
51620 printlz$"nungssinn, kritisches denken, methodik"
51630 printlz$"leider auch pedanterie und noergelei."
51640 return
51800 rem ** text asz 10 ***.***********
51810 printlz$"diplomatie,ausgleichungsbestreben,kunst-"
51820 printlz$"[145]verstaendnis, gemeinschaftssinn leider"
51830 printlz$"auch opportunismus und wankelmut."
51840 return
52000 rem ** text asz 11 ***************
52010 printlz$"willenskraft,zeahigkeit, furchtlosigkeit"
52020 printlz$"[145]kampfesmut leider auch eifersucht,ueber-"
52030 printlz$"[145]trieb. ehrgeiz und ruecksichtslosigkeit."
52040 return
52200 rem ** text asz 12 ***************
52210 printlz$"idealismus,begeisterungsfaehigkeit, mut,"
52220 printlz$"[145]gerechtigkeitssinn aber auch die faehig-"
52230 printlz$"[145]keit uebers ziel hinauszuschiessen!"
52240 return
53000 rem ** korrektur tag/mo *********
53010 ifgs>=24thengs=gs-24:goto53030
53020 ifgs<0thengs=gs+24
53030 return
55040 rem ** pruefen drucker ein *******
55050 poke2,4
55060 sys49152:ifpeek(2)=0thendr=1:return
55065 print"[147] drucker einschalten!"
55066 fori=1to2000:nexti
55070 dr=0:return
60000 rem ** text vor asz **************
60010 print:printlz$"ihr aszendent bewirkt gleichzeitig"
60020 return