mirror of
https://github.com/PDP-10/its.git
synced 2026-02-12 11:07:03 +00:00
28 lines
677 B
Tcl
28 lines
677 B
Tcl
log_progress "ENTERING BUILD SCRIPT: ZORK"
|
|
|
|
# Old Zork startup
|
|
respond "*" ":midas sys2; ts ozork_taa; zork\r"
|
|
expect ":KILL"
|
|
|
|
# New Zork startup
|
|
respond "*" ":midas sys; ts rbye_cfs; zork\r"
|
|
expect ":KILL"
|
|
respond "*" ":link sys1;ts zork, sys; ts rbye\r"
|
|
|
|
mkdir "cfs"
|
|
|
|
respond "*" ":xxfile lcf;comp log_lcf;comp xxfile\r"
|
|
expect -timeout 6000 "Job XXFILE interrupted: .VALUE;"
|
|
type "\033p"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":xxfile lcf;zork log_lcf;zork xxfile\r"
|
|
expect "Job XXFILE interrupted: .VALUE;"
|
|
type "\033p"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":link cfs;madadv help,madman;\r"
|
|
respond "*" ":link cfs;madadv info,madman;\r"
|
|
respond "*" ":link cfs;madadv doc,cfs;madadv help\r"
|
|
|