TIMER DOWN.bas PUzz`TEXTSmBaH@o@ozlnch1.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 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