TIMER UP.bas ÕøÒ¨È0 Q <ª^=@w‹=@5" B ` TEXTSmBa H@«` Œ@«` lnch 1.0 TIMER UP.bas H üÿ€ÎùÀÎùÀÀùÀüÿ€ ùÀÎùÀÎùÀ ÿÿÀ 6YÀET€FX€5P€ ÿÿÀ þ€ŒMŠ©ŒåŠ¥®€þ
# 4F’ 5 H Tl
:
H â´ Ž "
Šœ â´ Ž UP Uö U
R<
S Main B ”þ -á ”F . ”FÁXº B B ”þ -á ”Z .ûf B .û.' TIMER UP.bas
PEN ON
IF EXIST("TimerUp")
GOTO 1
FI
? CAT(87);
?
?
? " 0.0"
RECT 35,60,125,90
AT 40,70
? "TAP TO START"
REPEAT
y = 1
UNTIL PEN(3)=1
CLS
f = TIMER
OPEN "TimerUp" FOR OUTPUT AS #1
? #1; f
CLOSE #1
RECT 10,65,150,90
AT 65,70
? CAT(87); "STOP"
RECT 10,110,150,135
AT 15, 115
? "EXIT WITHOUT STOPPING"
RECT 70,23,150,48
AT 93,29
? "COUNT"
REPEAT
IF PEN(3)=1 AND PEN(2)>105
GOTO 2
ELIF PEN(2)<50 AND PEN(3)=1
x=x+1
DELAY 100
FI
g = f - TIMER
h = ABS(g)
j = h/60
k = INT(j)
l = j - k
m = l * 60
i = i + 1
IF i = 9
i = 0
FI
AT 0,0
? TIME
?
? " "; k ;" : "; m; " : "; i ; " "
AT 105,5
? x
UNTIL PEN(3)=1 AND PEN(2)<95 AND PEN(2)>50
KILL "TimerUp"
2 PEN OFF
AT 0,100
? "Exiting"
DELAY 1000
END
1 OPEN "TimerUp" FOR INPUT AS #2
INPUT #2; f
CLOSE #2
RECT 10,65,150,90
AT 65,70
? CAT(87); "STOP"
RECT 10,110,150,135
AT 15, 115
? "EXIT WITHOUT STOPPING"
REPEAT
IF PEN(3)=1 AND PEN(2)>105
GOTO 3
FI
g = f - TIMER
h = ABS(g)
j = h/60
k = INT(j)
l = j - k
m = l * 60
i = i + 1
IF i = 9
i = 0
FI
AT 0,0
? TIME
?
? " "; k ;" : "; m; " : "; i ; " "
UNTIL PEN(3)=1 AND PEN(2)<95
KILL "TimerUp"
3 PEN OFF
AT 0,100
? "Exiting"
DELAY 1000
END