home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / ust.aut < prev   
Text File  |  1992-08-19  |  795b  |  52 lines
  1.  
  2. ECHO "^G仲間探しをしますのでしばらくお待ち下さい＞"
  3. SEND "UST\r",1
  4.  
  5. LOOK 9
  6.  CASE "SDI00528"        ;探したい人のＩＤ
  7.   $10="SDI00528"        ;探したい人のＩＤ
  8.   $11="かっくん"        ;その人のハンドル
  9.  CASE "QGA00522"
  10.   $10="QGA00522"
  11.   $11="ＳＵＭ"
  12.  CASE "PEE01366"
  13.   $10="PEE01366"
  14.   $11="ＪＯＵＲ"
  15.  CASE "MHH00136"
  16.   $10="MHH00136"
  17.   $11="KING STONE"
  18.  CASE "NBH00310"
  19.   $10="NBH00310"
  20.   $11="MEKALIN"
  21.  CASE "$5"
  22.   $10=$5
  23.  CASE "^J＞"
  24.   END
  25.  CASE ">"
  26.   END
  27.  CASE/TIMEOUT
  28.   END
  29. FREE
  30.  
  31. IF $10==$5
  32.  LOOK
  33.   CASE ">"
  34.   CASE "^J＞"
  35.  FREE
  36.  ECHO "^Gお目当ての人はいないようですね\r"
  37.  END
  38. ENDIF
  39.  
  40. LOOK
  41.  CASE ">"
  42.  CASE "^J＞"
  43. FREE
  44. ECHO "^G$11さんを発見！＞"
  45. SEND "SEND $10 $200 from $7\r",1
  46. LOOK
  47.  CASE ">"
  48.  CASE "^J＞"
  49. FREE
  50. END
  51.  
  52.