PROGRAM LINES
C
C     EXAMPLE PROGRAM FOR GBIOS
C     OLYMPIC SOFTWARE  --  9/22/88
C
      EXTERNAL GBIOS
      INTEGER*2 IAR(4)
C
C***    CHANGE TO GRAPHICS MODE, MODE=6 (CGA GRAPHICS)
      IAR(1)=0
      IAR(2)=6
      CALL GBIOS(IAR)
C
C***    PLOT VERTICAL LINES
      IAR(1)=12
      IAR(2)=15
      DO 10 J=1,200
      DO 10 I=1,200
      IAR(3)=3*(J-1)
      IAR(4)=I-1
      CALL GBIOS(IAR)
 10   CONTINUE
C
C***    CHANGE TO TEXT MODE, MODE=3
      IAR(1)=0
      IAR(2)=3
      CALL GBIOS(IAR)
C
      STOP
      END