home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / amg18.dms / amg18.adf / RexxSerial / loadit.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-02  |  592b  |  26 lines
  1. /* */
  2.  
  3. /* open the Rexx support library */
  4.  
  5. if ~show('L',"rexxsupport.library") then do
  6.    if addlib('rexxsupport.library',0,-30,0) then
  7.       say 'added rexxsupport.library'
  8.    else do;
  9.       say 'support library not available'
  10.       exit 10
  11.       end
  12.    end
  13.  
  14. if ~show( 'L', "rexxserdev.library" ) then do
  15.    if addlib( 'rexxserdev.library', 0, -30, 0 ) then
  16.       say 'added rexxserdev.library'
  17.    else do;
  18.       say 'support library not available'
  19.       exit 10
  20.       end
  21.    end
  22.  
  23. libaddr = serlibbase()
  24. say 'serial library base =' libaddr
  25. /***************** ShoList.rexx ****************/
  26.