Таблица символов.
Dmitri Zubko
тем, что отображает таблицу символов и их HEX, DEC коды.
Примечание: символы в диапазонах DEC:1-31 и DEC:128-159 не могут быть
отображены в моё терминале, поэтому каждый из них будет замещён символом
HEX:A6.
Вывод скрипта имеет вид:
----------------------------------------------------------------------------
24 036 $ 25 037 % 26 038 & 27 039 ' 28 040 (
29 041 ) 2A 042 * 2B 043 + 2C 044 , 2D 045 -
2E 046 . 2F 047 / 30 048 0 31 049 1 32 050 2
33 051 3 34 052 4 35 053 5 36 054 6 37 055 7
E2 226 Б E3 227 Ц E4 228 Д E5 229 Е E6 230 Ф
E7 231 Г E8 232 Х E9 233 И EA 234 Й EB 235 К
EC 236 Л ED 237 М EE 238 H EF 239 О F0 240 П
----------------------------------------------------------------------------
call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
call sysloadfuncs
nl=x2c('0a')
say syscls() || nl || copies('-', 80)
do a = 1 to 255 by 5
drop displayline char
ovrlpos=1
do b = a to a+4
select
when b >= 1 & b <= 31 then
char='┐'
/* Здесь A6, если вдруг golded "скушал" символ. */
when b >= 128 & b <= 159 then
char='┐'
otherwise
char=d2c(b)
end
select
when symbol('displayline') \= 'VAR' & b <= 255 then
displayline=right(d2x(b), 2, 0) right(b, 3, 0) char
when symbol('displayline') = 'VAR' & b <= 255 then
displayline=overlay( right(d2x(b), 2, 0) right(b, 3, 0) char, displayline,
ovrlpos)
otherwise
nop
end
ovrlpos=ovrlpos+15
end b
call lineout , displayline
end a
say copies('-', 80)
P.S. В конце прошедшей недели написал External request processor (обработчик
SRIF, если так понятней). Работает в тандеме с binkd, для генерирования pkt
файла использует husky модуль txt2pkt. Обкатывал скрипт на собственных
запросах, для чего создал себе технического поинта. Если общественность
интересуется и модератор не возражает, тогда могу ююкнуть сюда. Сразу хочу
предупредить, что скрипт сильно заточен под UNIX-подобные системы, а значит не
будет работать в Windows и DOS.
--
Я читаю газеты от первой до последней страницы. Это для меня единственный
способ оставаться в мире фантазий. А.Беван