CLS
NEW
' ------- 17 Hyakuretsuken
10 CLS:CLP:C=0:?"Hit Any Key"
20 IF INKEY()=0 THEN GOTO 20
30 CLT
40 IF INKEY()=0 THEN GOTO 40
50 LOCATE RND(30),RND(20):PRINT CHR$(244);
60 BEEP:C=C+1:IF C<101 THEN GOTO 40
70 T=TICK()/60
80 LOCATE 9,23:PRINT "Time : ";T;" sec"
90 IF T<4 THEN PRINT "Great":END
100 IF T<7 THEN PRINT "Normal":END
110 PRINT "No Good..."