home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / APPABOUT.PR_ / APPABOUT.bin
Encoding:
Text File  |  1994-04-28  |  4.0 KB  |  128 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 01/06/93            APPABOUT.SPR               15:57:29 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Walter J. Kennamer                                      ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 Microsoft Corp.                      ║
  10. *       ║ One Microsoft Way                                       ║
  11. *       ║ Redmond, WA  98027                                      ║
  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.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       ╓─────────────────────────────────────────────────────────╖
  35. *       ║                                                         ║
  36. *       ║               Windows Window definitions                ║
  37. *       ║                                                         ║
  38. *       ╙─────────────────────────────────────────────────────────╜
  39. *
  40.  
  41. IF NOT WEXIST("_qc90y7brm")
  42.     DEFINE WINDOW _qc90y7brm ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 6.692,35.333 ;
  45.         FONT "MS Sans Serif", 8 ;
  46.         STYLE "B" ;
  47.         FLOAT ;
  48.         NOCLOSE ;
  49.         SHADOW ;
  50.         NOMINIMIZE ;
  51.         DOUBLE
  52.     MOVE WINDOW _qc90y7brm CENTER
  53. ENDIF
  54.  
  55.  
  56. *       ╓─────────────────────────────────────────────────────────╖
  57. *       ║                                                         ║
  58. *       ║         APPABOUT/Windows Setup Code - SECTION 2         ║
  59. *       ║                                                         ║
  60. *       ╙─────────────────────────────────────────────────────────╜
  61. *
  62.  
  63. #REGION 1
  64. SET CURSOR OFF
  65.  
  66.  
  67. *       ╓─────────────────────────────────────────────────────────╖
  68. *       ║                                                         ║
  69. *       ║             APPABOUT/Windows Screen Layout              ║
  70. *       ║                                                         ║
  71. *       ╙─────────────────────────────────────────────────────────╜
  72. *
  73.  
  74. #REGION 1
  75. IF WVISIBLE("_qc90y7brm")
  76.     ACTIVATE WINDOW _qc90y7brm SAME
  77. ELSE
  78.     ACTIVATE WINDOW _qc90y7brm NOSHOW
  79. ENDIF
  80. @ 1.000,1.000 SAY "This application was generated by "  ;
  81.     FONT "MS Sans Serif", 8 ;
  82.     STYLE "B"
  83. @ 3.000,11.000 SAY "FoxApp 2.5"  ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     STYLE "B"
  86. @ 5.000,2.000 SAY "Copyright (c) Microsoft Corp 1993"  ;
  87.     FONT "MS Sans Serif", 8 ;
  88.     STYLE "B"
  89.  
  90. IF NOT WVISIBLE("_qc90y7brm")
  91.     ACTIVATE WINDOW _qc90y7brm
  92. ENDIF
  93.  
  94.  
  95. *       ╓─────────────────────────────────────────────────────────╖
  96. *       ║                                                         ║
  97. *       ║    WindowsREAD contains clauses from SCREEN appabout    ║
  98. *       ║                                                         ║
  99. *       ╙─────────────────────────────────────────────────────────╜
  100. *
  101.  
  102. READ CYCLE ;
  103.     MODAL
  104.  
  105. RELEASE WINDOW _qc90y7brm
  106.  
  107. #REGION 0
  108.  
  109. SET READBORDER &rborder
  110.  
  111. IF m.talkstat = "ON"
  112.     SET TALK ON
  113. ENDIF
  114. IF m.compstat = "ON"
  115.     SET COMPATIBLE ON
  116. ENDIF
  117.  
  118.  
  119. *       ╓─────────────────────────────────────────────────────────╖
  120. *       ║                                                         ║
  121. *       ║              APPABOUT/Windows Cleanup Code              ║
  122. *       ║                                                         ║
  123. *       ╙─────────────────────────────────────────────────────────╜
  124. *
  125.  
  126. #REGION 1
  127. SET CURSOR ON
  128.