home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlkeys.zip / AddURL.erx < prev    next >
Text File  |  1997-08-27  |  196b  |  9 lines
  1. /*returns a string*/
  2. parse arg Kase FullFile
  3.  
  4. line=linein(FullFile)
  5.  
  6. textLine=right(FullFile,length(FullFile)-lastPos('\', FullFile))
  7.  
  8. call etkinserttext '<A HREF="'line'">'textLine'</A>'
  9.