10
REM > DOSLdr
20
A$=
""
:A%=0:X%=1:A%=((
USR
&FFF4)
AND
&FF00)
DIV
256
30
IF
A%=2:A$=
"dosfsb"
40
IF
A%>2:A$=
"dosfsm"
50
PRINT
60
IF
A$=
""
:
PRINT
"No 1770 interface"
:
END
70
OSCLI
"SRLOAD "
+A$+
" 8000 5"
80
PRINT
"Press Ctrl-Break"
Download DOSLdr
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.