// end-on-m30.pas
// output script to end sending when hit M30

s:=getioline;

if pos('M30',s)>0 then
 begin
   FinishedSending;
 end;