Break on
;
$rc = Open(1,"c:\somefile.txt", 5)
;
?"The name of this computers is: " @WKSTA
$rc = WriteLine(1,"The name of this computers is: " + @WKSTA)
;
$rc = Close(1)

;just a suggestion - not tried or anything (just typed ;) ;EDIT quick and dirty way added to throw out a error-return

WriteAndDisplay('computername is something like: ' +@WKSTA )

Function WriteAndDisplay($entry)
dim $rc,$freefilehandler
$freefilehandler=FreeFileHandle()
$rc=Open($freefilehandler,"d:\temp\somefile.txt",5)
?'$entry'
$rc=WriteLine($freefilehandler,$entry)
$rc=Close($freefilehandler)
exit @error
EndFunction

Function WriteNewLineAndDisplay($entry)
	WriteAndDisplay(@CRLF + $entry)
EndFunction

Function WriteAndDisplay($entry)
	$entry

	DIM $freefilehandler
	$freefilehandler = FreeFileHandle()
	
	DIM $rc
	$rc = Open($freefilehandler, @STARTDIR + "\Logs\" + @WKSTA + "-" + @USERID + ".log", 5)
	$rc = WriteLine($freefilehandler, $entry)
	$rc = Close($freefilehandler)
EndFunction