home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 561 / forst / lib / headers.s < prev    next >
Encoding:
Text File  |  1990-12-10  |  267 b   |  18 lines
  1. decimal
  2.  
  3. : >link 8 + ;
  4.  
  5. : stopper create head >link , 0 w,
  6.   does>  { 1 regarg body  2 regs target new }
  7.        body @ to target  body 4+ w@ to new
  8.        target w@  body 4+ w!   new target w! ;
  9.        
  10.  
  11. stopper u1  upto
  12. stopper q1  quit
  13.  
  14. : t1 ;
  15. : t2 ;
  16.  
  17.        
  18.