perm filename BAIPD8.FAI[X,AIL] blob
sn#191977 filedate 1975-12-15 generic text, type T, neo UTF8
TITLE BAIPD8
BEGIN BAIPD8
$BEGIN←←.+1
ASCII /M/
0
LINK PDLNK,.-1
EXTERNAL M
,M
1
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,1
0
0
XWD 0,.+4
XWD .-10,0
XWD M,0
XWD M,0
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 /WR_INI/
0
LINK PDLNK,.-1
EXTERNAL WR.INI
,WR.INI
6
POINT 7,.-5
REFB+PROCB+UNTYPE
XWD 2*2,3
0
0
XWD 0,.+4
XWD .-10,0
XWD WR.INI,0
XWD WR.INI,0
0+STRING+VALUE
0+STRING+VALUE
0+INTEGR+VALUE
0+INTEGR+VALUE
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 /BBPP./
0
LINK PDLNK,.-1
EXTERNAL .BBPP.
,.BBPP.
5
POINT 7,.-4
REFB+PROCB+INTEGR
XWD 2*0,4
0
0
XWD 0,.+4
XWD .-10,0
XWD .BBPP.,0
XWD .BBPP.,0
0+INTEGR+VALUE
0+INTEGR+REFRNC
0+INTEGR+VALUE
ASCII /$PINT/
0
LINK PDLNK,.-1
EXTERNAL .$PINT
,.$PINT
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PINT,0
XWD .$PINT,0
0+INTEGR+VALUE
ASCII /$PREL/
0
LINK PDLNK,.-1
EXTERNAL .$PREL
,.$PREL
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PREL,0
XWD .$PREL,0
0+FLOTNG+VALUE
ASCII /$PITM/
0
LINK PDLNK,.-1
EXTERNAL .$PITM
,.$PITM
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PITM,0
XWD .$PITM,0
0+ITMVAR+VALUE
ASCII /$PSET/
0
LINK PDLNK,.-1
EXTERNAL .$PSET
,.$PSET
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PSET,0
XWD .$PSET,0
0+SET+VALUE
ASCII /$PLST/
0
LINK PDLNK,.-1
EXTERNAL .$PLST
,.$PLST
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PLST,0
XWD .$PLST,0
0+UNTYPE+VALUE
ASCII /$PSTR/
0
LINK PDLNK,.-1
EXTERNAL .$PSTR
,.$PSTR
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PSTR,0
XWD .$PSTR,0
0+STRING+VALUE
ASCII /$PREC/
0
LINK PDLNK,.-1
EXTERNAL .$PREC
,.$PREC
5
POINT 7,.-4
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD .$PREC,0
XWD .$PREC,0
0+PNTVAR+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 /ERENAME/
0
LINK PDLNK,.-1
EXTERNAL ERENAME
,ERENAME
7
POINT 7,.-5
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
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 /SUBSR/
0
LINK PDLNK,.-1
EXTERNAL .SUBSR
,.SUBSR
5
POINT 7,.-4
REFB+PROCB+STRING
XWD 2*1,3
0
0
XWD 0,.+4
XWD .-10,0
XWD .SUBSR,0
XWD .SUBSR,0
0+STRING+VALUE
0+INTEGR+VALUE
0+INTEGR+VALUE
ASCII /SUBST/
0
LINK PDLNK,.-1
EXTERNAL .SUBST
,.SUBST
5
POINT 7,.-4
REFB+PROCB+STRING
XWD 2*1,3
0
0
XWD 0,.+4
XWD .-10,0
XWD .SUBST,0
XWD .SUBST,0
0+STRING+VALUE
0+INTEGR+VALUE
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 /FILEINFO/
0
LINK PDLNK,.-1
EXTERNAL FILEINFO
,FILEINFO
10
POINT 7,.-5
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
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 /CHNCDB/
0
LINK PDLNK,.-1
EXTERNAL CHNCDB
,CHNCDB
6
POINT 7,.-5
REFB+PROCB+INTEGR
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CHNCDB,0
XWD CHNCDB,0
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 /INTMOD/
0
LINK PDLNK,.-1
EXTERNAL INTMOD
,INTMOD
6
POINT 7,.-5
REFB+PROCB+UNTYPE
XWD 2*0,1
0
0
XWD 0,.+4
XWD .-10,0
XWD INTMOD,0
XWD INTMOD,0
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 /SIN/
0
LINK PDLNK,.-1
EXTERNAL SIN$
,SIN$
3
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SIN$,0
XWD SIN$,0
0+FLOTNG+VALUE
ASCII /SIND/
0
LINK PDLNK,.-1
EXTERNAL SIND$
,SIND$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SIND$,0
XWD SIND$,0
0+FLOTNG+VALUE
ASCII /COS/
0
LINK PDLNK,.-1
EXTERNAL COS$
,COS$
3
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD COS$,0
XWD COS$,0
0+FLOTNG+VALUE
ASCII /COSD/
0
LINK PDLNK,.-1
EXTERNAL COSD$
,COSD$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD COSD$,0
XWD COSD$,0
0+FLOTNG+VALUE
ASCII /SQRT/
0
LINK PDLNK,.-1
EXTERNAL SQRT$
,SQRT$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SQRT$,0
XWD SQRT$,0
0+FLOTNG+VALUE
ASCII /ATAN2/
0
LINK PDLNK,.-1
EXTERNAL ATAN2$
,ATAN2$
5
POINT 7,.-4
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
ASCII /ATAN/
0
LINK PDLNK,.-1
EXTERNAL ATAN$
,ATAN$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD ATAN$,0
XWD ATAN$,0
0+FLOTNG+VALUE
ASCII /ACOS/
0
LINK PDLNK,.-1
EXTERNAL ACOS$
,ACOS$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD ACOS$,0
XWD ACOS$,0
0+FLOTNG+VALUE
ASCII /ASIN/
0
LINK PDLNK,.-1
EXTERNAL ASIN$
,ASIN$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD ASIN$,0
XWD ASIN$,0
0+FLOTNG+VALUE
ASCII /TANH/
0
LINK PDLNK,.-1
EXTERNAL TANH$
,TANH$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD TANH$,0
XWD TANH$,0
0+FLOTNG+VALUE
ASCII /COSH/
0
LINK PDLNK,.-1
EXTERNAL COSH$
,COSH$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD COSH$,0
XWD COSH$,0
0+FLOTNG+VALUE
ASCII /SINH/
0
LINK PDLNK,.-1
EXTERNAL SINH$
,SINH$
4
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SINH$,0
XWD SINH$,0
0+FLOTNG+VALUE
ASCII /RAN/
0
LINK PDLNK,.-1
EXTERNAL RAN$
,RAN$
3
POINT 7,.-4
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD RAN$,0
XWD RAN$,0
0+INTEGR+VALUE
ASCII /TRIGINI/
0
LINK PDLNK,.-1
EXTERNAL TRIGINI
,TRIGINI
7
POINT 7,.-5
REFB+PROCB+UNTYPE
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD TRIGINI,0
XWD TRIGINI,0
0+INTEGR+VALUE
ASCII /GETSTS/
0
LINK PDLNK,.-1
EXTERNAL GETSTS
,GETSTS
6
POINT 7,.-5
REFB+PROCB+INTEGR
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD GETSTS,0
XWD GETSTS,0
0+INTEGR+VALUE
ASCII /SETSTS/
0
LINK PDLNK,.-1
EXTERNAL SETSTS
,SETSTS
6
POINT 7,.-5
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
ASCII /INOUT/
0
LINK PDLNK,.-1
EXTERNAL INOUT
,INOUT
5
POINT 7,.-4
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
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
0
LINK BALNK,.-1
XWD $BEGIN,$BEGIN
1
SIXBIT /BAIPD8/
-1
BEND BAIPD8
END