6,7:,7H.:P.AT198,"* B I O R I T A M *" P.AT166,"*******************" P.AT230,"*******************" F.I=0TO63:D.I,0:D.I,47:N.I F.I=1TO46:D.0,I:D.63,I:N.I P.AT460,"KOMENTAR ? (D/N)"; IFKEY(14)G.100 IF1-KEY(4)G.16:E.G.8000 d#3,0,3,2,3,2,3,3,2,3,2,3, nF.I=1TO12 xT.A(I) N.I H.:P."KOJI TI JE DATUM RODJENJA ?" A=1 C.1000 C.2000 IFA=10 G.6000 IFA=12 G.140 C.3000 P=Q H.:P."DATUM ZA KOJI TRA]I^ BIORITAM" A=0 C.1000 C.2040 IF A=10 G.6000 IF A=11 G.140 C.3000 P=Q-P:IFP<0Y=H-1:G.210 F=P-23*I.(P/23) E=P-28*I.(P/28) R=P-33*I.(P/33) H. F.I=0TO31 "P.AT 224+I;"-" ,N.I 6Z=D+15 @IF Z>28+A(M) O=M+1:Z=Z-28-A(M):E.O=M JIF O>12 O=1 TU=D+30 ^IF U>28+A(M)U=U-28-A(M):V=M+1:E.V=M hIF V>12 V=1 |P.AT448,D; P.AT462,Z; P.AT476,U; P.AT480,M; P.AT494,O; P.AT508,V; P=23:N=F K=2*3.14159*N/P C.5000 P.AT2,"FIZ=";I.(100*K); C.4000 P=28:N=E K=2*3.14159*N/P C.5000 P.AT10," EMOC=";I.(100*K); C.4000 P=33:N=R K=2*3.14159*N/P C.5000 P.AT20," INT=";I.(100*K); C.4000 C.7000 H.:P.AT224,"HO\E^ JO^ JEDAN BIORITAM ? (D/N) IF KEY(14) G.6000 IFKEY(4)G.140:E.G.480 P."DAN U MESECU " I.D P."MESEC" I.M P."GODINA" I.Y $R. P.:P." DRUGI DATUM ? (D/N)" IFKEY(4) A=A+11:G.2080 IFKEY(14) A=10:G.2080:E.G.1510 H=Y IFH<0P.:P."STARI RIMLJANI NISU POZNAVALI BIORITAM !!":G.1500 IF H<1850 P.:P."PA TI SI MRTAV [OVJEK":G.1500 IFH<1900 P.:P."ZDRAVO DEDICE,IZRA[UNAT \U BIORITAM ZA TEBE.":F.I=1TO 750:N.I IFH>1984P.:P."NISI NI RODJEN,A VE\ BI HTIO BIORITAM":G.1500 G.2055 IF Y2100P.:P."TE^KO DA [E^ ]IVJETI TAKO DUGO":G.1500 IF(M<1)+(M>12) P.:P.M;". MESEC NE POSTOJI !!!":G.1500 IF(D=29)*(M=2)E.G.2070 IFY/4=I.(Y/4) E.P.:P."FEBRUAR U TOJ GODINI IMA SAMO 28 DANA":G.1500 IF(D<1)+(D>28+A(M))P.:P.M;".MESEC NEMA";D;". DANA !!!":G.1500 R. Q=0 F.I=1TOM-1 Q=Q+28+A(I) N.I IF(Q>59)*(Y/4=I.(Y/4)) Q=Q+1 Q=Q+D+365*(Y-1)+I.(0.25*(Y-1)) R. F.J=0TO63 K=(J+2*N)*3.14159/P C.5000 D.J,(-K)*19+22 N.J R. IF K>6.283185 K=K-6.283185:G.5000 IF K<1.5708 G.5030 IFK>4.71239 K=K-6.283185:E.K=3.14159-K IF(K>-1E-04)*(K<1E-04)K=0:G.5060 L=K*K K=K*(1-L/6+L*L/120-L*L*L/5040) R. pH.: P.AT230,"ONDA KOJI DRUGI PUT." qP.AT450,"GALAXY COMPUTER STOP" rH.510 sS. XP.AT 500,"ENTER"; ]IFKEY(48)G.470 bF.I=0TO60:N.I gP.AT 500," "; lIFKEY(48)G.470 qF.I=0TO60 :N.I:G.7000 @H.:P." BIORITAM JE (STROGO) NAU[NI ME TOD,POMO\U KOJEG MO]ETE ODREDITIVA^E FIZI[KE,EMOCIONALNE I INTE" JP."LEKTUALNE SPOSOBNOSTI ZA SVAKI DAN VA^EG ]IVOTA. AKO BA^ NE VE RUJETE SAVREMENOJ NAUCI ONDA \E" TP."VAM POSLU]ITI BAR KAO DOBAR HOROSKOP." ^P." JO^ NEKOLIKO UPUTA :" hP." POSLE SVAKOG UPISIVANJA DATUMA OTKUCAJTE ENTER !" rP." NUMERI[KO ISPISANE VREDNOSTI VA]E ZA TRA]ENI DAN I MOGU ZAUZETIVREDNOSTI OD -100 DO +100." |P.AT480," OTKUCAJ ENTER !!!"; IFKEY(48) G.100:E.G.8070 7