home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / libraries / screenfool30.lha / ScreenFool / PSPub.sf < prev    next >
Encoding:
Text File  |  1993-06-09  |  969 b   |  46 lines
  1. /* PSPub.rexx - Run PageStream on Public Screen */
  2.  
  3. if ~showlist('p','ScreenFool.1') then do
  4.   address command 'run ScreenFool'
  5.   call delay(50*5)
  6.   end
  7.  
  8. address 'ScreenFool.1'
  9. options results
  10.  
  11. /*
  12. 'getattr displays stem=DISPLAYS'
  13.  
  14. do i=0 to displays.count-1
  15.   say displays.i.name '(0x'd2x(displays.i.id)')'
  16.   end i
  17.  
  18. parse pull uno
  19.  */
  20.  
  21. DISPLAYID=x2d('89024'); /* 89024 = SUPER72:Super Hi Res Laced */
  22.                         /* 39024 = MULTISCAN:Productivity */
  23.                         /* 99004 = DBLNTSC:High Res No Flicker */
  24.  
  25. 'new ScreenName=PageStream Planes=2 DisplayID='DISPLAYID' ScanType=Text nogui'
  26. if(rc>0) then exit;
  27.  
  28. 'getattr modes var='modes
  29. 'getattr defscreen var='DScreen
  30. 'lockgui'
  31. 'shanghai on'
  32. 'autopop on'
  33. 'default PageStream'
  34.  
  35. options failat 255
  36. 'status Loading PageStream...'
  37. call pragma('d','PageStream2:')
  38. address command 'pagestream2 -w -l'
  39. 'default 'dscreen;
  40.  
  41. 'close PageStream'
  42. 'shanghai 'word(modes,1)
  43. 'autopop 'word(modes,2)
  44. 'unlockgui'
  45. exit
  46.