'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
Dim Cdown As Single
Sub Main()

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

Cdown = Cuts

SetUserDro(2002,Cdown)

Message" Parts to Go: "& Cdown

For x = 1 To Cuts
If x = 1 Then Goto N1
If x = 2 Then GoTo N1
If x = 3 Then GoTo N1
If x = 4 Then GoTo N1
If x = 5 Then GoTo N1
If x = 6 Then GoTo N1
If x = 7 Then GoTo N1
If x = 8 Then GoTo N1
If x = 9 Then GoTo N1
If x = 10 Then Goto N1


N1:

SetVar(499,1)

RunFile()
While Ismoving()
Wend
SetVar(499,0)
While Ismoving()
Wend
GoTo N2




N2:
While Getvar(499) > 0 
sleep(1000)
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 sub
End