*COMDECK  WRITELNI
00001 ***************************************************************** 02/17/78
00002 *                                                                 WRITELNI
00003 *    TABLE PRINT LINES FOR OUTPUT BY CALLING MODULE                  LV001
00004 *        THIS IS A VERSION OF THE STANDARD PHYISICAL I/O MODULE      CL**2
00005 *        FOR THE PRINTER.  IN THIS VERSION, THE PRINT LINE IS     WRITELNI
00006 *        TABLED FOR PRINTING BY THE CALLING MODULE.               WRITELNI
00007 *                                                                 WRITELNI
00008 ****************************************************************  WRITELNI
00009  WRITE-LINE.                                                      WRITELNI
00010      IF PRT-CTL EQUAL 1                                           WRITELNI
00011          MOVE SPACE TO ACTUAL-PRT-CTL.                            WRITELNI
00012      IF PRT-CTL EQUAL 2                                           WRITELNI
00013          MOVE ZERO TO ACTUAL-PRT-CTL.                             WRITELNI
00014      IF PRT-CTL EQUAL ZERO                                        WRITELNI
00015          MOVE 1 TO ACTUAL-PRT-CTL.                                WRITELNI
00016      IF PRT-CTL EQUAL 3                                           WRITELNI
00017          MOVE "-" TO ACTUAL-PRT-CTL.                              WRITELNI
00018      ADD 1 TO RPT-LINE-CT.                                        WRITELNI
00019      MOVE PRINT-LINE TO RPT-OUTPUT-LINE (RPT-LINE-CT).            WRITELNI
00020      MOVE SPACES TO PRINT-LINE.                                      CL**2
00021      IF RPT-LINE-CT EQUAL 40                                      WRITELNI
00022          MOVE "4" TO RTBL-MOD-REQ                                 WRITELNI
00023          EXIT PROGRAM.                                             WRITELN
00024      GO TO WRITE-LINE-XIT.                                        WRITELNI
00025  RPT-OUTPUT-RETURN.                                               WRITELNI
00026      MOVE ZERO TO RPT-LINE-CT.                                    WRITELNI
00027      MOVE ZERO TO RTBL-MOD-REQ.                                   WRITELNI
00028  WRITE-LINE-XIT.                                                  WRITELNI
00029      EXIT.                                                        WRITELNI
