PROGRAM TVBIOS
C
C     TEST PROGRAM FOR VBIOS
C     OLYMPIC SOFTWARE  --  9/22/88
C
C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
C
      EXTERNAL VBIOS
      INTEGER*2 IAR(10)
C
      WRITE(*,50)
 50   FORMAT(' IARRAY=? ',$)
C
      READ(*,*)IAR(1),IAR(2),IAR(3),IAR(4),IAR(5),IAR(6),IAR(7),IAR(8)
C
      CALL VBIOS(IAR)
C
      WRITE(*,51)(IAR(I),I=1,8)
 51   FORMAT(/,' ',8I6)
C
      STOP
      END