home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dbaseii / checkbk2.lbr / CHECKENT.CMD < prev    next >
Encoding:
Text File  |  1986-08-06  |  512 b   |  23 lines
  1. GO BOTTOM
  2. STORE 'Y' TO ANSW
  3. DO WHILE T
  4. STORE CHECKNO+1 TO CNO
  5. APPEND BLANK
  6. REPLACE CHECKNO WITH CNO, DEPOSIT WITH N
  7. @ 5,10 SAY '       CHECK NUMBER' GET CHECKNO
  8. CLEAR GETS
  9. @ 7,10 SAY 'ENTER DATE (mm-dd-yy)' GET DATE
  10. @ 9,10 SAY 'PAID TO THE ORDER OF' GET PAIDTO
  11. @ 11,10 SAY 'ENTER AMOUNT OF CHECK' GET AMOUNT
  12. @ 13,10 SAY 'IS THIS CHECK DEDUCTIBLE (Y/N)' GET DEDUCT
  13. @ 15,10 SAY 'DO YOU WANT TO CONTINUE (Y/N)' GET ANSW
  14. READ
  15. IF ANSW='N'
  16. RELEASE ANSW
  17. RETURN
  18. ENDIF
  19. ENDDO
  20. RELEASE ANSW
  21. RETURN
  22.  
  23. O