10 @ARUN:'*100m Dash Event
20 VIDEO 3:CLV
30 @TITLE
40 CLS
50 LC 2,0:?"*100m Dash*"
60 LC 3,3:?"TIME ";T/60;".";T%60/6
70 IF T<S OR S=0 S=T
80 LC 1,5:?"Today"
90 LC 1,6:?"Record ";S/60;".";S%60/6
100 WAIT 120
110 LC 5,9:?"READY?"
120 IF BTN(32) CONT
130 IF !BTN(32) CONT
140 CLS
150 LC 0,1:?CHR$(251)
160 LC 4,7:?"|";
170 LC 0,0
180 FOR T=3 TO 1 STEP -1
190 ?T;" ";:BEEP:WAIT 60
200 NEXT
210 ?"GO!":BEEP 10,60
220 LC 1,1:CLT
230 FOR R=1 TO 100
240 IF !BTN(32) CONT
250 IF BTN(32) CONT
260 ?CHR$(8,46,251);
270 NEXT
280 T=TICK()
290 ?" GOAL!";
300 BEEP 10,60:WAIT 60
310 GOTO @TITLE