^(!common initializations
set error none	!errors do not abort processing
assign cl0 ls	!use CL handler instead of LS
assign ls lp	!use serial printer
assign cl1 phn	!use CL1 to phone out
assign ms mt    !tape emulates TSV05
assign sy pas   !default Pascal libraries
assign sy lib   !default macro libraries (SUMAC)
assign vm wk    !Pascal work space
assign vm wf    !Macro work space
assign vm cf    !CREF work space
!
setphn :== set phn line=6	!set phone to modem TS line
