home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 #9 / Net01.iso / Banner / interQ / InterQ.exe / data1.cab / Shared_DLLs / interq.scp next >
Encoding:
Text File  |  2000-07-27  |  934 b   |  55 lines
  1. ;InterQ ﾁ｢ｼﾓ script
  2. ;Normal ﾀﾎﾅﾍｳﾝ ﾁ｢ｼﾓ
  3. proc main
  4.  
  5. loop:
  6.     waitfor
  7.         "CLR PAD",matchcase then start,
  8.         ": X",matchcase then start,
  9.         ": x",matchcase then start,
  10.                 "ﾇﾏｼｼｿ", matchcase then start,
  11.         "[Y/n]",matchcase then yninput,
  12.         "[Y/N]",matchcase then yninput,
  13.         "(y/N)",matchcase then yninput,
  14.         "[ ENTER ]",matchcase then enterinput,
  15.         ">>",matchcase then numinput,
  16.         "ID :",matchcase then idinput,
  17.         "ｾﾏﾈ｣ :",matchcase then idinput,
  18.         "Real PPP",matchcase then done,
  19.         "SLiRP Ready",matchcase then done
  20.  
  21.     until 40
  22.  
  23. start:
  24.         transmit $PASSWORD
  25.     transmit "^M"
  26.     goto loop
  27.  
  28. yninput:
  29.     transmit "y^M"
  30.     goto loop
  31.  
  32. enterinput:
  33.     transmit "^M"
  34.         goto loop
  35.  
  36. numinput:
  37.     transmit "11^M"
  38.         goto loop
  39.  
  40. idinput:
  41.     transmit $USERID
  42.     transmit "^M"
  43.     goto loop
  44.  
  45. connfail:
  46.     set screen keyboard on
  47.       halt
  48.  
  49. Done:
  50.     set port databits 8
  51.     set port parity none
  52.  
  53. endproc
  54.     
  55.