TIMER DOWN.bass.basd_PARCDA).Cw&Al `TEXTSmBaH@o@o`lnch1.0TIMER DOWN.basH  6YETFX5P	M劥l-l)l%HTl
:
H"
UPUU
R<
SMainN~p.mj. XNzNzp.mj/Nz/' TIMER DOWN.bas
PEN ON
IF  EXIST("TimerDown") = 1
GOTO 1
FI
? CAT(87); 
INPUT "ENTER MINUTES or 0: "; m
? "ENTER SECONDS"
INPUT"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 20,110,300,160
AT 130,120
? CAT(87); "STOP"
RECT 20,200,300,250
AT 30, 210
? "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)>190
GOTO 3
FI
UNTIL PEN(3)=1 AND PEN(2)<170 OR c<=0
CLS
RECT 240,240,318,290
AT 260,254: ? CAT(87); "OFF"
REPEAT
RECT 10,10,310,230 FILLED
SOUND 5000,300,100
RECT 20,20,300,220 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)>244 AND PEN(2)>244
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 20,110,300,160
AT 130,120
? CAT(87); "STOP"
RECT 20,200,300,250
AT 30, 210
? "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)>190
GOTO 4
FI
UNTIL PEN(3)=1 AND PEN(2)<170 OR c<=0
CLS
RECT 240,240,318,290
AT 260,254: ? CAT(87); "OFF"

REPEAT
RECT 10,10,310,230 FILLED
SOUND 5000,300,100
RECT 20,20,300,220 COLOR 15 FILLED
SOUND 4000,300,100
AT 10,260
? ROUND ((TIMER-a-r)/60,2);" Minutes passed   "
UNTIL PEN(3)=1 AND PEN(1)>244 AND PEN(2)>244
KILL "TimerDown"
4 PEN OFF
END
OFF
END

    Source: geocities.com/renwand