!S %WORK.TXT,KJS                                                                    !    100
!O WORK,KJS                                                                     !    110
!L LPH,E                                                                        !    120
!R CED                                                                          !    130
!                                                                               !    140
!                                                                               !    150
      LENGTH   64  &  LOCAL FILPATH$,B64$,KEY$                                  !    160
      USE '^COI1R'                                                              !    170
      LENGTH    3  &  LOCAL CURRCD$                                             !    180
      LENGTH    6  &  LOCAL CUSTNUM$                                            !    182
      LENGTH   50  &  LOCAL COUNTRY$                                            !    190
      LENGTH   16  &  LOCAL B16$                                                !    200
      LENGTH  100  &  LOCAL A$                                                  ! 100000
!                                                                               ! 100100
0001  FORMAT _                                                                  ! 100200
          A$                                                                    ! 100300
!                                                                               ! 100400
      LENGTH  6.0   &  LOCAL I,COUNT                                            ! 100500
!                                                                               ! 100600
      LENGTH  3.0  &  LOCAL FONTHEIGHT, FONTWIDTH, FONTTHICK                    ! 100700
      LENGTH  2.0  &  LOCAL A, B(4)                                             ! 100710
      LENGTH   32  &  LOCAL FONTNAME$                                           ! 100800
!                                                                               ! 100900
0002  FORMAT _                                                                  ! 101000
          FONTHEIGHT;FONTWIDTH;FONTTHICK;FONTNAME$                              ! 101100
!                                                                               ! 101200
0010  FORMAT _                                                                  ! 101210
          B64$,@(60);(CR);'SHOULD BE NEXT LINE',@(50)                           ! 101220
0011  FORMAT _                                                                  ! 101230
          (LF);(LF);(LF);B16$,@(60);(CR);'SHOULD BE NEXT LINE',@(50)            ! 101240
!                                                                               ! 101250
      CLEARLOCAL                                                                ! 101300
      OPEN (1) 'LJ3'     ! INDIRECT PRINTING TO COMET PDF WITH PFONTN           ! 101310
      B64$ = 'CUT FOR APPROVAL'                                                 ! 101320
      B16$ = B64$                                                               ! 101330
!                                                                               ! 101340
      PRINT (1,0010)                                                            ! 101350
      PRINT (1,0011)                                                            ! 101360
!                                                                               ! 101400
!                                                                               ! 104000
9900  !                                                                         ! 104100
!RINT (0) '@011000@';COUNT & INPUT (0) ''                                       ! 104200
      RUN 'QMONITOR'                                                            ! 104300
      END                                                                       ! 104400