Category : Recently Uploaded Files
Archive   : PAPCW10.ZIP
Filename : MORTGAGE.PRG
12 prec
clrf 125,000 pv 6.875 12/ i 30 12* n pmt
12 tabset
PUTS "month\tpayment\tinterest\tprincipal\t balance\n"
PUTS "-----\t-------\t--------\t---------\t -------\n"
; do it for thirty years
1.36001 0 sto ; counter
3 rcl 6 sto ; r6 will hold balance
LBL loop
0 fix
0 rcl int 4 width putstack drop puts "\t" ; month
2 fix
4 rcl chs 7 width putstack puts "\t" ; pmt
6 rcl 2 rcl % 7 width putstack puts "\t" ; interest
- 7 width putstack puts "\t" ; principal
chs 6 rcl + 11 width putstack puts "\n" ; balance
6 sto
0 ISG
GTO loop
; cleanup
0 width drop
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/