procedure dmake;
     var
          distance:integer;
begin;     
     distance:=IntDialog('ˆÚ“®‹——£mm','5000') ;
     
domenutext('‰E');
duplicate(0,0);
rotate(#90);
moveobjs(0,distance,false,false);
duplicate(0,0);
rotate(#-90);
domenutext('�ã');

rotate(#-90);
moveobjs(distance,0,false,false);
domenutext('‘O');
moveobjs(0,-distance,false,false);

end;
Run(dmake);