home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 27 Fixes20 / 27-Fixes20.zip / iaos2f.zip / SETDISP.CMD < prev   
OS/2 REXX Batch file  |  1992-08-12  |  2KB  |  25 lines
  1. /* SETDISP.CMD - program to setup the ini for an old 16-bit display driver */   
  2.                                                                                 
  3. /* Initialize some variables. */                                                
  4. key.1  = 'CURRENTDRIVER'                                                        
  5. key.2  = 'DEFAULTDRIVER'                                                        
  6. key.3  = 'DISPLAY'                                                              
  7. keydata.1  = 'DISPLAY'||'00'x                                                   
  8. keydata.2  = 'DISPLAY'||'00'x                                                   
  9. keydata.3  = 'DISPLAY'||'00'x                                                   
  10. max = 3                                                                         
  11.                                                                                 
  12. /* First ensure that the REXXUTIL functions are registered. */                  
  13. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'                         
  14. Call SysLoadFuncs                                                               
  15.                                                                                 
  16. /* Update INI */                                                                
  17. error = 4                                                                       
  18. Do i=1 to max                                                                   
  19.    If 'ERROR:' = SysIni(,'PM_DISPLAYDRIVERS',key.i,keydata.i) Then Do           
  20.       Say 'Error setting key "'key.i'".'                                        
  21.       Exit error                                                                
  22.    End  /* Do */                                                                
  23. End /* do */                                                                    
  24.                                                                                 
  25.