5 rem set up usr address
10 poke 287,64
20 poke 288,0
30 rem barspin
40 print chr$(7);
50 rem delay 10 seconds
60 x = usr(10)
70 rem do it again
80 goto 40