
Hope it will be useful.

ascii {
window @ascii 0 0 550 1024
set %ascii.times 0
:do
inc %ascii.times 1
if %ascii.times == 256 {
unset %ascii.times
return
}
unset %ascii.info
if %ascii.times == 2 { set %ascii.info - [mIRC] Bold }
if %ascii.times == 31 { set %ascii.info - [mIRC] Underline }
if %ascii.times == 3 { set %ascii.info - [mIRC] Colour }
if %ascii.times == 9 { set %ascii.info - Tab }
if %ascii.times == 10 { set %ascii.info - LF }
if %ascii.times == 13 { set %ascii.info - CR }
if %ascii.times == 32 { set %ascii.info - Space }
aline @ascii 4... %ascii.times = $chr(%ascii.times) %ascii.info
goto do
}
Users browsing this forum: No registered users and 0 guests