attach "asc.oac"
counter = 1 
charin = "A"
while counter < 10 
   asciinum = call("asc",charin)
   put column 10 asciinum, column 15 charin, do newline 
   asciinum = asciinum + 1
   charin = chr(asciinum) 
   counter = counter + 1
end while 
b=true;get b 
detach "asc.oac" 
