      PROGRAM TMBIOS
C
C     TEST PROGRAM FOR MBIOS
C     OLYMPIC SOFTWARE  --  9/26/88
C
C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
C
      EXTERNAL MBIOS
      INTEGER*2 IARRAY(15)
C
      WRITE(*,20)
 20   FORMAT(' IARRAY=? ',$)
      READ(*,*)(IARRAY(I),I=1,15)
      CALL MBIOS(IARRAY)
      WRITE(*,12)(IARRAY(I),I=1,15)
 12   FORMAT(/,15I4)
      STOP
      END

