#cs
	if you find a nice ascii art on the web and you want to use it with this Vintage Terminal,
	you can transform it in a printable string ready to be inserted in your listing,
	just copy the ascii art in the clipboard and then run this script, it will adapt the ascii art
	in a properly formatted string embedding needed ANSI control codes to maintain the right shape.
	Then it creates a statement where to a variable named $sClipArt is assigned the generated string.
	The statement will be stored in the clipboard so that you can "paste" it in your script.
	To print the ClipArt from your script simply use an _vdt_Print($sClipArt, $x, $y ...) statement.
	Some sites from where to 'copy' AsciiArts:
	https://www.asciiart.eu/
	http://www.chris.com/ascii/
	http://www.asciiworld.com/index.html
	http://www.ascii-art.de/
#ce
;
$sClipBoard = ClipGet()

; ANSI Control Sequence Introducer
Global Const $__g_sCSI = Chr(27) & "["

; ----------------------------------------------------------------------
; remove exciding blank spaces from the left
$aClipBoard = StringSplit($sClipBoard, @CRLF, 1)
Local $iMin = StringLen($sClipBoard)
For $i = 1 To $aClipBoard[0]
	$iLeadingSpaces = StringLen($aClipBoard[$i]) - StringLen(StringStripWS($aClipBoard[$i], 1))
	If $iLeadingSpaces < $iMin Then $iMin = $iLeadingSpaces
	If Not $iMin Then ExitLoop
Next
If $iMin Then
	$sClipBoard = ""
	For $i = 1 To $aClipBoard[0]
		$sClipBoard &= StringTrimLeft($aClipBoard[$i], $iMin) & @CRLF
	Next
	$sClipBoard = StringTrimRight($sClipBoard, 2) ; remove last @crlf
EndIf
; ----------------------------------------------------------------------

; for a transparent background change the space into chr(31)
; $sClipBoard = StringReplace($sClipBoard, " ", chr(31))

; thanks to @jos
$sClipBoard = StringReplace($sClipBoard, '"', '""')

; clip on more lines with ctrl codes embedded in the string
$sClipBoard =  ' Chr(31) & Chr(24) & Chr(27) & "[s" & _' & @CRLF & '"' & StringReplace($sClipBoard, @CRLF, Chr(27)& '[u" & @LF & "' & Chr(27) & '[s" & _' &  @CRLF & '"' ) & '"'

ClipPut("$sClipArt = " & $sClipBoard) ; store the generated code in the ClipBoard, ready to be pasted in your listing
ConsoleWrite(ClipGet() & @CRLF) ; show generated code in console
MsgBox(0, "Info", "The following code has been copied to the clipboard," & @CRLF & "you can now paste it in your script" & @CRLF & @CRLF & ClipGet())