ptr_=d$ ptr_=ptr_+20 a=SERCH$("we") : j$=PTR$(2)
10 a$="1234567890abcdefgABCDEFG"30 SERCH a$ "a"35 s=ptr_-1 : e=SERCH$("A") : c=e-s-140 ptr_=s50 c$=PTR$(c)60 PRINT c$#run abcdefg#