STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354394
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Temp/Pr_time
		CMNT	 	Expects:  É ¥ PAT/É
		PRIM	List/Behead	É ¥ high/list/É
		LCAL	OutOrd	É ¥ list/É
		LITO	45	É ¥ 45/list/É
		LCAL	OutChar	É ¥ list/É
		PRIM	List/Behead	É ¥ middle/list/É
		LCAL	OutOrd	É ¥ list/É
		LITO	45	É ¥ 45/list/É
		LCAL	OutChar	É ¥ list/É
		PRIM	List/List to item	É ¥ low/É
		LCAL	OutOrd	É ¥ É
		LITO	32	É ¥ 32/É
		LCAL	OutChar	É ¥ É
	ESBR
	SGLB	Temp/Pr_ord
		CMNT	 	Expects:  É ¥ ord/format/É
		LITO	40
		LCAL	OutChar
		LCAL	OutOrd
		LITO	41
		LCAL	OutChar
		LCAL	OutStr
	ESBR
	SGLB	Temp/Pr_val
		CMNT	 	Expects:  É ¥ val/format/gain/É
		PRIM	Stack/Xswap	É ¥ val/gain/format/É
		LITO	91	É ¥ 91/val/gain/format/É
		LCAL	OutChar	É ¥ val/gain/format/É
		LCAL	OutOrd	É ¥ gain/format/É
		LITO	42	É ¥ 42/gain/format/É
		LCAL	OutChar	É ¥ gain/format/É
		LCAL	OutOrd	É ¥ format/É
		LITO	93	É ¥ 93/format/É
		LCAL	OutChar	É ¥ format/É
		LCAL	OutStr	É ¥ É
	ESBR
	SGLB	Temp/Pr_str
		CMNT	 	Expects:  É ¥ str/É
		LCAL	OutStr
	ESBR
	SGLB	Temp/Pr_crlf
		CMNT	 	Expects:  É ¥ É
		LITO	13	É ¥ CR/É
		LCAL	OutChar
		LITO	10	É ¥ LF/É
		LCAL	OutChar
	ESBR
ESTR
LDEF	OutStr
	CMNT	 	Breaks a string up into characters and sends them
	CMNT	 	Input:  É ¥ string/É
	CMNT	 	Output:  É ¥ É
	PRIM	List/Test for leaf	É ¥ rslt/string/É
	BRFL	 	branch if not a leaf
		PRIM	List/Remove	É ¥ string'/pair/É
		LCAL	OutStr	É ¥ pair/É
		LCAL	OutPair	É ¥ É
	BRTR
	PRIM	List/List to item	É ¥ pair/É
	LCAL	OutPair	É ¥ É
EDEF
LDEF	OutPair
	CMNT	 	Sends a pair of characters
	CMNT	 	Input:  É ¥ pair/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Duplicate	É ¥ pair/pair/É
	LITO	255	É ¥ mask/pair/pair/É
	PRIM	Ordinal/And	É ¥ char1/pair/É
	LCAL	OutChar	É ¥ pair/É
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right	É ¥ char2/É
	LCAL	OutChar	É ¥ É
EDEF
LDEF	OutChar
	CMNT	 	Sends a character
	CMNT	 	Input:  É ¥ char/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Duplicate	É ¥ char/char/É
	LITO	0	É ¥ channel B/char/char/É
	ASIO	SIO/output_character	É ¥ char/É
	LITO	1	É ¥ channel A/char/É
	ASIO	SIO/output_character	É ¥ É
EDEF
LDEF	OutOrd
	CMNT	 	Sends an ordinal
	CMNT	 	Note that the count is preset to 48 to generate ASCII
	CMNT	 	Input:  É ¥ ordinal/É
	CMNT	 	Output:  É ¥ É
	LITO	10000	É ¥ 10000/ordinal/É
	LITO	48	É ¥ count/10000/ordinal/É
	LCAL	div	É ¥ count/mod10000/É
	LCAL	OutChar	É ¥ mod10000/É
	LITO	1000	É ¥ 1000/mod10000/É
	LITO	48	É ¥ count/1000/mod10000/É
	LCAL	div	É ¥ count/mod1000/É
	LCAL	OutChar	É ¥ mod1000/É
	LITO	100	É ¥ 100/mod1000/É
	LITO	48	É ¥ count/100/mod1000/É
	LCAL	div	É ¥ count/mod100/É
	LCAL	OutChar	É ¥ mod100/É
	LITO	10	É ¥ 10/mod100/É
	LITO	48	É ¥ count/10/mod100/É
	LCAL	div	É ¥ count/mod10/É
	LCAL	OutChar	É ¥ mod10/É
	LITO	48	É ¥ 48/mod10/É
	PRIM	Ordinal/Add	É ¥ char/É
	LCAL	OutChar	É ¥ É
EDEF
LDEF	div
	CMNT	 	Returns the count of bases in arg
	CMNT	 	Input:  É ¥ count/base/arg/É
	CMNT	 	Output:  É ¥ count/rslt/É
	PRIM	Stack/Switch	É ¥ arg/base/count/É
	PRIM	Ordinal/Reverse compare	É ¥ rslt/arg/base/count/É
	BRFL	 	branch if done
		PRIM	Stack/Xdrop	É ¥ arg/count/É
		PRIM	Stack/Swap	É ¥ count/arg/É
	BRTR
	PRIM	Stack/Over	É ¥ base/arg/base/count/É
	PRIM	Ordinal/Subtract	É ¥ arg-base/base/count/É
	PRIM	Stack/Switch	É ¥ count/base/arg-base/É
	PRIM	Ordinal/Increment	É ¥ count+1/base/arg-base/É
	LCAL	div
EDEF
CMNT	 	This class provides a temporary implementation of the print primitives