; This script builds a high-density A4000T Workbench disk set, getting
; everything from SoftServe

set Version  "40"
set DiskName "3.1"

Echo "*nThis script requires that RAD: be mounted and be HD floppy-sized (1760K)"
Ask "Press RETURN when ready"

Echo "*nPreparing to build Workbench " NOLINE
Echo "`version SoftServe:Public/WorkbenchDisks/A4000T/Workbench$DiskName/Libs/version.library FILE`" first 17

Ask "*nInsert Workbench$DiskName disk in DF0:, press RETURN to continue"
Echo "Preparing Workbench disk..."
Format <NIL: >NIL: device RAD: name "Workbench$DiskName" NOICONS FFS DIRCACHE
Copy SoftServe:Public/WorkbenchDisks/A4000T/Workbench$DiskName RAD: ALL QUIET CLONE
Wait 2
DiskCopy >NIL: <NIL: RAD: to DF0:
Install DF0:

Ask "*nInsert Extras$DiskName disk in DF0:, press RETURN to continue"
Echo "Preparing Extras disk..."
Format <NIL: >NIL: device RAD: name "Extras$DiskName" NOICONS FFS DIRCACHE
Copy SoftServe:Public/WorkbenchDisks/A4000T/Extras$DiskName RAD: ALL QUIET CLONE
Wait 2
DiskCopy <NIL: >NIL: RAD: to DF0:

Ask "*nInsert Install$DiskName disk in DF0:, press RETURN to continue"
Echo "Preparing Install disk..."
Format <NIL: >NIL: device RAD: name "Install$DiskName" NOICONS FFS
Copy SoftServe:Public/WorkbenchDisks/A4000T/Install$DiskName RAD: ALL QUIET CLONE
Wait 2
DiskCopy >NIL: <NIL: RAD: to DF0:
Install DF0:

Echo "*nAll Done!"

unset Version
unset DiskName
