' *** FILLBORD.LST *** 2nd GFA-Manual, page 20-25 > PROCEDURE fill_border(x,y,color) ' ' *** Same as FILL, but stops filling only at border with color& ' *** FILL stops filling at any colour other than the background-colour ' DPOKE PTSIN,x DPOKE PTSIN+2,y DPOKE INTIN,color DPOKE CONTRL+2,1 DPOKE CONTRL+6,1 VDISYS 103 RETURN ' ******* '