REM CORE.AGT

command examine core
nounpresent
nounisnumber [core 2]
islocated [chip static 1] [circuit card 2]
flagoff [chip zapped 1]
blankline
printmessage "The status display shows that this core is functioning properly."
blankline
nounisopen
printmessage [open core]
end_command

command examine core
nounpresent
nounisnumber [core 3]
islocated [chip static 2] [circuit card 3]
flagoff [chip zapped 2]
blankline
printmessage "The status display shows that this core is functioning properly."
blankline
nounisopen
printmessage [open core]
end_command

command examine core
nounpresent
nounisnumber [core 1]
islocated [chip static 3] [circuit card 1]
flagoff [chip zapped 3]
blankline
printmessage "The status display shows that this core is functioning properly."
blankline
nounisopen
printmessage [open core]
end_command

command examine core
nounpresent
nounisnumber [core 2]
not islocated [chip static 1] [circuit card 2]
or
flagon [chip zapped 1]
blankline
printmessage "The status display shows that this core is malfunctioning."
blankline
nounisopen
printmessage [open core]
donewithturn
end_command

command examine core
nounpresent
nounisnumber [core 3]
not islocated [chip static 2] [circuit card 3]
or
flagon [chip zapped 2]
blankline
printmessage "The status display shows that this core is malfunctioning."
blankline
nounisopen
printmessage [open core]
donewithturn
end_command

command examine core
nounpresent
nounisnumber [core 1]
not islocated [chip static 3] [circuit card 1]
or
flagon [chip zapped 3]
blankline
printmessage "The status display shows that this core is malfunctioning."
blankline
nounisopen
printmessage [open core]
donewithturn
end_command

message [open core]
Within the panel you see rows of tightly spaced computer cards.  The
wiring is so dense that it is very hard to make out individual components
clearly.
end_message