*COMDECK  WRITELN 
00001 ******************************************************************08/10/77
00002 *  PHYSICAL I/O FOR PRINTER                                       WRITELN 
00003 *****************************************************************    LV001
00004  WRITE-LINE.                                                      WRITELN 
00005      IF PRT-CTL EQUAL 1                                              CL**2
00006          MOVE SPACE TO ACTUAL-PRT-CTL.                               CL**2
00007      IF PRT-CTL EQUAL 2                                              CL**2
00008           MOVE ZERO TO ACTUAL-PRT-CTL.                               CL**2
00009      IF PRT-CTL EQUAL ZERO                                           CL**2
00010           MOVE 1 TO ACTUAL-PRT-CTL.                                  CL**2
00011      IF PRT-CTL EQUAL 3                                              CL**2
00012           MOVE "-" TO ACTUAL-PRT-CTL.                                CL**2
           WRITE PRINT-LINE.
00014      MOVE SPACES TO PRINT-LINE.                                   WRITELN 
00015  WRITE-LINE-XIT.                                                  WRITELN 
00016      EXIT.                                                        WRITELN 
