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