---

LOCATION: 8001 ABC Avenue/PAT120                              PRIMARY LOCN: N             
  ADD.1:                                  PHONE:                  EXT:               
  ADD.2:                                    FAX:                BATCH: N             
  ADD.3:                                CONTACT:                                     
    CITY: Quoted Freight Rate            SLSPRSN: 1027 Kelly Forester                 
  STATE: TX ZIP: QUOTE            TAX SCHEDULE: TX SMITYL                           
                                      WAREHOUSE: W08 Tyler Warehouse                 
    TAX CODE:  TX                EXEMPTION:  17528998788                             
    TAX CODE:  TX SMI            EXEMPTION:  17528998788                             
    TAX CODE:  TX SMITYL          EXEMPTION:  17528998788                             
                                                                                       
Run Date: 09/03/2010  TM      Thomas Petroleum, LLC            Page: 68               
A/R Date: 09/03/2010            CUSTOMER LISTING              Time: 10:14 AM         
                            PERMANENT CUSTOMERS ONLY                                   
                                                                                       
CUSTOMER NO:  0004132      NAME:  Patterson UTI Drilling                               
-------------------------------------------------------------------------------       
                                                                                       
LOCATION: 102 Main St/PAT452                          PRIMARY LOCN: N             
  ADD.1:                                  PHONE: (903) 574-1204    EXT:               
  ADD.2:                                    FAX:                BATCH: N             
  ADD.3:                                CONTACT:                                     
    CITY: 101 - 125 Miles                SLSPRSN: 1008 Jess Martin                     
  STATE: LA ZIP: FR125            TAX SCHEDULE: LA DESRUR                           
                                      WAREHOUSE: W08 Tyler Warehouse                 
                                                                                       
LOCATION: 505 Hwy 59/PAT131                  PRIMARY LOCN: N             
  ADD.1:                                  PHONE:                  EXT:               
  ADD.2:                                    FAX:                BATCH: N             
  ADD.3:                                CONTACT:                                     
    CITY: 26 - 50 Miles                  SLSPRSN: 1012 Gus Orellana                   
  STATE: LA ZIP: FR050            TAX SCHEDULE: LA VERRUR                           
                                      WAREHOUSE: W11 Lafayette Warehouse

---

---

Sub Monarch()
'-----------------------------------------------------------
'Monarchs the report
'-----------------------------------------------------------
Application.DisplayAlerts = False
Dim MonarchObj As Object
Dim openfile, openmod, t As Boolean
'If Monarch is currently active GetObject will use Monarch. If it is not use the CreateObject() to
'open another copy of Monarch.
Set MonarchObj = GetObject("", "Monarch32")
If MonarchObj Is Nothing Then
    Set MonarchObj = CreateObject("Monarch32")
End If
t = MonarchObj.SetLogFile("C:\Temp\MPrg_G5.log", False)
openfile = MonarchObj.SetReportFile("c:\TEMP\report.dat", False)
If openfile = True Then
openmod = MonarchObj.SetModelFile("c:\report.MOD")
If openmod = True Then
MonarchObj.ExportTable ("C:\TEMP\Report.xls")
End If
End If
MonarchObj.Exit
End Sub

---