/* PrintMsg.thor · by Petter Nilsen and Troels Walsted Hansen
** $VER: PrintMsg.thor v1.0 (07.06.94)
**
** Prints the current message on the printer
*/

options results

if(substr(address(),1,4) ~= "THOR") then do
	parse arg portname
	if~(show(p, portname)) then do
		if ~(show(p, "THOR.01")) then do
			say "No THOR port found!"
			exit
		end
		else portname = "THOR.01"
	end
end
else portname = address()

address(portname)

SAVEMESSAGE CURRENT FILENAME '"prt:out_msg"'

REQUESTNOTIFY TEXT '"Printing started..."' BT '"_OK"'

exit