First issue

2019-09-01 18:11:29 +02:00
commit 39ee11b688
12 changed files with 1534 additions and 0 deletions
--- a/originals/mort.hp42s
+++ b/originals/mort.hp42s
@@ -0,0 +1,75 @@
+00 { 220-Byte Prgm }
+01 LBL "MORT"
+02 PGMSLV "TVM"
+03 LBL 99
+04 VARMENU "TVM"
+05 STOP
+06 "DUE"
+07 KEY 1 GTO 01
+08 "FV"
+09 KEY 2 GTO 02
+10 "PV"
+11 KEY 3 GTO 03
+12 "I"
+13 KEY 4 GTO 04
+14 "N"
+15 KEY 5 GTO 05
+16 "PMT"
+17 KEY 6 GTO 06
+18 MENU
+19 LBL 07
+20 STOP
+21 GTO 07
+22 GTO 99
+23 LBL 01
+24 "1=due,0=arrears"
+25 AVIEW
+26 PSE
+27 GTO 99
+28 LBL 02
+29 SOLVE "FV"
+30 GTO 99
+31 LBL 03
+32 SOLVE "PV"
+33 GTO 99
+34 LBL 04
+35 SOLVE "I"
+36 GTO 99
+37 LBL 05
+38 SOLVE "N"
+39 GTO 99
+40 LBL 06
+41 SOLVE "PMT"
+42 GTO 99
+43 END
+44 LBL "TVM"
+45 MVAR "DUE"
+46 MVAR "FV"
+47 MVAR "PV"
+48 MVAR "i"
+49 MVAR "N"
+50 MVAR "PMT"
+51 1
+52 1
+53 RCL+ "i"
+54 RCL "N"
+55 +/-
+56 Y↑X
+57 -
+58 RCL÷ "i"
+59 RCL× "PMT"
+60 1
+61 RCL "i"
+62 RCL× "DUE"
+63 +
+64 ×
+65 +/-
+66 1
+67 RCL+ "i"
+68 RCL "N"
+69 +/-
+70 Y↑X
+71 RCL× "FV"
+72 -
+73 RCL+ "PV"
+74 END