10
REM Program to test Econet
20
REM SRL 01jul1985
30
40
INPUT
"Station to test: "
stn%
50
DIM
X% 20:Y%=X%
DIV
256
60
X%?0=1 :
REM send string
70
X%!1=stn% :
REM dest station
80
$(X%+3)=
"*| Are you there?"
90
A%=&14:
CALL
&FFF1
100
PRINT
"OK"
Download NetTest
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.