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