First issue

This commit is contained in:
Dennis Twardowsky
2019-09-01 18:11:29 +02:00
commit 39ee11b688
12 changed files with 1534 additions and 0 deletions

75
originals/bigfact.hp42s Normal file
View 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