Commodore VIC-20 - Making a Character Multicolored

21313 OOTO 1313
2113 REM ~JAVE LEFT MAWS ARM ONL'T'
2213 POKE SB+l,129
2313 FOR 1=1 TO DLY NEXT I
2413 POKE SB+l,131
2513 FOR 1=1 TO DL'T' NEXT I
2613 POKE SB+l,132
2713 FOR 1=1 TO DLY NEXT I
2813 POKE SB+l,131
2913 FOR 1=1 TO DL'r' NEXT I
31313 RETURt~
3113 REM WAVE BOTH MEWS ARMS
3213 POKE SB+1,129
3313 FOR 1=1 TO DLY/2 NE:-;T I
3413 POKE SB+6,131
3513 FOR 1=1 TO DLY/2 NEXT I
360 POKE SB+1,131
3713 FOR 1=1 TO DL'T'/2 NEXT I
3813 POKE SB+6,132
390 FOR 1=1 TO DLY/2 NEXT I
400 POKE SB+1,132
4113 FOR 1=1 TO DL'T'/2 NEXT I
420 POKE SB+6,131
430 FOR 1=1 TO DLY/2 NEXT I
440 POKE SB+1,131
450 FOR 1=1 TO DL'T'/2 NEXT I
4613 POKE SB+6,129
470 FOR 1=1 TO DLY/2 t~EXT I
480 RETURN
4913 REM WAVE RIGHT MAWS ARM ONLY
51313 POKE SB+6,131
510 FOR 1=1 TO DL'r' ~lE;':T I
520 POKE SB+6 .. 132
5313 FOR 1=1 TO DLY NEXT I
5413 POKE SB+6,131
5513 FOR 1=1 TO DLY NEXT I
5613 POKE SB+6, 129
5713 FOR 1=1 TO DL'T' NEXT I
5813 RETURN
5913 REM INITIALIZATION
61313 REM SET DELAY LOOP LENGTH
6113 DLY=1ee
6213 REM PO I NT V. I . C. AT M'T' CHARACTERS
630 POKE 36869,254
6413 REM COpy UNREVERSED CHARACTERS
Chapter 6 Graphics 207
6513 FOR I =6144 TO 6668 : POKE L PEEK (26624+ 1) : t~EXT I
6613 SB=256*PEEK(648):CB=37888+256*(PEEK(648) AND 2)
6713 REM CLEAR SCREEt~ A~lD SET UP DISPLAY AREA
6813 PR I NT" :l$.lA! II I!t!D"
6913 PR It~T" I!GVW! .",W::"
7013 REM LOAD TOP HALF OF PLAYER