home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / APPCTRL.PR_ / APPCTRL.bin
Encoding:
Text File  |  1994-04-28  |  4.7 KB  |  157 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/13/92             APPCTRL.SPR               15:09:00 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Walter J. Kennamer                                      ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 Fox Holdings, Inc.                   ║
  10. *       ║ 134 W. South Boundary                                   ║
  11. *       ║ Perrysburg, OH  43551                                   ║
  12. *       ║ QÜ╖0ïF■ú╞Mâ╛B²                                  ║
  13. *       ║                                                         ║
  14. *       ║ Description:                                            ║
  15. *       ║ This program was automatically generated by GENSCRN.    ║
  16. *       ║                                                         ║
  17. *       ╙─────────────────────────────────────────────────────────╜
  18.  
  19.  
  20. #REGION 0
  21. REGIONAL m.currarea, m.talkstat, m.compstat
  22.  
  23. IF SET("TALK") = "ON"
  24.     SET TALK OFF
  25.     m.talkstat = "ON"
  26. ELSE
  27.     m.talkstat = "OFF"
  28. ENDIF
  29. m.compstat = SET("COMPATIBLE")
  30. SET COMPATIBLE FOXPLUS
  31.  
  32. m.rborder = SET("READBORDER")
  33. SET READBORDER ON
  34.  
  35. *       ╓─────────────────────────────────────────────────────────╖
  36. *       ║                                                         ║
  37. *       ║               Windows Window definitions                ║
  38. *       ║                                                         ║
  39. *       ╙─────────────────────────────────────────────────────────╜
  40. *
  41.  
  42.  
  43. *       ╓─────────────────────────────────────────────────────────╖
  44. *       ║                                                         ║
  45. *       ║         APPCTRL/Windows Setup Code - SECTION 2          ║
  46. *       ║                                                         ║
  47. *       ╙─────────────────────────────────────────────────────────╜
  48. *
  49.  
  50. #REGION 1
  51. IF NOT WEXIST("appctrl")
  52.     DEFINE WINDOW appctrl ;
  53.         AT 0.000, 0.000 ;
  54.         SIZE 3.846,74.000 ;
  55.         TITLE "Control Panel" ;
  56.         FONT "FoxFont",9 ;
  57.         STYLE "B" ;
  58.         FLOAT ;
  59.         NOCLOSE ;
  60.         SHADOW ;
  61.         DOUBLE ;
  62.         HALF ;
  63.         COLOR SCHEME 5
  64. ENDIF
  65.  
  66.  
  67. *       ╓─────────────────────────────────────────────────────────╖
  68. *       ║                                                         ║
  69. *       ║              APPCTRL/Windows Screen Layout              ║
  70. *       ║                                                         ║
  71. *       ╙─────────────────────────────────────────────────────────╜
  72. *
  73.  
  74. #REGION 1
  75. IF WVISIBLE("appctrl")
  76.     ACTIVATE WINDOW appctrl SAME
  77. ELSE
  78.     ACTIVATE WINDOW appctrl NOSHOW
  79. ENDIF
  80. @ 0.769,1.500 GET ACT3 ;
  81.     PICTURE "@*HN \<Top;\<Prior;\<Next;\<Bottom;\<Search;\<Quit" ;
  82.     SIZE 1.769,10.000,2.000 ;
  83.     DEFAULT 1 ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     STYLE "B" ;
  86.     VALID _qbk0wh09z()
  87.  
  88. IF NOT WVISIBLE("appctrl")
  89.     ACTIVATE WINDOW appctrl
  90. ENDIF
  91.  
  92. READ CYCLE
  93.  
  94. RELEASE WINDOW appctrl
  95.  
  96. #REGION 0
  97.  
  98. SET READBORDER &rborder
  99.  
  100. IF m.talkstat = "ON"
  101.     SET TALK ON
  102. ENDIF
  103. IF m.compstat = "ON"
  104.     SET COMPATIBLE ON
  105. ENDIF
  106.  
  107.  
  108. *       ╓─────────────────────────────────────────────────────────╖
  109. *       ║                                                         ║
  110. *       ║ _QBK0WH09Z           ACT3 VALID                         ║
  111. *       ║                                                         ║
  112. *       ║ Function Origin:                                        ║
  113. *       ║                                                         ║
  114. *       ║ From Platform:       Windows                            ║
  115. *       ║ From Screen:         APPCTRL,     Record Number:    2   ║
  116. *       ║ Variable:            ACT3                               ║
  117. *       ║ Called By:           VALID Clause                       ║
  118. *       ║ Snippet Number:      1                                  ║
  119. *       ║                                                         ║
  120. *       ╙─────────────────────────────────────────────────────────╜
  121. *
  122. FUNCTION _qbk0wh09z     &&  ACT3 VALID
  123. #REGION 1
  124. DO CASE
  125. CASE act3 = 1
  126.    GO TOP
  127. CASE act3 = 2
  128.    IF !BOF()
  129.       SKIP -1
  130.    ENDIF
  131.    IF BOF()
  132.       WAIT WINDOW "Top of file" NOWAIT
  133.       GOTO TOP
  134.    ENDIF
  135. CASE act3 = 3
  136.    IF !EOF()
  137.       SKIP 1
  138.    ENDIF
  139.    IF EOF()
  140.       WAIT WINDOW "Bottom of file" NOWAIT
  141.       GOTO BOTTOM
  142.    ENDIF
  143. CASE act3 = 4
  144.    GO BOTTOM
  145. CASE act3 = 5
  146.    IF !regen
  147.       mname = 'appsrch.prg'
  148.    ELSE
  149.       mname = 'appsrch.spr'
  150.    ENDIF
  151.    DO (mname)
  152. CASE act3 = 6
  153.    bailout = .T.
  154.    CLEAR READ
  155. ENDCASE
  156. SHOW GETS
  157.