home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
old
/
ckermit5a190
/
ckdcomp.cli
< prev
next >
Wrap
INI File
|
1994-03-30
|
1KB
|
49 lines
[!eq %/file%x,x]
comment
comment No switch was specified...may be trouble
comment
wr
wr You need to specify a /file= switch to use the CLI macro.
wr Usage: compress/file=filename [!ascii 333]-dfvc[!ascii 335] [!ascii 333]-b bits[!ascii 335]
wr Execution proceeds anyway with i/o directed to stdin and stdout.
wr
x compress %-%
[!else]
[!neq [!file %/file=%]x,x]
comment
comment File does exist, so it is okay to proceed
comment
comment
comment Verify the output file
comment var0 = 0 means "run it"
var0 0
[!neq [!file %/file=%.Z]x,x]
[!eq [!read Compressed file %/file=%.Z exists! Enter N to abort: ]x,NX]
var0 1
wr Please try again!
[!end]
[!end]
[!eq [!var0],0]
comment
comment OKAY, now run it!
comment
wr
wr Now compressing [!ascii 333]%/file=%[!ascii 335] to [!ascii 333]%/file=%.Z[!ascii 335]
wr To uncompress, enter: UNCOMPRESS/FILE=%/file=%
wr
x compress/i=%/file=%/o=%/file=%.Z %-%
[!end]
[!else]
wr
wr The file [!ascii 333]%/file=%[!ascii 335] does not exist. COMPRESS will not be run!
wr
[!end]
[!end]