/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.