#include <ssdef.h>
#include <starlet.h>
#include <stdio.h>
#include <stdlib.h>
#include <stsdef.h>
main()
  {
  short int TimVec[7];
  int RetStat;
  int BinTim[2];
  int i;

  RetStat = sys$gettim(&BinTim);
  if (!$VMS_STATUS_SUCCESS( RetStat ))
    return RetStat;

  RetStat = sys$numtim( TimVec, BinTim );
  if (!$VMS_STATUS_SUCCESS( RetStat ))
    return RetStat;

  for (i = 0; i < 7; i++ )
    printf("TimVec[%d] = %d\n", i, TimVec[i] );

  return SS$_NORMAL;
  }