program example;

(* full list of all VGP][ support routines declared as external *)

procedure init; external;
procedure down; external;
procedure up; external;
procedure pen; external;
procedure eraser; external;
procedure home; external;
procedure clear; external;
procedure high; external;
procedure low; external;
procedure cyclic; external;
procedure clip; external;
procedure fill; external;
procedure invert_screen; external;
procedure text (slant,orient,xs,ys :integer); external;
procedure block4; external;
procedure block5; external;
procedure vprint (var txt :string); external;
procedure where (var x,y :integer); external;
procedure test (var screen_colour :integer); external;
procedure pagdis (pageno :integer); external;
procedure page1; external;
procedure page2; external;
procedure inverse; external;
procedure normal; external;
procedure protect (col :integer); external;
procedure invert (col :integer); external;
procedure colour (col :integer); external;
procedure mode (write_mode,plane :integer); external;
procedure video (vgporapple :integer); external;
procedure interlace (yesorno :integer); external;
procedure subpg (oneorzero :integer); external;
procedure border (col :integer); external;
procedure xoffset (offset :integer); external;
procedure yoffset (offset :integer); external;
procedure format (config :integer); external;
procedure define_map (var mem; xsize,ysize,mode :integer); external;
procedure draw_map; external;
procedure cafill (mode,boundary :integer); external;
procedure move (x,y :integer); external;
procedure dot (x,y :integer); external;
procedure line_type (ltype :integer); external;
procedure draw (xfrom,yfrom,xto,yto :integer); external;
procedure line (xto,yto :integer); external;
procedure cursor (size :integer); external;
procedure circle (radius :integer); external;
procedure filled_circle (radius :integer); external;
procedure dump (printer_type,iface_type,iface_slot :integer); external;
procedure code_init; external;
function encode (var buffer) :integer; external;
procedure decode (var buffer); external;

procedure print (txt :string);
begin
        vprint (txt);
end;

begin
end.