proc main
 loop2:
	waitfor
		"CLR PAD"         ,matchcase then start,
		"상품코드를 입력" ,matchcase then start,
		": X"             ,matchcase then start,
		": x"             ,matchcase then start
	until 20
        goto Done
 loop:
	waitfor
		"login:"              ,matchcase then sendid,
		"Password:"          ,matchcase then sendpw,
		"FREE INTERNET Ready" ,matchcase then done,
		"SLiRP Ready"         ,matchcase then done,
		"CLR PAD"             ,matchcase then loop2,
		"[Y/n]"               ,matchcase then pressenter,
		"접속할 수 없습니다"  ,matchcase then pressenter,
		"접속할 수 없읍니다"  ,matchcase then pressenter,
		"상품코드를 입력"     ,matchcase then start
	until 20
 start:
	transmit "portal"
	transmit "^M"
	goto loop
 sendid:
	transmit $USERID, raw
	transmit "^j"
	goto loop
sendpw:
	transmit $PASSWORD, raw
	transmit "^j"
	goto loop
 pressenter:
	transmit "^j"
	goto loop
 Done:
   set port databits 8
   set port parity none
endproc