| 123456789101112131415161718192021222324252627282930313233343536373839404142 |
- (* $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: # # # # # # # #
|
