home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / STATE.SPR < prev    next >
Encoding:
Text File  |  1992-08-08  |  5.3 KB  |  172 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 08/08/92              STATE.SPR                21:12:44 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.currarea = SELECT()
  32.  
  33.  
  34. *       ╓─────────────────────────────────────────────────────────╖
  35. *       ║                                                         ║
  36. *       ║                    Window definitions                   ║
  37. *       ║                                                         ║
  38. *       ╙─────────────────────────────────────────────────────────╜
  39. *
  40.  
  41. IF NOT WEXIST("state")
  42.     DEFINE WINDOW state ;
  43.         FROM 13, 20 ;
  44.         TO 21,71 ;
  45.         TITLE "1989 State Population" ;
  46.         FLOAT ;
  47.         NOCLOSE ;
  48.         SHADOW ;
  49.         SYSTEM ;
  50.         COLOR SCHEME 10
  51. ENDIF
  52.  
  53.  
  54. *       ╓─────────────────────────────────────────────────────────╖
  55. *       ║                                                         ║
  56. *       ║                   STATE Screen Layout                   ║
  57. *       ║                                                         ║
  58. *       ╙─────────────────────────────────────────────────────────╜
  59. *
  60.  
  61. #REGION 1
  62. IF WVISIBLE("state")
  63.     ACTIVATE WINDOW state SAME
  64. ELSE
  65.     ACTIVATE WINDOW state NOSHOW
  66. ENDIF
  67. @ 1,17 GET census.state ;
  68.     SIZE 1,14 ;
  69.     DEFAULT " "
  70. @ 2,17 GET census.population ;
  71.     SIZE 1,8 ;
  72.     DEFAULT 0
  73. @ 3,17 GET census.growth ;
  74.     SIZE 1,10 ;
  75.     DEFAULT 0
  76. @ 4,17 GET census.rank ;
  77.     SIZE 1,9 ;
  78.     DEFAULT " "
  79. @ 4,11 SAY "Rank:"
  80. @ 1,10 SAY "State:"
  81. @ 6,3 GET Choice ;
  82.     PICTURE "@*HN Next;Prev;Top;Bottom;Quit" ;
  83.     SIZE 1,8,1 ;
  84.     DEFAULT 1 ;
  85.     VALID _q8119gs0k()
  86. @ 3,0 SAY " 10 year Growth:"
  87. @ 2,1 SAY "'89 Population:"
  88. @ 3,28 SAY "%"
  89.  
  90. IF NOT WVISIBLE("state")
  91.     ACTIVATE WINDOW state
  92. ENDIF
  93.  
  94. READ CYCLE ;
  95.     DEACTIVATE _q8119gsvo()
  96.  
  97. RELEASE WINDOW state
  98. SELECT (m.currarea)
  99.  
  100.  
  101. #REGION 0
  102. IF m.talkstat = "ON"
  103.     SET TALK ON
  104. ENDIF
  105. IF m.compstat = "ON"
  106.     SET COMPATIBLE ON
  107. ENDIF
  108.  
  109.  
  110. *       ╓─────────────────────────────────────────────────────────╖
  111. *       ║                                                         ║
  112. *       ║ _Q8119GS0K           Choice VALID                       ║
  113. *       ║                                                         ║
  114. *       ║ Function Origin:                                        ║
  115. *       ║                                                         ║
  116. *       ║ From Screen:         STATE,     Record Number:    8     ║
  117. *       ║ Variable:            Choice                             ║
  118. *       ║ Called By:           VALID Clause                       ║
  119. *       ║ Object Type:         Push Button                        ║
  120. *       ║ Snippet Number:      1                                  ║
  121. *       ║                                                         ║
  122. *       ╙─────────────────────────────────────────────────────────╜
  123. *
  124. FUNCTION _q8119gs0k     &&  Choice VALID
  125. #REGION 1
  126. SELECT 1
  127. DO CASE
  128.     CASE Choice = 1
  129.         IF RECNO() < RECCOUNT()
  130.              SKIP
  131.         ELSE
  132.              WAIT WINDOW NOWAIT "End of File Encountered"
  133.         ENDIF
  134.     CASE Choice = 2
  135.         IF RECNO() > 1
  136.              SKIP -1
  137.         ELSE
  138.             WAIT WINDOW NOWAIT "Beginning of file encountered"
  139.         ENDIF
  140.     CASE Choice = 3
  141.         GO TOP
  142.     CASE Choice = 4
  143.         GO BOTTOM
  144.     CASE Choice = 5
  145.         QuitIt = .T.
  146.         CLEAR READ ALL
  147.         RETURN.T.
  148. ENDCASE
  149. SHOW GETS
  150. RETURN .T.
  151.  
  152.  
  153.  
  154. *       ╓─────────────────────────────────────────────────────────╖
  155. *       ║                                                         ║
  156. *       ║ _Q8119GSVO           Read Level Deactivate              ║
  157. *       ║                                                         ║
  158. *       ║ Function Origin:                                        ║
  159. *       ║                                                         ║
  160. *       ║ From Screen:         STATE                              ║
  161. *       ║ Called By:           READ Statement                     ║
  162. *       ║ Snippet Number:      2                                  ║
  163. *       ║                                                         ║
  164. *       ╙─────────────────────────────────────────────────────────╜
  165. *
  166. FUNCTION _q8119gsvo     && Read Level Deactivate
  167. *
  168. * Deactivate Code from screen: STATE
  169. *
  170. #REGION 1
  171. CLEAR READ
  172. RETURN .T.