CLS
DIM value, v1, n1, n2, n3 AS LONG 'declare variables as

PRINT ' moves line down
PRINT


PRINT "     Calculate resistor values"
PRINT


INPUT "First Colour ", c$


IF c$ = "black" THEN v1 = 0
IF c$ = "brown" THEN v1 = 1
IF c$ = "red" THEN v1 = 2
IF c$ = "orange" THEN v1 = 3
IF c$ = "yellow" THEN v1 = 4
IF c$ = "green" THEN v1 = 5
IF c$ = "blue" THEN v1 = 6
IF c$ = "violet" THEN v1 = 7
IF c$ = "grey" THEN v1 = 8
IF c$ = "white" THEN v1 = 9

n1 = v1


INPUT "Second Colour ", c$


IF c$ = "black" THEN v1 = 0
IF c$ = "brown" THEN v1 = 1
IF c$ = "red" THEN v1 = 2
IF c$ = "orange" THEN v1 = 3
IF c$ = "yellow" THEN v1 = 4
IF c$ = "green" THEN v1 = 5
IF c$ = "blue" THEN v1 = 6
IF c$ = "violet" THEN v1 = 7
IF c$ = "grey" THEN v1 = 8
IF c$ = "white" THEN v1 = 9

n2 = v1

INPUT "Third Colour ", c$


IF c$ = "black" THEN v1 = 0
IF c$ = "brown" THEN v1 = 1
IF c$ = "red" THEN v1 = 2
IF c$ = "orange" THEN v1 = 3
IF c$ = "yellow" THEN v1 = 4
IF c$ = "green" THEN v1 = 5
IF c$ = "blue" THEN v1 = 6
IF c$ = "violet" THEN v1 = 7
IF c$ = "grey" THEN v1 = 8
IF c$ = "white" THEN v1 = 9

n3 = v1

' To display results as a number
' multiply n1 X 10 and add n2 to results
' ie. if n1 = 7 and n2 = 5, resulting number is 75
' calculate the "multiplier" by raising 10 to the n3
' ie. if n3 = 3, then 10^3 = 1000
' multiply results of n1n2 X 10^n3

value = ((n1 * 10) + n2) * 10 ^ n3

PRINT
PRINT "Value of Resistor = "; value; "Ohms"