home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
deleteme.zip
/
ikcfix.exec
< prev
next >
Wrap
Text File
|
1993-06-29
|
1KB
|
32 lines
&TRACE *
* IKCFIX EXEC - J.F. Chandler - 1993 June
*
* Source files are often transmitted through e-mail or other media that
* can translate the character codes. Sometimes, that can be desirable
* and usefull, e.g., when special characters, such as square brackets,
* within literal data in the source need to be converted from the usual
* code page 1047 to some other. In other cases, though, the changes
* are simply damage to be repaired. This EXEC is designed to do just
* that, assuming is passes through the same path as the other files.
*
* Examine the line before label "-A": if the pairs of character and
* hex codes agree, then no repairs are needed. If they disagree,
* then this EXEC can be used to repair the files (use as COPYFILE).
* Note the brief names for all the characters shown after "-A".
*
* E.g., to repair a file "in place" and without changing dates, issue
* IKCFIX <fn> <ft> <fm> (OLDDATE
*
&COMMAND MAKEBUF
&BUF = &RC
&BEGSTACK -A
! 5A [ AD \ E0 ] BD ^ 5F | 4F ~ A1 { C0 } D0 @ 7C
-A
* exclam lbrack bslash rbrack not vert tilde lbrace rbrace at
& = &LOCATION OF ( &ARGSTRING
&IF & = 0 &DLM = (
&COMMAND COPYFILE &ARGSTRING &DLM TRANS NOPROMPT
&R = &RC
&COMMAND DROPBUF &BUF
&EXIT &R