And indeed, you all were right..

the original script(s) needed some (understatement) rewriting and after that the spaghetti programming was gone and it worked like before..(break on that is) Itīs still too large, and Iīm sure that thereīs a better way to check if a server is online, but thatīs a "to do" for another time.

The problem was completely eliminated after I used the SHELL command instead of RUN in the script..strange...? [Confused]

the new code, which now functions, is found below..

code:
  
BREAK ON
color y+/b
cls
flushkb
? "=================================================================="
? "COMPANY, DEPARTMENT 2001"
? "een moment alstublieft..."
? "=================================================================="

SELECT
	CASE INGROUP("BO") $servernaam="SERVER1"
	CASE INGROUP("GO") $servernaam="SERVER1"
	CASE INGROUP("RD") $servernaam="SERVER1"
	CASE INGROUP("PU") $servernaam="SERVER1"
	CASE INGROUP("CS") $servernaam="SERVER1"
	CASE INGROUP("BW") $servernaam="SERVER1"
	CASE INGROUP("BD") $servernaam="SERVER2"
	CASE INGROUP("BR") $servernaam="SERVER2"
	CASE INGROUP("CU") $servernaam="SERVER2"
	CASE INGROUP("EX") $servernaam="SERVER2"
	CASE 1
		$STATUS=VOUT 
ENDSELECT

:PRINTERSELECT

if exist ("\\$servernaam\HIDDEN$\CHECK.TXT")
	? "=================================================================="
	? "toets de Printernaam in, dit staat op iedere printer op een"
	? "sticker, en begint altijd met PR0nummer (voorbeeld: PR0511)"
	? "als u de juiste printer heeft ingevuld, druk dan op ENTER"
	color W+/b
	? "LET OP: EERSTE cijfer is een NUL geen letter O!"
	color y+/b
	? "=================================================================="
	color w+/b
	? "-->"
	color r+/b
	GETS $PRINTERNAAM 
	color y+/b
	cls
	? "=================================================================="
	? "De gekozen PRINTER naam is"
 	color r+/b 
	? "$PRINTERNAAM via $servernaam"
	color y+/b
	? "is dit juist?"
	? "ENTER doorgaan, toets N(ee)om opnieuw een printerselectie te maken"
	? "=================================================================="
	color w+/b
	? "-->"
	color y+/b
	GET $ANSWER1
	IF $ANSWER1 = "n" GOSUB PRINTERSELECT
	ENDIF
		
	SETL "PRINTERVAR=\\$SERVERNAAM\$PRINTERNAAM"
	SHELL "%WINDIR%\DWP\D.BAT"
	$STATUS=OK

	RETURN
	
	RETURN
	
ELSE
	IF $SERVERNAAM="SERVER2"
		IF EXIST ("\\SERVER1\HIDDEN$\CHECK.TXT")
			$servernaam="SERVER1"
			$STATUS=REDO
		ELSE 
			$STATUS=VOUT
		ENDIF
	ENDIF
	
	IF $SERVERNAAM="SERVER1" AND $STATUS <> "REDO"
		IF EXIST ("\\SERVER2\HIDDEN$\CHECK.TXT")
			$SERVERNAAM="SERVER2"
			$STATUS=REDO
		ELSE
		$STATUS=VOUT
		ENDIF
	ENDIF
	
ENDIF

if $STATUS=VOUT
		CLS
		? "=================================================================="
		? "Dit script kan GEEN Printserver vinden! Misschien is er iets mis "
		? "met een van de servers of met het netwerk." 
		? "Het kan ook zijn dat voor u geen hoofdgroep is gezet.(PU, BD, etc)"
		? "Neem contact op met de DEPARTMENT Klantenbalie, telefoonnummer xxx xx xx"
		? "=================================================================="
		sleep 10
endif

IF $STATUS = "REDO"
	GOSUB PRINTERSELECT
ENDIF

? "status was "$status"
EXIT 0
All in all: problem solved, once again thanks all for putting me back on track..