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.