home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / AMT2CALL.PRG < prev    next >
Encoding:
Text File  |  1984-08-08  |  768 b   |  32 lines
  1. * For AMT2WORD calling program:
  2. *
  3. * Establish a working environment...
  4. ERASE
  5. SET TALK OFF
  6. *
  7. * Initialize a memory variable for the prompt...
  8. STORE 0.00 TO amt:full
  9. *
  10. * Prompt for the entry of an amount...
  11. @ 10,26 SAY "Enter Dollar Amount " GET amt:full
  12. READ
  13. *
  14. * Call the subroutine to do the conversion...
  15. DO Nmbrword
  16. *
  17. * Branch for error or not...
  18. IF is:error
  19.    @ 12,0 SAY "***ERROR*** Number must be between 0.00 and 999999.99 ***" 
  20. ELSE
  21.    *
  22.    * Display, or print, or whatever you want to do with the result...
  23.    @ 12,0 SAY amt:word
  24. ENDIF
  25. *
  26. * Restore the environment and return to the dot prompt or another program...
  27. RELEASE amt:full,amt:word,is:error
  28. SET TALK ON
  29. RETURN
  30. *EOF
  31.  
  32.