log_progress "ENTERING BUILD SCRIPT: SAIL"

# stktrn
cwd "sail"
respond "*" ":fail stktrn\r"

# jobdat
respond "*" "jobdat\r"

# fail
respond "*" "fail\r"
respond "*" "\032:kill\r"
respond "*" ":delete fail bin\r"
respond "*" ":stink fail\r"
respond "\n" "\177"
respond "??" "\033\0331l decsys;decbot bin\r"
respond "*" ".jbsa/strt\r"
respond ":" "56/1000\r"
respond "\n" "\033y sail; fail bin\r"
respond "*" ":kill\r"

# Make links needed for SUDS.
respond "*" ":link wl; switch 999999, draw; switch >\r"
respond "*" ":link wl; first 999999, draw; first >\r"
respond "*" ":link wl; sigsub 999999, draw; sigsub >\r"
respond "*" ":link draw; board0 999999, wl; board0 >\r"
respond "*" ":link draw; board1 999999, wl; board1 >\r"
respond "*" ":link draw; board2 999999, wl; board2 >\r"
respond "*" ":link draw; decloc 999999, wl; decloc >\r"
respond "*" ":link draw; lg627 999999, wl; lg627 >\r"
respond "*" ":link draw; lg684 999999, wl; lg684 >\r"
respond "*" ":link draw; mpg21 999999, wl; mpg21 >\r"
respond "*" ":link draw; mpg216 999999, wl; mpg216 >\r"
respond "*" ":link draw; ncp13 999999, wl; ncp13 >\r"
respond "*" ":link draw; ug61c 999999, wl; ug61c >\r"
respond "*" ":link sys1; ts d, datdrw; d bin\r"
respond "*" ":link sys1; ts wl, datdrw; wl bin\r"
respond "*" ":link sys1; ts pc, datdrw; pc bin\r"
respond "*" ":link sys1; ts scnv, datdrw; scnv bin\r"

# The drawing program needs WL; BOARDS REL
cwd "wl"
respond "*" ":fail boards\r"
respond ";^C" ";\003"

# The PC program needs WL; PCBOARDS REL
respond "*" "PCBOARDS_BOARDS\r"
respond ";^C" "PC\r"
respond "SELECTED" ";\003"
respond "*" "\032:kill\r"

# SUDS drawing program
cwd "draw"
respond "*" ":fail d\r"
respond ";^C" ";\003"
respond "*" "\032:kill\r"
respond "*" ":stink d\r"
respond "STINK." "\177"
respond "??" "\033\0331L decsys; decbot bin\r"
respond "*" ".jbsa/strt\r"
respond ":" "56/107\r"
respond "\n" ":pdump datdrw; d bin\r"
respond "*" ":kill\r"

# SUDS ... PC
respond "*" ":fail pc_d\r"
respond ";^C" "PC\r"
respond "SELECTED" ";\003"
respond "*" "\032:kill\r"
respond "*" ":stink pc\r"
respond "STINK." "\177"
respond "??" "\033\0331L decsys; decbot bin\r"
respond "*" ".jbsa/strt\r"
respond ":" "56/107\r"
respond "\n" ":pdump datdrw; pc bin\r"
respond "*" ":kill\r"

# SUDS layout program.
respond "*" ":fail layd_d\r"
respond ";^C" "ONE\r"
respond "SELECTED" "D\r"
respond "\n" ";\003"
respond "*" "laypc_d\r"
respond ";^C" "ONE\r"
respond "SELECTED" "PC\r"
respond "SELECTED" ";\003"
respond "*" "\032:kill\r"
respond "*" ":stink lay\r"
respond "STINK." "\177"
respond "??" "\033\0331L decsys; decbot bin\r"
respond "*" ".jbsa/strt\r"
respond ":" "56/107\r"
respond "\n" ":pdump datdrw; lay bin\r"
respond "*" ":kill\r"

# SUDS wirelist program.
cwd "wl"
respond "*" ":fail wl\r"
respond "*" "wboard\r"
respond "*" "\032:kill\r"
respond "*" ":stink wl\r"
respond "STINK." "\177"
respond "??" "\033\0331L decsys; decbot bin\r"
respond "*" ".jbsa/strt\r"
respond ":" "56/107\r"
respond "\n" ":pdump datdrw; nodips bin\r"
respond "*" ":go\r"
expect {
    "PDP-6 not available" {
        respond "*" "C"
        # Display not available
        respond "*" "C"
        expect "TOP MODE"
    }
    "TOP MODE" {}
}
respond "*" "XRESIDENT\r"
respond "GO ON." "Y\r"
respond "WL BIN" "\r"
respond "*" ":kill\r"

respond "*" ":midas datdrw;_draw; scnv\r"
expect ":KILL"