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