home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L1.ZIP / CHKBOOK.SEQ < prev    next >
Encoding:
Text File  |  1988-10-06  |  1.1 KB  |  40 lines
  1. \ Program: Check Book Register Program.
  2. \ Version: 1
  3. \ Date:    September 5, 1986
  4. \ Author:  <your name>
  5.  
  6. \ Log of Changes and Modifications.
  7. \ JWB 22 09 88  Converted from L&P F83 Blocks to F-PC
  8.  
  9. \ Print balance forward.
  10. : .BF  ( bal -- bal )
  11.        5 SPACES DUP  .  CR ;
  12.  
  13. \ Display amount of next entry and the new subtotal.
  14. : +.  ( s1 n -- s2)
  15.       DUP    .   +
  16.       DUP    .  CR ;
  17.  
  18. \ Done with this months checks, print the new total.
  19. : DONE ( s -- )
  20.        CR  ." ====================================="
  21.        CR  ."  You have . . . . "  .  ."  dollars left." CR ;
  22.  
  23. \ Run the check book program on the data that starts on line 30 of
  24. \ this file!
  25. : CHECK-BOOK ( -- )
  26.         30  LOAD ;
  27.  
  28. \S  This is a comment to the end of the file.
  29. \ My checking account
  30. CR
  31. .( Balance forward )    1000   .BF
  32. .( Pay Check       )    1200   +.
  33. .( Mortgage        )    -500   +.
  34. .( Hydro           )    -120   +.
  35. .( Food            )    -200   +.
  36. .( Telephone       )     -25   +.
  37. .( Entertainment   )     -15   +.
  38. .( Car Payment     )    -300   +.
  39. DONE
  40.  
  41.