(12C) Distance Speed Time

[Gamo]

Streamline this program from post #1

Quote:01 6
02 0
03 STO 6
04 RCL 3
05 X=0
06 GTO 41
07 INTG
08 STO 4
09 LSTx
10 FRAC
11 ENTER
12 EEX
13 2
14 x
15 INTG
16 STO 5
17 LSTx
18 FRAC
19 EEX
20 2
21 x
22 ENTER
23 RCL 6
24 ÷
25 RCL 5
26 +
27 RCL 6
28 ÷
29 RCL 4
30 +
31 RCL 2
32 X=0
33 GTO 36
34 x
35 GTO 00
36 X<>Y
37 RCL 1
38 X<>Y
39 ÷
40 GTO 00
41 RCL 1
42 RCL 2
43 ÷
44 ENTER
45 INTG
46 STO 4
47 -
48 RCL 6
49 x
50 ENTER
51 INTG
52 STO 5
53 -
54 RCL 6
55 x
56 INTG
57 EEX
58 4
59 ÷
60 RCL 5
61 EEX
62 2
63 ÷
64 +
65 RCL 4
66 +

Gamo