I made some modifications for your computer terminal. The slot bits that I added will assist with my outside card slot thing.
##say:
runsub checkwho;
##checkwho:
if $init_obj's name like = (omenofdoom) then checkwhat else checkaccess;
##checkaccess:
find $loc, level 4 security clearance keycard;
if $found_id's slot3 = "level 4" then checkfinal else end;
##checkfinal:
if $init_obj = $found_id's host then checkwhat else end;
##checkwhat:
if $init_cmd like "activate locking systems" then check1 else checkagain;
##checkagain:
if $init_cmd like "disengage locking mechanisms" then check2 else end;
##check1:
find $loc, thick metal door;
$doory = $found_id;
if $doory's slot3 = "locked" then alreadylocked else doit;
##doit:
$linkedobj = $doory's link;
set $doory's link to $target;
set $doory's extra = "which is locked";
set $doory's slot3 = "locked";
relook $loc;
print "[$doory] locks itself securely!";
runsub locktight;
##locktight:
set $linkedobj's link to $linkedobj;
set $linkedobj's extra = "which is locked";
set $linkedobj's slot3 = "locked";
$loc = $linkedobj's loc;
say 'locks',"Someone has locked [$linkedobj]";
relook $loc;
print "[$found_id's link] locks itself securely!";
##check2:
find $loc, thick metal door;
$doory = $found_id;
if $doory's slot3 = "" then notlocked else undoit;
##undoit:
set $doory's link to 62411;
$linkeddoor = 62411;
set $doory's extra = "";
set $doory's slot3 = "";
print "The heavy locks on [$doory] disengage!";
relook $loc;
runsub unlockall;
##unlockall:
set $linkeddoor's link to $doory;
set $linkeddoor's extra = "";
set $linkeddoor's slot3 = "";
$loc = $found_id's loc;
say 'locks',"Someone has unlocked [$linkeddoor]";
relook $loc;
print "The heavy locks on [$linkeddoor] disengage!";
##alreadylocked:
print "The door is already locked";
##notlocked:
print "The door is already unlocked";