      PROGRAM TVBIOS1
C
      EXTERNAL DVBIOS
      INTEGER*2 IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL
C
      IAH=0
      IAL=6
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
C
      IAH=12
      IAL=15
      DO 10 J=1,200
      DO 10 I=1,200
      ICL=3*(J-1)
      ICH=ICL/256
      IDL=I-1
      IDH=IDL/256
      CALL DVBIOS(IAH,IAL,IBH,IBL,ICH,ICL,IDH,IDL)
 10   CONTINUE
C
      STOP
      END




