First issue
This commit is contained in:
75
originals/bigfact.hp42s
Normal file
75
originals/bigfact.hp42s
Normal file
@@ -0,0 +1,75 @@
|
||||
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
|
||||
Reference in New Issue
Block a user