H            Y/                                    1
     H*---------------------------------------------------------------*
     H* PROGRAM-ID    :    SPLTOPFR                                   *
     H* REMARKS       :    SPLF TO PF                   　          *
     H* AUTHOR        :    Y.IDE                                      *
     H* DATE-WRITEN   :    2000/07/08                                 *
     H* VERSION       :    01.00 ORIGINAL                             *
     H*---------------------------------------------------------------*
     FSPLPF   IF  F    9999            DISK
     FPRTPF   O   F    9999            DISK                      A
     E                    BUF      9994  1
     ISPLPF   AA  01
     I                                        1   3 SKP
     I                                        4   4 SPC
     I                                        5   5 DUMMY
     I                                        69999 BUF
     I            DS
     I                                    B   1   20CRLF
     I                                        1   2 CRLFA
     I            DS
     I                                    B   1   40BIN4
     I            DS
     I                                        1   4 MSGHD
     I                                        5  80 MSGBD
     I                                        1  80 MSG
     C*--------------------------------------------------------*
     C* 初期設定
     C*--------------------------------------------------------*
     C                     Z-ADD0         CRLF
     C                     Z-ADD3338      CRLF
     C                     MOVELCRLFA     CRLFA2  4
     C                     MOVE CRLFA     CRLFA2
     C                     MOVE *LOVAL    OC      1
     C                     BITON'45'      OC
     C                     Z-ADD0         LINE    30
     C                     MOVE *ALL'*'   SEP   256
     C*--------------------------------------------------------*
     C           TAG#01    TAG
     C                     MOVEA*BLANK    BUF
     C                     READ SPLPF                    99
     C           *IN99     IFEQ '1'
     C                     SETON                     LR
     C                     RETRN
     C                     ENDIF
     C*
     C           SKP       IFNE *BLANK
     C*スキップ
     C                     MOVE SKP       SKPS    30
     C           SKPS      IFLT LINE
     C*改頁
     C                     EXCPTE#PAGE
     C                     ELSE
     C*行送り
     C           SKPS      SUB  LINE      CRNUM   30
     C                     SUB  1         CRNUM
     C           1         DO   CRNUM
     C                     EXCPTE#CRLF
     C                     ENDDO
     C                     Z-ADDSKPS      LINE
     C                     ENDIF
     C                     ELSE
     C*スペース
     C           SPC       IFEQ '1'
     C                     ADD  1         LINE
     C                     ENDIF
     C           SPC       IFEQ '2'
     C                     EXCPTE#CRLF
     C                     ADD  2         LINE
     C                     ENDIF
     C           SPC       IFEQ '3'
     C                     EXCPTE#CRLF
     C                     EXCPTE#CRLF
     C                     ADD  3         LINE
     C                     ENDIF
     C                     ENDIF
     C*プリントデータ
     C                     EXCPTE#OUT
     C*--------------------------------------------------------*
     C                     GOTO TAG#01
     C*--------------------------------------------------------*
     C                     SETON                     LR
     C                     RETRN
     O*--------------------------------------------------------*
     OPRTPF   EADD             E#OUT
     O                         BUF
     O        EADD             E#PAGE
     O                         SEP
     O        EADD             E#CRLF
     O                                    1 ' '