10
REM>GSEcho
20
A$=
FN
_OS_GetEnv:
DIM
bl%
LEN
A$+1:
SYS
"OS_GSTrans"
,A$,bl%,
LEN
A$+1
TO
,bl%,ln%:
SYS
"OS_WriteN"
,bl%,ln%:
QUIT
30
DEF
FN
_OS_GetEnv:
SYS
"OS_GetEnv"
TO
A$:A$=
MID$
(A$,
INSTR
(A$,
" "
,1+
INSTR
(A$,
" "
,1+
INSTR
(A$,
" "
)))):
WHILE
LEFT$
(A$,1)=
" "
:A$=
MID$
(A$,2):
ENDWHILE
:=A$
Download GSEcho.ro
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.