home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo2.lbr / CHECKCHQ.CMD < prev    next >
Encoding:
Text File  |  1993-10-26  |  512 b   |  19 lines
  1. *CHECKCHQ.PRG
  2. *PROGRAM TO TICK OFF CHEQUES AS PRESENTED TO BANK FOR RECONCILIATION
  3. *PURPOSES
  4. USE GENLED
  5. ERASE
  6. DO WHILE T
  7. IF .NOT. PRESENTED
  8. STORE ' ' TO QUI
  9. STORE PRESENTED TO PRESENT  
  10. @ 15,0 SAY CHQNUM
  11. @ 15,12 SAY PAYEE
  12. @ 15,50 SAY DATECHQ
  13. @ 15,60 SAY 'PRESENTED' GET PRESENT   
  14. @ 16,0 SAY 'IF CHEQUE HAS BEEN PRESENTED SET TO TRUE "T"'
  15. @ 17,0 SAY 'PRESS "/" TO QUIT ELSE ANY OTHER KEY TO CONTINUE' GET QUI
  16. READ
  17. REPLACE PRESENTED WITH PRESENT
  18. ENDIF
  19. ENDDO