home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / prog1 / 4th_86.lzh / DEMO.BLD < prev    next >
Text File  |  1989-02-11  |  640b  |  24 lines
  1. ( 1st. February 1989 - 4th_86 version 3.0 - MFB )
  2.  
  3. fload kal1.4th
  4. fload kal2.4th
  5. fload kal3.4th
  6. fload gdemo.4th
  7.  
  8. LAST @ B@ IFTRUE
  9.   LAST @ HEAD @ TOPDICT 3 + 3 PICK - ( compute size of diction)
  10.   ( TOS: source, dest, size )
  11.   HEAD @ PATCH SYSLAST  ( SYSLAST points to new dict segment)
  12.   OVER OVER + DUP HEAD !
  13.                   PATCH INITHEAD ( HEAD and INITHEAD fixed)
  14.   MOVE ( dictionary attached )
  15. ENDIF
  16. LUM @ PATCH INITLUM   ( INITLUM  fixed )
  17.  
  18.                  " UCCDEMO.COM"                 2 SYSOPEN
  19.                 HEAD @ 100H - 100H 3 PICK SYSWRITE SYSCLOSE CRLF
  20. " UCCDEMO.COM SAVED"    ."   CRLF
  21.  
  22. quit
  23.  
  24.