; This script builds a Workbench disk set, getting everything from SoftServe

set Version  "40"
set DiskName "3.1"

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

Echo "*nPreparing to build Workbench " NOLINE
Echo "`version SoftServe:Public/WorkbenchDisks/Regular/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/Regular/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/Regular/Extras$DiskName RAD: ALL QUIET CLONE
Wait 2
DiskCopy <NIL: >NIL: RAD: to DF0:

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

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

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

Echo "*nAll Done!"

unset Version
unset DiskName
