*ident ctss
*/ ------------------------------------------------------
*/ machine-dependent changes to bbc
*/ the ctss operating system at los alamos
*/ this is a 64-bit system.  do not use "set sw".
*/ ------------------------------------------------------
*d bbc.2
      program bbc(input,output,tty,
     x  tape5=input,tape6=output,tape59=tty)
*d bbc.132
      call filerep
      nshort=59
*d bbc.1061
      call second(time)
*d bbc.1071
      call dateh(idate)
      write(hdate,'(a8)') idate
*d bbc.1081
      call clock1(itime)
      write(htime,'(a8)') itime
*d bbc.1094
      stop 77