{------------------------------------------------------------------------}
    {-------------------------------/                                   \----}
    {----                       ----!   Const,  Type  and  Procedure    !----}
    {----    L I S T . D E F    ----!   definitions for LIST version    !----}
    {----                       ----!   1.1,   the  listing  module.    !----}
    {-------------------------------\                                   /----}
    {------------------------------------------------------------------------}

TYPE
    fname = PACKED ARRAY [1..50] OF char;
    ch3   = PACKED ARRAY [1..3] OF char;

    PROCEDURE lstini	(    write  : boolean;
			     defext : ch3;
			     lines  : integer;
			     header : string);			EXTERN;
    PROCEDURE lstput	(    c      : char);			EXTERN;
    PROCEDURE lststr	(    str    : string;
			     length : integer);			EXTERN;
    PROCEDURE lstint	(    value  : integer;
			     width  : integer);			EXTERN;
    PROCEDURE lstxch	(    c      : char);			EXTERN;
    PROCEDURE lstnumber	(    on     : boolean);			EXTERN;
    PROCEDURE lston;						EXTERN;
    PROCEDURE lstoff;						EXTERN;

    PROCEDURE lstsln	(    line   : integer);			EXTERN;
    FUNCTION  lstgln				: integer;	EXTERN;

    PROCEDURE lstspn	(    page   : integer);			EXTERN;
    FUNCTION  lstgpn				: integer;	EXTERN;
    FUNCTION  lstgfp				: integer;	EXTERN;

    PROCEDURE lstpag;						EXTERN;
    PROCEDURE lstneed	(    lines  : integer);			EXTERN;
    PROCEDURE lstnl;						EXTERN.