home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit70 / ckdcomp.cli < prev    next >
INI File  |  2020-01-01  |  1KB  |  49 lines

  1. [!eq %/file%x,x]
  2.     comment
  3.     comment No switch was specified...may be trouble
  4.     comment
  5.      
  6.     wr
  7.     wr You need to specify a /file= switch to use the CLI macro.
  8.     wr Usage: compress/file=filename [!ascii 333]-dfvc[!ascii 335] [!ascii 333]-b bits[!ascii 335]
  9.     wr Execution proceeds anyway with i/o directed to stdin and stdout.
  10.     wr
  11.      
  12.     x compress %-%
  13.     
  14. [!else]   
  15. [!neq [!file %/file=%]x,x]
  16.     comment
  17.     comment File does exist, so it is okay to proceed
  18.     comment
  19.  
  20.     comment
  21.     comment Verify the output file
  22.     comment var0 = 0 means "run it"
  23.     var0 0
  24.     [!neq [!file %/file=%.Z]x,x]
  25.         [!eq [!read Compressed file %/file=%.Z exists! Enter N to abort: ]x,NX]
  26.             var0 1
  27.             wr Please try again!
  28.         [!end]
  29.     [!end]
  30.     [!eq [!var0],0]
  31.         comment
  32.         comment OKAY, now run it!
  33.         comment
  34.         wr
  35.         wr Now compressing [!ascii 333]%/file=%[!ascii 335] to [!ascii 333]%/file=%.Z[!ascii 335]
  36.         wr To uncompress, enter:  UNCOMPRESS/FILE=%/file=%
  37.         wr
  38.     
  39.         x compress/i=%/file=%/o=%/file=%.Z %-%
  40.     [!end]        
  41.     
  42. [!else]    
  43.     wr
  44.     wr The file [!ascii 333]%/file=%[!ascii 335] does not exist.  COMPRESS will not be run!
  45.     wr
  46. [!end]    
  47. [!end]    
  48.  
  49.