1 A=A+1
2 IFA=1THENLOAD"ANIMATOR CODE",8,1
5 REM******************************
10 DATA11,12,15,1,1,15,12,11
20 POKE53280,0:POKE53281,0:PRINT"[147]"
30 IFPEEK(49152)<>32THENPRINT"PLEASE LOAD ANIMATOR CODE FIRST.":END
40 PRINT"[158]PLEASE WAIT..PROCESSING SPRITES"
50 POKE52,48:POKE56,48:CLR
60 REM****SET UP SPRITES******
70 FORA=0TO64*16:POKE12288+A,0:NEXT
80 FORA=64*8TO0STEP-61:POKE12288+A,255:POKE12289+A,255:POKE12290+A,255:NEXT
90 FORA=64*8TO64*16STEP67:POKE12224+A,255:POKE12225+A,255:POKE12226+A,255:NEXT
100 V=53248
110 FORA=0TO14STEP2:POKEV+A,80+CO:CO=CO+24:NEXT
120 FORA=1TO15STEP2:POKEV+A,150:NEXT
130 POKE1544+19,87:POKE1544+20,87
140 POKE646,1:PRINTCHR$(147):PRINT" DEMO OF ANIMATION BY CLIVE HORNER"
150 POKE1544+19,87:POKE1544+20,87
160 FORA=0TO7:READDA:POKEV+39+A,DA:NEXT
170 REM****HANDLE ANIMATION*****
180 FORA=0TO7:SYS49152,A,192,15,0,1:NEXT
190 FORA=0TO7:SYS49845,A
200 FORT=1TO100:NEXT:NEXT
210 REM****TURN ON ALL SPRITES****
220 POKEV+21,255
230 END