home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_SCR006.SPR < prev    next >
Encoding:
Text File  |  1993-11-08  |  2.7 KB  |  94 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 93/11/08            G_SCR006.SPR               01:39:34 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 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. *       ╓─────────────────────────────────────────────────────────╖
  32. *       ║                                                         ║
  33. *       ║                    Window definitions                   ║
  34. *       ║                                                         ║
  35. *       ╙─────────────────────────────────────────────────────────╜
  36. *
  37.  
  38. IF NOT WEXIST("scr006")
  39.     DEFINE WINDOW scr006 ;
  40.         FROM 14, 31 ;
  41.         TO 18,59 ;
  42.         FLOAT ;
  43.         NOCLOSE ;
  44.         SHADOW ;
  45.         DOUBLE ;
  46.         COLOR SCHEME 5
  47. ENDIF
  48.  
  49.  
  50. *       ╓─────────────────────────────────────────────────────────╖
  51. *       ║                                                         ║
  52. *       ║                 G_SCR006 Screen Layout                  ║
  53. *       ║                                                         ║
  54. *       ╙─────────────────────────────────────────────────────────╜
  55. *
  56.  
  57. #REGION 1
  58. IF WVISIBLE("scr006")
  59.     ACTIVATE WINDOW scr006 SAME
  60. ELSE
  61.     ACTIVATE WINDOW scr006 NOSHOW
  62. ENDIF
  63. @ 0,6 GET ljbm ;
  64.     SIZE 1,20 ;
  65.     DEFAULT " " ;
  66.     PICTURE "@!"
  67. @ 1,6 GET ljxh ;
  68.     SIZE 1,20 ;
  69.     DEFAULT " " ;
  70.     PICTURE "@!"
  71. @ 0,1 SAY "▒α┬δ:"
  72. @ 1,1 SAY "╨═║┼:"
  73. @ 2,1 SAY "├√│╞:"
  74. @ 2,6 GET ljmc ;
  75.     SIZE 1,20 ;
  76.     DEFAULT " " ;
  77.     PICTURE "@!" ;
  78.     WHEN ljbm = " " AND ljxh = " "
  79.  
  80. IF NOT WVISIBLE("scr006")
  81.     ACTIVATE WINDOW scr006
  82. ENDIF
  83.  
  84. READ
  85.  
  86.  
  87. #REGION 0
  88. IF m.talkstat = "ON"
  89.     SET TALK ON
  90. ENDIF
  91. IF m.compstat = "ON"
  92.     SET COMPATIBLE ON
  93. ENDIF
  94.