program TwentySecondHug;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

begin
try
Writeln('The 20-Second Hug');
Writeln('Copyright (C) 2018 by Michael J. Riley');
Writeln('(May be freely distributed worldwide)');
Writeln('#20SecondHug #20SecondHugs #PilotLight ');
Writeln(#13#10);
Writeln('+--------------+');
Writeln(' Instructions ');
Writeln('+--------------+');
Writeln(' 1. Squeeze recipient.');
Writeln(' 2. Don''t let go until this window closes.');
Sleep (20000); //Stay awake don't miss this part;
{ TODO 1 :
Translate instructions into other languages.
Ask Delphi programmers for help by putting
translations in blog comments. }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.

Enjoy,
Gunny Mike
zilchworks.com

Weiterlesen...