( file prompt90.txt  )
( Created: Sun  03-18-1990  12:39:16 )
( Last Modified: Sun  03-18-1990  13:08:00 )
( by Peter Cav‚n  )
( Copyright 1990 By Homer Seywerd, Wolodymyr R. Elehew, and Peter Cav‚n )


( a redefinition of PROMPT to provide more information during development )
( and testing. )
( This is an example source file included with L.O.V.E. Forth. )
( At the Ok prompt in L.O.V.E. Forth, type INCLUDE" PROMPT90.TXT"  )


: newprompt  ( -- )
        ."  <"
        base @
        case    2 of  ." %"  endof      ( if base 2 indicate with '%' )
                16  of  ." $"  endof    ( if base 16 indicate with '$' )
                dup 10  <>
                if      ." ?"           ( any other base indicate with '?' )
                then
        endcase
        depth  base @
        10 base !
        swap 0 0 d.r
        base !
        ." > Ok"  ;

redefine prompt newprompt