Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.lang.forth    |    Forth programmers eat a lot of Bratwurst    |    117,927 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 116,477 of 117,927    |
|    Anton Ertl to dxf    |
|    Re: Numeric string output - conspicuousl    |
|    09 May 24 14:57:36    |
   
   From: anton@mips.complang.tuwien.ac.at   
      
   dxf writes:   
   >> With that word you could write !SETTINGS as:   
   >>   
   >> \ Save settings to file   
   >> : .SETTINGS ( -- )   
   >> ." [options]"   
   >> ." -s" send.s @ .   
   >> ." -c" char.s @ .   
   >> ." -d" wspace @ .   
   >> cspace @ dup 3 <> and ?dup if   
   >> [char] , emit .   
   >> then   
   >> ." -t" tone @ .   
   >> ." -o" compress @ 0= and type   
   >> ." -p" punct @ .   
   >> ." -l" lsignal @ 0<> and type   
   >> ." -u" volume @ .   
   >> cr ;   
   >>   
   >> : !settings ( -- )   
   >> ['] .settings dxf's-default-file @ outfile-execute ;   
   >>   
   >> This allows you to test .SETTINGS interactively and eliminates the   
   >> need for words like WRITE, WRITECHR and WRITECR.   
   >   
   >And have it disappear off the screen   
      
   The output of .SETTINGS is a single line. You have a screen that   
   cannot display that and your system does not support scrolling back?   
      
   But even if you prefer to work in such a deprived environment, the   
   advantage that you need just one additional word instead of a whole   
   bunch is still there.   
      
   - anton   
   --   
   M. Anton Ertl http://www.complang.tuwien.ac.at/anton/home.html   
   comp.lang.forth FAQs: http://www.complang.tuwien.ac.at/forth/faq/toc.html   
    New standard: https://forth-standard.org/   
    EuroForth 2023: https://euro.theforth.net/2023   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca