home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / ex_proga.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-16  |  462b  |  20 lines
  1. /*
  2.  *
  3.  */
  4.  
  5. IF 'ex_funA.rexx'("ex.") THEN
  6.     DO n = 1 TO 2
  7.         SAY
  8.         SAY "VolumeName    " ex.n.VolumeName
  9.         SAY "DateStamp     " ex.n.DateStamp
  10.         SAY "NumSoftErrors " ex.n.NumSoftErrors
  11.         SAY "UnitNumber    " ex.n.UnitNumber
  12.         SAY "DiskState     " ex.n.DiskState
  13.         SAY "NumBlocks     " ex.n.NumBlocks
  14.         SAY "NumBlocksUsed " ex.n.NumBlocksUsed
  15.         SAY "BytesPerBlock " ex.n.BytesPerBlock
  16.         SAY "DiskType      " ex.n.DiskType
  17.         SAY "InUse         " ex.n.InUse
  18.         SAY
  19.     END
  20.