TIMER UP.basss.basd_PARCDA)/A‰E¤A–lÕ`TEXTSmBaH@«`Œ@«``lnch1.0TIMER UP.basH  üÿ€ÎùÀÎùÀÀùÀüÿ€ùÀÎùÀÎùÀÿÿÀ6YÀET€FX€5P€ÿÿÀ	þ€ŒMŠ©ŒåŠ¥®€þ
#4F’5HTl
:
Hâ´Ž"
Šœâ´ŽUPUöU
R<
SMainB”þ-á”F. ”FÁXºBB”þ-á”Z.ûfB.û.' TIMER UP.bas
PEN ON
IF EXIST("TimerUp")
GOTO 1
FI
? CAT(87);
?
?
? "              0.0"
RECT 70,120,250,180
AT 80,140
? "TAP TO START"
REPEAT
y = 1
UNTIL PEN(3)=1
CLS
f = TIMER
OPEN "TimerUp" FOR OUTPUT AS #1
? #1; f
CLOSE #1
RECT 20,130,300,180
AT 130,140
? CAT(87); "STOP"
RECT 20,210,300,270
AT 30, 230
? "EXIT WITHOUT STOPPING"
RECT 140,46,300,96
AT 186,58
? "COUNT"
REPEAT
IF PEN(3)=1  AND PEN(2)>210
GOTO 2
ELIF PEN(2)<100 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 210,10
? x
UNTIL PEN(3)=1 AND PEN(2)<190 AND PEN(2)>100
KILL "TimerUp"
2 PEN OFF
AT 0,200
? "Exiting"
DELAY 1000
END 

1 OPEN "TimerUp" FOR INPUT AS #2
INPUT #2;  f
CLOSE #2
RECT 20,130,300,180
AT 130,140
? CAT(87); "STOP"
RECT 20,220,300,270
AT 30, 230
? "EXIT WITHOUT STOPPING"
REPEAT
IF PEN(3)=1  AND PEN(2)>210
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)<190
KILL "TimerUp"
3 PEN OFF
AT 0,200
? "Exiting"
DELAY 1000
END
Source: geocities.com/renwand
