10 REM CHARACTER ANIMATION - DAN PINAL›15 ? "HOW MANY BIRDS (1-4)";:INPUT N:N=N-1›20 GOSUB 10000:REM INITIALIZE›30 FOR L1=0 TO N›40 B(L1)=B(L1)+F(L1):IF B(L1)-3 OR B(L1)=0 THEN F(L1)=-F(L1)›50 R=INT(3*RND(0))-1:NX(L1)=BX(L1)+R*(BX(L1)+R>0 AND BX(L1)+R<35)›60 R=INT(3*RND(0))-1:NY(L1)=BY(L1)+R*(BY(L1)+R>0 AND BY(L1)+R<20)›80 X=USR(ADR(MCYCLER$),BY(L1),BX(L1),6,3,0)›90 X=USR(ADR(MCYCLER$),NY(LI),NX(L1),6,3,B(L1)*18+1):BX(L1)=NX(L1):BY(L1)=NY(L1)›95 NEXT L1›96 IF PEEK(53279)=5 THEN POKE 756,224›97 IF PEEK(53279)=3 THEN POKE 756,CB›100 GOTO 30›10000 DATA 104,104,104,168,166,89,104,104,24,101,88,144,1,232›10005 DATA 136,48,8,24,105,40,144,248,232,208,245›10010 DATA 133,212,134,213,104,104,133,206,104,104,133,207,104,104›10015 DATA 170,160,0,145,212,201,0,240,2,232,138›10020 DATA 200,196,206,208,243,24,169,40,101,212,133,212,144›10025 DATA 2,230,213,138,198,207,208,225,96›10030 DIM MCYCLER$(72):FOR L=1 TO 72:READ X:MCYCLER$(L,L)=CHR$(X):NEXT L›10040 POKE 106,PEEK(106)-9:GRAPHICS 0:POKE 709,170:POKE 710,10:POKE 712,130›10050 POKE 752,1:CB=PEEK(106)+1:CHRSET=CB*256›10060 DLIST=PEEK(560)+256*PEEK(561)›10070 POKE DLIST+3,68:REM LMS ANTIC 4›10080 FOR L1=DLIST+6 TO DLIST+28:POKE L1,4:NEXT L1:REM CHANGE DLST FROM GR. 0 TO ANTIC 4›10090 POKE 756,CB:REM SET POINTER TO OUR NEW CHRSET.›10100 REM NOW POKE IN NEW CHRSET›10110 FOR L1=0 TO 583:READ X:POKE CHRSET+L1,X:NEXT L1›10200 DIM B(3),BX(3),BY(3),NX(3),NY(3),F(3)›10210 FOR L1=0 TO 3:B(L1)=L1:BX(L1)=L1*10:BY(L1)=5:F(L1)=1:NEXT L1:F(3)=-1›10220 RETURN ›20000 DATA 0,0,0,0,0,0,0,0›20001 DATA 0,0,0,0,0,0,0,0›20002 DATA 2,2,2,2,2,2,2,2›20003 DATA 0,0,0,0,0,128,128,128›20004 DATA 0,0,0,0,0,0,0,0›20005 DATA 32,32,32,32,32,160,160,160›20006 DATA 0,0,0,0,0,0,0,0›20007 DATA 0,0,0,0,0,0,0,0›20008 DATA 2,0,0,0,0,0,0,0›20009 DATA 128,160,160,163,160,34,42,42›20010 DATA 0,2,2,242,194,98,106,170›20011 DATA 160,128,128,128,0,0,0,0›20012 DATA 0,0,0,0,0,0,0,0›20013 DATA 0,0,0,0,0,0,0,0›20014 DATA 0,0,0,0,0,0,0,0›20015 DATA 42,10,9,6,4,4,4,17›20016 DATA 170,168,152,164,4,4,4,17›20017 DATA 0,0,0,0,0,0,0,0›20018 DATA 0,0,0,0,0,0,0,0›20019 DATA 0,0,0,32,8,2,2,0›20020 DATA 0,0,0,0,0,0,128,160›20021 DATA 0,0,0,0,0,0,0,3›20022 DATA 0,0,0,0,0,0,0,240›20023 DATA 0,0,0,0,0,0,0,2›20024 DATA 0,0,0,2,8,32,160,128›20025 DATA 0,0,0,0,0,0,0,0›20026 DATA 40,42,10,2,0,0,0,0›20027 DATA 0,2,130,170,170,42,9,6›20028 DATA 192,96,96,170,170,170,152,164›20029 DATA 10,42,168,160,128,0,0,0›20030 DATA 0,0,0,0,0,0,0,0›20031 DATA 0,0,0,0,0,0,0,0›20032 DATA 0,0,0,0,0,0,0,0›20033 DATA 4,4,4,17,0,0,0,0›20034 DATA 4,4,4,17,0,0,0,0›20035 DATA 0,0,0,0,0,0,0,0›20036 DATA 0,0,0,0,0,0,0,0›20037 DATA 0,0,0,0,0,0,0,0›20038 DATA 0,0,0,0,0,0,0,0›20039 DATA 0,0,0,3,0,2,2,10›20040 DATA 0,0,0,240,192,96,96,168›20041 DATA 0,0,0,0,0,0,0,0›20042 DATA 0,0,0,0,0,0,0,0›20043 DATA 0,0,0,0,0,0,0,0›20044 DATA 0,0,2,2,10,8,40,160›20045 DATA 42,170,169,134,4,4,4,17›20046 DATA 170,170,154,164,4,4,4,17›20047 DATA 0,128,160,160,40,40,10,2›20048 DATA 0,0,0,0,0,0,0,0›20049 DATA 0,2,2,2,0,0,0,0›20050 DATA 128,128,0,0,0,0,0,0›20051 DATA 0,0,0,0,0,0,0,0›20052 DATA 0,0,0,0,0,0,0,0›20053 DATA 2,0,0,0,0,0,0,0›20054 DATA 128,160,32,32,0,0,0,0›20055 DATA 0,0,0,0,0,0,0,0›20056 DATA 0,0,0,0,0,0,0,0›20057 DATA 3,0,2,2,10,42,42,169›20058 DATA 240,192,96,96,168,170,170,154›20059 DATA 0,0,0,0,0,0,0,128›20060 DATA 0,0,0,0,0,0,0,0›20061 DATA 0,0,0,0,0,0,0,0›20062 DATA 0,0,2,2,2,2,2,0›20063 DATA 166,164,164,132,145,128,128,160›20064 DATA 166,6,6,4,17,0,0,2›20065 DATA 128,128,160,160,160,160,128,128›20066 DATA 0,0,0,0,0,0,0,0›20067 DATA 0,0,0,0,0,0,0,0›20068 DATA 0,0,0,0,0,0,0,0›20069 DATA 160,32,32,40,40,8,8,2›20070 DATA 2,2,2,10,10,8,8,32›20071 DATA 128,0,0,0,0,0,0,0›20072 DATA 0,0,0,0,0,0,0,0›