That looks neat
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
FUNCTION CmdLine: cmd$,e$[]
LOCAL a%,b%,exit%,pos%,endpos%
cmd$=REPLACE$(cmd$,CHR$(92),"/")
DIM e$[0]
WHILE 1
IF pos>LEN(cmd$)-1 THEN BREAK
SELECT ASC(MID$(cmd$,pos,1))
CASE 34 // if the value is an open quote
b=INSTR(cmd$,CHR$(34),pos+1)
IF b<pos+1
endpos=-1
exit=1
ELSE
endpos=b-1-(pos)
ENDIF
DIMPUSH e$[],MID$(cmd$,pos+1,endpos)
pos=b+1
CASE 32 // if it's a space
INC pos,1
DEFAULT // if it's any other character
b=INSTR(cmd$,CHR$(32),pos)
IF b<pos+1
endpos=-1
exit=1
ELSE
endpos=b-1-(pos-1)
ENDIF
DIMPUSH e$[],MID$(cmd$,pos,endpos)
pos=b
ENDSELECT
IF exit THEN BREAK
WEND
ENDFUNCTION