; Define structures
expect -p "INITIALIZE THE HOME BLOCKS ON THIS UNIT?\r\n" send -t after=2000k "yes\r"; continue
expect -p " 1)ON-LINE, 2)OFF-LINE, OR 3)DOWN? " send -t after=2000k "3\r"; continue
expect -p "DO YOU WANT IT TO BE 1)ON-LINE, OR 2)DOWN?" send -t after=2000k "2\r"; continue
expect -p "LIST OF BAD REGIONS?\r\n" send -t after=500k "no\r" ; continue
expect -p "INITIALIZE THE BAT BLOCKS ON THIS UNIT?\r\n" send -t after=2000k "yes\r"; continue
expect -p "NOT NORMALLY DONE, ARE YOU SURE?\r\n" send -t after=500k "yes\r" ; continue
expect "STR NAME FOR A LIST" send -t after=1000k "\r"; continue
expect "PHYSICAL UNIT NAME TO LIST" send -t after=1500k "\r"; continue
expect "CHANGE ANY DISK PARAMETERS" send -t after=1500k "yes\r"; continue
expect "STR NAME TO BE DEFINED" send -t after=1500k "dskb\r"; continue
if "%DISK%" == "dp" 'expect "NAMES OF PHYSICAL UNITS IN STR" send -t after=900k delay=990k "dpa0\rdpa1\rdpa2\rdpa3\r\r" ; continue'
if "%DISK%" == "rp" 'expect "NAMES OF PHYSICAL UNITS IN STR" send -t after=900k delay=990k "rpa0\rrpa1\r\r" ; continue'
expect "STR NAME TO CHANGE" ; send -t after=2000k "dskb\r" ; continue
expect "STR NAME TO CHANGE" ; send -t after=2000k "\r"; continue
expect "# OF CONSECUTIVE BLOCKS TRIED FOR ON OUTPUT =" send -t after=4000k "\r"; continue
expect "SUM OF BLOCKS GUARANTEED TO USERS =" send -t after=1500k "\r"; continue
expect "# BLOCKS ALLOWED FOR OVERDRAW PER USER =" send -t after=1800k "\r"; continue
expect "IS THIS A PRIVATE STR? " send -t after=1500k "no\r"; continue
expect "K FOR CRASH.EXE = " send -t after=3000k "128\r"; continue
expect "BLOCKS PER CLUSTER = " send -t after=2000k "\r"; continue
expect "BITS PER CLUSTER COUNT = " send -t after=2000k "\r"; continue
expect "STR NAME TO BE DEFINED" send -t after=800k "\r" ; continue
expect "PHYSICAL UNIT NAME TO CHANGE" send -t after=1000k "all\r"; continue
expect "ZERO UNIT ID - " send -t after=1000k "dkb001\r"; continue
expect "ZERO UNIT ID - " send -t after=1000k "dkb002\r"; continue
expect "ZERO UNIT ID - " send -t after=1000k "dkb003\r"; continue
expect "ZERO UNIT ID - " send -t after=1000k "dkb004\r"; continue
expect -p "\n1ST. LOGICAL BLOCK FOR SWAPPING" send -t after=2000k "\r"; continue
expect -p "# OF SAT BLOCKS ON UNIT = " send -t after=6000k "15\r"; continue
if "%DISK%" == "dp" 'expect -p "K FOR SWAPPING ON UNIT = " send -t after=6000k "128\r"; continue'
if "%DISK%" == "rp" 'expect -p "K FOR SWAPPING ON UNIT = " send -t after=6000k "512\r"; continue'
expect -p "# SAT BLOCKS IN CORE = " send -t after=6000k "5\r"; continue
expect "CHANGE THE ACTIVE SWAPPING LIST" send -t after=800k "yes\r"; continue
if "%DISK%" == "dp" 'expect "CLASS 0" send -t after=800k delay=990k "dpa0\rdpa1\rdpa2\rdpa3\r\r" ; continue'
if "%DISK%" == "rp" 'expect "CLASS 0" send -t after=800k delay=990k "rpa0\rrpa1\r\r" ; continue'
expect "CLASS 1" send -t after=990k  "\r" ; continue
expect 'CHANGE THE "SYS" SEARCH LIST' ; send -t after=800k "yes\r"; continue
expect 'NAMES FOR "SYS" SEARCH LIST' send -t after=1000k delay=800k "dskb\r\r" ; continue
expect "STR NAME FOR A LIST" send -t after=600k "\r"; continue
expect "PHYSICAL UNIT NAME TO LIST" send -t after=1500k "\r"; continue
expect "CHANGE ANY DISK PARAMETERS" send -t after=1500k "\r"; continue
expect "HOME BLOCKS TO BE WRITTEN ON WHICH" send -t after=2000k "all\r"; continue
expect "STR NAME FOR A LIST" send -t after=1500k "\r"; continue
expect "PHYSICAL UNIT NAME TO LIST" send -t after=1500k "\r"; continue
expect "CHANGE ANY DISK PARAMETERS" send -t after=1500k "\r"; continue
expect "TYPE STR NAME TO BE REFRESHED" send -t after=1500k "dskb\r" ; continue
expect "TYPE STR NAME TO BE REFRESHED" send -t after=1500k "\r" ; continue
