1 REM "BIORRITMOS"
   6 LET gr=USR "i": POKE gr+1,8: POKE gr+4,42:POKE gr+5,28:POKE gr+6,8
   8 LET gr2=USR"a":POKE gr2,120
  10 FOR w=1 TO 6
  12 POKE gr2+w,PEEK (16240+w)
  15 NEXT w
 100 BORDER 4: PRINT AT 10,10; INK 7; PAPER 3;"BIORRITMOS";AT 12,7;"\* ALVARO J.GOMEZ": GO SUB 3000
 110 CLS: BORDER 1: PAPER 1: INK 7: CLS : PRINT : PRINT
 130 INPUT "Dia de nacimiento    ";di: IF di>31 OR di<1 THEN GO SUB 5000: GO TO 130
 140 INPUT "Mes de nacimiento    ";mi: IF mi>12 OR mi<1 THEN GO SUB 5000: GO TO 140
 150 INPUT "A\ao de nacimiento    ";ai
 155 PRINT AT 5,0;"Fecha de Nacimiento: ";di;"/";mi;"/";ai
 160 PRINT
 170 LET dn=di: LET mn=mi: LET an=ai
 171 INPUT "Dia del calculo    ";df: IF df>31 OR df<1 THEN GO SUB 5000: GO TO 171
 180 INPUT "Mes del calculo    ";mf: IF mf>12 OR mf<1 THEN GO SUB 5000: GO TO 180
 190 INPUT "A\ao del calculo    ";af: IF af<ai THEN GO SUB 5000 : GO TO 190
 195 PRINT AT 7,0;"Fecha del Calculo: ";df;"/";mf;"/";af
 200 PRINT #1;"VERIFIQUE. TODO CORRECTO? (s/n)"
 201 PAUSE 0
 202 IF INKEY$<>"s" AND INKEY$<>"n" THEN GO TO 201
 205 IF INKEY$="n" THEN CLS : GO TO 110
 206 INPUT 2
 207 PRINT AT 10,2; FLASH 1;"ESPERE UN MOMENTO, POR FAVOR"
 208 IF di=df AND mi=mf AND (af-ai)>0 THEN PRINT AT 15,0;"FELICIDADES EN SU ";: PRINT af-ai ;: PRINT " ANIVERSAR10": GO SUB 3000
 209 PRINT AT 10,2; FLASH 1;"E5PERE UN MOMENTO, POR FAVOR"
 210 IF (ai=af) AND (mi=mf) THEN LET dt=df-di: GO TO 500
 220 LET a=ai: LET m=mi: GO SUB 800
 230 LET dt=dm-di: LET mi=mi+1
 240 IF mi>12 THEN GO TO 300
 250 IF af-1<ai THEN GO TO 400
 260 FOR m=mi TO 12
 270 GO SUB 800
 280 LET dt=dt+dm
 290 NEXT m
 300 LET mi=1: LET ai=ai+1
 320 FOR a=ai TO af-1
 330 LET dt=dt+365
 340 IF a=INT (a/4)*4 THEN LET dt=dt+1
 350 NEXT a
 400 IF (mf=1) OR mi=mf THEN GO TO 450
 410 FOR m=mi TO mf-1
 420 GO SUB 800
 430 LET dt=dt+m
 440 NEXT m
 450 LET dt=dt+df
 510 CLS
 520 PRINT TAB 9;"BIORRITMOS": PRINT TAB 9;"----------"
 525 PRINT
 530 PRINT "Trancurridos ";dt;" dias de vida.": PRINT "   *************************": PRINT
 540 PRINT "CICLO FISICO";: LET dc=23: GO SUB 900
 550 PRINT "CICLO EMOCIONAL";: LET dc=28: GO SUB 900
 560 PRINT "CICLO INTELECTUAL";: LET dc=33: GO SUB 900
 570 BORDER 6: GO TO 2000
 810 LET dm=31
 820 IF m=2 THEN LET dm=28: IF a=INT (a/4)*4 THEN LET dm=29
 830 IF m=4 OR m=6 OR m=9 OR m=11 THEN LET dm=30
 840 RETURN
 910 LET c=dt-INT (dt/dc)*dc
 920 LET s$="POSITIVO"
 925 GO SUB 1000
 930 IF c>INT (dc/2) THEN LET s$="NEGATIVO": LET c=c-INT (dc/2)
 940 PRINT "  Dia ";c;" del semiciclo ";s$
 950 IF C=0 THEN PRINT BRIGHT 1;"DIA CRITICO"
 960 IF c=INT(dc/4) THEN PRINT INVERSE 1;"DIA SEMICRITICO"
 970 PRINT : PRINT
 980 RETURN
1000 LET h$=" "
1001 IF c<INT (dc/4) OR c>INT (dc*2/3) THEN LET h$="(^)"
1002 IF c>INT (dc/4) AND c<INT (dc*2/3) THEN LET h$="(\i)"
1003 PRINT h$
1005 RETURN
2000 PRINT #1;AT 0,0;"                                NECESITA MAS INFORMACION ? (s/n)"
2001 PAUSE 0
2003 IF INKEY$<>"s" AND INKEY$<>"n" THEN GO TO 2001
2005 IF INKEY$="s" THEN CLS : GOTO 100
2006 GO TO 9000
3000 FOR x=1 TO 500: NEXT x: CLS : RETURN
5000 PRINT AT 10,8;FLASH 1;"DATO INCORRECTO": PAUSE 100: PRINT AT 10,8;"                           ": RETURN
8000 SAVE "Biorritmos" LINE 1: VERIFY "Biorritmos"