!
DOIT:   PATCNT=PATCNT+1
!
     PRINT (0,100)
!
     DNM$='G:\PBN\PDF\MCP\MCP'+MR$+'.TXT'
     
!
        AX$ = "@4100@"                          ! Set AX to "ERASE FILE"
        CX$ = "@0000@"                          ! Set CX register to null
!
        DOSMESSAGE$='CREATING FILE: '+DNM$ 
!
!
        DOSFC(AX$,CX$,DNM$) EXCP=MKTXTFL   ! Perform DOSFC call
!
!
MKTXTFL:
            AX$ = "@3C00@"                          ! Set AX to "CREATE FILE"
            CX$ = "@0000@"                          ! Set CX register to null
!
            DOSFC(AX$,CX$,DNM$) EXCP=2000           ! Perform DOSFC call
!
!
            AX$ = "@3D42@"                          ! Set AX to "OPEN FILE"
            CX$ = "@0000@"                          ! Set CX to null
!
            DOSMESSAGE$='OPENING FILE: '+DNM$
!
            DOSFC(AX$,CX$,DNM$) EXCP=CLEXCP           ! Perform DOSFC call
!
            FILEH$ = AX$                            ! Save file handle
!
            DOSMESSAGE$ = "HANDLE=" + HEXASC(SUB(AX$,2,1))   ! Construct key to file
            PRINT (0) DOSMESSAGE$ & INPUT (0) ''
!
     
     FOR TXTCNT= 1 TO TXTLN
!     
        MCPTXT$=TXT$(TXTCNT)
        MCPTXT$=STRIP(MCPTXT$)+'@0D0A@'
        RECLEN=LEN(MCPTXT$)
!
        AX$ = "@4000@"                   ! Set AX to "WRITE"
        CX$ = "@0000@"                   ! Set CX to null
  !
        DOSMESSAGE$='WRITING TO FILE: '+DNM$   
        DOSRW(AX$,FILEH$,RECLEN,0002) EXCP=CLEXCP
  !     
        TXT$(TXTCNT)=''
     
     NEXT TXTCNT
!    
     TXTLN=0
!
           AX$ = "@3E00@"                       ! Set AX to "CLOSE FILE"
           BX$ = FILEH$                         ! Set BX to file handle
           CX$ = "@0000@"                       ! Set CX to null
           DX$ = "@0000@"                       ! Set DX to null
  !
           DOSMS(AX$,BX$,CX$,DX$) EXCP=CLEXCP   ! Perform DOSMS call
  !     
           GO 2000
!
CLEXCP:      PRINT (0,100) 
             PRINT (0) DOSMESSAGE$                   ! Display message
             CLOSE (1) & OPEN (1) "QERCOMET"                     ! Open error file
             DOSCODE$ = "D" + HEXASC(SUB(AX$,2,1))   ! Construct key to file
             READ (1,DOSMSG) KEY=DOSCODE$              ! Read error record
             PRINT (0) "DOS error code: ";DOSCODE$   ! Display DOS error code
             PRINT (0) DOSMESSAGE$                   ! Display error message
             INPUT (0) ""                            ! Hold            
             CLOSE (1)