home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / texswitch.dme < prev   
Encoding:
Text File  |  1992-09-06  |  465 b   |  24 lines
  1. /* TeXSwitch.dme V2.00 18.12.1989 SB */
  2. IF SHOWLIST('Ports','AmigaTeX')=0 THEN RETURN 10
  3. PARSE ARG mode
  4. mode=UPPER(LEFT(mode,1))
  5. SELECT
  6.  WHEN mode='F' THEN CALL ToFront
  7.  WHEN mode='B' THEN CALL ToBack
  8.  OTHERWISE
  9.   res=GETCLIP('TeXDMEts')
  10.   IF res='' THEN CALL ToFront
  11.             ELSE CALL ToBack
  12. END
  13. RETURN 0
  14.  
  15. ToFront:
  16.  ADDRESS 'AmigaTeX' 'ToFront'
  17.  CALL SETCLIP 'TeXDMEts','1'
  18.  RETURN 0
  19.  
  20. ToBack:
  21.  ADDRESS 'AmigaTeX' 'ToBack'
  22.  CALL SETCLIP 'TeXDMEts',''
  23.  RETURN 0
  24.