# alpha->num clipboard ver
# Phone: alpha->num
# look up the clipboard and

# change it to numeric

#48  0 : 65  A, 90  Z, 97  a, 122  z
new
10 ln=fn 19
15 mm=fn 18
20 for i=0 to  ln-1
30 b=peek(mm + i): mem=b: a$=a$ + chr$ b
50 gosub 500
60 num$=num$ +  s$
65 poke mm+i, b
70 next i
75 ? a$,num$
80 end
# check numeric range
500 b=b-48: rn=0
# check upper alpha
510 if b > 9 then b=b-17 : rn=1
# check lower alpha
520 if b > 26 then b=b-32: rn=1
525 if b < 0 then b=mem: s$=chr$ mem: return

530 if rn=0 then s$=str$ b :b=b+48: return
# unique mapping for some keys
536 if b=16 then b=mem:return
537 if b=25 then b=mem:return
538 if b>16 then b=b-1

540 b=int (b/3) + 2
550  s$=str$(b): b=b+48: return

run
