8 lines
371 B
Plaintext
8 lines
371 B
Plaintext
|
|
<OBJECT TH-WINDOW-BENCH (LOC RM-COMPRESSION-CHAMBER) (DESC "bench") (FLAGS
|
|
FL-CONTAINER FL-OPENABLE FL-SEARCH) (SYNONYM BENCH SEAT) (ADJECTIVE WINDOW) (
|
|
ACTION RT-TH-WINDOW-BENCH)>
|
|
<DEFINE-ROUTINE RT-TH-WINDOW-BENCH>
|
|
<OBJECT TH-RED-LEVER (LOC TH-WINDOW-BENCH) (DESC "lever") (SYNONYM LEVER) (
|
|
ADJECTIVE RED) (ACTION RT-TH-RED-LEVER)>
|
|
<DEFINE-ROUTINE RT-TH-RED-LEVER> |