C64 Software  <  SCA: The C64 Software Collection / AMIGA->SPRITES

  Run
1 POKE53269,255
10 FORI=0TO7
20 S=12288+64*I:POKE2040+I,S/64
21 POKE53248+2*I,100+24*(IAND3)
22 POKE53249+2*I,100+21*INT(I/4)
30 FORJ=0TO20:FORK=0TO2
40 A=PEEK(8192+40*J+3*(IAND3)+21*40*INT(I/4)+K)
50 POKES+K+3*J,A
60 NEXT:NEXT:NEXT
70 PRINT""
READY.