home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / edit / viewer / balance.prg next >
Encoding:
Text File  |  1990-03-12  |  929 b   |  40 lines
  1. * * * * BALANCE.PRG * * * *
  2. * RRA
  3. * 08/20/89, 3/12/90
  4. * Program uses the CHECKS database to balance my checkbook.
  5. * Note: don't use "run" to start a variable name in pd ("runtot").
  6.  
  7.    PRIVATE GR_TOT, MESS
  8.  
  9.    SET TALK OFF
  10.    SET ECHO OFF
  11.  
  12.    USE CHECKS
  13.    * INDEX ON DTOC( TRANDATE ) + TRANNO TO CHECKS
  14.    SET INDEX TO CHECKS
  15.    REINDEX
  16.    GO TOP
  17.    GR_TOT = 0
  18.    SET PRINT ON
  19.    DO WHILE (.NOT. EOF( ) )
  20.  
  21.       LIST NEXT 1
  22.       IF (ISDEPOSIT = ' ' )
  23.          GR_TOT = GR_TOT - CHECKS->AMOUNT
  24.       ELSE
  25.          GR_TOT = GR_TOT + CHECKS->AMOUNT
  26.       ENDIF
  27.       MESS = REPLICATE( ' ', 50 ) + '******'
  28.       * MESS = MESS + STR(GR_TOT, 9, 2 )
  29.       MESS = MESS + TRANSFORM(GR_TOT, '999999.99' )
  30.       ? MESS
  31.       * REPLICATE( ' ', 50 ) + '******' + STR( GR_TOT, 9, 2 )
  32.       SKIP
  33.    ENDDO
  34.  
  35.    SET PRINT OFF
  36.    EJECT
  37. RETURN
  38.  
  39. *************************** EOF *****************************
  40.