home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / HELPCK.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  6.2 KB  |  224 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93             HELPCK.SPR                13:45:07 
  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. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     *       *********************************************************
  38.     *       *                                                         
  39.     *       *               Windows Window definitions                
  40.     *       *                                                         
  41.     *       *********************************************************
  42.     *
  43.     
  44.     IF NOT WEXIST("_qfx0th3vh")
  45.         DEFINE WINDOW _qfx0th3vh ;
  46.             AT  0.000, 0.000  ;
  47.             SIZE 22.000,98.400 ;
  48.             TITLE "How to use CKSample" ;
  49.             FONT "MS Sans Serif", 8 ;
  50.             FLOAT ;
  51.             NOCLOSE ;
  52.             MINIMIZE ;
  53.             SYSTEM
  54.         MOVE WINDOW _qfx0th3vh CENTER
  55.     ENDIF
  56.     
  57.     
  58.     *       *********************************************************
  59.     *       *                                                         
  60.     *       *          HELPCK/Windows Setup Code - SECTION 2          
  61.     *       *                                                         
  62.     *       *********************************************************
  63.     *
  64.     
  65.     #REGION 1
  66.     select 0
  67.     use helpdata
  68.     
  69.     *       *********************************************************
  70.     *       *                                                         
  71.     *       *              HELPCK/Windows Screen Layout               
  72.     *       *                                                         
  73.     *       *********************************************************
  74.     *
  75.     
  76.     #REGION 1
  77.     IF WVISIBLE("_qfx0th3vh")
  78.         ACTIVATE WINDOW _qfx0th3vh SAME
  79.     ELSE
  80.         ACTIVATE WINDOW _qfx0th3vh NOSHOW
  81.     ENDIF
  82.     @ 1.077,2.800 EDIT Helpdata.helptext ;
  83.         SIZE 17.000,58.250,0.000 ;
  84.         DEFAULT " " ;
  85.         FONT "FoxFont", 9 ;
  86.         SCROLL ;
  87.         MESSAGE "" NOMODIFY
  88.     @ 19.385,43.000 GET out ;
  89.         PICTURE "@*HT Close" ;
  90.         SIZE 1.769,10.167,0.667 ;
  91.         DEFAULT 1 ;
  92.         FONT "MS Sans Serif", 8 ;
  93.         STYLE "B"
  94.     
  95.     IF NOT WVISIBLE("_qfx0th3vh")
  96.         ACTIVATE WINDOW _qfx0th3vh
  97.     ENDIF
  98.     
  99.     READ CYCLE
  100.     
  101.     RELEASE WINDOW _qfx0th3vh
  102.     
  103.     #REGION 0
  104.     
  105.     SET READBORDER &rborder
  106.     
  107.     IF m.talkstat = "ON"
  108.         SET TALK ON
  109.     ENDIF
  110.     IF m.compstat = "ON"
  111.         SET COMPATIBLE ON
  112.     ENDIF
  113.     
  114.     
  115.     *       *********************************************************
  116.     *       *                                                         
  117.     *       *               HELPCK/Windows Cleanup Code               
  118.     *       *                                                         
  119.     *       *********************************************************
  120.     *
  121.     
  122.     #REGION 1
  123.     select helpdata
  124.     use
  125.  
  126. CASE _DOS
  127.  
  128.     
  129.     #REGION 0
  130.     REGIONAL m.currarea, m.talkstat, m.compstat
  131.     
  132.     IF SET("TALK") = "ON"
  133.         SET TALK OFF
  134.         m.talkstat = "ON"
  135.     ELSE
  136.         m.talkstat = "OFF"
  137.     ENDIF
  138.     m.compstat = SET("COMPATIBLE")
  139.     SET COMPATIBLE FOXPLUS
  140.     
  141.     *       *********************************************************
  142.     *       *                                                         
  143.     *       *                MS-DOS Window definitions                
  144.     *       *                                                         
  145.     *       *********************************************************
  146.     *
  147.     
  148.     IF NOT WEXIST("_qfx0th4k0")
  149.         DEFINE WINDOW _qfx0th4k0 ;
  150.             FROM INT((SROW()-21)/2),INT((SCOL()-77)/2) ;
  151.             TO INT((SROW()-21)/2)+20,INT((SCOL()-77)/2)+76 ;
  152.             TITLE "How to use CKSample" ;
  153.             FLOAT ;
  154.             NOCLOSE ;
  155.             MINIMIZE ;
  156.             SYSTEM ;
  157.             COLOR SCHEME 1
  158.     ENDIF
  159.     
  160.     
  161.     *       *********************************************************
  162.     *       *                                                         
  163.     *       *          HELPCK/MS-DOS Setup Code - SECTION 2           
  164.     *       *                                                         
  165.     *       *********************************************************
  166.     *
  167.     
  168.     #REGION 1
  169.     select 0
  170.     use helpdata
  171.     
  172.     *       *********************************************************
  173.     *       *                                                         
  174.     *       *               HELPCK/MS-DOS Screen Layout               
  175.     *       *                                                         
  176.     *       *********************************************************
  177.     *
  178.     
  179.     #REGION 1
  180.     IF WVISIBLE("_qfx0th4k0")
  181.         ACTIVATE WINDOW _qfx0th4k0 SAME
  182.     ELSE
  183.         ACTIVATE WINDOW _qfx0th4k0 NOSHOW
  184.     ENDIF
  185.     @ 0,0 EDIT Helpdata.helptext ;
  186.         SIZE 17,75,0 ;
  187.         DEFAULT " " ;
  188.         SCROLL ;
  189.         MESSAGE "" NOMODIFY
  190.     @ 18,32 GET out ;
  191.         PICTURE "@*HT OK" ;
  192.         SIZE 1,10,1 ;
  193.         DEFAULT 1
  194.     
  195.     IF NOT WVISIBLE("_qfx0th4k0")
  196.         ACTIVATE WINDOW _qfx0th4k0
  197.     ENDIF
  198.     
  199.     READ CYCLE
  200.     
  201.     RELEASE WINDOW _qfx0th4k0
  202.     
  203.     #REGION 0
  204.     IF m.talkstat = "ON"
  205.         SET TALK ON
  206.     ENDIF
  207.     IF m.compstat = "ON"
  208.         SET COMPATIBLE ON
  209.     ENDIF
  210.     
  211.     
  212.     *       *********************************************************
  213.     *       *                                                         
  214.     *       *               HELPCK/MS-DOS Cleanup Code                
  215.     *       *                                                         
  216.     *       *********************************************************
  217.     *
  218.     
  219.     #REGION 1
  220.     select helpdata
  221.     use
  222.  
  223. ENDCASE
  224.