10 REM Joystick: move a star, the button ends
20 GRAPHICS 0:POKE 752,1
30 X=20:Y=12
40 POSITION 2,0:PRINT "Joystick moves, the button ends";
50 POSITION X,Y:PRINT "*";
60 S=STICK(0)
70 IF STRIG(0)=0 THEN POSITION 2,22:PRINT "Bye":END
80 IF S=15 THEN 60
90 POSITION X,Y:PRINT " ";
100 IF S=14 AND Y>2 THEN Y=Y-1
110 IF S=13 AND Y<21 THEN Y=Y+1
120 IF S=11 AND X>2 THEN X=X-1
130 IF S=7 AND X<38 THEN X=X+1
140 W=3:GOSUB 1000
150 GOTO 50
1000 REM Wait W fiftieths of a second
1010 POKE 20,0
1020 IF PEEK(20)<W THEN 1020
1030 RETURN