*DECK REWIND
USETEXT TENVIRN 
USETEXT TXSTD 
      PROC REWIND;
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     REWSEM                       REWIND A FILE                       #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
      XREF ITEM RA0          I;    # LOCATION OF ZERO FOR PARAM LISTS  #
  
      XREF PROC REWINDM;           # ACTUALLY DOES THE REWIND          #
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC REWSEM; 
       PROC REWSEM; 
     BEGIN
      ITEM TEMP I=0;
      IF RECORDFLAG THEN STDNO; 
      TEMP = 0; 
      C<0,CURLENG>TEMP = C<0,CURLENG>ICW[0];
      REWINDM(TEMP, RA0);          # REWIND THE FILE                   #
      STDNO;
     END
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
