75 lines
625 B
Plaintext
75 lines
625 B
Plaintext
00 { 127-Byte Prgm }
|
||
01 LBL "BN!"
|
||
02 REAL?
|
||
03 GTO 02
|
||
04 LBL 01
|
||
05 "Invalid data"
|
||
06 GTO 04
|
||
07 LBL 02
|
||
08 X<0?
|
||
09 GTO 01
|
||
10 FP
|
||
11 X≠0?
|
||
12 GTO 01
|
||
13 CLA
|
||
14 LASTX
|
||
15 254
|
||
16 X<>Y
|
||
17 X≥Y?
|
||
18 GTO 03
|
||
19 N!
|
||
20 ARCL ST X
|
||
21 ENTER
|
||
22 LOG
|
||
23 IP
|
||
24 STO ST Z
|
||
25 10↑X
|
||
26 ÷
|
||
27 X<>Y
|
||
28 GTO 04
|
||
29 LBL 03
|
||
30 ENTER
|
||
31 LN
|
||
32 1
|
||
33 -
|
||
34 RCL ST Y
|
||
35 ×
|
||
36 LASTX
|
||
37 STO+ ST X
|
||
38 PI
|
||
39 ×
|
||
40 SQRT
|
||
41 LN
|
||
42 +
|
||
43 R↑
|
||
44 12
|
||
45 ×
|
||
46 1/X
|
||
47 ENTER
|
||
48 R↑
|
||
49 X↑2
|
||
50 ÷
|
||
51 30
|
||
52 ÷
|
||
53 -
|
||
54 +
|
||
55 10
|
||
56 LN
|
||
57 ÷
|
||
58 IP
|
||
59 LASTX
|
||
60 FP
|
||
61 10↑X
|
||
62 1ᴇ6
|
||
63 ×
|
||
64 0.5
|
||
65 +
|
||
66 IP
|
||
67 1ᴇ6
|
||
68 ÷
|
||
69 ARCL ST X
|
||
70 ⊢"ᴇ"
|
||
71 X<>Y
|
||
72 AIP
|
||
73 LBL 04
|
||
74 AVIEW |