home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / tpp / rexx / dviprintlog.tpl < prev    next >
Text File  |  1995-02-27  |  692b  |  41 lines
  1. /* DVIPrint Logfile - Macro */
  2. /* Kick 2.0 only */
  3.  
  4. options results
  5.  
  6. binary='C:Type'
  7. hailstring='DVIPrint Logfile'
  8.  
  9. address 'TextPlus'
  10.  
  11. /* get screen name */
  12. 'GetScreenName'
  13. pub_name = result
  14.  
  15. /* left edge */
  16. 'GetWindowLeftEdge'
  17. le = result
  18. /* top edge */
  19. 'GetWindowTopEdge'
  20. te = result
  21. /* width */
  22. 'GetWindowWidth'
  23. wi = result
  24. /* height */
  25. 'GetWindowHeight'
  26. he = result
  27.  
  28. output = '>"CON:'||le||'/'||te||'/'||wi||'/'||he||'/'||hailstring||'/AUTO/WAIT/ALT/INACTIVE/SCREEN'||pub_name||'"'
  29.  
  30. fullname = 'T:DVIPrint.log'
  31.  
  32. 'RequestString' hailstring'\\'fullname
  33.  
  34. /* okay? */
  35. if result ~= "" then do
  36.    address command binary output fullname
  37.    end
  38. else
  39.    'Display' 'DVIPrint Logfile --- Aborted'
  40.  
  41.