FTN4
      SUBROUTINE STRXB, 92080-16211 REV.1936  790911
C 
C               SOURCE  92080-18211 
C 
C 
C     ******************************************************
C     * THIS IS AN EXAMPLE OF A USER STORAGE    MODULE     *
C     * THAT OUTPUTS EACH RECORD CREATED ( U + M ANSWER )  *
C     * TO LOGICAL UNIT NUMBER 6 (SYSTEM LINE PRINTER)     *
C     ******************************************************
C 
C 
      LOGICAL BKSFL 
C 
      COMMON NUQ,NMQ,IVAL1,INDEXM,IVAL2,LUQ,LMQ,IBUF(512) 
     .      ,ICOMEN 
C 
C     (USER DECLARATIONS) 
C 
      DIMENSION LINE(200) 
C 
      CALL TMDFN(NUQ,NUQ,NUQ,ICOMEN)
C 
C     ( BEGIN USER CODE HERE )
C 
      CALL MOVEW(IBUF,LINE,LUQ) 
      IVAL1=0 
C-----ALL DATA OUTPUT 
100   IF(IVAL1 .EQ. INDEXM) GO TO 999 
      IVAL1=IVAL1+1 
C-----SET UP OUTPUT BUFFER
      CALL MOVEW(IBUF(LUQ+1+(IVAL1-1)*LMQ),LINE(LUQ+1),LMQ) 
C-----DO PHYSICAL OUTPUT
      CALL EXEC(2,6,LINE,LUQ+LMQ) 
C-----SUSPEND THIS USER STORAGE AFTER 2 PHYSICAL IO'S 
      IF(MOD(IVAL1,2) .NE. 0) GO TO 100 
C-----LET TMP DO OTHER THINGS 
      CALL TMPZ 
C-----CONTINUE THE USER STORAGE MODULE
      GO TO 100 
C-----TERMINATE THE USER STORAGE MODULE 
999   RETURN
      END 
                                    