There really are MANY ways to do this, here is one of them
writing:
sync off
backdrop off
set text opaque
cls
remstart
print "Please wait. Writing Data to "+"file$"+" in Microbiology Directory."
open to read 1,reader$
read string 1,version$:version = val(version$)
close file 1
delete file reader$
open to write 1,reader$
write string 1,str$(version+1)
close file 1
open to write 1,file$
for arraynum = 0 to 12 step 1
write string 1,timeinc$(arraynum)
next arraynum
close file 1
for x=1 to 10 step 1
print "Please wait. Writing Data to "+"file$"+" in Microbiology Directory."
wait 500
CLS
print "Please wait. Writing Data to "+"file$"+" in Microbiology Directory.."
wait 500
CLS
print "Please wait. Writing Data to "+"file$"+" in Microbiology Directory..."
wait 500
CLS
next x
remend
dot$=""
`---simulation of routine above, reading and writing to a file
for i=1 to 10 step 1
dot$=dot$+"."
`--- file reading & writing code goes here
file$="testfile"+str$(i)
m$="Please wait. Writing Data to "+file$+" in Microbiology Directory."+dot$
output(m$,0,0)
wait 200 :`just a short pause, not needed though
next i
print "DONE!"
print "Please press any key"
while spacekey() = 0
x=x
endwhile
end
function output(message$,x,y)
set cursor x,y
print message$
endfunction
