home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2001 #2 / Net01.iso / powerz.exe / data1.cab / PowerZ / script / ________.scp < prev    next >
Encoding:
Text File  |  2000-11-16  |  1.1 KB  |  61 lines
  1. proc main
  2.  
  3. integer nCount = 0
  4.  
  5. string SendWord1 = "ﾁｾｷ : X"
  6. string SendWord5 = "ﾁ｢ﾀﾌｵｿ(GO)"
  7. string SendWord2 = "[Y/n]"
  8. string SendWord3 = "｢ﾑ"
  9. string SendWord4 = "ｴｩｸ｣ｼｼｿ..."
  10. string SendWord6 = "ID :"
  11.  
  12. integer nTime = 30
  13.  
  14. while nCount < 5 do
  15.     waitfor SendWord1 then DoSin until nTime
  16.     transmit "^M"
  17.     nCount = nCount + 1
  18. endwhile
  19. goto BailOut
  20.  
  21. DoSin:
  22.     transmit "1150871971"
  23.     transmit "^M"
  24.  
  25.     waitfor SendWord2 until nTime
  26.     if FALSE == $SUCCESS then
  27.     goto BailOut
  28.     endif
  29.     transmit "^M"
  30.  
  31.     waitfor SendWord6 until nTime
  32.     if FALSE == $SUCCESS then
  33.     goto BailOut
  34.     endif
  35.     transmit "^M"
  36.  
  37.     waitfor SendWord3 until nTime
  38.     if FALSE == $SUCCESS then
  39.     goto BailOut
  40.     endif
  41.     transmit "^M"
  42.  
  43.     waitfor SendWord4 until nTime
  44.     if FALSE == $SUCCESS then
  45.     goto BailOut
  46.     endif
  47.     transmit "^M"
  48.  
  49.     waitfor SendWord3 until nTime
  50.     if FALSE == $SUCCESS then
  51.     goto BailOut
  52.     endif
  53.     transmit "1"
  54.     transmit "^M"
  55.     goto Done
  56.  
  57.     BailOut:
  58.         halt
  59.     Done:
  60.  
  61. endproc