--- /dev/null
+# menu for DCT, by Shiar
+
+# 2004-09-15 23:32 - moved from 1.6 main
+
+package DCT::Menu;
+
+use strict;
+use utf8;
+
+use vars qw($VERSION @ISA @EXPORT);
+require Exporter;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(@menus);
+
+$VERSION = 1.006.002;
+
+our @menus = (
+ [qw(refresh math>8 prog> mode>7 unit>11)],
+ [qw(main>0 log alog ln exp sin cos tan 0 asin acos atan)], #1 math
+ [qw(main>0 dec bin oct hex logic>3 bit>4)], #2 base
+ [qw(base>2 and or xor not)], #3 base logic
+ [qw(base>2 rl sl asr sr rr)], #4 base bit
+ [qw(base>2 rlb slb srb rrb)], #5 base byte
+ [qw(main>0 sq sqrt ^ xroot)], #6
+ [qw(main>0 number_format angle_measure coord_system)], #7 mode
+ [qw(main>0
+ vector> matrix> list> hyperbolic>9 real>10 base>2
+ probability> fft> complex> constants>
+ )], #8 math
+ [qw(math>8
+ sinh cosh tanh asinh acosh atanh
+ expm lnp1
+ )], #9 math hyperbolic
+ [qw(math>8
+ % %ch %t min max mod
+ abs sign mant xpon ip fp
+ rnd trnc floor ceil r>d d>r
+ )], #10 math real
+ [qw(main>0
+ tools> length>12 area>13 volume>14 time>15 speed>16
+ mass>17 force>18 energy>19 power>20 pressure>21 temperature>22
+ electric_current>23 angle>24 light>25 radiation>26 viscosity>27
+ )], #11 units
+# mm cm m in ft yd km mile mmile lt-yr mil Ang fermi rod fath)],
+ [qw(unit>11
+ _m _cm _mm _yd _ft _in _Mpc _pc _lyr _au _km _mi
+ _nmi _miUS _chain _rd _fath _ftUS _Mil _μ _Å _fermi
+ )], #12 length
+ [qw(unit>11
+ _m^2 _cm^2 _b _yd^2 _ft^2 _in^2
+ _km^2 _ha _a _mi^2 _miUS^2 _acre
+ )], #13 area
+ [qw(unit>11
+ _m^3 _st _cm^3 _yd^3 _ft^3 _in^3
+ _l _galUK _galC _gal _qt _pt
+ _ml _cu _ozfl _ozUK _tbsp _tsp
+ _bbl _bu _pk _fbm
+ )], #14 volume
+ [qw(unit>11
+ _yr _d _h _min _s _Hz
+ )], #15 time
+ [qw(unit>11
+ _m/s _cm/s _ft/s _kph _mph _knot
+ _c _ga
+ )], #16 speed
+ [qw(unit>11
+ _kg _g _Lb _oz _slug _lbt
+ _ton _tonUS _t _ozt _ct _grain
+ _u _mol
+ )], #17 mass
+ [qw(unit>11
+ _N _dyn _gf _kip _lbf _pdl
+ )], #18 force
+ [qw(unit>11
+ _J _erg _Kcal _Cal _Btu _ftxlbf
+ _therm _MeV _eV
+ )], #19 energy
+ [qw(unit>11
+ _W _hp
+ )], #20 power
+ [qw(unit>11
+ _Pa _atm _bar _psi _torr _mmHg
+ _inHg _inH2O
+ )], #21 pressure
+ [qw(unit>11
+ )], #22 temperature
+ [qw(unit>11
+ )], #23 electric_current
+ [qw(unit>11
+ )], #24 angle
+ [qw(unit>11
+ )], #25 light
+ [qw(unit>11
+ )], #26 radiation
+ [qw(unit>11
+ )], #27 viscosity
+); # @menus
+
+1;
+