home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / directory / megad / rexx / dlprint.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  327b  |  19 lines
  1. /* Automate printing labels for each disk inserted into drive DF0: */
  2.  
  3. address REXX
  4.  
  5. options results
  6.  
  7. address MEGAD
  8. dbug
  9.  
  10. do forever
  11.     diskin
  12.     if result == "ABORT" then leave
  13.     "mark df0:"
  14.     selectall
  15.     NextItem Name /* will test for at lease one item on the disk to print label for */
  16.     if result ~= "" then label
  17.     freeVolumes
  18. end
  19.