home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 15.ddi / GETORDER.PR_ / GETORDER.bin
Encoding:
Text File  |  1994-03-10  |  18.0 KB  |  598 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 02/09/94            GETORDER.SPR               22:22:22 ║
  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. DO CASE
  19. CASE _DOS OR _UNIX      && no UNIX records in screen
  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.     *       ╓─────────────────────────────────────────────────────────╖
  35.     *       ║                                                         ║
  36.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("_qne1byaz8")
  42.         DEFINE WINDOW _qne1byaz8 ;
  43.             FROM INT((SROW()-7)/2),INT((SCOL()-42)/2) ;
  44.             TO INT((SROW()-7)/2)+6,INT((SCOL()-42)/2)+41 ;
  45.             TITLE "Index Order" ;
  46.             FLOAT ;
  47.             NOCLOSE ;
  48.             SHADOW ;
  49.             NOMINIMIZE ;
  50.             DOUBLE ;
  51.             COLOR SCHEME 5
  52.     ENDIF
  53.     
  54.     
  55.     *       ╓─────────────────────────────────────────────────────────╖
  56.     *       ║                                                         ║
  57.     *       ║         GETORDER/MS-DOS Setup Code - SECTION 2          ║
  58.     *       ║                                                         ║
  59.     *       ╙─────────────────────────────────────────────────────────╜
  60.     *
  61.     
  62.     #REGION 1
  63.     skipvar = .T.
  64.     
  65.     IF TYPE("tagnum") = "U"
  66.        PUBLIC tagnum
  67.        tagnum = 1
  68.     ENDIF
  69.     
  70.     m.startord = ORDER()
  71.     m.startalias = ALIAS()
  72.     
  73.     SET ORDER TO 0
  74.     numtag = 1
  75.     DO WHILE "" <> TAG(numtag)
  76.        numtag = numtag + 1
  77.     ENDDO
  78.     
  79.     DIMENSION idxtags(numtag-1)
  80.     i = 1
  81.     DO WHILE i <= numtag-1
  82.        idxtags[i] = TAG(i)
  83.        i = i + 1
  84.     ENDDO
  85.     SET ORDER TO (m.startord)
  86.     
  87.     
  88.     *       ╓─────────────────────────────────────────────────────────╖
  89.     *       ║                                                         ║
  90.     *       ║              GETORDER/MS-DOS Screen Layout              ║
  91.     *       ║                                                         ║
  92.     *       ╙─────────────────────────────────────────────────────────╜
  93.     *
  94.     
  95.     #REGION 1
  96.     IF WVISIBLE("_qne1byaz8")
  97.         ACTIVATE WINDOW _qne1byaz8 SAME
  98.     ELSE
  99.         ACTIVATE WINDOW _qne1byaz8 NOSHOW
  100.     ENDIF
  101.     @ 0,15 GET tagnum ;
  102.         PICTURE "@^" ;
  103.         FROM idxtags ;
  104.         SIZE 3,23 ;
  105.         DEFAULT 1 ;
  106.         COLOR SCHEME 5, 6
  107.     @ 1,2 SAY "Index Order:" ;
  108.         SIZE 1,12, 0
  109.     @ 4,9 GET ordbut ;
  110.         PICTURE "@*HT \!OK;\?Cancel" ;
  111.         SIZE 1,10,2 ;
  112.         DEFAULT 1
  113.     
  114.     IF NOT WVISIBLE("_qne1byaz8")
  115.         ACTIVATE WINDOW _qne1byaz8
  116.     ENDIF
  117.     
  118.     
  119.     *       ╓─────────────────────────────────────────────────────────╖
  120.     *       ║                                                         ║
  121.     *       ║    MS-DOSREAD contains clauses from SCREEN getorder     ║
  122.     *       ║                                                         ║
  123.     *       ╙─────────────────────────────────────────────────────────╜
  124.     *
  125.     
  126.     READ CYCLE ;
  127.         ACTIVATE _qne1bybp5() ;
  128.         DEACTIVATE _qne1bybqt() ;
  129.         MODAL
  130.     
  131.     RELEASE WINDOW _qne1byaz8
  132.     
  133.     #REGION 0
  134.     IF m.talkstat = "ON"
  135.         SET TALK ON
  136.     ENDIF
  137.     IF m.compstat = "ON"
  138.         SET COMPATIBLE ON
  139.     ENDIF
  140.     
  141.     
  142.     *       ╓─────────────────────────────────────────────────────────╖
  143.     *       ║                                                         ║
  144.     *       ║              GETORDER/MS-DOS Cleanup Code               ║
  145.     *       ║                                                         ║
  146.     *       ╙─────────────────────────────────────────────────────────╜
  147.     *
  148.     
  149.     #REGION 1
  150.     skipvar = .F.
  151.     IF ordbut = 1
  152.        SET ORDER TO TAG(tagnum)
  153.     ELSE
  154.        SET ORDER TO (m.startord)
  155.        m.tagnum = m.startord
  156.     ENDIF
  157.     SHOW GETS
  158.     
  159.  
  160. CASE _MAC
  161.  
  162.     
  163.     #REGION 0
  164.     REGIONAL m.currarea, m.talkstat, m.compstat
  165.     
  166.     IF SET("TALK") = "ON"
  167.         SET TALK OFF
  168.         m.talkstat = "ON"
  169.     ELSE
  170.         m.talkstat = "OFF"
  171.     ENDIF
  172.     m.compstat = SET("COMPATIBLE")
  173.     SET COMPATIBLE FOXPLUS
  174.     
  175.     m.rborder = SET("READBORDER")
  176.     SET READBORDER OFF
  177.     
  178.     *       ╓─────────────────────────────────────────────────────────╖
  179.     *       ║                                                         ║
  180.     *       ║              Macintosh Window definitions               ║
  181.     *       ║                                                         ║
  182.     *       ╙─────────────────────────────────────────────────────────╜
  183.     *
  184.     
  185.     IF NOT WEXIST("_qne1byc3z")
  186.         DEFINE WINDOW _qne1byc3z ;
  187.             AT  0.000, 0.000  ;
  188.             SIZE 6.385,41.500 ;
  189.             TITLE "Index Order" ;
  190.             FONT "Geneva", 10 ;
  191.             FLOAT ;
  192.             NOCLOSE ;
  193.             SHADOW ;
  194.             DOUBLE
  195.         MOVE WINDOW _qne1byc3z CENTER
  196.     ENDIF
  197.     
  198.     
  199.     *       ╓─────────────────────────────────────────────────────────╖
  200.     *       ║                                                         ║
  201.     *       ║        GETORDER/Macintosh Setup Code - SECTION 2        ║
  202.     *       ║                                                         ║
  203.     *       ╙─────────────────────────────────────────────────────────╜
  204.     *
  205.     
  206.     #REGION 1
  207.     skipvar = .T.
  208.     
  209.     IF TYPE("tagnum") = "U"
  210.        PUBLIC tagnum
  211.        tagnum = 1
  212.     ENDIF
  213.     
  214.     m.startord = ORDER()
  215.     m.startalias = ALIAS()
  216.     
  217.     SET ORDER TO 0
  218.     numtag = 1
  219.     DO WHILE "" <> TAG(numtag)
  220.        numtag = numtag + 1
  221.     ENDDO
  222.     
  223.     DIMENSION idxtags(numtag-1)
  224.     i = 1
  225.     DO WHILE i <= numtag-1
  226.        idxtags[i] = TAG(i)
  227.        i = i + 1
  228.     ENDDO
  229.     SET ORDER TO (m.startord)
  230.     
  231.     
  232.     *       ╓─────────────────────────────────────────────────────────╖
  233.     *       ║                                                         ║
  234.     *       ║            GETORDER/Macintosh Screen Layout             ║
  235.     *       ║                                                         ║
  236.     *       ╙─────────────────────────────────────────────────────────╜
  237.     *
  238.     
  239.     #REGION 1
  240.     IF WVISIBLE("_qne1byc3z")
  241.         ACTIVATE WINDOW _qne1byc3z SAME
  242.     ELSE
  243.         ACTIVATE WINDOW _qne1byc3z NOSHOW
  244.     ENDIF
  245.     @ 1.154,16.500 GET tagnum ;
  246.         PICTURE "@^3" ;
  247.         FROM idxtags ;
  248.         SIZE 1.462,23.333 ;
  249.         DEFAULT 1 ;
  250.         FONT "Geneva", 10
  251.     @ 4.000,7.500 GET ordbut ;
  252.         PICTURE "@*HT3 \!OK;\?Cancel" ;
  253.         SIZE 1.462,10.714,2.143 ;
  254.         DEFAULT 1 ;
  255.         FONT "Geneva", 10 ;
  256.         STYLE "B"
  257.     @ 1.462,3.333 SAY "Index Order:"  ;
  258.         FONT "Geneva", 10
  259.     
  260.     IF NOT WVISIBLE("_qne1byc3z")
  261.         ACTIVATE WINDOW _qne1byc3z
  262.     ENDIF
  263.     
  264.     
  265.     *       ╓─────────────────────────────────────────────────────────╖
  266.     *       ║                                                         ║
  267.     *       ║   MacintoshREAD contains clauses from SCREEN getorder   ║
  268.     *       ║                                                         ║
  269.     *       ╙─────────────────────────────────────────────────────────╜
  270.     *
  271.     
  272.     READ CYCLE ;
  273.         ACTIVATE _qne1bydf2() ;
  274.         DEACTIVATE _qne1bydf6() ;
  275.         MODAL
  276.     
  277.     RELEASE WINDOW _qne1byc3z
  278.     
  279.     #REGION 0
  280.     
  281.     SET READBORDER &rborder
  282.     
  283.     IF m.talkstat = "ON"
  284.         SET TALK ON
  285.     ENDIF
  286.     IF m.compstat = "ON"
  287.         SET COMPATIBLE ON
  288.     ENDIF
  289.     
  290.     
  291.     *       ╓─────────────────────────────────────────────────────────╖
  292.     *       ║                                                         ║
  293.     *       ║             GETORDER/Macintosh Cleanup Code             ║
  294.     *       ║                                                         ║
  295.     *       ╙─────────────────────────────────────────────────────────╜
  296.     *
  297.     
  298.     #REGION 1
  299.     skipvar = .F.
  300.     IF ordbut = 1
  301.        SET ORDER TO TAG(tagnum)
  302.     ELSE
  303.        SET ORDER TO (m.startord)
  304.        m.tagnum = m.startord
  305.     ENDIF
  306.     SHOW GETS
  307.     
  308.  
  309. CASE _WINDOWS
  310.  
  311.     
  312.     #REGION 0
  313.     REGIONAL m.currarea, m.talkstat, m.compstat
  314.     
  315.     IF SET("TALK") = "ON"
  316.         SET TALK OFF
  317.         m.talkstat = "ON"
  318.     ELSE
  319.         m.talkstat = "OFF"
  320.     ENDIF
  321.     m.compstat = SET("COMPATIBLE")
  322.     SET COMPATIBLE FOXPLUS
  323.     
  324.     m.rborder = SET("READBORDER")
  325.     SET READBORDER OFF
  326.     
  327.     *       ╓─────────────────────────────────────────────────────────╖
  328.     *       ║                                                         ║
  329.     *       ║               Windows Window definitions                ║
  330.     *       ║                                                         ║
  331.     *       ╙─────────────────────────────────────────────────────────╜
  332.     *
  333.     
  334.     IF NOT WEXIST("_qne1bydsi")
  335.         DEFINE WINDOW _qne1bydsi ;
  336.             AT  0.000, 0.000  ;
  337.             SIZE 6.385,41.500 ;
  338.             TITLE "Index Order" ;
  339.             FONT "MS Sans Serif", 8 ;
  340.             STYLE "B" ;
  341.             FLOAT ;
  342.             NOCLOSE ;
  343.             SHADOW ;
  344.             NOMINIMIZE ;
  345.             DOUBLE ;
  346.             COLOR RGB(,,,192,192,192)
  347.         MOVE WINDOW _qne1bydsi CENTER
  348.     ENDIF
  349.     
  350.     
  351.     *       ╓─────────────────────────────────────────────────────────╖
  352.     *       ║                                                         ║
  353.     *       ║         GETORDER/Windows Setup Code - SECTION 2         ║
  354.     *       ║                                                         ║
  355.     *       ╙─────────────────────────────────────────────────────────╜
  356.     *
  357.     
  358.     #REGION 1
  359.     skipvar = .T.
  360.     
  361.     IF TYPE("tagnum") = "U"
  362.        PUBLIC tagnum
  363.        tagnum = 1
  364.     ENDIF
  365.     
  366.     m.startord = ORDER()
  367.     m.startalias = ALIAS()
  368.     
  369.     SET ORDER TO 0
  370.     numtag = 1
  371.     DO WHILE "" <> TAG(numtag)
  372.        numtag = numtag + 1
  373.     ENDDO
  374.     
  375.     DIMENSION idxtags(numtag-1)
  376.     i = 1
  377.     DO WHILE i <= numtag-1
  378.        idxtags[i] = TAG(i)
  379.        i = i + 1
  380.     ENDDO
  381.     SET ORDER TO (m.startord)
  382.     
  383.     
  384.     *       ╓─────────────────────────────────────────────────────────╖
  385.     *       ║                                                         ║
  386.     *       ║             GETORDER/Windows Screen Layout              ║
  387.     *       ║                                                         ║
  388.     *       ╙─────────────────────────────────────────────────────────╜
  389.     *
  390.     
  391.     #REGION 1
  392.     IF WVISIBLE("_qne1bydsi")
  393.         ACTIVATE WINDOW _qne1bydsi SAME
  394.     ELSE
  395.         ACTIVATE WINDOW _qne1bydsi NOSHOW
  396.     ENDIF
  397.     @ 1.154,16.500 GET tagnum ;
  398.         PICTURE "@^" ;
  399.         FROM idxtags ;
  400.         SIZE 1.538,23.400 ;
  401.         DEFAULT 1 ;
  402.         FONT "MS Sans Serif", 8
  403.     @ 4.000,7.500 GET ordbut ;
  404.         PICTURE "@*HT \!\<OK;\?\<Cancel" ;
  405.         SIZE 1.538,10.667,2.167 ;
  406.         DEFAULT 1 ;
  407.         FONT "MS Sans Serif", 8 ;
  408.         STYLE "B"
  409.     @ 1.462,3.333 SAY "Index Order:"  ;
  410.         FONT "MS Sans Serif", 8 ;
  411.         STYLE "B"
  412.     
  413.     IF NOT WVISIBLE("_qne1bydsi")
  414.         ACTIVATE WINDOW _qne1bydsi
  415.     ENDIF
  416.     
  417.     
  418.     *       ╓─────────────────────────────────────────────────────────╖
  419.     *       ║                                                         ║
  420.     *       ║    WindowsREAD contains clauses from SCREEN getorder    ║
  421.     *       ║                                                         ║
  422.     *       ╙─────────────────────────────────────────────────────────╜
  423.     *
  424.     
  425.     READ CYCLE ;
  426.         ACTIVATE _qne1byecu() ;
  427.         DEACTIVATE _qne1byecv() ;
  428.         MODAL
  429.     
  430.     RELEASE WINDOW _qne1bydsi
  431.     
  432.     #REGION 0
  433.     
  434.     SET READBORDER &rborder
  435.     
  436.     IF m.talkstat = "ON"
  437.         SET TALK ON
  438.     ENDIF
  439.     IF m.compstat = "ON"
  440.         SET COMPATIBLE ON
  441.     ENDIF
  442.     
  443.     
  444.     *       ╓─────────────────────────────────────────────────────────╖
  445.     *       ║                                                         ║
  446.     *       ║              GETORDER/Windows Cleanup Code              ║
  447.     *       ║                                                         ║
  448.     *       ╙─────────────────────────────────────────────────────────╜
  449.     *
  450.     
  451.     #REGION 1
  452.     skipvar = .F.
  453.     IF ordbut = 1
  454.        SET ORDER TO TAG(tagnum)
  455.     ELSE
  456.        SET ORDER TO (m.startord)
  457.        m.tagnum = m.startord
  458.     ENDIF
  459.     SHOW GETS
  460.     
  461.  
  462. ENDCASE
  463.  
  464.  
  465. *       ╓─────────────────────────────────────────────────────────╖
  466. *       ║                                                         ║
  467. *       ║ _QNE1BYBP5           Read Level Activate                ║
  468. *       ║                                                         ║
  469. *       ║ Function Origin:                                        ║
  470. *       ║                                                         ║
  471. *       ║                                                         ║
  472. *       ║ From Platform:       MS-DOS                             ║
  473. *       ║ From Screen:         GETORDER                           ║
  474. *       ║ Called By:           READ Statement                     ║
  475. *       ║ Snippet Number:      1                                  ║
  476. *       ║                                                         ║
  477. *       ╙─────────────────────────────────────────────────────────╜
  478. *
  479. FUNCTION _qne1bybp5     && Read Level Activate
  480. *
  481. * Activate Code from screen: GETORDER
  482. *
  483. #REGION 1
  484. SELECT (m.startalias)
  485.  
  486.  
  487. *       ╓─────────────────────────────────────────────────────────╖
  488. *       ║                                                         ║
  489. *       ║ _QNE1BYBQT           Read Level Deactivate              ║
  490. *       ║                                                         ║
  491. *       ║ Function Origin:                                        ║
  492. *       ║                                                         ║
  493. *       ║                                                         ║
  494. *       ║ From Platform:       MS-DOS                             ║
  495. *       ║ From Screen:         GETORDER                           ║
  496. *       ║ Called By:           READ Statement                     ║
  497. *       ║ Snippet Number:      2                                  ║
  498. *       ║                                                         ║
  499. *       ╙─────────────────────────────────────────────────────────╜
  500. *
  501. FUNCTION _qne1bybqt     && Read Level Deactivate
  502. *
  503. * Deactivate Code from screen: GETORDER
  504. *
  505. #REGION 1
  506. ?? CHR(7)
  507. RETURN .F.
  508.  
  509.  
  510. *       ╓─────────────────────────────────────────────────────────╖
  511. *       ║                                                         ║
  512. *       ║ _QNE1BYDF2           Read Level Activate                ║
  513. *       ║                                                         ║
  514. *       ║ Function Origin:                                        ║
  515. *       ║                                                         ║
  516. *       ║                                                         ║
  517. *       ║ From Platform:       Macintosh                          ║
  518. *       ║ From Screen:         GETORDER                           ║
  519. *       ║ Called By:           READ Statement                     ║
  520. *       ║ Snippet Number:      3                                  ║
  521. *       ║                                                         ║
  522. *       ╙─────────────────────────────────────────────────────────╜
  523. *
  524. FUNCTION _qne1bydf2     && Read Level Activate
  525. *
  526. * Activate Code from screen: GETORDER
  527. *
  528. #REGION 1
  529. SELECT (m.startalias)
  530.  
  531.  
  532. *       ╓─────────────────────────────────────────────────────────╖
  533. *       ║                                                         ║
  534. *       ║ _QNE1BYDF6           Read Level Deactivate              ║
  535. *       ║                                                         ║
  536. *       ║ Function Origin:                                        ║
  537. *       ║                                                         ║
  538. *       ║                                                         ║
  539. *       ║ From Platform:       Macintosh                          ║
  540. *       ║ From Screen:         GETORDER                           ║
  541. *       ║ Called By:           READ Statement                     ║
  542. *       ║ Snippet Number:      4                                  ║
  543. *       ║                                                         ║
  544. *       ╙─────────────────────────────────────────────────────────╜
  545. *
  546. FUNCTION _qne1bydf6     && Read Level Deactivate
  547. *
  548. * Deactivate Code from screen: GETORDER
  549. *
  550. #REGION 1
  551. ?? CHR(7)
  552. RETURN .F.
  553.  
  554.  
  555. *       ╓─────────────────────────────────────────────────────────╖
  556. *       ║                                                         ║
  557. *       ║ _QNE1BYECU           Read Level Activate                ║
  558. *       ║                                                         ║
  559. *       ║ Function Origin:                                        ║
  560. *       ║                                                         ║
  561. *       ║                                                         ║
  562. *       ║ From Platform:       Windows                            ║
  563. *       ║ From Screen:         GETORDER                           ║
  564. *       ║ Called By:           READ Statement                     ║
  565. *       ║ Snippet Number:      5                                  ║
  566. *       ║                                                         ║
  567. *       ╙─────────────────────────────────────────────────────────╜
  568. *
  569. FUNCTION _qne1byecu     && Read Level Activate
  570. *
  571. * Activate Code from screen: GETORDER
  572. *
  573. #REGION 1
  574. SELECT (m.startalias)
  575.  
  576.  
  577. *       ╓─────────────────────────────────────────────────────────╖
  578. *       ║                                                         ║
  579. *       ║ _QNE1BYECV           Read Level Deactivate              ║
  580. *       ║                                                         ║
  581. *       ║ Function Origin:                                        ║
  582. *       ║                                                         ║
  583. *       ║                                                         ║
  584. *       ║ From Platform:       Windows                            ║
  585. *       ║ From Screen:         GETORDER                           ║
  586. *       ║ Called By:           READ Statement                     ║
  587. *       ║ Snippet Number:      6                                  ║
  588. *       ║                                                         ║
  589. *       ╙─────────────────────────────────────────────────────────╜
  590. *
  591. FUNCTION _qne1byecv     && Read Level Deactivate
  592. *
  593. * Deactivate Code from screen: GETORDER
  594. *
  595. #REGION 1
  596. ?? CHR(7)
  597. RETURN .F.
  598.