Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #59002

Easy Finance in gforth

Show all headers | View raw

\ Count your Change
\ Can be expanded to include Cash, Credit Cards etc.
\ Fast. No need for a spread sheet.
\ good practice to use gforth.
\ Just add a 2variable to the list
\ I have found this to be usefull

2variable mychange
2variable mycash

: .## 10 >r tuck dabs <# # # 46 hold  #s rot sign #> r> over - spaces type ;
: bfwd ( bal  bal ) 10 spaces 2dup .## cr ;
: +. 2dup  .## d+  2dup    .## cr ;
: donee
 ." ============================================================" cr
 ."                                            =. . .$"  .##  ." " cr cr ( KEY DROP) ;

CR
.( CH  05/10/2017 Wed  Start               )    20.91 BFWD
.( CH  05/10/2017 Wed  Hundreds            )     0.00 +.
.( CH  05/10/2017 Wed  Fifities            )     0.00 +.
.( CH  05/10/2017 Wed  Twenties            )    20.00 +.
.( CH  05/10/2017 Wed  Tens                )    10.00 +.
.( CH  05/10/2017 Wed  Fives               )     5.00 +.
.( CH  05/10/2017 Wed  Singles             )     7.00 +.
.( CH  05/10/2017 Wed  Dollar Coin         )     5.00 +.
.( CH  05/10/2017 Wed  Quarters            )     4.00 +.
.( CH  05/10/2017 Wed  Dimes               )     0.20 +.
.( CH  05/10/2017 Wed  Nickels             )     0.10 +.
.( CH  05/10/2017 Wed  Pennies             )     0.04 +.
2dup mychange 2!
donee

.( CA  05/01/2017 Mon Start                )   100.00 BFWD
.( CA  05/01/2017 Mon CTA                  )    -5.00 +.
.( CA  05/02/2017 Tue N/A                  )     0.00 +.
.( CA  05/03/2017 Wed CTA                  )    -5.00 +.
.( CA  05/04/2017 Thr N/A                  )     0.00 +.
.( CA  05/05/2017 Fri CTA                  )    -5.00 +.
.( CA  05/06/2017 Sat N/A                  )     0.00 +.
.( CA  05/07/2017 Sun Laundry              )    -2.75 +.
.( CA  05/08/2017 Mon CTA                  )    -5.00 +.
.( CA  05/09/2017 Tue N/A                  )     0.00 +.
.( CA  05/10/2017 Wed CTA                  )    -5.00 +.
2dup mycash 2!
donee

cr ." --------------------------------------------------" cr
." mychange     =" mychange 2@  .## cr
." mycash       =" mycash   2@  .## cr

bye

Back to comp.lang.forth | Previous | Next | Find similar | Unroll thread

Thread

Easy Finance in gforth trygvej123@gmail.com - 2017-05-10 11:37 -0700

csiph-web