Where I have the beep appears to be a rounding error for the
USING command. What do you think?

dim gRound$(50)
dim gCharUnderlined(50)
L = 1
window 1,"",(50,200)-(600,600)

edit field -1,"",(200,100)-(300,120),_framed,_leftjust
edit field -2,"",(200,130)-(300,150),_framed,_leftjust
for L = 1 to 10
edit text ,10,0
num!=RND(99757)
d$ = str$(num!)
e=len(d$)
select e
Case 4
num!= num!/100
gRound$(L) = left$(str$(num!),5)
f = 1
gCharUnderlined(L) =f+2
select gCharUnderlined(L)
case 3
a$= using "##.#"; num!
end select
Case 5
num!= num!/1000
gRound$(L) = left$(str$(num!),6)
f = rnd(2)
gCharUnderlined(L) =f+2
select gCharUnderlined(L)
case 3
a$= using "##.#"; num!
Case 4
a$= using "##.##"; num!
end select
Case 6
num!= num!/10000
gRound$(L) = left$(str$(num!),7)
f = rnd(3)
gCharUnderlined(L) = f+2
select gCharUnderlined(L)
case 3
beep
a$= using "##.#"; num!
Case 4
a$= using "##.##"; num!
Case 5
a$= using "##.###"; num!
end select
end select
edit field 1
edit$(1) = gRound$(L)
setselect gCharUnderlined(L),gCharUnderlined(L)+1
edit text ,, _ulineBit%
edit$(2) = a$
edit field 0
delay 1500

next L

stop

============================
Martin Fitzgibbons
Rush Software
http://www.rushsoftware.com.au
============================