%ROUTINE FUDGE ETHER NET DRIVING ROUTINES
%END
%ROUTINE ISSUE COMMAND(%STRING(255)%name COMMAND)

!very sketchy but it works !!!
%integer j

     @16_035c4 %short      USERNO
     @16_01100 %routine    ETHERWRITE(%integer port,%bytename buf,%integer size)
%byte %array main(1:250)
%for j=1,1,40 %cycle; main(j)=0; %repeat

string(addr(main(16)))=command
     
     etherwrite(0,byte integer (addr(main(1))),120)
%END