proc main
   integer taskid

   switch $OSVER
      case "5.01"          ;XP
         run "rasphone.exe -d NAME" taskid
         pause 2
         while taskexists taskid
            if $ACTIVEWIN == $PWMAINWIN
               pause 2
               if $ACTIVEWIN == $PWMAINWIN
                  exitwhile
               endif
            endif
            yield
         endwhile
      endcase
      case "5.00"          ;2000
         run "rasphone.exe -d NAME" taskid
         pause 2
         while taskexists taskid
            yield
         endwhile
      endcase
      case "4.00"          ;95
      case "4.10"          ;98
      case "4.90"          ;ME
         run "RUNDLL RNAUI.DLL,RnaDial NAME" taskid
         pause 2
         while taskexists taskid
            yield
         endwhile
      endcase
      default
         errormsg "Unsupported operating system!  Script exiting."
         exit
      endcase
   endswitch
endproc