10
REM > FastString
20
REM Fast string IO, needs FileIO
30
REM FNrd only reads cr-strings, PROCwr must supply terminator
40
:
50
DEF
PROC
wr(o%,A$):$data%=A$:
PROC
gbpb(2,o%,data%,
LEN
A$,
PTR
#o%):
ENDPROC
60
DEF
FN
rd(i%):
LOCAL
p%:p%=
PTR
#i%:
PROC
gbpb(4,i%,data%,256,
PTR
#i%):
PTR
#i%=p%+1+
LEN
$data%:=$data%
Download FastString
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.