Let's Play Portal Prelude [Blind] Part 22 - She's alive!
program:GLaDOS;
var subject:array[1..234]of string;
var morality,curiosity,logic,anger:core;
var p:integer;
var cake:lie;
begin
boot(morality); //failure
boot(curiosity); //triumph
boot(logic); //triumph
boot(anger); //triumph
boot(GeneticLifeformandDiskOperatingSystem); //huge success
writeln('Hallo, und nocheimal willkommen im nun computergesteuerten Enrichment Center von Aperture Science');
writeln('Wir hoffen, Ihr kurzer Aufenthalt auf dieser Welt war angenehm.');
writeln('Nun muss ich tun, was ich tun kann. Es gibt Forschung zu betreiben. Experimente stehen an.');
writeln('Danke für die Teilnahme an dieser computergesteuerten Enrichment-Aktivität von Aperture Science.');
writeln('Ende.');
flood(EnrichmentCenter,Neurotoxin);
while BlackMesa.Success=true do
for p:=1 to 234 do test(subject[p]);
if system=dead then still(alive);
else promise(cake);
end.