Code:
/Chrs {
  if ($1 == list) || ($1 == $null) {
    var %chr = 1
    window @Chr 1 50 120 700
    while (%chr <= 255) { echo $iif($pair(%chr),4,11)) @chr %chr is $chr(%chr) | inc %chr }
  }
  if ($1 isnum) && ($1 <= 255) {
    echo -a * The ASCII code for " $+ $1 $+ " is $chr($1)
  }
}
/Ascii {
  if ($1 == list) || ($1 == $null) {
    var %asc = 1
    window @asc 1 50 120 700
    while (%asc <= 255) { .echo $iif($pair($asc($chr(%asc))),7,11)) @Asc $chr(%asc) is $asc($chr(%asc)) | inc %asc }
  }
  if ($1 !isnum) && ($asc($1)) {
    echo -a * ASCII $1 returns $asc($1)
  }
}
pair {
  if ($gettok($calc($1 / 2),2,46) == 5) { return $false }
  else { return $true }
}


Syntax:
/chrs list - lists all $chr
/ascii list - lists all $asc
/ascii <chr> - converts <char> into ascii number
/chrs <ascii> - convers <ascii> into character

Not that KT's wasn't good, but i just though i'd share my own version of it. You can get single characters with it, which is very useful. That goes in aliases, of course.


- cF
Dedicated helper for rent.