{  $***********************A* HC900-SOFTWARE *^(* VEB MIKROELEKTRONIK *{2* "WILHELM PIECK" *<* MUEHLHAUSEN *F* U.LIEBOLD *P***********************ZdT$"PROGRAMM: BIORHYTHMUS"nPT((40(T$))2)x: 15,1:6 (5,10);(20,"*")Q (6,10);"*";18);"*"l (7,10);"*";18);"*" (7,17);"HC 900" (8,10);"*";18);"*" (9,10);(20,"*") (13,PT);T$ (26,2);"VEB MIKROELEKTRONIK"  (28,2);"'WILHELM PIECK'") (28,18);"MUEHLHAUSEN"D25,30:">ENTER<";QQ:R A(31,2)mXA5:XB35:YA2:YB2 (2,3);"'BIORHYTHMUS' IST EIN PROGRAMM" (4,3);"ZUR ERMITTLUNG DES INDIVIDUELLEN" (6,3);"LEISTUNGSVERMOEGENS DES BENUTZERS"'" (8,3);"AUF PHYSISCHEM, PSYCHISCHEM"R, (10,3);"UND INTELLEKTUELLEM GEBIET"6 (12,3);"FUER EINEN GENANNTEN ZEITRAUM"@ (14,3);"(1 MONAT)."J (18,3);"BITTE FOLGENDE DATEN EINGEBEN:"T 22,29,3,36^ " VOR- UND ZUNAME"h 4,0 r "";NAME$|6 " GEBURTSDATUM (TT.MM.JJJJ)"@ 4,0M "";GD$k (GD$)10 1390:380 (GD$,3,1)"." (GD$,6,1)"." 1390:380T((GD$,2)) T1T31 1390:380M((GD$,4,2)) M1M12 1390:380 J((GD$,4))1  J1901J2099 1390:380; 1440F N0DAYL h  " ZEITRAUM (MM.JJJJ)"r  4,0  "";ZR$  (ZR$)7 1390:490  (ZR$,3,1)"." 1390:490 &T1 0M$(ZR$,2) :M(M$) ? M1M12 1390:490 DJ$(ZR$,4) NJ(J$)< S J1901J2099 1390:490F XNM31X b M2 NM28w l M2J(J4)40 NM29 v M4M6M9M11 NM30 1440 NDAYN01  : 15,1:  (0,2);"BIORHYTHMUS"  (2,2);"FUER ";NAME$  (3,2);"GEBOREN : ";GD$=  (4,2);"ZEITRAUM: ";ZR$ V  6,25,2,37 : 0,7:_ X40q  Y64 192 }  X,Y,0  Y  Y64 192 32  X40 42  X,Y,0  X  Y * (23,3);"-1" 4 (15,3);" 0" > ( 7,3);"+1" HY128 R X40 287' \ X,Y,0/ f XE p X80 280 40W z Y128 130c  X,Y,0k  Ys  X  (16, 9);" 5"  (16,14);"10"  (16,19);"15"  (16,24);"20"  (16,29);"25"  (16,34);"30"  26,31,0,39: 15,1   I0 2 ,  BIO$,P,FJ  16F,7;(27I,2);BIO$]  X1 NM .1r $Y((XN)P2) . X(X).1 A((X),I)Y 81550 B X L F,7;(27I,2);BIO$ V I `MAX0:MIN0 j Z1 NM tSA(Z,0)A(Z,1)A(Z,2)~ SMAX MAXS:IAZ1 SMIN MINS:IIZ9 ZD 50:e (27,2);"LEISTUNGSOPTIMUM"IA$((IA),((IA))1) (IA$)1 IA$"0"IA$ (27,19);IA$"."M$"."J$ (28,2);"LEISTUNGMINIMUM"II$((II),((II))1) (II$)1 II$"0"II$9 (28,19);II$"."M$"."J$T (30,29);"> ENTER <"i յ(13) 1280o  (27,2);"WENN GEWUENSCHT, BITTE NEUEN" (28,2);"ZEITRAUM EINGEBEN, SONST"( (30,29);"> ENTER <"2 4,1<ZR$""F "";ZR$ P :Z ZR$"" 530$d0n ERROR:x 3:V 0,6;" FEHLEINGABE "_ 30eo DAY M3 1480JJ1MM12MM1DAYT(M30.6)(J365.25) DATA PHYSISCH ,23,0 PSYCHISCH ,28,1 INTELLEKTUELL,33,3& PSETFXX((XXA)319(XBXA).5)f"YY((YYA)255(YBYA).5)t, XX,YY,Fz628