Break ON
 
CLS
 
; Assign dummy printer list
$aPrinters="Marketing laser","IT Multifunction","Reception Colour Copier"
$aPrinterURL="\\server\mkt_las01","\\server\it_mf01","\\server\recp_cc01"
 
For $iCount = 0 To Ubound($aPrinters)
	At(4+$iCount,2) $iCount+1 ": " $aPrinters[$iCount]
Next
 
While Not $vSelection
	At(5+$iCount,2) "Please enter a number between 1 and " $iCount ":      "
	At(5+$iCount,2) "Please enter a number between 1 and " $iCount ": "
	Gets $vSelection
	At(6+$iCount,2) "                                       "
	$vSelection=CInt($vSelection)
	If $vSelection < 1 OR $vSelection > $iCount
		Beep
		$vSelection=0
		At(6+$iCount,2) "**Invalid selection - please try again!"
	EndIf
Loop
 
@CRLF "You selected printer # :" $vSelection  @CRLF
      "                  name :" $aPrinters[$vSelection-1] @CRLF
      "                   URL :" $aPrinterURL[$vSelection-1] @CRLF
 
Exit 0