HP-42 Program Critique - Kinematic Equations (first program)

[DM48]

Updated. Comments welcome.

This program handles a few kinematic equations and sets a Custom menu (Key 4).

Code:


00 { 230-Byte Prgm }
01▸LBL "KINE"
02 CLMENU
03 "d→t"
04 KEY 1 GTO 01
05 "t→d"
06 KEY 2 GTO 02
07 "t→Vf"
08 KEY 3 GTO 03
09 "Vf→t"
10 KEY 4 GTO 04
11 "G"
12 KEY 5 GTO 05
13 KEY 9 GTO 09
14 MENU
15 STOP
16▸LBL 01
17 0.5
18 ÷
19 32.17045
20 ÷
21 SQRT
22 CLA
23 "t = "
24 ARCL ST X
25 ├" s"
26 AVIEW
27 CLA
28 RTN
29▸LBL 02
30 X^2
31 0.5
32 ENTER
33 32.17045
34 ×
35 ×
36 CLA
37 ARCL ST X
38 ├" ft"
39 AVIEW
40 CLA
41 RTN
42▸LBL 03
43 32.17045
44 ×
45 5280
46 ÷
47 3600
48 ×
49 CLA
50 ARCL ST X
51 ├" mph"
52 AVIEW
53 CLA
54 RTN
55▸LBL 04
56 5280
57 ×
58 3600
59 ÷
60 32.17045
61 ÷
62 CLA
63 ARCL ST X
64 ├" s"
65 AVIEW
66 CLA
67 RTN
68▸LBL 05
69 ASSIGN "R↑" TO 01
70 ASSIGN "X<>" TO 02
71 ASSIGN "%CH" TO 03
72 ASSIGN "ABS" TO 04
73 ASSIGN "Root" TO 05
74 ASSIGN "EXITA••" TO 06
75▸LBL 09
76 EXITALL
77 END