rem Avigo Peso Grfico - Controla la evolucion de tu peso
rem FREWARE a tutiplen. Distibuyelo a quien quieras. 
rem FREE DISTRIBUITED TO EVERYONE.
ti. "Tu Peso Ideal v. 1.0"
5
c.
fr. 4,0,143,10,0

rem Titulo
li. 0,28,160,28,1
l. 1,0 p. "Evolucin histrica de tu peso  "

rem Menu de opciones
li. 1,198,159,198,1
l. 1,17 p. " Samuel Arriaga Flrez 1999."
fr. 1,215,159,249,0

fr. 42,222,89,234,2
re. 40,220,91,236,1
re. 40,220,89,234,2
l. 5,19 p. " Peso Hoy"

fr. 102,222,149,234,2
re. 100,220,151,236,1
re. 100,220,149,234,2
l. 13,19 p. "Grficas"
pm. 1
l. 0,19 p. " MENU"
pm. 0
A=0
B=0
S=0

rem Presenta datos en pantalla principal
P=3
l. 2,0 p. "Cargando base de datos ..."

li. 1,32,159,32,1
li. 80,32,80,198,1
fo.
l. 1,2 p. "Fecha"
l. 6,2 p. "Peso"
fo.

rem Busca Ficheros
100
X=23
Q=0
W=7
for I=1 TO 100
if I>24 then g. 150
if I<12 then g. 130
Q=10 
W=17
fo.
l. 11,5 p. "Fecha"
l. 15,5 p. " Peso"
fo.
130
I$=str$ I
E=find I$
if E>0 then g. 110 else g. 150
110
open I$
read D$

L$=left$ D$,10
R$=right$ D$,2
l. Q,P p. L$
fo.
l. W,P p. R$
fo.
close
J=1
P=P+1
n.

150
P=0
J=0
l. 1,0 p. "Evolucin histrica de tu peso  "


rem Pulsar en el los recuadros
200
Q=0
ip.
X=px.
Y=py.
if Y>221 then g. 220 el. g. 200
220
if Y>236 then g. 200 el. g. 230
230
if X<40 then g. 200 el. g. 240
240
if X<91 then g. 600 else g. 250
250
if X>102 then g. 700 else g. 200


rem Menu - PESO HOY
600
c.
H=80
li. 0,26,160,26,1
l. 5,0 p. "Tu peso de Hoy"
D$=date$
l. 3,2 p. "Hoy es :"
fo.
l. 8,2 p. D$
fo.
l. 4,4 p. "Cuanto pesas hoy?"
re. 57,79,71,91,0
re. 71,79,89,91,0
re. 89,79,104,91,0
fo.
l. 9,6 p. H
fo.
l. 1,8 p. "(Pulsa la cifra para terminar)"

610
l. 7,6 p. " - "
l. 11,6 p. " + "
ip.
X=posx
Y=posy
if Y<79 then g. 610 el. g. 620
620
if Y>91 then g. 610 el. g. 630
630
if X<57 then g. 610 el. g. 640
640
if X>105 then g. 610 el. g. 650
650
if X<71 then g. 670 el. g. 660
660
if X<89 then g. 690
bz. 1,1
pm. 1
l. 11,6 p. " + "
pm. 0
H=H+1
l. 9,6 p. "  "
fo.
l. 9,6 p. H
fo.
g. 610

670
bz. 1,1
pm. 1
l. 7,6 p. " - "
pm. 0
H=H-1
l. 9,6 p. "  "
fo.
l. 9,6 p. H
fo.
g. 610

rem Peso seleccionado
690
bz. 1,7
bz. 7,1
l. 6,10 p. "Grabando ..."
for I=1 to 100
I$=str$ I
K=I-1
E=find I$
if E=0 then g. 695
n.
695
rem Comprueba si hoy ya has registrado tu peso
K$=str$ K
C$=date$
open K$
read D$
L$=left$ D$,10
if C$=L$ then g. 2000

697
rem Registra tu peso de hoy
create I$
wr. D$
wr. H
close
fo.
l. 1,10 p. "Tu peso ya est grabado"
fo.
l. 5,16 p. "(Pulsa la pantalla)"
ip.
g. 5


rem Hace la GRAFICA de la evolucin del peso
700
bz. 1,1
c.
P=6
li. 0,26,160,26,1
l. 2,0 p. "Cargando base de datos ..."
rem ejes
li. 20,60,20,160,0
li. 20,160,140,160,0
l. 1,3 p. "Peso"
l. 18,13 p. "t"

rem li. 1,65,159,65,1
rem li. 80,65,80,220,1
fo.
rem l. 1,5 p. "Fecha"
rem l. 6,5 p. "Peso"
l. 9,2 p. "Registros: "
fo.
A=0
B=0
I=0

for I=1 TO 100
l. 17,2 p. I
I$=str$ I
E=find I$
if E=0 then g. 705 
n.

rem hace intervalo mas/menos pequeos segun el nuemro de datos
705
O=I
if O<5 then L=29
if O<10 then L=25
if O<15 then L=20
if O<20 then L=10
if O>20 then L=5

rem Busca Ficheros
X=23
Q=0
W=7
for I=1 TO 100
I$=str$ I
E=find I$
if E>0 then g. 710 else g. 730
710
open I$
read D$
L$=left$ D$,10
if I=1 then O$=L$
R$=right$ D$,2
close
rem Dibuja grafica
R=val R$
if I=1 then Q=R
G=230-(R*1.6)
if J=0 then li. X,G,140,G,1
if A=0 then g. 720
li. A,B,X,G,0
720
A=X
B=G
X=X+L
J=1
P=P+1
n.

rem Fin de la grafica. Pone datos de fechas en pantalla y te dice si has adelgazado
730
P=0
J=0
fo.
l. 1,14 p. "Fecha inicial : "
l. 1,15 p. "Ultima fecha : "
fo.
l. 11,14 p. O$
l. 11,15 p. L$
if R>Q then l. 1,17 p. "Evolucion : Has engordado ";(R-Q);" Kg."
if R<Q+5 then g. 740
if R<Q then l. 1,17 p. "Evolucion : Has adelgazado";(Q-R);" Kg."
g. 750

740
l. 1,17 p. "Enhorabuena, ";(Q-R);" Kg. MENOS!"

750
l. 1,0 p. "Evolucin histrica de tu peso  "
l. 5,19 p. "(Pulsa la pantalla)"
ip.
g. 5

2000
Q=me. "Hoy ya has regitrado tu peso. Desas modificarlo?", 768
if Q=5 then g. 697 el. g. 5


e.
rem FIN DEL PROGRAMA
rem Realizado por Samuel Arriaga Flrez y finalizado el 1 de marzo de 1999.
rem Comentarios, rplicas, plegarias, ruegos y bugs a: sarriaga@yahoo.com
rem Todos los derechos reservados en caso de venta y/o distribucion de ste programa.
rem Para uso comercial y/o profesional el precio de este programa es de 20$