      PROGRAM TVBIOS2
C
      EXTERNAL DVBIOS
      INTEGER*2 IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL
C
      WRITE(6,50)
 50   FORMAT(' TVBIOS2: TESTING THE GRAPHICS')
C
      IAH=0
      IAL=6
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
C
      IAH=12
      IAL=15
      DO 10 J=18,598
      ICL=J
      ICH=ICL/256
      IDL=19
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
 10   CONTINUE
C
      DO 11 J=18,598
      ICL=J
      ICH=ICL/256
      IDL=179
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
 11   CONTINUE
C
      DO 12 J=19,179
      ICL=18
      ICH=ICL/256
      IDL=J
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
 12   CONTINUE
C
      DO 13 J=19,179
      ICL=598
      ICH=ICL/256
      IDL=J
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
 13   CONTINUE
C
      STOP
      END





