Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
1!COUNTER: EDIT!!!!
2 GOSUB 3:GOSUB 4:GOSUB 7:GOTO 83
3 WINDOW:POKE-4152,40:CLS:WINDOW 2,20,2,37:PAPER 5:INK 4:CLS:PRINT:PRINT:PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT:PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " ":WINDOW:PAUSE 5:PRINT INK 2;AT(4,9);"":PAUSE 10:FOR I=2 TO 37:PRINT INK 3;AT(2,I);"":BEEP:NEXT I:FOR I=3 TO 20:PRINT INK 3;AT(I,37);"":BEEP:NEXT I:FOR I=36 TO 2 STEP-1:PRINT INK 3;AT(20,I);"":BEEP:NEXT I:FOR I=19 TO 3 STEP-1:PRINT INK 3;AT(I,2);"":BEEP:NEXT I:WINDOW 4,12,20,36:INK 8:PRINT:PRINT " ":PRINT " ":PRINT " ":PRINT "":PRINT " ":PRINT " ":PRINT " ":PRINT " ":PAUSE 10:PRINT INK 3;AT(5,24);"+":PRINT INK 3;AT(10,31);"-":PRINT INK 3;AT(7,21);"K":PRINT INK 3;AT(7,35);"K":PRINT INK 3;AT(7,27);"K":WINDOW:PAUSE 10:PRINT AT(22,2);"Copyright by VOLKER POHLERS in 1986":PAUSE 10:PRINT INK 2;AT(22,16);"VOLKER POHLERS":PAUSE 20:RETURN
4 CLS:PRINT " Ihr Leben verlaeuft nach einem bestimm-ten Rhythmus,dem Bio";:PRINT "rhythmus.Ihr Lebenverlaeuft periodisch,aehnlich einer";:PRINT " Si-nuskurve.Auch in Ihrem Leben wechselnsich eine positiv";:PRINT "e und eine negativePhase miteinander ab,und das geschieht";:PRINT "periodisch.So hat Ihre physische Lei-stungskurve eine";:PRINT " Laenge von 23 Tagen,Ihremotionaler Zyklus eine Laenge von";:PRINT " 28Tagen,und aller 33 Tage beginnt Ihr gei-stiger Zyklus";:PRINT " von vorn.":PRINT " Wenn eine positive Phase in eine nega-tive uebergeht,";:PRINT "so spricht man von einemkritischen Tag.An diesen Tagen muss ma";:PRINT "nbesonders vorsichtig sein,da der Orga-nismus sich auf";:PRINT " neue Verhae";:PRINT "ltnisse um-stellen muss.Besondere Vorsicht ist ge-boten,wenn";:PRINT " sich mehrere kritische Tageueberlagern.":PRINT " Der Computer berechnet fuer Sie jetztIhren Biorhythmus.":PRINT:PRINT " <ENTER>":WW$=INKEY$
5 IF INKEY$=""THEN 5
6 RETURN
7 CLS:INPUT "Bitte geben Sie Ihren Namen ein: ";N$:PRINT:PRINT:INPUT "Ihr Geburtsjahr: ";R:INPUT "Ihr Geburtsmonat: ";S:INPUT "Ihr Geburtstag: ";T:PRINT
8 INPUT "Prognosejahr: ";FF:INPUT "Prognosemonat: ";V:INPUT "Prognosetag: ";W:H=R:G=S:I=T:GOSUB 9:J=I:H=FF:G=V:I=W:GOSUB 9:X=I-J:CLS:GOTO 12
9 IF G-3>=0 THEN G=G+1:GOTO 11
10 G=G+13:H=H-1
11 I=INT(365.25*H)+INT(30.6*G)+I:I=I-INT(H/100)+INT(H/400)-306-122:RETURN
12 PRINT "COMPUTERPROGNOSE FUER DEN ";STR$(W);".";STR$(V);".";STR$(FF):PRINT:PRINT:PRINT "Name: ";N$:PRINT "Geburtsdatum:";STR$(T);".";STR$(S);".";STR$(R):PRINT "Lebensalter: ";X;"Tage":WINDOW 9,23,1,39:E=X-INT(X/23)*23:F=X-INT(X/28)*28:G=X-INT(X/33)*33:PRINT "Physische Leistungsfaehigkeit:":PRINT "==============================":PRINT:IF E=0 THEN 16
13 IF E=11 OR E=12 THEN 18
14 IF E>12 THEN 19
15 IF E<11 THEN 17
16 PRINT "Kritischer Tag,da die negative Phase ineine positive uebergeht.";:PRINT "Das ist gut.":GOTO 20
17 PRINT "Positive Phase,die hohe Spannkraft,Aus-dauer,Einsatzkraft und";:PRINT " intensive,feh-lerfreie Taetigkeit bietet.":GOTO 20
18 PRINT "Kritscher Tag,da die positve Phase ineine negative uebergeht.":GOTO 20
19 PRINT "Physisch befinden Sie sich in einer ne-gativen Phase.Spannkraft,";:PRINT " Ausdauer,Kon-zentration,Einsatzfaehigkeit sind mehroder we";:PRINT "niger stark eingeschraenkt.":GOTO 20
20 IF E=0 OR E=11 OR E=12 THEN 27
21 IF E=17 OR E=18 THEN 28
22 IF E>18 THEN 29
23 IF E>12 AND E<17 THEN 30
24 IF E=5 OR E=6 THEN 31
25 IF E<5 THEN 32
26 IF E>6 AND E<11 THEN 33
27 PRINT "Vorsicht ist geboten,da die physischeLeistungskurve eine ";:PRINT "entscheidende Be-deutung hat.":GOTO 34
28 PRINT "Heute ist das absolute Minimum erreichtFehlsclaege sind moeg";:PRINT "lich. Zum Trost:Abheute steigt die physische Leistungs-";:PRINT "faehigkeit wieder an.":GOTO 34
29 PRINT "Die negative Phase nimmt an Intensitaetab!":GOTO 34
30 PRINT "Die Intensitaet der negativen Phasenimmt weiter zu.":GOTO 34
31 PRINT "Heute ist das absolute Maximum erreichtEs muss einfach alles";:PRINT " gelingen!":GOTO 34
32 PRINT "Intensitaet nimmt weiter zu.":GOTO 34
33 PRINT "Die positive Phase nimmt wieder ab.":GOTO 34
34 PRINT:PRINT:PRINT:PRINT AT(22,27);"<ENTER>":WW$=INKEY$
35 IF INKEY$=""THEN 35
36 CLS:PRINT "emotionales Befinden:":PRINT "=============================":PRINT:IF F=0 THEN 40
37 IF F>0 AND F<14 THEN 41
38 IF F=14 THEN 42
39 IF F>14 THEN 43
40 PRINT "Fuer Sie ist heute in emotionaler Hin-sicht ein kritischer Tag.";:PRINT "Die negativePhase geht in eine positive ueber. IhrGefuehlsle";:PRINT "ben stellt sich heute um!":GOTO 44
41 PRINT "Optimsmus und Kontaktfreudigkeit besti-mmen das Leben, der Tag";:PRINT " wird mit Freudebegonnen.":GOTO 44
42 PRINT "Heute ist ein kritischer Tag,da die po-sitive Phase in eine";:PRINT " negative uebergeht":GOTO 44
43 PRINT "Ihr derzeitiges Befinden ist in einernegativen Phase angela";:PRINT "ngt. Pessimismusist die vorherrschende Stimmung. Schle-chte ";:PRINT "Laune, weniger kontaktfreudig alssonst,sogar etwas ";:PRINT "schuechtern ist dieFolge.":GOTO 44
44 IF F>14 AND F<21 THEN 51
45 IF F>21 THEN 52
46 IF F=21 THEN 53
47 IF F>0 AND F<7 THEN 54
48 IF F>7 AND F<14 THEN 55
49 IF F=7 THEN 56
50 GOTO 57
51 PRINT "Ein weiterer Stimmungsabfall wird sicheinstellen.":GOTO 57
52 PRINT "Die traurige Stimmung laesst nach.":GOTO 57
53 PRINT "Im tiefsten Punkt ihrer Stimmung ange-langt. Zum Trost:die Stim";:PRINT "mung bessertsich jetzt zunehmend.":GOTO 57
54 PRINT "Die Stimmung ist sehr gut und steigtnoch.":GOTO 57
55 PRINT "Die Stimmung ist gut, laesst aber nach.":GOTO 57
56 PRINT "Sie sind heute in Hoechstform!"
57 PRINT:PRINT:PRINT:PRINT AT(22,27);"<ENTER>":WW$=INKEY$
58 IF INKEY$=""THEN 58:RETURN
59 CLS:PRINT "geistige Leistungsfaehigkeit:":PRINT "=============================":PRINT:IF G=0 THEN 63
60 IF G=16 OR G=17 THEN 64
61 IF G<16 THEN 65
62 IF G>17 THEN 66
63 PRINT "Eine negative Phase wird durch eine po-sitive ";:PRINT "abgeloest.":GOTO 67
64 PRINT "Eine positive Phase wird durch eine ne-gative ";:PRINT "abgeloest.":GOTO 67
65 PRINT "Positiver Bereich-die kompliziertestenZusammenhaenge werden ";:PRINT "sicher verstandenund eingepraegt. Wagen Sie sich an alleanst";:PRINT "ehenden Probleme!":GOTO 67
66 PRINT "Ihre geistige Leistungskurve befindetsich zur Zeit in einem ";:PRINT " negativen Be-reich. Die Lernfaehigkeit ist u.a. indieser";:PRINT " Zeit etwas verringert."
67 IF G=0 OR G=16 OR G=17 THEN 74
68 IF G<8 THEN 75
69 IF G=8 OR G=9 THEN 76
70 IF G>9 AND G<16 THEN 77
71 IF G>17 AND G<24 THEN 78
72 IF G=24 OR G=25 THEN 79
73 IF G>25 THEN 80
74 PRINT "Die geistige Leistungsfaehigkeit ist ineinem kritischen ";:PRINT "Punkt angelangt.":GOTO 81
75 PRINT "Die positive Phase verstaerkt sich!":GOTO 81
76 PRINT "Heute sind Sie in geistiger HoechstformEs geht nichts ";:PRINT " schief.":GOTO 81
77 PRINT "Die Intensitaet wird sich abschwaechenaber weiter ";:PRINT "gut bleiben.":GOTO 81
78 PRINT "Die negative Phase verstaerkt sich.":GOTO 81
79 PRINT "Heute ist der geistige Tiefpunkt er-reicht.Zum Trost: Es ";:PRINT "wird wieder besser":GOTO 81
80 PRINT "Die negative Phase schwaecht sich inder naechsten Zeit ab."
81 PRINT:PRINT:PRINT:PRINT AT(22,27);"<ENTER>":WW$=INKEY$
82 IF INKEY$=""THEN 82:ELSE RETURN
83 WINDOW:CLS:PRINT AT(6,15);"MENUE":PRINT AT(7,14);"":PRINT AT(9,7);"1-Eingabe neues Prognosedatum":PRINT AT(10,7);"2-Eingabe neuer Daten":PRINT AT(11,7);"3-Einfuehrungstext":PRINT AT(12,7);"4-Ende":PRINT AT(19,0);"Bitte druecken Sie die der gewuenschten":PRINT AT(20,0);" Funktion entsprechende Taste":WW$=INKEY$
84 AA$=INKEY$:IF AA$="1"THEN CLS:GOSUB 8:GOTO 83
85 IF AA$="2"THEN GOSUB 7:GOTO 83
86 IF AA$="3"THEN GOSUB 4:GOTO 83
87 IF AA$="4"THEN GOSUB 3:GOTO 89
88 GOTO 84
89 PRINT AT(0,11);"DAS WAR'S --- ENDE":FOR I=1 TO 8:BEEP:NEXT:PAUSE 20:BEEP:BEEP:PAUSE 8:BEEP:CLS:POKE-4152,0:END