perm filename BAIIO2.FAI[X,AIL] blob sn#265064 filedate 1977-04-19 generic text, type T, neo UTF8
	TITLE	BAIIO2
$BEGIN←←.+1



	EXTERNAL BREAKSET
	0
	LINK	PDLNK,.-1
	,BREAKSET
	10
	POINT	7,[ASCII/BREAKSET/]
	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


	EXTERNAL SETPL
	0
	LINK	PDLNK,.-1
	,SETPL
	5
	POINT	7,[ASCII/SETPL/]
	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


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


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


	EXTERNAL LINOUT
	0
	LINK	PDLNK,.-1
	,LINOUT
	6
	POINT	7,[ASCII/LINOUT/]
	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


	EXTERNAL CLOSO
	0
	LINK	PDLNK,.-1
	,CLOSO
	5
	POINT	7,[ASCII/CLOSO/]
	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+$DFLT$+INTEGR+VALUE


	EXTERNAL CLOSIN
	0
	LINK	PDLNK,.-1
	,CLOSIN
	6
	POINT	7,[ASCII/CLOSIN/]
	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+$DFLT$+INTEGR+VALUE


	EXTERNAL MTAPE
	0
	LINK	PDLNK,.-1
	,MTAPE
	5
	POINT	7,[ASCII/MTAPE/]
	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


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


	EXTERNAL USETI
	0
	LINK	PDLNK,.-1
	,USETI
	5
	POINT	7,[ASCII/USETI/]
	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


	EXTERNAL USETO
	0
	LINK	PDLNK,.-1
	,USETO
	5
	POINT	7,[ASCII/USETO/]
	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


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


	EXTERNAL CVFIL
	0
	LINK	PDLNK,.-1
	,CVFIL
	5
	POINT	7,[ASCII/CVFIL/]
	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


	EXTERNAL RENAME
	0
	LINK	PDLNK,.-1
	,RENAME
	6
	POINT	7,[ASCII/RENAME/]
	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


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


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


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


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


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


	EXTERNAL SETFORMAT
	0
	LINK	PDLNK,.-1
	,SETFORMAT
	11
	POINT	7,[ASCII/SETFORMAT/]
	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


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


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


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


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


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


	EXTERNAL LREALIN
	0
	LINK	PDLNK,.-1
	,LREALIN
	7
	POINT	7,[ASCII/LREALIN/]
	REFB+PROCB+FLOTNG+DBLPRC
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LREALIN,0
	XWD	LREALIN,0
	0+INTEGR+VALUE


	EXTERNAL REALSCAN
	0
	LINK	PDLNK,.-1
	,REALSCAN
	10
	POINT	7,[ASCII/REALSCAN/]
	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


	EXTERNAL INTSCAN
	0
	LINK	PDLNK,.-1
	,INTSCAN
	7
	POINT	7,[ASCII/INTSCAN/]
	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


	EXTERNAL LREALSCAN
	0
	LINK	PDLNK,.-1
	,LREALSCAN
	11
	POINT	7,[ASCII/LREALSCAN/]
	REFB+PROCB+FLOTNG+DBLPRC
	XWD	2*0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	LREALSCAN,0
	XWD	LREALSCAN,0
	0+STRING+REFRNC
	0+INTEGR+REFRNC


	EXTERNAL $PRINT
	0
	LINK	PDLNK,.-1
	,$PRINT
	6
	POINT	7,[ASCII/$PRINT/]
	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+$DFLT$+INTEGR+VALUE


	EXTERNAL GETFORMAT
	0
	LINK	PDLNK,.-1
	,GETFORMAT
	11
	POINT	7,[ASCII/GETFORMAT/]
	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


	EXTERNAL FILEINFO
	0
	LINK	PDLNK,.-1
	,FILEINFO
	10
	POINT	7,[ASCII/FILEINFO/]
	REFB+PROCB+UNTYPE
	XWD	2*0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	FILEINFO,0
	XWD	FILEINFO,0
	0+INTEGR+REFRNC+SBSCRP


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


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


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


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


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


	EXTERNAL INOUT
	0
	LINK	PDLNK,.-1
	,INOUT
	5
	POINT	7,[ASCII/INOUT/]
	REFB+PROCB+UNTYPE
	XWD	2*0,4
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	INOUT,0
	XWD	INOUT,0
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0+INTEGR+VALUE
	0
$DFLT$:	0

	0
	LINK	BALNK,.-1
	XWD	$BEGIN,$BEGIN

IFNDEF GTJFN,<
	1,,1
	SIXBIT	/BAIIO2/
>;IFNDEF GTJFN
IFDEF GTJFN,<
	1,,4
	ASCII	/<SAIL>BAIIO2.SM1/
>;IFDEF GTJFN

	-1
	END