home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / printtex.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  932 b   |  32 lines
  1. /* PrintTeX.dme V2.00 18.12.1989 SB */
  2. PARSE ARG file
  3. IF UPPER(DELSTR(file,1,LASTPOS('.',file)))~='TEX' THEN RETURN 10
  4. file=LEFT(file,LASTPOS('.',file)-1)
  5. page=GETCLIP('TeXDMEpp')
  6. IF page='' THEN page='1'
  7. page=Request(50,50,'Enter start page',page,,'CANCEL')
  8. IF page='' THEN RETURN 0
  9. IF ~DATATYPE(page,'Numeric') THEN RETURN 10
  10. IF page<0 THEN RETURN 10
  11. CALL SETCLIP 'TeXDMEpp',page
  12. count=GETCLIP('TeXDMEpn')
  13. IF count='' THEN count='all'
  14. count=Request(50,50,'Enter number of pages',count,,'CANCEL')
  15. IF count='' THEN RETURN 0
  16. IF DATATYPE(count,'Numeric') THEN
  17.  DO
  18.   IF count<0 THEN RETURN 10
  19.   narg='-n'count
  20.  END
  21. ELSE
  22.  DO
  23.   IF UPPER(LEFT(count,1))~='A' THEN RETURN 10
  24.   narg=''
  25.  END
  26. CALL SETCLIP 'TeXDMEpn',count
  27. opt=GETCLIP('TeXDMEpo')
  28. opt=Request(50,50,'Enter printer driver options',opt,,'CANCEL')
  29. CALL SETCLIP 'TeXDMEpo',opt
  30. ADDRESS COMMAND 'Run TeX:bin/dvip6 <CON:0/10/130/30/TeXPrint -p'page narg opt 'RAM:TeXDME'file
  31. RETURN 0
  32.