;------------------------------------------------------------------------------------------------------------------------------------------ #DefineFunction udfStrBanner (strText, strFillChar) If strText == "" Then Return "" ; Create dim-2 array, which contains all scan lines per character. ; arrChars[0] is top scan line, arrChars[7] is bottom scan line. GoSub CreateArrayOfScanLineChars ; Define sub set of printable characters here. ; Note: The character to be print must exist in this set of allowed characters. strPrintChars = " !""#$\%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~" strText = StrClean (strText, strPrintChars, "", @TRUE, 2) If strText == "" Then Return "" strWork = StrClean (strPrintChars, strText, "", @TRUE, 2) arrWork = ArrayFromStr (strWork) intLast = ArrInfo (arrWork, 1) - 1 If strFillChar == "" ; Set individual banner print points. For intWork = 0 To intLast intNum = Char2Num (arrWork[intWork]) For intLine = 0 To 7 arrChars[intNum, intLine] = StrReplace (arrChars[intNum, intLine], "0", Num2Char (intNum)) Next Next EndIf strBanner = "" arrText = ArrayFromStr (strText) intElems = ArrInfo (arrText, 1) ArrayRedim (arrText, intElems, 2) intLast = intElems - 1 For intCharPos = 0 To intLast arrText[intCharPos, 1] = Char2Num (arrText[intCharPos, 0]) Next For intLine = 0 To 7 strLine = "" For intCharPos = 0 To intLast strLine = strLine : arrChars[arrText[intCharPos, 1], intLine] Next strBanner = strBanner : strLine : @CRLF Next If strFillChar != "" strBanner = StrReplace (strBanner, "0", StrSub (strFillChar, 1, 1)) ; Set all banner print points to filler char. EndIf Return strBanner ;.......................................................................................................................................... :CreateArrayOfScanLineChars ;------------------------------------------------------------------------------------------------------------------------------------------ ; DefineBannerChars ; Character scanlines usually written from top to down here written from left to right. ;------------------------------------------------------------------------------------------------------------------------------------------ strCSV = "" strCSV = strCSV : `" "," "," "," "," "," "," "," ","000","",""` : @CRLF strCSV = strCSV : `" 000000 ","0 0","0 0 0 0","0 0","0 0000 0","0 00 0","0 0"," 000000 ","001","",""` : @CRLF strCSV = strCSV : `" 000000 ","00000000","00 00 00","00000000","00 00","000 000","00000000"," 000000 ","002","",""` : @CRLF strCSV = strCSV : `" 00 00 ","0000000 ","0000000 ","0000000 "," 00000 "," 000 "," 0 "," ","003","",""` : @CRLF strCSV = strCSV : `" 0 "," 000 "," 00000 ","0000000 "," 00000 "," 000 "," 0 "," ","004","",""` : @CRLF strCSV = strCSV : `" 000 "," 00000 "," 000 ","0000000 ","0000000 "," 00000 "," 000 "," 00000 ","005","",""` : @CRLF strCSV = strCSV : `" 0 "," 0 "," 000 "," 00000 ","0000000 "," 00000 "," 000 "," 00000 ","006","",""` : @CRLF strCSV = strCSV : `" "," "," 00 "," 0000 "," 0000 "," 00 "," "," ","007","",""` : @CRLF strCSV = strCSV : `"00000000","00000000","000 000","00 00","00 00","000 000","00000000","00000000","008","",""` : @CRLF strCSV = strCSV : `" "," 0000 "," 00 00 "," 0 0 "," 0 0 "," 00 00 "," 0000 "," ","009","",""` : @CRLF strCSV = strCSV : `"00000000","00 00","0 00 0","0 0000 0","0 0000 0","0 00 0","00 00","00000000","010","",""` : @CRLF strCSV = strCSV : `" 0000"," 000"," 0000"," 00000 0","00 00 ","00 00 ","00 00 "," 0000 ","011","",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 00 "," 00 00 "," 00 00 "," 0000 "," 00 "," 000000 "," 00 ","012","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," "," 00 00 "," ","013","",""` : @CRLF strCSV = strCSV : `" 0000000"," 00 00"," 0000000"," 00 00"," 00 00"," 00 000","000 00 ","00 ","014","",""` : @CRLF strCSV = strCSV : `"0 00 0"," 0 00 0 "," 0000 ","000 000","000 000"," 0000 "," 0 00 0 ","0 00 0","015","",""` : @CRLF strCSV = strCSV : `"0 ","000 ","00000 ","0000000 ","00000 ","000 ","0 "," ","016","",""` : @CRLF strCSV = strCSV : `" 0 "," 000 "," 00000 ","0000000 "," 00000 "," 000 "," 0 "," ","017","",""` : @CRLF strCSV = strCSV : `" 00 "," 0000 "," 000000 "," 00 "," 00 "," 000000 "," 0000 "," 00 ","018","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," "," 00 00 "," ","019","",""` : @CRLF strCSV = strCSV : `" 0000000","00 00 00","00 00 00"," 0000 00"," 00 00"," 00 00"," 00 00"," ","020","",""` : @CRLF strCSV = strCSV : `" 00000 "," 00 00"," 000 "," 00 00 "," 00 00 "," 000 ","00 00 "," 0000 ","021","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," 000000 "," 000000 "," 000000 "," ","022","",""` : @CRLF strCSV = strCSV : `" 00 "," 0000 "," 000000 "," 00 "," 000000 "," 0000 "," 00 ","00000000","023","",""` : @CRLF strCSV = strCSV : `" 00 "," 0000 "," 000000 "," 00 "," 00 "," 00 "," 00 "," ","024","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 000000 "," 0000 "," 00 "," ","025","",""` : @CRLF strCSV = strCSV : `" "," 00 "," 00 ","0000000 "," 00 "," 00 "," "," ","026","",""` : @CRLF strCSV = strCSV : `" "," 00 "," 00 ","0000000 "," 00 "," 00 "," "," ","027","",""` : @CRLF strCSV = strCSV : `" "," ","00 ","00 ","00 ","0000000 "," "," ","028","",""` : @CRLF strCSV = strCSV : `" "," 0 0 "," 00 00 ","00000000"," 00 00 "," 0 0 "," "," ","029","",""` : @CRLF strCSV = strCSV : `" "," 00 "," 0000 "," 000000 ","00000000","00000000"," "," ","030","",""` : @CRLF strCSV = strCSV : `" ","00000000","00000000"," 000000 "," 0000 "," 00 "," "," ","031","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," "," "," "," ","032"," ","Blank"` : @CRLF strCSV = strCSV : `" 00 "," 0000 "," 0000 "," 00 "," 00 "," "," 00 "," ","033","!","Exclamation Mark"` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," "," "," "," "," ","034",",","Double Quote"` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 ","0000000 "," 00 00 ","0000000 "," 00 00 "," 00 00 "," ","035","#","Number Sign"` : @CRLF strCSV = strCSV : `" 00 "," 00000 ","00 "," 0000 "," 00 ","00000 "," 00 "," ","036","$","Dollar Sign"` : @CRLF strCSV = strCSV : `" ","00 00 ","00 00 "," 00 "," 00 "," 00 00 ","00 00 "," ","037","%%","Percent Sign"` : @CRLF strCSV = strCSV : `" 000 "," 00 00 "," 000 "," 000 00 ","00 000 ","00 00 "," 000 00 "," ","038","&","Ampersand"` : @CRLF strCSV = strCSV : `" 00 "," 00 ","00 "," "," "," "," "," ","039","'","Single Quote"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," ","040","(","Round Bracket Opened"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," ","041",")","Round Bracket Closed"` : @CRLF strCSV = strCSV : `" "," 00 00 "," 0000 ","00000000"," 0000 "," 00 00 "," "," ","042","*","Star sign"` : @CRLF strCSV = strCSV : `" "," 00 "," 00 ","000000 "," 00 "," 00 "," "," ","043","+","Plus Sign"` : @CRLF strCSV = strCSV : `" "," "," "," "," "," 00 "," 00 "," 00 ","044",",","Comma"` : @CRLF strCSV = strCSV : `" "," "," ","000000 "," "," "," "," ","045","-","Minus"` : @CRLF strCSV = strCSV : `" "," "," "," "," "," 00 "," 00 "," ","046",".","Point"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 ","00 ","0 "," ","047","/","Slash"` : @CRLF strCSV = strCSV : `" 00000 ","00 00 ","00 000 ","00 0000 ","0000 00 ","000 00 "," 00000 "," ","048","0","Zero"` : @CRLF strCSV = strCSV : `" 00 "," 000 "," 00 "," 00 "," 00 "," 00 ","000000 "," ","049","1","One"` : @CRLF strCSV = strCSV : `" 0000 ","00 00 "," 00 "," 000 "," 00 ","00 00 ","000000 "," ","050","2","Two"` : @CRLF strCSV = strCSV : `" 0000 ","00 00 "," 00 "," 000 "," 00 ","00 00 "," 0000 "," ","051","3","Three"` : @CRLF strCSV = strCSV : `" 000 "," 0000 "," 00 00 ","00 00 ","0000000 "," 00 "," 0000 "," ","052","4","Four"` : @CRLF strCSV = strCSV : `"000000 ","00 ","00000 "," 00 "," 00 ","00 00 "," 0000 "," ","053","5","Five"` : @CRLF strCSV = strCSV : `" 000 "," 00 ","00 ","00000 ","00 00 ","00 00 "," 0000 "," ","054","6","Six"` : @CRLF strCSV = strCSV : `"000000 ","00 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," ","055","7","Seven"` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","00 00 "," 0000 ","00 00 ","00 00 "," 0000 "," ","056","8","Eight"` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","00 00 "," 00000 "," 00 "," 00 "," 000 "," ","057","9","Nine"` : @CRLF strCSV = strCSV : `" "," 00 "," 00 "," "," "," 00 "," 00 "," ","058",":","Colon"` : @CRLF strCSV = strCSV : `" "," 00 "," 00 "," "," "," 00 "," 00 "," 00 ","059",";","Semicolon"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 ","00 "," 00 "," 00 "," 00 "," ","060","<","Left Angle Bracket"` : @CRLF strCSV = strCSV : `" "," ","000000 "," "," ","000000 "," "," ","061","=","Equal Sign"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," ","062",">","Right Angle Bracket"` : @CRLF strCSV = strCSV : `" 0000 ","00 00 "," 00 "," 00 "," 00 "," "," 00 "," ","063","?","Question Mark"` : @CRLF strCSV = strCSV : `" 00000 ","00 00 ","00 0000 ","00 0000 ","00 0000 ","00 "," 0000 "," ","064","@","Commercial At"` : @CRLF strCSV = strCSV : `" 00 "," 0000 ","00 00 ","00 00 ","000000 ","00 00 ","00 00 "," ","065","A",""` : @CRLF strCSV = strCSV : `"000000 "," 00 00 "," 00 00 "," 00000 "," 00 00 "," 00 00 ","000000 "," ","066","B",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 00 ","00 ","00 ","00 "," 00 00 "," 0000 "," ","067","C",""` : @CRLF strCSV = strCSV : `"00000 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 ","00000 "," ","068","D",""` : @CRLF strCSV = strCSV : `"0000000 "," 00 0 "," 00 0 "," 0000 "," 00 0 "," 00 0 ","0000000 "," ","069","E",""` : @CRLF strCSV = strCSV : `"0000000 "," 00 0 "," 00 0 "," 0000 "," 00 0 "," 00 ","0000 "," ","070","F",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 00 ","00 ","00 ","00 000 "," 00 00 "," 00000 "," ","071","G",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 ","00 00 ","000000 ","00 00 ","00 00 ","00 00 "," ","072","H",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 "," 00 "," 00 "," 00 "," 00 "," 0000 "," ","073","I",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 "," 00 "," 00 ","00 00 ","00 00 "," 0000 "," ","074","J",""` : @CRLF strCSV = strCSV : `"000 00 "," 00 00 "," 00 00 "," 0000 "," 00 00 "," 00 00 ","000 00 "," ","075","K",""` : @CRLF strCSV = strCSV : `"0000 "," 00 "," 00 "," 00 "," 00 0 "," 00 00 ","0000000 "," ","076","L",""` : @CRLF strCSV = strCSV : `"00 00 ","000 000 ","0000000 ","0000000 ","00 0 00 ","00 00 ","00 00 "," ","077","M",""` : @CRLF strCSV = strCSV : `"00 00 ","000 00 ","0000 00 ","00 0000 ","00 000 ","00 00 ","00 00 "," ","078","N",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 ","00 00 ","00 00 ","00 00 "," 00 00 "," 000 "," ","079","O",""` : @CRLF strCSV = strCSV : `"000000 "," 00 00 "," 00 00 "," 00000 "," 00 "," 00 ","0000 "," ","080","P",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","00 00 ","00 00 ","00 000 "," 0000 "," 000 "," ","081","Q",""` : @CRLF strCSV = strCSV : `"000000 "," 00 00 "," 00 00 "," 00000 "," 00 00 "," 00 00 ","000 00 "," ","082","R",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","000 "," 000 "," 000 ","00 00 "," 0000 "," ","083","S",""` : @CRLF strCSV = strCSV : `"000000 ","0 00 0 "," 00 "," 00 "," 00 "," 00 "," 0000 "," ","084","T",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 ","00 00 ","00 00 ","00 00 ","00 00 ","000000 "," ","085","U",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 ","00 00 ","00 00 ","00 00 "," 0000 "," 00 "," ","086","V",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 ","00 00 ","00 0 00 ","0000000 ","000 000 ","00 00 "," ","087","W",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 "," 00 00 "," 000 "," 000 "," 00 00 ","00 00 "," ","088","X",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 ","00 00 "," 0000 "," 00 "," 00 "," 0000 "," ","089","Y",""` : @CRLF strCSV = strCSV : `"0000000 ","00 00 ","0 00 "," 00 "," 00 0 "," 00 00 ","0000000 "," ","090","Z",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 "," 00 "," 00 "," 00 "," 00 "," 0000 "," ","091","[","Left Square Bracket"` : @CRLF strCSV = strCSV : `"00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 0 "," ","092","\","Reverse Solidus"` : @CRLF strCSV = strCSV : `" 0000 "," 00 "," 00 "," 00 "," 00 "," 00 "," 0000 "," ","093","]","Right Square Btracket"` : @CRLF strCSV = strCSV : `" 0 "," 000 "," 00 00 ","00 00 "," "," "," "," ","094","^","Circumflex Accent"` : @CRLF strCSV = strCSV : `" "," "," "," "," "," "," ","00000000","095","_","Low Line"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," "," "," "," "," ","096","` : '`' : `","Grave Accent"` : @CRLF strCSV = strCSV : `" "," "," 0000 "," 00 "," 00000 ","00 00 "," 000 00 "," ","097","a",""` : @CRLF strCSV = strCSV : `"000 "," 00 "," 00 "," 00000 "," 00 00 "," 00 00 ","00 000 "," ","098","b",""` : @CRLF strCSV = strCSV : `" "," "," 0000 ","00 00 ","00 ","00 00 "," 0000 "," ","099","c",""` : @CRLF strCSV = strCSV : `" 000 "," 00 "," 00 "," 00000 ","00 00 ","00 00 "," 000 00 "," ","100","d",""` : @CRLF strCSV = strCSV : `" "," "," 0000 ","00 00 ","000000 ","00 "," 0000 "," ","101","e",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 "," 00 ","0000 "," 00 "," 00 ","0000 "," ","102","f",""` : @CRLF strCSV = strCSV : `" "," "," 000 00 ","00 00 ","00 00 "," 00000 "," 00 ","00000 ","103","g",""` : @CRLF strCSV = strCSV : `"000 "," 00 "," 00 00 "," 000 00 "," 00 00 "," 00 00 ","000 00 "," ","104","h",""` : @CRLF strCSV = strCSV : `" 00 "," "," 000 "," 00 "," 00 "," 00 "," 0000 "," ","105","i",""` : @CRLF strCSV = strCSV : `" 00 "," "," 00 "," 00 "," 00 ","00 00 ","00 00 "," 0000 ","106","j",""` : @CRLF strCSV = strCSV : `"000 "," 00 "," 00 00 "," 00 00 "," 0000 "," 00 00 ","000 00 "," ","107","k",""` : @CRLF strCSV = strCSV : `" 000 "," 00 "," 00 "," 00 "," 00 "," 00 "," 0000 "," ","108","l",""` : @CRLF strCSV = strCSV : `" "," ","00 00 ","0000000 ","0000000 ","00 0 00 ","00 00 "," ","109","m",""` : @CRLF strCSV = strCSV : `" "," ","00000 ","00 00 ","00 00 ","00 00 ","00 00 "," ","110","n",""` : @CRLF strCSV = strCSV : `" "," "," 0000 ","00 00 ","00 00 ","00 00 "," 0000 "," ","111","o",""` : @CRLF strCSV = strCSV : `" "," ","00 000 "," 00 00 "," 00 00 "," 00000 "," 00 ","0000 ","112","p",""` : @CRLF strCSV = strCSV : `" "," "," 000 00 ","00 00 ","00 00 "," 00000 "," 00 "," 0000 ","113","q",""` : @CRLF strCSV = strCSV : `" "," ","00 000 "," 000 00 "," 00 00 "," 00 ","0000 "," ","114","r",""` : @CRLF strCSV = strCSV : `" "," "," 00000 ","00 "," 0000 "," 00 ","00000 "," ","115","s",""` : @CRLF strCSV = strCSV : `" 0 "," 00 "," 00000 "," 00 "," 00 "," 00 0 "," 00 "," ","116","t",""` : @CRLF strCSV = strCSV : `" "," ","00 00 ","00 00 ","00 00 ","00 00 "," 000 00 "," ","117","u",""` : @CRLF strCSV = strCSV : `" "," ","00 00 ","00 00 ","00 00 "," 0000 "," 00 "," ","118","v",""` : @CRLF strCSV = strCSV : `" "," ","00 00 ","00 0 00 ","0000000 ","0000000 "," 00 00 "," ","119","w",""` : @CRLF strCSV = strCSV : `" "," ","00 00 "," 00 00 "," 000 "," 00 00 ","00 00 "," ","120","x",""` : @CRLF strCSV = strCSV : `" "," ","00 00 ","00 00 ","00 00 "," 00000 "," 00 ","00000 ","121","y",""` : @CRLF strCSV = strCSV : `" "," ","000000 ","0 00 "," 00 "," 00 0 ","000000 "," ","122","z",""` : @CRLF strCSV = strCSV : `" 000 "," 00 "," 00 ","000 "," 00 "," 00 "," 000 "," ","123","{","Left Curly Bracket"` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," "," 00 "," 00 "," 00 "," ","124","|","Vertical Line"` : @CRLF strCSV = strCSV : `"000 "," 00 "," 00 "," 000 "," 00 "," 00 ","000 "," ","125","}","Right Curly Bracket"` : @CRLF strCSV = strCSV : `" 000 00 ","00 000 "," "," "," "," "," "," ","126","~","Tilde"` : @CRLF strCSV = strCSV : `" "," 0 "," 000 "," 00 00 ","00 00 ","00 00 ","0000000 "," ","127","",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","00 ","00 00 "," 0000 "," 00 "," 00 "," 0000 ","128","",""` : @CRLF strCSV = strCSV : `" ","00 00 "," ","00 00 ","00 00 ","00 00 "," 000000 "," ","129","",""` : @CRLF strCSV = strCSV : `" 000 "," "," 0000 ","00 00 ","000000 ","00 "," 0000 "," ","130","",""` : @CRLF strCSV = strCSV : `" 000000 ","00 00"," 0000 "," 00 "," 00000 "," 00 00 "," 000000"," ","131","",""` : @CRLF strCSV = strCSV : `"00 00 "," "," 0000 "," 00 "," 00000 ","00 00 "," 000000 "," ","132","",""` : @CRLF strCSV = strCSV : `"000 "," "," 0000 "," 00 "," 00000 ","00 00 "," 000000 "," ","133","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 0000 "," 00 "," 00000 ","00 00 "," 000000 "," ","134","",""` : @CRLF strCSV = strCSV : `" "," "," 0000 ","00 ","00 "," 0000 "," 00 "," 000 ","135","",""` : @CRLF strCSV = strCSV : `" 000000 ","00 00"," 0000 "," 00 00 "," 000000 "," 00 "," 0000 "," ","136","",""` : @CRLF strCSV = strCSV : `"00 00 "," "," 0000 ","00 00 ","000000 ","00 "," 0000 "," ","137","",""` : @CRLF strCSV = strCSV : `"000 "," "," 0000 ","00 00 ","000000 ","00 "," 0000 "," ","138","",""` : @CRLF strCSV = strCSV : `"00 00 "," "," 000 "," 00 "," 00 "," 00 "," 0000 "," ","139","",""` : @CRLF strCSV = strCSV : `" 00000 ","00 00 "," 000 "," 00 "," 00 "," 00 "," 0000 "," ","140","",""` : @CRLF strCSV = strCSV : `"000 "," "," 000 "," 00 "," 00 "," 00 "," 0000 "," ","141","",""` : @CRLF strCSV = strCSV : `"00 00 "," 000 "," 00 00 ","00 00 ","0000000 ","00 00 ","00 00 "," ","142","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," "," 0000 ","00 00 ","000000 ","00 00 "," ","143","",""` : @CRLF strCSV = strCSV : `" 000 "," ","000000 "," 00 "," 0000 "," 00 ","000000 "," ","144","",""` : @CRLF strCSV = strCSV : `" "," "," 0000000"," 00 "," 0000000","00 00 "," 0000000"," ","145","",""` : @CRLF strCSV = strCSV : `" 00000 "," 00 00 ","00 00 ","0000000 ","00 00 ","00 00 ","00 000 "," ","146","",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 "," "," 0000 ","00 00 ","00 00 "," 0000 "," ","147","",""` : @CRLF strCSV = strCSV : `" ","00 00 "," "," 0000 ","00 00 ","00 00 "," 0000 "," ","148","",""` : @CRLF strCSV = strCSV : `" ","000 "," "," 0000 ","00 00 ","00 00 "," 0000 "," ","149","",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 "," ","00 00 ","00 00 ","00 00 "," 000000 "," ","150","",""` : @CRLF strCSV = strCSV : `" ","000 "," ","00 00 ","00 00 ","00 00 "," 000000 "," ","151","",""` : @CRLF strCSV = strCSV : `" ","00 00 "," ","00 00 ","00 00 "," 00000 "," 00 ","00000 ","152","",""` : @CRLF strCSV = strCSV : `"00 00"," 00 "," 0000 "," 00 00 "," 00 00 "," 0000 "," 00 "," ","153","",""` : @CRLF strCSV = strCSV : `"00 00 "," ","00 00 ","00 00 ","00 00 ","00 00 "," 0000 "," ","154","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 000000 ","00 ","00 "," 000000 "," 00 "," 00 ","155","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 "," 00 0 ","0000 "," 00 ","000 00 ","000000 "," ","156","",""` : @CRLF strCSV = strCSV : `"00 00 ","00 00 "," 0000 ","000000 "," 00 ","000000 "," 00 "," 00 ","157","",""` : @CRLF strCSV = strCSV : `"00000 ","00 00 ","00 00 ","00000 0 ","00 00 ","00 0000","00 00 ","00 000","158","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00"," 00 "," 0000 "," 00 "," 00 ","00 00 "," 000 ","159","",""` : @CRLF strCSV = strCSV : `" 000 "," "," 0000 "," 00 "," 00000 ","00 00 "," 000000 "," ","160","",""` : @CRLF strCSV = strCSV : `" 000 "," "," 000 "," 00 "," 00 "," 00 "," 0000 "," ","161","",""` : @CRLF strCSV = strCSV : `" "," 000 "," "," 0000 ","00 00 ","00 00 "," 0000 "," ","162","",""` : @CRLF strCSV = strCSV : `" "," 000 "," ","00 00 ","00 00 ","00 00 "," 000000 "," ","163","",""` : @CRLF strCSV = strCSV : `" ","00000 "," ","00000 ","00 00 ","00 00 ","00 00 "," ","164","",""` : @CRLF strCSV = strCSV : `"000000 "," ","00 00 ","000 00 ","000000 ","00 000 ","00 00 "," ","165","",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 00 "," 00 00 "," 00000 "," "," 000000 "," "," ","166","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 "," 00 00 "," 000 "," "," 00000 "," "," ","167","",""` : @CRLF strCSV = strCSV : `" 00 "," "," 00 "," 00 ","00 ","00 00 "," 0000 "," ","168","",""` : @CRLF strCSV = strCSV : `" "," "," ","000000 ","00 ","00 "," "," ","169","",""` : @CRLF strCSV = strCSV : `" "," "," ","000000 "," 00 "," 00 "," "," ","170","",""` : @CRLF strCSV = strCSV : `"00 00","00 00 ","00 00 ","00 0000 "," 00 00"," 00 00 ","00 00 "," 0000","171","",""` : @CRLF strCSV = strCSV : `"00 00","00 00 ","00 00 ","00 00 00"," 00 000"," 00 0000","00 0000"," 00","172","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," "," 00 "," 00 "," 00 "," 00 "," ","173","",""` : @CRLF strCSV = strCSV : `" "," 00 00"," 00 00 ","00 00 "," 00 00 "," 00 00"," "," ","174","",""` : @CRLF strCSV = strCSV : `" ","00 00 "," 00 00 "," 00 00"," 00 00 ","00 00 "," "," ","175","",""` : @CRLF strCSV = strCSV : `" 0 0 ","0 0 "," 0 0 ","0 0 "," 0 0 ","0 0 "," 0 0 ","0 0 ","176","",""` : @CRLF strCSV = strCSV : `" 0 0 0 0","0 0 0 0 "," 0 0 0 0","0 0 0 0 "," 0 0 0 0","0 0 0 0 "," 0 0 0 0","0 0 0 0 ","177","",""` : @CRLF strCSV = strCSV : `"00 00 00"," 000 000","00 00 00","000 000 ","00 00 00"," 000 000","00 00 00","000 000 ","178","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 00 "," 00 ","179","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 ","00000 "," 00 "," 00 "," 00 ","180","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 ","00000 "," 00 ","00000 "," 00 "," 00 "," 00 ","181","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 ","0000 00 "," 00 00 "," 00 00 "," 00 00 ","182","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","0000000 "," 00 00 "," 00 00 "," 00 00 ","183","",""` : @CRLF strCSV = strCSV : `" "," ","00000 "," 00 ","00000 "," 00 "," 00 "," 00 ","184","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 ","0000 00 "," 00 ","0000 00 "," 00 00 "," 00 00 "," 00 00 ","185","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 ","186","",""` : @CRLF strCSV = strCSV : `" "," ","0000000 "," 00 ","0000 00 "," 00 00 "," 00 00 "," 00 00 ","187","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 ","0000 00 "," 00 ","0000000 "," "," "," ","188","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 ","0000000 "," "," "," ","189","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 ","00000 "," 00 ","00000 "," "," "," ","190","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","00000 "," 00 "," 00 "," 00 ","191","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00000"," "," "," ","192","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 ","00000000"," "," "," ","193","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","00000000"," 00 "," 00 "," 00 ","194","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00000"," 00 "," 00 "," 00 ","195","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","00000000"," "," "," ","196","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 ","00000000"," 00 "," 00 "," 00 ","197","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00000"," 00 "," 00000"," 00 "," 00 "," 00 ","198","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 000"," 00 00 "," 00 00 "," 00 00 ","199","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 000"," 00 "," 000000"," "," "," ","200","",""` : @CRLF strCSV = strCSV : `" "," "," 000000"," 00 "," 00 000"," 00 00 "," 00 00 "," 00 00 ","201","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 ","0000 000"," ","00000000"," "," "," ","202","",""` : @CRLF strCSV = strCSV : `" "," ","00000000"," ","0000 000"," 00 00 "," 00 00 "," 00 00 ","203","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 000"," 00 "," 00 000"," 00 00 "," 00 00 "," 00 00 ","204","",""` : @CRLF strCSV = strCSV : `" "," ","00000000"," ","00000000"," "," "," ","205","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 ","0000 000"," ","0000 000"," 00 00 "," 00 00 "," 00 00 ","206","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 ","00000000"," ","00000000"," "," "," ","207","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 ","00000000"," "," "," ","208","",""` : @CRLF strCSV = strCSV : `" "," ","00000000"," ","00000000"," 00 "," 00 "," 00 ","209","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","00000000"," 00 00 "," 00 00 "," 00 00 ","210","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 "," 000000"," "," "," ","211","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00000"," 00 "," 00000"," "," "," ","212","",""` : @CRLF strCSV = strCSV : `" "," "," 00000"," 00 "," 00000"," 00 "," 00 "," 00 ","213","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," 000000"," 00 00 "," 00 00 "," 00 00 ","214","",""` : @CRLF strCSV = strCSV : `" 00 00 "," 00 00 "," 00 00 "," 00 00 ","00000000"," 00 00 "," 00 00 "," 00 00 ","215","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 ","00000000"," 00 ","00000000"," 00 "," 00 "," 00 ","216","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 ","00000 "," "," "," ","217","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," 00000"," 00 "," 00 "," 00 ","218","",""` : @CRLF strCSV = strCSV : `"00000000","00000000","00000000","00000000","00000000","00000000","00000000","00000000","219","",""` : @CRLF strCSV = strCSV : `" "," "," "," ","00000000","00000000","00000000","00000000","220","",""` : @CRLF strCSV = strCSV : `"0000 ","0000 ","0000 ","0000 ","0000 ","0000 ","0000 ","0000 ","221","",""` : @CRLF strCSV = strCSV : `" 0000"," 0000"," 0000"," 0000"," 0000"," 0000"," 0000"," 0000","222","",""` : @CRLF strCSV = strCSV : `"00000000","00000000","00000000","00000000"," "," "," "," ","223","",""` : @CRLF strCSV = strCSV : `" "," "," 000 00 ","00 000 ","00 0 ","00 000 "," 000 00 "," ","224","",""` : @CRLF strCSV = strCSV : `" "," 0000 ","00 00 ","00000 ","00 00 ","00000 ","00 ","00 ","225","",""` : @CRLF strCSV = strCSV : `" ","000000 ","00 00 ","00 ","00 ","00 ","00 "," ","226","",""` : @CRLF strCSV = strCSV : `" ","0000000 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," ","227","",""` : @CRLF strCSV = strCSV : `"000000 ","00 00 "," 00 "," 00 "," 00 ","00 00 ","000000 "," ","228","",""` : @CRLF strCSV = strCSV : `" "," "," 000000 ","00 00 ","00 00 ","00 00 "," 000 "," ","229","",""` : @CRLF strCSV = strCSV : `" "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," 00000 "," 00 ","00 ","230","",""` : @CRLF strCSV = strCSV : `" "," 000 00 ","00 000 "," 00 "," 00 "," 00 "," 00 "," ","231","",""` : @CRLF strCSV = strCSV : `"000000 "," 00 "," 0000 ","00 00 ","00 00 "," 0000 "," 00 ","000000 ","232","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 ","00 00 ","0000000 ","00 00 "," 00 00 "," 000 "," ","233","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 ","00 00 ","00 00 "," 00 00 "," 00 00 ","000 000 "," ","234","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 "," 00 "," 00000 ","00 00 ","00 00 "," 0000 "," ","235","",""` : @CRLF strCSV = strCSV : `" "," "," 000000 ","00 00 00","00 00 00"," 000000 "," "," ","236","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 000000 ","00 00 00","00 00 00"," 000000 "," 00 ","00 ","237","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 ","00 ","00000 ","00 "," 00 "," 000 "," ","238","",""` : @CRLF strCSV = strCSV : `" 0000 ","00 00 ","00 00 ","00 00 ","00 00 ","00 00 ","00 00 "," ","239","",""` : @CRLF strCSV = strCSV : `" ","000000 "," ","000000 "," ","000000 "," "," ","240","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 ","000000 "," 00 "," 00 "," ","000000 "," ","241","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," ","000000 "," ","242","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 "," ","000000 "," ","243","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00"," 00 00"," 00 "," 00 "," 00 "," 00 "," 00 ","244","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," 00 "," 00 "," 00 ","00 00 ","00 00 "," 000 ","245","",""` : @CRLF strCSV = strCSV : `" 00 "," 00 "," ","000000 "," "," 00 "," 00 "," ","246","",""` : @CRLF strCSV = strCSV : `" "," 000 00 ","00 000 "," "," 000 00 ","00 000 "," "," ","247","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 00 "," 00 00 "," 000 "," "," "," "," ","248","",""` : @CRLF strCSV = strCSV : `" "," "," "," 00 "," 00 "," "," "," ","249","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," 00 "," "," "," ","250","",""` : @CRLF strCSV = strCSV : `" 0000"," 00 "," 00 "," 00 ","000 00 "," 00 00 "," 0000 "," 000 ","251","",""` : @CRLF strCSV = strCSV : `" 0000 "," 00 00 "," 00 00 "," 00 00 "," 00 00 "," "," "," ","252","",""` : @CRLF strCSV = strCSV : `" 000 "," 00 "," 00 "," 00 "," 0000 "," "," "," ","253","",""` : @CRLF strCSV = strCSV : `" "," "," 0000 "," 0000 "," 0000 "," 0000 "," "," ","254","",""` : @CRLF strCSV = strCSV : `" "," "," "," "," "," "," "," ","255","",""` : @CRLF strFileTemp = FileCreateTemp ("WB.") FilePut (strFileTemp, strCSV) arrChars = ArrayFileGetCSV (strFileTemp, 0) FileDelete (strFileTemp) Drop (strFileTemp, strCSV) Return ;.......................................................................................................................................... ; This Function "udfStrBanner" returns a 'Bannerstring'. ; ; Parameters: ; strText ....... The text string to be printed. ; strFillChar ... The character to be used as the print point character, can be an empty string. ;.......................................................................................................................................... ; Detlev Dalitz.20111215. ;.......................................................................................................................................... #EndFunction ;------------------------------------------------------------------------------------------------------------------------------------------ ; Test. DirChange (DirScript ()) :Test1 strText = "^#1+2,0%% & 0.00_($)|" strBanner = udfStrBanner (strText, "0") ; Set all banner print points to zero character. IntControl (63, 0, 100, 999, 400) IntControl (28, 1, 0, 0, 0) AskItemlist ("Demo udfStrBanner (strText, strFillChar)", StrReplace (strBanner, @CRLF, @TAB), @TAB, @UNSORTED, @SINGLE) :Test2 strText = "^#1+2,0%% = 0.00_($)|" strBanner = udfStrBanner (strText, "") ; All banner chars have their individual print point character. IntControl (63, 0, 100, 999, 400) IntControl (28, 1, 0, 0, 0) AskItemlist ("Demo udfStrBanner (strText, strFillChar)", StrReplace (strBanner, @CRLF, @TAB), @TAB, @UNSORTED, @SINGLE) :Test3 strText = "That's a Banner!" strBanner = udfStrBanner (strText, "") ; All banner chars have their individual print point character. IntControl (63, 0, 100, 999, 400) IntControl (28, 1, 0, 0, 0) AskItemlist ("Demo udfStrBanner (strText, strFillChar)", StrReplace (strBanner, @CRLF, @TAB), @TAB, @UNSORTED, @SINGLE) :Test4 strText = "That's a Banner!" strBanner = udfStrBanner (strText, "0") ; Set all banner print points to zero character. IntControl (63, 0, 100, 999, 400) IntControl (28, 1, 0, 0, 0) AskItemlist ("Demo udfStrBanner (strText, strFillChar)", StrReplace (strBanner, @CRLF, @TAB), @TAB, @UNSORTED, @SINGLE) :Test5 strText = "*** THE END ***" strBanner = udfStrBanner (strText, "*") ; Set all banner print points to star character. IntControl (63, 0, 100, 999, 400) IntControl (28, 1, 0, 0, 0) AskItemlist ("Demo udfStrBanner (strText, strFillChar)", StrReplace (strBanner, @CRLF, @TAB), @TAB, @UNSORTED, @SINGLE) :CANCEL Exit ;------------------------------------------------------------------------------------------------------------------------------------------ ; Examples ;------------------------------------------------------------------------------------------------------------------------------------------ ; ; strFillChar = "" ; ; TTTTTT hhh t '' BBBBBB !! ; T TT T hh tt '' BB BB !!!! ; TT hh hh aaaa ttttt '' sssss aaaa BB BB aaaa nnnnn nnnnn eeee rr rrr !!!! ; TT hhh hh aa tt ss aa BBBBB aa nn nn nn nn ee ee rrr rr !! ; TT hh hh aaaaa tt ssss aaaaa BB BB aaaaa nn nn nn nn eeeeee rr rr !! ; TT hh hh aa aa tt t ss aa aa BB BB aa aa nn nn nn nn ee rr ; TTTT hhh hh aaa aa tt sssss aaa aa BBBBBB aaa aa nn nn nn nn eeee rrrr !! ; ;------------------------------------------------------------------------------------------------------------------------------------------ ; ; strFillChar = "0" ; ; 000000 000 0 00 000000 00 ; 0 00 0 00 00 00 00 00 0000 ; 00 00 00 0000 00000 00 00000 0000 00 00 0000 00000 00000 0000 00 000 0000 ; 00 000 00 00 00 00 00 00000 00 00 00 00 00 00 00 000 00 00 ; 00 00 00 00000 00 0000 00000 00 00 00000 00 00 00 00 000000 00 00 00 ; 00 00 00 00 00 00 0 00 00 00 00 00 00 00 00 00 00 00 00 00 ; 0000 000 00 000 00 00 00000 000 00 000000 000 00 00 00 00 00 0000 0000 00 ; ;------------------------------------------------------------------------------------------------------------------------------------------ ; ; strFillChar = "*" ; ; ****** *** * ** ****** ** ; * ** * ** ** ** ** ** **** ; ** ** ** **** ***** ** ***** **** ** ** **** ***** ***** **** ** *** **** ; ** *** ** ** ** ** ** ***** ** ** ** ** ** ** ** *** ** ** ; ** ** ** ***** ** **** ***** ** ** ***** ** ** ** ** ****** ** ** ** ; ** ** ** ** ** ** * ** ** ** ** ** ** ** ** ** ** ** ** ** ; **** *** ** *** ** ** ***** *** ** ****** *** ** ** ** ** ** **** **** ** ; ;------------------------------------------------------------------------------------------------------------------------------------------ ; ; strFillChar = "#" ; ; ###### ### # ## ###### ## ; # ## # ## ## ## ## ## #### ; ## ## ## #### ##### ## ##### #### ## ## #### ##### ##### #### ## ### #### ; ## ### ## ## ## ## ## ##### ## ## ## ## ## ## ## ### ## ## ; ## ## ## ##### ## #### ##### ## ## ##### ## ## ## ## ###### ## ## ## ; ## ## ## ## ## ## # ## ## ## ## ## ## ## ## ## ## ## ## ## ; #### ### ## ### ## ## ##### ### ## ###### ### ## ## ## ## ## #### #### ## ; ;------------------------------------------------------------------------------------------------------------------------------------------