Program to test Econet  SRL 01jul1985  ( "Station to test: "stn% 2 X% 20:Y%=X% 256 <X%?0=1 : send string FX%!1=stn% : dest station P$(X%+3)="*| Are you there?" ZA%=&14: &FFF1 d "OK"