perm filename BAICLC.FAI[X,AIL]2 blob
sn#200610 filedate 1976-06-24 generic text, type T, neo UTF8
TITLE BAICLC
$BEGIN←←.+1
EXTERNAL CVS
0
LINK PDLNK,.-1
,CVS
3
POINT 7,[ASCII/CVS/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVS,0
XWD CVS,0
0+INTEGR+VALUE
EXTERNAL CVOS
0
LINK PDLNK,.-1
,CVOS
4
POINT 7,[ASCII/CVOS/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVOS,0
XWD CVOS,0
0+UNTYPE+VALUE
EXTERNAL CVSTR
0
LINK PDLNK,.-1
,CVSTR
5
POINT 7,[ASCII/CVSTR/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVSTR,0
XWD CVSTR,0
0+INTEGR+VALUE
EXTERNAL LOG$
0
LINK PDLNK,.-1
,LOG$
3
POINT 7,[ASCII/LOG/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD LOG$,0
XWD LOG$,0
0+FLOTNG+VALUE
EXTERNAL EXP$
0
LINK PDLNK,.-1
,EXP$
3
POINT 7,[ASCII/EXP/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD EXP$,0
XWD EXP$,0
0+FLOTNG+VALUE
EXTERNAL SIN$
0
LINK PDLNK,.-1
,SIN$
3
POINT 7,[ASCII/SIN/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SIN$,0
XWD SIN$,0
0+FLOTNG+VALUE
EXTERNAL COS$
0
LINK PDLNK,.-1
,COS$
3
POINT 7,[ASCII/COS/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD COS$,0
XWD COS$,0
0+FLOTNG+VALUE
EXTERNAL SQRT$
0
LINK PDLNK,.-1
,SQRT$
4
POINT 7,[ASCII/SQRT/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SQRT$,0
XWD SQRT$,0
0+FLOTNG+VALUE
EXTERNAL RAN$
0
LINK PDLNK,.-1
,RAN$
3
POINT 7,[ASCII/RAN/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD RAN$,0
XWD RAN$,0
0+INTEGR+VALUE
0
$DFLT$: 0
0
LINK BALNK,.-1
XWD $BEGIN,$BEGIN
1,,1
SIXBIT /BAICLC/
-1
END