Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias draw {
- unset %drw.return*
- set %drw.char -
- unset %switches
- set %drw.color 0
- set %drw.color.b 1
- set %drw.start 1
- set %drw.text $strip($1-)
- if ($left($1,1) == -) {
- set %switches $mid($1,2-)
- if (cwb isin %switches) {
- set %drw.color $strip($2)
- set %drw.char $+ $strip($3)
- set %drw.color.b $strip($4)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (cbw isin %switches) {
- set %drw.color $strip($2)
- set %drw.char $+ $strip($4)
- set %drw.color.b $strip($3)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (bcw isin %switches) {
- set %drw.color $strip($3)
- set %drw.char $+ $strip($4)
- set %drw.color.b $strip($2)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (bwc isin %switches) {
- set %drw.color $strip($4)
- set %drw.char $+ $strip($3)
- set %drw.color.b $strip($2)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (wbc isin %switches) {
- set %drw.color $strip($4)
- set %drw.char $+ $strip($2)
- set %drw.color.b $strip($3)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (wcb isin %switches) {
- set %drw.color $strip($3)
- set %drw.char $+ $strip($2)
- set %drw.color.b $strip($4)
- set %drw.start 5
- %drw.text = $strip($5-)
- }
- else if (bc isin %switches) {
- set %drw.color $strip($3)
- set %drw.color.b $strip($2)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (cb isin %switches) {
- set %drw.color $strip($2)
- set %drw.color.b $strip($3)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (bw isin %switches) {
- set %drw.color.b $strip($2)
- set %drw.char $+ $strip($3)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (wb isin %switches) {
- set %drw.color.b $strip($3)
- set %drw.char $+ $strip($2)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (cw isin %switches) {
- set %drw.color $strip($2)
- set %drw.char $+ $strip($3)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (wc isin %switches) {
- set %drw.color $strip($3)
- set %drw.char $+ $strip($2)
- set %drw.start 4
- %drw.text = $strip($4-)
- }
- else if (w isin %switches) {
- set %drw.char $+ $strip($2)
- set %drw.start 3
- set %drw.color 0
- %drw.text = $strip($3-)
- }
- else if (c isin %switches) {
- set %drw.start 3
- set %drw.color $strip($2)
- %drw.text = $strip($3-)
- }
- else if (b isin %switches) {
- set %drw.start 3
- set %drw.color.b $strip($2)
- %drw.text = $strip($3-)
- }
- }
- %drw.text.len = $0
- %drw.text.chars = $len(%drw.text)
- %drw.word.pos = 0
- if (%drw.text.chars > 42) { echo -a Message too long. | halt }
- if (%drw.text == $null) { echo -a Invalid parameters. | halt }
- :one
- if (%drw.word.pos == %drw.text.chars) { %drw.word.pos = 0 | goto two }
- inc %drw.word.pos
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(32)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == A) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == B) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == C) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == D) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == E) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == F) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == G) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == H) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == I) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == J) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == K) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == L) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == M) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == N) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == O) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == P) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == Q) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == R) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == S) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == T) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == U) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == V) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == W) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == X) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == Y) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == Z) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 1) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 2) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 3) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 4) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 5) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 6) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 7) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 8) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 9) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == 0) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(33)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(64)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(35)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(36)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(37)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(94)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(38)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(42)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(40)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(41)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(45)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(95)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(43)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(61)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(96)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(126)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(44)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(46)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(60)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(62)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(47)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(92)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(124)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(91)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(93)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(58)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(59)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(39)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(34)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(123)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto one }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(125)) { %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto one }
- %drw.return.1 = %drw.return.1 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @
- goto one
- :two
- if (%drw.word.pos == %drw.text.chars) { %drw.word.pos = 0 | goto three }
- inc %drw.word.pos
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(32)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == A) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == B) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == C) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == D) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == E) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == F) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == G) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == H) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == I) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == J) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == K) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == L) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == M) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == N) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == O) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == P) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == Q) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == R) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == S) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == T) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == U) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == V) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == W) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == X) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == Y) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == Z) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 1) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 2) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 3) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 4) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 5) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 6) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 7) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 8) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 9) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == 0) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(33)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(64)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(35)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(36)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(37)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(94)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(38)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(42)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(40)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(41)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(45)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(95)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(43)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(61)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(96)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(126)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(44)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(46)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(60)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(62)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(47)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(92)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(124)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(91)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(93)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(59)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(58)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(39)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(34)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(123)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(125)) { %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto two }
- %drw.return.2 = %drw.return.2 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @
- goto two
- :three
- if (%drw.word.pos == %drw.text.chars) { %drw.word.pos = 0 | goto four }
- inc %drw.word.pos
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(32)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == A) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == B) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == C) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == D) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == E) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == F) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == G) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == H) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == I) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == J) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == K) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == L) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == M) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == N) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == O) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == P) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == Q) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == R) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == S) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == T) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == U) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == V) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == W) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == X) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == Y) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == Z) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 1) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 2) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 3) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 4) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 5) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 6) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 7) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 8) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 9) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == 0) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(33)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(64)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(35)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(36)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(37)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(94)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(38)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(42)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(40)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(41)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(45)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(95)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(43)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(61)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(96)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(126)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(44)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(46)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(60)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(62)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(47)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(92)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(124)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(91)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(93)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(58)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(59)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(39)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(34)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(123)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto three }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(125)) { %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto three }
- %drw.return.3 = %drw.return.3 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @
- goto three
- :four
- if (%drw.word.pos == %drw.text.chars) { %drw.word.pos = 0 | goto five }
- inc %drw.word.pos
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(32)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == A) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == B) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == C) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == D) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == E) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == F) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == G) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == H) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == I) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == J) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == K) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == L) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == M) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == N) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == O) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == P) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == Q) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == R) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == S) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == T) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == U) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == V) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == W) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == X) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == Y) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == Z) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 1) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 2) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 3) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 4) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 5) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 6) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 7) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 8) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 9) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == 0) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(33)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(64)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(35)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(36)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(37)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(94)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(38)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(42)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(40)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(41)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(45)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(95)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(43)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(61)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(96)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(126)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(44)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(46)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(60)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(62)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(47)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(92)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(124)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(91)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(93)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(58)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(59)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(39)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(34)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(123)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(125)) { %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto four }
- %drw.return.4 = %drw.return.4 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@
- goto four
- :five
- if (%drw.word.pos == %drw.text.chars) { %drw.word.pos = 0 | goto six }
- inc %drw.word.pos
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(32)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == A) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == B) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == C) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == D) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == E) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == F) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == G) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == H) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == I) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == J) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == K) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == L) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == M) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == N) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == O) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == P) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == Q) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == R) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == S) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == T) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == U) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == V) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == W) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == X) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == Y) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == Z) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 1) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 2) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 3) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 4) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 5) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 6) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 7) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 8) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 9) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == 0) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(33)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(64)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(35)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(36)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(37)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(94)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(38)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(42)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(40)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(41)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(45)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(95)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(43)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(61)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(96)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(126)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(44)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(46)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(60)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(62)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(47)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(92)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(124)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(91)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(93)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(58)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(59)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(39)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(34)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@@@ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(123)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ | goto five }
- if ($mid(%drw.text,%drw.word.pos,1) == $chr(125)) { %drw.return.5 = %drw.return.5 $+ $+ %drw.color $+ , $+ %drw.color $+ @@ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@ | goto five }
- %drw.return.5 = %drw.return.5 $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @ $+ %drw.color $+ , $+ %drw.color $+ @ $+ $+ %drw.color.b $+ , $+ %drw.color.b $+ @@
- goto five
- :six
- msg $chan $replacex(%drw.return.1,@,%drw.char)
- msg $chan $replacex(%drw.return.2,@,%drw.char)
- msg $chan $replacex(%drw.return.3,@,%drw.char)
- msg $chan $replacex(%drw.return.4,@,%drw.char)
- msg $chan $replacex(%drw.return.5,@,%drw.char)
- halt
- }
Add Comment
Please, Sign In to add comment