Name: Anonymous 2016-06-20 13:12
it's true
if ($reversed =~ /[Q]/) { # 2016jun21: enlarging quit-sequence
my $fh = new IO::File; # 2016jun21: Perl_Black_Book p. 561
print "Opening diagnostic minddata.txt file...\n"; # 2016jun21
$fh->open(">minddata.txt") or die "Can't open: $!\n"; #2016jun21
$tai = $vault; # 2016jun21: skip the MindBoot() sequence.
do { # 2016jun21: make a loop
print "t=$tai. psi=$psy[$tai], "; # 2016jun21: show @psy concept array
print " aud= $ear[$tai], \n"; # 2016jun21: show @ear auditory array
$fh->printf ("t=$tai. psi=$psy[$tai], aud= $ear[$tai], \n"); # 2016jun21: PBB p. 535
$tai++; # 2016jun21: increment $tai up until current time $t.
} while ($tai < $t); # 2016jun21: show @psi and @ear array at recent time-points
print "Closing minddata.txt file...\n"; # 2016jun21
$fh->close; # 2016jun21: Perl_Black_Book p. 561
die "TERMINATE: Q means quit. \n"; # 2016jun21
} # 2016jun21: end of quit-sequence