home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / GETLESS / CITIES.SPR < prev    next >
Encoding:
Text File  |  1993-02-01  |  14.7 KB  |  464 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/01/93             CITIES.SPR                23:04:25 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Bruce Braunstein                                        
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Tetra Press                          
  10. *       * 1015 Gayley #288                                        
  11. *       * Los Angeles, CA  90024                                  
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _WINDOWS
  20.     DO _QCZ1DGEUA
  21. CASE _DOS
  22.     DO _QCZ1DGF0H
  23. ENDCASE
  24.  
  25.  
  26. *       *********************************************************
  27. *       *                                                         
  28. *       *                      Windows Code                       
  29. *       *                                                         
  30. *       *********************************************************
  31. *
  32.  
  33.          
  34. PROCEDURE _QCZ1DGEUA
  35.  
  36. #REGION 0
  37. REGIONAL m.currarea, m.talkstat, m.compstat
  38.  
  39. IF SET("TALK") = "ON"
  40.     SET TALK OFF
  41.     m.talkstat = "ON"
  42. ELSE
  43.     m.talkstat = "OFF"
  44. ENDIF
  45. m.compstat = SET("COMPATIBLE")
  46. SET COMPATIBLE FOXPLUS
  47.  
  48. m.rborder = SET("READBORDER")
  49. SET READBORDER ON
  50.  
  51. *       *********************************************************
  52. *       *                                                         
  53. *       *               Windows Window definitions                
  54. *       *                                                         
  55. *       *********************************************************
  56. *
  57.  
  58. IF NOT WEXIST("cities") ;
  59.     OR UPPER(WTITLE("CITIES")) == "CITIES.PJX" ;
  60.     OR UPPER(WTITLE("CITIES")) == "CITIES.SCX" ;
  61.     OR UPPER(WTITLE("CITIES")) == "CITIES.MNX" ;
  62.     OR UPPER(WTITLE("CITIES")) == "CITIES.PRG" ;
  63.     OR UPPER(WTITLE("CITIES")) == "CITIES.FRX" ;
  64.     OR UPPER(WTITLE("CITIES")) == "CITIES.QPR"
  65.     DEFINE WINDOW cities ;
  66.         AT 3.000, 20.000 ;
  67.         SIZE 13.385,53.000 ;
  68.         TITLE "1988 Cities Population" ;
  69.         FONT "MS Sans Serif", 8 ;
  70.         STYLE "B" ;
  71.         FLOAT ;
  72.         NOCLOSE ;
  73.         SHADOW ;
  74.         NOMINIMIZE ;
  75.         SYSTEM
  76. ENDIF
  77.  
  78.  
  79. *       *********************************************************
  80. *       *                                                         
  81. *       *          CITIES/Windows Setup Code - SECTION 2          
  82. *       *                                                         
  83. *       *********************************************************
  84. *
  85.  
  86. #REGION 1
  87. DO SETCITY   && in GETLESS.PRG
  88. Choice = 1
  89.  
  90. *       *********************************************************
  91. *       *                                                         
  92. *       *              CITIES/Windows Screen Layout               
  93. *       *                                                         
  94. *       *********************************************************
  95. *
  96.  
  97. #REGION 1
  98. IF WVISIBLE("cities")
  99.     ACTIVATE WINDOW cities SAME
  100. ELSE
  101.     ACTIVATE WINDOW cities NOSHOW
  102. ENDIF
  103. @ 2.385,22.667 GET cities.state ;
  104.     SIZE 1.000,24.200 ;
  105.     DEFAULT " " ;
  106.     FONT "MS Sans Serif", 8
  107. @ 3.538,22.667 GET cities.pop88 ;
  108.     SIZE 1.000,20.600 ;
  109.     DEFAULT 0 ;
  110.     FONT "MS Sans Serif", 8
  111. @ 4.692,22.667 GET cities.pop80 ;
  112.     SIZE 1.000,20.600 ;
  113.     DEFAULT 0 ;
  114.     FONT "MS Sans Serif", 8
  115. @ 5.846,22.667 GET cities.rank ;
  116.     SIZE 1.000,9.800 ;
  117.     DEFAULT " " ;
  118.     FONT "MS Sans Serif", 8
  119. @ 5.846,13.000 SAY "Rank:"  ;
  120.     FONT "MS Sans Serif", 8 ;
  121.     STYLE "B"
  122. @ 2.385,13.000 SAY "State:"  ;
  123.     FONT "MS Sans Serif", 8 ;
  124.     STYLE "B"
  125. @ 3.538,5.500 SAY "'88 Population:"  ;
  126.     FONT "MS Sans Serif", 8 ;
  127.     STYLE "B"
  128. @ 4.692,5.500 SAY "'80 Population:"  ;
  129.     FONT "MS Sans Serif", 8 ;
  130.     STYLE "B"
  131. @ 9.692,3.000 GET Choice ;
  132.     PICTURE "@*HN Next;Prev;Top;Bottom;Quit" ;
  133.     SIZE 1.692,7.667,1.000 ;
  134.     DEFAULT 1 ;
  135.     FONT "MS Sans Serif", 8 ;
  136.     STYLE "B" ;
  137.     VALID _qcz1dh17u()
  138. @ 1.308,14.500 SAY "City:"  ;
  139.     FONT "MS Sans Serif", 8 ;
  140.     STYLE "B"
  141. @ 1.308,22.667 GET cities.city ;
  142.     SIZE 1.000,24.200 ;
  143.     DEFAULT " " ;
  144.     FONT "MS Sans Serif", 8
  145. @ 0.692,3.000 TO 8.384,48.167 ;
  146.     PEN 1, 8 ;
  147.     STYLE "24"
  148.  
  149. IF NOT WVISIBLE("cities")
  150.     ACTIVATE WINDOW cities
  151. ENDIF
  152.  
  153. READ CYCLE ;
  154.     ACTIVATE _qcz1dhj01() ;
  155.     DEACTIVATE _qcz1dhj7u()
  156.  
  157. RELEASE WINDOW cities
  158.  
  159. #REGION 0
  160.  
  161. SET READBORDER &rborder
  162.  
  163. IF m.talkstat = "ON"
  164.     SET TALK ON
  165. ENDIF
  166. IF m.compstat = "ON"
  167.     SET COMPATIBLE ON
  168. ENDIF
  169.  
  170.  
  171. *       *********************************************************
  172. *       *                                                         
  173. *       *                       MS-DOS Code                       
  174. *       *                                                         
  175. *       *********************************************************
  176. *
  177.  
  178.          
  179. PROCEDURE _QCZ1DGF0H
  180.  
  181. #REGION 0
  182. REGIONAL m.currarea, m.talkstat, m.compstat
  183.  
  184. IF SET("TALK") = "ON"
  185.     SET TALK OFF
  186.     m.talkstat = "ON"
  187. ELSE
  188.     m.talkstat = "OFF"
  189. ENDIF
  190. m.compstat = SET("COMPATIBLE")
  191. SET COMPATIBLE FOXPLUS
  192.  
  193. *       *********************************************************
  194. *       *                                                         
  195. *       *                MS-DOS Window definitions                
  196. *       *                                                         
  197. *       *********************************************************
  198. *
  199.  
  200. IF NOT WEXIST("cities") ;
  201.     OR UPPER(WTITLE("CITIES")) == "CITIES.PJX" ;
  202.     OR UPPER(WTITLE("CITIES")) == "CITIES.SCX" ;
  203.     OR UPPER(WTITLE("CITIES")) == "CITIES.MNX" ;
  204.     OR UPPER(WTITLE("CITIES")) == "CITIES.PRG" ;
  205.     OR UPPER(WTITLE("CITIES")) == "CITIES.FRX" ;
  206.     OR UPPER(WTITLE("CITIES")) == "CITIES.QPR"
  207.     DEFINE WINDOW cities ;
  208.         FROM 3, 20 ;
  209.         TO 11,71 ;
  210.         TITLE "1988 Cities Population" ;
  211.         FLOAT ;
  212.         NOCLOSE ;
  213.         SHADOW ;
  214.         NOMINIMIZE ;
  215.         SYSTEM ;
  216.         COLOR SCHEME 10
  217. ENDIF
  218.  
  219.  
  220. *       *********************************************************
  221. *       *                                                         
  222. *       *          CITIES/MS-DOS Setup Code - SECTION 2           
  223. *       *                                                         
  224. *       *********************************************************
  225. *
  226.  
  227. #REGION 1
  228. DO SETCITY   && in GETLESS.PRG
  229. Choice = 1
  230.  
  231. *       *********************************************************
  232. *       *                                                         
  233. *       *               CITIES/MS-DOS Screen Layout               
  234. *       *                                                         
  235. *       *********************************************************
  236. *
  237.  
  238. #REGION 1
  239. IF WVISIBLE("cities")
  240.     ACTIVATE WINDOW cities SAME
  241. ELSE
  242.     ACTIVATE WINDOW cities NOSHOW
  243. ENDIF
  244. @ 1,17 GET cities.state ;
  245.     SIZE 1,14 ;
  246.     DEFAULT " "
  247. @ 2,17 GET cities.pop88 ;
  248.     SIZE 1,8 ;
  249.     DEFAULT 0
  250. @ 3,17 GET cities.pop80 ;
  251.     SIZE 1,10 ;
  252.     DEFAULT 0
  253. @ 4,17 GET cities.rank ;
  254.     SIZE 1,9 ;
  255.     DEFAULT " "
  256. @ 4,11 SAY "Rank:" ;
  257.     SIZE 1,5, 0
  258. @ 1,10 SAY "State:" ;
  259.     SIZE 1,6, 0
  260. @ 2,1 SAY "'88 Population:" ;
  261.     SIZE 1,15, 0
  262. @ 3,1 SAY "'80 Population:" ;
  263.     SIZE 1,15, 0
  264. @ 6,3 GET Choice ;
  265.     PICTURE "@*HN Next;Prev;Top;Bottom;Quit" ;
  266.     SIZE 1,8,1 ;
  267.     DEFAULT 1 ;
  268.     VALID _qcz1did7c()
  269. @ 0,11 SAY "City:" ;
  270.     SIZE 1,5, 0
  271. @ 0,17 GET cities.city ;
  272.     SIZE 1,10 ;
  273.     DEFAULT " "
  274.  
  275. IF NOT WVISIBLE("cities")
  276.     ACTIVATE WINDOW cities
  277. ENDIF
  278.  
  279. READ CYCLE ;
  280.     ACTIVATE _qcz1dis81() ;
  281.     DEACTIVATE _qcz1disfs()
  282.  
  283. RELEASE WINDOW cities
  284.  
  285. #REGION 0
  286. IF m.talkstat = "ON"
  287.     SET TALK ON
  288. ENDIF
  289. IF m.compstat = "ON"
  290.     SET COMPATIBLE ON
  291. ENDIF
  292.  
  293.  
  294. *       *********************************************************
  295. *       *                                                         
  296. *       * _QCZ1DH17U           Choice VALID                       
  297. *       *                                                         
  298. *       * Function Origin:                                        
  299. *       *                                                         
  300. *       * From Platform:       Windows                            
  301. *       * From Screen:         CITIES,     Record Number:   10    
  302. *       * Variable:            Choice                             
  303. *       * Called By:           VALID Clause                       
  304. *       * Snippet Number:      1                                  
  305. *       *                                                         
  306. *       *********************************************************
  307. *
  308. FUNCTION _qcz1dh17u     &&  Choice VALID
  309. #REGION 1
  310. SELECT 2
  311. DO CASE
  312.     CASE Choice = 1
  313.         IF RECNO() < RECCOUNT()
  314.              SKIP
  315.         ELSE
  316.              WAIT WINDOW NOWAIT "End of File Encountered"
  317.         ENDIF
  318.     CASE Choice = 2
  319.         IF RECNO() > 1
  320.              SKIP -1
  321.         ELSE
  322.             WAIT WINDOW NOWAIT "Beginning of file encountered"
  323.         ENDIF
  324.     CASE Choice = 3
  325.         GO TOP
  326.     CASE Choice = 4
  327.         GO BOTTOM
  328.     CASE Choice = 5
  329.         QuitIt = .T.
  330.         CLEAR READ
  331. ENDCASE
  332. SHOW GETS
  333. RETURN .T.
  334.  
  335.  
  336.  
  337. *       *********************************************************
  338. *       *                                                         
  339. *       * _QCZ1DHJ01           Read Level Activate                
  340. *       *                                                         
  341. *       * Function Origin:                                        
  342. *       *                                                         
  343. *       *                                                         
  344. *       * From Platform:       Windows                            
  345. *       * From Screen:         CITIES                             
  346. *       * Called By:           READ Statement                     
  347. *       * Snippet Number:      2                                  
  348. *       *                                                         
  349. *       *********************************************************
  350. *
  351. FUNCTION _qcz1dhj01     && Read Level Activate
  352. *
  353. * Activate Code from screen: CITIES
  354. *
  355. #REGION 1
  356. DO SetCity && In GETLESS.PRG
  357.  
  358. *       *********************************************************
  359. *       *                                                         
  360. *       * _QCZ1DHJ7U           Read Level Deactivate              
  361. *       *                                                         
  362. *       * Function Origin:                                        
  363. *       *                                                         
  364. *       *                                                         
  365. *       * From Platform:       Windows                            
  366. *       * From Screen:         CITIES                             
  367. *       * Called By:           READ Statement                     
  368. *       * Snippet Number:      3                                  
  369. *       *                                                         
  370. *       *********************************************************
  371. *
  372. FUNCTION _qcz1dhj7u     && Read Level Deactivate
  373. *
  374. * Deactivate Code from screen: CITIES
  375. *
  376. #REGION 1
  377. CLEAR READ
  378. RETURN .T.
  379.  
  380. *       *********************************************************
  381. *       *                                                         
  382. *       * _QCZ1DID7C           Choice VALID                       
  383. *       *                                                         
  384. *       * Function Origin:                                        
  385. *       *                                                         
  386. *       * From Platform:       MS-DOS                             
  387. *       * From Screen:         CITIES,     Record Number:   25    
  388. *       * Variable:            Choice                             
  389. *       * Called By:           VALID Clause                       
  390. *       * Snippet Number:      4                                  
  391. *       *                                                         
  392. *       *********************************************************
  393. *
  394. FUNCTION _qcz1did7c     &&  Choice VALID
  395. #REGION 1
  396. SELECT 2
  397. DO CASE
  398.     CASE Choice = 1
  399.         IF RECNO() < RECCOUNT()
  400.              SKIP
  401.         ELSE
  402.              WAIT WINDOW NOWAIT "End of File Encountered"
  403.         ENDIF
  404.     CASE Choice = 2
  405.         IF RECNO() > 1
  406.              SKIP -1
  407.         ELSE
  408.             WAIT WINDOW NOWAIT "Beginning of file encountered"
  409.         ENDIF
  410.     CASE Choice = 3
  411.         GO TOP
  412.     CASE Choice = 4
  413.         GO BOTTOM
  414.     CASE Choice = 5
  415.         QuitIt = .T.
  416.         CLEAR READ
  417. ENDCASE
  418. SHOW GETS
  419. RETURN .T.
  420.  
  421.  
  422.  
  423. *       *********************************************************
  424. *       *                                                         
  425. *       * _QCZ1DIS81           Read Level Activate                
  426. *       *                                                         
  427. *       * Function Origin:                                        
  428. *       *                                                         
  429. *       *                                                         
  430. *       * From Platform:       MS-DOS                             
  431. *       * From Screen:         CITIES                             
  432. *       * Called By:           READ Statement                     
  433. *       * Snippet Number:      5                                  
  434. *       *                                                         
  435. *       *********************************************************
  436. *
  437. FUNCTION _qcz1dis81     && Read Level Activate
  438. *
  439. * Activate Code from screen: CITIES
  440. *
  441. #REGION 1
  442. DO SetCity && In GETLESS.PRG
  443.  
  444. *       *********************************************************
  445. *       *                                                         
  446. *       * _QCZ1DISFS           Read Level Deactivate              
  447. *       *                                                         
  448. *       * Function Origin:                                        
  449. *       *                                                         
  450. *       *                                                         
  451. *       * From Platform:       MS-DOS                             
  452. *       * From Screen:         CITIES                             
  453. *       * Called By:           READ Statement                     
  454. *       * Snippet Number:      6                                  
  455. *       *                                                         
  456. *       *********************************************************
  457. *
  458. FUNCTION _qcz1disfs     && Read Level Deactivate
  459. *
  460. * Deactivate Code from screen: CITIES
  461. *
  462. #REGION 1
  463. CLEAR READ
  464. RETURN .T.