PICTURE square(LONG color_var, SINGLE Square_size )

   SET LINE COLOR color_var
   PLOT LINES : -Square_size,  Square_size;	&
		 Square_size,  Square_size;	&
		 Square_size, -Square_size;	&
		-Square_size, -Square_size;	&
		-Square_size,  Square_size		

END PICTURE