Category : Science and Education
Archive   : WDBDISK5.ZIP
Filename : FGPASDEF.INC

PROCEDURE ARC(X,Y,R,START_ANGLE,END_ANGLE : FGREAL); EXTERNAL;
PROCEDURE ARCXY(VAR X,Y : FGREAL); EXTERNAL;
PROCEDURE BACK(DIST : TURTLE_TYPE); EXTERNAL;
PROCEDURE BKGCLR(COLOR : INTEGER); EXTERNAL;
PROCEDURE CGAPAL(I,J : INTEGER); EXTERNAL;
PROCEDURE CIRC(X,Y,R : FGREAL); EXTERNAL;
PROCEDURE CLEARSCREEN; EXTERNAL;
PROCEDURE CLIP; EXTERNAL;
PROCEDURE CLRTOG; EXTERNAL;
PROCEDURE CLRVIEW; EXTERNAL;
PROCEDURE CURPAT(VAR CURRENT_PATTER : INTEGER); EXTERNAL;
PROCEDURE DASHPT(PATTERN : INTEGER); EXTERNAL;
PROCEDURE DO_TURTLE; EXTERNAL;
PROCEDURE DRAW(X,Y : FGREAL); EXTERNAL;
PROCEDURE EGAPAL(FUNC : INTEGER; VAR VECTOR : BYTE); EXTERNAL;
PROCEDURE FGADDR(VAR V,SEGMENT,OFFSET : INTEGER); EXTERNAL;
PROCEDURE FGAUXI(VAR V : INTEGER); EXTERNAL;
PROCEDURE FGAUXO(V : INTEGER); EXTERNAL;
PROCEDURE FGBACK(COLOR : INTEGER); EXTERNAL;
PROCEDURE FGCANG(ANGLE : INTEGER); EXTERNAL;
PROCEDURE FGCONI(VAR V : INTEGER); EXTERNAL;
PROCEDURE FGCONS(VAR V : INTEGER); EXTERNAL;
PROCEDURE FGDASH(NEW_PAT : INTEGER; VAR OLD_PAT : INTEGER); EXTERNAL;
PROCEDURE FGDISP(V : INTEGER); EXTERNAL;
PROCEDURE FGDONE(DEV : INTEGER; VAR VECTOR : INTEGER); EXTERNAL;
PROCEDURE FGDOTC(VAR COLOR : INTEGER); EXTERNAL;
PROCEDURE FGEOSD(DELIMITER : INTEGER); EXTERNAL;
PROCEDURE FGFILL(BOUNDARY_COLOR : INTEGER); EXTERNAL;
PROCEDURE FGFONT(NDX,R9,R8,R7,R6,R5,R4,R3,R2,R1 : INTEGER); EXTERNAL;
PROCEDURE FGFORE(COLOR : INTEGER); EXTERNAL;
PROCEDURE FGHASH(VAR PATTERN : INTEGER); EXTERNAL;
PROCEDURE FGHF01; EXTERNAL;
PROCEDURE FGHF02; EXTERNAL;
PROCEDURE FGHF03; EXTERNAL;
PROCEDURE FGHF04; EXTERNAL;
PROCEDURE FGHF05; EXTERNAL;
PROCEDURE FGHF06; EXTERNAL;
PROCEDURE FGHF07; EXTERNAL;
PROCEDURE FGHF08; EXTERNAL;
PROCEDURE FGHF09; EXTERNAL;
PROCEDURE FGHF10; EXTERNAL;
PROCEDURE FGHF11; EXTERNAL;
PROCEDURE FGHF12; EXTERNAL;
PROCEDURE FGHF13; EXTERNAL;
PROCEDURE FGHF14; EXTERNAL;
PROCEDURE FGHF15; EXTERNAL;
PROCEDURE FGHF16; EXTERNAL;
PROCEDURE FGHF17; EXTERNAL;
PROCEDURE FGHF18; EXTERNAL;
PROCEDURE FGHF19; EXTERNAL;
PROCEDURE FGHF20; EXTERNAL;
PROCEDURE FGHF21; EXTERNAL;
PROCEDURE FGHF22; EXTERNAL;
PROCEDURE FGHF23; EXTERNAL;
PROCEDURE FGHF24; EXTERNAL;
PROCEDURE FGHF25; EXTERNAL;
PROCEDURE FGHGAP(GAP : INTEGER); EXTERNAL;
PROCEDURE FGIN10(VAR AX,BX,CX,DX,SI,DI,DS,ES,FLAG : INTEGER); EXTERNAL;
PROCEDURE FGIN21(VAR AX,BX,CX,DX,SI,DI,DS,ES,FLAG : INTEGER); EXTERNAL;
PROCEDURE FGINIT(DEV,OPT : INTEGER; VAR VECTOR,ERROR_VAR : INTEGER); EXTERNAL;
PROCEDURE FGLINE(X,Y : INTEGER); EXTERNAL;
PROCEDURE FGMAXS(VAR X,Y : INTEGER); EXTERNAL;
PROCEDURE FGMODE(I,J : INTEGER); EXTERNAL;
PROCEDURE FGMOVE(X,Y : INTEGER); EXTERNAL;
PROCEDURE FGNEWP; EXTERNAL;
PROCEDURE FGPLOT(X,Y : INTEGER); EXTERNAL;
PROCEDURE FGPREC(RADIUS,ANGLE : INTEGER; VAR X,Y : INTEGER); EXTERNAL;
PROCEDURE FGRAND(MODULUS : INTEGER; VAR RNUMB : INTEGER); EXTERNAL;
PROCEDURE FGSDSH(PATTERN : INTEGER); EXTERNAL;
PROCEDURE FGSEED(SEED : INTEGER); EXTERNAL;
PROCEDURE FGSFNT; EXTERNAL;
PROCEDURE FGSHSH(PATTERN : INTEGER); EXTERNAL;
PROCEDURE FGTYPE(SIZE,DIRECTION,LENGTH : INTEGER; VAR STR : CHAR); EXTERNAL;
PROCEDURE FGVEC(X,Y : FGREAL); EXTERNAL;
PROCEDURE FGWAIT(TIME : INTEGER); EXTERNAL;
PROCEDURE FGXYAT(VAR X,Y : INTEGER); EXTERNAL;
PROCEDURE FILL (XMIN,XMAX,YMIN,YMAX : FGREAL); EXTERNAL;
PROCEDURE FORWD(DIST : TURTLE_TYPE); EXTERNAL;
PROCEDURE GCLOSE; EXTERNAL;
PROCEDURE GOPEN(DEVICE,MODE : INTEGER); EXTERNAL;
PROCEDURE GRDONE(VAR DONE_VECTOR : INTEGER); EXTERNAL;
PROCEDURE GRINIT(DEVICE,OPTION : INTEGER; VAR VEC : INTEGER); EXTERNAL;
PROCEDURE GRSTOP; EXTERNAL;
PROCEDURE GRSTRT(DEVICE,MODE,INTERLACE : INTEGER); EXTERNAL;
FUNCTION HEADING : TURTLE_TYPE; EXTERNAL;
PROCEDURE HIDETURTLE; EXTERNAL;
PROCEDURE HOME; EXTERNAL;
FUNCTION IERRNM(QCLEAR : INTEGER) : INTEGER; EXTERNAL;
PROCEDURE LINCLR(COLOR : INTEGER); EXTERNAL;
PROCEDURE MOVE(X,Y : FGREAL); EXTERNAL;
PROCEDURE NDC(XMIN,XMAX,YMIN,YMAX : FGREAL); EXTERNAL;
PROCEDURE NEWPAG; EXTERNAL;
PROCEDURE NOCLIP; EXTERNAL;
PROCEDURE NOWRAP; EXTERNAL;
PROCEDURE PAINT(X,Y : FGREAL; EDGE_COLOR : INTEGER); EXTERNAL;
PROCEDURE PATERN(PATTERN : INTEGER); EXTERNAL;
PROCEDURE PENDOWN; EXTERNAL;
PROCEDURE PENUP; EXTERNAL;
PROCEDURE PLOT(X,Y : FGREAL); EXTERNAL;
PROCEDURE SETHEADING(DIRECTION : TURTLE_TYPE); EXTERNAL;
PROCEDURE SETPENCOLOR(COLOR : INTEGER); EXTERNAL;
PROCEDURE SETPOSITION(X,Y : TURTLE_TYPE); EXTERNAL;
PROCEDURE SETTOG; EXTERNAL;
PROCEDURE SHOWTURTLE; EXTERNAL;
PROCEDURE SPECPT(PATTERN : INTEGER); EXTERNAL;
PROCEDURE TESTXY(X,Y : FGREAL; VAR COLOR : INTEGER); EXTERNAL;
PROCEDURE TURNLEFT(DEGREES : TURTLE_TYPE); EXTERNAL;
PROCEDURE TURNRIGHT(DEGREES : TURTLE_TYPE); EXTERNAL;
PROCEDURE TURTLEDELAY(TIME : INTEGER); EXTERNAL;
PROCEDURE TURTLEOFF; EXTERNAL;
PROCEDURE TURTLEON; EXTERNAL;
FUNCTION TURTLETHERE: INTEGER; EXTERNAL;
PROCEDURE TURTLEWINDOW(XMIN,XMAX,YMIN,YMAX : TURTLE_TYPE); EXTERNAL;
PROCEDURE TYPET(SIZE,DIR,LENG : INTEGER; VAR STR : CHAR); EXTERNAL;
PROCEDURE TYPETC(Y : FGREAL; SIZE, LENG : INTEGER; VAR STR : CHAR); EXTERNAL;
PROCEDURE UNDO_TURTLE; EXTERNAL;
PROCEDURE VECABS; EXTERNAL;
PROCEDURE VECREL; EXTERNAL;
PROCEDURE VIEW(XMIN,XMAX,YMIN,YMAX : FGREAL); EXTERNAL;
PROCEDURE WHERE(VAR X,Y : FGREAL); EXTERNAL;
PROCEDURE WINDOW(XMIN,XMAX,YMIN,YMAX : FGREAL); EXTERNAL;
PROCEDURE WRAP; EXTERNAL;
FUNCTION XCOR : TURTLE_TYPE; EXTERNAL;
FUNCTION XTODOT(X : FGREAL) : INTEGER; EXTERNAL;
PROCEDURE XYDOT(VAR X,Y : FGREAL); EXTERNAL;
FUNCTION YCOR : TURTLE_TYPE; EXTERNAL;
FUNCTION YTODOT(Y : FGREAL) : INTEGER; EXTERNAL;