home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / clipwind.arc / TESTNEW.PRG < prev    next >
Encoding:
Text File  |  1988-03-10  |  6.1 KB  |  227 lines
  1. CLEAR
  2. IF ISCOLOR()
  3.    ltr1clr = "B/H/"
  4.    ltr2clr = "G/H/"
  5.    ltr3clr = "C/H/"
  6.    ltr4clr = "R/H/"
  7.    ltr5clr = "M/H/"
  8.    ltr6clr = "O/H/"
  9.    ltr7clr = "W/H/"
  10.    fastclr = "R/H/"
  11. ELSE
  12.    ltr1clr = "W/H/"
  13.    ltr2clr = "W/H/"
  14.    ltr3clr = "W/H/"
  15.    ltr4clr = "W/H/"
  16.    ltr5clr = "W/H/"
  17.    ltr6clr = "W/H/"
  18.    ltr7clr = "W/H/"
  19.    fastclr = "W/H/"
  20. ENDIF
  21. SET CURSOR OFF
  22. STORE 0 to wn1, wn2, wn3, wn4, wn5, wn6, wn7
  23. * init first window and use defaults
  24. wn1 = _SINIT_WN(1,16,8,8)
  25. * set use bios flag to true
  26. _sst_ubios(wn1, .T.)
  27. * draw the window on screen
  28. _SDRW_WN(wn1)
  29. * put a big letter in it
  30. _BIGSTR("W",1,16,CHR(219), ltr1clr, 0)
  31. mv_wn(wn1,0,150)
  32. * init the second window
  33. wn2 = _SINIT_WN(1,16,8,8)
  34. * set use bios flag to true
  35. _sst_ubios(wn2, .T.)
  36. * draw the window on screen
  37. _SDRW_WN(wn2)
  38. * put a big letter on the screen
  39. _BIGSTR("e",1,16,CHR(219), ltr2clr, 0)
  40. mv_wn(wn2,8,150)
  41. * init the third window
  42. wn3 = _SINIT_WN(1,16,8,8)
  43. * set use bios flag to true
  44. _sst_ubios(wn3, .T.)
  45. * draw the window on screen
  46. _SDRW_WN(wn3)
  47. * put a big letter on the screen
  48. _BIGSTR("l",1,16,CHR(219), ltr3clr, 0)
  49. mv_wn(wn3,16,150)
  50. * init the fourth window
  51. wn4 = _SINIT_WN(1,16,8,8)
  52. * set use bios flag to true
  53. _sst_ubios(wn4, .T.)
  54. * draw the window on screen
  55. _SDRW_WN(wn4)
  56. * put a big letter on the screen
  57. _BIGSTR("c",1,16,CHR(219), ltr4clr, 0)
  58. mv_wn(wn4,24,150)
  59. * init the fifth window
  60. wn5 = _SINIT_WN(1,16,8,8)
  61. * set use bios flag to true
  62. _sst_ubios(wn5, .T.)
  63. * draw the window on screen
  64. _SDRW_WN(wn5)
  65. * put a big letter on the screen
  66. _BIGSTR("o",1,16,CHR(219), ltr5clr, 0)
  67. mv_wn(wn5,32,150)
  68. * init the sixth window
  69. wn6 = _SINIT_WN(1,16,8,8)
  70. * set use bios flag to true
  71. _sst_ubios(wn6, .T.)
  72. * draw the window on screen
  73. _SDRW_WN(wn6)
  74. * put a big letter on the screen
  75. _BIGSTR("m",1,16,CHR(219), ltr6clr, 0)
  76. mv_wn(wn6,40,150)
  77. * init the seventh window
  78. wn7 = _SINIT_WN(1,16,8,8)
  79. * set use bios flag to true
  80. _sst_ubios(wn7, .T.)
  81. * draw the window on screen
  82. _SDRW_WN(wn7)
  83. * put a big letter on the screen
  84. _BIGSTR("e",1,16,CHR(219), ltr7clr, 0)
  85. mv_wn(wn7,48,150)
  86. @ 10,10 SAY "To Windows For Clipper!"
  87. @ 11,0 SAY ''
  88. TEXT
  89.        Welcome, this is a demo of the Windows For Clipper Library for the 
  90.     Summer '87 version of the compiler. This demo will give you a breif 
  91.     introduction to the power of the library and what it can do for you. 
  92.  
  93.        The above display was generated by initializing each window, drawing
  94.     each window, drawing each BIG letter, and then inserting a 150 count loop
  95.     to delay movement. Your ROM BIOS was used to write the characters. Next,
  96.     it will do all of the above, without the 150 count loop and using  direct
  97.     screen writes. Ready to watch it scream! 
  98.  
  99.                          Press A key when you're ready 
  100. ENDTEXT
  101. INKEY(0)
  102. CLEAR
  103. _srem_wn(wn1)
  104. _srem_wn(wn2)
  105. _srem_wn(wn3)
  106. _srem_wn(wn4)
  107. _srem_wn(wn5)
  108. _srem_wn(wn6)
  109. _srem_wn(wn7)
  110. STORE 0 to wn1, wn2, wn3, wn4, wn5, wn6, wn7
  111. * init first window and use defaults
  112. wn1 = _SINIT_WN(1,16,8,8)
  113. * draw the window on screen
  114. _SDRW_WN(wn1)
  115. * put a big letter in it
  116. _BIGSTR("W",1,16,CHR(219), ltr1clr, 1)
  117. mv_wn(wn1,0,0)
  118. * init the second window
  119. wn2 = _SINIT_WN(1,16,8,8)
  120. * draw the window on screen
  121. _SDRW_WN(wn2)
  122. * put a big letter on the screen
  123. _BIGSTR("e",1,16,CHR(219), ltr2clr, 1)
  124. mv_wn(wn2,8,0)
  125. * init the second window
  126. wn3 = _SINIT_WN(1,16,8,8)
  127. * draw the window on screen
  128. _SDRW_WN(wn3)
  129. * put a big letter on the screen
  130. _BIGSTR("l",1,16,CHR(219), ltr3clr, 1)
  131. mv_wn(wn3,16,0)
  132. * init the second window
  133. wn4 = _SINIT_WN(1,16,8,8)
  134. * draw the window on screen
  135. _SDRW_WN(wn4)
  136. * put a big letter on the screen
  137. _BIGSTR("c",1,16,CHR(219), ltr4clr, 1)
  138. mv_wn(wn4,24,0)
  139. * init the second window
  140. wn5 = _SINIT_WN(1,16,8,8)
  141. * draw the window on screen
  142. _SDRW_WN(wn5)
  143. * put a big letter on the screen
  144. _BIGSTR("o",1,16,CHR(219), ltr5clr, 1)
  145. mv_wn(wn5,32,0)
  146. * init the second window
  147. wn6 = _SINIT_WN(1,16,8,8)
  148. * draw the window on screen
  149. _SDRW_WN(wn6)
  150. * put a big letter on the screen
  151. _BIGSTR("m",1,16,CHR(219), ltr6clr, 1)
  152. mv_wn(wn6,40,0)
  153. * init the second window
  154. wn7 = _SINIT_WN(1,16,8,8)
  155. * draw the window on screen
  156. _SDRW_WN(wn7)
  157. * put a big letter on the screen
  158. _BIGSTR("e",1,16,CHR(219), ltr7clr, 1)
  159. mv_wn(wn7,48,0)
  160. _BIGSTR("FAST!",20,10,CHR(177), fastclr, 1)
  161. @ 19,0 SAY ''
  162. TEXT
  163.      Impressive ? Well, if you think so that's great! If you're not convinced
  164.    yet, just stick around and maybe what you will see in the rest of the demo
  165.    will impress you. I hope so!
  166.  
  167.                          Press Any Key To Continue
  168. ENDTEXT
  169. INKEY(0)
  170. _srem_wn(wn1)
  171. _srem_wn(wn2)
  172. _srem_wn(wn3)
  173. _srem_wn(wn4)
  174. _srem_wn(wn5)
  175. _srem_wn(wn6)
  176. _srem_wn(wn7)
  177. SET CURSOR ON
  178. CLEAR
  179.  
  180. RETURN
  181.  
  182. FUNCTION mv_wn
  183. parameter window, stop, delay
  184. wnrow = 16
  185. **************************************************
  186. * this loop moves window right across the screen *
  187. **************************************************
  188. FOR wncol = 8 TO 64 STEP 8
  189.    timer = 0
  190.    **********************************************
  191.    * move the window to new column, row coords. *
  192.    **********************************************
  193.    _smove_wn(window, wncol, wnrow)
  194.    DO WHILE timer <= delay
  195.       timer = timer + 1
  196.    ENDDO
  197. NEXT
  198. *****************************************************
  199. *  this loop moves window down right side of screen *
  200. *****************************************************
  201. wncol = 64
  202. FOR wnrow = 8 TO 0 STEP -8
  203.    timer = 0
  204.    **********************************************
  205.    * move the window to new column, row coords. *
  206.    **********************************************
  207.    _smove_wn(window, wncol, wnrow)
  208.    DO WHILE timer <= delay
  209.       timer = timer + 1
  210.    ENDDO
  211. NEXT
  212. *************************************************
  213. * this loop moves window left across the screen *
  214. *************************************************
  215. wnrow = 0
  216. FOR wncol = 56 TO stop STEP -8
  217.    timer = 0
  218.    _smove_wn(window, wncol, wnrow)
  219.    **********************************************
  220.    * move the window to new column, row coords. *
  221.    **********************************************
  222.    DO WHILE timer <= delay
  223.       timer = timer + 1
  224.    ENDDO
  225. NEXT
  226.  
  227.