! ***********************************************************************
! MDL 02/93			PCL Example
! ***********************************************************************

OPTION  TYPE=EXPLICIT,							&
	SIZE = (REAL DOUBLE, INTEGER LONG),				&
	CONSTANT TYPE = INTEGER

%INCLUDE "PCL.DEF"

EXTERNAL STRING FUNCTION	PCL_Draw_Rectangle,			&
				PCL_Position_Text,			&
				PCL_Position_Cursor,			&
				PCL_Use_Font,				&
				PCL_Draw_Vertical,			&
				PCL_Draw_Horizontal,			&
				PCL_Init_Page,				&
				PCL_Print_Direction,			&
				PCL_Emulate_Postnet

DECLARE STRING			Temp_String


open "PCL_EXAMPLE.pcl" for output as 11, organization sequential variable, &
	recordtype none


	PRINT #11, PCL_Init_Page

! Draw and fill boxes

	print #11, PCL_Draw_Rectangle(550,  50, 50, 50,  1,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(500, 200,100,100,  5,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(450, 400,150,150, 15,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(400, 650,200,200, 30,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(350, 950,250,250, 50,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(300,1300,300,300, 75,Fill_Shaded,3,100)
	print #11, PCL_Draw_Rectangle(225,1700,375,375,100,Fill_Shaded,3,100)

! Draw and pattern fill boxes

	print #11, PCL_Draw_Rectangle(1150,  50, 50, 50,1,Fill_Pattern,3,100)
	print #11, PCL_Draw_Rectangle(1100, 200,100,100,2,Fill_Pattern,3,100)
	print #11, PCL_Draw_Rectangle(1050, 400,150,150,3,Fill_Pattern,3,100)
	print #11, PCL_Draw_Rectangle(1000, 650,200,200,4,Fill_Pattern,3,100)
	print #11, PCL_Draw_Rectangle(950, 950,250,250,5,Fill_Pattern,3,100)
	print #11, PCL_Draw_Rectangle(900,1300,300,300,6,Fill_Pattern,3,100)

	print #11, PCL_Draw_Rectangle(825,1700,375,375,6,Fill_Pattern,3,100)

	print #11, PCL_Draw_Rectangle(950,1825,125,125,100,Fill_Solid_White,3,100)

	print #11, PCL_Use_Font(Universe,6,Medium,Normal)

	print #11, PCL_Position_Text(650,50,"1%")
	print #11, PCL_Position_Text(650,200,"5%")
	print #11, PCL_Position_Text(650,400,"15%")
	print #11, PCL_Position_Text(650,650,"30%")
	print #11, PCL_Position_Text(650,950,"50%")
	print #11, PCL_Position_Text(650,1300,"75%")
	print #11, PCL_Position_Text(650,1700,"100%")

	print #11, PCL_Position_Text(750,1000,"Shade")

	print #11, PCL_Position_Text(1250,50,"#1")
	print #11, PCL_Position_Text(1250,200,"#2")
	print #11, PCL_Position_Text(1250,400,"#3")
	print #11, PCL_Position_Text(1250,650,"#4")
	print #11, PCL_Position_Text(1250,950,"#5")
	print #11, PCL_Position_Text(1250,1300,"#6")
	print #11, PCL_Position_Text(1250,1700,"#6 w/ white overlay")

	print #11, PCL_Position_Text(1350,950,"Pattern Fill")

	print #11, PCL_Use_Font(Universe,15,Medium,Normal)
	print #11, PCL_Position_Cursor(1600,400)

	Print #11, PCL_Print_Direction(0);
	Print #11, "   Hello   ";
	Print #11, PCL_Print_Direction(90);
	Print #11, "   Hello   ";
	Print #11, PCL_Print_Direction(180);
	Print #11, "   Hello   ";
	Print #11, PCL_Print_Direction(270);
	Print #11, "   Hello   ";
	Print #11, PCL_Print_Direction(0)

	Print #11, PCL_Emulate_Postnet("123456789",1200,2400)
	Print #11, PCL_Position_Text(2500,1200,"12345-6789")

	CALL PCL_Draw_Circle(1200,1700,10)

	print #11, ff

	close 11

END