//โปรแกรมรับตัวอักษรจากแป้นพิมพ์ เก็บเป็นรหัส ascii ในแฟ้ม 5 อักษร
n= space(5)
@ 5,10 get n
read
maxlen = len(n)
sumasc = space(10)
for i = 1 to maxlen
   _asc = substr(n,i,1)
   sumasc = sumasc + ltrim(str(asc(_asc)))
next
use nn
append blank
replace aa with val(sumasc)