home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / tags.zip / tagget.frx < prev    next >
Text File  |  1995-01-29  |  1KB  |  40 lines
  1. /***************************************************************************/
  2. /* TagLine Grab                                                            */
  3. /*  Steals a tag from the current message                                  */
  4. /*                                                                         */
  5. /*  version 1.00 of FleetStreet and higher                                 */
  6. /*                                                                         */
  7. /*  from Simon Ewins (1:250/664)   -   Version 1.0  -   01-27-95           */
  8. /***************************************************************************/
  9.  
  10. tagfile  = 'TAGS.TAG'
  11.  
  12. Call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
  13. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  14. Call SysLoadFuncs
  15. call StartScreen
  16. count = FleetMsg.Text.0
  17. tagtext = ''
  18. do i = 1 to count
  19.    if left(FleetMsg.Text.i,3) = '...' then tagtext=FleetMsg.Text.i
  20. end
  21. if tagtext = '' then
  22.    do
  23.       say 'No tag line found in current message'
  24.       exit
  25.    end
  26. else
  27.    do
  28.       say tagtext
  29.       call lineout tagfile, tagtext
  30.       say ' '
  31.       say 'Tag saved successfully'
  32.    end
  33. exit
  34.  
  35. StartScreen:
  36.   result = FSCls()
  37.   say '... TagGet v1.00 - A FleetStreet Utility by Simon Ewins'
  38.   say ' '
  39.   return
  40.