home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / LOVE4TH.ZIP / PROMPT90.TXT < prev    next >
Encoding:
Text File  |  1991-10-01  |  922 b   |  31 lines
  1. ( file prompt90.txt  )
  2. ( Created: Sun  03-18-1990  12:39:16 )
  3. ( Last Modified: Sun  03-18-1990  13:08:00 )
  4. ( by Peter Cavén  )
  5. ( Copyright 1990 By Homer Seywerd, Wolodymyr R. Elehew, and Peter Cavén )
  6.  
  7.  
  8. ( a redefinition of PROMPT to provide more information during development )
  9. ( and testing. )
  10. ( This is an example source file included with L.O.V.E. Forth. )
  11. ( At the Ok prompt in L.O.V.E. Forth, type INCLUDE" PROMPT90.TXT"  )
  12.  
  13.  
  14. : newprompt  ( -- )
  15.         ."  <"
  16.         base @
  17.         case    2 of  ." %"  endof      ( if base 2 indicate with '%' )
  18.                 16  of  ." $"  endof    ( if base 16 indicate with '$' )
  19.                 dup 10  <>
  20.                 if      ." ?"           ( any other base indicate with '?' )
  21.                 then
  22.         endcase
  23.         depth  base @
  24.         10 base !
  25.         swap 0 0 d.r
  26.         base !
  27.         ." > Ok"  ;
  28.  
  29. redefine prompt newprompt
  30.  
  31.