proc main
;; Xyplex dialup script
;; 6/5/2000 G.Doig RPI NSS
;; 11/21/2000 Modified for Win98/2000
;; Script Version 2.1

        integer loopcount = 0
        integer pwsent = 0
    Loop:
        loopcount = loopcount + 1
        delay 1
        transmit "^M"
    waitfor
        "name>" then DoUsername,
        "word>" then DoPassword,
        "OK" then DoPPP
        until 2
    if loopcount < 10 then
        goto Loop
        endif

    DoUsername:
        transmit $USERID, raw
        transmit "^M"
        goto Loop

    DoPassword:
        if pwsent > 0 then
            goto Loop
            endif
        transmit $PASSWORD, raw
        transmit "^M"
        pwsent = pwsent + 1
        goto Loop

    DoPPP:
        transmit "set port ppp enable^M"
        delay 5
        goto End

    End:
endproc