ASC(a$)ASC( 4 )
10 a$="123abcABC456"20 PRINT ASC(a$)30 SERCH a$ "abc"40 FOR i=0 TO 450 PRX ASC(i)60 NEXT i#run490000004100000041000042410043424134434241#