lexist_disk=.f.

do while ! lexist_disk
ln =DISKSPACE("A:")
if ln > 0
*--- Exist a disk in drive "A:"
* wait window 'Any message of waiting..' nowait
lexist_disk=.T.
else
*--- No disk in drive "A:"
messagebox(PLEASE INSERT A DISK ...','System Message')
endif
enddo