PRO mk,mask,cols,rows
IF N_PARAMS() EQ 0 THEN PRINT,'Usage: mk, mask[, cols[, rows ] ]'
IF N_PARAMS() GE 2 THEN c=cols ELSE c=256
IF N_PARAMS() EQ 3 THEN r=rows ELSE r=256
mask=BYTARR(c,r)
RETURN
END