ö( '-------------------------------------(--------------------------------------  "BIORRITMO": PRINT (i): NEXT i DATata de nasciment" PRINT : PRINT FOR L = 1 TO 5 FOR i = 1 = Y: GOSUB ": PRINT ST$ INPUT "Ent PRINT PRINT ; "de "; M$( 1: J1 = J1 THEN T = T  Janeiroembro,30CLS : PRT$(DATE$: D2 = D: Y3 = Y PRINT  biorritTAB(25);); " de")"; TAB( 1 IF M MOD 4 = THEN K  K = 0  THEN M2: NEXT L(V / P(L: PRINT  - ciclo S$ = "S = y1 OR'--- 200 par(12) S$( P(3$ = : P() =  7: READta,S M$(i), ,31,,30,20 DATAST$  DE  = V, 2)(MID)) 2 =  = T: PRe :"1 = INPUdias "; D9 ====; TA); "; Y3 + 1 365) * ) \ 9 =  D2  - 1 MOD= 1 ) +  IF THE INTNEXT1 \  Q3 y1 + Q1  Q2  1 P%-BIORRITMO 3.0&0 %-Programado em QBasic'a DOS %-(c)1997-2000 WendelSoft-DIM a(, D(, N(25), M$(,)7), L(50),*) ST+STRING$(80, "-"): P = 6.283185317179586# L+"FEI",1-23,2-28:*-33TO./ S$A Quarta,Quin0ex0abado,Domingo,Segunda,TercaTO 12: /12D(2aA30,Fevereiro,283Marco359,Abril490,Maio3156 Junho4151,Julho3181,Agosto3212,Set,243 6 Outubro3273,Nov,304,Dezembro3334-150 INT7 '68HOJE M9AL(LEF:): D9AL;$(DATE$, 4:): Y9AL(RIGH, 4 INT "ENTRADA8DADOS ?INT re seu nom@, W$ re a do (dd,mm,aaaa) :", D, M, Y MAM: DAD: Y2580 V = ABS(T - Z): N(X-0: BT "Quantos C'a omoDECLS "FF=": W$GB(35HData :"; D2 M2I "Do :DD1 M1; Y2; " (";)JJH)""Idad@; ((V \KL100M100; "anos. ";"(j  viveuDV; "C). 7 MNM2: D8 =O+ D9P: YNY3"6"GB(19H(-36H(054H(+) J19 + J: JAJ1Q 72 - - 1: V9P: K = 0TO EV9J2 + +=2 AND (Y3 0)RELSEIFO> D(M2SK = M2J: D=1T JA7UN JA0T M2 > 12 = 13J0: L(L-32 FOR L RTO 3 X =V(SIN( ) -V ))LPL18S5L(X-ASC;$(L$, L, 1<W LUSING "##/\ \/#### \ \ :DD2;1M2)I;)J1J);0!CHR$(L(L)); ?INT W i!ST$"F" f¡sico""E" emocional""I" intelectual "Mais algummo'a fazer (S/N) ? "; DO: S+UCASE$(BT$(1)): LOOP UNTIL#" OR S+"N"S$; : BEEPT#"UN 150 GOTO 900-580 yAYP800: QAyX4: Q=QX25:Y= (Z&M400:IF[* 4$\* 100$Y* 400 -& = y1=]T =K * Z[-\+Y- K: T> + a(MSD - >= 3+ KT y1 0UN 640T M <= 2-]640 J>Q.RETURN 900 SYSTEM