home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / rexx / ttx / ttxtofront.sd < prev    next >
Encoding:
Text File  |  1991-11-16  |  260 b   |  15 lines
  1. /* brings TTX to front (started from ShowDVI) */
  2. /* Jan Schroeder 15.11.91 */
  3.  
  4. IF (SHOW('P', 'TURBOTEXT')) THEN DO
  5.  DO i=0 TO 20
  6.     h='TURBOTEXT'i
  7.     IF SHOW('P', h) THEN LEAVE
  8.  END
  9.  ADDRESS VALUE h
  10.  screen2front
  11.  activatelastdoc
  12. END
  13. ELSE okay1 "No TTX running!"
  14.  
  15.