!
!  this program will be used for display purposes at a convention.
!
!

++INCLUDE DSK0:AMGSYM.BSI[7,6]	! AMIGOS XCALL library

MAP1 BLACK,F,6,0
MAP1 WHITE,F,6,1
MAP1 BLUE,F,6,2
MAP1 MAGENTA,F,6,3
MAP1 RED,F,6,4
MAP1 YELLOW,F,6,5
MAP1 GREEN,F,6,6
MAP1 CYAN,F,6,4
MAP1 COLOR,F,6

MAP1 XLOCATION,F,6
MAP1 YLOCATION,F,6
MAP1 WORDS,S,80
MAP1 FONT,F,6

MAP1 GCB,X,60000
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,2); TAB(-2,1);
XCALL AMGSBR, G'OPWK, GCB, "", STATUS,, ""	! OPEN THE WORKSTATION
XCALL AMGSBR, G'CLRW, GCB, STATUS
XCALL AMGSBR, G'SFAS, GCB, 2, STATUS		!SET SOLID FILL STYLE

POINT'COUNT=5
! TERMINAL STAND
COLOR=9
X'POINT(1)=12800
X'POINT(2)=17250
X'POINT(3)=17000
X'POINT(4)=13000
X'POINT(5)=12800
Y'POINT(1)=14000
Y'POINT(2)=14000
Y'POINT(3)=13500
Y'POINT(4)=13500
Y'POINT(5)=14000
NO'LINES=1
CALL RECT

!  TERMINAL
COLOR=9
X'POINT(1)=10000
X'POINT(2)=20000
X'POINT(3)=20000
X'POINT(4)=10000
X'POINT(5)=10000
Y'POINT(1)=22000
Y'POINT(2)=22000
Y'POINT(3)=14000
Y'POINT(4)=14000
Y'POINT(5)=22000
CALL RECT

! SCREEN
COLOR=8
X'POINT(1)=11000
X'POINT(2)=19000
X'POINT(3)=19000
X'POINT(4)=11000
X'POINT(5)=11000
Y'POINT(1)=21000
Y'POINT(2)=21000
Y'POINT(3)=15000
Y'POINT(4)=15000
Y'POINT(5)=21000
CALL RECT

! BASE
COLOR=9
X'POINT(1)=8000
X'POINT(2)=22000
X'POINT(3)=22000
X'POINT(4)=8000
X'POINT(5)=8000
Y'POINT(1)=13500
Y'POINT(2)=13500
Y'POINT(3)=12000
Y'POINT(4)=12000
Y'POINT(5)=13500
CALL RECT


! CURSOR
COLOR=6
X'POINT(1)=12000
X'POINT(2)=12250
X'POINT(3)=12250
X'POINT(4)=12000
X'POINT(5)=12000
Y'POINT(1)=20050
Y'POINT(2)=20050
Y'POINT(3)=19750
Y'POINT(4)=19750
Y'POINT(5)=20050
NO'LINES=1
CALL RECT

WORDS="alpha micro"
XCALL AMGSBR, G'STXC, GCB, 3, STATUS
XCALL AMGSBR, G'STXF, GCB, 13, STATUS
XCALL AMGSBR, G'SCHH, GCB, 100, STATUS
XCALL AMGSBR, G'TX, GCB, 8200, 12900, WORDS, STATUS

WORDS="|  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |"
XCALL AMGSBR, G'STXC, GCB, BLACK, STATUS
XCALL AMGSBR, G'STXF, GCB, 8, STATUS
XCALL AMGSBR, G'SCHH, GCB, 500, STATUS
XCALL AMGSBR, G'TX, GCB, 12000, 12800, WORDS, STATUS


WORDS="The AM-72 Terminal"
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, 9250, 9000, WORDS, STATUS
PRINT TAB(17,1);
PRINT
PRINT "        The AM-72 color graphics terminal is a powerful tool to be used with"
PRINT "  your  applications  software.   While its various emulation modes allow it"
PRINT "  to be used with software  written  for  older  terminals,  its many unique"
PRINT "  features  can  bring  new  power and appeal to your software when properly"
PRINT "  employed."

CLOSER:	XCALL SLEEP, 3
	CALL LINER
	XCALL SLEEP, 4
	CALL PIE
	XCALL SLEEP, 5
	XCALL AMGSBR, G'CLWK, GCB, STATUS

EXIT:	END

LINER:
POINT'COUNT = 5
C = 0
! SCREEN
COLOR=WHITE
X'POINT(1)=11000
X'POINT(2)=19000
X'POINT(3)=19000
X'POINT(4)=11000
X'POINT(5)=11000
Y'POINT(1)=21000
Y'POINT(2)=21000
Y'POINT(3)=15000
Y'POINT(4)=15000
Y'POINT(5)=21000
CALL RECT
POINT'COUNT=2
FOR I = 1 TO 40
	IF C = 1 THEN XCALL AMGSBR, G'SPLC, GCB, 0, STATUS &
	ELSE XCALL AMGSBR, G'SPLC, GCB, C, STATUS
	C = C + 1 : IF C>=10 THEN C = 1
	X'POINT(1) = 15000
	Y'POINT(1) = 18000
	IF I<11 X'POINT(2)=11000+(C*800):Y'POINT(2)=20900
	IF I>11 AND I<21 Y'POINT(2)=15000+(C*600):X'POINT(2)=18900
	IF I>21 AND I<31 X'POINT(2)=11000+(C*800):Y'POINT(2)=15100
	IF I>31 AND I<41 Y'POINT(2)=15000+(C*600):X'POINT(2)=11100
	CALL LINED
NEXT I
RETURN

RECT:	XCALL AMGSBR, G'SFAC, GCB, COLOR,STATUS	
	XCALL AMGSBR, G'FA, GCB, POINT'ARRAY, STATUS
	IF NO'LINES=1 THEN NO'LINES=0 : RETURN
LINES:	XCALL AMGSBR, G'SPLC, GCB, WHITE, STATUS
	XCALL AMGSBR, G'PL, GCB, POINT'ARRAY, STATUS
	RETURN
LINED:
	XCALL AMGSBR, G'PL, GCB, POINT'ARRAY, STATUS
	RETURN


PIE:
POINT'COUNT = 5
! SCREEN
COLOR=WHITE
X'POINT(1)=11000
X'POINT(2)=19000
X'POINT(3)=19000
X'POINT(4)=11000
X'POINT(5)=11000
Y'POINT(1)=21000
Y'POINT(2)=21000
Y'POINT(3)=15000
Y'POINT(4)=15000
Y'POINT(5)=21000
CALL RECT
XCALL AMGSBR, G'SFAS, GCB, 2, STATUS
XCALL AMGSBR, G'SFAC, GCB, 2, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 0, 750, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 3, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 750, 1050, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 4, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 1050, 1600, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 5, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 1600, 1950, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 6, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 1950, 2670, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 7, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 2670, 3200, 100, STATUS
XCALL AMGSBR, G'SFAC, GCB, 8, STATUS
XCALL AMGSBR, G'GSCT, GCB, 15000, 18000, 2200, 3200, 3600, 100, STATUS
RETURN