.ROOT DAT-CRTLIB-DATLIB-(*O0,*O1,*O2,*O3,*O4,*O5)
; BELOW REPLACES ABOVE O0:-O5: FOR [1,1]FOROTS FORTRAN LIB 
;	.ROOT DAT-CRTLIB-DATLIB-FORLIB-(*O0,*O1,*O2,*O3,*O4,*O5)
DAT:	.FCTR DATAMAIN-DATAEN
CRTLIB:	.FCTR BOHDEN/LB:CRTCLR:CRTRED:CRTWRT:CRTPOS:CRTYN:ESCSEQ
DATLIB:	.FCTR BOHDEN/LB:DOLOOP:CRTERR:RIDCHA:RIDBLK
O0:	.FCTR BOHDEN/LB:XINOUT:PROMPT:IREADP:SY
O1:	.FCTR BOHDEN/LB:DATENT:CRTINI:CAPS:PROMPT
O2:	.FCTR BOHDEN/LB:INDATA:ERROR
O3:	.FCTR BOHDEN/LB:OUTPIN:ERROR
O4:	.FCTR BOHDEN/LB:TYPEIN:ERROR
O5:	.FCTR BOHDEN/LB:OUTCR
; BELOW REPLACES ABOVE O0:-O5: FOR [1,1]FOROTS FORTRAN LIB 
;O0:	.FCTR BOHDEN/LB:XINOUT:PROMPT:IREADP:SY-FORLIB
;O1:	.FCTR BOHDEN/LB:DATENT:CRTINI:CAPS:PROMPT-FORLIB
;O2:	.FCTR BOHDEN/LB:INDATA:ERROR-FORLIB
;O3:	.FCTR BOHDEN/LB:OUTPIN:ERROR-FORLIB
;O4:	.FCTR BOHDEN/LB:TYPEIN:ERROR-FORLIB
;O5:	.FCTR BOHDEN/LB:OUTCR-FORLIB
;FORLIB:	.FCTR LB:[1,1]FOROTS/LB
	.END