home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FMW.LZH / SETUP.PRG < prev    next >
Encoding:
Text File  |  1992-11-09  |  3.7 KB  |  116 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 04/09/92              SETUP.PRG                15:42:31 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Bruce Braunstein                                        ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 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. PUBLIC array issue[3]
  18. REGIONAL m.currarea, m.talkstat, m.compstat
  19.  
  20. IF SET("TALK") = "ON"
  21.     SET TALK OFF
  22.     m.talkstat = "ON"
  23. ELSE
  24.     m.talkstat = "OFF"
  25. ENDIF
  26. m.compstat = SET("COMPATIBLE")
  27. SET COMPATIBLE FOXPLUS
  28.  
  29. *       ╓─────────────────────────────────────────────────────────╖
  30. *       ║                                                         ║
  31. *       ║                    Window definitions                   ║
  32. *       ║                                                         ║
  33. *       ╙─────────────────────────────────────────────────────────╜
  34. *
  35.  
  36. IF NOT WEXIST("issuedate")
  37.     DEFINE WINDOW issuedate ;
  38.         FROM INT((SROW()-15)/2),INT((SCOL()-32)/2) ;
  39.         TO INT((SROW()-15)/2)+14,INT((SCOL()-32)/2)+31 ;
  40.         TITLE "ISSUE DATE" ;
  41.         NOFLOAT ;
  42.         NOCLOSE ;
  43.         DOUBLE ;
  44.         COLOR SCHEME 1
  45. ENDIF
  46.  
  47.  
  48. *       ╓─────────────────────────────────────────────────────────╖
  49. *       ║                                                         ║
  50. *       ║              SETUP Setup Code - SECTION 2               ║
  51. *       ║                                                         ║
  52. *       ╙─────────────────────────────────────────────────────────╜
  53. *
  54.  
  55. #REGION 1
  56. fm_home = fm_locat()
  57. =sb_selec(fm_home,"articles")
  58. set order to tag issuedate
  59. RESULT = SPACE(8)
  60. do fm_issue
  61.  
  62. *       ╓─────────────────────────────────────────────────────────╖
  63. *       ║                                                         ║
  64. *       ║                   SETUP Screen Layout                   ║
  65. *       ║                                                         ║
  66. *       ╙─────────────────────────────────────────────────────────╜
  67. *
  68.  
  69. #REGION 1
  70. IF WVISIBLE("issuedate")
  71.     ACTIVATE WINDOW issuedate SAME
  72. ELSE
  73.     ACTIVATE WINDOW issuedate NOSHOW
  74. ENDIF
  75. @ 11,5 SAY "designated by their "
  76. @ 1,6 GET result ;
  77.     PICTURE "@&T" ;
  78.     FROM issue ;
  79.     SIZE 7,17 ;
  80.     DEFAULT 1 ;
  81.     COLOR SCHEME 2
  82. @ 9,2 SAY "Select the issue you wish"
  83. @ 10,5 SAY "to Read. Issues are"
  84. @ 12,3 SAY "Volumne and issue number"
  85.  
  86. IF NOT WVISIBLE("issuedate")
  87.     ACTIVATE WINDOW issuedate
  88. ENDIF
  89.  
  90. READ MODAL
  91.  
  92. RELEASE WINDOW issuedate
  93.  
  94. #REGION 0
  95. IF m.talkstat = "ON"
  96.     SET TALK ON
  97. ENDIF
  98. IF m.compstat = "ON"
  99.     SET COMPATIBLE ON
  100. ENDIF
  101.  
  102.  
  103. *       ╓─────────────────────────────────────────────────────────╖
  104. *       ║                                                         ║
  105. *       ║                   SETUP Cleanup Code                    ║
  106. *       ║                                                         ║
  107. *       ╙─────────────────────────────────────────────────────────╜
  108. *
  109.  
  110. #REGION 1
  111. replace fm_setup.issuedate with result
  112. release issue
  113. RETURN
  114.  
  115.  
  116.