menu channel {
  ASC:dialog $iif($dialog(ASC), -va, -m) ASC ASC
}
dialog ASC {
  title "$chr(#) lookup"
  size -1 -1 150 30
  edit "", 1, 5 5 75 20, autohs
  edit "", 2, 5 33 140 20, read autohs center
  edit "", 3, 5 58 140 20, read autohs center
  edit "", 4, 5 83 140 20, read autohs center
  edit "", 5, 5 108 140 20, read autohs center
  edit "", 6, 5 133 140 20, read autohs center
  button "Look Up", 7, 85 5 60 20
}
on *:dialog:ASC:*:*: {
  if ($devent == init) { did -r $dname 1-6 | did -b $dname 7 }
  if ($devent == edit) { $iif($len($did(1)) <= 5, did -e $dname 7, did -b $dname 7) }
  if ($devent == sclick) {
    if ($did == 7) {
      if ($len($did(1)) < 1) { dialog -s $dname -1 -1 150 30 | did -r $dname 1-6 | did -b $dname 7 }
      if ($len($did(1)) == 1) { dialog -s $dname -1 -1 150 55 | set %asc $did(1).text | $chars(%asc) }
      if ($len($did(1)) == 2) { dialog -s $dname -1 -1 150 80 | set %asc $did(1).text | $chars(%asc) }
      if ($len($did(1)) == 3) { dialog -s $dname -1 -1 150 105 | set %asc $did(1).text | $chars(%asc) }
      if ($len($did(1)) == 4) { dialog -s $dname -1 -1 150 130 | set %asc $did(1).text | $chars(%asc) }
      if ($len($did(1)) == 5) { dialog -s $dname -1 -1 150 155 | set %asc $did(1).text | $chars(%asc) }
    }
  }
}
alias chars {
  $iif($mid(%asc,5,1) != $null, set %z5 $ $+ chr( $+ $asc($mid(%asc,5,1)) $+ ), dialog -s ASC -1 -1 150 130 )
  $iif($mid(%asc,4,1) != $null, set %z4 $ $+ chr( $+ $asc($mid(%asc,4,1)) $+ ), dialog -s ASC -1 -1 150 105 )
  $iif($mid(%asc,3,1) != $null, set %z3 $ $+ chr( $+ $asc($mid(%asc,3,1)) $+ ), dialog -s ASC -1 -1 150 80 )
  $iif($mid(%asc,2,1) != $null, set %z2 $ $+ chr( $+ $asc($mid(%asc,2,1)) $+ ), dialog -s ASC -1 -1 150 55 )
  $iif($mid(%asc,1,1) != $null, set %z $ $+ chr( $+ $asc($mid(%asc,1,1)) $+ ), dialog -s ASC -1 -1 150 30 ) 
  $iif(%z5, did -ra ASC 6 $chr(91) $replace($mid(%asc,5,1),$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $chr(93) = $replace(%z5,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space)) 
  $iif(%z4, did -ra ASC 5 $chr(91) $replace($mid(%asc,4,1),$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $chr(93) = $replace(%z4,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space))
  $iif(%z3, did -ra ASC 4 $chr(91) $replace($mid(%asc,3,1),$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $chr(93) = $replace(%z3,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space))
  $iif(%z2, did -ra ASC 3 $chr(91) $replace($mid(%asc,2,1),$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $chr(93) = $replace(%z2,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space)) 
  $iif(%z, did -ra ASC 2 $chr(91) $replace($mid(%asc,1,1),$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $chr(93) = $replace(%z,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space))
  unset %z* unset %asc
}

Commenting Options