( start of 
   file ATTACH2 -- 8 July 88 -- MFB )
MAYPRNT B@ OFF PRINTLOAD ( turn off print while loading )
( 10 Sept 1982)
LAST @ B@ IFTRUE
  LAST @ HEAD @ TOPDICT 3 + 3 PICK - ( compute size of diction)
  ( TOS: source, dest, size )
  HEAD @ DUP .H PATCH SYSLAST  ( SYSLAST points to new dict segment)
  OVER OVER + DUP HEAD !
                  PATCH INITHEAD ( HEAD and INITHEAD fixed)
  MOVE ( dictionary attached )
ENDIF
LUM @ PATCH INITLUM   ( INITLUM  fixed )

" \13\\10\Enter filename for 'attached' system: " PUTLIN
20 STRING B! STRING GETLIN CRLF STRING 1+ 2 SYSOPEN
HEAD @ 100H - 100H 3 PICK SYSWRITE SYSCLOSE
PRINTLOAD ( restore state of mayprnt )
quit
( end of attach2 )