Commodore VIC-20 - Page 219

Chapter 6 Graphics 205
To liven him up a bit, we'll make him wave one arm by defining two
more versions of the character that contains the arm.
To observe him in action, enter the following program:
100 CLR:POKE 52124:POKE 56124:CLR
105 DLY=500
110 POKE 36869,254
115 REM COPY UNREVERSED CHARACTERS
120 FOR 1=6144 TO 6668 : POKE I,PEEK(26624+l) : NEXT I
130 SB=256*PEEK(648):CB=378S8+256*(PEEK(648) AND 2)
135 REM CLEAR SCREEN AND SET UP DISPLAY AREA
140 PRINT "::laQA"
150 PRINT ''It/W''
160 REM LOAD TOP HALF OF PLAYER