A500:20: BIORITME 2030   HOOFDPROGRAMMA  C(12),A(2),B(2),F(2) !$100:"Met dit programma kunt u zelf de "1!."stand van uw bioritme bepalen."d!8HO0:VE6:110:"Hoe wilt u de biorythmische";v!B" standen ?"!LHO8:VE9:110:"1 - In woorden"!VVE11:110:"2 - Grafiek op het scherm"!`VE13:110:"3 - Of wilt u een uitleg""jVE15:110:"4 - Of wilt u stoppen"N"tHO5:VE21:110:"DRUK NA DE UITVOERING RETURN"e"~HO8:VE17:110:Z}"Z4 950: stoppen"(Z1)(Z3) 1230:1150"Z 3030,4030,2030"1060"" FOUTE INVOER"#HO8:VE17:110:"Niet bekend!""#SD20:450: wacht 2 sH#HO8:VE17:110:" ":N#f# INLEIDINGl#u#100#10);"***************"#10);"* BIORYTHMIEK *"# 10);"***************"#:"Bij de BIORYTHMIEK gaat men er vanuit "&$ "dat bij de geboorte van een mens drie"N$*"ritmes van start gaan. Namelijk:"j$4"- het LICHAAMSRITME."$>"(met een lengte van 23 dagen)"$H"- HET GEVOELSRITME."$R"(met een lengte van 28 dagen)"$\"- HET INTELLIGENTIERITME."%f"(met een lengte van 33 dagen)"@%p"Vanaf de geboorte gaan alle drie de"j%z"ritmes naar een optimale toestand "%"(positief) waarna ze naar een minimum"%"dalen. Telkens wanneer een ritme van"%"positief naar negatief (of anders om)"&"overgaat is het ritme KRITISCH."A&"DWZ. dat de persoon wat dat ritme "^&"betreft instabiel is."z&:25);"druk "&200:IN13 2250&& & STAND IN WOORDEN& & 5030& 100:"de bioritmische standen:" ' :"het lichaamsritme is ";+' E((D23(D23))23.5)V' (E0)(E1)(E12) "KRITISCH":3100{' (E1)(E12) "POSITIEF":3100' "NEGATIEF"' :"het gevoelsritme is ";'& E((D28(D28))28.5)'0 (E2)(E14)(E15) "KRITISCH":3150(: (E0)(E14) "POSITIEF":3150)(D "NEGATIEF"Q(N :"en het intelligentieritme is ";o(X E((D33(D33))33.5)(b (E0)(E1)(E17) "KRITISCH":3200(l (E0)(E17) "POSITIEF":3200(v "NEGATIEF"( ::"Ieder mens heeft een dag waarop alle"+) "ritmes door het kritische punt gaan."F) :Z21252D:Z0 3260c) "die dag is voor u op:") F(0)B(0):F(1)B(1):F(2)B(2):5700) :F(0);"-";F(1);"-";F(2)) Z0 "Die dag heeft u al gehad") :25);"druk "* 200:IN13 3280&* T0 2:A(T)0:B(T)0:F(T)0:T,* 2*B* GRAFIEKH*R*5030[*600r*DDB(0):ZC(B(1))*HO0:VE10191:CN0:620*HO0:VE180191:CN0:630*HO0:VE100191:CN0:620*HO6Z191:VE100191:CN0:630+A$"1-":SRB(1):300:A$A$SR$>+A$A$"-":SRB(2):300:A$A$SR$:SR$A$`+HO6191:VE172191:CN0:650s+"T0 6Z6 6+,T42(T42) 4180+6HOT191:VE101191:CN0:620+@VE102191:620+JT:4210+THOT191:VE101191:CN0:620,^VE104191:630 ,hT5,rCN0:HO80191:VE1191:SR$"KOERPER">,|650W,HO0:VE100191:620m,X0:TD DZ .5,Y(T23.141592723)67,Y(Y.5),HOX191:VE(Y100)191:630,XX3,T,CN0:HO80191:VE11191:SR$"GEFUEHL",650-HO0:VE85191:620--X0:TD DZ .5K-Y(T23.141592728)67Y-Y(Y.5)z-HOX191:VE(Y100)191:630-XX3-T-&CN0:HO80191:VE21191:SR$"INTELLIGENZ"-0650-:HO0:VE85191:620-DX0:TD DZ .5.NY(T23.141592733)67.XY(Y.5)>.bHOX191:VE(Y100)191:630H.lXX3O.vTf.200:IN13 4480.T0 2:A(T)0:B(T)0:F(T)0:T... GEGEVENS INVOEREN..100.:"Wat is uw geboorte datum ?".:"Dag ";:A(0) /"Maand ";:A(1) /"Jaar ";:A(2)>/:A(0);"-";A(1);"-";A(2)`/:"Is dat goed (j/n)";:A$:/(A(0)0)(A(0)31) 5310/(A(1)12)(A(1)0) 5310/(A$"n")(A$"N") 5040/ :"Wat is de peildatum ?"/:"Dag ";:B(0)0"Maand ";:B(1)0("Jaar ";:B(2)802:B(0);"-";B(1);"-";B(2)Z0<:"Is dat goed (j/n)";:A$:z0F(B(0)0)(B(0)31) 53100P(B(1)12)(B(1)0) 53100Z(A$"n")(A$"N") 51300d53800n1000x"Op ";B(0);"-";B(1);"-";B(2); 1" bent u ";D;" dagen oud"1SD20:450!1'1?1 FOUTE INVOER (2)E1i1T0 2:A(T)0:B(T)0:F(T)0:T1(A$"N")(A$"n") 1"Dat kan nooit goed zijn!"1A$"n":11 DAGEN TELLEN1 2C(1)31:C(3)31:C(4)30:C(5)31:C(6)30:C(7)31:C(8)3132C(9)30:C(10)31:C(11)30:C(12)31=25990R2"DC(A(1))A(0)1g2,A(2)B(2) 554026(A(2)1)B(2) 56002@A(1)12 54602JT(A(1)1) 12:DDC(T):T2TT(A(2)1) (B(2)1)2^60202hT2r60502|B(1)1 55203T1 (B(1)1):DDC(T):T(3DDB(0):>3 A(2)=B(2)H35990j3A(1)B(1) D(B(0)A(0))1:3(A(1)1)B(1) DDB(0):3T(A(1)1) (B(1)1):DDC(T):T3DDB(0):3 A(2)+1=B(2)359903A(1)12 56304T(A(1)1) 12:DDC(T):T46050.4B(1)1 5660M4T1 (B(1)1):DDC(T):T\4DDB(0):b4&v40 DATUM ZOEKEN|4:4DC(1)31:C(3)31:C(4)30:C(5)31:C(6)30:C(7)31:C(8)314NC(9)30:C(10)31:C(11)30:C(12)314X6080 5bZZ1:ZC(F(1))F(0) 591035lZZC(F(1))F(0)1:F(1)F(1)1:F(0)1?5vZ0 O5TF(1) 12w5ZC(T) ZZC(T):F(1)F(1)1:5790559105T:F(1)1:F(2)F(2)15G365561105ZG ZZG:F(2)F(2)1:5840559105Z0 5581056080+6ZC(F(1)) ZZC(F(1)):F(1)F(1)1:5890565910A6Z0 K6 5870g6Z0 ZZ1:F(0)F(0)16 F(0)C(F(1)) F(1)F(1)1:F(0)16*F(1)12 F(2)F(2)1:F(1)1:F(0)1:586064Z0 6>59106H6R SCHRIKKELJAAR ?6\7f(A(2)4(A(2)4)) C(2)28:?7p(A(2)100(A(2)100)) C(2)29:M7zC(2)28:k7(T4(T4)) DD365:7(T100(T100)) DD366:7DD365:7(B(2)4(B(2)4)) C(2)28:7(B(2)100(B(2)100)) C(2)29:7C(2)28:8(F(2)4(F(2)4)) C(2)28:A8(F(2)100(F(2)100)) C(2)29:O8C(2)28:q8(F(2)4(F(2)4)) G365:8(F(2)100(F(2)100)) G366:8G365:8}**************************8 }* door: M. Nitters *9}* Oud-Beyerland *#9}* NEDERLAND *C9(}**************************^92} TROS-RADIO dd 871111d9<}9F} Erstausstrahlung: Radio DDR9P} 900418D *C9(}**************************^92} TROS-RADIO dd 871111d9<}9F} Erstausstrahl