home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FOXSQZ / SQZ.SPR < prev    next >
Text File  |  1993-12-15  |  4KB  |  148 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/15/93               SQZ.SPR                 20:46:09 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. *       ╓─────────────────────────────────────────────────────────╖
  32. *       ║                                                         ║
  33. *       ║                MS-DOS Window definitions                ║
  34. *       ║                                                         ║
  35. *       ╙─────────────────────────────────────────────────────────╜
  36. *
  37.  
  38. IF NOT WEXIST("foxsqz") ;
  39.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PJX" ;
  40.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.SCX" ;
  41.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.MNX" ;
  42.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PRG" ;
  43.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.FRX" ;
  44.     OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.QPR"
  45.     DEFINE WINDOW foxsqz ;
  46.         FROM INT((SROW()-25)/2),INT((SCOL()-80)/2) ;
  47.         TO INT((SROW()-25)/2)+24,INT((SCOL()-80)/2)+79 ;
  48.         FLOAT ;
  49.         NOCLOSE ;
  50.         SHADOW ;
  51.         NOMINIMIZE ;
  52.         COLOR SCHEME 1
  53. ENDIF
  54.  
  55.  
  56. *       ╓─────────────────────────────────────────────────────────╖
  57. *       ║                                                         ║
  58. *       ║                SQZ/MS-DOS Screen Layout                 ║
  59. *       ║                                                         ║
  60. *       ╙─────────────────────────────────────────────────────────╜
  61. *
  62.  
  63. #REGION 1
  64. IF WVISIBLE("foxsqz")
  65.     ACTIVATE WINDOW foxsqz SAME
  66. ELSE
  67.     ACTIVATE WINDOW foxsqz NOSHOW
  68. ENDIF
  69. @ 0,6 TO 2,70 PANEL
  70. @ 1,44 SAY "(c) 1993 Warren Master " ;
  71.     SIZE 1,23, 0
  72. @ 4,4 SAY "Enter FOXSQZ File Name to Work With :" ;
  73.     SIZE 1,37, 0
  74. @ 16,13 SAY "Destination for Extraction :" ;
  75.     SIZE 1,28, 0
  76. @ 5,9 SAY "Enter PassWord (Blank for None):" ;
  77.     SIZE 1,32, 0
  78. @ 6,3 SAY "Enter Files to Exclude (wildcards ok):" ;
  79.     SIZE 1,38, 0
  80. @ 7,7 SAY "Enter an Inclusion file name here:" ;
  81.     SIZE 1,34, 0
  82. @ 4,42 GET SqzArc ;
  83.     SIZE 1,29 ;
  84.     DEFAULT " "
  85. @ 5,42 GET SqzPass ;
  86.     SIZE 1,19 ;
  87.     DEFAULT " "
  88. @ 6,42 GET SqzXClude ;
  89.     SIZE 1,29 ;
  90.     DEFAULT " "
  91. @ 7,42 GET SqzIncFile ;
  92.     SIZE 1,29 ;
  93.     DEFAULT " "
  94. @ 9,4 GET SqzFSpec ;
  95.     SIZE 1,69 ;
  96.     DEFAULT " "
  97. @ 12,2 GET SQZFnct ;
  98.     PICTURE "@*VT Compress;Expand;List;Delete" ;
  99.     SIZE 1,10,2 ;
  100.     DEFAULT 1
  101. @ 12,14 GET SqzCmpTyp ;
  102.     PICTURE "@*RHN Maximum Compression;Fast Compression" ;
  103.     SIZE 1,23,2 ;
  104.     DEFAULT 1
  105. @ 15,41 GET SqzRStDT ;
  106.     PICTURE "@*C Restore Original FileDateTime" ;
  107.     SIZE 1,33 ;
  108.     DEFAULT 0
  109. @ 15,14 GET SqzOver ;
  110.     PICTURE "@*C OverWrite Existing" ;
  111.     SIZE 1,22 ;
  112.     DEFAULT 0
  113. @ 16,42 GET SqzDst ;
  114.     SIZE 1,32 ;
  115.     DEFAULT " "
  116. @ 18,14 GET SqzPage ;
  117.     PICTURE "@*C Pause Each Page " ;
  118.     SIZE 1,20 ;
  119.     DEFAULT 0
  120. @ 10,4 GET SQZQuiet ;
  121.     PICTURE "@*C Operate Quietly" ;
  122.     SIZE 1,19 ;
  123.     DEFAULT 0
  124. @ 22,48 GET _ExitBtn ;
  125.     PICTURE "@*HT \?Exit" ;
  126.     SIZE 1,28,2 ;
  127.     DEFAULT 1
  128. @ 8,4 SAY "File Specifications (wildcards are ok delimit each one with space)" ;
  129.     SIZE 1,66, 0
  130. @ 1,13 SAY "FOXSQZ 1.5 Interface Program" ;
  131.     SIZE 1,28, 0
  132.  
  133. IF NOT WVISIBLE("foxsqz")
  134.     ACTIVATE WINDOW foxsqz
  135. ENDIF
  136.  
  137. READ CYCLE
  138.  
  139. RELEASE WINDOW foxsqz
  140.  
  141. #REGION 0
  142. IF m.talkstat = "ON"
  143.     SET TALK ON
  144. ENDIF
  145. IF m.compstat = "ON"
  146.     SET COMPATIBLE ON
  147. ENDIF
  148.