&Т > BLib.Tokenise 1.03 20-Nov-2010 7Т v1.01 08-Feb-2009 JGH: Tweeked for ARM BASIC 1.3x 2Т v1.02 28-Feb-2009 JGH: Added DOS, PDP, 32000 (6Т v1.03 20-Nov-2010 JGH: Tweeked for 6502 BASIC IV 2: <Т Tokenise BASIC lines FТ ==================== P(Т Generalised cross-platform library Z: dТ Authors: n$Т Richard Russell for BBFW code x4Т J.G.Harston for ARM, DOS, PDP, 6502, Z80 code ┌: ▄Т FNTokenise_() √Т ------------- ═Т Tokenise a line of text ╙Т Returns: tokenised string ЄТ ------------------------- Ў: х%щєTokenise_(A$):=єTokenise_65(A$) р&щєTokenise_(A$):=єTokenise_Z80(A$) э%щєTokenise_(A$):=єTokenise_32(A$) Ф&щєTokenise_(A$):=єTokenise_PDP(A$) П&щєTokenise_(A$):=єTokenise_ARM(A$) З&щєTokenise_(A$):=єTokenise_DOS(A$) &щєTokenise_(A$):=єTokenise_Win(A$) +Т Should select appropriate subfunction : ": ,щєTokenise_65(A$):Й A%,B% 6*A%=(!4─&FFFF)-╘A$-1:B%=═("0:"+A$):=$A% @: J:щєTokenise_Z80(A$):Й A%,P%:Tokenise_Z80%=Tokenise_Z80% TEГ Tokenise_Z80%=0:ч A% 4:!A%=&D9E1E5DD:A%?4=&C9:Tokenise_Z80%=╨A% ^'A%=═("0:"+A$):=$(Tokenise_Z80%-254) h: rщєTokenise_32(A$):Й A% |A%=═("0:"+A$):=$(!&1B2+2) ├: ░щєTokenise_PDP(A$):Й A% A%=═("0:"+A$):=$(^@%-510) є: ўщєTokenise_ARM(A$):Й A%,B% ╦,х≥ "XOS_GenerateError",0,д255,"*") ╦ ,A% б2A%!-36=0:B%=═("0:"+A$):=$(A%-14+4*(A%!-36<>0)) л: жщєTokenise_DOS(A$):Й A% ЮA%=═("0:"+A$):=$&102 Й: ТщєTokenise_Win(A$):Й A%,B% Чх∙юA$,1)=" ":A$=аA$,2):н B%=═("0:"+A$):=$(!332+2) : Ъ