home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / NOHAND11.ZIP / NOHANCHG.PPS < prev    next >
Encoding:
Text File  |  1993-05-18  |  522 b   |  20 lines
  1. string name         ; declare the name variable.
  2. string prompt       ; declare the prompt variable.
  3.  
  4. prompt = "@X0A(@X0C@MINLEFT@@X0A min. left) (H)elp, Chat Command"
  5.  
  6. inputstr prompt,name,@X0A,60,mask_ascii(),highascii+lfbefore
  7.  
  8. if (upper(left(name,2)) = "HA") then
  9.    prompt = tokenstr()   ; Call to tokenstr() to destroy any command line paramaters to the handle command.
  10.    kbdstuff "HA"
  11. else
  12.    if (name = "") then
  13.       kbdstuff chr(13)
  14.    else 
  15.       kbdstuff name+tokenstr()
  16.    endif
  17. endif
  18.  
  19. end
  20.