∞ Cronómetro ∞

Programa: "CRONO"

Norm
Lbl r
0 Ú A~Z
ClrText
Lbl 0
Locate 5,1,"STOP WATCH"
Locate 6,3,"CHOOSE TYPE"
Locate 5,5,"(1) STOP WATCH"
Locate 5,7,"(2) COUNT DOWN"
Getkey = 47 a Goto Z
Getkey = 72 a Goto U
If Getkey = 62
Then 1 Ú F
Goto U
IfEnd
Goto 0
Lbl U
If F=1
Then ClrText
Lbl J
"HORA(S)"? Ú H
If H>99 Or H<0
Then Goto J
IfEnd
Lbl K
"MINUTOS(S)"? Ú M
If M>59 Or M<0
Then Goto K
IfEnd
Lbl L
"SEGUNDO(S)"? Ú S
If S>59 Or S<0
Then Goto L
IfEnd
H=0 a M – 0 a S=0 a Goto U
H Ú U
M Ú V
S Ú W
IfEnd
Lbl 7
Norm
U Ú H
V Ú M
W Ú S
ClrText
Locate 5,1,"STOP WATCH"
Locate 1,3,"---------------------"
Locate 1,5,"---------------------"
H ≥ 0 a Locate 1,4,H
Locate 4,4,"H"
M ≥ 0 a Locate 7,4,M
Locate 10,4,"MN"
S ≥ 0 a Locate 14,4,S
Locate 19,4,"S/T"
Do
Getkey = 68 a Goto 7
Getkey = 47 a Goto Z
Getkey = 48 a Goto r
LpWhile Getkey ≠ 77
Goto 1
IfEnd
Getkey = 62 a Goto 2
Goto 0
Lbl 1
F=0 a Prog "STPWDAT1"
F=1 a Prog "STPWDAT2"
Fix 1
S ≥ 0 a Locate 14,4,S
F=1 a H ≤ 0 a M ≤ 0 a S ≤ 2 a Goto 7
Getkey = 78 a Goto R
Getkey = 47 a Goto Z
Getkey = 48 a Goto r
Getkey = 68 a Goto 7
Goto 1
Lbl R
Do
Getkey = 47 a Goto Z
Getkey = 48 a Goto r
Getkey = 68 a Goto 7
LpWhile Getkey ≠ 77
Goto 1
Lbl Z
ClrText
Stop

Programa: "STPWDAT1"

S+0,16850 Ú S
If S ≥ 59.8
Then Norm
Isz M
Locate 7,4,M
Locate 17,4," "        ' 1 espaço '
0 Ú S
Fix 1
Return
IfEnd
If M>59
Then Norm
Isz H
0 Ú M
0 Ú S
Locate 1,4,H
Locate 8,4," "        ' 1 espaço '
Locate 7,4,M
Fix 1
Return
IfEnd
Return

Programa: "STPWDAT2"

S – 0,1900000 Ú S
If S≤0
Then Norm
59.8 Ú S
Dsz M
M=9 a S=59.8 a Locate 8,4," "        ' 1 espaço '
M≥0 a Locate 7,4,M
Fix 1
Return
IfEnd
If M<0
Then Norm
59.8 Ú S
59 Ú M
Dsz H
H=9 a S=59.8 a Locate 2,4," "        ' 1 espaço '
Locate 7,4,M
Locate 1,4,H
Fix 1
Return
IfEnd
S>9.7 a S<10 a Locate 17,4," "        ' 1 espaço '
Return

Instruções

Use a tecla 1 para parar o cronómetro e a tecla 2 para faz uma contagem decrescente.

A tecla SHIFT para outras opções.

A tecla OPTN para aceder as opções.

A tecla EXIT para sair.

A tecla MENU para ir ao menu principal.