Attach ->                                             AT Attach ->
Arg Drive : String                                    Arg Drive : String, Report : &Integer

Time, Report, Break = 0 ..                            A = Drive ..

Start AT Drive 'Report'                               A = A ':' [ A._ = 1 ]

Do Wait 'Time Break' Report                           Call FS FS_INFO A '.'; Report = 1
While !Break
                                                      Return
Return

/* * */

Wait Attach ->
Arg Time : ^&WaitState, Report : Integer

Time += Delay
After Kern K_SLEEP_MS Delay
Where Delay = ( 1 / 50 ) * 1000

If !Report then
 Call WaitDialog Time
Else
 Call WaitDialog DLG_HIDE; Break = 1
;

Return

/* * */

WaitState >>
 Time : Integer
 Break : Integer : 1 | 0
;





