Ascii {
  Window -l -t15,30 @ASCII -1 -1 400 300
  Aline @ascii Character $+ $chr(9) $+ ASCII value $+ $chr(9) $+ Alt+
  VAR %a = 32
  WHILE (%a <= 255) {
    Aline @ascii $chr(%a) $+ $chr(9) $+ %a $+ $chr(9) $+ $base(%a,10,10,4)
  }
}