dialog ascii_table {
title $amlogo Ascii Table ( special characters)
size -1 -1 220 200
option dbu
list 1, 11 21 26 112, sort
list 2, 62 50 26 104, sort
list 3, 116 63 26 78, sort
list 4, 172 31 26 100, sort
button "Add", 5, 42 180 37 12
button "Close", 6, 119 180 37 12, ok
box "Upper Case", 7, 4 4 41 157
box "Lower Case", 8, 56 36 38 126
box "Numeric", 9, 109 29 40 133
box "Other", 10, 160 5 50 157
}
on *:LOAD:{
var %ascii.ucase À,Á,Â,Ã,Ä,Å,ß,Ç,Ð,È,É,Ê,Ê,Ë,Ì,Í,Î,Ï,Ñ,Ò,Ó,Ô,Õ,Ö,Ù,Ú,Û,Ü,Ý,¥
var %ascii.lcase à,á,â,ã,ä,å,ç,è,é,ê,ë,ì,í,î,ï,ñ,ò,ó,ô,õ,ö,ù,ú,û,ü,ý,ÿ
var %ascii.numeric ø,¹,²,³,×,÷,¢,£,¼,½,¾
var %ascii.other ª,º,°,©,®,¡,¿,¤,§,«,»,¬,±,µ,¶,þ,Þ,Æ,æ,ð,¸,‘,’
}
on *:dialog:ascii_table:*:*:{
if ($devent == init) {
}
}