home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CUG / SOFTT-5.LBR / DATE.RAT < prev    next >
Text File  |  2000-06-30  |  512b  |  17 lines
  1. #-h-  date.r                      281  local   12/10/80  15:25:27
  2.  ## date - print current date & time
  3.  DRIVER(date)
  4.  character dat(MAXLINE), tim(MAXLINE)
  5.  integer now (7)
  6.  
  7.  call getnow (now)
  8.  call fmtdat (dat, tim, now, 0)
  9.  call putlin(dat, STDOUT)
  10.  call putch(BLANK, STDOUT)
  11.  call putlin(tim, STDOUT)
  12.  call putch(NEWLINE, STDOUT)
  13.  DRETURN
  14.  end
  15. #-t-  date.r                      281  local   12/10/80  15:25:27
  16. #-t-  date                        974  local   12/10/80  15:25:43
  17. itute of Technolo