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  |  737 b   |  48 lines
  1. proc main
  2.  
  3. loop : 
  4.      waitfor
  5.         ": X",matchcase then DoBuHo,
  6.         ": x",matchcase then DoBuHo,
  7.         "[Y/n]",matchcase then DoYesNo,
  8.         "ID :",matchcase then DoID,
  9.     "ｴｭｷｯﾁﾖｼｼｿ.", matchcase then DoOK,
  10.         "ﾁ｢ﾀﾌｵｿ(GO)",matchcase then DoNO
  11.      until 60      
  12.  
  13. DoBuHo: 
  14.    transmit "1119171192"
  15.    transmit "^M"  
  16.    goto loop
  17.  
  18. DoYesNo:
  19.    transmit "y"
  20.    transmit "^M"  
  21.    goto loop
  22.  
  23. DoID: 
  24.    transmit "^M"  
  25.  
  26.    waitfor "｢ﾑ " until 60
  27.    if FALSE == $SUCCESS then 
  28.       goto BailOut 
  29.    endif 
  30.    transmit "^M"  
  31.    goto loop
  32.  
  33. DoOK:
  34.    transmit "^M"  
  35.    goto loop
  36.  
  37. DoNO:
  38.    transmit "11" 
  39.    transmit "^M" 
  40.    goto Done
  41.   
  42. BailOut: 
  43.    halt  
  44. Done:  
  45. endproc 
  46.  
  47.  
  48.