home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / lib / pardot.4th < prev    next >
Encoding:
Text File  |  1994-07-24  |  247 b   |  12 lines
  1. \
  2. \ pardot.4th ---    Paren-dot words, i.e. formatting numbers in strings
  3. \
  4. \ (duz 26Jul94)
  5. \
  6.  
  7. : (UD.)        ( ud --- )    <# #S #> ;
  8. : (U.)        ( u --- )    0 (UD.) ;
  9.  
  10. : (D.)        ( d --- )    TUCK DABS <# #S ROT SIGN #> ;
  11. : (.)        ( n --- )    DUP ABS 0 <# #S ROT SIGN #> ;
  12.