home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / gotexerror.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  274 b   |  13 lines
  1. /* GoTeXError.dme: V2.00 18.12.1989 SB */
  2. IF SHOWLIST('Ports','AmigaTeX')=0 THEN RETURN 10
  3. ADDRESS 'AmigaTeX' 'ErrorLoc'
  4. eloc=GETCLIP('AmigaTeX.ErrorLoc')
  5. IF eloc='' THEN RETURN 0
  6. PARSE VAR eloc filename linenum charpos .
  7. goto linenum
  8. first
  9. DO charpos-1
  10.  right
  11. END
  12. RETURN 0
  13.