\ DATA BASE PROGRAM FOR P1.1
\ Revised by Dickson Cheng  03/28/90 19:59:55.95

: C             ( -- )
        CR ." The speed of light: 2.997930E8 m/s" ;

: N             ( -- )
        CR ." Avogadro's number: 6.02486E26 /(kg mole)" ;

: E             ( -- )
        CR ." The electronic charge: 1.60206E-19 C" ;

: H             ( -- )
        CR ." Planck's constant: 6.62517E-34 J" ;

: MESSAGE       ( -- )
        DARK CR ." Available indexs of data are: C, N, E, H" ;

MESSAGE