home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / os2 / gbdrv / csource / gbootdrv / tgboot.cmd < prev   
Encoding:
Text File  |  1993-03-15  |  351 b   |  13 lines
  1. /* REXX */
  2. if 0 < RxFuncQuery('SysLoadFuncs') THEN DO;
  3.    Call rxfuncadd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  4.    Call SysLoadFuncs;
  5. END;
  6. RC=RXFUNCADD('GetBootDrive','GBOOTDRV','GetBootDrive');
  7. say 'RxFuncAdd RC='RC;
  8. BootDrive=GetBootDrive();
  9. say 'GetBootDrive RC='RC;
  10. say 'BootDrive='BootDrive;
  11. Call RxFuncDrop 'GetBootDrive';
  12. exit;
  13.