f=OPENOUT"chars"
FOR a%=0TO255
IF a%<32 THEN
BPUT#f, "."+STR$a%
ELSE
BPUT#f, CHR$a%
ENDIF
NEXT
CLOSE#f