; CIS und UUNET Script 
proc main
set port databits 8
set port parity none
delay 2
transmit "^M"
waitfor
  "e:" then CISPPP,
  "n:" then CISUUNET
until 10

ERROR:
 halt

CISUUNET:

transmit "wan^M"
   
waitfor ":"
transmit "wan^M"

waitfor "Host Name:"
transmit "lhplan^M"
transmit "^M"

goto ENDE

CISPPP:
transmit "+CIS^M"
waitfor "User ID:"
transmit $IHREUSERID,raw
transmit "+/NOINT/GO:LFT-5^M"
waitfor "Password:"
transmit $IHRPASSWORD, raw
transmit "^M"
waitfor "One moment please..."

goto ENDE

ENDE:

endproc