home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / asimware / techsupport / files / asimcdfs_arexxsamples.lha / ARexx_Samples / DiscChanger / partition_type.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-23  |  873b  |  51 lines
  1. /*  This example will demonstrate the use of the partition_type command
  2.     in DiscChanger.
  3.  
  4.     (C)1993-1995 Asimware Innovations Inc.                             */
  5.  
  6.  
  7. options results
  8. address "DiscChanger_ARexx"
  9.  
  10. max_partitions
  11. if rc ~= 0 then do
  12.     say 'Failed with 'rc'.'
  13.     exit
  14. end
  15.  
  16.  
  17. max_pars = result
  18. say 'CD-ROM has 'max_pars' partitions.'
  19. say
  20.  
  21. do i = 1 to max_pars 
  22.     partition_type i
  23.  
  24.     if rc ~= 0 then do
  25.         say 'Failed with 'rc'.'
  26.         exit
  27.         end
  28.  
  29.     if result = 1
  30.         then parstr = "High Sierra"
  31.     else if result = 2
  32.         then parstr = "ISO 9660"
  33.     else if result = 3
  34.         then parstr = "Macintosh HFS"
  35.     else if result = 4
  36.         then parstr = "PhotoCD"
  37.     else if result = 5
  38.         then parstr = "Corel ProPhoto"
  39.     else if result = 6
  40.         then parstr = "CD-Digital Audio"
  41.     else if result = 7
  42.         then parstr = "Raw Sector"
  43.     else 
  44.         parstr = "Unknown"
  45.     
  46.     say 'Partition 'i' is 'parstr'.'
  47.     end
  48.     
  49.  
  50. exit
  51.