procedure ddd;
     var
          count:integer;
          x,y,clip,clip1,clip_d,tate,oku,haba,dtype,sep,nokori:integer;
          face,ashi:integer;  

                    h,h1,h2,h3:handle;
          cc,dd,ii:string;

procedure inp;
begin
getorigin(x,y);
setorigin(-x,-y);
	 clip1:=IntDialog('長さ','5000') ;
	tate:=IntDialog('縦','500') ;
	oku:=IntDialog('奥','500') ;
	          setpref(1,true);

dtype:=round(clip1 /	tate);
haba:=clip1/dtype;
end;

procedure maketop;{前から見た面}
     begin
pensize(8);
penfore(10000,10000,10000);

          DoMenutext('上');
       beginxtrd(0,oku);
        
          moveto(0,0);
                    lineto(haba,tate);
                                 count:=0;
         repeat
          duplicate(haba,0);
                    DoMenutext('水平反転');
                  count:=count+1;
                  until(count>0) and(count=dtype-1);
  fillpat(0);
  pensize(20);
  rect(0,0,clip1,tate);
   count:=0;
   repeat
   moveto(haba*count*2,0);
          lineto(haba*count*2,tate);
                  
                  count:=count+1;
                  until(count>clip1/2/haba);
           	          setpref(1,false);   
           	selectall;
               
                      
           endxtrd;           
                             DoMenutext('右');   
                             rotate(#90);
                                        DoMenutext('前');   
   end;     
   
   
   
       

begin{本体}
inp;
maketop;
DoMenutext('前');
end;
Run(ddd);