+999,999    R.L.R. 02-20-80   S30353 F04                                COBOL51
         LW,8     RECSZ             GET CORRECT RECORD                  COBOL51
         SLS,8    17                SIZE                                COBOL51
+1316,1317  SFP 08-19-77 F03 S29556                                     COBOL51
         STW,R8   SAVER8            HOLD FOR RESTORE                    COBOL51
         STW,R9   SAVER9            HOLD FOR RESTORE LATER              COBOL51
         LW,R9    R8                SET UP FOR DIVIDE-BLK SZ            COBOL51
         LI,R8    0                 CLEAR FOR DIVIDE                    COBOL51
         MTW,0    R12               0 FOR DIVISOR ?                     COBOL51
         BEZ      BLK12             YES SKIP DIVIDE, PRINT MSG          COBOL51
         DW,R8    R12               REC SIZE INTO BLOCK SIZE            COBOL51
         MTW,0    R8                WAS THERE A REMAINDER, NOT EVEN?    COBOL51
         BEZ      BLK11             NO USER SET UP CORRECTLY            COBOL51
         MTW,0    R9                WAS IT DEFINED FOR AT LEAST 1 REC   COBOL51
         BNEZ     $+2               YES QUOTIENT IS 1 OR MORE           COBOL51
         MTW,1    R9                MAKE IT AT LEAST 1                  COBOL51
         MW,R9    R12               REC SIZE X 9=BLK FACTOR = BLK-SZ    COBOL51
         STW,R9   SAVER8            NEW BLK SIZE EVEN MULTIPLE          COBOL51
         B        BLK12             GO PRINT MESSAGE                    COBOL51
BLK11    RES      0                                                     COBOL51
         LW,R8    SAVER8            RESET                               COBOL51
         LW,R9    SAVER9            RESET                               COBOL51
         B        *LR               RETURN                              COBOL51
BLK12    RES      0                                                     COBOL51
         LW,R8    SAVER8            RESET                               COBOL51
         LW,R9    SAVER9            RESET                               COBOL51
+1331,1331  SFP F03 08-19-77 S29556                                     COBOL51
+1336       SFP F03 08-19-77 S29556                                     COBOL51
SAVER8   DATA     0                 HOLD FOR REG 8                      COBOL51
SAVER9   DATA     0                 HOLD FOR REG 9                      COBOL51
+END
