home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / MATH-.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.8 KB  |  66 lines
  1. * Program.: MATH-.PRG
  2. * Author..: Luis A. Castro
  3. * Date....: 01/19/84 
  4. * Notice..: Copyright 1984, Luis A. Castro, All Rights Reserved.
  5. * Version.: dBASE II, version 2.4x
  6. * Notes...: Front-end program to utilize the SQUARE ROOT,
  7. *           EXPONENT, and NATURAL LOGARITHM subroutines.
  8. * Local...: select, string, number, row
  9. *
  10. SET TALK OFF 
  11. SET BELL OFF
  12. SET RAW ON
  13. SET COLON OFF
  14. ERASE
  15. @ 2, 0 SAY "DEMONSTRATION of MATH ROUTINES"
  16. @ 2,72 SAY DATE()
  17. @ 3, 0 SAY "========================================"
  18. @ 3,40 SAY "========================================"
  19. STORE 10 TO row
  20. STORE "X" TO select
  21. DO WHILE select <> " "
  22.    @ 9,0
  23.    STORE " " TO select
  24.    @ 5,0 SAY "1. SQROOT()   =  square root "
  25.    @ 6,0 SAY "2. EXPONENT() =  exponent "
  26.    @ 7,0 SAY "3. NATLOG()   =  natural logarithm "
  27.    @ 8,0 GET select PICTURE "!"
  28.    READ
  29.    IF select = " " .OR. .NOT. select $ "123"
  30.       LOOP
  31.    ENDIF
  32.    @ 8,0 SAY " "
  33.    ACCEPT "ENTER A NUMBER " TO string
  34.    IF string = " "
  35.       LOOP
  36.    ENDIF
  37.    @ row,0 SAY " "
  38.    STORE VAL(string) TO number
  39.    * ---Execute a math routine.
  40.    DO CASE
  41.       CASE select = "1"
  42.       * ---SQUARE ROOT. 
  43.          ? "   SQROOT (",string,") = "
  44.          DO Sqroot
  45.          ?? root
  46.       CASE select = "2"
  47.       * ---EXPONENT.
  48.          ? "   EXPONENT (", string, ") = "
  49.          DO Exponent
  50.          ?? exponent
  51.       CASE select = "3"
  52.       * ---NATURAL LOGARITHM.
  53.          ? "   NATLOG (", string, ") = "
  54.          DO Natlog
  55.          ?? natlog
  56.    ENDCASE
  57.    STORE row + 1 TO row
  58. ENDDO
  59. SET COLON ON
  60. SET RAW OFF
  61. SET BELL ON
  62. SET TALK ON
  63. RELEASE select, string, number, row
  64. RETURN
  65. * EOF: MATH-.PRG
  66.