home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / settexformat2.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  539 b   |  21 lines
  1. /* SetTeXFormat2.dme V2.00 18.12.1989 SB */
  2. res=GetEnv('texformat')
  3. IF res='' THEN res='lplain.fmt'
  4.           ELSE res=res'.fmt'
  5. res=GetFile(50,50,'TeX:macros',res,'Select TeX formatfile')
  6. IF res='' THEN RETURN 0
  7. res1=POS(':',res)
  8. IF res1>0 THEN res=DELSTR(res,1,res1)
  9. res1=LASTPOS('/',res)
  10. IF res1>0 THEN res=DELSTR(res,1,res1)
  11. res1=POS('.fmt',res)
  12. IF res1=0 THEN RETURN 10
  13. CALL SetEnv 'texformat',DELSTR(res,res1)
  14. IF SHOWLIST('Ports','AmigaTeX')~=0 THEN
  15.  DO
  16.   ADDRESS 'AmigaTeX' 'Exit'
  17.   StartTeX
  18.   IF RC=10 THEN RETURN 10
  19.  END
  20. RETURN 0
  21.