//**********************************************************************00000050
//*  PICTURE PRINTING PROGRAM: FOLLOW WITH ONE OR MORE PICTURE DECKS ***00000100
//**********************************************************************00000150
/*FULLSKIPS                                                             00000200
// EXEC FWCG                                                            00000250
//SYSIN DD *                                                            00000300
      CHARACTER LINE1*68,LINE2*64,COLUM1*1                              00000350
    5 READ (5,11,END=95) COLUM1,LINE1,LINE2                             00000400
   11 FORMAT(A1,1X,A68/2X,A64)                                          00000450
      IF(COLUM1.EQ.',') GO TO 15                                        00000500
      PRINT 12,LINE1,LINE2                                              00000550
   12 FORMAT('S',A68,A64)                                               00000600
      GO TO 5                                                           00000650
   15 PRINT 21                                                          00000700
   21 FORMAT('1')                                                       00000750
      GO TO 5                                                           00000800
   95 STOP                                                              00000850
      END                                                               00000900
//INPUT DD *                                                            00000950
..
.