CLS
DIM X(5):DIM Y(5):DIM X1(5):DIM Y1(5)
DIM D(32)
D(0)= &B0000111111110000
D(1)= &B0001000000001000
D(2)= &B0010000000000100
D(3)= &B0100000000000010
D(4)= &B1000000000000001
D(5)= &B1000000000000001
D(6)= &B1001100000011001
D(7)= &B1001100000011001
D(8)= &B1000000000000001
D(9)= &B1000000000000001
D(10)= &B1010000000001001
D(11)= &B1001000000010001
D(12)= &B1000111111100001
D(13)= &B0100000000000010
D(14)= &B0010000000001100
D(15)= &B0001111111110000
D(16)= &B0000000000000000
D(17)= &B0000111111110000
D(18)= &B0001000000001000
D(19)= &B0010000000000100
D(20)= &B0100110000010010
D(21)= &B0101010000101010
D(22)= &B0100110000110010
D(23)= &B0100000000000010
D(24)= &B0100000000000010
D(25)= &B0100000000000010
D(26)= &B0101111111110010
D(27)= &B0101111111100010
D(28)= &B0100011111000010
D(29)= &B0011000000001100
D(30)= &B0000111111110000
D(31)= &B0000000000000000
FOR I=0 TO 4
X(I)=I * 20:Y(I)=0:X1(I)=1:Y1(I)=1
NEXT
WHILE 1
CLS
FOR I=0 TO 4
PAT = RND % 2 *16
BITMAP D(PAT),X(I),Y(I),16
NEXT
FOR I=0 TO 4
R=RND AND 2 +1
X(I)=X(I)+X1(I):Y(I)=Y(I)+Y1(I)
IF X(I)<0 THEN X1(I)=R
IF X(I)>105 THEN X1(I)=-R
IF Y(I)<0 THEN Y1(I)=R
IF Y(I)>15 THEN Y1(I)=-R
NEXT
REM
WEND
