isg21=1 + lsweep/100
mesga(maximum sweep number is :lsweep:
mesga(minimum sweep number is :isg21:
mesg(press enter if minimum sweep number OK. 
mesg(Otherwise specify another number
readvdu(isg21,int,:isg21:)
isg21