&Т > BLib.Tokenise 1.00 11-Jun-2006 : Т Tokenise BASIC lines (Т ==================== 2(Т Generalised cross-platform library <: FТ Authors: P$Т Richard Russell for BBFW code Z#Т J.G.Harston for RISC OS code d Т J.G.Harston for 6502 code n: xТ FNTokenise_() ┌Т ------------- ▄Т Tokenise a line of text √Т Returns: tokenised string ═Т ------------------------- ╙: Є&щєTokenise_(A$):=єTokenise_ARM(A$) Ў%щєTokenise_(A$):=єTokenise_65(A$) х&щєTokenise_(A$):=єTokenise_Z80(A$) р&щєTokenise_(A$):=єTokenise_Win(A$) э+Т Should select appropriate subfunction Ф: П: ЗщєTokenise_ARM(A$):Й A%,B% ,х≥ "XOS_GenerateError",0,д255,"*") ╦ ,A% B%=═("0:"+A$):=$(A%-14) : "щєTokenise_Win(A$):Й A%,B% ,х∙юA$,1)=" ":A$=аA$,2):н 6B%=═("0:"+A$):=$(!332+2) @: JщєTokenise_65(A$):Й A% T(A%=═("0:"+A$):=$((!4 ─ &FFFF)-╘A$-1) Ъ