home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / instr.spr < prev    next >
Encoding:
Text File  |  1994-08-10  |  6.3 KB  |  172 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/10/94              INSTR.SPR                12:50:21 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 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. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsg0rionh")
  42.     DEFINE WINDOW _qsg0rionh ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 23.769,107.800 ;
  45.         TITLE "Disclaimer" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsg0rionh CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *          INSTR/Windows Setup Code - SECTION 2           
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. USE DISCLAIM
  64. GO 2
  65. =SYS(2002)
  66.  
  67.  
  68. *       *********************************************************
  69. *       *                                                         
  70. *       *               INSTR/Windows Screen Layout               
  71. *       *                                                         
  72. *       *********************************************************
  73. *
  74.  
  75. #REGION 1
  76. IF WVISIBLE("_qsg0rionh")
  77.     ACTIVATE WINDOW _qsg0rionh SAME
  78. ELSE
  79.     ACTIVATE WINDOW _qsg0rionh NOSHOW
  80. ENDIF
  81. @ 0.077,0.400 EDIT Disclaim.text ;
  82.     SIZE 17.000,105.200,0.000 ;
  83.     DEFAULT " " ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     SCROLL ;
  86.     WHEN _qsg0rip9t() ;
  87.     VALID _qsg0ripeq()
  88. @ 18.462,38.400 GET M.Rtn ;
  89.     PICTURE "@*HN \<Return to Main" ;
  90.     SIZE 2.769,18.167,0.667 ;
  91.     DEFAULT 1 ;
  92.     FONT "MS Sans Serif", 8 ;
  93.     STYLE "B" ;
  94.     VALID _qsg0riplh()
  95.  
  96. IF NOT WVISIBLE("_qsg0rionh")
  97.     ACTIVATE WINDOW _qsg0rionh
  98. ENDIF
  99.  
  100. READ CYCLE ;
  101.     DEACTIVATE .T.
  102.  
  103. RELEASE WINDOW _qsg0rionh
  104.  
  105. #REGION 0
  106.  
  107. SET READBORDER &rborder
  108.  
  109. IF m.talkstat = "ON"
  110.     SET TALK ON
  111. ENDIF
  112. IF m.compstat = "ON"
  113.     SET COMPATIBLE ON
  114. ENDIF
  115.  
  116.  
  117. *       *********************************************************
  118. *       *                                                         
  119. *       * _QSG0RIP9T           Disclaim.text WHEN                 
  120. *       *                                                         
  121. *       * Function Origin:                                        
  122. *       *                                                         
  123. *       * From Platform:       Windows                            
  124. *       * From Screen:         INSTR,     Record Number:    2     
  125. *       * Variable:            Disclaim.text                      
  126. *       * Called By:           WHEN Clause                        
  127. *       * Object Type:         Field                              
  128. *       * Snippet Number:      1                                  
  129. *       *                                                         
  130. *       *********************************************************
  131. *
  132. FUNCTION _qsg0rip9t     &&  Disclaim.text WHEN
  133. #REGION 1
  134. =SYS(2002)
  135.  
  136. *       *********************************************************
  137. *       *                                                         
  138. *       * _QSG0RIPEQ           Disclaim.text VALID                
  139. *       *                                                         
  140. *       * Function Origin:                                        
  141. *       *                                                         
  142. *       * From Platform:       Windows                            
  143. *       * From Screen:         INSTR,     Record Number:    2     
  144. *       * Variable:            Disclaim.text                      
  145. *       * Called By:           VALID Clause                       
  146. *       * Object Type:         Field                              
  147. *       * Snippet Number:      2                                  
  148. *       *                                                         
  149. *       *********************************************************
  150. *
  151. FUNCTION _qsg0ripeq     &&  Disclaim.text VALID
  152. #REGION 1
  153. =SYS(2002)
  154.  
  155. *       *********************************************************
  156. *       *                                                         
  157. *       * _QSG0RIPLH           M.Rtn VALID                        
  158. *       *                                                         
  159. *       * Function Origin:                                        
  160. *       *                                                         
  161. *       * From Platform:       Windows                            
  162. *       * From Screen:         INSTR,     Record Number:    3     
  163. *       * Variable:            M.Rtn                              
  164. *       * Called By:           VALID Clause                       
  165. *       * Object Type:         Push Button                        
  166. *       * Snippet Number:      3                                  
  167. *       *                                                         
  168. *       *********************************************************
  169. *
  170. FUNCTION _qsg0riplh     &&  M.Rtn VALID
  171. #REGION 1
  172. CLEAR READ