home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_1dc.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  505 b   |  21 lines
  1. \ DATA BASE PROGRAM FOR P1.1
  2. \ Revised by Dickson Cheng  03/28/90 19:59:55.95
  3.  
  4. : C             ( -- )
  5.         CR ." The speed of light: 2.997930E8 m/s" ;
  6.  
  7. : N             ( -- )
  8.         CR ." Avogadro's number: 6.02486E26 /(kg mole)" ;
  9.  
  10. : E             ( -- )
  11.         CR ." The electronic charge: 1.60206E-19 C" ;
  12.  
  13. : H             ( -- )
  14.         CR ." Planck's constant: 6.62517E-34 J" ;
  15.  
  16. : MESSAGE       ( -- )
  17.         DARK CR ." Available indexs of data are: C, N, E, H" ;
  18.  
  19. MESSAGE
  20.  
  21.