/
.title get
.ident /10oct/
.psect get
        PROGRAM get
;AUTO buf[100.] buf2[100.]
;FUNCTION MAIN[ARGC,ARGV]
;LET R4 = ARGV + #2
;. FOPEN[#INR,(R4),"R"]
;. GET[#inr,&buf,#100.]
;PRINTF &buf2 "-%s-" &buf
;RET
FUNCTION get[fdb,string,max]
LET r0 = fdb
LET r4 = string
READ-LINE r0 r4 max(r5)
movb f.err(r0),r0
RET

.end