RANDOMIZE TIMER REM WAS8BIT DIM XDIR(3),YDIR(3),RDIR(3) FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 1,0,0,1,-1,0,0,-1 CX=9 CY=7 DO X=CX Y=CY CLS CELL X,Y,1 WAIT 3 FOR I=1 TO 3 C=1 WHILE C<>0 R=RND(3) XX=X+XDIR(R) YY=Y+YDIR(R) C=CELL.C(XX,YY) WEND X=XX Y=YY RDIR(I)=R CELL X,Y,1 WAIT 3 NEXT I WAIT 15 IR=0 FOR I=1 TO 8 CLS X=CX Y=CY CELL X,Y,1 FOR II=1 TO 3 RR=RDIR(II) FOR S=1 TO IR ADD RR,1,0 TO 3 NEXT S ADD X,XDIR(RR) ADD Y,YDIR(RR) CELL X,Y,1 NEXT II WAIT 6 INC IR NEXT I LOOP #2:MAIN CHARACTERS 00000000000000000000000000000000 7E8181818181817E0000000000000000