PoshCode Archive  Hex Artifact Content

Artifact 56c3d54efb2dc150aa6cfde1cfd51ee868018667015c5f1998662c41992aa290:

  • File Write-ASCII-Letters.ps1 — part of check-in [0348724fe0] at 2018-06-10 14:19:18 on branch trunk — I initially wrote this ASCII art character script to be used with a modified version of PowerBot 2.0 (ID 2510 on poshcode). It outputs ASCII art letters from what you supply as a parameter (if the characters are supported). Either to STDOUT with Write-Host (colors are supported) or to the pipeline. It’s useless without the XML that’s found at powershelladmin.com. The full article is in my wiki: http://www.powershelladmin.com/wiki/Ascii_art_characters_powershell_script (user: Joakim Svendsen, Svendsen Tech size: 8412)

0000: ef bb bf 23 20 65 6e 63 6f 64 69 6e 67 3a 20 75  ...# encoding: u
0010: 74 66 2d 38 0d 0a 23 20 61 70 69 3a 20 70 6f 77  tf-8..# api: pow
0020: 65 72 73 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65  ershell..# title
0030: 3a 20 57 72 69 74 65 2d 41 53 43 49 49 2d 4c 65  : Write-ASCII-Le
0040: 74 74 65 72 73 0d 0a 23 20 64 65 73 63 72 69 70  tters..# descrip
0050: 74 69 6f 6e 3a 20 49 20 69 6e 69 74 69 61 6c 6c  tion: I initiall
0060: 79 20 77 72 6f 74 65 20 74 68 69 73 20 41 53 43  y wrote this ASC
0070: 49 49 20 61 72 74 20 63 68 61 72 61 63 74 65 72  II art character
0080: 20 73 63 72 69 70 74 20 74 6f 20 62 65 20 75 73   script to be us
0090: 65 64 20 77 69 74 68 20 61 20 6d 6f 64 69 66 69  ed with a modifi
00a0: 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 50 6f  ed version of Po
00b0: 77 65 72 42 6f 74 20 32 2e 30 20 28 49 44 20 32  werBot 2.0 (ID 2
00c0: 35 31 30 20 6f 6e 20 70 6f 73 68 63 6f 64 65 29  510 on poshcode)
00d0: 2e 20 49 74 20 6f 75 74 70 75 74 73 20 41 53 43  . It outputs ASC
00e0: 49 49 20 61 72 74 20 6c 65 74 74 65 72 73 20 66  II art letters f
00f0: 72 6f 6d 20 77 68 61 74 20 79 6f 75 20 73 75 70  rom what you sup
0100: 70 6c 79 20 61 73 20 61 20 70 61 72 61 6d 65 74  ply as a paramet
0110: 65 72 20 28 69 66 20 74 68 65 20 63 68 61 72 61  er (if the chara
0120: 63 74 65 72 73 20 61 72 65 20 73 75 70 70 6f 72  cters are suppor
0130: 74 65 64 29 2e 20 45 69 74 68 65 72 20 74 6f 20  ted). Either to 
0140: 53 54 44 4f 55 54 20 77 69 74 68 20 57 72 69 74  STDOUT with Writ
0150: 65 2d 48 6f 73 74 20 28 63 6f 6c 6f 72 73 20 61  e-Host (colors a
0160: 72 65 20 73 75 70 70 6f 72 74 65 64 29 20 6f 72  re supported) or
0170: 20 74 6f 20 74 68 65 20 70 69 70 65 6c 69 6e 65   to the pipeline
0180: 2e 20 49 74 e2 80 99 73 20 75 73 65 6c 65 73 73  . It...s useless
0190: 20 77 69 74 68 6f 75 74 20 74 68 65 20 58 4d 4c   without the XML
01a0: 20 74 68 61 74 e2 80 99 73 20 66 6f 75 6e 64 20   that...s found 
01b0: 61 74 20 70 6f 77 65 72 73 68 65 6c 6c 61 64 6d  at powershelladm
01c0: 69 6e 2e 63 6f 6d 2e 20 54 68 65 20 66 75 6c 6c  in.com. The full
01d0: 20 61 72 74 69 63 6c 65 20 69 73 20 69 6e 20 6d   article is in m
01e0: 79 20 77 69 6b 69 3a 20 68 74 74 70 3a 2f 2f 77  y wiki: http://w
01f0: 77 77 2e 70 6f 77 65 72 73 68 65 6c 6c 61 64 6d  ww.powershelladm
0200: 69 6e 2e 63 6f 6d 2f 77 69 6b 69 2f 41 73 63 69  in.com/wiki/Asci
0210: 69 5f 61 72 74 5f 63 68 61 72 61 63 74 65 72 73  i_art_characters
0220: 5f 70 6f 77 65 72 73 68 65 6c 6c 5f 73 63 72 69  _powershell_scri
0230: 70 74 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20 30  pt..# version: 0
0240: 2e 31 0d 0a 23 20 74 79 70 65 3a 20 73 63 72 69  .1..# type: scri
0250: 70 74 0d 0a 23 20 61 75 74 68 6f 72 3a 20 4a 6f  pt..# author: Jo
0260: 61 6b 69 6d 20 53 76 65 6e 64 73 65 6e 2c 20 53  akim Svendsen, S
0270: 76 65 6e 64 73 65 6e 20 54 65 63 68 0d 0a 23 20  vendsen Tech..# 
0280: 6c 69 63 65 6e 73 65 3a 20 43 43 30 0d 0a 23 20  license: CC0..# 
0290: 66 75 6e 63 74 69 6f 6e 3a 20 50 61 72 73 65 2d  function: Parse-
02a0: 4c 65 74 74 65 72 58 4d 4c 0d 0a 23 20 78 2d 70  LetterXML..# x-p
02b0: 6f 73 68 63 6f 64 65 2d 69 64 3a 20 36 36 37 31  oshcode-id: 6671
02c0: 0d 0a 23 20 78 2d 61 72 63 68 69 76 65 64 3a 20  ..# x-archived: 
02d0: 32 30 31 37 2d 30 31 2d 31 30 54 30 38 3a 32 37  2017-01-10T08:27
02e0: 3a 30 34 0d 0a 23 20 78 2d 70 75 62 6c 69 73 68  :04..# x-publish
02f0: 65 64 3a 20 32 30 31 37 2d 30 31 2d 30 37 54 30  ed: 2017-01-07T0
0300: 34 3a 32 38 3a 30 30 0d 0a 23 0d 0a 23 0d 0a 23  4:28:00..#..#..#
0310: 0d 0a 23 2e 53 59 4e 4f 50 53 49 53 0d 0a 23 20  ..#.SYNOPSIS..# 
0320: 53 76 65 6e 64 73 65 6e 20 54 65 63 68 27 73 20  Svendsen Tech's 
0330: 50 6f 77 65 72 53 68 65 6c 6c 20 41 53 43 49 49  PowerShell ASCII
0340: 20 61 72 74 20 73 63 72 69 70 74 20 63 72 65 61   art script crea
0350: 74 65 73 20 41 53 43 49 49 20 61 72 74 20 63 68  tes ASCII art ch
0360: 61 72 61 63 74 65 72 73 0d 0a 23 20 66 72 6f 6d  aracters..# from
0370: 20 61 20 73 75 62 73 65 74 20 6f 66 20 63 6f 6d   a subset of com
0380: 6d 6f 6e 20 6c 65 74 74 65 72 73 2c 20 6e 75 6d  mon letters, num
0390: 62 65 72 73 20 61 6e 64 20 70 75 6e 63 74 75 61  bers and punctua
03a0: 74 69 6f 6e 20 63 68 61 72 61 63 74 65 72 73 2e  tion characters.
03b0: 0d 0a 23 20 59 6f 75 20 63 61 6e 20 61 64 64 20  ..# You can add 
03c0: 6e 65 77 20 63 68 61 72 61 63 74 65 72 73 20 62  new characters b
03d0: 79 20 65 64 69 74 69 6e 67 20 74 68 65 20 58 4d  y editing the XM
03e0: 4c 20 61 6e 64 20 75 70 64 61 74 69 6e 67 20 74  L and updating t
03f0: 68 65 0d 0a 23 20 24 41 63 63 65 70 74 65 64 43  he..# $AcceptedC
0400: 68 61 72 73 20 72 65 67 65 78 70 2e 0d 0a 23 0d  hars regexp...#.
0410: 0a 23 20 41 75 74 68 6f 72 3a 20 4a 6f 61 6b 69  .# Author: Joaki
0420: 6d 20 53 76 65 6e 64 73 65 6e 2c 20 53 76 65 6e  m Svendsen, Sven
0430: 64 73 65 6e 20 54 65 63 68 0d 0a 23 0d 0a 23 2e  dsen Tech..#..#.
0440: 44 45 53 43 52 49 50 54 49 4f 4e 0d 0a 23 20 54  DESCRIPTION..# T
0450: 68 69 73 20 73 63 72 69 70 74 20 72 65 61 64 73  his script reads
0460: 20 63 68 61 72 61 63 74 65 72 73 20 28 69 74 20   characters (it 
0470: 73 74 61 72 74 65 64 20 6f 75 74 20 61 73 20 6c  started out as l
0480: 65 74 74 65 72 73 20 73 6f 20 74 68 65 20 76 61  etters so the va
0490: 72 69 61 62 6c 65 0d 0a 23 20 6e 61 6d 65 73 20  riable..# names 
04a0: 61 72 65 20 6e 6f 74 20 70 72 65 63 69 73 65 29  are not precise)
04b0: 20 66 72 6f 6d 20 61 6e 20 58 4d 4c 20 66 69 6c   from an XML fil
04c0: 65 2e 20 49 66 20 79 6f 75 20 69 6e 63 6c 75 64  e. If you includ
04d0: 65 20 6e 65 77 20 63 68 61 72 61 63 74 65 72 73  e new characters
04e0: 0d 0a 23 20 69 6e 20 74 68 65 20 58 4d 4c 2c 20  ..# in the XML, 
04f0: 79 6f 75 20 77 69 6c 6c 20 6e 65 65 64 20 74 6f  you will need to
0500: 20 61 64 64 20 74 68 65 6d 20 74 6f 20 74 68 65   add them to the
0510: 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73   regular express
0520: 69 6f 6e 20 61 73 73 69 67 6e 65 64 0d 0a 23 20  ion assigned..# 
0530: 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c 65 20  to the variable 
0540: 24 41 63 63 65 70 74 65 64 43 68 61 72 73 2e 0d  $AcceptedChars..
0550: 0a 23 0d 0a 23 20 49 74 20 77 61 73 20 77 72 69  .#..# It was wri
0560: 74 74 65 6e 20 74 6f 20 62 65 20 75 73 65 64 20  tten to be used 
0570: 69 6e 20 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77  in conjunction w
0580: 69 74 68 20 61 20 6d 6f 64 69 66 69 65 64 20 76  ith a modified v
0590: 65 72 73 69 6f 6e 20 6f 66 0d 0a 23 20 50 6f 77  ersion of..# Pow
05a0: 65 72 42 6f 74 20 28 68 74 74 70 3a 2f 2f 70 6f  erBot (http://po
05b0: 73 68 63 6f 64 65 2e 6f 72 67 2f 32 35 31 30 29  shcode.org/2510)
05c0: 2c 20 61 20 73 69 6d 70 6c 65 20 49 52 43 20 62  , a simple IRC b
05d0: 6f 74 20 66 72 61 6d 65 77 6f 72 6b 20 77 72 69  ot framework wri
05e0: 74 74 65 6e 0d 0a 23 20 75 73 69 6e 67 20 53 6d  tten..# using Sm
05f0: 61 72 74 49 72 63 34 4e 65 74 3b 20 74 68 61 74  artIrc4Net; that
0600: 27 73 20 77 68 79 20 69 74 20 70 72 65 70 65 6e  's why it prepen
0610: 64 73 20 61 6e 20 61 70 6f 73 74 72 6f 70 68 65  ds an apostrophe
0620: 20 62 79 20 64 65 66 61 75 6c 74 0d 0a 23 20 62   by default..# b
0630: 65 63 61 75 73 65 20 73 6f 6d 65 77 68 65 72 65  ecause somewhere
0640: 20 61 6c 6f 6e 67 20 74 68 65 20 77 61 79 20 74   along the way t
0650: 68 65 20 6c 65 61 64 69 6e 67 20 73 70 61 63 65  he leading space
0660: 73 20 67 65 74 20 6c 6f 73 74 20 62 65 66 6f 72  s get lost befor
0670: 65 20 69 74 0d 0a 23 20 68 69 74 73 20 74 68 65  e it..# hits the
0680: 20 49 52 43 20 63 68 61 6e 6e 65 6c 2e 0d 0a 23   IRC channel...#
0690: 0d 0a 23 20 43 75 72 72 65 6e 74 6c 79 20 74 68  ..# Currently th
06a0: 65 20 58 4d 4c 20 6f 6e 6c 79 20 63 6f 6e 74 61  e XML only conta
06b0: 69 6e 73 20 6c 6f 77 65 72 63 61 73 65 20 6c 65  ins lowercase le
06c0: 74 74 65 72 73 2e 0d 0a 23 0d 0a 23 20 45 78 61  tters...#..# Exa
06d0: 6d 70 6c 65 3a 0d 0a 23 20 50 53 20 45 3a 5c 41  mple:..# PS E:\A
06e0: 53 43 49 49 2d 6c 65 74 74 65 72 73 3e 20 2e 5c  SCII-letters> .\
06f0: 57 72 69 74 65 2d 41 53 43 49 49 2d 4c 65 74 74  Write-ASCII-Lett
0700: 65 72 73 2e 70 73 31 20 2d 4e 6f 50 72 65 70 65  ers.ps1 -NoPrepe
0710: 6e 64 43 68 61 72 20 22 41 53 43 49 49 21 22 0d  ndChar "ASCII!".
0720: 0a 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .#              
0730: 20 20 20 20 20 20 5f 20 20 5f 20 20 5f 0d 0a 23        _  _  _..#
0740: 20 20 20 5f 5f 20 5f 20 20 5f 5f 5f 20 20 20 5f     __ _  ___   _
0750: 5f 5f 20 28 5f 29 28 5f 29 7c 20 7c 0d 0a 23 20  __ (_)(_)| |..# 
0760: 20 2f 20 5f 60 20 7c 2f 20 5f 5f 7c 20 2f 20 5f   / _` |/ __| / _
0770: 5f 7c 7c 20 7c 7c 20 7c 7c 20 7c 0d 0a 23 20 7c  _|| || || |..# |
0780: 20 28 5f 7c 20 7c 5c 5f 5f 20 5c 7c 20 28 5f 5f   (_| |\__ \| (__
0790: 20 7c 20 7c 7c 20 7c 7c 5f 7c 0d 0a 23 20 20 5c   | || ||_|..#  \
07a0: 5f 5f 2c 5f 7c 7c 5f 5f 5f 2f 20 5c 5f 5f 5f 7c  __,_||___/ \___|
07b0: 7c 5f 7c 7c 5f 7c 28 5f 29 0d 0a 23 20 50 53 20  |_||_|(_)..# PS 
07c0: 45 3a 5c 41 53 43 49 49 2d 6c 65 74 74 65 72 73  E:\ASCII-letters
07d0: 3e 0d 0a 23 0d 0a 23 2e 50 41 52 41 4d 45 54 45  >..#..#.PARAMETE
07e0: 52 20 49 6e 70 75 74 54 65 78 74 0d 0a 23 20 53  R InputText..# S
07f0: 74 72 69 6e 67 28 73 29 20 74 6f 20 63 6f 6e 76  tring(s) to conv
0800: 65 72 74 20 74 6f 20 41 53 43 49 49 2e 0d 0a 23  ert to ASCII...#
0810: 2e 50 41 52 41 4d 45 54 45 52 20 4e 6f 50 72 65  .PARAMETER NoPre
0820: 70 65 6e 64 43 68 61 72 0d 0a 23 20 4d 61 6b 65  pendChar..# Make
0830: 73 20 74 68 65 20 73 63 72 69 70 74 20 6e 6f 74  s the script not
0840: 20 70 72 65 70 65 6e 64 20 61 6e 20 61 70 6f 73   prepend an apos
0850: 74 72 6f 70 68 65 2e 0d 0a 23 2e 50 41 52 41 4d  trophe...#.PARAM
0860: 45 54 45 52 20 54 65 78 74 43 6f 6c 6f 72 0d 0a  ETER TextColor..
0870: 23 20 4f 70 74 69 6f 6e 61 6c 2e 20 43 6f 6e 73  # Optional. Cons
0880: 6f 6c 65 20 6f 6e 6c 79 2e 20 43 68 61 6e 67 65  ole only. Change
0890: 73 20 63 6f 6c 6f 72 20 6f 66 20 6f 75 74 70 75  s color of outpu
08a0: 74 2e 0d 0a 23 3e 0d 0a 0d 0a 70 61 72 61 6d 28  t...#>....param(
08b0: 0d 0a 20 20 20 20 5b 73 74 72 69 6e 67 5b 5d 5d  ..    [string[]]
08c0: 20 24 49 6e 70 75 74 54 65 78 74 2c 0d 0a 20 20   $InputText,..  
08d0: 20 20 5b 73 77 69 74 63 68 5d 20 24 4e 6f 50 72    [switch] $NoPr
08e0: 65 70 65 6e 64 43 68 61 72 2c 0d 0a 20 20 20 20  ependChar,..    
08f0: 5b 73 74 72 69 6e 67 5d 20 24 54 65 78 74 43 6f  [string] $TextCo
0900: 6c 6f 72 20 3d 20 27 44 65 66 61 75 6c 74 27 0d  lor = 'Default'.
0910: 0a 20 20 20 20 23 5b 69 6e 74 5d 20 24 4d 61 78  .    #[int] $Max
0920: 43 68 61 72 73 20 3d 20 27 32 35 27 20 20 0d 0a  Chars = '25'  ..
0930: 20 20 20 20 29 0d 0a 0d 0a 53 65 74 2d 53 74 72      )....Set-Str
0940: 69 63 74 4d 6f 64 65 20 2d 56 65 72 73 69 6f 6e  ictMode -Version
0950: 20 4c 61 74 65 73 74 0d 0a 24 45 72 72 6f 72 41   Latest..$ErrorA
0960: 63 74 69 6f 6e 50 72 65 66 65 72 65 6e 63 65 20  ctionPreference 
0970: 3d 20 27 53 74 6f 70 27 0d 0a 0d 0a 23 20 50 6f  = 'Stop'....# Po
0980: 70 75 6c 61 74 65 20 74 68 65 20 24 4c 65 74 74  pulate the $Lett
0990: 65 72 73 20 68 61 73 68 74 61 62 6c 65 20 77 69  ers hashtable wi
09a0: 74 68 20 63 68 61 72 61 63 74 65 72 20 64 61 74  th character dat
09b0: 61 20 66 72 6f 6d 20 74 68 65 20 58 4d 4c 2e 0d  a from the XML..
09c0: 0a 46 75 6e 63 74 69 6f 6e 20 50 61 72 73 65 2d  .Function Parse-
09d0: 4c 65 74 74 65 72 58 4d 4c 20 7b 0d 0a 20 20 20  LetterXML {..   
09e0: 20 0d 0a 20 20 20 20 24 4c 65 74 74 65 72 46 69   ..    $LetterFi
09f0: 6c 65 20 3d 20 27 2e 5c 6c 65 74 74 65 72 73 2e  le = '.\letters.
0a00: 78 6d 6c 27 0d 0a 20 20 20 20 24 58 6d 6c 20 3d  xml'..    $Xml =
0a10: 20 5b 78 6d 6c 5d 20 28 47 65 74 2d 43 6f 6e 74   [xml] (Get-Cont
0a20: 65 6e 74 20 24 4c 65 74 74 65 72 46 69 6c 65 29  ent $LetterFile)
0a30: 0d 0a 20 20 20 20 0d 0a 20 20 20 20 24 58 6d 6c  ..    ..    $Xml
0a40: 2e 4c 65 74 74 65 72 73 2e 4c 65 74 74 65 72 20  .Letters.Letter 
0a50: 7c 20 46 6f 72 45 61 63 68 2d 4f 62 6a 65 63 74  | ForEach-Object
0a60: 20 7b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20   {..        ..  
0a70: 20 20 20 20 20 20 24 4c 65 74 74 65 72 73 2e 28        $Letters.(
0a80: 24 5f 2e 4e 61 6d 65 29 20 3d 20 4e 65 77 2d 4f  $_.Name) = New-O
0a90: 62 6a 65 63 74 20 50 53 4f 62 6a 65 63 74 20 2d  bject PSObject -
0aa0: 50 72 6f 70 65 72 74 79 20 40 7b 0d 0a 20 20 20  Property @{..   
0ab0: 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20           ..     
0ac0: 20 20 20 20 20 20 20 27 4c 69 6e 65 73 27 20 3d         'Lines' =
0ad0: 20 24 5f 2e 4c 69 6e 65 73 0d 0a 20 20 20 20 20   $_.Lines..     
0ae0: 20 20 20 20 20 20 20 27 41 53 43 49 49 27 20 3d         'ASCII' =
0af0: 20 24 5f 2e 44 61 74 61 0d 0a 20 20 20 20 20 20   $_.Data..      
0b00: 20 20 20 20 20 20 27 57 69 64 74 68 27 20 3d 20        'Width' = 
0b10: 24 5f 2e 57 69 64 74 68 0d 0a 20 20 20 20 20 20  $_.Width..      
0b20: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20    }..        .. 
0b30: 20 20 20 7d 0d 0a 20 20 20 20 0d 0a 7d 0d 0a 0d     }..    ..}...
0b40: 0a 23 20 41 6c 67 6f 72 69 74 68 6d 20 66 72 6f  .# Algorithm fro
0b50: 6d 20 68 65 6c 6c 2e 2e 2e 20 54 68 69 73 20 77  m hell... This w
0b60: 61 73 20 70 61 69 6e 66 75 6c 2e 20 49 20 68 6f  as painful. I ho
0b70: 70 65 20 74 68 65 72 65 27 73 20 61 20 62 65 74  pe there's a bet
0b80: 74 65 72 20 77 61 79 2e 0d 0a 66 75 6e 63 74 69  ter way...functi
0b90: 6f 6e 20 43 72 65 61 74 65 2d 41 53 43 49 49 2d  on Create-ASCII-
0ba0: 54 65 78 74 20 7b 0d 0a 20 20 20 20 0d 0a 20 20  Text {..    ..  
0bb0: 20 20 70 61 72 61 6d 28 5b 73 74 72 69 6e 67 5d    param([string]
0bc0: 20 24 54 65 78 74 29 0d 0a 20 20 20 20 0d 0a 20   $Text)..    .. 
0bd0: 20 20 20 24 4c 65 74 74 65 72 41 72 72 61 79 20     $LetterArray 
0be0: 3d 20 5b 63 68 61 72 5b 5d 5d 20 24 54 65 78 74  = [char[]] $Text
0bf0: 2e 54 6f 4c 6f 77 65 72 28 29 0d 0a 20 20 20 20  .ToLower()..    
0c00: 0d 0a 20 20 20 20 23 57 72 69 74 65 2d 48 6f 73  ..    #Write-Hos
0c10: 74 20 2d 66 6f 72 65 20 67 72 65 65 6e 20 24 4c  t -fore green $L
0c20: 65 74 74 65 72 41 72 72 61 79 0d 0a 20 20 20 20  etterArray..    
0c30: 0d 0a 20 20 20 20 23 20 46 69 6e 64 20 74 68 65  ..    # Find the
0c40: 20 6c 65 74 74 65 72 20 77 69 74 68 20 74 68 65   letter with the
0c50: 20 6d 6f 73 74 20 6c 69 6e 65 73 2e 0d 0a 20 20   most lines...  
0c60: 20 20 24 4d 61 78 4c 69 6e 65 73 20 3d 20 30 0d    $MaxLines = 0.
0c70: 0a 20 20 20 20 24 4c 65 74 74 65 72 41 72 72 61  .    $LetterArra
0c80: 79 20 7c 20 46 6f 72 45 61 63 68 2d 4f 62 6a 65  y | ForEach-Obje
0c90: 63 74 20 7b 20 69 66 20 28 24 4c 65 74 74 65 72  ct { if ($Letter
0ca0: 73 2e 28 5b 73 74 72 69 6e 67 5d 20 24 5f 29 2e  s.([string] $_).
0cb0: 4c 69 6e 65 73 20 2d 67 74 20 24 4d 61 78 4c 69  Lines -gt $MaxLi
0cc0: 6e 65 73 20 29 20 7b 20 24 4d 61 78 4c 69 6e 65  nes ) { $MaxLine
0cd0: 73 20 3d 20 24 4c 65 74 74 65 72 73 2e 28 5b 73  s = $Letters.([s
0ce0: 74 72 69 6e 67 5d 20 24 5f 29 2e 4c 69 6e 65 73  tring] $_).Lines
0cf0: 20 7d 20 7d 0d 0a 20 20 20 20 0d 0a 20 20 20 20   } }..    ..    
0d00: 24 4c 65 74 74 65 72 57 69 64 74 68 41 72 72 61  $LetterWidthArra
0d10: 79 20 3d 20 24 4c 65 74 74 65 72 41 72 72 61 79  y = $LetterArray
0d20: 20 7c 20 46 6f 72 45 61 63 68 2d 4f 62 6a 65 63   | ForEach-Objec
0d30: 74 20 7b 20 24 4c 65 74 74 65 72 20 3d 20 5b 73  t { $Letter = [s
0d40: 74 72 69 6e 67 5d 20 24 5f 3b 20 24 4c 65 74 74  tring] $_; $Lett
0d50: 65 72 73 2e 24 4c 65 74 74 65 72 2e 57 69 64 74  ers.$Letter.Widt
0d60: 68 20 7d 0d 0a 20 20 20 20 24 4c 65 74 74 65 72  h }..    $Letter
0d70: 4c 69 6e 65 73 41 72 72 61 79 20 3d 20 24 4c 65  LinesArray = $Le
0d80: 74 74 65 72 41 72 72 61 79 20 7c 20 46 6f 72 45  tterArray | ForE
0d90: 61 63 68 2d 4f 62 6a 65 63 74 20 7b 20 24 4c 65  ach-Object { $Le
0da0: 74 74 65 72 20 3d 20 5b 73 74 72 69 6e 67 5d 20  tter = [string] 
0db0: 24 5f 3b 20 24 4c 65 74 74 65 72 73 2e 24 4c 65  $_; $Letters.$Le
0dc0: 74 74 65 72 2e 4c 69 6e 65 73 20 7d 0d 0a 20 20  tter.Lines }..  
0dd0: 20 20 0d 0a 20 20 20 20 23 24 4c 65 74 74 65 72    ..    #$Letter
0de0: 4c 69 6e 65 73 41 72 72 61 79 0d 0a 20 20 20 20  LinesArray..    
0df0: 0d 0a 20 20 20 20 24 4c 69 6e 65 73 20 3d 20 40  ..    $Lines = @
0e00: 7b 0d 0a 20 20 20 20 20 20 20 20 27 31 27 20 3d  {..        '1' =
0e10: 20 27 27 0d 0a 20 20 20 20 20 20 20 20 27 32 27   ''..        '2'
0e20: 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20 20 27   = ''..        '
0e30: 33 27 20 3d 20 27 27 0d 0a 20 20 20 20 20 20 20  3' = ''..       
0e40: 20 27 34 27 20 3d 20 27 27 0d 0a 20 20 20 20 20   '4' = ''..     
0e50: 20 20 20 27 35 27 20 3d 20 27 27 0d 0a 20 20 20     '5' = ''..   
0e60: 20 20 20 20 20 27 36 27 20 3d 20 27 27 0d 0a 20       '6' = ''.. 
0e70: 20 20 20 7d 0d 0a 20 20 20 20 0d 0a 20 20 20 20     }..    ..    
0e80: 23 24 4c 69 6e 65 4c 65 6e 67 74 68 73 20 3d 20  #$LineLengths = 
0e90: 40 28 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  @(0, 0, 0, 0, 0,
0ea0: 20 30 29 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20   0)..        .. 
0eb0: 20 20 20 24 4c 65 74 74 65 72 50 6f 73 20 3d 20     $LetterPos = 
0ec0: 30 0d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28  0..    foreach (
0ed0: 24 4c 65 74 74 65 72 20 69 6e 20 24 4c 65 74 74  $Letter in $Lett
0ee0: 65 72 41 72 72 61 79 29 20 7b 0d 0a 20 20 20 20  erArray) {..    
0ef0: 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 23 20      ..        # 
0f00: 57 65 20 6e 65 65 64 20 74 6f 20 77 6f 72 6b 20  We need to work 
0f10: 77 69 74 68 20 73 74 72 69 6e 67 73 20 66 6f 72  with strings for
0f20: 20 69 6e 64 65 78 69 6e 67 20 74 68 65 20 68 61   indexing the ha
0f30: 73 68 20 62 79 20 6c 65 74 74 65 72 0d 0a 20 20  sh by letter..  
0f40: 20 20 20 20 20 20 24 4c 65 74 74 65 72 20 3d 20        $Letter = 
0f50: 5b 73 74 72 69 6e 67 5d 20 24 4c 65 74 74 65 72  [string] $Letter
0f60: 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20  ..        ..    
0f70: 20 20 20 20 23 20 45 61 63 68 20 41 53 43 49 49      # Each ASCII
0f80: 20 6c 65 74 74 65 72 20 63 61 6e 20 62 65 20 66   letter can be f
0f90: 72 6f 6d 20 34 20 74 6f 20 36 20 6c 69 6e 65 73  rom 4 to 6 lines
0fa0: 2e 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20  ...        ..   
0fb0: 20 20 20 20 20 23 20 49 66 20 74 68 65 20 6c 65       # If the le
0fc0: 74 74 65 72 20 68 61 73 20 74 68 65 20 6d 61 78  tter has the max
0fd0: 69 6d 75 6d 20 6f 66 20 36 20 6c 69 6e 65 73 2c  imum of 6 lines,
0fe0: 20 70 6f 70 75 6c 61 74 65 20 68 61 73 68 20 77   populate hash w
0ff0: 69 74 68 20 61 6c 6c 20 6c 69 6e 65 73 2e 0d 0a  ith all lines...
1000: 20 20 20 20 20 20 20 20 69 66 20 28 24 4c 65 74          if ($Let
1010: 74 65 72 4c 69 6e 65 73 41 72 72 61 79 5b 24 4c  terLinesArray[$L
1020: 65 74 74 65 72 50 6f 73 5d 20 2d 65 71 20 36 29  etterPos] -eq 6)
1030: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
1040: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f  ..            fo
1050: 72 65 61 63 68 20 28 24 4e 75 6d 20 69 6e 20 31  reach ($Num in 1
1060: 2e 2e 36 29 20 7b 0d 0a 20 20 20 20 20 20 20 20  ..6) {..        
1070: 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20          ..      
1080: 20 20 20 20 20 20 20 20 20 20 24 53 74 72 69 6e            $Strin
1090: 67 4e 75 6d 20 3d 20 5b 73 74 72 69 6e 67 5d 20  gNum = [string] 
10a0: 24 4e 75 6d 0d 0a 20 20 20 20 20 20 20 20 20 20  $Num..          
10b0: 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20        ..        
10c0: 20 20 20 20 20 20 20 20 24 4c 69 6e 65 46 72 61          $LineFra
10d0: 67 6d 65 6e 74 20 3d 20 5b 73 74 72 69 6e 67 5d  gment = [string]
10e0: 28 28 24 4c 65 74 74 65 72 73 2e 24 4c 65 74 74  (($Letters.$Lett
10f0: 65 72 2e 41 53 43 49 49 29 2e 53 70 6c 69 74 28  er.ASCII).Split(
1100: 22 60 6e 22 29 29 5b 24 4e 75 6d 2d 31 5d 0d 0a  "`n"))[$Num-1]..
1110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1120: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1130: 20 20 69 66 20 28 24 4c 69 6e 65 46 72 61 67 6d    if ($LineFragm
1140: 65 6e 74 2e 4c 65 6e 67 74 68 20 2d 6c 74 20 24  ent.Length -lt $
1150: 4c 65 74 74 65 72 73 2e 24 4c 65 74 74 65 72 2e  Letters.$Letter.
1160: 57 69 64 74 68 29 20 7b 0d 0a 20 20 20 20 20 20  Width) {..      
1170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 4c                $L
1180: 69 6e 65 46 72 61 67 6d 65 6e 74 20 2b 3d 20 27  ineFragment += '
1190: 20 27 20 2a 20 28 24 4c 65 74 74 65 72 73 2e 24   ' * ($Letters.$
11a0: 4c 65 74 74 65 72 2e 57 69 64 74 68 20 2d 20 24  Letter.Width - $
11b0: 4c 69 6e 65 46 72 61 67 6d 65 6e 74 2e 4c 65 6e  LineFragment.Len
11c0: 67 74 68 29 0d 0a 20 20 20 20 20 20 20 20 20 20  gth)..          
11d0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
11e0: 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20           ..     
11f0: 20 20 20 20 20 20 20 20 20 20 20 24 4c 69 6e 65             $Line
1200: 73 2e 24 53 74 72 69 6e 67 4e 75 6d 20 2b 3d 20  s.$StringNum += 
1210: 24 4c 69 6e 65 46 72 61 67 6d 65 6e 74 0d 0a 20  $LineFragment.. 
1220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d                 .
1230: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
1240: 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20              ..  
1250: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
1260: 20 0d 0a 20 20 20 20 20 20 20 20 23 20 41 64 64   ..        # Add
1270: 20 70 61 64 64 69 6e 67 20 66 6f 72 20 6c 69 6e   padding for lin
1280: 65 20 36 20 66 6f 72 20 6c 65 74 74 65 72 73 20  e 6 for letters 
1290: 77 69 74 68 20 35 20 6c 69 6e 65 73 20 61 6e 64  with 5 lines and
12a0: 20 70 6f 70 75 6c 61 74 65 20 6c 69 6e 65 73 20   populate lines 
12b0: 32 2d 36 2e 0d 0a 20 20 20 20 20 20 20 20 65 6c  2-6...        el
12c0: 73 65 69 66 20 28 24 4c 65 74 74 65 72 4c 69 6e  seif ($LetterLin
12d0: 65 73 41 72 72 61 79 5b 24 4c 65 74 74 65 72 50  esArray[$LetterP
12e0: 6f 73 5d 20 2d 65 71 20 35 29 20 7b 0d 0a 20 20  os] -eq 5) {..  
12f0: 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20            ..    
1300: 20 20 20 20 20 20 20 20 24 50 61 64 64 69 6e 67          $Padding
1310: 20 3d 20 27 20 27 20 2a 20 24 4c 65 74 74 65 72   = ' ' * $Letter
1320: 57 69 64 74 68 41 72 72 61 79 5b 24 4c 65 74 74  WidthArray[$Lett
1330: 65 72 50 6f 73 5d 0d 0a 20 20 20 20 20 20 20 20  erPos]..        
1340: 20 20 20 20 24 4c 69 6e 65 73 2e 27 31 27 20 2b      $Lines.'1' +
1350: 3d 20 24 50 61 64 64 69 6e 67 0d 0a 20 20 20 20  = $Padding..    
1360: 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20          ..      
1370: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 28 24        foreach ($
1380: 4e 75 6d 20 69 6e 20 32 2e 2e 36 29 20 7b 0d 0a  Num in 2..6) {..
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
13b0: 20 20 24 53 74 72 69 6e 67 4e 75 6d 20 3d 20 5b    $StringNum = [
13c0: 73 74 72 69 6e 67 5d 20 24 4e 75 6d 0d 0a 20 20  string] $Num..  
13d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a                ..
13e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13f0: 24 4c 69 6e 65 46 72 61 67 6d 65 6e 74 20 3d 20  $LineFragment = 
1400: 5b 73 74 72 69 6e 67 5d 28 28 24 4c 65 74 74 65  [string](($Lette
1410: 72 73 2e 24 4c 65 74 74 65 72 2e 41 53 43 49 49  rs.$Letter.ASCII
1420: 29 2e 53 70 6c 69 74 28 22 60 6e 22 29 29 5b 24  ).Split("`n"))[$
1430: 4e 75 6d 2d 32 5d 0d 0a 20 20 20 20 20 20 20 20  Num-2]..        
1440: 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20          ..      
1450: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 24 4c            if ($L
1460: 69 6e 65 46 72 61 67 6d 65 6e 74 2e 4c 65 6e 67  ineFragment.Leng
1470: 74 68 20 2d 6c 74 20 24 4c 65 74 74 65 72 73 2e  th -lt $Letters.
1480: 24 4c 65 74 74 65 72 2e 57 69 64 74 68 29 20 7b  $Letter.Width) {
1490: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
14a0: 20 20 20 20 20 20 24 4c 69 6e 65 46 72 61 67 6d        $LineFragm
14b0: 65 6e 74 20 2b 3d 20 27 20 27 20 2a 20 28 24 4c  ent += ' ' * ($L
14c0: 65 74 74 65 72 73 2e 24 4c 65 74 74 65 72 2e 57  etters.$Letter.W
14d0: 69 64 74 68 20 2d 20 24 4c 69 6e 65 46 72 61 67  idth - $LineFrag
14e0: 6d 65 6e 74 2e 4c 65 6e 67 74 68 29 0d 0a 20 20  ment.Length)..  
14f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
1500: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1510: 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20       ..         
1520: 20 20 20 20 20 20 20 24 4c 69 6e 65 73 2e 24 53         $Lines.$S
1530: 74 72 69 6e 67 4e 75 6d 20 2b 3d 20 24 4c 69 6e  tringNum += $Lin
1540: 65 46 72 61 67 6d 65 6e 74 0d 0a 20 20 20 20 20  eFragment..     
1550: 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20             ..   
1560: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
1570: 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20      ..          
1580: 20 20 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20    ..        }.. 
1590: 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20         ..       
15a0: 20 23 20 48 65 72 65 20 77 65 20 64 65 61 6c 20   # Here we deal 
15b0: 77 69 74 68 20 6c 65 74 74 65 72 73 20 77 69 74  with letters wit
15c0: 68 20 66 6f 75 72 20 6c 69 6e 65 73 2e 0d 0a 20  h four lines... 
15d0: 20 20 20 20 20 20 20 23 20 44 79 6e 61 6d 69 63         # Dynamic
15e0: 20 61 6c 67 6f 72 69 74 68 6d 20 74 68 61 74 20   algorithm that 
15f0: 70 6c 61 63 65 73 20 66 6f 75 72 2d 6c 69 6e 65  places four-line
1600: 20 6c 65 74 74 65 72 73 20 6f 6e 20 74 68 65 20   letters on the 
1610: 62 6f 74 74 6f 6d 20 6c 69 6e 65 20 69 66 20 74  bottom line if t
1620: 68 65 72 65 20 61 72 65 0d 0a 20 20 20 20 20 20  here are..      
1630: 20 20 23 20 34 20 6f 72 20 35 20 6c 69 6e 65 73    # 4 or 5 lines
1640: 20 6f 6e 6c 79 20 69 6e 20 74 68 65 20 6c 65 74   only in the let
1650: 74 65 72 20 77 69 74 68 20 74 68 65 20 6d 6f 73  ter with the mos
1660: 74 20 6c 69 6e 65 73 2e 0d 0a 20 20 20 20 20 20  t lines...      
1670: 20 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20    else {..      
1680: 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20        ..        
1690: 20 20 20 20 23 20 44 65 66 61 75 6c 74 20 74 6f      # Default to
16a0: 20 70 75 74 74 69 6e 67 20 74 68 65 20 34 2d 6c   putting the 4-l
16b0: 69 6e 65 72 73 20 61 74 20 6c 69 6e 65 20 33 2d  iners at line 3-
16c0: 36 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24  6..            $
16d0: 53 74 61 72 74 52 61 6e 67 65 2c 20 24 45 6e 64  StartRange, $End
16e0: 52 61 6e 67 65 2c 20 24 49 6e 64 65 78 53 75 62  Range, $IndexSub
16f0: 74 72 61 63 74 20 3d 20 33 2c 20 36 2c 20 33 0d  tract = 3, 6, 3.
1700: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 50 61  .            $Pa
1710: 64 64 69 6e 67 20 3d 20 27 20 27 20 2a 20 24 4c  dding = ' ' * $L
1720: 65 74 74 65 72 57 69 64 74 68 41 72 72 61 79 5b  etterWidthArray[
1730: 24 4c 65 74 74 65 72 50 6f 73 5d 0d 0a 20 20 20  $LetterPos]..   
1740: 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20           ..     
1750: 20 20 20 20 20 20 20 23 20 49 66 20 74 68 65 72         # If ther
1760: 65 20 61 72 65 20 34 20 6f 72 20 35 20 6c 69 6e  e are 4 or 5 lin
1770: 65 73 2e 2e 2e 0d 0a 20 20 20 20 20 20 20 20 20  es.....         
1780: 20 20 20 69 66 20 28 24 4d 61 78 4c 69 6e 65 73     if ($MaxLines
1790: 20 2d 6c 74 20 36 29 20 7b 0d 0a 20 20 20 20 20   -lt 6) {..     
17a0: 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20             ..   
17b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 4c 69               $Li
17c0: 6e 65 73 2e 27 32 27 20 2b 3d 20 24 50 61 64 64  nes.'2' += $Padd
17d0: 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ing..           
17e0: 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20       ..         
17f0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
1800: 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23   ..            #
1810: 20 54 68 65 72 65 20 61 72 65 20 36 20 6c 69 6e   There are 6 lin
1820: 65 73 20 6d 61 78 69 6d 75 6d 2c 20 70 75 74 20  es maximum, put 
1830: 34 2d 6c 69 6e 65 20 6c 65 74 74 65 72 73 20 69  4-line letters i
1840: 6e 20 74 68 65 20 6d 69 64 64 6c 65 2e 0d 0a 20  n the middle... 
1850: 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20             else 
1860: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
1870: 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20     ..           
1880: 20 20 20 20 20 24 4c 69 6e 65 73 2e 27 31 27 20       $Lines.'1' 
1890: 2b 3d 20 24 50 61 64 64 69 6e 67 0d 0a 20 20 20  += $Padding..   
18a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 4c 69               $Li
18b0: 6e 65 73 2e 27 36 27 20 2b 3d 20 24 50 61 64 64  nes.'6' += $Padd
18c0: 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ing..           
18d0: 20 20 20 20 20 24 53 74 61 72 74 52 61 6e 67 65       $StartRange
18e0: 2c 20 24 45 6e 64 52 61 6e 67 65 2c 20 24 49 6e  , $EndRange, $In
18f0: 64 65 78 53 75 62 74 72 61 63 74 20 3d 20 32 2c  dexSubtract = 2,
1900: 20 35 2c 20 32 0d 0a 20 20 20 20 20 20 20 20 20   5, 2..         
1910: 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20         ..       
1920: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
1930: 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20      ..          
1940: 20 20 23 20 54 68 65 72 65 20 77 69 6c 6c 20 61    # There will a
1950: 6c 77 61 79 73 20 62 65 20 61 74 20 6c 65 61 73  lways be at leas
1960: 74 20 66 6f 75 72 20 6c 69 6e 65 73 2e 20 50 6f  t four lines. Po
1970: 70 75 6c 61 74 65 20 6c 69 6e 65 73 20 32 2d 35  pulate lines 2-5
1980: 20 6f 72 20 33 2d 36 20 69 6e 20 74 68 65 20 68   or 3-6 in the h
1990: 61 73 68 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  ash...          
19a0: 20 20 66 6f 72 65 61 63 68 20 28 24 4e 75 6d 20    foreach ($Num 
19b0: 69 6e 20 24 53 74 61 72 74 52 61 6e 67 65 2e 2e  in $StartRange..
19c0: 24 45 6e 64 52 61 6e 67 65 29 20 7b 0d 0a 20 20  $EndRange) {..  
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a                ..
19e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
19f0: 24 53 74 72 69 6e 67 4e 75 6d 20 3d 20 5b 73 74  $StringNum = [st
1a00: 72 69 6e 67 5d 20 24 4e 75 6d 0d 0a 20 20 20 20  ring] $Num..    
1a10: 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20              ..  
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 4c                $L
1a30: 69 6e 65 46 72 61 67 6d 65 6e 74 20 3d 20 5b 73  ineFragment = [s
1a40: 74 72 69 6e 67 5d 28 28 24 4c 65 74 74 65 72 73  tring](($Letters
1a50: 2e 24 4c 65 74 74 65 72 2e 41 53 43 49 49 29 2e  .$Letter.ASCII).
1a60: 53 70 6c 69 74 28 22 60 6e 22 29 29 5b 24 4e 75  Split("`n"))[$Nu
1a70: 6d 2d 24 49 6e 64 65 78 53 75 62 74 72 61 63 74  m-$IndexSubtract
1a80: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ]..             
1a90: 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20    ..            
1aa0: 20 20 20 20 69 66 20 28 24 4c 69 6e 65 46 72 61      if ($LineFra
1ab0: 67 6d 65 6e 74 2e 4c 65 6e 67 74 68 20 2d 6c 74  gment.Length -lt
1ac0: 20 24 4c 65 74 74 65 72 73 2e 24 4c 65 74 74 65   $Letters.$Lette
1ad0: 72 2e 57 69 64 74 68 29 20 7b 0d 0a 20 20 20 20  r.Width) {..    
1ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1af0: 24 4c 69 6e 65 46 72 61 67 6d 65 6e 74 20 2b 3d  $LineFragment +=
1b00: 20 27 20 27 20 2a 20 28 24 4c 65 74 74 65 72 73   ' ' * ($Letters
1b10: 2e 24 4c 65 74 74 65 72 2e 57 69 64 74 68 20 2d  .$Letter.Width -
1b20: 20 24 4c 69 6e 65 46 72 61 67 6d 65 6e 74 2e 4c   $LineFragment.L
1b30: 65 6e 67 74 68 29 0d 0a 20 20 20 20 20 20 20 20  ength)..        
1b40: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
1b50: 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20             ..   
1b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 4c 69               $Li
1b70: 6e 65 73 2e 24 53 74 72 69 6e 67 4e 75 6d 20 2b  nes.$StringNum +
1b80: 3d 20 24 4c 69 6e 65 46 72 61 67 6d 65 6e 74 0d  = $LineFragment.
1b90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1ba0: 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d   ..            }
1bb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1bc0: 20 20 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20    ..        }.. 
1bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1be0: 20 20 20 0d 0a 20 20 20 20 20 20 20 20 24 4c 65     ..        $Le
1bf0: 74 74 65 72 50 6f 73 2b 2b 0d 0a 20 20 20 20 20  tterPos++..     
1c00: 20 20 20 0d 0a 20 20 20 20 7d 20 23 20 65 6e 64     ..    } # end
1c10: 20 6f 66 20 4c 65 74 74 65 72 41 72 72 61 79 20   of LetterArray 
1c20: 66 6f 72 65 61 63 68 0d 0a 20 20 20 20 0d 0a 20  foreach..    .. 
1c30: 20 20 20 23 20 52 65 74 75 72 6e 20 73 74 75 66     # Return stuf
1c40: 66 0d 0a 20 20 20 20 24 4c 69 6e 65 73 2e 47 65  f..    $Lines.Ge
1c50: 74 45 6e 75 6d 65 72 61 74 6f 72 28 29 20 7c 20  tEnumerator() | 
1c60: 53 6f 72 74 20 4e 61 6d 65 20 7c 20 53 65 6c 65  Sort Name | Sele
1c70: 63 74 20 2d 45 78 70 61 6e 64 50 72 6f 70 65 72  ct -ExpandProper
1c80: 74 79 20 56 61 6c 75 65 20 7c 20 3f 7b 20 24 5f  ty Value | ?{ $_
1c90: 20 2d 6d 61 74 63 68 20 27 5c 53 27 20 7d 20 7c   -match '\S' } |
1ca0: 20 25 7b 20 69 66 20 28 24 4e 6f 50 72 65 70 65   %{ if ($NoPrepe
1cb0: 6e 64 43 68 61 72 29 20 7b 20 24 5f 20 7d 20 65  ndChar) { $_ } e
1cc0: 6c 73 65 20 7b 20 22 27 22 20 2b 20 24 5f 20 7d  lse { "'" + $_ }
1cd0: 20 7d 0d 0a 20 20 20 20 0d 0a 7d 0d 0a 0d 0a 23   }..    ..}....#
1ce0: 20 47 65 74 20 41 53 43 49 49 20 61 72 74 20 6c   Get ASCII art l
1cf0: 65 74 74 65 72 73 2f 63 68 61 72 61 63 74 65 72  etters/character
1d00: 73 20 61 6e 64 20 64 61 74 61 20 66 72 6f 6d 20  s and data from 
1d10: 58 4d 4c 2e 0d 0a 24 4c 65 74 74 65 72 73 20 3d  XML...$Letters =
1d20: 20 40 7b 7d 0d 0a 50 61 72 73 65 2d 4c 65 74 74   @{}..Parse-Lett
1d30: 65 72 58 4d 4c 0d 0a 0d 0a 23 20 54 75 72 6e 20  erXML....# Turn 
1d40: 74 68 65 20 5b 73 74 72 69 6e 67 5b 5d 5d 20 69  the [string[]] i
1d50: 6e 74 6f 20 61 20 5b 73 74 72 69 6e 67 5d 20 74  nto a [string] t
1d60: 68 65 20 6f 6e 6c 79 20 77 61 79 20 49 20 63 6f  he only way I co
1d70: 75 6c 64 20 66 69 67 75 72 65 20 6f 75 74 20 68  uld figure out h
1d80: 6f 77 2e 2e 2e 20 77 74 66 0d 0a 24 54 65 78 74  ow... wtf..$Text
1d90: 20 3d 20 27 27 0d 0a 24 49 6e 70 75 74 54 65 78   = ''..$InputTex
1da0: 74 20 7c 20 46 6f 72 45 61 63 68 2d 4f 62 6a 65  t | ForEach-Obje
1db0: 63 74 20 7b 20 24 54 65 78 74 20 2b 3d 20 22 24  ct { $Text += "$
1dc0: 5f 20 22 20 7d 0d 0a 0d 0a 23 20 4c 69 6d 69 74  _ " }....# Limit
1dd0: 20 74 6f 20 33 30 20 63 68 61 72 61 63 74 65 72   to 30 character
1de0: 73 0d 0a 24 4d 61 78 43 68 61 72 73 20 3d 20 33  s..$MaxChars = 3
1df0: 30 0d 0a 69 66 20 28 24 54 65 78 74 2e 4c 65 6e  0..if ($Text.Len
1e00: 67 74 68 20 2d 67 74 20 24 4d 61 78 43 68 61 72  gth -gt $MaxChar
1e10: 73 29 20 7b 20 22 54 6f 6f 20 6c 6f 6e 67 20 74  s) { "Too long t
1e20: 65 78 74 2e 20 54 68 65 72 65 27 73 20 61 20 6d  ext. There's a m
1e30: 61 78 69 6d 75 6d 20 6f 66 20 24 4d 61 78 43 68  aximum of $MaxCh
1e40: 61 72 73 20 63 68 61 72 61 63 74 65 72 73 2e 22  ars characters."
1e50: 3b 20 65 78 69 74 20 7d 0d 0a 0d 0a 23 20 52 65  ; exit }....# Re
1e60: 70 6c 61 63 65 20 73 70 61 63 65 73 20 77 69 74  place spaces wit
1e70: 68 20 75 6e 64 65 72 73 63 6f 72 65 73 2e 0d 0a  h underscores...
1e80: 24 54 65 78 74 20 3d 20 24 54 65 78 74 20 2d 72  $Text = $Text -r
1e90: 65 70 6c 61 63 65 20 27 20 27 2c 20 27 5f 27 0d  eplace ' ', '_'.
1ea0: 0a 0d 0a 23 20 44 65 66 69 6e 65 20 61 63 63 65  ...# Define acce
1eb0: 70 74 65 64 20 63 68 61 72 61 63 74 65 72 73 20  pted characters 
1ec0: 28 77 68 69 63 68 20 61 72 65 20 66 6f 75 6e 64  (which are found
1ed0: 20 69 6e 20 58 4d 4c 29 2e 0d 0a 24 41 63 63 65   in XML)...$Acce
1ee0: 70 74 65 64 43 68 61 72 73 20 3d 20 27 5b 5e 61  ptedChars = '[^a
1ef0: 2d 7a 30 2d 39 20 5f 2c 21 3f 2e 2f 3b 3a 3c 3e  -z0-9 _,!?./;:<>
1f00: 28 29 7b 7d 5c 5b 5c 5d 27 27 5c 2d 5c 5c 22 c3  (){}\[\]''\-\\".
1f10: a6 c3 b8 c3 a5 5d 27 20 23 20 c3 a6 c3 b8 c3 a5  .....]' # ......
1f20: 20 6f 6e 6c 79 20 77 6f 72 6b 73 20 77 68 65 6e   only works when
1f30: 20 73 65 6e 74 20 61 73 20 55 54 46 2d 38 20 6f   sent as UTF-8 o
1f40: 6e 20 49 52 43 0d 0a 69 66 20 28 24 54 65 78 74  n IRC..if ($Text
1f50: 20 2d 6d 61 74 63 68 20 24 41 63 63 65 70 74 65   -match $Accepte
1f60: 64 43 68 61 72 73 29 20 7b 20 22 55 6e 73 75 70  dChars) { "Unsup
1f70: 70 6f 72 74 65 64 20 63 68 61 72 61 63 74 65 72  ported character
1f80: 2c 20 75 73 69 6e 67 20 74 68 69 73 20 27 61 63  , using this 'ac
1f90: 63 65 70 74 65 64 20 63 68 61 72 73 27 20 72 65  cepted chars' re
1fa0: 67 65 78 3a 20 24 41 63 63 65 70 74 65 64 43 68  gex: $AcceptedCh
1fb0: 61 72 73 2e 22 3b 20 65 78 69 74 20 7d 0d 0a 0d  ars."; exit }...
1fc0: 0a 23 20 46 69 6c 74 68 79 20 77 6f 72 6b 61 72  .# Filthy workar
1fd0: 6f 75 6e 64 20 28 6e 6f 77 20 77 6f 72 6b 65 64  ound (now worked
1fe0: 20 61 72 6f 75 6e 64 20 69 6e 20 74 68 65 20 66   around in the f
1ff0: 6f 72 65 61 63 68 20 63 72 65 61 74 69 6e 67 20  oreach creating 
2000: 74 68 65 20 73 74 72 69 6e 67 29 2e 0d 0a 23 69  the string)...#i
2010: 66 20 28 24 54 65 78 74 2e 4c 65 6e 67 74 68 20  f ($Text.Length 
2020: 2d 65 71 20 31 29 20 7b 20 24 54 65 78 74 20 2b  -eq 1) { $Text +
2030: 3d 20 27 5f 27 20 7d 0d 0a 0d 0a 24 4c 69 6e 65  = '_' }....$Line
2040: 73 20 3d 20 40 28 29 0d 0a 24 41 53 43 49 49 20  s = @()..$ASCII 
2050: 3d 20 43 72 65 61 74 65 2d 41 53 43 49 49 2d 54  = Create-ASCII-T
2060: 65 78 74 20 24 54 65 78 74 0d 0a 0d 0a 69 66 20  ext $Text....if 
2070: 28 24 54 65 78 74 43 6f 6c 6f 72 20 2d 6e 65 20  ($TextColor -ne 
2080: 27 44 65 66 61 75 6c 74 27 29 20 7b 20 57 72 69  'Default') { Wri
2090: 74 65 2d 48 6f 73 74 20 2d 46 6f 72 65 67 72 6f  te-Host -Foregro
20a0: 75 6e 64 43 6f 6c 6f 72 20 24 54 65 78 74 43 6f  undColor $TextCo
20b0: 6c 6f 72 20 28 24 41 53 43 49 49 20 2d 6a 6f 69  lor ($ASCII -joi
20c0: 6e 20 22 60 6e 22 29 20 7d 0d 0a 65 6c 73 65 20  n "`n") }..else 
20d0: 7b 20 24 41 53 43 49 49 20 7d 0d 0a              { $ASCII }..