proc main
   clear
   if dialname data 0 s0
      set dialentry access data s0
      s1 = $nullstr
      while not strcmp s1 "[ Current Connection ]"
         fetch modem connection s1
         ; dialload $ddirfname ; the fix
         termmsg "%s modem connection is: %s`r`n" s0 s1
      endwhile
   endif
endproc