home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 4.ddi / APPABOUT.PR_ / APPABOUT.bin
Encoding:
Text File  |  1994-02-02  |  7.1 KB  |  249 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 10/22/93            APPABOUT.PRG               15:21:07 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Walter J. Kennamer                                      
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft Corp.                      
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98027                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _MAC
  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.     m.currarea = SELECT()
  38.     
  39.     
  40.     *       *********************************************************
  41.     *       *                                                         
  42.     *       *              Macintosh Window definitions               
  43.     *       *                                                         
  44.     *       *********************************************************
  45.     *
  46.     
  47.     IF NOT WEXIST("_qka0wwkfj")
  48.         DEFINE WINDOW _qka0wwkfj ;
  49.             AT  0.000, 0.000  ;
  50.             SIZE 6.538,33.833 ;
  51.             FONT "Geneva", 10 ;
  52.             FLOAT ;
  53.             NOCLOSE ;
  54.             SHADOW ;
  55.             DOUBLE
  56.         MOVE WINDOW _qka0wwkfj CENTER
  57.     ENDIF
  58.     
  59.     
  60.     *       *********************************************************
  61.     *       *                                                         
  62.     *       *        APPABOUT/Macintosh Setup Code - SECTION 2        
  63.     *       *                                                         
  64.     *       *********************************************************
  65.     *
  66.     
  67.     #REGION 1
  68.     SET CURSOR OFF
  69.     
  70.     *       *********************************************************
  71.     *       *                                                         
  72.     *       *            APPABOUT/Macintosh Screen Layout             
  73.     *       *                                                         
  74.     *       *********************************************************
  75.     *
  76.     
  77.     #REGION 1
  78.     IF WVISIBLE("_qka0wwkfj")
  79.         ACTIVATE WINDOW _qka0wwkfj SAME
  80.     ELSE
  81.         ACTIVATE WINDOW _qka0wwkfj NOSHOW
  82.     ENDIF
  83.     @ 1.000,2.833 SAY "This application was generated by "  ;
  84.         FONT "Geneva", 10
  85.     @ 3.000,12.833 SAY "FoxApp 2.5"  ;
  86.         FONT "Geneva", 10
  87.     @ 5.000,2.000 SAY "Copyright (c) Microsoft Corp 1993"  ;
  88.         FONT "Geneva", 10
  89.     
  90.     IF NOT WVISIBLE("_qka0wwkfj")
  91.         ACTIVATE WINDOW _qka0wwkfj
  92.     ENDIF
  93.     
  94.     
  95.     *       *********************************************************
  96.     *       *                                                         
  97.     *       *   MacintoshREAD contains clauses from SCREEN appabout   
  98.     *       *                                                         
  99.     *       *********************************************************
  100.     *
  101.     
  102.     READ CYCLE ;
  103.         MODAL
  104.     
  105.     RELEASE WINDOW _qka0wwkfj
  106.     SELECT (m.currarea)
  107.     
  108.     
  109.     #REGION 0
  110.     
  111.     SET READBORDER &rborder
  112.     
  113.     IF m.talkstat = "ON"
  114.         SET TALK ON
  115.     ENDIF
  116.     IF m.compstat = "ON"
  117.         SET COMPATIBLE ON
  118.     ENDIF
  119.     
  120.     
  121.     *       *********************************************************
  122.     *       *                                                         
  123.     *       *             APPABOUT/Macintosh Cleanup Code             
  124.     *       *                                                         
  125.     *       *********************************************************
  126.     *
  127.     
  128.     #REGION 1
  129.     SET CURSOR ON
  130.  
  131. CASE _WINDOWS
  132.  
  133.     
  134.     #REGION 0
  135.     REGIONAL m.currarea, m.talkstat, m.compstat
  136.     
  137.     IF SET("TALK") = "ON"
  138.         SET TALK OFF
  139.         m.talkstat = "ON"
  140.     ELSE
  141.         m.talkstat = "OFF"
  142.     ENDIF
  143.     m.compstat = SET("COMPATIBLE")
  144.     SET COMPATIBLE FOXPLUS
  145.     
  146.     m.rborder = SET("READBORDER")
  147.     SET READBORDER ON
  148.     
  149.     m.currarea = SELECT()
  150.     
  151.     
  152.     *       *********************************************************
  153.     *       *                                                         
  154.     *       *               Windows Window definitions                
  155.     *       *                                                         
  156.     *       *********************************************************
  157.     *
  158.     
  159.     IF NOT WEXIST("_qka0wwlow")
  160.         DEFINE WINDOW _qka0wwlow ;
  161.             AT  0.000, 0.000  ;
  162.             SIZE 6.692,35.333 ;
  163.             FONT "MS Sans Serif", 8 ;
  164.             STYLE "B" ;
  165.             FLOAT ;
  166.             NOCLOSE ;
  167.             SHADOW ;
  168.             NOMINIMIZE ;
  169.             DOUBLE
  170.         MOVE WINDOW _qka0wwlow CENTER
  171.     ENDIF
  172.     
  173.     
  174.     *       *********************************************************
  175.     *       *                                                         
  176.     *       *         APPABOUT/Windows Setup Code - SECTION 2         
  177.     *       *                                                         
  178.     *       *********************************************************
  179.     *
  180.     
  181.     #REGION 1
  182.     SET CURSOR OFF
  183.     
  184.     *       *********************************************************
  185.     *       *                                                         
  186.     *       *             APPABOUT/Windows Screen Layout              
  187.     *       *                                                         
  188.     *       *********************************************************
  189.     *
  190.     
  191.     #REGION 1
  192.     IF WVISIBLE("_qka0wwlow")
  193.         ACTIVATE WINDOW _qka0wwlow SAME
  194.     ELSE
  195.         ACTIVATE WINDOW _qka0wwlow NOSHOW
  196.     ENDIF
  197.     @ 1.000,1.000 SAY "This application was generated by "  ;
  198.         FONT "MS Sans Serif", 8 ;
  199.         STYLE "B"
  200.     @ 3.000,11.000 SAY "FoxApp 2.5"  ;
  201.         FONT "MS Sans Serif", 8 ;
  202.         STYLE "B"
  203.     @ 5.000,2.000 SAY "Copyright (c) Microsoft Corp 1993"  ;
  204.         FONT "MS Sans Serif", 8 ;
  205.         STYLE "B"
  206.     
  207.     IF NOT WVISIBLE("_qka0wwlow")
  208.         ACTIVATE WINDOW _qka0wwlow
  209.     ENDIF
  210.     
  211.     
  212.     *       *********************************************************
  213.     *       *                                                         
  214.     *       *    WindowsREAD contains clauses from SCREEN appabout    
  215.     *       *                                                         
  216.     *       *********************************************************
  217.     *
  218.     
  219.     READ CYCLE ;
  220.         MODAL
  221.     
  222.     RELEASE WINDOW _qka0wwlow
  223.     SELECT (m.currarea)
  224.     
  225.     
  226.     #REGION 0
  227.     
  228.     SET READBORDER &rborder
  229.     
  230.     IF m.talkstat = "ON"
  231.         SET TALK ON
  232.     ENDIF
  233.     IF m.compstat = "ON"
  234.         SET COMPATIBLE ON
  235.     ENDIF
  236.     
  237.     
  238.     *       *********************************************************
  239.     *       *                                                         
  240.     *       *              APPABOUT/Windows Cleanup Code              
  241.     *       *                                                         
  242.     *       *********************************************************
  243.     *
  244.     
  245.     #REGION 1
  246.     SET CURSOR ON
  247.  
  248. ENDCASE
  249.