home bbs files messages ]

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