\ Program: Check Book Register Program.
\ Version: 1
\ Date:    September 5, 1986
\ Author:  <your name>

\ Log of Changes and Modifications.
\ JWB 22 09 88  Converted from L&P F83 Blocks to F-PC

\ Print balance forward.
: .BF  ( bal -- bal )
       5 SPACES DUP  .  CR ;

\ Display amount of next entry and the new subtotal.
: +.  ( s1 n -- s2)
      DUP    .   +
      DUP    .  CR ;

\ Done with this months checks, print the new total.
: DONE ( s -- )
       CR  ." ====================================="
       CR  ."  You have . . . . "  .  ."  dollars left." CR ;

\ Run the check book program on the data that starts on line 30 of
\ this file!
: CHECK-BOOK ( -- )
        30  LOAD ;

\S  This is a comment to the end of the file.
\ My checking account
CR
.( Balance forward )    1000   .BF
.( Pay Check       )    1200   +.
.( Mortgage        )    -500   +.
.( Hydro           )    -120   +.
.( Food            )    -200   +.
.( Telephone       )     -25   +.
.( Entertainment   )     -15   +.
.( Car Payment     )    -300   +.
DONE