.key DRIVE/A,SYSTEM/S,QUICK/S
.bra {
.ket }

If {DRIVE} EQ D:
	Skip NOGO
EndIf
If {DRIVE} EQ Dh0:
	Skip NOGO
EndIf
If {DRIVE} EQ SYS:
	Skip NOGO
EndIf
If {DRIVE} EQ E:
	Skip NOGO
EndIf
If {DRIVE} EQ Dh1:
	Skip NOGO
EndIf

DiskChange {DRIVE}
If {SYSTEM} EQ SYSTEM
   If {QUICK} EQ QUICK
      System:Format drive {DRIVE} NAME Unnamed FFS INTL DIRCACHE NOICONS QUICK
   Else
      System:Format drive {DRIVE} name Unnamed FFS INTL DIRCACHE NOICONS
   EndIf
   Makedir {DRIVE}C {DRIVE}L {DRIVE}LIBS {DRIVE}S
   Copy C:HighDensityPatch {DRIVE}C quiet
   Copy L:Aux-Handler {DRIVE}L quiet
   Copy L:Port-Handler {DRIVE}L quiet
   Copy L:Queue-Handler {DRIVE}L quiet
   Copy Libs:Arp.library {DRIVE}Libs quiet
   Copy Libs:Explode.library {DRIVE}Libs quiet
   Copy Libs:IFFParse.library {DRIVE}Libs quiet
   Copy Libs:Powerpacker.library {DRIVE}Libs quiet
   Copy Libs:Req.library {DRIVE}Libs quiet
   Copy Libs:ReqTools.library {DRIVE}Libs quiet
Else
   If {QUICK} EQ QUICK
      System:Format drive {DRIVE} name Empty FFS INTL DIRCACHE NOICONS QUICK
   Else
      System:Format drive {DRIVE} name Empty FFS INTL DIRCACHE NOICONS
   EndIf
EndIf

Lab NOGO
