      PROGRAM TGBIOS1
C
      EXTERNAL DGBIOS
      INTEGER*2 IAH,IAL,ICX,IDX
C
      IAH=0
      IAL=6
      CALL DGBIOS(IAH,IAL,ICX,IDX)
C
      IAH=12
      IAL=15
      DO 10 J=1,200
      DO 10 I=1,200
      ICX=3*(J-1)
      IDX=I-1
      CALL DGBIOS(IAH,IAL,ICX,IDX)
 10   CONTINUE
C
      STOP
      END




