(* $Header:   D:/logfiles/demos/testnumb.edv   1.2   08 Dec 1990 12:45:48   coleb  $ *)
=============================================================================
:TestFrame
Fields:{
        () 'Real1' real [-99999..999999];prompt
        Real number with user-specified decimals.
        () 'Real2' real.0 [-99999..999999];prompt
        Real number with no decimal places.
        () 'Real3' real.1 [-99999..999999];prompt
        Real number with one decimal place.
        () 'Real4' real.2 [-99999..999999];prompt
        Real number with two decimal places.
        () 'Real5' real.3 [-99999..999999];prompt
        Real number with three decimal places.
        () 'Int1' integer [-9..99];prompt 
        Integer, 2 digit field.
        () 'Int2' integer [-99..999];prompt
        Integer, 3 digit field.
        () 'Int3' integer [-999..9999];prompt
        Integer, 4 digit field.
        () 'Card1' integer [0..9];prompt
        Cardinal, 1 digit field.
        () 'Card1' integer [0..99];prompt
        Cardinal, 2 digit field.
        () 'Card1' integer [0..999];prompt
        Cardinal, 3 digit field.
        () 'Card1' integer [0..9999];prompt
        Cardinal, 4 digit field.
        }
Window:{
        Position: (1,1,80,25)
        Double Box
        }
-----------------------------------------------------------------------------
                                
                                Numeric Input Test

        Reals:  #      #   #      #  #      #  #      #  #      #

        Integers:  #  #  #   #  #    #  

        Cardinals:  # #  #  #  #   #  #    #