'Macro M3007 Auto Batch Load Horizonal
Dim fname As String
Dim Cuts As Single
Dim Xext As Double
Dim Yext As Double
Dim Test as String

Test = ("No File Loaded.")
Fname = FileName()
While Ismoving()
Wend
Message"" &Fname
While Ismoving()
Wend
If Fname = Test Then
MsgBox("No File Loaded, PLEASE LOAD FILE and RESTART")
 End
 End If
Cuts = Question("How Many Horizonal Parts UP TO 10 ?")
If Cuts >10 Or  Cuts <1 Then 
MsgBox(" Number Out Of Range 1-10 Retry Again ") 
 End

End If

For x = 1 To Cuts
If x = 1 Then RunFile()
If x = 2 Then RunFile()
If x = 3 Then RunFile()
If x = 4 Then RunFile()
If x = 5 Then RunFile()
If x = 6 Then RunFile()
If x = 7 Then RunFile()
If x = 8 Then RunFile()
If x = 9 Then RunFile()
If x = 10 Then RunFile()

While Ismoving()
Wend

Xext= GetOemDro(10)
While Ismoving()
Wend
Yext= GetOemDro(5)
While Ismoving()
Wend
Code" G0 Z1.00"
While IsMoving()
Wend
Code"X" & (Xext + .250)
While Ismoving()
Wend
Code"Y"& Yext
While IsMoving()
Wend
DoButton(8)
While Ismoving()
Wend
DoButton(9)
While Ismoving()
Wend

Next x

Message("End Of Batch Load")
End