TIMER UP.basss.basd_PARCDA)/AEAl`TEXTSmBaH@`@``lnch1.0TIMER UP.basH 6YETFX5P M劥 # 4F 5HTl : H" UPUU R< SMainB-F. FXBB-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