10 REM a bouncing bar routine 
100 KEY
110 MODE
120 HIDE
130 CURS
140 GET PALETTE
160 LOGIC
170 UPDATE
180 REPEAT
190 FOR
191 CLS
20 REM by ah-YEAH of THB 30 January 1991
200 FOR
210 SCREEN COPY
220 NEXT
230 SCREEN SWAP
250 NEXT
260 UNTIL
30 REM only took 3 minutes !( 2 of those I spent looking at the code) 
31 REM NEEDS A PICTURE IN BANK 15 
32 REM WHICH HAS A BAR THAT IS 10 PIXELS DEEP, AND AT THE 
33 REM TOP OF THE SCREEN
40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
50 DIM
60 FOR
70 VARNAME
80 VARNAME
90 NEXT