DEFINE VARIABLE lv-Char AS CHARACTER NO-UNDO.
DEFINE VARIABLE lv-i AS INTEGER NO-UNDO.
DEFINE VARIABLE lv-Temp AS CHARACTER NO-UNDO.
lv-Char = "Aa!~"£$%^&*()" + CHR(1) + "Zz".
DO lv-i = 1 TO LENGTH(lv-Char,"CHARACTER"):
lv-Temp = SUBSTRING(lv-Char,lv-i,1).
IF ASC(lv-Temp) LT 33 OR ASC(lv-Temp) GT 163 THEN
MESSAGE ASC(lv-Temp) lv-Temp
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.