10 CLS
20 X=0
30 K=INKEY()
40 IF K<>83 GOTO 30
50 K=INKEY()
60 IF K=69 END
70 IF K=30 LOCATE X,7: PRINT “*”: WAIT 15: LOCATE X,7: PRINT “ “: GOTO 90
75 IF K=31 LOCATE X,15: PRINT “*”: WAIT 15: LOCATE X,15: PRINT “ “: GOTO 90
80 IF K=31 LOCATE X,12: PRINT “*”: WAIT 15: LOCATE X,12: PRINT “ “: GOTO 90
90 X=X+1
100 IF X>32 X=0
110 GOTO 50
120 END