home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
text_dtp
/
editor
/
turbotext
/
rexx
/
markref.ttx
< prev
next >
Wrap
Text File
|
1995-07-10
|
586b
|
33 lines
/** $VER: MarkRef.ttx 2.0 (30.1.94)
**
** Mark the current location as a reference point.
**/
OPTIONS RESULTS
GetWord
word = RESULT
IF (Exists("TurboText:Support/TTX_Refs.lst")) THEN
Open(indexFile,"TurboText:Support/TTX_Refs.lst", APPEND)
ELSE DO
Open(indexFile,"TurboText:Support/TTX_Refs.lst", WRITE)
WriteLn(indexFile,"")
END;
WriteCh(indexFile,word)
WriteCh(indexFile," ")
GetFilePath
WriteCh(indexFile,'"'||RESULT||'"')
WriteCh(indexFile," ")
GetCursorPos FOLDS
PARSE VAR RESULT line .
WriteLn(indexFile,line)
Close(indexFile)