5 PRINT"[147]":POKE53280,0:POKE53281,0
10 PRINT CHR$(147)TAB(14)"S H A K E!"
20 FOR X=1 TO 10:FOR I=0 TO 5:POKE 53270,(PEEK(53270)AND248)+I:NEXT
30 POKE 53270,200:NEXT