home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / removetex.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  512 b   |  18 lines
  1. /* RemoveTeX.dme V2.00 18.12.1989 SB */
  2. IF SHOWLIST('Ports','AmigaTeX')~=0 THEN ADDRESS 'AmigaTeX' 'Exit'
  3. IF SHOWLIST('Ports','TeXpreview')~=0 THEN ADDRESS 'TeXpreview' 'Exit'
  4. CALL SetEnv 'texopts',''
  5. CALL SETCLIP 'AmigaTeX.ErrorLoc',''
  6. CALL SETCLIP 'TeXDMEpn',''
  7. CALL SETCLIP 'TeXDMEpo',''
  8. CALL SETCLIP 'TeXDMEpp',''
  9. CALL SETCLIP 'TeXDMEps',''
  10. CALL SETCLIP 'TeXDMEts',''
  11. PARSE ARG dummy
  12. IF dummy='' THEN RETURN 0
  13. files=FileList('RAM:TeXDME*',filenames,'F')
  14. DO i=1 TO files
  15.  CALL DELETE filenames.i
  16. END
  17. RETURN 0
  18.