RANDOMIZE TIMER REM WAS8BIT DIM X(3),Y(3),DX(3),DY(3),DIR(3),DOMOVE(3) DIM XMOVE(3),YMOVE(3) FOR I=0 TO 3 READ XMOVE(I),YMOVE(I) NEXT I DATA 1,0, 0,1, -1,0, 0,-1 BG 1 BG COPY 0,0,20,16 TO 0,0 X(0)=2*8 Y(0)=2*8 DX(0)=1 SPRITE 0,X(0),Y(0),49 SPRITE 0 PAL 3 X(1)=4*8 Y(1)=4*8 DX(1)=1 SPRITE 1,X(1),Y(1),1 SPRITE 1 PAL 0 X(2)=6*8 Y(2)=6*8 DX(2)=1 SPRITE 2,X(2),Y(2),17 SPRITE 2 PAL 1 X(3)=8*8 Y(3)=8*8 DX(3)=1 SPRITE 3,X(3),Y(3),33 SPRITE 3 PAL 2 DO FOR I=0 TO 3 IF RND(6)=0 THEN DIR(I)=RND(3) TRACE DIR(I) XTARGET=X(I)+XMOVE(DIR(I))*8 YTARGET=Y(I)+YMOVE(DIR(I))*8 IF CELL.C(XTARGET\8,YTARGET\8)=0 THEN DOMOVE(I)=1 ELSE DOMOVE(I)=0 IF DOMOVE(I)=0 THEN DIR(I)=RND(3) NEXT I FOR MOVEIT=1 TO 8 FOR I=0 TO 3 IF DOMOVE(I)=1 THEN ADD X(I),XMOVE(DIR(I)) ADD Y(I),YMOVE(DIR(I)) SPRITE I,X(I),Y(I), END IF NEXT I WAIT VBL NEXT MOVEIT WAIT VBL LOOP #1:MAIN PALETTES 0B3F0C08003F3420003F3B26003C0000 00072A00003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00243C2424243C003C5A7E7E7E7E7E42 0024180808081C003C5A7E7E7E7E7E42 00243C043C203C003C5A7E7E7E7E7E42 00243C043C043C003C5A7E7E7E7E7E42 002424243C0404003C5A7E7E7E7E7E42 00243C203C043C003C5A7E7E7E7E7E42 00243C203C243C003C5A7E7E7E7E7E42 00243C04040404003C5A7E7E7E7E7E42 00243C243C243C003C5A7E7E7E7E7E42 0010387C7C7C38000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00243C2424243C003C5A7E7E7E7E7E42 0024180808081C003C5A7E7E7E7E7E42 00243C043C203C003C5A7E7E7E7E7E42 00243C043C043C003C5A7E7E7E7E7E42 002424243C0404003C5A7E7E7E7E7E42 00243C203C043C003C5A7E7E7E7E7E42 00243C203C243C003C5A7E7E7E7E7E42 00243C04040404003C5A7E7E7E7E7E42 00243C243C243C003C5A7E7E7E7E7E42 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00243C2424243C003C5A7E7E7E7E7E42 0024180808081C003C5A7E7E7E7E7E42 00243C043C203C003C5A7E7E7E7E7E42 00243C043C043C003C5A7E7E7E7E7E42 002424243C0404003C5A7E7E7E7E7E42 00243C203C043C003C5A7E7E7E7E7E42 00243C203C243C003C5A7E7E7E7E7E42 00243C04040404003C5A7E7E7E7E7E42 00243C243C243C003C5A7E7E7E7E7E42 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFC3DBDB5A000024003C2424243C 3C7EFFE7F7F77620002400180808081C 3C7EFFC3FBC35E000024003C043C203C 3C7EFFC3FBC37A000024003C043C043C 3C7EFFDBDBC37A3800240024243C0404 3C7EFFC3DFC37A000024003C203C043C 3C7EFFC3DFC35A000024003C203C243C 3C7EFFC3FBFB7A380024003C04040404 3C7EFFC3DBC35A000024003C243C243C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 003C7E7E7E7E3C003C42BDA5A5A57E3C 003C7E7E7E7E3C003C42998989895E3C 003C7E7E7E7E3C003C42BD85BDA17E3C 003C7E7E7E7E3C003C42BD85BD857E3C 003C7E7E7E7E3C003C42A5A5BD85463C 003C7E7E7E7E3C003C42BDA1BD857E3C 003C7E7E7E7E3C003C42BDA1BDA57E3C 003C7E7E7E7E3C003C42BD858585463C 003C7E7E7E7E3C003C42BDA5BDA57E3C 003C7E7E7E7E3C003C42BDA5BD857E3C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFFFFFFF7E3C00003C2424243C00 3C7EFFFFFFFF7E3C0000180808081C00 3C7EFFFFFFFF7E3C00003C043C203C00 3C7EFFFFFFFF7E3C00003C043C043C00 3C7EFFFFFFFF7E3C000024243C040400 3C7EFFFFFFFF7E3C00003C203C043C00 3C7EFFFFFFFF7E3C00003C203C243C00 3C7EFFFFFFFF7E3C00003C0404040400 3C7EFFFFFFFF7E3C00003C243C243C00 3C7EFFFFFFFF7E3C00003C243C043C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF00003C2424243C00 FFFFFFFFFFFFFFFF0000180808081C00 FFFFFFFFFFFFFFFF00003C043C203C00 FFFFFFFFFFFFFFFF00003C043C043C00 FFFFFFFFFFFFFFFF000024243C040400 FFFFFFFFFFFFFFFF00003C203C043C00 FFFFFFFFFFFFFFFF00003C203C243C00 FFFFFFFFFFFFFFFF00003C0404040400 FFFFFFFFFFFFFFFF00003C243C243C00 FFFFFFFFFFFFFFFF00003C243C043C00 FFFFFFFFFFFFFFFF0000000000000000 007F7F6B6B7F7F000000081C1C080000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 0000000000000000000000006A046A04 6A046A046A046A046A046A046A046A04 6A046A046A046A046A046A046A046A04 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400006A0400006A040000 6A0400006A0400000000000000000000 00000000000000000000000000000000 00000000000000006A0400006A046A04 6A046A046A046A046A046A046A046A04 6A046A046A046A046A046A046A046A04 6A040000