home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / markref.ttx < prev    next >
Text File  |  1995-07-10  |  586b  |  33 lines
  1.  
  2. /** $VER: MarkRef.ttx 2.0 (30.1.94)
  3.  **
  4.  ** Mark the current location as a reference point.
  5.  **/
  6.  
  7.  
  8. OPTIONS RESULTS
  9.  
  10.  
  11.   GetWord
  12.   word = RESULT
  13.  
  14.   IF (Exists("TurboText:Support/TTX_Refs.lst")) THEN
  15.     Open(indexFile,"TurboText:Support/TTX_Refs.lst", APPEND)
  16.   ELSE DO
  17.     Open(indexFile,"TurboText:Support/TTX_Refs.lst", WRITE)
  18.     WriteLn(indexFile,"")
  19.   END;
  20.  
  21.   WriteCh(indexFile,word)
  22.   WriteCh(indexFile," ")
  23.  
  24.   GetFilePath
  25.   WriteCh(indexFile,'"'||RESULT||'"')
  26.   WriteCh(indexFile," ")
  27.  
  28.   GetCursorPos FOLDS
  29.   PARSE VAR RESULT line .
  30.   WriteLn(indexFile,line)
  31.  
  32.   Close(indexFile)
  33.