This converts Kilometers to Miles & Vice Versa.

Feel free to distribute but please dont take credit for yourself.


		Written by David Stinemetze


NAME:KILOMILE
Lbl 1
ClrHome
Disp "1)Kilometer\->\Mile"
Disp "2)Mile\->\Kilometer"
Input X
If X = 1
Goto K
If X = 2 
Goto M
Goto 1
Lbl K
ClrHome
Disp "Kilometer(s)?"
Input K
((((K*100000)/2.54)/12)/5280)\->\M
Disp M
End
Lbl M
ClrHome
Disp "Mile(s)?"
(M*5280*12*2.54)/100000\->\K
Disp K
End