home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / turbobas / tbwind30.arc / TBDEMO30.BAS < prev    next >
BASIC Source File  |  1987-08-05  |  9KB  |  328 lines
  1. 'Demonstration of TBWINDO
  2. $INCLUDE "TBWINDO.INC"
  3. $INCLUDE "TBMENU.INC"
  4. key off
  5. out &H3d9,1
  6. call qfill(1,1,25,80,32,fnattr%(7,1))
  7. for m% = 1 to 3
  8.   for i% = 1 to 29
  9.     j% = rnd(1)*69
  10.     k% = rnd(1)*19
  11.     f% = rnd(1)*14
  12.     b% = rnd(1)*6
  13.     call makewindow(k%+1,j%+1,5,11,fnattr%(f%+1,b%+1),2,0,0)
  14.     call prtcwindow(2,"WINDOW")
  15.   next
  16.   if (m = 3) then delay 3 else delay 1
  17.   for x = LI to 1 step -1
  18.   call removewindow
  19.   next
  20. next
  21. 'Put up opening screen
  22. '4 windows of different colors and a Title Window
  23. call makewindow(4,15,10,30,fnattr%(4,3),4,1,1)
  24. call makewindow(3,36,13,40,fnattr%(15,2),3,1,1)
  25. call makewindow(9,10,13,40,fnattr%(0,5),2,1,1)
  26. call makewindow(12,42,11,36,fnattr%(3,4),1,1,1)
  27.  
  28. call makewindow(3,5,7,40,fnattr%(0,7),2,1,1)
  29.  
  30. call prtcwindow(3,"Presenting...")
  31. delay 4
  32. call makewindow(8,20,7,40,fnattr%(0,7),2,1,1)
  33. call prtcwindow(1,"T B W I N D O")
  34. call prtcwindow(2,"2.0")
  35. call prtcwindow(4,"Windowing Routines for the")
  36. call prtcwindow(5,"Borland Turbo BASIC Compiler")
  37.  
  38. delay 3
  39. call makewindow(17,55,7,24,fnattr%(0,6),1,1,1)
  40. call prtwindow(1,2,"By:")
  41. call prtcwindow(3,"Rick Fothergill")
  42. call prtcwindow(4,"141 Oak Hill Road")
  43. call prtcwindow(5,"Pittsfield, MA 01201")
  44.  
  45.  
  46. delay 4
  47.  
  48. call makewindow(5,5,10,32,fnattr%(15,1),2,1,0)
  49.  
  50. call prtcwindow(1,"Including ...")
  51. call prtcwindow(3,"*** Window Tools ***")
  52. call prtcwindow(5,"A collection of routines")
  53. call prtcwindow(6,"for integration into your")
  54. call prtcwindow(7,"own programs.")
  55.  
  56. delay 4
  57. call makewindow(8,25,10,32,fnattr%(15,1),2,1,0)
  58.  
  59. call prtwindow(1,2," * * * * * * * * * * * * * ")
  60. call prtwindow(3,2,"Stand by for a guided tour")
  61. call prtwindow(5,2,"through the many facets of")
  62. call prtwindow(7,2,"this exciting program.")
  63. delay 2
  64. for x = 1 to 9
  65. call removewindow
  66. next
  67. call makewindow(9,16,8,52,fnattr%(0,7),2,0,0)
  68.  
  69.  
  70. call prtwindow(1,2,"The basic  purpose of TBWINDO is to provide")
  71. call prtwindow(2,2,"the  fundamental  routines for  implementing")
  72. call prtwindow(3,2,"simple 'windowing' into your Turbo BASIC pro-")
  73. call prtwindow(4,2,"grams.   With  just a few simple statements,")
  74. call prtwindow(5,2,"you can 'pop-up'  a colored  window onto the")
  75. call prtwindow(6,2,"screen; just like this ...")
  76.  
  77. delay 3
  78. call clearwindow
  79.  
  80. call prtwindow(2,2,"The window can be a solid panel of any of")
  81. call prtwindow(4,2,"the BASIC background colors; such as ...")
  82.  
  83. delay 4
  84.  
  85. call makewindow(2,2,7,35,fnattr%(1,2),0,0,0)
  86.  
  87. delay 3
  88. call removewindow
  89. call clearwindow
  90.  
  91. call prtwindow(2,2,"or it can be surrounded by a 'frame' in any")
  92. call prtwindow(4,2,"of five styles...")
  93.  
  94. delay 3
  95.  
  96. call makewindow(5,5,8,35,fnattr%(9,5),1,0,0)
  97. call titlewindow(1,"[ Frame Style 1 ]")
  98. call makewindow(8,8,8,35,fnattr%(12,3),2,0,0)
  99. call titlewindow(2,"[ Frame Style 2 ]")
  100. call makewindow(11,11,8,35,fnattr%(15,4),3,0,0)
  101. call titlewindow(3,"[ Frame Style 3 ]")
  102. call makewindow(14,14,8,35,fnattr%(0,6),4,0,0)
  103. call titlewindow(1,"[ Frame Style 4 ]")
  104. call makewindow(17,17,8,35,fnattr%(0,2),5,0,0)
  105. call titlewindow(3,"[ Frame Style 5 ]")
  106.  
  107. delay 4
  108. for x = 1 to 5
  109. call removewindow
  110. next
  111. call clearwindow
  112.  
  113. call prtwindow(1,2,"The frame itself can be in any one of the")
  114. call prtwindow(2,2,"BASIC foreground colors. It can even blink")
  115. call prtwindow(3,2,"if you want...")
  116.  
  117. delay 3
  118. for i%=0 to 15
  119.   label$="[ Color:"+str$(i%)+" ]"
  120.   j%=rnd(1)*50
  121.   k%=rnd(1)*12
  122.   call makewindow(k%+1,j%+1,7,25,fnattr%(i%,5),4,2,0)
  123.   call titlewindow(2,label$)
  124.   delay .5
  125. next
  126. call makewindow(7,20,7,25,fnattr%(31,5),4,2,0)
  127. call titlewindow(2,"[ Color: 31 ]")
  128.  
  129. delay 4
  130. for x = 1 to 17
  131. call removewindow
  132. next
  133.  
  134. call clearwindow
  135. call prtcwindow(5,"The window itself can be presented in many")
  136. call prtcwindow(6,"different ways. It can be flat...")
  137.  
  138. delay 3
  139.  
  140. call makewindow(1,2,11,30,fnattr%(15,4),1,0,0)
  141.  
  142. delay 3
  143. call removewindow
  144. call clearwindow
  145. call prtcwindow(5,"or it can have a black shadow underneath; giving")
  146. call prtcwindow(6,"a three-dimensional effect...")
  147. delay 3
  148. call makewindow(5,5,10,30,fnattr%(14,5),2,1,0)
  149. call qprintc(7,5,35,"Left Shadow",fnattr%(15,5))
  150. delay 2
  151. call makewindow(5,40,10,30,fnattr%(0,2),2,2,0)
  152. call qprintc(7,40,70,"Right Shadow",fnattr%(15,2))
  153. delay 2
  154. call removewindow
  155. call removewindow
  156. call clearwindow
  157. call prtcwindow(2,"Titles may be placed in any")
  158. call prtcwindow(3,"of six different locations,")
  159. call prtcwindow(4,"or any combination.")
  160. delay 2
  161. call makewindow(2,5,10,70,fnattr%(15,5),2,1,0)
  162. for x% = 1 to 6
  163.   title$ = "[ Location"+str$(x%)+" ]"
  164.   call titlewindow(x%,title$)
  165.   delay 1
  166. next
  167. delay 3
  168. call removewindow
  169. call clearwindow
  170. call prtcwindow(3,"Windows can be zoomed")
  171. call prtcwindow(4,"onto the screen.")
  172. delay 2
  173. call makewindow(2,2,15,60,fnattr%(0,2),2,0,1)
  174. delay 2
  175. call makewindow(13,10,10,60,fnattr%(1,3),3,0,1)
  176. delay 2
  177. call makewindow(7,33,10,45,fnattr%(14,5),1,0,1)
  178. delay 2
  179. call makewindow(7,10,12,63,fnattr%(15,4),2,1,1)
  180. call prtcwindow(5,"W O W !!!")
  181. delay 3
  182. for x = 1 to 4
  183. call removewindow
  184. next
  185. call clearwindow
  186. call prtwindow(1,2,"Once you have your window on the screen, simply")
  187. call prtwindow(2,2,"use calls to PrtWindow or PrtCWindow to put text")
  188. call prtwindow(3,2,"in them.  A call to ClearWindow will erase the")
  189. call prtwindow(4,2,"contents of the window ...   ")
  190. delay 3
  191.  
  192.  
  193. call clearwindow
  194. call prtwindow(1,2,"Just as easily as you can create the window!")
  195. call prtwindow(2,2,"In fact, all of the commands of TBWINDO are")
  196. call prtwindow(3,2,"very  easy to use.  Here is a call to create")
  197. call prtwindow(4,2,"this window ...")
  198. call prtwindow(5,2,"   CALL MAKEWINDOW(8,14,8,52,fnattr%(0,7),2,0,1)")
  199. delay 5
  200.  
  201. call clearwindow
  202.  
  203. call prtwindow(1,2,"Each window is stored as a result of a call to")
  204. call prtwindow(2,2,"MakeWindow.  To restore the screen to it's")
  205. call prtwindow(3,2,"original contents, simply call RemoveWindow.")
  206. call prtwindow(4,2,"Here is a good example . . .")
  207. delay 5
  208. call makewindow(3,5,15,45,fnattr%(0,2),4,1,1)
  209. call prtcwindow(6,"This is the first level ...")
  210. delay 2
  211. call makewindow(6,29,17,50,fnattr%(15,4),4,1,1)
  212. call prtcwindow(6,"This is the second level ...")
  213. delay 2
  214. call makewindow(9,22,15,35,fnattr%(0,3),4,1,1)
  215. call prtcwindow(7,"This is the third level ...")
  216. delay 2
  217. call prtcwindow(7,"Now to go back ...           ")
  218. delay 1
  219. call removewindow
  220. delay 1
  221. call removewindow
  222. delay 1
  223. call removewindow
  224. delay 2
  225. call clearwindow
  226. call prtwindow(2,2,"Next is a demonstration of the MakeMenu")
  227. call prtwindow(3,2,"procedure which will create a point and")
  228. call prtwindow(4,2,"shoot type menu.")
  229. delay 3
  230. call removewindow
  231.  
  232. item$(1) = "Pop Screen 1"
  233. item$(2) = "Pop Screen 2"
  234. item$(3) = "Pop Screen 3"
  235. item$(4) = "Exit"
  236. itemcount% = 4
  237. mtitle$ = "[ MENU DEMO ]"
  238. mrow% = 5
  239. mcol% = 20
  240. mwidth% = 40
  241. mattr% = fnattr%(15,1)
  242. mhiattr% = fnattr%(0,7)
  243. mbrdrsel% = 2
  244. mshadow% = 2
  245. mzoom% = 0
  246. startpos% = 1
  247.  
  248. restart1:
  249. out &H03d9,7
  250. call qfill(1,1,25,80,32,fnattr%(0,7))
  251.  
  252. call makemenu
  253.  
  254. select case curntpos%
  255.   case 1 'screen 1
  256.     gosub popscreen1
  257.     goto restart1
  258.   case 2 ' screen 2
  259.     gosub popscreen2
  260.     goto restart1
  261.   case 3 ' screen 3
  262.     gosub popscreen3
  263.     goto restart1
  264.   case else
  265.    out &H03d9,1
  266.    call qfill(1,1,25,80,32,fnattr%(15,1))
  267.    color 0,7
  268.    call makewindow(9,16,8,52,fnattr%(0,7),2,0,0)
  269.    locate 10,18:print "Please see the source code and documentation"
  270.    locate 11,18:print "for how to create and use menu windows in"
  271.    locate 12,18:print "your programs...."
  272.    delay 5
  273. end select
  274.  
  275.  
  276. call makewindow(4,15,10,30,fnattr%(4,3),4,1,1)
  277. call makewindow(3,36,13,40,fnattr%(15,2),3,1,1)
  278. call makewindow(9,10,13,40,fnattr%(0,5),2,1,1)
  279. call makewindow(12,42,11,36,fnattr%(3,4),1,1,1)
  280.  
  281. call makewindow(9,16,8,52,fnattr%(0,7),2,1,1)
  282. call prtwindow(2,2,"The basic routines in the  TBWINDO  package")
  283. call prtwindow(3,2,"give you all you  need to create some power-")
  284. call prtwindow(4,2,"ful 'toolbox' modules to integrate into your")
  285. call prtwindow(5,2,"programs.")
  286. delay 5
  287. out &H3d9,0
  288. end
  289.  
  290. popscreen1:
  291. out &H03d9 ,6
  292. call qfill(1,1,25,80,32,fnattr%(7,6))
  293. call makewindow(8,10,7,60,fnattr(0,2),2,1,1)
  294. call titlewindow(2,"[ SELECTION 1 ]")
  295. call qprintc(10,10,70,"This is selection no. 1",fnattr(14,2))
  296. call qprintc(11,10,70,"Press enter to return to main menu...",fnattr%(14,2))
  297. while not instat
  298. wend
  299. a$=inkey$
  300. call removewindow
  301. return
  302.  
  303. popscreen2:
  304. out &H03d9 ,3
  305. call qfill(1,1,25,80,32,fnattr%(7,3))
  306. call makewindow(8,10,7,60,fnattr(15,1),2,1,1)
  307. call titlewindow(2,"[ SELECTION 2 ]")
  308. call qprintc(10,10,70,"This is selection no. 2",fnattr(15,1))
  309. call qprintc(11,10,70,"Press enter to return to main menu...",fnattr%(15,1))
  310. while not instat
  311. wend
  312. a$=inkey$
  313. call removewindow
  314. return
  315.  
  316. popscreen3:
  317. out &H03d9 ,5
  318. call qfill(1,1,25,80,32,fnattr%(7,5))
  319. call makewindow(8,10,7,60,fnattr(0,7),2,1,1)
  320. call titlewindow(2,"[ SELECTION 3 ]")
  321. call qprintc(10,10,70,"This is selection no. 3",fnattr(0,7))
  322. call qprintc(11,10,70,"Press enter to return to main menu...",fnattr%(0,7))
  323. while not instat
  324. wend
  325. a$=inkey$
  326. call removewindow
  327. return
  328.