* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* @(#)rewind.c 5.2 7/30/85
* rewind.c - f77 file rewind
static char rwnd
[] = "rewind";
external
= YES
; /* for err */
if(not_legal(lunit
)) err(errflag
,F_ERUNIT
,rwnd
)
if(!b
->useek
) err(errflag
,F_ERNOBKSP
,rwnd
)
if(n
=t_runc(b
,errflag
,rwnd
)) return(n
);