BG 0 BG FILL 0,0 TO 19,15 CHAR 1 BG FILL 0,0 TO 0,15 CHAR 4 BG FILL 19,0 TO 19,15 CHAR 4 BG FILL 1,0 TO 1,15 CHAR 3 BG FILL 18,0 TO 18,15 CHAR 3 BG FILL 2,0 TO 2,15 CHAR 2 BG FILL 17,0 TO 17,15 CHAR 2 BG FILL 0,0 TO 19,0 CHAR 4 BG FILL 1,1 TO 18,1 CHAR 3 BG FILL 2,2 TO 17,2 CHAR 2 BG FILL 0,15 TO 19,15 CHAR 4 BG FILL 1,14 TO 18,14 CHAR 3 BG FILL 2,13 TO 17,13 CHAR 2 REM WASHAW GAMES IMAX=10 DIM CX(IMAX),CY(IMAX),MX(IMAX),MY(IMAX) RANDOMIZE TIMER FOR I=1 TO IMAX GOSUB RANDMOVE CX(I)=INT(RND*20) CY(I)=INT(RND*16) NEXT I BG 1 DO CLS 1 FOR I=1 TO IMAX IF INT(RND*10)=0 THEN GOSUB RANDMOVE CX(I)=CX(I)+MX(I) IF CX(I)<0 THEN CX(I)=19 ELSE IF CX(I)>19 THEN CX(I)=0 CY(I)=CY(I)+MY(I) IF CY(I)<0 THEN CY(I)=15 ELSE IF CY(I)>15 THEN CY(I)=0 GOSUB DODOT NEXT I WAIT 3 LOOP DODOT: CALL PUTDOT(CX(I),CY(I),6) CALL PUTDOT(CX(I)-1,CY(I),5) CALL PUTDOT(CX(I)+1,CY(I),5) CALL PUTDOT(CX(I),CY(I)-1,5) CALL PUTDOT(CX(I),CY(I)+1,5) RETURN RANDMOVE: MX(I)=INT(RND*3)-1 MY(I)=INT(RND*3)-1 RETURN SUB PUTDOT(X,Y,C) IF X>=0 AND X<=19 AND Y>=0 AND Y<=15 THEN CELL X,Y,C END SUB #1:MAIN PALETTES 1000203000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFC381818181C3FF0000000000000000 FFE7C38181C3E7FF0000000000000000 FFFFE7C3C3E7FFFF0000000000000000 FFFFFFE7E7FFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF