home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / prog1 / 4th_86.lzh / 7OMIT3.4TH < prev    next >
Text File  |  1989-02-14  |  512b  |  19 lines
  1. : OMIT
  2.   WORD LAST @ FIND DUP 0= IF ( found)
  3.     DROP ( CRLF ATOM ." "      ^9^Not Found by OMIT    " ." ) RETURN
  4.   THEN
  5.   DICTION OVER U> IF ( not in diction build area)
  6.     DROP ( " ^13 10^Can't omit system/attached entries^13 10^"
  7.     ."  ) RETURN
  8.   THEN
  9.   DUPB@ ( length) OVER + 4 + ( next)
  10.   REPEAT ( tos = move dest;  nos = move src)
  11.     OVER LAST @ -
  12.   WHILE ( not past last)
  13.     1- SWAP 1- DUPB@ 3 PICK B! SWAP ( move one byte)
  14.   ENDWHILE
  15.   LAST ! ( update last) DROP
  16. ; IMMEDIATE
  17.  
  18.   
  19.