MAP1 GCB,X,80000
MAP1 STATUS,F,6
MAP1 POINT'ARRAY
MAP2 POINT'COUNT,B,2 ! total count of points
MAP2 POINTS(64) ! max number of points
MAP3 X'POINT,B,2 ! X coordinate
MAP3 Y'POINT,B,2 ! Y coordinate
ON ERROR GOTO EXIT
PRINT TAB(-1,29);TAB(-3,0); TAB(-2,1);
XCALL AMGSBR, G'OPWK, GCB, STATUS ! OPEN THE WORKSTATION
XCALL AMGSBR, G'CLRW, GCB, STATUS
WORDS="AMIGOS"
XCALL AMGSBR, G'STXF, GCB, 13, STATUS
XCALL AMGSBR, G'SCHH, GCB, 2000, STATUS
XCALL AMGSBR, G'STXC, GCB, 1, STATUS
XCALL AMGSBR, G'TX, GCB, 12250, 10000, WORDS, STATUS
PRINT TAB(16,1);
PRINT
PRINT " AMIGOS is organized as a collection of subroutines which may be "
PRINT " utilized by an application program to perform graphical input, output,"
PRINT " and transformation. AMIGOS provides a standardized interface between"
PRINT " the various types of graphical input and output devices (printers, "
PRINT " plotters, CRTs, etc.) and the applications software. "
POINT'COUNT = 4
X'POINT(1)=5000
X'POINT(2)=7500
X'POINT(3)=2500
X'POINT(4)=5000
Y'POINT(1)=22000
Y'POINT(2)=17000
Y'POINT(3)=17000
Y'POINT(4)=22000
COLOR = GREEN
XCALL AMGSBR, G'SFAI, GCB, 12, STATUS
XCALL AMGSBR, G'SFAS, GCB, 3, STATUS
!NO'LINES=1
CALL RECT
POINT'COUNT=5
WHITE=1
COLOR=9
X'POINT(1)=11000
X'POINT(2)=19000
X'POINT(3)=19000
X'POINT(4)=11000
X'POINT(5)=11000
Y'POINT(1)=23000
Y'POINT(2)=23000
Y'POINT(3)=17000
Y'POINT(4)=17000
Y'POINT(5)=23000
XCALL AMGSBR, G'SFAI, GCB, 24, STATUS
XCALL AMGSBR, G'SFAS, GCB, 3, STATUS
CALL RECT
XCALL AMGSBR, G'SFAS, GCB, 2, STATUS
