01 LBL "AllOps"
02   XEQ "ALLOPS"
03   STO "A"
04   STO IND R98
05   RCL R42
06   RCL "X"
07   RCL IND R97
08   RCL ST Z
09   RCL+ ST T
10   RCL- ST Z
11   RCL× ST Y
12   RCL÷ ST X
13   SINH
14   COSH
15   TANH
16   ARCSINH
17   ARCCOSH
18   ARCTANH

19   LBL 00
20     RCL R10
21     FS?C IND R78
22     0
23     1E9
24     -3.14
25     987.654321
26     12345678901234567890.987654321
27     IDIV
28     GTO "ALLOPS"
29     COMPLEX
30     "ABC"
31     RECT
32     POLAR
33     FIX 11
34     SCI 10
35     ENG 09
36     FIX IND R96
37     SCI IND R95
38     ENG IND R94
39     ALL
40     FDOT.
41     FCOM,
42     CLA
43     CLMall
44     CLMENU
45     DELP "ALLOPS"
46     DELITM "REGS"
47     DELITM "X"
48     MVAR "X"
49     INTEG "X"
50     PGMINT "AllOps"
51     PGMSLV "AllOps"
52     SOLVE "X"
53     M.NEW
54     [M]^-1
55     |M|
56     [M]^T
57     DOT
58     CROSS
59     UNITV
60     42DIM#
61     M.DIM "M"
62     M.DIM "REGS"
63     INDEX "M"
64     INDEX "REGS"
65     INDEX IND R89
66     M.EDITN "M"
67     M.EDITN "REGS"
68     STOIJ
69     RCLIJ
70     STOEL
71     RCLEL
72     M.PUTM
73     M.GETM
74     SUM
75     WMEAN
76     FCSTX
77     FCSTY
78     SLOPE
79     YINT
80     CORR
81     LinF
82     LogF
83     ExpF
84     PowerF
85     SUM
86     HEX
87     BIN
88     AND
89     OR
90     XOR
91     NOT
92     SF IND R99
93     FS?C 05
94     FC?C 06
95     COMB
96     PERM
97     GAMMA
98     RAN#
99     SEED
100     INPUT T
101     INPUT "T"
102     INPUT IND R92
103     VIEW "X"
104     VIEW IND R93
105     VARMENU "ALLOPS"
106     MENU
107     KEY 01 GTO 11
108     KEY 02 GTO IND R22
109     KEY 03 GTO "ALLOPS"
110     KEY 04 XEQ 44
111     KEY 05 XEQ IND R55
112     KEY 06 XEQ "ALLOPS"
113     X≥0?
114       X≥Y?
115       ISG "X"
116       ISG IND R90
117       DSE "Y"
118       DSE IND R91
119       XTOA
120     CPX?
121       ASTO R86
122     ASTO IND R86
123     ASTO ST Y
124     ASTO ST Z
125     ARCL R86
126     ARCL IND R86
127     ARCL ST X
128     ARCL ST Z
129     RTN
130   END
131 .END.
