home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_SCR002.SPR < prev    next >
Encoding:
Text File  |  1993-11-08  |  3.4 KB  |  130 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 11/08/93            G_SCR002.SPR               18:18:45 ║
  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("scr002")
  39.     DEFINE WINDOW scr002 ;
  40.         FROM INT((SROW()-12)/2),INT((SCOL()-61)/2) ;
  41.         TO INT((SROW()-12)/2)+11,INT((SCOL()-61)/2)+60 ;
  42.         TITLE " ┼Σ╝■╚δ┐Γ " ;
  43.         FLOAT ;
  44.         NOCLOSE ;
  45.         SHADOW ;
  46.         DOUBLE ;
  47.         COLOR SCHEME 5
  48. ENDIF
  49.  
  50.  
  51. *       ╓─────────────────────────────────────────────────────────╖
  52. *       ║                                                         ║
  53. *       ║                 G_SCR002 Screen Layout                  ║
  54. *       ║                                                         ║
  55. *       ╙─────────────────────────────────────────────────────────╜
  56. *
  57.  
  58. #REGION 1
  59. IF WVISIBLE("scr002")
  60.     ACTIVATE WINDOW scr002 SAME
  61. ELSE
  62.     ACTIVATE WINDOW scr002 NOSHOW
  63. ENDIF
  64. @ 1,8 GET a.lj_bm ;
  65.     SIZE 1,20 ;
  66.     DEFAULT " " ;
  67.     PICTURE "@!" ;
  68.     DISABLE
  69. @ 2,8 GET a.lj_xh ;
  70.     SIZE 1,20 ;
  71.     DEFAULT " " ;
  72.     PICTURE "@!" ;
  73.     DISABLE
  74. @ 4,8 GET b.kc_sl ;
  75.     SIZE 1,4 ;
  76.     DEFAULT 0
  77. @ 4,20 GET b.kc_jj ;
  78.     SIZE 1,10 ;
  79.     DEFAULT 0
  80. @ 5,20 GET b.kc_pf ;
  81.     SIZE 1,10 ;
  82.     DEFAULT 0
  83. @ 6,20 GET b.kc_ls ;
  84.     SIZE 1,10 ;
  85.     DEFAULT 0
  86. @ 8,8 GET b.kc_cw ;
  87.     SIZE 1,20 ;
  88.     DEFAULT " "
  89. @ 8,37 GET b.kc_rq ;
  90.     SIZE 1,8 ;
  91.     DEFAULT {  /  /  }
  92. @ 1,3 SAY "▒α┬δ:"
  93. @ 2,3 SAY "╨═║┼:"
  94. @ 1,31 SAY "├√│╞:"
  95. @ 1,36 GET a.lj_mc ;
  96.     SIZE 1,20 ;
  97.     DEFAULT " " ;
  98.     PICTURE "@!" ;
  99.     DISABLE
  100. @ 0,2 TO 3,56
  101. @ 4,3 SAY "╩²┴┐:"
  102. @ 4,15 SAY "╜°╝█:"
  103. @ 5,15 SAY "┼·╖ó:"
  104. @ 6,15 SAY "┴π╩█:"
  105. @ 8,3 SAY "▓╓╬╗:"
  106. @ 8,32 SAY "╚╒╞┌:"
  107. @ 5,33 GET B.KC_DL ;
  108.     PICTURE "@*C ╡╟┬╝╚δ═°" ;
  109.     SIZE 1,12 ;
  110.     DEFAULT 0
  111. @ 4,49 GET CHOICE ;
  112.     PICTURE "@*VT -╖┼╞·-;-╝╠╨°-;-═Ω│╔-" ;
  113.     SIZE 1,8,1 ;
  114.     DEFAULT 1
  115.  
  116. IF NOT WVISIBLE("scr002")
  117.     ACTIVATE WINDOW scr002
  118. ENDIF
  119.  
  120. READ CYCLE
  121.  
  122.  
  123. #REGION 0
  124. IF m.talkstat = "ON"
  125.     SET TALK ON
  126. ENDIF
  127. IF m.compstat = "ON"
  128.     SET COMPATIBLE ON
  129. ENDIF
  130.