QB64 has been successfully ported to Google Androidhttp://www.qb64.net/forum/index.php?topic=10919.msg91805#msg91805

sub ThisSubHasAFunction(a$,prepend$)if left$(a$,1)=prepend$ thenp%=0elsep%=1end ifif p% then a$=prepend$+a$else ps%=instr(a$,prepend$) if ps% then a$=left$(a$,ps%-1)+mid$(a$,ps%+len(prepend$)) end ifend ifend sub

{snip}