/* LAN-Treiber auf \ibmcom\macs kopieren  */

/* activate REXX Utils                                                     */

  call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  call SysLoadFuncs

 '@echo off'

/* determine source drive for installation (CD or LAN drive)               */

   drivelist=SysDriveMap(,'USED')   /* all local and LAN drives */
   do forever
     parse var drivelist cddrv ' ' drivelist
     cddrv=strip(cddrv)
     filter = stream(cddrv'\cmd\inst_emx.cmd','c','query exists')
     if filter <> '' then  leave
   end /* do forever */
   say 'Quell-Laufwerk ist' cddrv

/* determine boot drive                                                    */
  bootdrv = SysBootDrive()
  say 'Boot-Laufwerk ist ' bootdrv '        suche EMX ...'
  say ''

/* copy files */
  say 'Treiber werden auf ' bootdrv||'\ibmcom\macs kopiert'
  'for %%d in (*.nif) do copy ' bootdrv||'\ibmcom\macs\%%d.nif ' bootdrv||'\ibmcom\macs\*.nif_old'
  'for %%d in (*.os2) do copy ' bootdrv||'\ibmcom\macs\%%d.os2 ' bootdrv||'\ibmcom\macs\*.os2_old'
  'xcopy \lan_adapter\*.* ' bootdrv||'\ibmcom\macs\'
  'cd \'