Procedure lampe;

VAR

i :INTEGER;

BEGIN;

PenFore(0,0,0);

rect(-34.1, 24.1, -26.1, 16.1);
	
	FOR i:=1 TO 3 DO BEGIN

		duplicate(20, 0);

	END;

moveobjs(2,0,false,false);

DSelectAll;

rect(-20, 32, 0, 8);

duplicate(20,0);

rect(-39, 28, -21, 12);

rect(20, 34, 44, 6);

rect(-40,1, -2,-11);

DSelectAll;

PenFore(65535,0,0);

moveTo(-25,1);

line(0,-12);

duplicate(8,0);

PenFore(0,0,0);

Oval(-23.1,-2.9,-18.9,-7.1);

DSelectAll;
rect(-38, 2, -37.9, -1);
rotate(12d);

	FOR i:= 1 TO 3 DO BEGIN
	duplicate(3,0);
	END;

DSelectAll;
rect(-38, -9, -37.9, -12);
rotate(-12d);

	FOR i:= 1 TO 3 DO BEGIN
	duplicate(3,0);
	END;

DSelectAll;
rect(-4, 2, -4.1, -1);
rotate(-12d);

	FOR i:= 1 TO 3 DO BEGIN
	duplicate(-3,0);
	END;

DSelectAll;
rect(-4, -9, -4.1, -12);
rotate(12d);

	FOR i:= 1 TO 3 DO BEGIN
	duplicate(-3,0);
	END;

END;

RUN(lampe);