#!/usr/bin/perl -w
#
sub security;
sub sensorium;
sub emotion;
sub think;
sub volition;
sub motorium;
while (1) {
security();
sensorium();
emotion();
think();
volition();
motorium();
}
sub security {
# http://mentifex.virtualentity.com/acm.html#security
} def;
sub sensorium {
# http://mentifex.virtualentity.com/acm.html#sensorium
print "Press ENTER or ESCAPE key: ";
$_ = <STDIN>;
exit if (/^\027/);
} def;
sub emotion {
# http://mentifex.virtualentity.com/acm.html#emotion
} def;
sub think {
# http://mentifex.virtualentity.com/acm.html#think
} def;
sub volition {
# http://mentifex.virtualentity.com/acm.html#volition
} def;
sub motorium {
# http://mentifex.virtualentity.com/acm.html#motorium
} def;
#---
