TIMER DOWN.bas PUz<ªAö?†>øzþ†`TEXTSmBaH@o Œ@o zlnch1.0TIMER DOWN.basH  üÿ€ÎùÀÎùÀÀùÀüÿ€ùÀÎùÀÎùÀÿÿÀ6YÀET€FX€5P€ÿÿÀ	þ€ŒMŠ©ŒåŠ¥®€þl-€¸l)€°l%HTl
:
Hâ´Ž"
Šœâ´ŽUPUöU
R<
SMainN~¡p.mj ¸.  ¸ÁXºNzNz¡p.mj Ì/‡ÌNz/‡”' TIMER DOWN.bas
PEN ON
IF  EXIST("TimerDown") = 1
GOTO 1
FI
? CAT(87); 
INPUT "ENTER MINUTES or 0: "; m
INPUT "ENTER SECONDS & PRESS            ENTER TO START: "; s
CLS
a = TIMER
t=m*60
r=s+t
OPEN "TimerDown" FOR OUTPUT AS #1
? #1; a
? #1; r
? #1; m
CLOSE #1
RECT 10,55,150,80
AT 65,60
? CAT(87); "STOP"
RECT 10,100,150,125
AT 15, 105
? "EXIT WITHOUT STOPPING"
REPEAT
b = TIMER - a
c = r - b
d = c / 60
f = d - INT(d)
g = f * 60
AT 0,0
? TIME
? "Seconds Input= ";s
? "          "; INT(d) ;" : "; g ;"   "
IF PEN(3)=1 AND PEN(2)>95
GOTO 3
FI
UNTIL PEN(3)=1 AND PEN(2)<85 OR c<=0
CLS
RECT 120,120,159,145
AT 130,127: ? CAT(87); "OFF"
REPEAT
RECT 5,5,155,115 FILLED
SOUND 5000,300,100
RECT 10,10,150,110 COLOR 15 FILLED
SOUND 4000,300,100
AT 5,130
? ROUND ((TIMER-a-r)/60,2);" Minutes passed   "
UNTIL PEN(3)=1 AND PEN(1)>122 AND PEN(2)>122
KILL "TimerDown"
3 PEN OFF
END

1 OPEN "TimerDown" FOR INPUT AS #2
INPUT #2; a
INPUT #2; r
INPUT #2; m
CLOSE #2
RECT 10,55,150,80
AT 65,60
? CAT(87); "STOP"
RECT 10,100,150,125
AT 15, 105
? "EXIT WITHOUT STOPPING"
REPEAT
b = TIMER - a
c = r - b
d = c / 60
f = d -  INT(d)
g = f * 60
AT 0,0
? TIME
? "Min. Input= ";m;" .  Min. passed= ";m- INT(d)
? "          ";  INT(d) ;" : "; g ;"   "
IF PEN(3)=1 AND PEN(2)>95
GOTO 4
FI
UNTIL PEN(3)=1 AND PEN(2)<85 OR c<=0
CLS
RECT 120,120,159,145
AT 130,127: ? CAT(87); "OFF"

REPEAT
RECT 5,5,155,115 FILLED
SOUND 5000,300,100
RECT 10,10,150,110 COLOR 15 FILLED
SOUND 4000,300,100
AT 5,130
? ROUND ((TIMER-a-r)/60,2);" Minutes passed   "
UNTIL PEN(3)=1 AND PEN(1)>122 AND PEN(2)>122
KILL "TimerDown"
4 PEN OFF
END
D

END
Source: geocities.com/renwand
