Titel: Resistor converter
Author: Christian Sandberg
Description: This prog lets you convert between a resistors colorcode and a numeric 
             value + tolerance.
__________________________________________________________________________________
Command translation:
->      Singel arrow
=>      Double arrow (press: shift prgm f1 f1)
_       Display (press: shift prgm f4)
<=      Less or equal 
>       Greater or equal
<>      Not equal
^       Raised to the power of
/       Division
2rt()   Root ( 2rt(9) is the square root of 9 = 3)
3rt()   3:rd root
pi      Pi (3.14....) (press: shift exp)
E       Exponent (press:EXP)
___________________________________________________________________________________

Mcl
"CODE -> NUMERIC .0"
"NUMERIC -> CODE .1"
?->A
A=0=>Goto 0
A=1=>Goto 1
Lbl 0
Mcl
"Circle 1"
"Black  0  Brown  1"
"Red    2  Orange 3"
"Yellow 4  Green  5"
"Blue   6  Violet 7"
"Gray   8  White  9"
?->A
"Circle 2"
"Black  0  Brown  1"
"Red    2  Orange 3"
"Yellow 4  Green  5"
"Blue   6  Violet 7"
"Gray   8  White  9"
?->B
"Circle 3"
"Black  0  Brown  1"
"Red    2  Orange 3"
"Yellow 4  Green  5"
"Blue   6  Violet 7"
?->C
Lbl 2
A=Z=>Z*10->D
Z=9=>Goto 3
Isz Z
Goto 2
Lbl 3
B=Y=>Y->E
Y=9=>Goto 4
Isz Y
Goto 3
Lbl 4
C=X=>10^X->F
X=9=>Goto 5
Isz X
Goto 4
Lbl 5
"Circle 4"
"Nothing  .0"
"Silver   .1"
"Gold     .2"
"Red      .3"
"Brown    .4"
?->G
(D+E)*F->H
G=0=>H*0.2->I
G=1=>H*0.1->I
G=2=>H*0.05->I
G=3=>H*0.02->I
G=4=>H*0.01->I
Eng
"Resistance="
H_
"Tolerance +/-"
I_
Eng
Goto 9
Lbl 1
"OHM?"
Mcl
Abs A->A
A->B
Lbl 6
Isz G
B>=1=>B*0.1->B
B<1=>Goto 7
Goto 6
Lbl 7
A<=9=>B/10->B
10Frac B->C
Int C->C
C/10->O
B-O->B
100Frac B->D
Int D->D
"Circle 1"
C=0=>"  Black"_
C=1=>"  Brown"_
C=2=>"  Red"_
C=3=>"  Orange"_
C=4=>"  Yellow"_
C=5=>"  Green"_
C=6=>"  Blue"_
C=7=>"  Violet"_
C=8=>"  Gray"_
C=9=>"  White"_
"Cicle 2"
D=0=>"  Black"_
D=1=>"  Brown"_
D=2=>"  Red"_
D=3=>"  Orange"_
D=4=>"  Yellow"_
D=5=>"  Green"_
D=6=>"  Blue"_
D=7=>"  Violet"_
D=8=>"  Gray"_
D=9=>"  White"_
"Circle 3"
D=2=>"  Black"_
D=3=>"  Brown"_
D=4=>"  Red"_
D=5=>"  Orange"_
D=6=>"  Yellow"_
D=7=>"  Green"_
D=8=>"  Blue"_
G=9=>"  Violet"_
A<=9=>"  Black"_
Lbl 9
_____________________________________________________________________________________