home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 26 / amigaformatcd26.iso / -readerstuff- / nils-erik_skilnand / addrad_removerad / addrad < prev    next >
AmigaDOS Script File  |  1998-03-06  |  2KB  |  67 lines
  1. .key Number
  2. .bra {
  3. .ket }
  4. SetENV CO 1
  5.  
  6. If "{Number}" EQ ""
  7.     Lab Start
  8.     SetEnv count `eval $count+1`
  9.     SetENV Chip `Avail Chip`
  10.     SetENV Fast `Avail Fast`
  11.     SetENV Mem `Eval $Chip+$Fast`
  12.     SetENV Minne "1800000"
  13.  
  14.     If $Mem NOT GE $Minne VAL
  15.         Echo "Out of memory..."
  16.         Wait 1
  17.         SetENV count `Eval $count-1`
  18.         UnSet argu
  19.         UnSetENV Co
  20.         Quit
  21.     Else
  22.     EndIf
  23.  
  24.     Assign >NIL: EXISTS Rad$count:
  25.     If Warn
  26.         Echo >ram:ja "Rad$count:                         "
  27.         Echo >>ram:ja "Device          = ramdrive.device"
  28.         Echo >>ram:ja "Unit            = $count         "
  29.         Echo >>ram:ja "Surfaces        = 2              "
  30.         Echo >>ram:ja "SectorsPerTrack = 11             "
  31.         Echo >>ram:ja "SectorSize      = 512            "
  32.         Echo >>ram:ja "Reserved        = 2              "
  33.         Echo >>ram:ja "Buffers         = 5              "
  34.         Echo >>ram:ja "BufMemType      = 1              "
  35.         Echo >>ram:ja "BootPri         = -1             "
  36.         Echo >>ram:ja "LowCyl       = 0                "
  37.         Echo >>ram:ja "HighCyl      = 79               "
  38.         Echo >>ram:ja "#                                 "
  39.  
  40.         Mount Rad$count: From ram:ja
  41.         Cd Rad$count:
  42.         Delete >NIL: Ram:ja
  43.  
  44.         If $argu EQ 1
  45.             Skip hei
  46.         Else
  47.             Quit
  48.         EndIf
  49.     Else
  50.         Skip start Back
  51.     EndIf
  52. Else
  53.     Set argu 1
  54.     Lab hei
  55.     If VAL $Co GT {Number} VAL
  56.         UnSet argu
  57.         UnSetENV Co
  58.         Quit
  59.     Else
  60.         Setenv Co `Eval $Co+1`
  61.         Echo "*ec*e[1A Rad disks left to create: `Eval ({Number}+1)-$Co`"
  62.         Skip start Back
  63.     EndIf
  64. EndIf
  65.  
  66. ;$VER: MountScript Version 1.1 By Smurf
  67.