PROCEDURE nTube01;

VAR

   i,k,m      : INTEGER;
   r,g,b    : LONGINT;
   startX,startY : INTEGER;

BEGIN
   ColorIndexToRGB (54,r,g,b);
   PenSize (20);
   FillBAck(10000,60000,10000);   
   PenFore(r,g,b);
   
   FOR i:=0 TO 5 DO BEGIN
      FOR m:=0 TO 1 DO BEGIN   
         FOR k:=0 TO 10 DO BEGIN                                 
            Poly(0,0,0,100,86.6,150,173.2,100,173.2,0,86.6,-50,0,0);      
            MoveObjs(173.2,0,FALSE,FALSE);                        
         END;
      MoveObjs(86.6-1905,150,FALSE,FALSE);                          
      END;
   MoveObjs(-173.2,0,FALSE,FALSE);                           
   END;
END;

Run(nTube01);