home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / diskmags / scripts&guides / startrek / tg-screen.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-28  |  735b  |  28 lines
  1. /*SET SCREENMODE FOR TREK-THE.GUIDE v1.0 */
  2.  
  3. if ~show('L','rexxreqtools.library') then
  4.         call addlib("rexxreqtools.library", 0, -30, 0)
  5.  
  6. NL = '0a'x
  7.  
  8. sm:
  9. screenmode = rtscreenmoderequest( "Pick screentype", ,,
  10.               "rtsc_flags = screqf_sizegads", screen)
  11.  
  12. if screenmode ~= "" then do
  13.     open(dfile, 'envarc:Trekguide.prefs', 'w')
  14.     writeln(dfile, screen.width'|'screen.height)
  15.     close(dfile)
  16.  
  17. /*say 'the screenwidth is' screen.width
  18. say 'the screenheigh is' screen.height
  19. */
  20. end
  21.  
  22. if screenmode = "" then do
  23.   call rtezrequest( "You MUST pick a screen mode before running" || NL || "Trek-the.Guide for the first time", " OK ", , )
  24. /*  call sm()*/
  25. end
  26. call rtfreefilebuffer()
  27. address command 'copy envarc:trekguide.prefs env:'
  28.