home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / TXed_ARexx / endit.txed next >
Text File  |  1988-04-28  |  702b  |  19 lines
  1. /* End a ref entry */
  2. /* Call this macro to end a ref definition when the cursor is on the last
  3.    line you wish to be displayed when a ref command is executed. This blindly
  4.    completes an entry into 's:txed.ref' assuming that you started it with
  5.    'markit.txed', so be careful. If you forget to call this macro or call it
  6.    twice in a row, then s:txed.ref will be corrupt. You can easily fix it
  7.    with your favorite TeXt EDitor though. */
  8. options results
  9. if (~exists('s:txed.ref')) then do
  10.    say 's:txed.ref does not exist, first run markit!'
  11.    exit
  12.    end
  13. call open(reffile,'s:txed.ref','A')
  14. 'ST R'
  15. line = word(result,2)
  16. call writech(reffile,line)
  17. call writeln(reffile,'@')
  18. call close(reffile)
  19.