ADAGRAPH.LIB

PACKAGE ADAGRAPH IS
	--RETURN ADDRESS VARIABLES
		RET_ADJ_SL, RET_RVA, RET_LS, RET_IC, RET_XM : INTEGER;
		RET_FILL, RET_AFILL, RET_OL, RET_SPE, RET_CPE : INTEGER;
		RET_DML, RET_RPE : INTEGER;
	--CURSOR ADDRESS VARIABLES
		CURS_0, CURS_1, CURS_2, CURS_3, CURS_4 : INTEGER;
		X_LOC : INTEGER;
	--X/Y POSITION AND GENERAL PURPOSE VARIABLES
		X_START, Y_START, X_END, Y_END : INTEGER;
		X_POS, Y_POS, DELTA_X, DELTA_Y, INC_CTR : INTEGER;
		L_ERROR, END_CNT : INTEGER;
		X_CTR, Y_CTR, RADIUS, X_REL, Y_REL, P_VAL : INTEGER;
	--COLOR VARIABLES
		P_COLOR, F_COLOR, B_COLOR : INTEGER;
	--SYSTEM STATUS
		SYS_STAT : INTEGER;
	--SEGMENT E STATUS
		SEGMENT_E, SEGMENT_FE, SEGMENT_IE : INTEGER;
	--COLOR PLANE BASE ADDRESS
		COL_PL_ADDR : INTEGER;
		SAV_COL1_STAT, SAV_COL2_STAT, SAV_COL3_STAT : INTEGER;
		COL_PLl, COL_PL2, COL_PL3 : INTEGER;
	--FILL ROUTINE CONTOL VARIABLE
		COL_MIX : INTEGER;
	--GRAPHICS LIBRARY PROCEDURES
	--
		PROCEDURE CLS;
		PROCEDURE COLOR (color_code : in INTEGER);
		PROCEDURE SET_CURS (x_pos, y_pos : in INTEGER);
		PROCEDURE RESET_CURS (x_pos, y_pos : in INTEGER);
		PROCEDURE DRAW_LINE (x_start, y_start, x_end, y_end : in INTEGER);
		PROCEDURE DRAW_MLINE (x_start, y_start, x_end, y_end : in INTEGER);
		PROCEDURE CIRCLE (x_ctr, y_ctr, radius : in INTEGER);
		PROCEDURE INQUIRE_COLOR (x_pos, y_pos : in INTEGER; color : out INTEGER);
		PROCEDURE BOUNDARY_FILL (x_pos, y_pos , f_color, b_color : in INTEGER);
		PROCEDURE AREA_FILL (x_pos, y_pos , f_color : in INTEGER);
		PROCEDURE SET_PIXEL (x_pos, y_pos : in INTEGER);
		PROCEDURE RESET_PIXEL (x_pos, y_pos : in INTEGER);
END ADAGRAPH;