^(!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