10 VIC=53248:SPR=11:POKE2040,SPR
20 ZI=SPR*64:BG=40960:AN=63
30 POKEVIC+23,1:POKEVIC+29,1
40 POKEVIC,24:POKEVIC+1,50:POKEVIC+39,0
50 PRINT"[147]","[211]PRITE-[193]NIMATION"
80 POKEVIC+21,1
90 FORI=BGTO49151STEPAN:QU=I:GOSUB2100
110 NEXT
150 POKEVIC+21,0
998 END
999 :
2100 Z=ZI:GOSUB2200:POKE53,LO:POKE54,HI
2105 Z=QU:GOSUB2200:POKE781,LO:POKE782,HI
2110 POKE780,AN+1:SYS46728
2120 RETURN
2200 HI=INT(Z/256):LO=Z-HI*256
2210 RETURN