Sub Main
With Application

' Variable definitions
Dim Variable1 as variant
Dim Variable2 as variant
Dim Variable3 as variant
Dim Variable4 as variant
Dim Variable5 as variant
Dim Variable6 as variant
Dim Variable7 as variant
Dim Variable8 as variant
Dim Variable9 as variant

' Makes sure it's the right screen
Variable2 = .Findtext("R e v i s e   O r d e r   S t a t u s",0,0)
If Variable2 = False Then
 Exit Sub
End If

' Shows dialog box
	Begin Dialog VNum 163, 41 
		Caption "Input V Number"
		TextBox  5, 12, 102, 14, .textBox1
		OKButton 112, 4, 45, 14, .okButton
		CancelButton 112, 22, 45, 14, .cancelButton
	End Dialog
Dim Number as VNum
Variable3 = Dialog(Number)
Variable1 = 1
Variable4 = False

' Exits if you press cancel
If Variable3 = 0 Then
 Exit Sub
End If

'Beginning of loop
Do 

' Send V number
.Transmit Number.textBox1 + Chr$(rcCR)

' Cycles through episodes
.Transmit Variable1 + Chr$(rcCR)

' Checks the episode exists
.Wait "1"
Variable6 = .FindText("ERROR: Response not between",0,0)
If Variable6 = True Then
 Print "No order found"
 .TransmitTerminalKey rcVtF6Key
 .Transmit "ROS" + Chr$(rcCR)
 Exit Sub
End If

' Presses F9, enters through options
.TransmitTerminalKey rcVtF14Key
.Transmit Chr$(rcCR) + Chr$(rcCR) + Chr$(rcCR) + Chr$(rcCR) + Chr$(rcCR)
.Wait "1"

' Sees if there's an order
Variable5 = .FindText("OPD",0,0)
If Variable5 = True Then
' Variable6 = .GetText(.FoundTextRow, .FoundTextColumn - 3, .FoundTextRow, .FoundTextColumn - 2)
' .Transmit Variable6 
 .Transmit Chr$(rcCR)
 .Transmit Chr$(rcCR)
 .Transmit "Y" + Chr$(rcCR)
 .TransmitTerminalKey rcVtF6Key
 .Transmit "ROS" + Chr$(rcCR)
Variable4 = True

' Back to first ROS screen
Else
 .Wait "1"
 .TransmitTerminalKey rcVtF6Key
 .Wait "1"
 .TransmitTerminalKey rcVtF6Key
 .Transmit "ROS" + Chr$(rcCR)

 ' Increases episode number by one
 Variable1 = Variable1 + 1

End If

Loop until Variable4 = True


End With
End Sub