The 20-Second Hug

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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