perm filename BAIMSC.FAI[B,AIL] blob sn#265065 filedate 1977-02-21 generic text, type T, neo UTF8
	TITLE	BAIMSC
$BEGIN←←.+1



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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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

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

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

	-1
	END