home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibm370 / ikcfix.exec < prev    next >
Text File  |  2020-01-01  |  1KB  |  32 lines

  1. &TRACE *
  2. *   IKCFIX EXEC - J.F. Chandler - 1993 June
  3. *
  4. * Source files are often transmitted through e-mail or other media that
  5. * can translate the character codes.  Sometimes, that can be desirable
  6. * and usefull, e.g., when special characters, such as square brackets,
  7. * within literal data in the source need to be converted from the usual
  8. * code page 1047 to some other.  In other cases, though, the changes
  9. * are simply damage to be repaired.  This EXEC is designed to do just
  10. * that, assuming is passes through the same path as the other files.
  11. *
  12. * Examine the line before label "-A": if the pairs of character and
  13. * hex codes agree, then no repairs are needed.  If they disagree,
  14. * then this EXEC can be used to repair the files (use as COPYFILE).
  15. * Note the brief names for all the characters shown after "-A".
  16. *
  17. * E.g., to repair a file "in place" and without changing dates, issue
  18. *          IKCFIX <fn> <ft> <fm> (OLDDATE
  19. *
  20. &COMMAND MAKEBUF
  21. &BUF = &RC
  22. &BEGSTACK -A
  23.   ! 5A   [ AD   \ E0   ] BD   ^ 5F   | 4F   ~ A1   { C0   } D0   @ 7C
  24. -A
  25. * exclam lbrack bslash rbrack not    vert   tilde  lbrace rbrace at
  26. & = &LOCATION OF ( &ARGSTRING
  27. &IF & = 0 &DLM = (
  28. &COMMAND COPYFILE &ARGSTRING &DLM TRANS NOPROMPT
  29. &R = &RC
  30. &COMMAND DROPBUF &BUF
  31. &EXIT &R
  32.