TIMER UP.basÕøÒ¨È0Q<ª^=@w‹=@5"B`TEXTSmBaH@«`Œ@«`lnch1.0TIMER UP.basH üÿ€ÎùÀÎùÀÀùÀüÿ€ùÀÎùÀÎùÀÿÿÀ6YÀET€FX€5P€ÿÿÀ þ€ŒMŠ©ŒåŠ¥®­€þ # 4F’ 5HTl : Hâ´Ž" Šœâ´ŽUPUöU R< SMainB”þ-á”F. ”FÁXºBB”þ-á”Z.ûfB.û.' TIMER UP.bas PEN ON IF EXIST("TimerUp") GOTO 1 FI ? CAT(87); ? ? ? " 0.0" RECT 35,60,125,90 AT 40,70 ? "TAP TO START" REPEAT y = 1 UNTIL PEN(3)=1 CLS f = TIMER OPEN "TimerUp" FOR OUTPUT AS #1 ? #1; f CLOSE #1 RECT 10,65,150,90 AT 65,70 ? CAT(87); "STOP" RECT 10,110,150,135 AT 15, 115 ? "EXIT WITHOUT STOPPING" RECT 70,23,150,48 AT 93,29 ? "COUNT" REPEAT IF PEN(3)=1 AND PEN(2)>105 GOTO 2 ELIF PEN(2)<50 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 105,5 ? x UNTIL PEN(3)=1 AND PEN(2)<95 AND PEN(2)>50 KILL "TimerUp" 2 PEN OFF AT 0,100 ? "Exiting" DELAY 1000 END 1 OPEN "TimerUp" FOR INPUT AS #2 INPUT #2; f CLOSE #2 RECT 10,65,150,90 AT 65,70 ? CAT(87); "STOP" RECT 10,110,150,135 AT 15, 115 ? "EXIT WITHOUT STOPPING" REPEAT IF PEN(3)=1 AND PEN(2)>105 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)<95 KILL "TimerUp" 3 PEN OFF AT 0,100 ? "Exiting" DELAY 1000 END