Dim Number1 As String * 8
Dim Num As String * 10

Number1 = Number1 + Num 'Num is select by switches.

Dim Operand1 As Double
Dim Operand2 As Double
Dim Result As Double

Operand1 = Val(number1)
Operand2 = Val(number2)
Result = Operand1 + Operand2

         Num = Str(result)
         Pos = Charpos(num , ".")   'calc dot position on LED display
         Pos = Pos - 1
         Dot(pos) = 1
         Delchars Num , "."

         For I = 1 To 7
            Str_array(i) = Mid(num , I , 1)
            Dig(i) = Val(str_array(i))
         Next

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack=64
$swstack=64
$framesize = 128
$sim

Dim Number1 As String * 20
Dim Number2 As String * 20
Dim Operand1 As Double
Dim Operand2 As Double
Dim Result As Double
Dim Resultstr As String * 20
Dim Pos As Byte

Number1 = "111.22"
Number2 = "333.44"

Operand1 = Val(number1)
Operand2 = Val(number2)
Result = Operand1 + Operand2
Resultstr = Str(result)
Pos = Charpos(resultstr , ".")

Print "First adding " ; Number1 ; " to the " ; Number2 ; " and the result is " ; Result ; " (" ; Resultstr ; "). ";
Print "Result string is " ; Len(resultstr) ; " characters long." ;
Print " The dot is on " ; Pos ; " place."

Number1 = "111.222"
Number2 = "333.444"

Operand1 = Val(number1)
Operand2 = Val(number2)
Result = Operand1 + Operand2
Resultstr = Str(result)
Pos = Charpos(resultstr , ".")

Print "Now adding " ; Number1 ; " to the " ; Number2 ; " and the result is " ; Result ; " (" ; Resultstr ; "). ";
Print "Result string is " ; Len(resultstr) ; " characters long." ;
Print " The dot is on " ; Pos ; " place."

End