100 VIDEO3: CLS: O=0: R=1 110 A=0: B=0: CLT 120 IF B > TICK() A=A+1 130 B=TICK() 140 T=A*546+B/60 150 H=(O+T)/3600 160 M=(O+T)%3600/60 170 S=(O+T)%3600%60 180 LC 0,0 190 IF H<10 ?"0"; 200 ?H;":"; 210 IF M<10 ?"0"; 220 ?M;":"; 230 IF S<10 ?"0"; 240 ?S 250 K=INKEY() 260 IF (K=10)*(R=1) O=O+T: R=0: GOTO250 270 IF (K=10)*(R=0) R=1: GOTO110 280 IF R=0 GOTO250 290 IF K=32 SCROLL2 300 WAIT10: GOTO120
シンプルながら使いやすいストップウォッチですね。VIDEO3で数字を見易くしているところもGOOD!