10 REM Program to test Econet
   20 REM  RL 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"