home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / demo / bitware / disk2 / chat.sc$ / chat.sc$
Encoding:
Text File  |  1995-06-28  |  324 b   |  21 lines
  1.     "$0d$0a"
  2.     "Type Ctrl+C to quit the chat mode$0d$0a"
  3. :getchar1
  4. trace(0)
  5.     @q = getchw
  6.     if (@q = -1) goto :getchar1
  7.     if (substr(@q,1,1) = "$03") goto :exit1
  8.     if (substr(@q,2,1) = 'H') goto :dhost1
  9.     goto :getchar1
  10.  
  11. :dhost1
  12.     @s = substr(@q,1,1)
  13.     "@s"
  14.     if (@s = "$0d") "$0a"
  15.     goto :getchar1
  16.  
  17. :exit1
  18.     exit
  19.     
  20.  
  21.