home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / NOHAND11.ZIP / NOHANDLE.PPS < prev   
Encoding:
Text File  |  1993-05-11  |  435 b   |  12 lines
  1. string name         ; declare the name variable.
  2.  
  3. name = u_name()     ; assign the user name to the NAME variable
  4.  
  5. tokenize name       ; tokenize the user name so that we can get the first name
  6.  
  7. name = gettoken()   ; assign the first name of the user to the name variable
  8.  
  9. name = left(name,1) + lower(right(name,len(name)-1))   ; mix up the punctuation.   
  10.  
  11. kbdstuff name       ; stuff the first name into the handle field.
  12.