home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / checkbk2.lbr / DEPOSITS.CMD < prev    next >
Encoding:
Text File  |  1986-08-05  |  512 b   |  16 lines
  1. STORE "Y" TO ANSW1
  2. DO WHILE T
  3. APPEND BLANK
  4. REPLACE DEPOSIT WITH Y,PAIDTO WITH 'DEPOSIT'
  5. @ 9,10 SAY 'ENTER AMOUNT OF DEPOSIT' GET AMOUNT
  6. @ 11,10 SAY 'ENTER DATE(mm-dd-yy)' GET DATE
  7. @ 15,10 SAY 'DO YOU WANT TO CONTINUE (Y/N)' GET ANSW1
  8. READ
  9. IF ANSW1='N'
  10.  RELEASE ANSW1
  11.  RETURN
  12. ENDIF
  13. ENDDO
  14. RELEASE ANSW1
  15. RETURN
  16.