home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / EDITORES / VEDT.ZIP / DEMO5.VDM < prev    next >
Encoding:
Text File  |  1990-02-10  |  4.0 KB  |  186 lines
  1. !D-WINDOW!
  2. RI(9)/VEDIT and VEDIT PLUS - Windows/
  3. M(H)            !Display header
  4.  
  5. YT/
  6. VEDIT and VEDIT PLUS can display windows in many different configurations.
  7. Vertical windows, horizontal windows, big windows and small windows.  On color
  8. systems the window background and the text can be in color.  The user has
  9. control over window size, position and color.
  10.  
  11. First we will demonstrate some window possibilities.  Then you can create your
  12. own windows.
  13.  
  14. /
  15.  
  16. M(K)
  17.  
  18. YWB($) 1
  19. YWR(1) 40
  20. YWS($)
  21. YT/Vertical windows.  Press <ESC> to continue/
  22. XK(0)//
  23.  
  24. YWI
  25. YWB($) 1
  26. YWB(1) (.sl/2-1)
  27. YWS($)
  28. YT/Horizontal windows.  Press <ESC> to continue/
  29. XK(0)//
  30.  
  31. YWI
  32. YWB($) 1
  33. YWB(1) (.sl/2-1)
  34. YWR(2) 40
  35. YWS(1)
  36. YWR(3) 40
  37. YWS($)
  38. YT/Four windows.  Press <ESC> to continue/
  39. XK(0)//
  40.  
  41. YWI
  42. YWB($) 1
  43. YWR(1) 52
  44. YWB(2) (.sl/2+4)
  45. YWS(1)
  46. YWB(3) 10
  47. YWS(3)
  48. YWR(4) 25
  49. YWS(4)
  50. YWB(5) (.wl/2-2)
  51. YWS($)
  52. YT/Irregular shaped windows.  Press <ESC> to continue/
  53. XK(0)//
  54.  
  55. YWS(@)
  56. Q21YEA YEC
  57. YWS(1)
  58. Q24YEA YEC
  59. YWS(2)
  60. 36YEA YEC
  61. YWS(3)
  62. 80YEA YEC
  63. YWS(4)
  64. Q25YEA YEC
  65. YWS(5)
  66. 97YEA YEC
  67. YWS($)
  68. Q23YEA YEC
  69. YT/Colored windows.  Press <ESC> to continue/
  70. XK(0)//
  71.  
  72. RI(8)/You have complete control
  73. over the color of each
  74. window and the color of
  75. the text in the window.
  76. /
  77.  
  78. YWS(@)
  79. RT(8) YT/This is white on blue/
  80. YWS(1)
  81. RT(8) YT/This is green on red/
  82. YWS(2)
  83. RT(8) YT/This is red on green/
  84. YWS(3)
  85. RT(8) YT/This is black on magenta/
  86. YWS(4)
  87. RT(8) YT/This is blue on cyan/
  88. YWS(5)
  89. RT(8) YT/This is blue on brown/
  90. YWS($)
  91. Q23YEA YEC
  92. YT/Colored windows.  Press <ESC> to continue/
  93. XK(0)//
  94.  
  95. YWI YWB(1) 7    !Init windows, create lower text window
  96.  
  97. 7XS(1)        !Start with white text
  98. 0XS(2)        !Start with black window
  99.  
  100. EZY        !Clear out main edit buffer
  101. RG(8) B        !Copy text into edit buffer
  102.  
  103. EE(1)
  104. B#K
  105. I/Create your own colored window now.
  106.  
  107. Press <SPACE BAR> to change window color
  108. Press <Enter> to change text color
  109.  
  110.         --- Press <ESC> to continue ---/
  111.  
  112. B -V            !Display instructions
  113. EE(@)
  114. [            !Loop "forever" or until <ESC> pressed
  115.  
  116.     YWS(@)        !Switch to visual mode window for attribute switch
  117.     (Q1^Q2)YEA    !Switch attribute
  118.     YWS($)
  119.     -V        !Display visual mode window
  120.  
  121.     XK(0)//        !Get and decode user's key
  122.  
  123.     (Q0 = 32) [ 16XA(2) (Q2 & 127)XS(2)
  124.         ][
  125.         (Q0 = 13) [ 1XA(1) (Q1 & 15)XS(1)
  126.         ][
  127.         (Q0 = 27) JL        !Jump out of loop    
  128.         ]]
  129. ]                    !End of loop
  130.  
  131. YWS(@) Q26YEA        !Set attribute in edit window
  132. YWS(1) Q27YEA        !Set attribute in lower window "1"
  133. EE(1)
  134. B#K
  135. I/To create your own windows press <ALT-W> for the "Window" sub-menu.  Then
  136. press "C" to create a window.  You can create a window at the Top, Bottom,
  137. Right or Left of the current window.  Press "R" for "Right".  Next you give
  138. the window a single character name.  Press "2".  Last, you specify the size
  139. of the window.  Type "35" and <Enter> to specify a window of 35 columns.
  140.  
  141.         --- Press <ESC> to continue ---/
  142.  
  143. B -V
  144. EE(@)
  145. V
  146.  
  147. EE(1)
  148. B#K
  149. I/The built-in keystroke macro <ALT-R> lets you change the text color in the
  150. current window.  Pressing <ALT-R> toggles through 14 color combinations
  151. including white on blue, white on black and black on white.  Try it now.
  152.  
  153. <ALT-R> makes it easy to switch colors at any time and to have different
  154. colors in different windows.  The installation lets you select the initial
  155. color combination.            --- Press <ESC> to continue ---/
  156.  
  157. B -V
  158. EE(@)
  159. V
  160.  
  161. YWI            !Clear screen
  162. B#K            !Clear edit buffer
  163.  
  164. YT\
  165.         --- EGA 43 / VGA 50 LINE SUPPORT ---
  166.  
  167. If you are using an EGA adapter, you can switch between 25 and 43 line modes
  168. within VEDIT.  (With a VGA you can switch between 25 and 50 line modes.)
  169. Simply press <ALT-L> within Visual Mode.
  170.  
  171. If you have an EGA/VGA you can press <ALT-L> now and the Window portion of
  172. this demo will be repeated.
  173.  
  174. --- Otherwise, press <ESC> to return to the Main Menu --- \
  175.  
  176. !D-WIN2!
  177. XK(0)//            !Get user's keystroke
  178.  
  179. (q0 = 27)JM
  180.  
  181. (q0 = 166)[(.si >= 4)[(.sl=25)[ 43YEM ][ 25YEM ] -V JP/D-WINDOW/
  182.              ][ YEN YT/This is not an EGA or VGA/ YEN ]
  183.     ]
  184.  
  185. JP/D-WIN2/
  186.