10
REM > RunPath
20
:
30
DEF
FN
Path_Run:
LOCAL
d$,r$:r$=run$:
IF
r$=
""
:=
""
40
IF
LEFT$
(r$,1)=
""
""
:r$=
MID$
(r$,2,
LEN
r$-2)
50
d$=
"."
:
IF
os%
AND
-24:d$=
"/"
:
IF
os%
AND
-32:d$=
"\"
60
REPEAT
:r$=
LEFT$
(r$,
LEN
r$-1):
UNTIL
RIGHT$
(r$,1)=d$
OR
RIGHT$
(r$,1)=
":"
OR
r$=
""
:=r$
Download RunPath
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.