PROCEDURE faltkarte;
VAR
	pageWidth:REAL;
	pageHeight:REAL;
	pageFoldY:REAL;
	X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18,X19,X20,X21,X22,X23,X24,X25,X26,X27,X28,X29,X30,X31,X32,X33,X34:REAL;
	Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,Y10,Y11,Y12,Y13,Y14,Y15,Y16,Y17,Y18,Y19,Y20,Y21,Y22,Y23,Y24,Y25,Y26,Y27,Y28,Y29,Y30,Y31,Y32,Y33,Y34,Y35,Y36,Y37,Y38,Y39,Y40,Y41,Y42,Y43,Y44,Y45,Y46,Y47,Y48,Y49:REAL;
	width:REAL;
	depth:REAL;
	height:REAL;

BEGIN
	{*Variablen berechnen*}
	pageWidth:=210;
	pageHeight:=297;
	pageFoldY:=pageHeight/2;

	height:=4;
	width:=4;
	depth:=4;
	
	pageWidth:=52.5*width;
	pageHeight:=74.25*width;
	pageFoldY:=Y32;
	X1:=5*width;
	X2:=8*width;
	X3:=X2 + width;
	X4:=X3 +width;
	X5:=X4 + width;
	X6:=X5 + width;
	X7:=X6 + width;
	X8:=X7 + width;
	X9:=X8 + width;
	X10:=X9 + width;
	X11:=X10 + width;
	X12:=X11 + width;
	X13:=X12 + width;
	X14:=X13 + width + width + width;
	X15:=X14 + width;
	X16:=X15 + width;
	X17:=X16 + width;
	X18:=X17 + width;
	X19:=X18 + width + width + width + width;
	X20:=X19 + width;
	X21:=X20 + width;
	X22:=X21 + width;
	X23:=X22 + width;
	X24:=X23 + width;
	X25:=X24 + width;
	X26:=X25 + width;
	X27:=X26 + width;
	X28:=X27 + width;
	X29:=X28 + width;
	X30:=X29 + width;
	X31:=X30 + width;
	X32:=X31 + width;
	X33:=X32 + width;
	X34:=X33 + width + width + width;
	Y1:=(49/8)*height;
	Y2:=Y1 + height;
	Y3:=Y2 + height;
	Y4:=Y3 + height;
	Y5:=Y4 + height;
	Y6:=Y5 + height;
	Y7:=Y6 + height;
	Y8:=Y7 + height;
	Y9:=Y8 + height;
	Y10:=Y9 + height;
	Y11:=Y10 + height;
	Y12:=Y11 + height;
	Y13:=Y12 + height;
	Y14:=Y13 + height;
	Y15:=Y14 + height;
	Y16:=Y15 + height;
	Y17:=Y16 + height;
	Y18:=Y17 + height;
	Y19:=Y18 + height;
	Y20:=Y19 + height;
	Y21:=Y20 + height;
	Y22:=Y21 + height;
	Y23:=Y22 + height;
	Y24:=Y23 + height;
	Y25:=Y24 + height;
	Y26:=Y25 + height;
	Y27:=Y26 + height;
	Y28:=Y27 + height;
	Y29:=Y28 + height;
	Y30:=Y29 + height;
	Y31:=Y30 + height;
	Y32:=Y31 + height;
	Y33:=Y32 + height;
	Y34:=Y33 + height;
	Y35:=Y34 + height;
	Y36:=Y35 + height;
	Y37:=Y36 + height;
	Y38:=Y37 + height;
	Y39:=Y38 + height;
	Y40:=Y39 + height;
	Y41:=Y40 + height;
	Y42:=Y41 + height;
	Y43:=Y42 + height;
	Y44:=Y43 + height;
	Y45:=Y44 + height;
	Y46:=Y45 + height;
	Y47:=Y46 + height;
	Y48:=Y47 + height;
	Y49:=Y48 + height;


	{*Stift einstellen*}
	penPat(2);
	penFore(65535,0,0);
	
	{*blatt zeichnen*}
	moveto(0,0);
	lineto(pageWidth,0);
	lineto(pageWidth,pageHeight);
	lineto(0,pageHeight);
	lineto(0,0);

	{*schnittkanten zeichnen*}
	moveto(X1,Y40);
	lineto(X1,Y18);
	moveto(X2,Y32);
	lineto(X2,Y26);
	moveto(X3,Y41);
	lineto(X3,Y37);
	moveto(X4,Y42);
	lineto(X4,Y38);
	moveto(X5,Y43);
	lineto(X5,Y39);
	moveto(X6,Y44);
	lineto(X6,Y11);
	moveto(X7,Y27);
	lineto(X7,Y23);
	moveto(X7,Y16);
	lineto(X7,Y12);
	moveto(X8,Y28);
	lineto(X8,Y24);
	moveto(X8,Y17);
	lineto(X8,Y13);
	moveto(X9,Y29);
	lineto(X9,Y25);
	moveto(X9,Y18);
	lineto(X9,Y14);
	moveto(X10,Y45);
	lineto(X10,Y41);
	moveto(X10,Y25);
	lineto(X10,Y19);
	moveto(X11,Y46);
	lineto(X11,Y42);
	moveto(X12,Y47);
	lineto(X12,Y43);
	moveto(X13,Y48);
	lineto(X13,Y4);
	moveto(X14,Y44);
	lineto(X14,Y38);
	moveto(X14,Y18);
	lineto(X14,Y12);
	moveto(X15,Y33);
	lineto(X15,Y29);
	moveto(X15,Y22);
	lineto(X15,Y18);
	moveto(X15,Y7);
	lineto(X15,Y1);
	moveto(X16,Y32);
	lineto(X16,Y28);
	moveto(X16,Y21);
	lineto(X16,Y17);
	moveto(X17,Y31);
	lineto(X17,Y27);
	moveto(X17,Y20);
	lineto(X17,Y16);
	moveto(X18,Y48);
	lineto(X18,Y1);
	moveto(X19,Y40);
	lineto(X19,Y34);
	moveto(X19,Y18);
	lineto(X19,Y14);
	moveto(X20,Y17);
	lineto(X20,Y13);
	moveto(X21,Y16);
	lineto(X21,Y12);
	moveto(X22,Y44);
	lineto(X22,Y11);
	moveto(X23,Y43);
	lineto(X23,Y39);
	moveto(X24,Y42);
	lineto(X24,Y38);
	moveto(X25,Y41);
	lineto(X25,Y37);
	moveto(X25,Y21);
	lineto(X25,Y15);
	moveto(X26,Y25);
	lineto(X26,Y21);
	moveto(X27,Y24);
	lineto(X27,Y20);
	moveto(X28,Y23);
	lineto(X28,Y19);
	moveto(X29,Y40);
	lineto(X29,Y18);
	moveto(X30,Y39);
	lineto(X30,Y35);
	moveto(X31,Y38);
	lineto(X31,Y34);
	moveto(X32,Y37);
	lineto(X32,Y33);
	moveto(X33,Y28);
	lineto(X33,Y22);
	moveto(X34,Y36);
	lineto(X34,Y22);

	{*Stift einstellen*}
	penFore(0,0,65535);
	penPat(-2);

	{*blatt faltkanten zeichnen*}
	moveto(0,pageFoldY);
	lineto(X1,pageFoldY);
	moveto(X34,pageFoldY);
	lineto(pageWidth,pageFoldY);

	{*faltkanten zeichnen*}
	moveto(X1,Y40);
	lineto(X3,Y40);
	moveto(X3,Y41);
	lineto(X4,Y41);
	moveto(X4,Y42);
	lineto(X5,Y42);
	moveto(X5,Y43);
	lineto(X6,Y43);
	moveto(X6,Y44);
	lineto(X10,Y44);
	moveto(X3,Y37);
	lineto(X6,Y37);
	moveto(X1,Y32);
	lineto(X2,Y32);
	moveto(X1,Y30);
	lineto(X2,Y30);
	moveto(X1,Y28);
	lineto(X2,Y28);
	moveto(X1,Y26);
	lineto(X2,Y26);
	moveto(X2,Y29);
	lineto(X6,Y29);
	moveto(X1,Y18);
	lineto(X6,Y18);
	moveto(X6,Y33);
	lineto(X13,Y33);
	moveto(X6,Y26);
	lineto(X7,Y26);
	moveto(X7,Y27);
	lineto(X8,Y27);
	moveto(X8,Y28);
	lineto(X9,Y28);
	moveto(X6,Y15);
	lineto(X7,Y15);
	moveto(X7,Y16);
	lineto(X8,Y16);
	moveto(X8,Y17);
	lineto(X9,Y17);
	moveto(X6,Y22);
	lineto(X10,Y22);
	moveto(X6,Y11);
	lineto(X13,Y11);
	moveto(X10,Y25);
	lineto(X13,Y25);
	moveto(X10,Y23);
	lineto(X13,Y23);
	moveto(X10,Y21);
	lineto(X13,Y21);
	moveto(X10,Y19);
	lineto(X13,Y19);
	moveto(X10,Y41);
	lineto(X13,Y41);
	moveto(X10,Y45);
	lineto(X11,Y45);
	moveto(X11,Y46);
	lineto(X12,Y46);
	moveto(X12,Y47);
	lineto(X13,Y47);
	moveto(X13,Y48);
	lineto(X18,Y48);
	moveto(X13,Y43);
	lineto(X14,Y43);
	moveto(X13,Y41);
	lineto(X14,Y41);
	moveto(X13,Y39);
	lineto(X14,Y39);
	moveto(X15,Y32);
	lineto(X16,Y32);
	moveto(X16,Y31);
	lineto(X17,Y31);
	moveto(X17,Y30);
	lineto(X18,Y30);
	moveto(X13,Y26);
	lineto(X18,Y26);
	moveto(X15,Y21);
	lineto(X16,Y21);
	moveto(X16,Y20);
	lineto(X17,Y20);
	moveto(X17,Y19);
	lineto(X18,Y19);
	moveto(X13,Y18);
	lineto(X14,Y18);
	moveto(X13,Y16);
	lineto(X14,Y16);
	moveto(X13,Y14);
	lineto(X14,Y14);
	moveto(X13,Y12);
	lineto(X14,Y12);
	moveto(X14,Y15);
	lineto(X18,Y15);
	moveto(X15,Y7);
	lineto(X18,Y7);
	moveto(X15,Y5);
	lineto(X18,Y5);
	moveto(X15,Y3);
	lineto(X18,Y3);
	moveto(X15,Y1);
	lineto(X18,Y1);
	moveto(X18,Y44);
	lineto(X22,Y44);
	moveto(X19,Y39);
	lineto(X22,Y39);
	moveto(X19,Y37);
	lineto(X22,Y37);
	moveto(X19,Y35);	
	lineto(X22,Y35);
	moveto(X18,Y33);
	lineto(X22,Y33);
	moveto(X18,Y22);
	lineto(X22,Y22);
	moveto(X19,Y17);
	lineto(X20,Y17);
	moveto(X20,Y16);
	lineto(X21,Y16);
	moveto(X21,Y15);
	lineto(X22,Y15);
	moveto(X18,Y11);
	lineto(X22,Y11);
	moveto(X22,Y43);
	lineto(X23,Y43);
	moveto(X23,Y42);
	lineto(X24,Y42);
	moveto(X24,Y41);
	lineto(X25,Y41);
	moveto(X25,Y40);
	lineto(X29,Y40);
	moveto(X13,Y37);
	lineto(X18,Y37);
	moveto(X22,Y37);
	lineto(X25,Y37);
	moveto(X22,Y29);
	lineto(X29,Y29);
	moveto(X22,Y21);
	lineto(X25,Y21);
	moveto(X22,Y19);
	lineto(X25,Y19);
	moveto(X22,Y17);
	lineto(X25,Y17);
	moveto(X22,Y15);
	lineto(X25,Y15);
	moveto(X25,Y18);
	lineto(X29,Y18);
	moveto(X26,Y24);
	lineto(X27,Y24);
	moveto(X27,Y23);
	lineto(X28,Y23);
	moveto(X28,Y22);
	lineto(X29,Y22);
	moveto(X29,Y39);
	lineto(X30,Y39);
	moveto(X30,Y38);
	lineto(X31,Y38);
	moveto(X31,Y37);
	lineto(X32,Y37);
	moveto(X32,Y36);
	lineto(X34,Y36);
	moveto(X29,Y33);
	lineto(X32,Y33);
	moveto(X29,Y25);
	lineto(X33,Y25);
	moveto(X33,Y28);
	lineto(X34,Y28);
	moveto(X33,Y26);
	lineto(X34,Y26);
	moveto(X33,Y24);
	lineto(X34,Y24);
	moveto(X33,Y22);
	lineto(X34,Y22);
	moveto(X13,Y4);
	lineto(X15,Y4);

	{*Stift einstellen*}
	penFore(0,65535,0);
	penPat(-2);

	moveto(X1,Y33);
	lineto(X6,Y33);
	moveto(X1,Y31);
	lineto(X2,Y31);
	moveto(X1,Y29);
	lineto(X2,Y29);
	moveto(X1,Y27);
	lineto(X2,Y27);
	moveto(X1,Y22);
	lineto(X6,Y22);
	moveto(X3,Y38);
	lineto(X4,Y38);
	moveto(X4,Y39);
	lineto(X5,Y39);
	moveto(X6,Y37);
	lineto(X13,Y37);
	moveto(X6,Y29);
	lineto(X9,Y29);
	moveto(X6,Y23);
	lineto(X7,Y23);
	moveto(X7,Y24);
	lineto(X8,Y24);
	moveto(X8,Y25);
	lineto(X9,Y25);
	moveto(X9,Y26);
	lineto(X13,Y26);
	moveto(X10,Y24);
	lineto(X13,Y24);
	moveto(X10,Y22);
	lineto(X13,Y22);
	moveto(X10,Y20);
	lineto(X13,Y20);
	moveto(X6,Y18);
	lineto(X9,Y18);
	moveto(X6,Y12);
	lineto(X7,Y12);
	moveto(X7,Y13);
	lineto(X8,Y13);
	moveto(X8,Y14);
	lineto(X9,Y14);
	moveto(X9,Y15);
	lineto(X13,Y15);
	moveto(X10,Y42);
	lineto(X11,Y42);
	moveto(X11,Y43);
	lineto(X12,Y43);
	moveto(X12,Y44);
	lineto(X13,Y44);
	moveto(X13,Y44);
	lineto(X14,Y44);
	moveto(X13,Y42);
	lineto(X14,Y42);
	moveto(X13,Y40);
	lineto(X14,Y40);
	moveto(X13,Y38);
	lineto(X14,Y38);
	moveto(X14,Y41);
	lineto(X18,Y41);
	moveto(X13,Y30);
	lineto(X15,Y30);
	moveto(X15,Y33);
	lineto(X18,Y33);
	moveto(X15,Y29);
	lineto(X16,Y29);
	moveto(X16,Y28);
	lineto(X17,Y28);
	moveto(X17,Y27);
	lineto(X18,Y27);
	moveto(X15,Y22);
	lineto(X18,Y22);
	moveto(X13,Y19);
	lineto(X15,Y19);
	moveto(X15,Y18);
	lineto(X16,Y18);
	moveto(X16,Y17);
	lineto(X17,Y17);
	moveto(X17,Y16);
	lineto(X18,Y16);
	moveto(X13,Y17);
	lineto(X14,Y17);
	moveto(X13,Y15);
	lineto(X14,Y15);
	moveto(X13,Y13);
	lineto(X14,Y13);
	moveto(X13,Y8);
	lineto(X18,Y8);
	moveto(X15,Y6);
	lineto(X18,Y6);
	moveto(X15,Y4);
	lineto(X18,Y4);
	moveto(X15,Y2);
	lineto(X18,Y2);
	moveto(X18,Y37);
	lineto(X19,Y37);
	moveto(X18,Y26);
	lineto(X22,Y26);
	moveto(X18,Y15);
	lineto(X19,Y15);
	moveto(X19,Y40);
	lineto(X22,Y40);
	moveto(X19,Y38);
	lineto(X22,Y38);
	moveto(X19,Y36);
	lineto(X22,Y36);
	moveto(X19,Y34);
	lineto(X22,Y34);
	moveto(X19,Y18);
	lineto(X22,Y18);
	moveto(X19,Y14);
	lineto(X20,Y14);
	moveto(X20,Y13);
	lineto(X21,Y13);
	moveto(X21,Y12);
	lineto(X22,Y12);
	moveto(X22,Y40);
	lineto(X23,Y40);
	moveto(X23,Y39);
	lineto(X24,Y39);
	moveto(X24,Y38);
	lineto(X25,Y38);
	moveto(X22,Y33);
	lineto(X29,Y33);
	moveto(X22,Y22);
	lineto(X26,Y22);
	moveto(X26,Y25);
	lineto(X29,Y25);
	moveto(X22,Y20);
	lineto(X25,Y20);
	moveto(X22,Y18);
	lineto(X25,Y18);
	moveto(X22,Y16);
	lineto(X25,Y16);
	moveto(X26,Y21);
	lineto(X27,Y21);
	moveto(X27,Y20);
	lineto(X28,Y20);
	moveto(X28,Y19);
	lineto(X29,Y19);
	moveto(X29,Y36);
	lineto(X30,Y36);
	moveto(X30,Y35);
	lineto(X31,Y35);
	moveto(X31,Y34);
	lineto(X32,Y34);
	moveto(X29,Y29);
	lineto(X34,Y29);
	moveto(X33,Y27);
	lineto(X34,Y27);
	moveto(X33,Y25);
	lineto(X34,Y25);
	moveto(X33,Y23);
	lineto(X34,Y23);







	penPat(2);
END;
RUN(faltkarte);