home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / DIVERSEN / DRIVERS / UMC-C418 / UMC.CMD < prev   
OS/2 REXX Batch file  |  1995-03-31  |  1KB  |  50 lines
  1. /***********************************************************************
  2.  UMC.CMD                                                Datum: 31-03-95
  3.  REXX exec voor het uitvoeren van UMC-C418
  4.  
  5.  Author: Rein de Jong
  6.  VERSION 1.0
  7.       MODIFICATION 01 - ....................
  8.           .......................................................
  9. ************************************************************************/
  10. /* Initialize */
  11.  
  12. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  13. call SysLoadFuncs
  14.  
  15. PARSE ARG drv rest
  16. IF drv = '' Then drv='A:'
  17.  
  18. txt = 'Plaats een floppy voor aanmaak van de driverdisk in' drv '.' , 
  19.       'Indien' drv 'niet de 1.44 drive is,' ,
  20.       'breek dan af en geef DOE drive: in.'
  21.  
  22. Antw = RxMessageBox(txt,'UMC-C418','YESNO','QUESTION')
  23. IF Antw = 7 THEN Exit 9
  24.    
  25. act = 6
  26. DO while act = 6
  27.    Act = SysDriveInfo(drv) 
  28.    PARSE VAR Act Adrv rest
  29.  
  30.    IF Adrv = drv THEN 
  31.       DO
  32.          'UMC-C418' drv
  33.          exit 0
  34.       END 
  35.    ELSE act = RxMessageBox('Er is geen flopppy in drive' drv 'geplaatst, Alsnog?',,
  36.                            'UMC-C418','YESNO','QUERY')
  37. END
  38. exit 9 
  39.  
  40.  
  41. /*****************************************************/
  42. /* PULL QUEUE ROUTINE                                */
  43. /*****************************************************/
  44. PULLQUEUE:
  45.    Reg.0 = queued();
  46.    DO I = 1 TO Reg.0
  47.         PARSE PULL Reg.I
  48.    END
  49. RETURN
  50.