home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / DEPMENU.PRG < prev    next >
Text File  |  1979-12-31  |  1KB  |  55 lines
  1.  
  2. *DEPMENU.CMD FILE
  3. *Select deposits or perform housekeeping on the checkbook.
  4.  
  5. STORE T TO Incoming
  6. DO WHILE Incoming
  7.     ERASE
  8.     ? '   1> ENTER MONEY COMING IN    '
  9.     ? '   2> CHANGE OUR CHECK NUMBER  '
  10.     ? '   3> CHANGE CHECKBOOK BALANCE  '
  11.     ?
  12.     ?
  13.     ?  '                            <RETURN>'
  14.     WAIT TO Action
  15.  
  16.     IF Action = '1'
  17.  DO Deposits
  18.     ELSE
  19.  IF Action = '2'
  20.  RESTORE FROM Constant
  21.  ERASE
  22.  @ 5,0 SAY 'This is the next check number' GET NextCheck
  23.  @ 6,0 SAY 'To leave it unchanged, use the <return>.'
  24.  @ 7,0 SAY 'To change it, just type in the new number.'
  25.  READ
  26.  SAVE TO Constant
  27.  RELEASE All
  28.     ELSE
  29.  IF Action = '3'
  30.      RESTORE FROM Constant
  31.      STORE 'Y' TO Change
  32.      DO WHILE !(Change) = 'Y'
  33.   ERASE
  34.   @ 5,0 SAY'     The current balance is:' GET MBalance
  35.   ? 'To leave it unchanged, use the <return>.'
  36.   ? 'To change it, just type in the new value.'
  37.   READ
  38.   ?
  39.   ?
  40.   ?  '   Want to change your mind (Y or N)?'
  41.   WAIT TO Change
  42.      ENDDO
  43.      RELEASE Change
  44.      SAVE TO Constant
  45.      RELEASE All
  46.  ELSE
  47.      RELEASE All
  48.      RETURN
  49.  ENDIF 3
  50.     ENDIF 2
  51. ENDIF 1
  52. ERASE
  53. STORE T TO Incoming
  54. ENDDO Incoming
  55.