آقا یه راه حل اما عملکردش مثل ماشین حساب های 8 رقمی میشه:
$regfile = "m32def.dat"
$crystal = 11059200
$swstack = 256
$hwstack = 256
$framesize = 256
$baud = 9600
Dim Nam As Single , Nam1 As Double , L As Integer
Dim A As String * 10
Nam1 = 123456789
A = Str(nam1)
L = Len(a)
Do
Print "hamed"
If L < 12 Then
Nam = Val(a)
Print Nam
Else
Print Nam1
End If
Wait 1
Loop