home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbc.lbr / CSCR.CZD / CSCR.CMD
Encoding:
Text File  |  1993-10-26  |  2.5 KB  |  75 lines
  1.  
  2. * notice..: copyright 1985, all rights reserved
  3. ***************************************************************
  4. ** PROGRAM: CK85.XXX                                         **
  5. ** PURPOSE: CHECK TRACKING OR ACCOUNTS PAYABLE               **
  6. ** FEATURES: ALLOWS MANAGEMENT BY USE OF ACCOUNTING CODES    **
  7. ** AUTHOR:  DON SABA - SAN DIEGO, CA - SABALINE SYSOP        **
  8. ** HELP:  CALL SABALINE (619)692-1961                        **
  9. ***************************************************************
  10. *************************start of cscr.prg*********************
  11. SET talk OFF
  12. STORE ' ' TO key
  13. STORE 'N' TO printon
  14. DO WHILE key <> 'Q' 
  15.  USE &ckdat INDEX cnum
  16.  GO TOP 
  17.  SKIP 
  18.  STORE '    ' TO strnum
  19.  STORE val(number) TO mlownum
  20.  GO BOTTOM 
  21.  STORE val(number) TO mhighnum
  22.  STORE # TO mlast
  23.  STORE str(mlast,3) TO shownum
  24.  ERASE
  25.  @ 10,10 SAY "There are &shownum checks on record in this file" 
  26.  @ 11,10 SAY "The Lowest Check number is" 
  27.  @ 11,27 SAY mlownum
  28.  @ 12,10 SAY "The Highest Check number is" 
  29.  @ 12,27 SAY mhighnum
  30.  @ 13,10 SAY "Please indicate RANGE of checks you would like to view" 
  31.  @ 15,11 SAY "Low" 
  32.  @ 15,14 GET mlownum PICTURE '9999' 
  33.  @ 15,27 GET mhighnum PICTURE '9999' 
  34.  @ 15,23 SAY "High" 
  35.  @ 17,0 SAY "Send Data to the Printer?  (Y/N)" 
  36.  @ 17,35 GET printon PICTURE "!" 
  37.  READ
  38.  ERASE
  39.  STORE mhighnum + 1 TO mhighnum
  40.  STORE str(mlownum,4) TO strnum
  41.  FIND &strnum
  42.  IF printon= "Y" 
  43.   SET PRINT ON
  44.   LIST OFF str(#,3),number,ckdate,payee,;
  45.   amt,depamt,bal WHILE val(number) < mhighnum 
  46.   SET PRINT OFF
  47.   ACCEPT 'Press any KEY to continue or [Q] to quit to main menu' TO key
  48.   STORE !(key) TO key
  49.   ERASE
  50.  ELSE
  51.   LIST OFF str(#,3),number,ckdate,payee,;
  52.   amt,depamt,bal WHILE val(number) < mhighnum 
  53.   ACCEPT 'Press any KEY to continue or [Q] to quit to main menu' TO key
  54.   STORE !(key) TO key
  55.   ERASE
  56.  ENDIF printon= "Y"  
  57. ENDDO WHILE key <> 'Q' 
  58. RETURN
  59. ***************************************************************
  60. ***************************************************************
  61. ***************************************************************
  62. uit to main menu' TO key
  63.   STORE !(key) TO key
  64.   ERASE
  65.  ELSE
  66.   LIST OFF str(#,3),number,ckdate,payee,;
  67.   amt,depamt,bal WHILE val(number) < mhighnum 
  68.   ACCEPT 'Press any KEY to continue or [Q] to quit to main menu' TO key
  69.   STORE !(key) TO key
  70.   ERASE
  71.  ENDIF printon= "Y"  
  72. ENDDO WHILE key <> 'Q' 
  73. RETURN
  74. ***************************************************************
  75.