home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / projman1.zip / CHOICE.PRG next >
Text File  |  1993-02-26  |  8KB  |  273 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/26/93             CHOICE.PRG                18:14:38 
  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. PARAMETERS lcmessage
  19. DO CASE
  20. CASE _WINDOWS
  21.  
  22.     
  23.     *       *********************************************************
  24.     *       *                                                         
  25.     *       *          CHOICE/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.     m.currarea = SELECT()
  49.     
  50.     
  51.     *       *********************************************************
  52.     *       *                                                         
  53.     *       *               Windows Window definitions                
  54.     *       *                                                         
  55.     *       *********************************************************
  56.     *
  57.     
  58.     IF NOT WEXIST("_qdo133re9")
  59.         DEFINE WINDOW _qdo133re9 ;
  60.             AT  0.000, 0.000  ;
  61.             SIZE 13.375,52.000 ;
  62.             FONT "MS Sans Serif", 8 ;
  63.             STYLE "B" ;
  64.             FLOAT ;
  65.             NOCLOSE ;
  66.             SHADOW ;
  67.             NOMINIMIZE ;
  68.             DOUBLE ;
  69.             COLOR RGB(,,,0,128,128)
  70.         MOVE WINDOW _qdo133re9 CENTER
  71.     ENDIF
  72.     
  73.     
  74.     *       *********************************************************
  75.     *       *                                                         
  76.     *       *          CHOICE/Windows Setup Code - SECTION 2          
  77.     *       *                                                         
  78.     *       *********************************************************
  79.     *
  80.     
  81.     #REGION 1
  82.     lhchoice=2
  83.     IF EMPTY(lcMessage)
  84.      return .f.
  85.     ENDIF
  86.     
  87.     *       *********************************************************
  88.     *       *                                                         
  89.     *       *              CHOICE/Windows Screen Layout               
  90.     *       *                                                         
  91.     *       *********************************************************
  92.     *
  93.     
  94.     #REGION 1
  95.     IF WVISIBLE("_qdo133re9")
  96.         ACTIVATE WINDOW _qdo133re9 SAME
  97.     ELSE
  98.         ACTIVATE WINDOW _qdo133re9 NOSHOW
  99.     ENDIF
  100.     @ 5.313,2.125 SAY lcMessage ;
  101.         SIZE 1.000,46.000 ;
  102.         FONT "MS Sans Serif", 8
  103.     @ 9.563,12.000 GET lhChoice ;
  104.         PICTURE "@*HT Ok;\?\!Cancel" ;
  105.         SIZE 1.750,10.000,5.000 ;
  106.         DEFAULT 1 ;
  107.         FONT "MS Sans Serif", 8 ;
  108.         STYLE "B"
  109.     @ 1.625,7.500 TO 3.625,13.250 ;
  110.         PEN 1, 8
  111.     @ 2.125,9.000 SAY "?"  ;
  112.         FONT "MS Sans Serif", 8 ;
  113.         STYLE "B"
  114.     
  115.     IF NOT WVISIBLE("_qdo133re9")
  116.         ACTIVATE WINDOW _qdo133re9
  117.     ENDIF
  118.     
  119.     READ CYCLE
  120.     
  121.     RELEASE WINDOW _qdo133re9
  122.     SELECT (m.currarea)
  123.     
  124.     
  125.     #REGION 0
  126.     
  127.     SET READBORDER &rborder
  128.     
  129.     IF m.talkstat = "ON"
  130.         SET TALK ON
  131.     ENDIF
  132.     IF m.compstat = "ON"
  133.         SET COMPATIBLE ON
  134.     ENDIF
  135.     
  136.     
  137.     *       *********************************************************
  138.     *       *                                                         
  139.     *       *               CHOICE/Windows Cleanup Code               
  140.     *       *                                                         
  141.     *       *********************************************************
  142.     *
  143.     
  144.     #REGION 1
  145.     IF lhChoice = 1
  146.       llRetVal = .T.
  147.     ELSE
  148.       llRetVal = .F.
  149.     ENDIF
  150.     RETURN llRetVal
  151.     
  152.  
  153. CASE _DOS
  154.  
  155.     
  156.     *       *********************************************************
  157.     *       *                                                         
  158.     *       *          CHOICE/MS-DOS Setup Code - SECTION 1           
  159.     *       *                                                         
  160.     *       *********************************************************
  161.     *
  162.     
  163.     #REGION 1
  164.     
  165.     
  166.     #REGION 0
  167.     REGIONAL m.currarea, m.talkstat, m.compstat
  168.     
  169.     IF SET("TALK") = "ON"
  170.         SET TALK OFF
  171.         m.talkstat = "ON"
  172.     ELSE
  173.         m.talkstat = "OFF"
  174.     ENDIF
  175.     m.compstat = SET("COMPATIBLE")
  176.     SET COMPATIBLE FOXPLUS
  177.     
  178.     m.currarea = SELECT()
  179.     
  180.     
  181.     *       *********************************************************
  182.     *       *                                                         
  183.     *       *                MS-DOS Window definitions                
  184.     *       *                                                         
  185.     *       *********************************************************
  186.     *
  187.     
  188.     IF NOT WEXIST("_qdo133t6u")
  189.         DEFINE WINDOW _qdo133t6u ;
  190.             FROM INT((SROW()-14)/2),INT((SCOL()-52)/2) ;
  191.             TO INT((SROW()-14)/2)+13,INT((SCOL()-52)/2)+51 ;
  192.             FLOAT ;
  193.             NOCLOSE ;
  194.             SHADOW ;
  195.             NOMINIMIZE ;
  196.             DOUBLE ;
  197.             COLOR SCHEME 7
  198.     ENDIF
  199.     
  200.     
  201.     *       *********************************************************
  202.     *       *                                                         
  203.     *       *          CHOICE/MS-DOS Setup Code - SECTION 2           
  204.     *       *                                                         
  205.     *       *********************************************************
  206.     *
  207.     
  208.     #REGION 1
  209.     lhchoice=2
  210.     IF EMPTY(lcMessage)
  211.      return .f.
  212.     ENDIF
  213.     
  214.     *       *********************************************************
  215.     *       *                                                         
  216.     *       *               CHOICE/MS-DOS Screen Layout               
  217.     *       *                                                         
  218.     *       *********************************************************
  219.     *
  220.     
  221.     #REGION 1
  222.     IF WVISIBLE("_qdo133t6u")
  223.         ACTIVATE WINDOW _qdo133t6u SAME
  224.     ELSE
  225.         ACTIVATE WINDOW _qdo133t6u NOSHOW
  226.     ENDIF
  227.     @ 5,2 SAY lcMessage ;
  228.         SIZE 2,46
  229.     @ 9,12 GET lhChoice ;
  230.         PICTURE "@*HT Ok;\?\!Cancel" ;
  231.         SIZE 1,10,5 ;
  232.         DEFAULT 1
  233.     @ 1,7 TO 3,11
  234.     @ 2,9 SAY "?" ;
  235.         SIZE 1,1, 0
  236.     
  237.     IF NOT WVISIBLE("_qdo133t6u")
  238.         ACTIVATE WINDOW _qdo133t6u
  239.     ENDIF
  240.     
  241.     READ CYCLE
  242.     
  243.     RELEASE WINDOW _qdo133t6u
  244.     SELECT (m.currarea)
  245.     
  246.     
  247.     #REGION 0
  248.     IF m.talkstat = "ON"
  249.         SET TALK ON
  250.     ENDIF
  251.     IF m.compstat = "ON"
  252.         SET COMPATIBLE ON
  253.     ENDIF
  254.     
  255.     
  256.     *       *********************************************************
  257.     *       *                                                         
  258.     *       *               CHOICE/MS-DOS Cleanup Code                
  259.     *       *                                                         
  260.     *       *********************************************************
  261.     *
  262.     
  263.     #REGION 1
  264.     IF lhChoice = 1
  265.       llRetVal = .T.
  266.     ELSE
  267.       llRetVal = .F.
  268.     ENDIF
  269.     RETURN llRetVal
  270.     
  271.  
  272. ENDCASE
  273.