if(f__recpos
++ < f__svic
->icirlen
) {
if(f__icptr
>= f__icend
) err(f__svic
->iciend
,(EOF
),"endfile");
if(f__icptr
>= f__icend
) err(f__svic
->icierr
,110,"inwrite");
if(f__recpos
++ < f__svic
->icirlen
)
else err(f__svic
->icierr
,110,"recend");
f__icptr
= f__svic
->iciunit
+ (++f__icnum
)*f__svic
->icirlen
;
err(a
->icierr
,100,"startint");
f__sequential
=f__formatted
=1;
f__cblank
=f__cplus
=f__scale
=0;
f__icend
= f__icptr
+ a
->icirlen
*a
->icirnum
;
f__hiwater
= f__recpos
= f__cursor
= 0;
integer
s_rsfi(a
) icilist
*a
;
integer
s_rsfi(icilist
*a
)
while(f__recpos
++ < f__svic
->icirlen
)
integer
s_wsfi(a
) icilist
*a
;
integer
s_wsfi(icilist
*a
)
if(f__icnum
>= f__svic
->icirnum
)
while(f__recpos
++ < f__svic
->icirlen
)