! External procedures for TED Support

%include "inc:util.imp"
%include "level1:graphinc.imp"
%include "ie:terminal.inc"

%constant %byte IMP = 0, pascal = 1
%constant %byte %array encchar(imp:pascal) = '"',''''          { PASCAL
%constant %string (1) %array Encstring(imp:pascal) = """","'"   { PASCAL
%constant %string (4) %array lap(imp:pascal) = "ILAP","PLAP"

! External Data -
%own %short %array error x(0:200), error y(0:200)
%external %byte error ptr
%own %string(255) symbol name

!  Define two dimensional grid for APM
!
!  (in the absense of 2-dimensional array name parameters)

%constinteger frames=4    {max line width}
%constbyteinteger mxlim=18,xrlim=200,ytlim=200

%record %format array fm (%byte %array y (-frames:ytlim+frames) )

! in the absense of > 5 parameters -
%record %format point fm (%integer x, y)

! pointer format
%record %format con f  (%integer t,x,y)

%include "frig.inc"  {REMOVE THIS ASAP}

%include "mouse"

%include "contact"

%include "refresh"

%include "pan"

%include "preadilap"

%include "pextract"

%endoffile