;RECOMPILE all macro source files in the 'MACRO DIRECTORY' 
STOP                            ; if we are not currently online go online
CHGDIR(GETSESSSTR(28))          ; change to macro directory
j = 0
file$ = FILEFIND("*.wms",0)
WHILE( (NULL(file$) ==0 ))
    max = max+1
    file$= FINDNEXT
WEND
   DIALOGBOX 87, 27, 173, 94, 21
      CTEXT 7, 11, 160, 18, "Start from Beginning or Do You Want to Select the First File?"
      PUSHBUTTON 28, 65, 115, 14, "I'll Select the First File"
      PUSHBUTTON 28, 39, 115, 14, "Start From Beginning"
   DEND
DO which = DIALOG? until(which != 255)

sendspeckey(1,0,ASC("A"))       ; send key ALT+A
sendspeckey(0,0,ASC("F"))       ; select files
i = 0
DO
  sendspeckey(0,0,9)            ; send tab key
  i = i+1
UNTIL( i == 5)

window = GETFOCUS?		; window = file listbox
sendspeckey(0,0,36)             ; send Home key

If(which == 2){
  sendspeckey(0,0,9)            ; send tab key to set focus elsewhere
  DO UNTIL(window == GETFOCUS?)
}


next_file:
sendspeckey(0,0,32)             ; send space key to select file
i = 0
DO i=i+1 UNTIL(i>100)		; wait for window to respond
sendspeckey(1,0,ASC("C"))       ; send ALT+C to compile
DO i=i+1 UNTIL(i>100)		; wait for compiler window to get focus
win1=GETFOCUS?			; win1 = Compile button
DO 
	i=GETFOCUS?
UNTIL( (i!=win1) || (i==window) ) ; eventually focus will be at compiler window
if(window!=GETFOCUS?){
	HALT
}
j = j+1
if(j == max){
   sendspeckey(1,0,ASC("A"))    ; send ALT+a to cancel
   HALT
}
sendspeckey(0,0,40)              ; send select next file aroow down
goto next_file

END