home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / backgnd2.zip / loadback.cmd < prev    next >
OS/2 REXX Batch file  |  1994-11-23  |  376b  |  20 lines
  1. @echo off
  2. set mask=%1\*.bmp.gz
  3. set count=%@random[1,%@files[%mask]]
  4. set name=%@findfirst[%mask]
  5. :loop
  6. if %count == 1 goto load
  7. set name=%@findnext[%mask]
  8. set count=%@dec[%count]
  9. goto loop
  10. :load
  11. Echo Loading Bitmap %name ...
  12. gzip -d < %name > bitmap.bmp
  13. if errorlevel 1 goto end
  14. backgrnd %@full[bitmap.bmp]
  15. :end
  16. del bitmap.bmp
  17. set mask=
  18. set name=
  19. set count=
  20.