DECLARE FUNCTION G1GetPel%(BYVAL X%, BYVAL Y%) DECLARE FUNCTION G2GetPel%(BYVAL X%, BYVAL Y%) DECLARE SUB G1Banner (St$, X%, Y%, Xmul%, Ymul%) DECLARE SUB G1Box(BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%) DECLARE SUB G1Cls DECLARE SUB G1Color(BYVAL Foregnd%, BYVAL Backgnd%) DECLARE SUB G1GetColor(Foregnd%, Backgnd%) DECLARE SUB G1GetLocate(Row%, Column%) DECLARE SUB G1Line(BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%) DECLARE SUB G1Locate(BYVAL Row%, BYVAL Column%) DECLARE SUB G1MirrorH(A%(), B%()) DECLARE SUB G1Mode(BYVAL ModeNr%) DECLARE SUB G1Plot(BYVAL X%, BYVAL Y%) DECLARE SUB G1Polygon (X%, Y%, Radius%, Vertices%, Angle!) DECLARE SUB G1Write(St$) DECLARE SUB G1WriteLn(St$) DECLARE SUB G2Banner (St$, X%, Y%, Xmul%, Ymul%) DECLARE SUB G2Box(BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%) DECLARE SUB G2Cls DECLARE SUB G2Color(BYVAL Foregnd%, BYVAL Backgnd%) DECLARE SUB G2GetColor(Foregnd%, Backgnd%) DECLARE SUB G2GetLocate(Row%, Column%) DECLARE SUB G2Line(BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%) DECLARE SUB G2LoadMac(File$, Array%()) DECLARE SUB G2Locate(BYVAL Row%, BYVAL Column%) DECLARE SUB G2MirrorH(A%(), B%()) DECLARE SUB G2Mode(BYVAL ModeNr%) DECLARE SUB G2Plot(BYVAL X%, BYVAL Y%) DECLARE SUB G2Polygon (X%, Y%, Radius%, Vertices%, Angle!) DECLARE SUB G2Write(St$) DECLARE SUB G2WriteLn(St$) DECLARE SUB PrintScreen(ScreenMode%) DECLARE SUB ScreenSize(Rows%, Columns%)