program ScriptTest; var i: longint; var j: longint; begin i := 0; writeln('Sending synch data'); comsendstr(#085#170#085#170#085#170); while i = 0 do begin writeln('Sending synch data'); comsendstr(#085#170#085#170#085#170); writeln(' left 100%, reverse 50%'); j := 0; while j < 300 do begin comsendstr(#124#131); j := j + 1; end; writeln(' zero '); j := 0; while j < 20 do begin comsendstr(#000#255); j := j + 1; end; writeln(' right 100%, forward 50%'); j := 0; while j < 300 do begin comsendstr(#244#011); j := j + 1; end; writeln(' zero '); j := 0; while j < 20 do begin comsendstr(#000#255); j := j + 1; end; end; end.