[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [tyndur-devel] [PATCH] lpt: lpt moo

Alexander Hartmut Kluth schrieb:

+ lpt: lpt moo erklärt alles ;-)

Signed-off-by: Alexander Hartmut Kluth <hartmut@xxxxxxxxxx>
---
 src/modules/pas/lpt/lpt.pas |   21 +++++++++++++++++++++
 1 files changed, 21 insertions(+), 0 deletions(-)

diff --git a/src/modules/pas/lpt/lpt.pas b/src/modules/pas/lpt/lpt.pas
index 1cdf230..d4d1630 100644
--- a/src/modules/pas/lpt/lpt.pas
+++ b/src/modules/pas/lpt/lpt.pas
@@ -34,6 +34,25 @@ begin
     WriteLn(rsUsage);
 end;
+procedure PrintSignifant; 
+begin
+    writeln(' ________________________      ');
+    writeln('|.----------------------.|     ');
+    writeln('||         /  \~~~/  \  ||     ');
+    writeln('||   ,----(     oo    ) ||     ');
+    writeln('||  /      \__     __/  ||     ');
+    writeln('|| /|         (\  |(    ||     ');
+    writeln('||^ \   /___\  /\ |     ||     ');
+    writeln('||   |__|   |__| ""     ||     ');
+    writeln('|''----------------------''|   ');
+    writeln(' ------------------------      ');
+    writeln(' [ |-----|   tyndur   O ]      ');
+    writeln(' [ |-----|            O ]      ');
+    writeln('');
+    writeln('Haben Sie heute schon signifantiert?');
+    writeln('');
+end;
+
 procedure Scan;
 var
     i: Integer;
@@ -387,6 +406,8 @@ begin
             WriteLn(rsWrongParamCount);
             PrintUsage;
         end;
+    end else if system.ParamStr(1) = 'moo' then begin
+        PrintSignifant();
     end else begin
         WriteLn(rsInvalidAction, ' ', system.ParamStr(1));
         PrintUsage;


Acked-by: Max Reitz <max@xxxxxxxxxx>