ti842py/power.txt at master · TabulateJarl8/ti842py · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Disp "         WORK [1]         "
Disp ""
Disp "    POWER WITH WORK [2]   "
Disp ""
Disp "  POWER WITHOUT WORK [3]  "
Disp ""
Disp "        SPEED [4]        "
Repeat Z=92 or Z=93 or Z=94 or Z=82
getKey→Z
End
If Z=92
Then
Goto 1
Else
If Z=93
Then
Goto 2
Else
If Z=94
Then
Goto 3
Else
If Z=82
Then
Goto 5
Lbl 1
ClrHome
Input "FORCE> ",F
Input "DISTANCE> ",D
F*D→X
Disp X,"JOULES"
Goto 4
Lbl 2
ClrHome
Input "WORK> ",W
Input "TIME> ",T
W/T→X
Disp X,"WATTS"
Goto 4
Lbl 3
ClrHome
Input "FORCE> ",F
Input "DISTANCE> ",D
Input "TIME> ",T
F*D→A
A/T→X
Disp X,"WATTS"
Goto 4
Lbl 5
ClrHome
Input "DISTANCE> ",D
Input "TIME> ",T
D/T→X
Disp X
Goto 4
Lbl 4