#% text_encoding = iso8859_1
# Copyright (C) Field Consulting and Services, Inc. :y, all rights reserved.
########################################################################
##
## Created By: Mark Field (FCSI)
## Date: 2018/03/27
## Last Modified Time-stamp: <03/27/2018 09:21, Mark Field (FCSI)>
##
## Project Files
##
## Description: 
##
########################################################################


_package sw

$
_block
	_global sw!write
	_if sw!write _is _unset
	_then
		sw!write << write
	_endif 
	_global sw!show
	_if sw!show _is _unset
	_then
		sw!show << show
	_endif
_endblock 
$
_pragma(classify_level=basic, topic={code})
_global write << 
    _proc(_gather things)
	    ## Writes each THING on !output! unformatted with no spaces
	    ## between each. At the end a newline with be written.
		
		!traceback!(!terminal!)
		
		_return sw!write(_scatter things)
	_endproc
$
_pragma(classify_level=basic, topic={code})
_global show << 
	_proc (_gather things)
	    ## Outputs to !output! a short description of each THING with a
	    ## space between each one. At the end a newline with be output.
		
		!traceback!(!terminal!)
		
		_return sw!show(_scatter things)
	_endproc
$
_global fcsi_restore_write_and_show <<
_proc()
	_global write,sw!write
	write << sw!write
	_global show,sw!show
	show << sw!show
_endproc
$