{ALIB.INC  (C) Copyright 1983  software Labs. }
procedure paint(x,y,icolor, bcolor,pattern:integer);extern;
procedure getpic(x1,y1,x2,y2:integer; var pic : string); extern;
procedure putpic(x1,y1, action :integer; var pic: string); extern;
		   {action 0: XOR; -1 : NEG; 1 : PSET; 2 : OR; 3 : AND }
r : integer); extern;

procedure circle(x,y,width,height,color,startangle,en