perm filename BAIMSC.FAI[X,AIL]2 blob
sn#221755 filedate 1976-06-24 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 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
0
$DFLT$: 0
0
LINK BALNK,.-1
XWD $BEGIN,$BEGIN
1,,1
SIXBIT /BAIMSC/
-1
END