; script written to start DAD_Demo program on DAD_Demo_Disk:
; February 26, 1994 version 1.3

if not exists DAD_Demo_Disk:
	echo "*N 1m The Design a Draft Demonstration Program  "
	echo "*N 1m Must be on a disk named DAD_Demo_Disk: "
	echo "*N  Please place files and drawers on a disk named"
	echo "*n  DAD_Demo_Disk: and try again.   *N"
	wait 15
	quit
endif

ASSIGN DAD_DRAWER: DAD_Demo_Disk:
ASSIGN DEST: DAD_Demo_Disk:
STACK 20000

failat 30
if not exists ram:THREADING_UNITS
	makedir ram:THREADING_UNITS
	makedir ram:TREADLING_UNITS
	assign THREADING_UNITS: ram:THREADING_UNITS
	assign TREADLING_UNITS: ram:TREADLING_UNITS
endif

ECHO "*N 1m Design a Draft Demonstration Program loading ... 0m"
cd DAD_Demo_Disk:
RUN DAD_Demo_Disk:DAD_Demo
wait 15