Unit conversion for the TI-82 similar to the feature built into
the TI-85.  It a translation of the TI-83 group UNITCONV.83G.
----begin documentation----
		       ******************************
		       * UNITCONV.82G for the TI-82 *
		       ******************************

Unit conversion group of programs		1 November 1996


ACKNOWLEDGMENT

UNITCONV.82G was translated from UNITCONV.83G by Michael Lloyd (Henderson
State University, LLOYDM@HOLLY.HSU.EDU).  UNITCONV.83G was written by
Stephen Reid of the TI Graphiing Team and was released to the public domain.

This software is freeware.  I am in no way responsible for any loss
of money, data, or anything else from the use of these programs.


DESCRIPTION

This program performs conversions between different units, similar to
the unit conversions implemented in the TI-85 calculator.


HOW TO RUN UNITCONV

Send UNITCONV.83G to the TI-83. It contains 13 programs. The program UNTICONV 
provides the user interface to the utility. It is menu driven. Select the type
of units to convert. A dialog will appear on the calculator, requesting the
the units to convert from, the units to convert to, and finally the value to
convert.  The result will be displayed on the calculator. 

This program will use lists L4, L5, and L6.  The original TI-83 grouped file
contained 13 programs and a list CONV.
----end documentation----
----begin ASCII----
======================================================================
\START82\
\COMMENT=Unit Conversion
\NAME=UNITCONV
\FILE=unitconv.82P
{0.001,0.01,1,0.0254,0.3048,0.9144,1000,1609.344,1852,9.4605284048794\E\\#\
15,2.54\E\\(-)\5,1\E\\(-)\10,1\E\\(-)\15,5.0292,1.8288,0.09290304,1,258\#\
9988.110336,1000000,4046.8564224,6.4516\E\\(-)\4,1\E\\(-)\4,0.83612736,\#\
10000,1,3.785411784}\->\\L6\
dim Ans\->\N
{0.946352946,0.473176473,0.0295735295625,0.001,0.016387064,28.316846592\#\
,1000,0.2365882365,0.00492892159375,0.01478676478125,0.001,4.54609,0.02\#\
84130625,1,60,3600,86400,31556925.9747,604800,0.001,1\E\\(-)\6,1\E\\(-)\\#\
9,1,0.5555555555556}\->\\L5\
dim Ans\->\M
For(A,1,M):\L5\(A)\->\\L6\(N+A):End
M+N\->\N
{1,0.5555555555556,0.001,1,0.45359237,1.6605402\E\\(-)\27,14.5939029372\#\
06,907.18474,1000,1,1\E\\(-)\5,8896.443230521,9.80665,4.4482216152605,1\#\
.01325,1,1\E\\(-)\5,0.068947572931684,0.00133322368421,9.80665\E\\(-)\5\#\
,0.033863881578947}\->\\L5\
dim Ans\->\M
For(A,1,M):\L5\(A)\->\\L6\(N+A):End
M+N\->\N
{0.0024908891,1,4.1868,1055.05585262,1.3558179483314,3600000,1.60217733\#\
\E\\(-)\19,1\E\\(-)\7,101.325,745.69987158227,1,1.3558179483314,4.1868,\#\
17.584264210333,0.3048,1,0.44704,0.27777777777778,0.51444444444444}\->\\#\
\L5\
dim Ans\->\M
For(A,1,M):\L5\(A)\->\\L6\(N+A):End
Lbl 0
Menu("CONV-82 (1 OF 2)","LENGTH",A,"AREA",B,"VOLUME",C,"TIME",D,"TEMPER\#\
ATURE",E,"MASS",F,"MORE>",1)
Lbl 1
Menu("CONV-82 (2 OF 2)","FORCE",G,"PRESSURE",H,"ENERGY",I,"POWER",J,"SP\#\
EED",K,"QUIT PROGRAM",Q,"<MORE",0)
Lbl A:prgmZLENGTH:1\->\U:Goto 2
Lbl B:prgmZAREA:2\->\U:Goto 2
Lbl C:prgmZVOLUME:3\->\U:Goto 2
Lbl D:prgmZTIME:4\->\U:Goto 2
Lbl E:prgmZTEMP:5\->\U:Goto 2
Lbl F:prgmZMASS:6\->\U:Goto 2
Lbl G:prgmZFORCE:7\->\U:Goto 3
Lbl H:prgmZPRESS:8\->\U:Goto 3
Lbl I:prgmZENERGY:9\->\U:Goto 3
Lbl J:prgmZPOWER:10\->\U:Goto 3
Lbl K:prgmZSPEED:11\->\U:Goto 3
Lbl Q
0\->\dim \L6\
Stop
Lbl 3
1\->\A:Goto 4
Lbl 2
0\->\A
Lbl 4
If F\<=\0 or T\<=\0
Goto 5
Input N
prgmZCONVERT
Disp "RESULT IS",R
Pause 
Lbl 5
If A=1:Goto 1
Goto 0
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZAREA
\FILE=zarea.82P
1\->\P
Lbl 0
Menu("AREA (1 OF 2)","FEET\^2\",A,"METERS\^2\",B,"MILES\^2\",C,"KILOMET\#\
ERS\^2\",D,"ACRES",E,"INCHES\^2\",F,"MORE>",1)
Lbl 1
Menu("AREA (2 OF 2)","CENTIMETERS\^2\",G,"YARDS\^2\",H,"HECTARES",I,"MO\#\
RE>",0,"<EXIT",Q)
Lbl I:9\->\X:Goto Z
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZCONVERT
\FILE=zconvert.82P
If U<1 or U>11
Return
{15,9,15,9,4,7,5,8,8,5,5}\->\\L5\
If F<1 or F>\L5\(U)
Goto 0
If T<1 or T>\L5\(U)
Goto 0
{0,15,24,39,48,52,59,64,72,80,85}\->\\L4\
\L4\(U)\->\I
If U\<>\5:Then
N\L6\(F+I)/\L6\(T+I)\->\R
Else
1\->\M:0\->\B:0\->\C
If (T=4 or T=2) and (F=1 or F=3)
1.8\->\M
If (F=2 and (T=1 or T=3)) or (F=4 and (T\<>\4))
5/9\->\M
If F=2 and (T=1 or T=3)
32\->\B
If F=3 and T<3
273.15\->\B
If F=4 and T=1
491.67\->\B
If F=4 and T=2
459.67\->\B
If (T=2 and (F=1 or F=3)) or (F=4 and T=1)
32\->\C
If (T=3 and F<3)
273.15\->\C
If (F=1 and T=4)
491.67\->\C
If (F=2 and T=4)
459.67\->\C
(N-B)M+C\->\R
End
0\->\dim \L4\
Lbl 0
0\->\dim \L5\
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZENERGY
\FILE=zenergy.82P
1\->\P
Lbl 0
Menu("ENERGY (1 OF 2)","JOULES",A,"CALORIES",B,"BTUS",C,"FT-LBS",D,"KW-\#\
HRS",E,"EVS",F,"MORE>",1)
Lbl 1
Menu("ENERGY (2 OF 2)","ERGS",G,"L-ATMS",H,"MORE>",0,"<EXIT",Q)
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZFORCE
\FILE=zforce.82P
1\->\P
Lbl 0
Menu(" FORCE ","NEWTONS",A,"DYNES",B,"TONS FORCE",C,"KILOGRAMS FORCE",D\#\
,"POUNDS FORCE",E,"<QUIT",Q)
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZLENGTH
\FILE=zlength.82P
1\->\P
Lbl 0
Menu("LENGTH (1 OF 3)","MILLIMETERS",A,"CENTIMETERS",B,"METERS",C,"INCH\#\
ES",D,"FEET",E,"YARDS",F,"MORE>",1)
Lbl 1
Menu("LENGTH (2 OF 3)","KILOMETERS",G,"MILES",H,"NAUT.MILES",I,"LIGHT Y\#\
EARS",J,"MILS",K,"ANGSTROMS",L,"MORE>",2)
Lbl 2
Menu("LENGTH (3 OF 3)","FERMIS",M,"RODS",N,"FATHOMS",O,"MORE>",0,"<EXIT\#\
",Q)
Lbl O:15\->\X:Goto Z
Lbl N:14\->\X:Goto Z
Lbl M:13\->\X:Goto Z
Lbl L:12\->\X:Goto Z
Lbl K:11\->\X:Goto Z
Lbl J:10\->\X:Goto Z
Lbl I:9\->\X:Goto Z
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZMASS
\FILE=zmass.82P
1\->\P
Lbl 0
Menu("MASS (1 OF 2)","GRAMS",A,"KILOGRAMS",B,"POUNDS",C,"AMUS",D,"SLUGS\#\
",E,"TONS",F,"MORE>",1)
Lbl 1
Menu("MASS (2 OF 2)","METRIC TONS",G,"MORE>",0,"<EXIT",Q)
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZPOWER
\FILE=zpower.82P
1\->\P
Lbl 0
Menu(" POWER ","HORSEPOWER",A,"WATTS",B,"FT-LBS/SEC",C,"CALORIES/SEC",D\#\
,"BTUS/MINUTE",E,"<EXIT",Q)
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZPRESS
\FILE=zpress.82P
1\->\P
Lbl 0
Menu(" PRESSURE (1 OF 2)","ATMS",A,"BARS",B,"N/M\^2\",C,"LB/IN\^2\",D,"\#\
MM HG",E,"MM H2O",F,"MORE>",1)
Lbl 1
Menu(" PRESSURE (2 OF 2)","IN HG",G,"IN H2O",H,"MORE>",0,"<EXIT",Q)
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZSPEED
\FILE=zspeed.82P
1\->\P
Lbl 0
Menu(" SPEED ","FEET/SEC",A,"METERS/SEC",B,"MILES/HOUR",C,"KILOMETERS/H\#\
R",D,"KNOTS",E,"<EXIT",Q)
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZTEMP
\FILE=ZTEMP.82P
1\->\P
Lbl 0
Menu("TEMPERATURE","\deg\C",A,"\deg\F",B,"\deg\K",C,"\deg\R",D,"<EXIT",Q)
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZTIME
\FILE=ztime.82P
1\->\P
Lbl 0
Menu("TIME (1 OF 2)","SECONDS",A,"MINUTES",B,"HOURS",C,"DAYS",D,"YEARS"\#\
,E,"WEEKS",F,"MORE>",1)
Lbl 1
Menu("TIME (1 OF 2)","MILLISECONDS",G,"MICROSECONDS",H,"NANOSECONDS",I,\#\
"MORE>",0,"<EXIT",Q)
Lbl I:9\->\X:Goto Z
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
\START82\
\COMMENT=subroutine for UNITCONV
\NAME=ZVOLUME
\FILE=zvolume.82P
1\->\P
Lbl 0
Menu(" VOLUME (1 OF 3)","LITERS",A,"GALLONS",B,"QUARTS",C,"PINTS",D,"OU\#\
NCES",E,"CENTIMETERS\^3\",F,"MORE>",1)
Lbl 1
Menu(" VOLUME (2 OF 3)","INCHES\^3\",G,"FEET\^3\",H,"METERS\^3\",I,"CUP\#\
S",J,"TEASPOONS",K,"TABLESPOONS",L,"MORE>",2)
Lbl 2
Menu(" VOLUME (3 OF 3)","MILLILITERS",M,"GALLONS(UK)",N,"OUNCES(UK)",O,\#\
"MORE>",0,"<EXIT",Q)
Lbl O:15\->\X:Goto Z
Lbl N:14\->\X:Goto Z
Lbl M:13\->\X:Goto Z
Lbl L:12\->\X:Goto Z
Lbl K:11\->\X:Goto Z
Lbl J:10\->\X:Goto Z
Lbl I:9\->\X:Goto Z
Lbl H:8\->\X:Goto Z
Lbl G:7\->\X:Goto Z
Lbl F:6\->\X:Goto Z
Lbl E:5\->\X:Goto Z
Lbl D:4\->\X:Goto Z
Lbl C:3\->\X:Goto Z
Lbl B:2\->\X:Goto Z
Lbl A:1\->\X
Lbl Z
If P=1:Then
X\->\F:0\->\P:Goto 0
Else
X\->\T
End
Return
Lbl Q
0\->\F:0\->\T
Return
\STOP82\
======================================================================
----end ASCII----