home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / YESNO.SPR < prev   
Encoding:
Text File  |  1993-05-25  |  8.2 KB  |  268 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93              YESNO.SPR                13:44:53 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Steven Hsu, Wayne Lampel                                
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft                            
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. PARAMETERS win_title, mess_text
  19. DO CASE
  20. CASE _WINDOWS
  21.  
  22.     
  23.     *       *********************************************************
  24.     *       *                                                         
  25.     *       *          YESNO/Windows Setup Code - SECTION 1           
  26.     *       *                                                         
  27.     *       *********************************************************
  28.     *
  29.     
  30.     #REGION 1
  31.     
  32.     
  33.     #REGION 0
  34.     REGIONAL m.currarea, m.talkstat, m.compstat
  35.     
  36.     IF SET("TALK") = "ON"
  37.         SET TALK OFF
  38.         m.talkstat = "ON"
  39.     ELSE
  40.         m.talkstat = "OFF"
  41.     ENDIF
  42.     m.compstat = SET("COMPATIBLE")
  43.     SET COMPATIBLE FOXPLUS
  44.     
  45.     m.rborder = SET("READBORDER")
  46.     SET READBORDER ON
  47.     
  48.     *       *********************************************************
  49.     *       *                                                         
  50.     *       *               Windows Window definitions                
  51.     *       *                                                         
  52.     *       *********************************************************
  53.     *
  54.     
  55.     IF NOT WEXIST("yesnowin") ;
  56.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.PJX" ;
  57.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.SCX" ;
  58.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.MNX" ;
  59.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.PRG" ;
  60.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.FRX" ;
  61.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.QPR"
  62.         DEFINE WINDOW yesnowin ;
  63.             AT  0.000, 0.000  ;
  64.             SIZE 10.077,77.200 ;
  65.             FONT "MS Sans Serif", 8 ;
  66.             FLOAT ;
  67.             NOCLOSE ;
  68.             NOMINIMIZE ;
  69.             DOUBLE
  70.         MOVE WINDOW yesnowin CENTER
  71.     ENDIF
  72.     
  73.     
  74.     *       *********************************************************
  75.     *       *                                                         
  76.     *       *               YESNO/Windows Screen Layout               
  77.     *       *                                                         
  78.     *       *********************************************************
  79.     *
  80.     
  81.     #REGION 1
  82.     IF WVISIBLE("yesnowin")
  83.         ACTIVATE WINDOW yesnowin SAME
  84.     ELSE
  85.         ACTIVATE WINDOW yesnowin NOSHOW
  86.     ENDIF
  87.     @ 1.769,1.400 SAY mess_text ;
  88.         SIZE 1.000,46.250 ;
  89.         FONT "MS Sans Serif", 10 ;
  90.         STYLE "B" ;
  91.         PICTURE "@I"
  92.     @ 4.692,17.400 GET choice ;
  93.         PICTURE "@*HT \<Yes;\<No" ;
  94.         SIZE 1.769,16.167,2.500 ;
  95.         DEFAULT 1 ;
  96.         FONT "MS Sans Serif", 8 ;
  97.         STYLE "B"
  98.     @ 7.692,24.200 GET closem ;
  99.         PICTURE "@*C Close Tables on Exit" ;
  100.         SIZE 1.308,23.833 ;
  101.         DEFAULT 0 ;
  102.         FONT "MS Sans Serif", 8 ;
  103.         STYLE "BT"
  104.     
  105.     IF NOT WVISIBLE("yesnowin")
  106.         ACTIVATE WINDOW yesnowin
  107.     ENDIF
  108.     
  109.     READ CYCLE MODAL ;
  110.         WHEN _qfx0tgts1()
  111.     
  112.     RELEASE WINDOW yesnowin
  113.     
  114.     #REGION 0
  115.     
  116.     SET READBORDER &rborder
  117.     
  118.     IF m.talkstat = "ON"
  119.         SET TALK ON
  120.     ENDIF
  121.     IF m.compstat = "ON"
  122.         SET COMPATIBLE ON
  123.     ENDIF
  124.     
  125.  
  126. CASE _DOS
  127.  
  128.     
  129.     *       *********************************************************
  130.     *       *                                                         
  131.     *       *           YESNO/MS-DOS Setup Code - SECTION 1           
  132.     *       *                                                         
  133.     *       *********************************************************
  134.     *
  135.     
  136.     #REGION 1
  137.     
  138.     
  139.     #REGION 0
  140.     REGIONAL m.currarea, m.talkstat, m.compstat
  141.     
  142.     IF SET("TALK") = "ON"
  143.         SET TALK OFF
  144.         m.talkstat = "ON"
  145.     ELSE
  146.         m.talkstat = "OFF"
  147.     ENDIF
  148.     m.compstat = SET("COMPATIBLE")
  149.     SET COMPATIBLE FOXPLUS
  150.     
  151.     *       *********************************************************
  152.     *       *                                                         
  153.     *       *                MS-DOS Window definitions                
  154.     *       *                                                         
  155.     *       *********************************************************
  156.     *
  157.     
  158.     IF NOT WEXIST("yesnowin") ;
  159.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.PJX" ;
  160.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.SCX" ;
  161.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.MNX" ;
  162.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.PRG" ;
  163.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.FRX" ;
  164.         OR UPPER(WTITLE("YESNOWIN")) == "YESNOWIN.QPR"
  165.         DEFINE WINDOW yesnowin ;
  166.             FROM INT((SROW()-8)/2),INT((SCOL()-61)/2) ;
  167.             TO INT((SROW()-8)/2)+7,INT((SCOL()-61)/2)+60 ;
  168.             FLOAT ;
  169.             NOCLOSE ;
  170.             NOMINIMIZE ;
  171.             DOUBLE ;
  172.             COLOR SCHEME 1
  173.     ENDIF
  174.     
  175.     
  176.     *       *********************************************************
  177.     *       *                                                         
  178.     *       *               YESNO/MS-DOS Screen Layout                
  179.     *       *                                                         
  180.     *       *********************************************************
  181.     *
  182.     
  183.     #REGION 1
  184.     IF WVISIBLE("yesnowin")
  185.         ACTIVATE WINDOW yesnowin SAME
  186.     ELSE
  187.         ACTIVATE WINDOW yesnowin NOSHOW
  188.     ENDIF
  189.     @ 1,1 SAY mess_text ;
  190.         SIZE 1,57 ;
  191.         PICTURE "@I"
  192.     @ 3,12 GET choice ;
  193.         PICTURE "@*HT \<Yes;\<No" ;
  194.         SIZE 1,16,2 ;
  195.         DEFAULT 1
  196.     @ 5,17 GET closem ;
  197.         PICTURE "@*C Close Tables on Exit" ;
  198.         SIZE 1,24 ;
  199.         DEFAULT 0
  200.     
  201.     IF NOT WVISIBLE("yesnowin")
  202.         ACTIVATE WINDOW yesnowin
  203.     ENDIF
  204.     
  205.     READ CYCLE MODAL ;
  206.         WHEN _qfx0tguhl()
  207.     
  208.     RELEASE WINDOW yesnowin
  209.     
  210.     #REGION 0
  211.     IF m.talkstat = "ON"
  212.         SET TALK ON
  213.     ENDIF
  214.     IF m.compstat = "ON"
  215.         SET COMPATIBLE ON
  216.     ENDIF
  217.     
  218.  
  219. ENDCASE
  220.  
  221.  
  222. *       *********************************************************
  223. *       *                                                         
  224. *       * _QFX0TGTS1           Read Level When                    
  225. *       *                                                         
  226. *       * Function Origin:                                        
  227. *       *                                                         
  228. *       *                                                         
  229. *       * From Platform:       Windows                            
  230. *       * From Screen:         YESNO                              
  231. *       * Called By:           READ Statement                     
  232. *       * Snippet Number:      1                                  
  233. *       *                                                         
  234. *       *********************************************************
  235. *
  236. FUNCTION _qfx0tgts1     && Read Level When
  237. *
  238. * When Code from screen: YESNO
  239. *
  240. #REGION 1
  241. if _WINDOWS
  242.     modify window yesnowin title win_title
  243. endif
  244.  
  245.  
  246. *       *********************************************************
  247. *       *                                                         
  248. *       * _QFX0TGUHL           Read Level When                    
  249. *       *                                                         
  250. *       * Function Origin:                                        
  251. *       *                                                         
  252. *       *                                                         
  253. *       * From Platform:       MS-DOS                             
  254. *       * From Screen:         YESNO                              
  255. *       * Called By:           READ Statement                     
  256. *       * Snippet Number:      2                                  
  257. *       *                                                         
  258. *       *********************************************************
  259. *
  260. FUNCTION _qfx0tguhl     && Read Level When
  261. *
  262. * When Code from screen: YESNO
  263. *
  264. #REGION 1
  265. if _WINDOWS
  266.     modify window yesnowin title win_title
  267. endif
  268.