10 CLS:SCREEN 1:KEY OFF
20 INPUT"Stick";S
30 LOCATE 0,2
40 ON STICK(S) GOSUB 70,80,90,100,110,120,130,140
50 GOTO 30
60 PRINT "0   (0)":RETURN
70 PRINT "�   (1)":RETURN
80 PRINT "� � (2)":RETURN
90 PRINT "  � (3)":RETURN
100 PRINT "� � (4)":RETURN
110 PRINT "�   (5)":RETURN
120 PRINT "� � (6)":RETURN
130 PRINT "�   (7)":RETURN
140 PRINT "� � (8)":RETURN