rem Movil Control 1.0
rem Distribuyelo a TUTIPLEN. FREEWARE
g. 800
rem Pulsar en el los recuadros
20
l. 1,17 p. " Samuel Arriaga Flrez 1999. "
ip.
X=px.
Y=py.
if Y>78 then if Y<93 then g. 100
if Y>101 then if Y<113 then g. 200
if Y>123 then if Y<135 then g. 300
if Y>221 then g. 400 else g. 20
rem Introduce la duracin de la llamada
100
bz. 1,1
l. 13,6 p. "       "
l. 9, 13 p. "                "
l. 9, 14 p. "                "
l. 13,6 in. "";D
if D=0 then g. 100
rem CALCULO DEL COSTE DE LA LLAMADA
l. 1,17 p. "            Calculando ...         "
Z=D-60
if D<60 then C!=(20+(60*T!))*1.16 el. C!=(20+((Z*T!)+(60*T!)))*1.16
C$=str$ C!
L=len C$
for I=1 TO L
Z$=mi$. C$, I, 1
if Z$="." then g. 110
if Z$="," then g. 110
n.
110
W=I+1
W$=mi$. C$, W,1
G=val W$
if G<5 then C!=C! el. C!=C!+1
Y=I-1
Q$=left$ C$, Y
F!=val Q$
120
l. 9, 13 p. "                "
fo.
l. 9, 13 p. Q$;" pts."
fo.
rem En Euros
E!=C!/166.386
E$=str$ E!
L!=dint! E!
L$=str$ L!
Y=len L$
W=Y+2
L$=left$ E$,W
l. 9,14 p. L$;" Euros"
fr. 126,102,136,112,2
g. 20
rem Pulsar en los botones de MSG, Festivo y Movistar
200
if X>79 then if X<91 then g. 250
if X>125 then if X<137 then g. 240
g. 20
rem Pulsa en MSG
240
bz. 1,1
fr. 126,102,136,112,1
Q$="29"
C!=29
D=1
g. 120
rem Pulsa S/D/Festivo
250
bz. 1,1
if F=0 then g. 255
fr. 80,102,90,112,2
F=0
if T$="HR" then T!=0.2 el. T!=1.25
g. 20
255
fr. 80,102,90,112,1
T!=0.2
F=1
g. 20
300
if X>125 then if X<137 then g. 310 el. g. 20
rem Pulsa en Movistar/Moviline
310
bz. 1,1
if P=0 then g. 320
fr. 126,124,136,134,2
if T$="HR" then T!=0.2 el. T!=1.25
P=0
g. 20
320
fr. 126,124,136,134,1
T!=0.65
P=1
g. 20
rem Botones de Menu
400
if X>40 then if X<88 then g. 410
if X>100 then if X<150 then g. 450
rem Guarda Valores
410
l. 1,17 p. "            Guardando ...         "
bz. 2,1
if D=0 then g. 430
for I=1 to 100
Z$=str$ I
I$="MC"+Z$
E=find I$
if E=0 then g. 420
n.
420
create I$
wr. D$
wr. Q$
close
D=0
A=me. "Los datos han sido guardados en la base de datos", 1024
if A=3 then g. 20
430
A=me. "Calcula un nuevo coste", 1024
if A=3 then g. 20
rem Carga la base de datos y calcula el TOTAL de llamadas
450
bz. 2,1
c.
P=3
fr. 2,28,156,33,1
l. 2,0 p. "Cargando base de datos ..."
li. 78,30,78,220,1
li. 2,220,156,220,1
fo.
l. 0,2 p. "Fecha"
l. 5,2 p. "Coste"
fo.
rem Busca Ficheros
Q=0
W=6
for I=1 TO 100
if I<12 then g. 460
Q=10 
W=16
fo.
l. 10,2 p. "Fecha"
l. 15,2 p. "Coste"
fo.
460
Z$=str$ I
I$="MC"+Z$
E=find I$
if E=0 then g. 470
open I$
read D$
L=len D$
O=L-10
L$=left$ D$,5
R$=right$ D$,O
E=val R$
Y=U+E
l. Q,P p. " ";L$
fo.
l. W,P p. R$
fo.
close
P=P+1
U=Y
n.
470
if I=1 then g. 480
fo.
l. 1,19 p. "TOTAL: ";Y; " pts."
fo.
l. 1,0 p. "  Histrico de tus llamadas   "
l. 13,19 p. "  (Pulsa)"
ip.
g. 800
480
A=me. "No hay ningna llamada registrada", 1024
if A=3 then g. 800

rem Pinta Pantalla Principal
800
c.
R!=0.2
N!=1.25
fr. 4,0,143,10,0
li. 2,40,156,40,1
l. 5,0 p. "MovilControl v. 1.0"
fo.
l. 1,1 p. " Contrato :"
fo.
l. 9,1 p. "EXACTO en seg."
fo.
D$=date$
H$=time$
l. 2,3 p. "Da :"
fo.
l. 6,3 p. "  ";D$
fo.
l. 2,4 p. "Hora :"
fo.
l. 6,4 p. "  ";H$
rem Verifica la hora para saber si es HR o HN
I$=left$ H$,2
W=val I$
if W<7 then T!=R! else g. 820
g. 850
820
if W<14 then T!=N! else g. 830
g. 850
830
if W<16 then T!=R! else g. 840
g. 850
840
if W<21 then T!=N! else T!=R!
850
if T!=0.2 then T$="HR" el. T$="HN"
fo.
l. 11,4 p. T$
fo.
l. 1,6 p. "Duracin (seg.) :"
re. 92,78,137,93,1
l. 13,6 p. "???"
l. 2,8 p. " S/D/Festivo"
re. 79,101,91,113,0
l. 12,8 p. " MSG" 
re. 125,101,137,113,0
l. 1,10 p. "Movistar/Moviline/Buzn"
re. 125,123,137,135,0
li. 1,143,159,143,0
fo.
l. 3, 13 p. "Coste :"
fo.
re. 68,155,140,180,1 
rem Menu de opciones
li. 2,198,157,198,1
fr. 2,215,157,247,0
fr. 42,222,89,234,2
re. 40,220,91,236,1
re. 40,220,89,234,2
l. 5,19 p. " Guardar"
fr. 102,222,149,234,2
re. 100,220,151,236,1
re. 100,220,149,234,2
l. 13,19 p. "Histrico"
pm. 1
l. 0,19 p. " MENU"
pm. 0
g. 20