BC *** BIORITMUS ***C 2C @330,"B I O R I T M U S": T01000:xC:"F=FIZIKAI ALLAPOT":"S=SZELLEMI ALLAPOT":"E=ERZELMI ALLAPOT"CC(24), Q(24)C "KINEK KESZUL";A$C(Cn I1 24Cx Q(I)CD 1,-2,1,0,1,0,1,1,0,1,0,1,1,-1,1,2,1,0,1,1,0,1,0,1D I1 24D C(I)"D IYD 0,1,0,1,1,2,2,3,4,4,5,5,0,1,-1,0,0,1,1,2,3,3,4,4kD"MAI DATUM:"uD 500DN9N:H9H:E9EDDAD"SZULETESI DATUM:"DD 500DSA:JDSDD"TE EDDIG ";J;" NAPOT ELTEL" E" HANY NAPRA KERED";VE;EA$;" A MAI NAPTOL KEZDODO KILATASAID:"XE20)"VOLGY" 50)"CSUCS"^EnE K0 V1E (E4)E40 HH1E"N1N9K1E, N1Q(H9)30 340E6H9H91E7N91:K10E@ H912 290ETE9;H9;N1;E^Z23Eh 600FmAFAFrZ20F| 600#FAEA,FZ336F 600KFCSA:A440: 800UF 600aFK1K11iF KsF1000F DATUM SUBRUTINEF"EV:";F EF "HONAP:";HF"NAP:";NF (E4)E40 560FMC(H12)F& 570F0MC(H)G:A((E1597)365.25)(H1)30MN$GD;GX CIKLUS SUBRUTINETGbF(6.28318(JK)Z)bGlA20F40hGvxG  SUBRUTINEG* CSA4 CSAE CSAF 820 : 870G4 AEA4 AECS AEAF 830 : 880G> AFA4 AFAE AFCS 840 : 890HH40);"$"; HJA4100+HM AEAFCSA41E08 8101HP7HRFHfCS);"S";VHkCS100:845eHpAE);"E";vHuAE100: 845HzAF);"F";HAF100: 845H