Name="Große Buchstaben für die Konsole"
Stich="Buchstaben große Konsole Textmodus cap.pl Capital"
Zeit="Fre Jun 29 21:58:19 MEST 2001"
Kurz="Sie wollen einen Schriftzug, sechs Zeilen hoch, auf die Konsole zeichnen,
z.B. als Willkommensschriftzug."
Lang="
Folgendes Perl-Programm hilft, <a href=\"down/cap.pl\">Download</a>:
`exCodes cap.pl`
#!/usr/bin/perl -w
# cap.pl - Zeichnet einen Schriftzug sechs Zeilen hoch
# Copyright (C) Fre Jun 29 21:58:19 MEST 2001 by Ingo Blechschmidt

@b = (&quot;AAAAAAAA|BBBBBB  |  CCCCCC|DDDDDD  |EEEEEEEE|FFFFFFFF|  GGGG  |HH    HH|  I  I  |      JJ|KK    KK|LL      |MM    MM|NN    NN|  OOOO  |PPPPPP  |  QQQQ  |RRRRRR  |  SSSS  |TTTTTTTT|UU    UU|VV    VV|WW    WW|XX    XX|YY    YY|ZZZZZZZZ|&quot;,
      &quot;AA    AA|BB    BB|CC      |DD  DD  |EE      |FF      |GG    GG|HH    HH|   II   |      JJ|KK  KK  |LL      |MMM  MMM|NNN   NN| OO  OO |PP    PP| QQ  QQ |RR    RR|SS    SS|   TT   |UU    UU|VV    VV|WW    WW| XX  XX | YY  YY |      ZZ|&quot;,
      &quot;AA    AA|BB    BB|CC      |DD    DD|EE      |FF      |GG      |HH    HH|   II   |      JJ|KKKK    |LL      |MM MM MM|NN NN NN|OO    OO|PP    PP|QQ    QQ|RR    RR| SSS    |   TT   |UU    UU|VV    VV|WW    WW| XX  XX | YY  YY |    ZZZ |&quot;,
      &quot;AAAAAAAA|BBBBBBBB|CC      |DD    DD|EEEEEE  |FFFFFF  |GG  GGGG|HHHHHHHH|   II   |      JJ|KKKK    |LL      |MM    MM|NN NN NN|OO    OO|PPPPPP  |QQ  Q QQ|RRRRRR  |    SSS |   TT   |UU    UU|VV    VV|WW WW WW|  XXXX  |   YY   |  ZZZ   |&quot;,
      &quot;AA    AA|BB    BB|CC      |DD  DD  |EE      |FF      |GG    GG|HH    HH|   II   |JJ    JJ|KK  KK  |LL      |MM    MM|NN   NNN| OO  OO |PP      | QQ  QQ |RR  RR  |SS    SS|   TT   | UU  UU | VV  VV |WWW  WWW| XX  XX |   YY   |ZZ      |&quot;,
      &quot;AA    AA|BBBBBB  |  CCCCCC|DDDDDD  |EEEEEEEE|FF      |  GGGG  |HH    HH|  I  I  |  JJJJ  |KK    KK|LLLLLLLL|MM    MM|NN    NN|  OOOO  |PP      |  QQQQ Q|RR    RR|  SSSS  |  T  T  |  UUUU  |   VV   |WW    WW|XX    XX|   YY   |ZZZZZZZZ|&quot;);

@d = ();
@a = split(&quot;&quot;, \$ARGV[0]);

foreach \$akt (@a) {
  \$d[0] .= substr(\$b[0], (ord(\$akt) - 65) * 9, 8) . '  ';
  \$d[1] .= substr(\$b[1], (ord(\$akt) - 65) * 9, 8) . '  ';
  \$d[2] .= substr(\$b[2], (ord(\$akt) - 65) * 9, 8) . '  ';
  \$d[3] .= substr(\$b[3], (ord(\$akt) - 65) * 9, 8) . '  ';
  \$d[4] .= substr(\$b[4], (ord(\$akt) - 65) * 9, 8) . '  ';
  \$d[5] .= substr(\$b[5], (ord(\$akt) - 65) * 9, 8) . '  ';
}

foreach \$bb (@d) {
  print &quot;\$bb\n&quot;;
}
`exCodee`
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0023.txt"