perm filename BAIPD8.FAI[10X,AIL] blob sn#191908 filedate 1975-12-13 generic text, type T, neo UTF8
	TITLE	BAIPD8
	BEGIN	BAIPD8
$BEGIN←←.+1



	ASCII	/OUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL OUT
	,OUT
	3
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OUT,0
	XWD	OUT,0
	0+INTEGR+VALUE
	0+STRING+VALUE


	ASCII	/BREAKSET/
	0
	LINK	PDLNK,.-1
	EXTERNAL BREAKSET
	,BREAKSET
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	BREAKSET,0
	XWD	BREAKSET,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+INTEGR+VALUE


	ASCII	/INPUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL INPUT
	,INPUT
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INPUT,0
	XWD	INPUT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/LOOKUP/
	0
	LINK	PDLNK,.-1
	EXTERNAL LOOKUP
	,LOOKUP
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LOOKUP,0
	XWD	LOOKUP,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+INTEGR+REFRNC


	ASCII	/OPEN/
	0
	LINK	PDLNK,.-1
	EXTERNAL OPEN
	,OPEN
	4
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*1,10
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OPEN,0
	XWD	OPEN,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/SETPL/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETPL
	,SETPL
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETPL,0
	XWD	SETPL,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/POINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL POINT
	,POINT
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	POINT,0
	XWD	POINT,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+VALUE


	ASCII	/SETPRINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETPRINT
	,SETPRINT
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETPRINT,0
	XWD	SETPRINT,0
	0+STRING+VALUE
	0+INTEGR+VALUE


	ASCII	/GETPRINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL GETPRINT
	,GETPRINT
	10
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GETPRINT,0
	XWD	GETPRINT,0


	ASCII	/EQU/
	0
	LINK	PDLNK,.-1
	EXTERNAL EQU
	,EQU
	3
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*2,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	EQU,0
	XWD	EQU,0
	0+STRING+VALUE
	0+STRING+VALUE


	ASCII	/CVS/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVS
	,CVS
	3
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVS,0
	XWD	CVS,0
	0+INTEGR+VALUE


	ASCII	/CVD/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVD
	,CVD
	3
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVD,0
	XWD	CVD,0
	0+STRING+VALUE


	ASCII	/SCAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL SCAN
	,SCAN
	4
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SCAN,0
	XWD	SCAN,0
	0+STRING+REFRNC
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/RELEASE/
	0
	LINK	PDLNK,.-1
	EXTERNAL RELEASE
	,RELEASE
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RELEASE,0
	XWD	RELEASE,0
	0+INTEGR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/LINOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL LINOUT
	,LINOUT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LINOUT,0
	XWD	LINOUT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/CLOSE/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLOSE
	,CLOSE
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLOSE,0
	XWD	CLOSE,0
	0+INTEGR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/CLOSO/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLOSO
	,CLOSO
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLOSO,0
	XWD	CLOSO,0
	0+INTEGR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/CLOSIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLOSIN
	,CLOSIN
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLOSIN,0
	XWD	CLOSIN,0
	0+INTEGR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/CVOS/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVOS
	,CVOS
	4
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVOS,0
	XWD	CVOS,0
	0+UNTYPE+VALUE


	ASCII	/ENTER/
	0
	LINK	PDLNK,.-1
	EXTERNAL ENTER
	,ENTER
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ENTER,0
	XWD	ENTER,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+INTEGR+REFRNC


	ASCII	/MTAPE/
	0
	LINK	PDLNK,.-1
	EXTERNAL MTAPE
	,MTAPE
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MTAPE,0
	XWD	MTAPE,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/WORDIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL WORDIN
	,WORDIN
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	WORDIN,0
	XWD	WORDIN,0
	0+INTEGR+VALUE


	ASCII	/WORDOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL WORDOUT
	,WORDOUT
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	WORDOUT,0
	XWD	WORDOUT,0
	0+INTEGR+VALUE
	0+UNTYPE+VALUE


	ASCII	/CVO/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVO
	,CVO
	3
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVO,0
	XWD	CVO,0
	0+STRING+VALUE


	ASCII	/USETI/
	0
	LINK	PDLNK,.-1
	EXTERNAL USETI
	,USETI
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	USETI,0
	XWD	USETI,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/USETO/
	0
	LINK	PDLNK,.-1
	EXTERNAL USETO
	,USETO
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	USETO,0
	XWD	USETO,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/CVSIX/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVSIX
	,CVSIX
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVSIX,0
	XWD	CVSIX,0
	0+STRING+VALUE


	ASCII	/CVFIL/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVFIL
	,CVFIL
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVFIL,0
	XWD	CVFIL,0
	0+STRING+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/CALL/
	0
	LINK	PDLNK,.-1
	EXTERNAL CALL
	,CALL
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CALL,0
	XWD	CALL,0
	0+INTEGR+VALUE
	0+STRING+VALUE


	ASCII	/RENAME/
	0
	LINK	PDLNK,.-1
	EXTERNAL RENAME
	,RENAME
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RENAME,0
	XWD	RENAME,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/EDFILE/
	0
	LINK	PDLNK,.-1
	EXTERNAL EDFILE
	,EDFILE
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	EDFILE,0
	XWD	EDFILE,0
	0+STRING+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/CVASC/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVASC
	,CVASC
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVASC,0
	XWD	CVASC,0
	0+STRING+VALUE


	ASCII	/CVSTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVSTR
	,CVSTR
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVSTR,0
	XWD	CVSTR,0
	0+INTEGR+VALUE


	ASCII	/CVASTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVASTR
	,CVASTR
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVASTR,0
	XWD	CVASTR,0
	0+INTEGR+VALUE


	ASCII	/CVXSTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVXSTR
	,CVXSTR
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVXSTR,0
	XWD	CVXSTR,0
	0+INTEGR+VALUE


	ASCII	/CV6STR/
	0
	LINK	PDLNK,.-1
	EXTERNAL CV6STR
	,CV6STR
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CV6STR,0
	XWD	CV6STR,0
	0+INTEGR+VALUE


	ASCII	/SETBREAK/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETBREAK
	,SETBREAK
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*3,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETBREAK,0
	XWD	SETBREAK,0
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+STRING+VALUE


	ASCII	/GETBREAK/
	0
	LINK	PDLNK,.-1
	EXTERNAL GETBREAK
	,GETBREAK
	10
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GETBREAK,0
	XWD	GETBREAK,0


	ASCII	/RELBREAK/
	0
	LINK	PDLNK,.-1
	EXTERNAL RELBREAK
	,RELBREAK
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RELBREAK,0
	XWD	RELBREAK,0
	0+INTEGR+VALUE


	ASCII	/STDBRK/
	0
	LINK	PDLNK,.-1
	EXTERNAL STDBRK
	,STDBRK
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STDBRK,0
	XWD	STDBRK,0
	0+INTEGR+VALUE


	ASCII	/ARRYIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRYIN
	,ARRYIN
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRYIN,0
	XWD	ARRYIN,0
	0+INTEGR+VALUE
	0+UNTYPE+REFRNC
	0+INTEGR+VALUE


	ASCII	/ARRYOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRYOUT
	,ARRYOUT
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRYOUT,0
	XWD	ARRYOUT,0
	0+INTEGR+VALUE
	0+UNTYPE+REFRNC
	0+INTEGR+VALUE


	ASCII	/SETFORMAT/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETFORMAT
	,SETFORMAT
	11
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETFORMAT,0
	XWD	SETFORMAT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/CVG/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVG
	,CVG
	3
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVG,0
	XWD	CVG,0
	0+FLOTNG+VALUE


	ASCII	/CVF/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVF
	,CVF
	3
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVF,0
	XWD	CVF,0
	0+FLOTNG+VALUE


	ASCII	/CVE/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVE
	,CVE
	3
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVE,0
	XWD	CVE,0
	0+FLOTNG+VALUE


	ASCII	/REALIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL REALIN
	,REALIN
	6
	POINT	7,.-5
	REFB+PROCB+FLOTNG
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	REALIN,0
	XWD	REALIN,0
	0+INTEGR+VALUE


	ASCII	/INTIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTIN
	,INTIN
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTIN,0
	XWD	INTIN,0
	0+INTEGR+VALUE


	ASCII	/REALSCAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL REALSCAN
	,REALSCAN
	10
	POINT	7,.-5
	REFB+PROCB+FLOTNG
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	REALSCAN,0
	XWD	REALSCAN,0
	0+STRING+REFRNC
	0+INTEGR+REFRNC


	ASCII	/INTSCAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTSCAN
	,INTSCAN
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTSCAN,0
	XWD	INTSCAN,0
	0+STRING+REFRNC
	0+INTEGR+REFRNC


	ASCII	/ARRINFO/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRINFO
	,ARRINFO
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRINFO,0
	XWD	ARRINFO,0
	0+UNTYPE+REFRNC+SBSCRP
	0+INTEGR+VALUE


	ASCII	/ARRBLT/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRBLT
	,ARRBLT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRBLT,0
	XWD	ARRBLT,0
	0+UNTYPE+REFRNC
	0+UNTYPE+REFRNC
	0+INTEGR+VALUE


	ASCII	/ARRTRAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRTRAN
	,ARRTRAN
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRTRAN,0
	XWD	ARRTRAN,0
	0+UNTYPE+REFRNC+SBSCRP
	0+UNTYPE+REFRNC+SBSCRP


	ASCII	/ARRCLR/
	0
	LINK	PDLNK,.-1
	EXTERNAL ARRCLR
	,ARRCLR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ARRCLR,0
	XWD	ARRCLR,0
	0+UNTYPE+REFRNC+SBSCRP
	0+DEFLT+UNTYPE+VALUE


	ASCII	/CODE/
	0
	LINK	PDLNK,.-1
	EXTERNAL CODE
	,CODE
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CODE,0
	XWD	CODE,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/USERERR/
	0
	LINK	PDLNK,.-1
	EXTERNAL USERERR
	,USERERR
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*2,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	USERERR,0
	XWD	USERERR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+DEFLT+STRING+VALUE


	ASCII	/ERMSBF/
	0
	LINK	PDLNK,.-1
	EXTERNAL ERMSBF
	,ERMSBF
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ERMSBF,0
	XWD	ERMSBF,0
	0+INTEGR+VALUE


	ASCII	/CVSI/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVSI
	,CVSI
	4
	POINT	7,.-4
	REFB+PROCB+ITMVAR
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVSI,0
	XWD	CVSI,0
	0+STRING+VALUE
	0+INTEGR+REFRNC


	ASCII	/CVIS/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVIS
	,CVIS
	4
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVIS,0
	XWD	CVIS,0
	0+ITMVAR+VALUE
	0+INTEGR+REFRNC


	ASCII	/NEW_PNAME/
	0
	LINK	PDLNK,.-1
	EXTERNAL NEW.PNAME
	,NEW.PNAME
	11
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	NEW.PNAME,0
	XWD	NEW.PNAME,0
	0+ITMVAR+VALUE
	0+STRING+VALUE


	ASCII	/DEL_PNAME/
	0
	LINK	PDLNK,.-1
	EXTERNAL DEL.PNAME
	,DEL.PNAME
	11
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DEL.PNAME,0
	XWD	DEL.PNAME,0
	0+ITMVAR+VALUE


	ASCII	/TYPEIT/
	0
	LINK	PDLNK,.-1
	EXTERNAL TYPEIT
	,TYPEIT
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TYPEIT,0
	XWD	TYPEIT,0
	0+ITMVAR+VALUE


	ASCII	/LISTX/
	0
	LINK	PDLNK,.-1
	EXTERNAL LISTX
	,LISTX
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LISTX,0
	XWD	LISTX,0
	0+UNTYPE+VALUE
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	ASCII	/INCHRW/
	0
	LINK	PDLNK,.-1
	EXTERNAL INCHRW
	,INCHRW
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INCHRW,0
	XWD	INCHRW,0


	ASCII	/INCHRS/
	0
	LINK	PDLNK,.-1
	EXTERNAL INCHRS
	,INCHRS
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INCHRS,0
	XWD	INCHRS,0


	ASCII	/INCHWL/
	0
	LINK	PDLNK,.-1
	EXTERNAL INCHWL
	,INCHWL
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INCHWL,0
	XWD	INCHWL,0


	ASCII	/INCHSL/
	0
	LINK	PDLNK,.-1
	EXTERNAL INCHSL
	,INCHSL
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INCHSL,0
	XWD	INCHSL,0
	0+INTEGR+REFRNC


	ASCII	/INSTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL INSTR
	,INSTR
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INSTR,0
	XWD	INSTR,0
	0+INTEGR+VALUE


	ASCII	/INSTRL/
	0
	LINK	PDLNK,.-1
	EXTERNAL INSTRL
	,INSTRL
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INSTRL,0
	XWD	INSTRL,0
	0+INTEGR+VALUE


	ASCII	/INSTRS/
	0
	LINK	PDLNK,.-1
	EXTERNAL INSTRS
	,INSTRS
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INSTRS,0
	XWD	INSTRS,0
	0+INTEGR+REFRNC
	0+INTEGR+VALUE


	ASCII	/TTYIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL TTYIN
	,TTYIN
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TTYIN,0
	XWD	TTYIN,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/TTYINL/
	0
	LINK	PDLNK,.-1
	EXTERNAL TTYINL
	,TTYINL
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TTYINL,0
	XWD	TTYINL,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/TTYINS/
	0
	LINK	PDLNK,.-1
	EXTERNAL TTYINS
	,TTYINS
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TTYINS,0
	XWD	TTYINS,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/OUTCHR/
	0
	LINK	PDLNK,.-1
	EXTERNAL OUTCHR
	,OUTCHR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OUTCHR,0
	XWD	OUTCHR,0
	0+INTEGR+VALUE


	ASCII	/OUTSTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL OUTSTR
	,OUTSTR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OUTSTR,0
	XWD	OUTSTR,0
	0+STRING+VALUE


	ASCII	/$PRINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL $PRINT
	,$PRINT
	6
	POINT	7,.-5
	REFB+PROCB+STRING
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	$PRINT,0
	XWD	$PRINT,0
	0+STRING+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/GETFORMAT/
	0
	LINK	PDLNK,.-1
	EXTERNAL GETFORMAT
	,GETFORMAT
	11
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GETFORMAT,0
	XWD	GETFORMAT,0
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/GETCHAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL GETCHAN
	,GETCHAN
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GETCHAN,0
	XWD	GETCHAN,0


	ASCII	/USERCON/
	0
	LINK	PDLNK,.-1
	EXTERNAL USERCON
	,USERCON
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	USERCON,0
	XWD	USERCON,0
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC
	0+INTEGR+VALUE


	ASCII	/MAINPR/
	0
	LINK	PDLNK,.-1
	EXTERNAL MAINPR
	,MAINPR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MAINPR,0
	XWD	MAINPR,0


	ASCII	/RESUME/
	0
	LINK	PDLNK,.-1
	EXTERNAL RESUME
	,RESUME
	6
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RESUME,0
	XWD	RESUME,0
	0+ITMVAR+VALUE
	0+DEFLT+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/ASKNTC/
	0
	LINK	PDLNK,.-1
	EXTERNAL ASKNTC
	,ASKNTC
	6
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ASKNTC,0
	XWD	ASKNTC,0
	0+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/CAUSE1/
	0
	LINK	PDLNK,.-1
	EXTERNAL CAUSE1
	,CAUSE1
	6
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CAUSE1,0
	XWD	CAUSE1,0
	0+ITMVAR+VALUE
	0+DEFLT+ITMVAR+VALUE
	0+DEFLT+INTEGR+VALUE


	ASCII	/MKEVTT/
	0
	LINK	PDLNK,.-1
	EXTERNAL MKEVTT
	,MKEVTT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MKEVTT,0
	XWD	MKEVTT,0
	0+ITMVAR+VALUE


	ASCII	/JOIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL JOIN
	,JOIN
	4
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	JOIN,0
	XWD	JOIN,0
	0+SET+VALUE


	ASCII	/SUSPEND/
	0
	LINK	PDLNK,.-1
	EXTERNAL SUSPEND
	,SUSPEND
	7
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SUSPEND,0
	XWD	SUSPEND,0
	0+ITMVAR+VALUE


	ASCII	/TERMINATE/
	0
	LINK	PDLNK,.-1
	EXTERNAL TERMINATE
	,TERMINATE
	11
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TERMINATE,0
	XWD	TERMINATE,0
	0+ITMVAR+VALUE


	ASCII	/MYPROC/
	0
	LINK	PDLNK,.-1
	EXTERNAL MYPROC
	,MYPROC
	6
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MYPROC,0
	XWD	MYPROC,0


	ASCII	/CALLER/
	0
	LINK	PDLNK,.-1
	EXTERNAL CALLER
	,CALLER
	6
	POINT	7,.-5
	REFB+PROCB+ITMVAR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CALLER,0
	XWD	CALLER,0
	0+ITMVAR+VALUE


	ASCII	/INTSET/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTSET
	,INTSET
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTSET,0
	XWD	INTSET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	ASCII	/INTTBL/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTTBL
	,INTTBL
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTTBL,0
	XWD	INTTBL,0
	0+INTEGR+VALUE


	ASCII	/CLKMOD/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLKMOD
	,CLKMOD
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLKMOD,0
	XWD	CLKMOD,0


	ASCII	/DFRINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL DFRINT
	,DFRINT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFRINT,0
	XWD	DFRINT,0


	ASCII	/DDFINT/
	0
	LINK	PDLNK,.-1
	EXTERNAL DDFINT
	,DDFINT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DDFINT,0
	XWD	DDFINT,0


	ASCII	/DFR1IN/
	0
	LINK	PDLNK,.-1
	EXTERNAL DFR1IN
	,DFR1IN
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFR1IN,0
	XWD	DFR1IN,0
	0+INTEGR+VALUE


	ASCII	/ENABLE/
	0
	LINK	PDLNK,.-1
	EXTERNAL ENABLE
	,ENABLE
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ENABLE,0
	XWD	ENABLE,0
	0+INTEGR+VALUE


	ASCII	/DISABLE/
	0
	LINK	PDLNK,.-1
	EXTERNAL DISABLE
	,DISABLE
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DISABLE,0
	XWD	DISABLE,0
	0+INTEGR+VALUE


	ASCII	/INTMAP/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTMAP
	,INTMAP
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTMAP,0
	XWD	INTMAP,0
	0+INTEGR+VALUE
	0+PROCED+REFRNC
	0+INTEGR+VALUE


	ASCII	/DFCPKT/
	0
	LINK	PDLNK,.-1
	EXTERNAL DFCPKT
	,DFCPKT
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DFCPKT,0
	XWD	DFCPKT,0
	0+INTEGR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	ASCII	/URSCHD/
	0
	LINK	PDLNK,.-1
	EXTERNAL URSCHD
	,URSCHD
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	URSCHD,0
	XWD	URSCHD,0


	ASCII	/PRISET/
	0
	LINK	PDLNK,.-1
	EXTERNAL PRISET
	,PRISET
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PRISET,0
	XWD	PRISET,0
	0+ITMVAR+VALUE
	0+INTEGR+VALUE


	ASCII	/PSTATUS/
	0
	LINK	PDLNK,.-1
	EXTERNAL PSTATUS
	,PSTATUS
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSTATUS,0
	XWD	PSTATUS,0
	0+ITMVAR+VALUE


	ASCII	/INTPRO/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTPRO
	,INTPRO
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTPRO,0
	XWD	INTPRO,0


	ASCII	/ANSWER/
	0
	LINK	PDLNK,.-1
	EXTERNAL ANSWER
	,ANSWER
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ANSWER,0
	XWD	ANSWER,0
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE
	0+ITMVAR+VALUE


	ASCII	/LOG/
	0
	LINK	PDLNK,.-1
	EXTERNAL LOG$
	,LOG$
	3
	POINT	7,.-4
	REFB+PROCB+FLOTNG
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LOG$,0
	XWD	LOG$,0
	0+FLOTNG+VALUE


	ASCII	/EXP/
	0
	LINK	PDLNK,.-1
	EXTERNAL EXP$
	,EXP$
	3
	POINT	7,.-4
	REFB+PROCB+FLOTNG
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	EXP$,0
	XWD	EXP$,0
	0+FLOTNG+VALUE


	ASCII	/TTYUP/
	0
	LINK	PDLNK,.-1
	EXTERNAL TTYUP
	,TTYUP
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	TTYUP,0
	XWD	TTYUP,0
	0+INTEGR+VALUE


	ASCII	/CLRBUF/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLRBUF
	,CLRBUF
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLRBUF,0
	XWD	CLRBUF,0


	ASCII	/CVJFN/
	0
	LINK	PDLNK,.-1
	EXTERNAL CVJFN
	,CVJFN
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CVJFN,0
	XWD	CVJFN,0
	0+INTEGR+VALUE


	ASCII	/ODTIM/
	0
	LINK	PDLNK,.-1
	EXTERNAL ODTIM
	,ODTIM
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ODTIM,0
	XWD	ODTIM,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/IDTIM/
	0
	LINK	PDLNK,.-1
	EXTERNAL IDTIM
	,IDTIM
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	IDTIM,0
	XWD	IDTIM,0
	0+STRING+VALUE


	ASCII	/RUNTM/
	0
	LINK	PDLNK,.-1
	EXTERNAL RUNTM
	,RUNTM
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RUNTM,0
	XWD	RUNTM,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/GTAD/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTAD
	,GTAD
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTAD,0
	XWD	GTAD,0


	ASCII	/GJINF/
	0
	LINK	PDLNK,.-1
	EXTERNAL GJINF
	,GJINF
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GJINF,0
	XWD	GJINF,0
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/STDIR/
	0
	LINK	PDLNK,.-1
	EXTERNAL STDIR
	,STDIR
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STDIR,0
	XWD	STDIR,0
	0+STRING+VALUE
	0+INTEGR+VALUE


	ASCII	/DIRST/
	0
	LINK	PDLNK,.-1
	EXTERNAL DIRST
	,DIRST
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DIRST,0
	XWD	DIRST,0
	0+INTEGR+VALUE


	ASCII	/RUNPRG/
	0
	LINK	PDLNK,.-1
	EXTERNAL RUNPRG
	,RUNPRG
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*1,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RUNPRG,0
	XWD	RUNPRG,0
	0+STRING+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/OPENFILE/
	0
	LINK	PDLNK,.-1
	EXTERNAL OPENFILE
	,OPENFILE
	10
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*2,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OPENFILE,0
	XWD	OPENFILE,0
	0+STRING+VALUE
	0+STRING+VALUE


	ASCII	/SETINPUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETINPUT
	,SETINPUT
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETINPUT,0
	XWD	SETINPUT,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/INDEXFILE/
	0
	LINK	PDLNK,.-1
	EXTERNAL INDEXFILE
	,INDEXFILE
	11
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INDEXFILE,0
	XWD	INDEXFILE,0
	0+INTEGR+VALUE


	ASCII	/SETCHAN/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETCHAN
	,SETCHAN
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETCHAN,0
	XWD	SETCHAN,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/GTJFN/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTJFN
	,GTJFN
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTJFN,0
	XWD	GTJFN,0
	0+STRING+VALUE
	0+INTEGR+VALUE


	ASCII	/GTJFNL/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTJFNL
	,GTJFNL
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*7,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTJFNL,0
	XWD	GTJFNL,0
	0+STRING+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+STRING+VALUE
	0+INTEGR+VALUE


	ASCII	/GNJFN/
	0
	LINK	PDLNK,.-1
	EXTERNAL GNJFN
	,GNJFN
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GNJFN,0
	XWD	GNJFN,0
	0+INTEGR+VALUE


	ASCII	/DELF/
	0
	LINK	PDLNK,.-1
	EXTERNAL DELF
	,DELF
	4
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DELF,0
	XWD	DELF,0
	0+INTEGR+VALUE


	ASCII	/DELNF/
	0
	LINK	PDLNK,.-1
	EXTERNAL DELNF
	,DELNF
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DELNF,0
	XWD	DELNF,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/UNDELETE/
	0
	LINK	PDLNK,.-1
	EXTERNAL UNDELETE
	,UNDELETE
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	UNDELETE,0
	XWD	UNDELETE,0
	0+INTEGR+VALUE


	ASCII	/SIZEF/
	0
	LINK	PDLNK,.-1
	EXTERNAL SIZEF
	,SIZEF
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SIZEF,0
	XWD	SIZEF,0
	0+INTEGR+VALUE


	ASCII	/JFNS/
	0
	LINK	PDLNK,.-1
	EXTERNAL JFNS
	,JFNS
	4
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	JFNS,0
	XWD	JFNS,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/OPENF/
	0
	LINK	PDLNK,.-1
	EXTERNAL OPENF
	,OPENF
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	OPENF,0
	XWD	OPENF,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/CFILE/
	0
	LINK	PDLNK,.-1
	EXTERNAL CFILE
	,CFILE
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CFILE,0
	XWD	CFILE,0
	0+INTEGR+VALUE


	ASCII	/CLOSF/
	0
	LINK	PDLNK,.-1
	EXTERNAL CLOSF
	,CLOSF
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CLOSF,0
	XWD	CLOSF,0
	0+INTEGR+VALUE


	ASCII	/RLJFN/
	0
	LINK	PDLNK,.-1
	EXTERNAL RLJFN
	,RLJFN
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RLJFN,0
	XWD	RLJFN,0
	0+INTEGR+VALUE


	ASCII	/GTSTS/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTSTS
	,GTSTS
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTSTS,0
	XWD	GTSTS,0
	0+INTEGR+VALUE


	ASCII	/STSTS/
	0
	LINK	PDLNK,.-1
	EXTERNAL STSTS
	,STSTS
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STSTS,0
	XWD	STSTS,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/RNAMF/
	0
	LINK	PDLNK,.-1
	EXTERNAL RNAMF
	,RNAMF
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RNAMF,0
	XWD	RNAMF,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/CNDIR/
	0
	LINK	PDLNK,.-1
	EXTERNAL CNDIR
	,CNDIR
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CNDIR,0
	XWD	CNDIR,0
	0+INTEGR+VALUE
	0+STRING+VALUE


	ASCII	/ASND/
	0
	LINK	PDLNK,.-1
	EXTERNAL ASND
	,ASND
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ASND,0
	XWD	ASND,0
	0+INTEGR+VALUE


	ASCII	/RELD/
	0
	LINK	PDLNK,.-1
	EXTERNAL RELD
	,RELD
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RELD,0
	XWD	RELD,0
	0+INTEGR+VALUE


	ASCII	/GDSTS/
	0
	LINK	PDLNK,.-1
	EXTERNAL GDSTS
	,GDSTS
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GDSTS,0
	XWD	GDSTS,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/SDSTS/
	0
	LINK	PDLNK,.-1
	EXTERNAL SDSTS
	,SDSTS
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SDSTS,0
	XWD	SDSTS,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/STDEV/
	0
	LINK	PDLNK,.-1
	EXTERNAL STDEV
	,STDEV
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STDEV,0
	XWD	STDEV,0
	0+STRING+VALUE


	ASCII	/DEVST/
	0
	LINK	PDLNK,.-1
	EXTERNAL DEVST
	,DEVST
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DEVST,0
	XWD	DEVST,0
	0+INTEGR+VALUE


	ASCII	/CHAROUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL CHAROUT
	,CHAROUT
	7
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CHAROUT,0
	XWD	CHAROUT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/GTFDB/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTFDB
	,GTFDB
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTFDB,0
	XWD	GTFDB,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC+SBSCRP


	ASCII	/CHFDB/
	0
	LINK	PDLNK,.-1
	EXTERNAL CHFDB
	,CHFDB
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CHFDB,0
	XWD	CHFDB,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/MTOPR/
	0
	LINK	PDLNK,.-1
	EXTERNAL MTOPR
	,MTOPR
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	MTOPR,0
	XWD	MTOPR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/SFPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL SFPTR
	,SFPTR
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SFPTR,0
	XWD	SFPTR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/RFPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL RFPTR
	,RFPTR
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RFPTR,0
	XWD	RFPTR,0
	0+INTEGR+VALUE


	ASCII	/RCHPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL RCHPTR
	,RCHPTR
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RCHPTR,0
	XWD	RCHPTR,0
	0+INTEGR+VALUE


	ASCII	/SCHPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL SCHPTR
	,SCHPTR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SCHPTR,0
	XWD	SCHPTR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/RWDPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL RWDPTR
	,RWDPTR
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RWDPTR,0
	XWD	RWDPTR,0
	0+INTEGR+VALUE


	ASCII	/SWDPTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL SWDPTR
	,SWDPTR
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SWDPTR,0
	XWD	SWDPTR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/BKJFN/
	0
	LINK	PDLNK,.-1
	EXTERNAL BKJFN
	,BKJFN
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	BKJFN,0
	XWD	BKJFN,0
	0+INTEGR+VALUE


	ASCII	/RFBSZ/
	0
	LINK	PDLNK,.-1
	EXTERNAL RFBSZ
	,RFBSZ
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RFBSZ,0
	XWD	RFBSZ,0
	0+INTEGR+VALUE


	ASCII	/DEVTYPE/
	0
	LINK	PDLNK,.-1
	EXTERNAL DEVTYPE
	,DEVTYPE
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DEVTYPE,0
	XWD	DEVTYPE,0
	0+INTEGR+VALUE


	ASCII	/DVCHR/
	0
	LINK	PDLNK,.-1
	EXTERNAL DVCHR
	,DVCHR
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DVCHR,0
	XWD	DVCHR,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/ERSTR/
	0
	LINK	PDLNK,.-1
	EXTERNAL ERSTR
	,ERSTR
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ERSTR,0
	XWD	ERSTR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/RFMOD/
	0
	LINK	PDLNK,.-1
	EXTERNAL RFMOD
	,RFMOD
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RFMOD,0
	XWD	RFMOD,0
	0+INTEGR+VALUE


	ASCII	/SFMOD/
	0
	LINK	PDLNK,.-1
	EXTERNAL SFMOD
	,SFMOD
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SFMOD,0
	XWD	SFMOD,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/RFCOC/
	0
	LINK	PDLNK,.-1
	EXTERNAL RFCOC
	,RFCOC
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RFCOC,0
	XWD	RFCOC,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/SFCOC/
	0
	LINK	PDLNK,.-1
	EXTERNAL SFCOC
	,SFCOC
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SFCOC,0
	XWD	SFCOC,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/STPAR/
	0
	LINK	PDLNK,.-1
	EXTERNAL STPAR
	,STPAR
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STPAR,0
	XWD	STPAR,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/STI/
	0
	LINK	PDLNK,.-1
	EXTERNAL STI
	,STI
	3
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STI,0
	XWD	STI,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/GTTYP/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTTYP
	,GTTYP
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTTYP,0
	XWD	GTTYP,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/SETEDIT/
	0
	LINK	PDLNK,.-1
	EXTERNAL SETEDIT
	,SETEDIT
	7
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SETEDIT,0
	XWD	SETEDIT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/STTYP/
	0
	LINK	PDLNK,.-1
	EXTERNAL STTYP
	,STTYP
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STTYP,0
	XWD	STTYP,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/PMAP/
	0
	LINK	PDLNK,.-1
	EXTERNAL PMAP
	,PMAP
	4
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PMAP,0
	XWD	PMAP,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/INTTY/
	0
	LINK	PDLNK,.-1
	EXTERNAL INTTY
	,INTTY
	5
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INTTY,0
	XWD	INTTY,0


	ASCII	/PBIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL PBIN
	,PBIN
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PBIN,0
	XWD	PBIN,0


	ASCII	/PBOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL PBOUT
	,PBOUT
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PBOUT,0
	XWD	PBOUT,0
	0+INTEGR+VALUE


	ASCII	/PSOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL PSOUT
	,PSOUT
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*1,1
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSOUT,0
	XWD	PSOUT,0
	0+STRING+VALUE


	ASCII	/CHARIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL CHARIN
	,CHARIN
	6
	POINT	7,.-5
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	CHARIN,0
	XWD	CHARIN,0
	0+INTEGR+VALUE


	ASCII	/SINI/
	0
	LINK	PDLNK,.-1
	EXTERNAL SINI
	,SINI
	4
	POINT	7,.-4
	REFB+PROCB+STRING
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	SINI,0
	XWD	SINI,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/ATI/
	0
	LINK	PDLNK,.-1
	EXTERNAL ATI
	,ATI
	3
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	ATI,0
	XWD	ATI,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/DTI/
	0
	LINK	PDLNK,.-1
	EXTERNAL DTI
	,DTI
	3
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DTI,0
	XWD	DTI,0
	0+INTEGR+VALUE


	ASCII	/RTIW/
	0
	LINK	PDLNK,.-1
	EXTERNAL RTIW
	,RTIW
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	RTIW,0
	XWD	RTIW,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
	0+INTEGR+REFRNC


	ASCII	/STIW/
	0
	LINK	PDLNK,.-1
	EXTERNAL STIW
	,STIW
	4
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	STIW,0
	XWD	STIW,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/GTRPW/
	0
	LINK	PDLNK,.-1
	EXTERNAL GTRPW
	,GTRPW
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	GTRPW,0
	XWD	GTRPW,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	ASCII	/PSIMAP/
	0
	LINK	PDLNK,.-1
	EXTERNAL PSIMAP
	,PSIMAP
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIMAP,0
	XWD	PSIMAP,0
	0+INTEGR+VALUE
	0+PROCED+REFRNC
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/PSIDISMS/
	0
	LINK	PDLNK,.-1
	EXTERNAL PSIDISMS
	,PSIDISMS
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIDISMS,0
	XWD	PSIDISMS,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/PSIRUNTM/
	0
	LINK	PDLNK,.-1
	EXTERNAL PSIRUNTM
	,PSIRUNTM
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PSIRUNTM,0
	XWD	PSIRUNTM,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE


	ASCII	/KPSITIME/
	0
	LINK	PDLNK,.-1
	EXTERNAL KPSITIME
	,KPSITIME
	10
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	KPSITIME,0
	XWD	KPSITIME,0
	0+INTEGR+VALUE


	ASCII	/DSKIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL DSKIN
	,DSKIN
	5
	POINT	7,.-4
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DSKIN,0
	XWD	DSKIN,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+UNTYPE+REFRNC


	ASCII	/DSKOUT/
	0
	LINK	PDLNK,.-1
	EXTERNAL DSKOUT
	,DSKOUT
	6
	POINT	7,.-5
	REFB+PROCB+UNTYPE
	XWD	2*0,5
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	DSKOUT,0
	XWD	DSKOUT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+UNTYPE+REFRNC


	ASCII	/PBTIN/
	0
	LINK	PDLNK,.-1
	EXTERNAL PBTIN
	,PBTIN
	5
	POINT	7,.-4
	REFB+PROCB+INTEGR
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	PBTIN,0
	XWD	PBTIN,0
	0+INTEGR+VALUE

	0
	LINK	BALNK,.-1
	XWD	$BEGIN,$BEGIN
	1
	SIXBIT	/BAIPD8/
	-1
	BEND	BAIPD8
	END