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


Test = ("No File Loaded.")
Fname = FileName()
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

Cdown = Cuts
SetUserDro(2002,Cdown)


For x = 1 To Cuts

'*************************

If x = 1 Then RunFile()
While Ismoving()
Wend

If X = 2 Then RunFile()
While Ismoving()
Wend

If X = 3 Then RunFile()
While Ismoving()
Wend

If X = 4 Then RunFile()
While Ismoving()
Wend

If X = 5 Then RunFile()
While Ismoving()
Wend

If X = 6 Then RunFile()
While Ismoving()
Wend

If X = 7 Then RunFile()
While Ismoving()
Wend

If X = 8 Then RunFile()
While Ismoving()
Wend

If X = 9 Then RunFile()
While Ismoving()
Wend

If X = 10Then RunFile()
While Ismoving()
Wend

'************************

Xext= GetOemDro(10)
While Ismoving()
Wend

Yext= GetOemDro(5)
While Ismoving()
Wend

Code" G0 Z1.00"
Code"X" & (Xext + .250)
Code"Y"& Yext
While IsMoving()
Wend

DoButton(8)
While Ismoving()
Wend

DoButton(9)
While Ismoving()
Wend

Cdown=(Cdown-1)

SetUserDro(2002,Cdown)
While Ismoving()
Wend

Next x

Message("End Of Batch Load")

End