home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / prompter.seq < prev    next >
Text File  |  1990-04-23  |  1KB  |  33 lines
  1. \\ PROMPTER.SEQ         A user prompting program        Tom Zimmer
  2.  
  3.   A program to prompt for user input, and pass that input off to another
  4. program. Useful mostly to apply automatic prompting to programs that
  5. don't automatically prompt for input when the user doesn't supply it.
  6.  
  7.   You can add as much or as little prettiness to the prompt as you like.
  8.  
  9.   To compile PROMPTER.SEQ, enter the following command line
  10.  
  11.        TCOM PROMPTER /OPT /NOINIT <enter>
  12.  
  13. {
  14.  
  15. 82 array abuf           \ a place to build a command line to execute
  16.  
  17. : main          ( -- )
  18.                 DECIMAL                         \ always select decimal
  19.                 ?DS: SSEG !                     \ init search segment
  20.                 DOSIO_INIT                      \ init EMIT, TYPE & SPACES
  21.                 0 SET_MEMORY                    \ minimize memory ueage
  22.                 DOS_TO_TIB                      \ move command tail to TIB
  23.                 COMSPEC_INIT                    \ init command specification
  24.                 #tib @ 0=                       \ was input on command line?
  25.                 if      ." Enter parameters "   \ if not, then prompt for
  26.                         query                   \ some parameters
  27.                 then
  28.                 " DIR "         abuf place      \ the command to do
  29.                 0 word count    abuf +place     \ append users parameters
  30.                 abuf $sys drop ;                \ shell out and doit
  31.  
  32. }
  33.