home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3ledge.zip / DEPOSITS.PRG < prev    next >
Text File  |  1986-01-12  |  874b  |  49 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. *********************************** (DEPOSITS.PRG)
  4. CLEAR
  5. USE DEPOSITS
  6. SET BELL OFF
  7. SET CONFIRM ON
  8. SET TALK OFF
  9. STORE 0.00 TO MAMT
  10. STORE 'XX/XX/XX' TO MDATE
  11. DO WHILE .T.
  12. GO BOTT
  13. STORE AMTDEP TO MAMT
  14. STORE CTOD(DATE) TO MDATE
  15. CLEAR
  16. @ 9,21 SAY 'Do you want to enter a deposit? '
  17. @ 5,15 SAY 'Last entered: $ '+STR(MAMT,9,2)+'    Date '+DTOC(MDATE)
  18. ?
  19. ?
  20. ?
  21. ?
  22. ?
  23. ?
  24. STORE ' ' TO OPTION
  25. WAIT '                                   ?   ' TO OPTION
  26. IF OPTION<>'Y'
  27. RETURN
  28. ENDIF
  29. CLEA
  30. APPEND BLANK
  31. @ 6,1 SAY 'Enter amount of deposit ' GET AMTDEP
  32. @ 9,1 SAY 'Enter date of deposit ' GET DATE PICTURE '99/99/99'
  33. READ
  34. ENDIF
  35. STORE 0.00 TO DEPO
  36. SUM AMTDEP TO DEPO
  37. SAVE TO DEPO
  38. GO TOP
  39. DISP ALL OFF
  40. ?
  41. ?
  42. STORE ' ' TO OPTION
  43. WAIT '                                     Ok ? ' TO OPTION
  44. IF OPTION='N'
  45. BROW
  46. ENDIF
  47. ENDDO
  48. RETURN
  49.