home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / prog1 / 4th_86.lzh / 7ATTACH3.4TH < prev    next >
Text File  |  1989-01-27  |  768b  |  21 lines
  1. ( start of 
  2.    file ATTACH2 -- 8 July 88 -- MFB )
  3. MAYPRNT B@ OFF PRINTLOAD ( turn off print while loading )
  4. ( 10 Sept 1982)
  5. LAST @ B@ IFTRUE
  6.   LAST @ HEAD @ TOPDICT 3 + 3 PICK - ( compute size of diction)
  7.   ( TOS: source, dest, size )
  8.   HEAD @ PATCH SYSLAST  ( SYSLAST points to new dict segment)
  9.   OVER OVER + DUP HEAD !
  10.                   PATCH INITHEAD ( HEAD and INITHEAD fixed)
  11.   MOVE ( dictionary attached )
  12. ENDIF
  13. LUM @ PATCH INITLUM   ( INITLUM  fixed )
  14.  
  15. " ^13^^10^Enter filename for 'attached' system: " PUTLIN
  16. 20 STRING B! STRING GETLIN CRLF STRING 1+ 2 SYSOPEN
  17. HEAD @ 100H - 100H 3 PICK SYSWRITE SYSCLOSE
  18. PRINTLOAD ( restore state of mayprnt )
  19. bye
  20. ( end of attach2 )
  21.