MR2/ICE 2.41 #10183 Warp4/FP15/14.093c_W4 
www.scoug.com irc.webbnet.info irc.fyrelizard.org #scoug (Wed 7pm PST) 
---------------------------------------------------------------------- 
------- cut here ------- 
/* turn on the Boot Recovery Menu 
 * 
 * Description 
 *   This program sets the computer to display the Boot Recovery Menu 
 *   on system startup. 
 * 
 * Copyright (C) 2003 Blonde Guy 
 * All Rights Reserved 
 */ 
/* load the REXX util functions for SysBootDrive */ 
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' 
Call SysLoadFuncs 
arcDir = SysBootDrive() || ':\os2\boot' 
originalDir = Directory() 
arcFile = 'ARCHBASE.$$$' 
call Directory arcDir 
'@attrib -r' arcFile 
rc = stream(arcFile, 'c', 'open') 
rc = charout(arcFile, d2c(1), 218) 
if rc \= 0 then do 
   say "Operation failed: charout returned" rc "but 0 was expected" 
end 
rc = stream(arcFile, 'c', 'close') 
'@attrib +r' arcFile 
say "The system has been set to Display the Boot Recovery Menu at System 
startup." 
return 
---------- cut here ---------- 
===================================================== 
To unsubscribe from this list, send an email message 
to "steward@scoug.com". In the body of the message, 
put the command "unsubscribe scoug-help". 
For problems, contact the list owner at 
"rollin@scoug.com". 
===================================================== 
<< Previous Message << 
 >> Next Message >>
Return to [ 22 | 
March | 
2004 ]
The Southern California OS/2 User Group
P.O. Box 26904
Santa Ana, CA  92799-6904, USA
Copyright 2001 the Southern California OS/2 User Group.  ALL RIGHTS 
RESERVED. 
SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group.
OS/2, Workplace Shell, and IBM are registered trademarks of International 
Business Machines Corporation.
All other trademarks remain the property of their respective owners.