!
!
!  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,7
MAP1 COLOR,F,6

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

MAP1 GCB,X,80000
MAP1 STATUS,F,6
MAP1 POINT'ARRAY
 MAP2 POINT'COUNT,B,2          ! total count of points
 MAP2 POINTS(25)               ! 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(-1,36);
XCALL AMGSBR, G'OPWK, GCB, "", STATUS,, ""      ! OPEN THE WORKSTATION
XCALL AMGSBR, G'CLRW, GCB, STATUS

!  draw a filled screen in white
COLOR=9
XCALL AMGSBR, G'SFAS, GCB, 2, STATUS
X'POINT(1) = 000
Y'POINT(1) = 00
X'POINT(2) = 32000
Y'POINT(2) = 000
X'POINT(3) = 32000
Y'POINT(3) = 24000
X'POINT(4) = 000
Y'POINT(4) = 24000
X'POINT(5) = 000
Y'POINT(5) = 00
CALL RECT
COLOR = MAGENTA

! left face
X'POINT(1) = 16000
Y'POINT(1) = 000
X'POINT(2) = 16000
Y'POINT(2) = 2000
X'POINT(3) = 6000
Y'POINT(3) = 4500
X'POINT(4) = 6000
Y'POINT(4) = 2500
X'POINT(5) = 16000
Y'POINT(5) = 000
CALL RECT

COLOR = 11
! right face
X'POINT(1) = 16000
Y'POINT(1) = 000
X'POINT(2) = 16000
Y'POINT(2) = 2000
X'POINT(3) = 26000
Y'POINT(3) = 4500
X'POINT(4) = 26000
Y'POINT(4) = 2500
X'POINT(5) = 16000
Y'POINT(5) = 000
CALL RECT

COLOR = MAGENTA
! surface
X'POINT(1) = 6000
Y'POINT(1) = 4500
X'POINT(2) = 16000
Y'POINT(2) = 2000
X'POINT(3) = 26000
Y'POINT(3) = 4500
X'POINT(4) = 16000
Y'POINT(4) = 7000
X'POINT(5) = 6000
Y'POINT(5) = 4500
CALL RECT

COLOR = 15
! left back
X'POINT(1) = 6000
Y'POINT(1) = 4500
X'POINT(2) = 16000
Y'POINT(2) = 7000
X'POINT(3) = 16000
Y'POINT(3) = 19500
X'POINT(4) = 6000
Y'POINT(4) = 17000
X'POINT(5) = 6000
Y'POINT(5) = 4500
CALL RECT

! right right back surface
X'POINT(1) = 27000
Y'POINT(1) = 17250
X'POINT(2) = 27000
Y'POINT(2) = 2750
X'POINT(3) = 26000
Y'POINT(3) = 2500
X'POINT(4) = 26000
Y'POINT(4) = 17000
X'POINT(5) = 27000
Y'POINT(5) = 17250
CALL RECT

COLOR=CYAN
! left left back surface
X'POINT(1) = 6000
Y'POINT(1) = 17000
X'POINT(2) = 6000
Y'POINT(2) = 2500
X'POINT(3) = 5000
Y'POINT(3) = 2750
X'POINT(4) = 5000
Y'POINT(4) = 17250
X'POINT(5) = 6000
Y'POINT(5) = 17000
CALL RECT

! right back
X'POINT(1) = 16000
Y'POINT(1) = 7000
X'POINT(2) = 26000
Y'POINT(2) = 4500
X'POINT(3) = 26000
Y'POINT(3) = 17000
X'POINT(4) = 16000
Y'POINT(4) = 19500
X'POINT(5) = 16000
Y'POINT(5) = 7000
CALL RECT

! right up back surface
X'POINT(1) = 16000
Y'POINT(1) = 19500
X'POINT(2) = 17000
Y'POINT(2) = 19750
X'POINT(3) = 27000
Y'POINT(3) = 17250
X'POINT(4) = 26000
Y'POINT(4) = 17000
X'POINT(5) = 16000
Y'POINT(5) = 19500
CALL RECT

! left up back surface
X'POINT(1) = 16000
Y'POINT(1) = 19500
X'POINT(2) = 15000
Y'POINT(2) = 19750
X'POINT(3) = 5000
Y'POINT(3) = 17250
X'POINT(4) = 6000
Y'POINT(4) = 17000
X'POINT(5) = 16000
Y'POINT(5) = 19500
CALL RECT

XSTART = 14000
YSTART = 500
POINT'COUNT=5
FOR I = 1 TO 4
       X'POINT(1) = XSTART
       Y'POINT(1) = YSTART
       X'POINT(2) = XSTART
       Y'POINT(2) = YSTART + 2000
       X'POINT(3) = XSTART + 10000
       Y'POINT(3) = YSTART + 4500
       X'POINT(4) = XSTART + 10000
       Y'POINT(4) = YSTART + 17000
       X'POINT(5) = XSTART + 11000
       Y'POINT(5) = YSTART + 17250
       CALL LINES
       XSTART = XSTART - 2000
       YSTART = YSTART + 500
NEXT I

XSTART = 18000
YSTART = 500
POINT'COUNT=5
FOR I = 1 TO 4
       X'POINT(1) = XSTART
       Y'POINT(1) = YSTART
       X'POINT(2) = XSTART
       Y'POINT(2) = YSTART + 2000
       X'POINT(3) = XSTART - 10000
       Y'POINT(3) = YSTART + 4500
       X'POINT(4) = XSTART - 10000
       Y'POINT(4) = YSTART + 17000
       X'POINT(5) = XSTART - 11000
       Y'POINT(5) = YSTART + 17250
       CALL LINES
       XSTART = XSTART + 2000
       YSTART = YSTART + 500
NEXT I

YSTART = 7000
POINT'COUNT=5
FOR I = 1 TO 4
       X'POINT(1) = 5000
       Y'POINT(1) = YSTART + 250
       X'POINT(2) = 6000
       Y'POINT(2) = YSTART
       X'POINT(3) = 16000
       Y'POINT(3) = YSTART + 2500
       X'POINT(4) = 26000
       Y'POINT(4) = YSTART
       X'POINT(5) = 27000
       Y'POINT(5) = YSTART + 250
       CALL LINES
       YSTART = YSTART + 2500
NEXT I

POINT'COUNT=2
X'POINT(1) = 26000
Y'POINT(1) = 4500
X'POINT(2) = 27000
Y'POINT(2) = 4750
CALL LINES

X'POINT(1) = 6000
Y'POINT(1) = 4500
X'POINT(2) = 5000
Y'POINT(2) = 4750
CALL LINES

XCALL AMGSBR, G'STXF, GCB, 13, STATUS
XCALL AMGSBR, G'SCHH, GCB, 1200, STATUS
XCALL AMGSBR, G'STXC, GCB, WHITE, STATUS
A$="UltraSoft"
XCALL AMGSBR, G'TX, GCB, 500, 21000, A$, STATUS
WORDS= " Product"
XCALL AMGSBR, G'TX, GCB, 5500, 21000, WORDS, STATUS
WORDS= " Comparison"
XCALL AMGSBR, G'TX, GCB, 600, 19500, WORDS, STATUS

XSTART = 3700
YSTART = 4350
XCALL AMGSBR, G'STXF, GCB, 11, STATUS
XCALL AMGSBR, G'SCHH, GCB, 600, STATUS
XCALL AMGSBR, G'STXC, GCB, WHITE, STATUS
A$="(x100)"
XCALL AMGSBR, G'TX, GCB, 3000, 3500, A$, STATUS
XCALL AMGSBR, G'TX, GCB, 27250, 3500, A$, STATUS
XCALL AMGSBR, G'SCHH, GCB, 900, STATUS
WORDS="1988"
XCALL AMGSBR, G'STXF, GCB, 13, STATUS
XCALL AMGSBR, G'SCHH, GCB, 900, STATUS
XCALL AMGSBR, G'TX, GCB, 6200, 3000, WORDS, STATUS
WORDS="1987"
XCALL AMGSBR, G'TX, GCB, 8250, 2500, WORDS, STATUS


FOR I = 0 TO 5
       A$ = "$" + STR(I * 10)
       XCALL AMGSBR, G'TX, GCB, XSTART, YSTART, A$, STATUS
       XCALL AMGSBR, G'TX, GCB, XSTART+23500, YSTART, A$, STATUS
       YSTART = YSTART + 2500
NEXT I

COLOR=WHITE
! legend
X'POINT(1) = 22000
Y'POINT(1) = 19500
X'POINT(2) = 22000
Y'POINT(2) = 23800
X'POINT(3) = 31000
Y'POINT(3) = 23800
X'POINT(4) = 31000
Y'POINT(4) = 19500
X'POINT(5) = 22000
Y'POINT(5) = 19500
CALL RECT

XCALL AMGSBR, G'STXF, GCB, 11, STATUS
XCALL AMGSBR, G'SCHH, GCB, 700, STATUS
XCALL AMGSBR, G'STXC, GCB, BLACK, STATUS
WORDS="TALKTO: "
XCALL AMGSBR, G'TX, GCB, 23000, 22750, WORDS, STATUS
WORDS="ULTRASAFE: "
XCALL AMGSBR, G'TX, GCB, 23000, 21750, WORDS, STATUS
WORDS="ALPHA PAINT: "
XCALL AMGSBR, G'TX, GCB, 23000, 20750, WORDS, STATUS
WORDS="APPT SCHED: "
XCALL AMGSBR, G'TX, GCB, 23000, 19750, WORDS, STATUS

XSTART = 28000
YSTART = 23500
FOR I = 1 TO 4
       X'POINT(1) = XSTART
       Y'POINT(1) = YSTART
       X'POINT(2) = XSTART + 2000
       Y'POINT(2) = YSTART
       X'POINT(3) = XSTART + 2000
       Y'POINT(3) = YSTART - 750
       X'POINT(4) = XSTART
       Y'POINT(4) = YSTART - 750
       X'POINT(5) = XSTART
       Y'POINT(5) = YSTART
       IF I = 1 COLOR = RED
       IF I = 2 COLOR = BLUE
       IF I = 3 COLOR = YELLOW
       IF I = 4 COLOR = GREEN
       CALL RECT
       YSTART = YSTART - 1000
NEXT I


COLOR=RED
! 1st red block
X'POINT(1) = 16000
Y'POINT(1) = 17000
X'POINT(2) = 18000
Y'POINT(2) = 17500
X'POINT(3) = 16000
Y'POINT(3) = 18000
X'POINT(4) = 14000
Y'POINT(4) = 17500
X'POINT(5) = 16000
Y'POINT(5) = 17000
CALL RECT

! 1st left red block
X'POINT(1) = 16000
Y'POINT(1) = 17000
X'POINT(2) = 16000
Y'POINT(2) = 6000
X'POINT(3) = 14000
Y'POINT(3) = 6500
X'POINT(4) = 14000
Y'POINT(4) = 17500
X'POINT(5) = 16000
Y'POINT(5) = 17000
CALL RECT

COLOR=12
! 1st right red block
X'POINT(1) = 16000
Y'POINT(1) = 17000
X'POINT(2) = 16000
Y'POINT(2) = 6000
X'POINT(3) = 18000
Y'POINT(3) = 6500
X'POINT(4) = 18000
Y'POINT(4) = 17500
X'POINT(5) = 16000
Y'POINT(5) = 17000
CALL RECT

COLOR=BLUE
! 1st blue block
X'POINT(1) = 14000
Y'POINT(1) = 15000
X'POINT(2) = 16000
Y'POINT(2) = 15500
X'POINT(3) = 14000
Y'POINT(3) = 16000
X'POINT(4) = 12000
Y'POINT(4) = 15500
X'POINT(5) = 14000
Y'POINT(5) = 15000
CALL RECT

! 1st left blue block
X'POINT(1) = 14000
Y'POINT(1) = 15000
X'POINT(2) = 14000
Y'POINT(2) = 5500
X'POINT(3) = 12000
Y'POINT(3) = 6000
X'POINT(4) = 12000
Y'POINT(4) = 15500
X'POINT(5) = 14000
Y'POINT(5) = 15000
CALL RECT

COLOR=10
! 1st right blue block
X'POINT(1) = 14000
Y'POINT(1) = 15000
X'POINT(2) = 14000
Y'POINT(2) = 5500
X'POINT(3) = 16000
Y'POINT(3) = 6000
X'POINT(4) = 16000
Y'POINT(4) = 15500
X'POINT(5) = 14000
Y'POINT(5) = 15000
CALL RECT

COLOR=YELLOW
! 1st yellow block
X'POINT(1) = 12000
Y'POINT(1) = 16000
X'POINT(2) = 14000
Y'POINT(2) = 16500
X'POINT(3) = 12000
Y'POINT(3) = 17000
X'POINT(4) = 10000
Y'POINT(4) = 16500
X'POINT(5) = 12000
Y'POINT(5) = 16000
CALL RECT

! 1st left yellow block
X'POINT(1) = 12000
Y'POINT(1) = 16000
X'POINT(2) = 12000
Y'POINT(2) = 5000
X'POINT(3) = 10000
Y'POINT(3) = 5500
X'POINT(4) = 10000
Y'POINT(4) = 16500
X'POINT(5) = 12000
Y'POINT(5) = 16000
CALL RECT

COLOR=13
! 1st right yellow block
X'POINT(1) = 12000
Y'POINT(1) = 16000
X'POINT(2) = 12000
Y'POINT(2) = 5000
X'POINT(3) = 14000
Y'POINT(3) = 5500
X'POINT(4) = 14000
Y'POINT(4) = 16500
X'POINT(5) = 12000
Y'POINT(5) = 16000
CALL RECT

COLOR=GREEN
! 1st green block
X'POINT(1) = 10000
Y'POINT(1) = 15000
X'POINT(2) = 12000
Y'POINT(2) = 15500
X'POINT(3) = 10000
Y'POINT(3) = 16000
X'POINT(4) = 8000
Y'POINT(4) = 15500
X'POINT(5) = 10000
Y'POINT(5) = 15000
CALL RECT

! 1st left green block
X'POINT(1) = 10000
Y'POINT(1) = 15000
X'POINT(2) = 10000
Y'POINT(2) = 4500
X'POINT(3) = 8000
Y'POINT(3) = 5000
X'POINT(4) = 8000
Y'POINT(4) = 15500
X'POINT(5) = 10000
Y'POINT(5) = 15000
CALL RECT

COLOR=14
! 1st right green block
X'POINT(1) = 10000
Y'POINT(1) = 15000
X'POINT(2) = 10000
Y'POINT(2) = 4500
X'POINT(3) = 12000
Y'POINT(3) = 5000
X'POINT(4) = 12000
Y'POINT(4) = 15500
X'POINT(5) = 10000
Y'POINT(5) = 15000
CALL RECT
XCALL SLEEP, 5
COLOR=RED
! 2nd red block
X'POINT(1) = 18000
Y'POINT(1) = 13000
X'POINT(2) = 20000
Y'POINT(2) = 13550
X'POINT(3) = 18000
Y'POINT(3) = 14000
X'POINT(4) = 16000
Y'POINT(4) = 13550
X'POINT(5) = 18000
Y'POINT(5) = 13000
CALL RECT

! 2nd left red block
X'POINT(1) = 18000
Y'POINT(1) = 13000
X'POINT(2) = 18000
Y'POINT(2) = 5500
X'POINT(3) = 16000
Y'POINT(3) = 6000
X'POINT(4) = 16000
Y'POINT(4) = 13500
X'POINT(5) = 18000
Y'POINT(5) = 13000
CALL RECT

COLOR=12
! 2nd right red block
X'POINT(1) = 18000
Y'POINT(1) = 13000
X'POINT(2) = 18000
Y'POINT(2) = 5500
X'POINT(3) = 20000
Y'POINT(3) = 6000
X'POINT(4) = 20000
Y'POINT(4) = 13550
X'POINT(5) = 18000
Y'POINT(5) = 13000
CALL RECT

COLOR=BLUE
! 2nd blue block
X'POINT(1) = 16000
Y'POINT(1) = 9000
X'POINT(2) = 18000
Y'POINT(2) = 9500
X'POINT(3) = 16000
Y'POINT(3) = 10000
X'POINT(4) = 14000
Y'POINT(4) = 9500
X'POINT(5) = 16000
Y'POINT(5) = 9000
CALL RECT

! 2nd left blue block
X'POINT(1) = 16000
Y'POINT(1) = 9000
X'POINT(2) = 16000
Y'POINT(2) = 5000
X'POINT(3) = 14000
Y'POINT(3) = 5500
X'POINT(4) = 14000
Y'POINT(4) = 9500
X'POINT(5) = 16000
Y'POINT(5) = 9000
CALL RECT

COLOR=10
! 2nd right blue block
X'POINT(1) = 16000
Y'POINT(1) = 9000
X'POINT(2) = 16000
Y'POINT(2) = 5000
X'POINT(3) = 18000
Y'POINT(3) = 5500
X'POINT(4) = 18000
Y'POINT(4) = 9500
X'POINT(5) = 16000
Y'POINT(5) = 9000
CALL RECT

COLOR=YELLOW
! 2nd yellow block
X'POINT(1) = 14000
Y'POINT(1) = 7000
X'POINT(2) = 16000
Y'POINT(2) = 7500
X'POINT(3) = 14000
Y'POINT(3) = 8000
X'POINT(4) = 12000
Y'POINT(4) = 7500
X'POINT(5) = 14000
Y'POINT(5) = 7000
CALL RECT

! 2nd left yellow block
X'POINT(1) = 14000
Y'POINT(1) = 7000
X'POINT(2) = 14000
Y'POINT(2) = 4500
X'POINT(3) = 12000
Y'POINT(3) = 5000
X'POINT(4) = 12000
Y'POINT(4) = 7500
X'POINT(5) = 14000
Y'POINT(5) = 7000
CALL RECT

COLOR=13
! 2nd right yellow block
X'POINT(1) = 14000
Y'POINT(1) = 7000
X'POINT(2) = 14000
Y'POINT(2) = 4500
X'POINT(3) = 16000
Y'POINT(3) = 5000
X'POINT(4) = 16000
Y'POINT(4) = 7500
X'POINT(5) = 14000
Y'POINT(5) = 7000
CALL RECT

COLOR=GREEN
! 2nd green block
X'POINT(1) = 12000
Y'POINT(1) = 6000
X'POINT(2) = 14000
Y'POINT(2) = 6500
X'POINT(3) = 12000
Y'POINT(3) = 7000
X'POINT(4) = 10000
Y'POINT(4) = 6500
X'POINT(5) = 12000
Y'POINT(5) = 6000
CALL RECT

! 2nd left green block
X'POINT(1) = 12000
Y'POINT(1) = 6000
X'POINT(2) = 12000
Y'POINT(2) = 4000
X'POINT(3) = 10000
Y'POINT(3) = 4500
X'POINT(4) = 10000
Y'POINT(4) = 6500
X'POINT(5) = 12000
Y'POINT(5) = 6000
CALL RECT

COLOR=14
! 2nd right green block
X'POINT(1) = 12000
Y'POINT(1) = 6000
X'POINT(2) = 12000
Y'POINT(2) = 4000
X'POINT(3) = 14000
Y'POINT(3) = 4500
X'POINT(4) = 14000
Y'POINT(4) = 6500
X'POINT(5) = 12000
Y'POINT(5) = 6000
CALL RECT



CLOSER: XCALL AMGSBR, G'CLWK, GCB, STATUS
EXIT:   XCALL SLEEP, 8 : PRINT TAB(23,1); TAB(-1,37);:END
RECT:
       XCALL AMGSBR, G'SFAC, GCB, COLOR,STATUS
       POINT'COUNT = 5
       XCALL AMGSBR, G'FA, GCB, POINT'ARRAY, STATUS
       IF NO'OUTLINE=1 THEN NO'OUTLINE=0 : RETURN
       ! outline the right face
       XCALL AMGSBR, G'SPLC, GCB,BLACK, STATUS         ! fill style
       XCALL AMGSBR, G'PL, GCB, POINT'ARRAY, STATUS
       RETURN

LINES:
       XCALL AMGSBR, G'SPLC, GCB,BLACK, STATUS         ! fill style
       XCALL AMGSBR, G'PL, GCB, POINT'ARRAY, STATUS
       RETURN

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.