;------------------------------------------------------------------------------------------------------------------------------------------ #DefineFunction udfStrBanner (strText, strFillChar) If strText == "" Then Return "" strDelim = Num2Char (255) ; This character cannot be used for printing. ; 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) intWorkLen = StrLen (strWork) For intPos = 1 To intWorkLen intNum = Char2Num (StrSub (strWork, intPos, 1)) GoSub ch%intNum% ; Gosub DefineBannerChars. ch%intNum% = StrReplace (ch%intNum%, ",", strDelim) Next If strFillChar == "" ; Set individual banner print points. For intPos = 1 To intWorkLen intNum = Char2Num (StrSub (strWork, intPos, 1)) ch%intNum% = StrReplace (ch%intNum%, "0", Num2Char (intNum)) Next EndIf strBanner = "" intLen = StrLen (strText) For intLine = 1 To 8 strLine = "" For intPos = 1 To intLen intNum = Char2Num (StrSub (strText, intPos, 1)) strLine = strLine : ItemExtract (intLine, ch%intNum%, strDelim) 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 ;------------------------------------------------------------------------------------------------------------------------------------------ ; DefineBannerChars ; Character scanlines usually written from top to down here written from left to right. ;------------------------------------------------------------------------------------------------------------------------------------------ :ch1 ch1 = " 000000 ,0 0,0 0 0 0,0 0,0 0000 0,0 00 0,0 0, 000000 " ; "001","","" Return :ch2 ch2 = " 000000 ,00000000,00 00 00,00000000,00 00,000 000,00000000, 000000 " ; "002","","" Return :ch3 ch3 = " 00 00 ,0000000 ,0000000 ,0000000 , 00000 , 000 , 0 , " ; "003","","" Return :ch4 ch4 = " 0 , 000 , 00000 ,0000000 , 00000 , 000 , 0 , " ; "004","","" Return :ch5 ch5 = " 000 , 00000 , 000 ,0000000 ,0000000 , 00000 , 000 , 00000 " ; "005","","" Return :ch6 ch6 = " 0 , 0 , 000 , 00000 ,0000000 , 00000 , 000 , 00000 " ; "006","","" Return :ch7 ch7 = " , , 00 , 0000 , 0000 , 00 , , " ; "007","","" Return :ch8 ch8 = "00000000,00000000,000 000,00 00,00 00,000 000,00000000,00000000" ; "008","","" Return :ch9 ch9 = " , 0000 , 00 00 , 0 0 , 0 0 , 00 00 , 0000 , " ; "009","","" Return :ch10 ch10 = "00000000,00 00,0 00 0,0 0000 0,0 0000 0,0 00 0,00 00,00000000" ; "010","","" Return :ch11 ch11 = " 0000, 000, 0000, 00000 0,00 00 ,00 00 ,00 00 , 0000 " ; "011","","" Return :ch12 ch12 = " 0000 , 00 00 , 00 00 , 00 00 , 0000 , 00 , 000000 , 00 " ; "012","","" Return :ch13 ch13 = " 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , , 00 00 , " ; "013","","" Return :ch14 ch14 = " 0000000, 00 00, 0000000, 00 00, 00 00, 00 000,000 00 ,00 " ; "014","","" Return :ch15 ch15 = "0 00 0, 0 00 0 , 0000 ,000 000,000 000, 0000 , 0 00 0 ,0 00 0" ; "015","","" Return :ch16 ch16 = "0 ,000 ,00000 ,0000000 ,00000 ,000 ,0 , " ; "016","","" Return :ch17 ch17 = " 0 , 000 , 00000 ,0000000 , 00000 , 000 , 0 , " ; "017","","" Return :ch18 ch18 = " 00 , 0000 , 000000 , 00 , 00 , 000000 , 0000 , 00 " ; "018","","" Return :ch19 ch19 = " 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , , 00 00 , " ; "019","","" Return :ch20 ch20 = " 0000000,00 00 00,00 00 00, 0000 00, 00 00, 00 00, 00 00, " ; "020","","" Return :ch21 ch21 = " 00000 , 00 00, 000 , 00 00 , 00 00 , 000 ,00 00 , 0000 " ; "021","","" Return :ch22 ch22 = " , , , , 000000 , 000000 , 000000 , " ; "022","","" Return :ch23 ch23 = " 00 , 0000 , 000000 , 00 , 000000 , 0000 , 00 ,00000000" ; "023","","" Return :ch24 ch24 = " 00 , 0000 , 000000 , 00 , 00 , 00 , 00 , " ; "024","","" Return :ch25 ch25 = " 00 , 00 , 00 , 00 , 000000 , 0000 , 00 , " ; "025","","" Return :ch26 ch26 = " , 00 , 00 ,0000000 , 00 , 00 , , " ; "026","","" Return :ch27 ch27 = " , 00 , 00 ,0000000 , 00 , 00 , , " ; "027","","" Return :ch28 ch28 = " , ,00 ,00 ,00 ,0000000 , , " ; "028","","" Return :ch29 ch29 = " , 0 0 , 00 00 ,00000000, 00 00 , 0 0 , , " ; "029","","" Return :ch30 ch30 = " , 00 , 0000 , 000000 ,00000000,00000000, , " ; "030","","" Return :ch31 ch31 = " ,00000000,00000000, 000000 , 0000 , 00 , , " ; "031","","" Return :ch32 ch32 = " , , , , , , , " ; "032"," ","Blank" Return :ch33 ch33 = " 00 , 0000 , 0000 , 00 , 00 , , 00 , " ; "033","!","Exclamation Mark" Return :ch34 ch34 = " 00 00 , 00 00 , 00 00 , , , , , " ; "034",",","Double Quote" Return :ch35 ch35 = " 00 00 , 00 00 ,0000000 , 00 00 ,0000000 , 00 00 , 00 00 , " ; "035","#","Number Sign" Return :ch36 ch36 = " 00 , 00000 ,00 , 0000 , 00 ,00000 , 00 , " ; "036","$","Dollar Sign" Return :ch37 ch37 = " ,00 00 ,00 00 , 00 , 00 , 00 00 ,00 00 , " ; "037","%%","Percent Sign" Return :ch38 ch38 = " 000 , 00 00 , 000 , 000 00 ,00 000 ,00 00 , 000 00 , " ; "038","&","Ampersand" Return :ch39 ch39 = " 00 , 00 ,00 , , , , , " ; "039","'","Single Quote" Return :ch40 ch40 = " 00 , 00 , 00 , 00 , 00 , 00 , 00 , " ; "040","(","Round Bracket Opened" Return :ch41 ch41 = " 00 , 00 , 00 , 00 , 00 , 00 , 00 , " ; "041",")","Round Bracket Closed" Return :ch42 ch42 = " , 00 00 , 0000 ,00000000, 0000 , 00 00 , , " ; "042","*","Star sign" Return :ch43 ch43 = " , 00 , 00 ,000000 , 00 , 00 , , " ; "043","+","Plus Sign" Return :ch44 ch44 = " , , , , , 00 , 00 , 00 " ; "044",",","Comma" Return :ch45 ch45 = " , , ,000000 , , , , " ; "045","-","Minus" Return :ch46 ch46 = " , , , , , 00 , 00 , " ; "046",".","Point" Return :ch47 ch47 = " 00 , 00 , 00 , 00 , 00 ,00 ,0 , " ; "047","/","Slash" Return :ch48 ch48 = " 00000 ,00 00 ,00 000 ,00 0000 ,0000 00 ,000 00 , 00000 , " ; "048","0","Zero" Return :ch49 ch49 = " 00 , 000 , 00 , 00 , 00 , 00 ,000000 , " ; "049","1","One" Return :ch50 ch50 = " 0000 ,00 00 , 00 , 000 , 00 ,00 00 ,000000 , " ; "050","2","Two" Return :ch51 ch51 = " 0000 ,00 00 , 00 , 000 , 00 ,00 00 , 0000 , " ; "051","3","Three" Return :ch52 ch52 = " 000 , 0000 , 00 00 ,00 00 ,0000000 , 00 , 0000 , " ; "052","4","Four" Return :ch53 ch53 = "000000 ,00 ,00000 , 00 , 00 ,00 00 , 0000 , " ; "053","5","Five" Return :ch54 ch54 = " 000 , 00 ,00 ,00000 ,00 00 ,00 00 , 0000 , " ; "054","6","Six" Return :ch55 ch55 = "000000 ,00 00 , 00 , 00 , 00 , 00 , 00 , " ; "055","7","Seven" Return :ch56 ch56 = " 0000 ,00 00 ,00 00 , 0000 ,00 00 ,00 00 , 0000 , " ; "056","8","Eight" Return :ch57 ch57 = " 0000 ,00 00 ,00 00 , 00000 , 00 , 00 , 000 , " ; "057","9","Nine" Return :ch58 ch58 = " , 00 , 00 , , , 00 , 00 , " ; "058",":","Colon" Return :ch59 ch59 = " , 00 , 00 , , , 00 , 00 , 00 " ; "059",";","Semicolon" Return :ch60 ch60 = " 00 , 00 , 00 ,00 , 00 , 00 , 00 , " ; "060","<","Left Angle Bracket" Return :ch61 ch61 = " , ,000000 , , ,000000 , , " ; "061","=","Equal Sign" Return :ch62 ch62 = " 00 , 00 , 00 , 00 , 00 , 00 , 00 , " ; "062",">","Right Angle Bracket" Return :ch63 ch63 = " 0000 ,00 00 , 00 , 00 , 00 , , 00 , " ; "063","?","Question Mark" Return :ch64 ch64 = " 00000 ,00 00 ,00 0000 ,00 0000 ,00 0000 ,00 , 0000 , " ; "064","@","Commercial At" Return :ch65 ch65 = " 00 , 0000 ,00 00 ,00 00 ,000000 ,00 00 ,00 00 , " ; "065","A","" Return :ch66 ch66 = "000000 , 00 00 , 00 00 , 00000 , 00 00 , 00 00 ,000000 , " ; "066","B","" Return :ch67 ch67 = " 0000 , 00 00 ,00 ,00 ,00 , 00 00 , 0000 , " ; "067","C","" Return :ch68 ch68 = "00000 , 00 00 , 00 00 , 00 00 , 00 00 , 00 00 ,00000 , " ; "068","D","" Return :ch69 ch69 = "0000000 , 00 0 , 00 0 , 0000 , 00 0 , 00 0 ,0000000 , " ; "069","E","" Return :ch70 ch70 = "0000000 , 00 0 , 00 0 , 0000 , 00 0 , 00 ,0000 , " ; "070","F","" Return :ch71 ch71 = " 0000 , 00 00 ,00 ,00 ,00 000 , 00 00 , 00000 , " ; "071","G","" Return :ch72 ch72 = "00 00 ,00 00 ,00 00 ,000000 ,00 00 ,00 00 ,00 00 , " ; "072","H","" Return :ch73 ch73 = " 0000 , 00 , 00 , 00 , 00 , 00 , 0000 , " ; "073","I","" Return :ch74 ch74 = " 0000 , 00 , 00 , 00 ,00 00 ,00 00 , 0000 , " ; "074","J","" Return :ch75 ch75 = "000 00 , 00 00 , 00 00 , 0000 , 00 00 , 00 00 ,000 00 , " ; "075","K","" Return :ch76 ch76 = "0000 , 00 , 00 , 00 , 00 0 , 00 00 ,0000000 , " ; "076","L","" Return :ch77 ch77 = "00 00 ,000 000 ,0000000 ,0000000 ,00 0 00 ,00 00 ,00 00 , " ; "077","M","" Return :ch78 ch78 = "00 00 ,000 00 ,0000 00 ,00 0000 ,00 000 ,00 00 ,00 00 , " ; "078","N","" Return :ch79 ch79 = " 000 , 00 00 ,00 00 ,00 00 ,00 00 , 00 00 , 000 , " ; "079","O","" Return :ch80 ch80 = "000000 , 00 00 , 00 00 , 00000 , 00 , 00 ,0000 , " ; "080","P","" Return :ch81 ch81 = " 0000 ,00 00 ,00 00 ,00 00 ,00 000 , 0000 , 000 , " ; "081","Q","" Return :ch82 ch82 = "000000 , 00 00 , 00 00 , 00000 , 00 00 , 00 00 ,000 00 , " ; "082","R","" Return :ch83 ch83 = " 0000 ,00 00 ,000 , 000 , 000 ,00 00 , 0000 , " ; "083","S","" Return :ch84 ch84 = "000000 ,0 00 0 , 00 , 00 , 00 , 00 , 0000 , " ; "084","T","" Return :ch85 ch85 = "00 00 ,00 00 ,00 00 ,00 00 ,00 00 ,00 00 ,000000 , " ; "085","U","" Return :ch86 ch86 = "00 00 ,00 00 ,00 00 ,00 00 ,00 00 , 0000 , 00 , " ; "086","V","" Return :ch87 ch87 = "00 00 ,00 00 ,00 00 ,00 0 00 ,0000000 ,000 000 ,00 00 , " ; "087","W","" Return :ch88 ch88 = "00 00 ,00 00 , 00 00 , 000 , 000 , 00 00 ,00 00 , " ; "088","X","" Return :ch89 ch89 = "00 00 ,00 00 ,00 00 , 0000 , 00 , 00 , 0000 , " ; "089","Y","" Return :ch90 ch90 = "0000000 ,00 00 ,0 00 , 00 , 00 0 , 00 00 ,0000000 , " ; "090","Z","" Return :ch91 ch91 = " 0000 , 00 , 00 , 00 , 00 , 00 , 0000 , " ; "091","[","Left Square Bracket" Return :ch92 ch92 = "00 , 00 , 00 , 00 , 00 , 00 , 0 , " ; "092","\","Reverse Solidus" Return :ch93 ch93 = " 0000 , 00 , 00 , 00 , 00 , 00 , 0000 , " ; "093","]","Right Square Btracket" Return :ch94 ch94 = " 0 , 000 , 00 00 ,00 00 , , , , " ; "094","^","Circumflex Accent" Return :ch95 ch95 = " , , , , , , ,00000000" ; "095","_","Low Line" Return :ch96 ch96 = " 00 , 00 , 00 , , , , , " ; "096"," : '' : ","Grave Accent" Return :ch97 ch97 = " , , 0000 , 00 , 00000 ,00 00 , 000 00 , " ; "097","a","" Return :ch98 ch98 = "000 , 00 , 00 , 00000 , 00 00 , 00 00 ,00 000 , " ; "098","b","" Return :ch99 ch99 = " , , 0000 ,00 00 ,00 ,00 00 , 0000 , " ; "099","c","" Return :ch100 ch100 = " 000 , 00 , 00 , 00000 ,00 00 ,00 00 , 000 00 , " ; "100","d","" Return :ch101 ch101 = " , , 0000 ,00 00 ,000000 ,00 , 0000 , " ; "101","e","" Return :ch102 ch102 = " 000 , 00 00 , 00 ,0000 , 00 , 00 ,0000 , " ; "102","f","" Return :ch103 ch103 = " , , 000 00 ,00 00 ,00 00 , 00000 , 00 ,00000 " ; "103","g","" Return :ch104 ch104 = "000 , 00 , 00 00 , 000 00 , 00 00 , 00 00 ,000 00 , " ; "104","h","" Return :ch105 ch105 = " 00 , , 000 , 00 , 00 , 00 , 0000 , " ; "105","i","" Return :ch106 ch106 = " 00 , , 00 , 00 , 00 ,00 00 ,00 00 , 0000 " ; "106","j","" Return :ch107 ch107 = "000 , 00 , 00 00 , 00 00 , 0000 , 00 00 ,000 00 , " ; "107","k","" Return :ch108 ch108 = " 000 , 00 , 00 , 00 , 00 , 00 , 0000 , " ; "108","l","" Return :ch109 ch109 = " , ,00 00 ,0000000 ,0000000 ,00 0 00 ,00 00 , " ; "109","m","" Return :ch110 ch110 = " , ,00000 ,00 00 ,00 00 ,00 00 ,00 00 , " ; "110","n","" Return :ch111 ch111 = " , , 0000 ,00 00 ,00 00 ,00 00 , 0000 , " ; "111","o","" Return :ch112 ch112 = " , ,00 000 , 00 00 , 00 00 , 00000 , 00 ,0000 " ; "112","p","" Return :ch113 ch113 = " , , 000 00 ,00 00 ,00 00 , 00000 , 00 , 0000 " ; "113","q","" Return :ch114 ch114 = " , ,00 000 , 000 00 , 00 00 , 00 ,0000 , " ; "114","r","" Return :ch115 ch115 = " , , 00000 ,00 , 0000 , 00 ,00000 , " ; "115","s","" Return :ch116 ch116 = " 0 , 00 , 00000 , 00 , 00 , 00 0 , 00 , " ; "116","t","" Return :ch117 ch117 = " , ,00 00 ,00 00 ,00 00 ,00 00 , 000 00 , " ; "117","u","" Return :ch118 ch118 = " , ,00 00 ,00 00 ,00 00 , 0000 , 00 , " ; "118","v","" Return :ch119 ch119 = " , ,00 00 ,00 0 00 ,0000000 ,0000000 , 00 00 , " ; "119","w","" Return :ch120 ch120 = " , ,00 00 , 00 00 , 000 , 00 00 ,00 00 , " ; "120","x","" Return :ch121 ch121 = " , ,00 00 ,00 00 ,00 00 , 00000 , 00 ,00000 " ; "121","y","" Return :ch122 ch122 = " , ,000000 ,0 00 , 00 , 00 0 ,000000 , " ; "122","z","" Return :ch123 ch123 = " 000 , 00 , 00 ,000 , 00 , 00 , 000 , " ; "123","{","Left Curly Bracket" Return :ch124 ch124 = " 00 , 00 , 00 , , 00 , 00 , 00 , " ; "124","|","Vertical Line" Return :ch125 ch125 = "000 , 00 , 00 , 000 , 00 , 00 ,000 , " ; "125","}","Right Curly Bracket" Return :ch126 ch126 = " 000 00 ,00 000 , , , , , , " ; "126","~","Tilde" Return :ch127 ch127 = " , 0 , 000 , 00 00 ,00 00 ,00 00 ,0000000 , " ; "127","","" Return :ch128 ch128 = " 0000 ,00 00 ,00 ,00 00 , 0000 , 00 , 00 , 0000 " ; "128","","" Return :ch129 ch129 = " ,00 00 , ,00 00 ,00 00 ,00 00 , 000000 , " ; "129","","" Return :ch130 ch130 = " 000 , , 0000 ,00 00 ,000000 ,00 , 0000 , " ; "130","","" Return :ch131 ch131 = " 000000 ,00 00, 0000 , 00 , 00000 , 00 00 , 000000, " ; "131","","" Return :ch132 ch132 = "00 00 , , 0000 , 00 , 00000 ,00 00 , 000000 , " ; "132","","" Return :ch133 ch133 = "000 , , 0000 , 00 , 00000 ,00 00 , 000000 , " ; "133","","" Return :ch134 ch134 = " 00 , 00 , 0000 , 00 , 00000 ,00 00 , 000000 , " ; "134","","" Return :ch135 ch135 = " , , 0000 ,00 ,00 , 0000 , 00 , 000 " ; "135","","" Return :ch136 ch136 = " 000000 ,00 00, 0000 , 00 00 , 000000 , 00 , 0000 , " ; "136","","" Return :ch137 ch137 = "00 00 , , 0000 ,00 00 ,000000 ,00 , 0000 , " ; "137","","" Return :ch138 ch138 = "000 , , 0000 ,00 00 ,000000 ,00 , 0000 , " ; "138","","" Return :ch139 ch139 = "00 00 , , 000 , 00 , 00 , 00 , 0000 , " ; "139","","" Return :ch140 ch140 = " 00000 ,00 00 , 000 , 00 , 00 , 00 , 0000 , " ; "140","","" Return :ch141 ch141 = "000 , , 000 , 00 , 00 , 00 , 0000 , " ; "141","","" Return :ch142 ch142 = "00 00 , 000 , 00 00 ,00 00 ,0000000 ,00 00 ,00 00 , " ; "142","","" Return :ch143 ch143 = " 00 , 00 , , 0000 ,00 00 ,000000 ,00 00 , " ; "143","","" Return :ch144 ch144 = " 000 , ,000000 , 00 , 0000 , 00 ,000000 , " ; "144","","" Return :ch145 ch145 = " , , 0000000, 00 , 0000000,00 00 , 0000000, " ; "145","","" Return :ch146 ch146 = " 00000 , 00 00 ,00 00 ,0000000 ,00 00 ,00 00 ,00 000 , " ; "146","","" Return :ch147 ch147 = " 0000 ,00 00 , , 0000 ,00 00 ,00 00 , 0000 , " ; "147","","" Return :ch148 ch148 = " ,00 00 , , 0000 ,00 00 ,00 00 , 0000 , " ; "148","","" Return :ch149 ch149 = " ,000 , , 0000 ,00 00 ,00 00 , 0000 , " ; "149","","" Return :ch150 ch150 = " 0000 ,00 00 , ,00 00 ,00 00 ,00 00 , 000000 , " ; "150","","" Return :ch151 ch151 = " ,000 , ,00 00 ,00 00 ,00 00 , 000000 , " ; "151","","" Return :ch152 ch152 = " ,00 00 , ,00 00 ,00 00 , 00000 , 00 ,00000 " ; "152","","" Return :ch153 ch153 = "00 00, 00 , 0000 , 00 00 , 00 00 , 0000 , 00 , " ; "153","","" Return :ch154 ch154 = "00 00 , ,00 00 ,00 00 ,00 00 ,00 00 , 0000 , " ; "154","","" Return :ch155 ch155 = " 00 , 00 , 000000 ,00 ,00 , 000000 , 00 , 00 " ; "155","","" Return :ch156 ch156 = " 000 , 00 00 , 00 0 ,0000 , 00 ,000 00 ,000000 , " ; "156","","" Return :ch157 ch157 = "00 00 ,00 00 , 0000 ,000000 , 00 ,000000 , 00 , 00 " ; "157","","" Return :ch158 ch158 = "00000 ,00 00 ,00 00 ,00000 0 ,00 00 ,00 0000,00 00 ,00 000" ; "158","","" Return :ch159 ch159 = " 000 , 00 00, 00 , 0000 , 00 , 00 ,00 00 , 000 " ; "159","","" Return :ch160 ch160 = " 000 , , 0000 , 00 , 00000 ,00 00 , 000000 , " ; "160","","" Return :ch161 ch161 = " 000 , , 000 , 00 , 00 , 00 , 0000 , " ; "161","","" Return :ch162 ch162 = " , 000 , , 0000 ,00 00 ,00 00 , 0000 , " ; "162","","" Return :ch163 ch163 = " , 000 , ,00 00 ,00 00 ,00 00 , 000000 , " ; "163","","" Return :ch164 ch164 = " ,00000 , ,00000 ,00 00 ,00 00 ,00 00 , " ; "164","","" Return :ch165 ch165 = "000000 , ,00 00 ,000 00 ,000000 ,00 000 ,00 00 , " ; "165","","" Return :ch166 ch166 = " 0000 , 00 00 , 00 00 , 00000 , , 000000 , , " ; "166","","" Return :ch167 ch167 = " 000 , 00 00 , 00 00 , 000 , , 00000 , , " ; "167","","" Return :ch168 ch168 = " 00 , , 00 , 00 ,00 ,00 00 , 0000 , " ; "168","","" Return :ch169 ch169 = " , , ,000000 ,00 ,00 , , " ; "169","","" Return :ch170 ch170 = " , , ,000000 , 00 , 00 , , " ; "170","","" Return :ch171 ch171 = "00 00,00 00 ,00 00 ,00 0000 , 00 00, 00 00 ,00 00 , 0000" ; "171","","" Return :ch172 ch172 = "00 00,00 00 ,00 00 ,00 00 00, 00 000, 00 0000,00 0000, 00" ; "172","","" Return :ch173 ch173 = " 00 , 00 , , 00 , 00 , 00 , 00 , " ; "173","","" Return :ch174 ch174 = " , 00 00, 00 00 ,00 00 , 00 00 , 00 00, , " ; "174","","" Return :ch175 ch175 = " ,00 00 , 00 00 , 00 00, 00 00 ,00 00 , , " ; "175","","" Return :ch176 ch176 = " 0 0 ,0 0 , 0 0 ,0 0 , 0 0 ,0 0 , 0 0 ,0 0 " ; "176","","" Return :ch177 ch177 = " 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","","" Return :ch178 ch178 = "00 00 00, 000 000,00 00 00,000 000 ,00 00 00, 000 000,00 00 00,000 000 " ; "178","","" Return :ch179 ch179 = " 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 " ; "179","","" Return :ch180 ch180 = " 00 , 00 , 00 , 00 ,00000 , 00 , 00 , 00 " ; "180","","" Return :ch181 ch181 = " 00 , 00 ,00000 , 00 ,00000 , 00 , 00 , 00 " ; "181","","" Return :ch182 ch182 = " 00 00 , 00 00 , 00 00 , 00 00 ,0000 00 , 00 00 , 00 00 , 00 00 " ; "182","","" Return :ch183 ch183 = " , , , ,0000000 , 00 00 , 00 00 , 00 00 " ; "183","","" Return :ch184 ch184 = " , ,00000 , 00 ,00000 , 00 , 00 , 00 " ; "184","","" Return :ch185 ch185 = " 00 00 , 00 00 ,0000 00 , 00 ,0000 00 , 00 00 , 00 00 , 00 00 " ; "185","","" Return :ch186 ch186 = " 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , 00 00 " ; "186","","" Return :ch187 ch187 = " , ,0000000 , 00 ,0000 00 , 00 00 , 00 00 , 00 00 " ; "187","","" Return :ch188 ch188 = " 00 00 , 00 00 ,0000 00 , 00 ,0000000 , , , " ; "188","","" Return :ch189 ch189 = " 00 00 , 00 00 , 00 00 , 00 00 ,0000000 , , , " ; "189","","" Return :ch190 ch190 = " 00 , 00 ,00000 , 00 ,00000 , , , " ; "190","","" Return :ch191 ch191 = " , , , ,00000 , 00 , 00 , 00 " ; "191","","" Return :ch192 ch192 = " 00 , 00 , 00 , 00 , 00000, , , " ; "192","","" Return :ch193 ch193 = " 00 , 00 , 00 , 00 ,00000000, , , " ; "193","","" Return :ch194 ch194 = " , , , ,00000000, 00 , 00 , 00 " ; "194","","" Return :ch195 ch195 = " 00 , 00 , 00 , 00 , 00000, 00 , 00 , 00 " ; "195","","" Return :ch196 ch196 = " , , , ,00000000, , , " ; "196","","" Return :ch197 ch197 = " 00 , 00 , 00 , 00 ,00000000, 00 , 00 , 00 " ; "197","","" Return :ch198 ch198 = " 00 , 00 , 00000, 00 , 00000, 00 , 00 , 00 " ; "198","","" Return :ch199 ch199 = " 00 00 , 00 00 , 00 00 , 00 00 , 00 000, 00 00 , 00 00 , 00 00 " ; "199","","" Return :ch200 ch200 = " 00 00 , 00 00 , 00 000, 00 , 000000, , , " ; "200","","" Return :ch201 ch201 = " , , 000000, 00 , 00 000, 00 00 , 00 00 , 00 00 " ; "201","","" Return :ch202 ch202 = " 00 00 , 00 00 ,0000 000, ,00000000, , , " ; "202","","" Return :ch203 ch203 = " , ,00000000, ,0000 000, 00 00 , 00 00 , 00 00 " ; "203","","" Return :ch204 ch204 = " 00 00 , 00 00 , 00 000, 00 , 00 000, 00 00 , 00 00 , 00 00 " ; "204","","" Return :ch205 ch205 = " , ,00000000, ,00000000, , , " ; "205","","" Return :ch206 ch206 = " 00 00 , 00 00 ,0000 000, ,0000 000, 00 00 , 00 00 , 00 00 " ; "206","","" Return :ch207 ch207 = " 00 , 00 ,00000000, ,00000000, , , " ; "207","","" Return :ch208 ch208 = " 00 00 , 00 00 , 00 00 , 00 00 ,00000000, , , " ; "208","","" Return :ch209 ch209 = " , ,00000000, ,00000000, 00 , 00 , 00 " ; "209","","" Return :ch210 ch210 = " , , , ,00000000, 00 00 , 00 00 , 00 00 " ; "210","","" Return :ch211 ch211 = " 00 00 , 00 00 , 00 00 , 00 00 , 000000, , , " ; "211","","" Return :ch212 ch212 = " 00 , 00 , 00000, 00 , 00000, , , " ; "212","","" Return :ch213 ch213 = " , , 00000, 00 , 00000, 00 , 00 , 00 " ; "213","","" Return :ch214 ch214 = " , , , , 000000, 00 00 , 00 00 , 00 00 " ; "214","","" Return :ch215 ch215 = " 00 00 , 00 00 , 00 00 , 00 00 ,00000000, 00 00 , 00 00 , 00 00 " ; "215","","" Return :ch216 ch216 = " 00 , 00 ,00000000, 00 ,00000000, 00 , 00 , 00 " ; "216","","" Return :ch217 ch217 = " 00 , 00 , 00 , 00 ,00000 , , , " ; "217","","" Return :ch218 ch218 = " , , , , 00000, 00 , 00 , 00 " ; "218","","" Return :ch219 ch219 = "00000000,00000000,00000000,00000000,00000000,00000000,00000000,00000000" ; "219","","" Return :ch220 ch220 = " , , , ,00000000,00000000,00000000,00000000" ; "220","","" Return :ch221 ch221 = "0000 ,0000 ,0000 ,0000 ,0000 ,0000 ,0000 ,0000 " ; "221","","" Return :ch222 ch222 = " 0000, 0000, 0000, 0000, 0000, 0000, 0000, 0000" ; "222","","" Return :ch223 ch223 = "00000000,00000000,00000000,00000000, , , , " ; "223","","" Return :ch224 ch224 = " , , 000 00 ,00 000 ,00 0 ,00 000 , 000 00 , " ; "224","","" Return :ch225 ch225 = " , 0000 ,00 00 ,00000 ,00 00 ,00000 ,00 ,00 " ; "225","","" Return :ch226 ch226 = " ,000000 ,00 00 ,00 ,00 ,00 ,00 , " ; "226","","" Return :ch227 ch227 = " ,0000000 , 00 00 , 00 00 , 00 00 , 00 00 , 00 00 , " ; "227","","" Return :ch228 ch228 = "000000 ,00 00 , 00 , 00 , 00 ,00 00 ,000000 , " ; "228","","" Return :ch229 ch229 = " , , 000000 ,00 00 ,00 00 ,00 00 , 000 , " ; "229","","" Return :ch230 ch230 = " , 00 00 , 00 00 , 00 00 , 00 00 , 00000 , 00 ,00 " ; "230","","" Return :ch231 ch231 = " , 000 00 ,00 000 , 00 , 00 , 00 , 00 , " ; "231","","" Return :ch232 ch232 = "000000 , 00 , 0000 ,00 00 ,00 00 , 0000 , 00 ,000000 " ; "232","","" Return :ch233 ch233 = " 000 , 00 00 ,00 00 ,0000000 ,00 00 , 00 00 , 000 , " ; "233","","" Return :ch234 ch234 = " 000 , 00 00 ,00 00 ,00 00 , 00 00 , 00 00 ,000 000 , " ; "234","","" Return :ch235 ch235 = " 000 , 00 , 00 , 00000 ,00 00 ,00 00 , 0000 , " ; "235","","" Return :ch236 ch236 = " , , 000000 ,00 00 00,00 00 00, 000000 , , " ; "236","","" Return :ch237 ch237 = " 00 , 00 , 000000 ,00 00 00,00 00 00, 000000 , 00 ,00 " ; "237","","" Return :ch238 ch238 = " 000 , 00 ,00 ,00000 ,00 , 00 , 000 , " ; "238","","" Return :ch239 ch239 = " 0000 ,00 00 ,00 00 ,00 00 ,00 00 ,00 00 ,00 00 , " ; "239","","" Return :ch240 ch240 = " ,000000 , ,000000 , ,000000 , , " ; "240","","" Return :ch241 ch241 = " 00 , 00 ,000000 , 00 , 00 , ,000000 , " ; "241","","" Return :ch242 ch242 = " 00 , 00 , 00 , 00 , 00 , ,000000 , " ; "242","","" Return :ch243 ch243 = " 00 , 00 , 00 , 00 , 00 , ,000000 , " ; "243","","" Return :ch244 ch244 = " 000 , 00 00, 00 00, 00 , 00 , 00 , 00 , 00 " ; "244","","" Return :ch245 ch245 = " 00 , 00 , 00 , 00 , 00 ,00 00 ,00 00 , 000 " ; "245","","" Return :ch246 ch246 = " 00 , 00 , ,000000 , , 00 , 00 , " ; "246","","" Return :ch247 ch247 = " , 000 00 ,00 000 , , 000 00 ,00 000 , , " ; "247","","" Return :ch248 ch248 = " 000 , 00 00 , 00 00 , 000 , , , , " ; "248","","" Return :ch249 ch249 = " , , , 00 , 00 , , , " ; "249","","" Return :ch250 ch250 = " , , , , 00 , , , " ; "250","","" Return :ch251 ch251 = " 0000, 00 , 00 , 00 ,000 00 , 00 00 , 0000 , 000 " ; "251","","" Return :ch252 ch252 = " 0000 , 00 00 , 00 00 , 00 00 , 00 00 , , , " ; "252","","" Return :ch253 ch253 = " 000 , 00 , 00 , 00 , 0000 , , , " ; "253","","" Return :ch254 ch254 = " , , 0000 , 0000 , 0000 , 0000 , , " ; "254","","" Return :ch255 ch255 = " , , , , , , , " ; "255","","" 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.20020720.20111217. ;.......................................................................................................................................... #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 = "#" ; ; ###### ### # ## ###### ## ; # ## # ## ## ## ## ## #### ; ## ## ## #### ##### ## ##### #### ## ## #### ##### ##### #### ## ### #### ; ## ### ## ## ## ## ## ##### ## ## ## ## ## ## ## ### ## ## ; ## ## ## ##### ## #### ##### ## ## ##### ## ## ## ## ###### ## ## ## ; ## ## ## ## ## ## # ## ## ## ## ## ## ## ## ## ## ## ## ## ; #### ### ## ### ## ## ##### ### ## ###### ### ## ## ## ## ## #### #### ## ; ;------------------------------------------------------------------------------------------------------------------------------------------