home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_SCR004.SPR < prev    next >
Encoding:
Text File  |  1993-11-07  |  2.9 KB  |  103 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 93/11/08            G_SCR004.SPR               00:43:56 ║
  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("scr004")
  39.     DEFINE WINDOW scr004 ;
  40.         FROM 1, 0 ;
  41.         TO 100,63 ;
  42.         TITLE " ┼Σ╝■╧·╩█╡╟╝╟ " ;
  43.         NOFLOAT ;
  44.         NOCLOSE ;
  45.         SHADOW ;
  46.         COLOR SCHEME 1
  47. ENDIF
  48.  
  49.  
  50. *       ╓─────────────────────────────────────────────────────────╖
  51. *       ║                                                         ║
  52. *       ║                 G_SCR004 Screen Layout                  ║
  53. *       ║                                                         ║
  54. *       ╙─────────────────────────────────────────────────────────╜
  55. *
  56.  
  57. #REGION 1
  58. IF WVISIBLE("scr004")
  59.     ACTIVATE WINDOW scr004 SAME
  60. ELSE
  61.     ACTIVATE WINDOW scr004 NOSHOW
  62. ENDIF
  63. @ 2,7 GET d.dj_yh ;
  64.     SIZE 1,20 ;
  65.     DEFAULT " " ;
  66.     WHEN d.dj_yh = " "
  67. @ 1,2 SAY "╨≥║┼:"
  68. @ 2,2 SAY "╙├╗º:"
  69. @ 1,33 SAY "╚╒╞┌:"
  70. @ 4,43 SAY "║╧╝╞:"
  71. @ 5,0 SAY "⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ"
  72. @ 4,2 SAY "├√│╞"
  73. @ 4,24 SAY "╩²┴┐"
  74. @ 4,36 SAY "╡Ñ╝█"
  75. @ 1,38 GET d.dj_rq ;
  76.     SIZE 1,8 ;
  77.     DEFAULT {  /  /  } ;
  78.     DISABLE
  79. @ 1,51 GET d.dj_sx ;
  80.     PICTURE "@^ -┴π╩█-;-┼·╖ó-;-╡≈▓ª-;-╝▒╝■-;-╣╥╒╩-;-┤·╧·-" ;
  81.     SIZE 3,10 ;
  82.     DEFAULT "-┴π╩█-" ;
  83.     COLOR SCHEME 1, 2
  84. @ 1,7 GET d.xh ;
  85.     SIZE 1,8 ;
  86.     DEFAULT 0 ;
  87.     DISABLE
  88.  
  89. IF NOT WVISIBLE("scr004")
  90.     ACTIVATE WINDOW scr004
  91. ENDIF
  92.  
  93. READ
  94.  
  95.  
  96. #REGION 0
  97. IF m.talkstat = "ON"
  98.     SET TALK ON
  99. ENDIF
  100. IF m.compstat = "ON"
  101.     SET COMPATIBLE ON
  102. ENDIF
  103.