alias big { set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A var %bl.cmd say, %bl.col1, %bl.col2 if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- } if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 } elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- } else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- } var %bl.idx1 1, %bl.idx2 1, %bl.idx3 1 ;set the block field while (%bl.idx1 <= $0) { set %bl.idx2 1 while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) { blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1)) inc %bl.idx2 } if (%bl.idx1 < $0) blockappend $blockletter inc %bl.idx1 } ;colorize the block field blockcolor %bl.col1 %bl.col2 ;output the block field set %bl.idx3 1 while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }}alias -l blockletter { if ($1 === A) return ABA BAB BBB BAB BAB elseif ($1 === B) return BBA BAB BBA BAB BBA elseif ($1 === C) return ABB BAA BAA BAA ABB elseif ($1 === D) return BBA BAB BAB BAB BBA elseif ($1 === E) return BBB BAA BBA BAA BBB elseif ($1 === F) return BBB BAA BBA BAA BAA elseif ($1 === G) return ABB BAA BAB BAB ABB elseif ($1 === H) return BAB BAB BBB BAB BAB elseif ($1 === I) return BBB ABA ABA ABA BBB elseif ($1 === J) return BBB ABA ABA ABA BBA elseif ($1 === K) return BAB BAB BBA BAB BAB elseif ($1 === L) return BAA BAA BAA BAA BBB elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB elseif ($1 === O) return BBB BAB BAB BAB BBB elseif ($1 === P) return BBB BAB BBB BAA BAA elseif ($1 === Q) return BBB BAB BAB BBB AAB elseif ($1 === R) return BBB BAB BBB BBA BAB elseif ($1 === S) return ABB BAA ABA AAB BBA elseif ($1 === T) return BBB ABA ABA ABA ABA elseif ($1 === U) return BAB BAB BAB BAB BBB elseif ($1 === V) return BAB BAB BAB BAB ABA elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA elseif ($1 === X) return BAB BAB ABA BAB BAB elseif ($1 === Y) return BAB BAB BAB ABA ABA elseif ($1 === Z) return BBB AAB ABA BAA BBB elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB elseif ($1 === b) return BAA BAA BBB BAB BBB elseif ($1 === c) return AAA AAA BBB BAA BBB elseif ($1 === d) return AAB AAB BBB BAB BBB elseif ($1 === e) return AAA ABB BAB BBA ABB elseif ($1 === f) return ABB ABA BBB ABA ABA elseif ($1 === g) return AAA BBB BAB ABB BBA elseif ($1 === h) return BAA BAA BBB BAB BAB elseif ($1 === i) return A B A B B elseif ($1 === j) return AB AA AB AB BB elseif ($1 === k) return BAA BAA BAB BBA BAB elseif ($1 === l) return BA BA BA BA BB elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB elseif ($1 === n) return AAA AAA BBA BAB BAB elseif ($1 === o) return AAA AAA BBB BAB BBB elseif ($1 === p) return AAA BBB BAB BBB BAA elseif ($1 === q) return AAA BBB BAB BBB AAB elseif ($1 === r) return AAA AAA BAB BBA BAA elseif ($1 === s) return AA AB BA AB BB elseif ($1 === t) return ABA ABA BBB ABA ABA elseif ($1 === u) return AAA AAA BAB BAB BBB elseif ($1 === v) return AAA AAA BAB BAB ABA elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA elseif ($1 === x) return AAA AAA BAB ABA BAB elseif ($1 === y) return AAA BAB BAB ABA BAA elseif ($1 === z) return AAA BBB AAB ABA BBB elseif ($1 == 0) return ABA BAB BAB BAB ABA elseif ($1 == 1) return ABA BBA ABA ABA BBB elseif ($1 == 2) return BBA AAB ABA BAA BBB elseif ($1 == 3) return BBA AAB ABA AAB BBA elseif ($1 == 4) return BAB BAB BBB AAB AAB elseif ($1 == 5) return BBB BAA BBA AAB BBA elseif ($1 == 6) return ABB BAA BBB BAB BBB elseif ($1 == 7) return BBB AAB AAB ABA ABA elseif ($1 == 8) return BBB BAB BBB BAB BBB elseif ($1 == 9) return BBB BAB BBB AAB BBA elseif ($1 == .) return A A A A B elseif ($1 == !) return B B B A B elseif ($1 == ?) return BBB AAB ABA AAA ABA elseif ($1 == -) return AAA AAA BBB AAA AAA elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB elseif ($1 == ^) return ABA BAB AAA AAA AAA elseif ($1 == +) return AAA ABA BBB ABA AAA elseif ($1 == =) return AAA BBB AAA BBB AAA elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB elseif ($1 == ]) return BB AB AB AB BB elseif ($1 == [) return BB BA BA BA BB elseif ($1 == :) return A B A B A elseif ($1 == $chr(59)) return AA AB AA AB BA elseif ($1 == <) return AAB ABA BAA ABA AAB elseif ($1 == >) return BAA ABA AAB ABA BAA elseif ($1 == $chr(40)) return AB BA BA BA AB elseif ($1 == $chr(41)) return BA AB AB AB BA elseif ($1 == ") return BAB BAB AAA AAA AAA elseif ($1 == ') return B B A A A elseif ($1 == `) return BA AB AA AA AA elseif ($1 == ,) return AA AA AA AB BA elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB elseif ($1 == $chr(124)) return B B B B B elseif ($1 == *) return BAB ABA BAB AAA AAA else return A A A A A}alias -l blockappend { set %bl.buffer1 $+(%bl.buffer1,$$1,A) set %bl.buffer2 $+(%bl.buffer2,$$2,A) set %bl.buffer3 $+(%bl.buffer3,$$3,A) set %bl.buffer4 $+(%bl.buffer4,$$4,A) set %bl.buffer5 $+(%bl.buffer5,$$5,A)}alias -l blockcolor { var %bl.buff 1, %bl.string 5 while (%bl.buff <= 5) { while (%bl.string >= 1) { set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string))) set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string))) dec %bl.string } set %bl.string 5 inc %bl.buff } }alias -l blockrand return $iif($rand(0,1) == 0,<,>)