home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit4e / ckdunco.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: uncompress/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 -d %-%
  13.     
  14. [!else]   
  15. [!neq [!file [!ename %/file=%].Z]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 [!ename %/file=%]]x,x]
  25.         [!eq [!read Uncompressed file [!ename %/file=%] 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 uncompressing [!ascii 333][!enam %/file=%].Z[!ascii 335] to [!ascii 333][!enam %/file=%][!ascii 335]
  36.         wr To compress, enter:  COMPRESS/FILE=%/file=%
  37.         wr
  38.  
  39.         x compress/i=[!ename %/file=%].Z/o=[!ename %/file=%] -d %-%
  40.     [!end]        
  41.     
  42. [!else]    
  43.     wr
  44.     wr The file [!ascii 333][!ename %/file=%].Z[!ascii 335] does not exist.  UNCOMPRESS will not be run!
  45.     wr
  46. [!end]    
  47. [!end]    
  48.  
  49.