110 E=RND(22):Y=12:CLT
120 CLS:LC 31,E:?"@":LC 0,Y:?"A";
130 Y=Y-BTN(UP)+BTN(DOWN):WAIT 2
140 IF !BTN(SPACE) AND TICK()<180 GOTO 120
150 FOR I=1 TO 30:?"-";:NEXT
160 IF Y!=E ?"-FAILED":END
170 ?"*SUCCEEDED!":WAIT 120