home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / directory / rushdemo / scripts / format_disk < prev    next >
AmigaDOS Script File  |  1995-02-27  |  981b  |  52 lines
  1. .key pubscreen/a
  2. .bra {
  3. .ket }
  4. ; $VER: format_disk 37.1 (15.4.93)
  5. ;
  6. ; Asks user for a disk to format.  This uses the AmigaDOS
  7. ; requestchoice under 3.0 and the requestchoice program
  8. ; included with Rush under AmigaDOS 2.x.
  9. ;
  10.  
  11. requestchoice >env:formatdisk pubscreen {pubscreen} "Disk Format" "Select disk to Format" "df0:|pc0:|ff0:|ff1:|ff2:|ff3:|Cancel"
  12.  
  13. if val $formatdisk EQ 1
  14.   set disk "df0:"
  15. endif
  16.  
  17. if val $formatdisk EQ 2
  18.   set disk "pc0:"
  19. endif
  20.  
  21. if val $formatdisk EQ 3
  22.   set disk "ff0:"
  23. endif
  24.  
  25. if val $formatdisk EQ 4
  26.   set disk "ff1:"
  27. endif
  28.  
  29. if val $formatdisk EQ 5
  30.   set disk "ff2:"
  31. endif
  32.  
  33. if val $formatdisk EQ 6
  34.   set disk "ff3:"
  35. endif
  36.  
  37. if val $formatdisk EQ 0
  38.   quit
  39. endif
  40.  
  41. if exists env:formatdisk
  42.   delete quiet "env:formatdisk"
  43. endif
  44.  
  45. if val $formatdisk EQ 2 
  46.   set diskoptions "IBM noicons"
  47. else
  48.   set diskoptions "AmigaDOS ffs noicons"
  49. endif
  50.  
  51. run >nil: <nil: format drive $disk name $diskoptions <z:rush/scripts/return >con:30/50/335/70/Format/screen{pubscreen}
  52.