45 lines
465 B
Text
45 lines
465 B
Text
|
00 { 133-Byte Prgm }
|
|||
|
01▸LBL "MWVE"
|
|||
|
02 INPUT "Watt"
|
|||
|
03 INPUT "Zeit"
|
|||
|
04 →HR
|
|||
|
05 STO "Zeit"
|
|||
|
06 100
|
|||
|
07 STO 00
|
|||
|
08 RCL "Watt"
|
|||
|
09 270
|
|||
|
10 X≤Y?
|
|||
|
11 STO 00
|
|||
|
12 RCL "Watt"
|
|||
|
13 300
|
|||
|
14 X≤Y?
|
|||
|
15 STO 00
|
|||
|
16 RCL "Watt"
|
|||
|
17 440
|
|||
|
18 X≤Y?
|
|||
|
19 STO 00
|
|||
|
20 RCL "Watt"
|
|||
|
21 600
|
|||
|
22 X≤Y?
|
|||
|
23 STO 00
|
|||
|
24 RCL "Watt"
|
|||
|
25 950
|
|||
|
26 X≤Y?
|
|||
|
27 STO 00
|
|||
|
28 RCL "Watt"
|
|||
|
29 RCL 00
|
|||
|
30 ÷
|
|||
|
31 RCL "Zeit"
|
|||
|
32 ×
|
|||
|
33 "t= "
|
|||
|
34 →HMS
|
|||
|
35 0.01
|
|||
|
36 ×
|
|||
|
37 ATIME
|
|||
|
38 RCL 00
|
|||
|
39 ├"[LF]P= "
|
|||
|
40 AIP
|
|||
|
41 ├"W"
|
|||
|
42 AVIEW
|
|||
|
43 END
|