home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / test / text / dates < prev    next >
Text File  |  2020-01-01  |  229b  |  13 lines
  1. #!/usr/local/bin/wermit
  2. fopen /read \%c datesfile
  3. while not \f_eof(\%c) {
  4.     fread \%c line
  5.     if eq "\s(line[1:1])" ";" {
  6.         echo \m(line)
  7.         continue
  8.     }
  9.     xecho "\frpad(\m(line),40)"
  10.     date \m(line)
  11. }
  12. exit 0
  13.