home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTDEMO.PRG < prev    next >
Text File  |  1990-07-24  |  6KB  |  146 lines
  1. * ====================================================================
  2. *   DBTDEMO - dBTools Demo  VERSION 1.23S
  3. *             (c) 1990 BERNATH COMPUTER
  4. *             07/24/1990
  5. * ===================================================================
  6.  
  7. SET TALK OFF
  8. SET BELL OFF
  9. SET CONFIRM ON
  10. SET STATUS OFF
  11.  
  12. PUBLIC gOPT,gPATH,gPRTFILE,gPRT
  13.  
  14. * --- Load dBTools module
  15. gPATH = TRIM(GETE("DBPATH"))
  16. SET PATH TO &gPATH
  17. gPATH = gPATH+"\"
  18. DO LOADDBT                                      && load and initialize dBTools
  19.  
  20. mPARM = "12,1,"+gPATH+"DBT.IMG"                 && load opening screen image
  21. CALL DBTOOLS WITH mPARM
  22. CALL DBTOOLS WITH "4,0,0"                       && cursor off
  23. CALL DBTOOLS WITH "8,7,0,15,1"                  && fade in
  24. mEXP = gPATH+"DBTPROC"
  25. SET PROCEDURE TO &mEXP                          && load procedure file
  26.  
  27.  
  28. * ---- opening screen
  29. CALL DBTOOLS WITH "7,2,8,7,0"                   && dithered BG
  30. CALL DBTOOLS WITH "18"                          && twiddle
  31. CALL DBTOOLS WITH "3,3,5,18,72,15,4,2,0,1"      && box
  32. CALL DBTOOLS WITH "1,4,22,14,4,0,W E L C O M E   T O"
  33. CALL DBTOOLS WITH "1,S,4,44,15,1,0,d B T o o l s !"
  34. CALL DBTOOLS WITH "1,6,10,15,4,0,dBTools"
  35. CALL DBTOOLS WITH "1,6,18,7,4,0,is an add on enhancement to make up for some of the"
  36. CALL DBTOOLS WITH "1,7,10,7,4,0,deficiencies in the dBASE language. It provides twenty five"
  37. CALL DBTOOLS WITH "1,8,10,7,4,0,screen and video functions which can make your applications "
  38. CALL DBTOOLS WITH "1,9,10,15,12,0,≡ sparkle! ≡"
  39. CALL DBTOOLS WITH "1,9,22,7,4,0,, as well as popup windows and menus, audio con-"
  40. CALL DBTOOLS WITH "1,10,10,7,4,0,trol, and a sophisticated printer driver, all to give your"
  41. CALL DBTOOLS WITH "1,11,10,7,4,0,applications that"
  42. CALL DBTOOLS WITH "1,S,11,28,0,7,0,Professional Look!"
  43. CALL DBTOOLS WITH "1,14,20,7,4,0,And all from within good ol'"
  44. CALL DBTOOLS WITH "1,14,49,14,4,0,dBASE III+!"
  45. CALL DBTOOLS WITH "10,17,28,0,4"
  46.  
  47. KOUNT = 1
  48. DO WHILE KOUNT < 10
  49.    CALL DBTOOLS WITH "16,6,8,17,71,7,4,1,1"
  50.    CALL DBTOOLS WITH "6,3"
  51.    CALL DBTOOLS WITH "1,17,28,7,4,0,"+SPACE(42)
  52.    KOUNT = KOUNT + 1
  53. ENDDO
  54.  
  55. * ---- scroll features
  56. CALL DBTOOLS WITH "1,4,10,4,4,0,"+SPACE(59)
  57. CALL DBTOOLS WITH "1,5,10,4,4,0,"+SPACE(59)
  58. CALL DBTOOLS WITH "1,4,8,7,4,0,FEATURES FEATURES FEATURES FEATURES FEATURES FEATURES FEATURES"
  59. CALL DBTOOLS WITH "1,S,16,12,0,7,0,ATSAY fast screen writes"
  60. CALL DBTOOLS WITH "1,S,16,45,0,7,0,BLAT computer bronx cheer"
  61. CALL DBTOOLS WITH "6,27"
  62. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  63. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  64. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  65. CALL DBTOOLS WITH "1,S,16,12,12,0,0,Framed boxes with shadows"
  66. CALL DBTOOLS WITH "1,S,16,45,12,0,0,Cursor attribute control"
  67. CALL DBTOOLS WITH "6,27"
  68. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  69. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  70. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  71. CALL DBTOOLS WITH "1,S,16,12,14,2,0,Erase text"
  72. CALL DBTOOLS WITH "1,S,16,45,14,2,0,Delay"
  73. CALL DBTOOLS WITH "6,27"
  74. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  75. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  76. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  77. CALL DBTOOLS WITH "1,S,16,12,1,3,0,Dithered background"
  78. CALL DBTOOLS WITH "1,S,16,45,1,3,0,Slideshow fades"
  79. CALL DBTOOLS WITH "6,27"
  80. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  81. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  82. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  83. CALL DBTOOLS WITH "1,S,16,12,11,1,0,Horizontal bar menu"
  84. CALL DBTOOLS WITH "1,S,16,45,11,1,0,Enhanced WAIT"
  85. CALL DBTOOLS WITH "6,27"
  86. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  87. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  88. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  89. CALL DBTOOLS WITH "1,S,16,12,15,5,0,Printer Driver"
  90. CALL DBTOOLS WITH "1,S,16,45,15,5,0,Read screen from file"
  91. CALL DBTOOLS WITH "6,27"
  92. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  93. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  94. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  95. CALL DBTOOLS WITH "1,S,16,12,14,6,0,Recolor area"
  96. CALL DBTOOLS WITH "1,S,16,45,14,6,0,Scroll an area"
  97. CALL DBTOOLS WITH "6,27"
  98. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  99. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  100. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  101. CALL DBTOOLS WITH "1,S,16,12,15,0,0,Save screen"
  102. CALL DBTOOLS WITH "1,S,16,45,15,0,0,Restore screen"
  103. CALL DBTOOLS WITH "6,27"
  104. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  105. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  106. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  107. CALL DBTOOLS WITH "1,S,16,12,4,7,0,Play a note"
  108. CALL DBTOOLS WITH "1,S,16,45,4,7,0,Three note twiddle"
  109. CALL DBTOOLS WITH "6,27"
  110. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  111. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  112. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  113. CALL DBTOOLS WITH "1,S,16,12,11,5,0,Popup windows"
  114. CALL DBTOOLS WITH "1,S,16,45,11,5,0,Restore a window"
  115. CALL DBTOOLS WITH "6,27"
  116. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  117. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  118. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  119. CALL DBTOOLS WITH "1,S,16,12,10,1,0,Vertical bar menu"
  120. CALL DBTOOLS WITH "1,S,16,45,10,1,0,Set active display page"
  121. CALL DBTOOLS WITH "6,27"
  122. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  123. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  124. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  125. CALL DBTOOLS WITH "23,0"
  126. CALL DBTOOLS WITH "1,S,16,12,0,15,0,High Intensity BG/Blink"
  127. CALL DBTOOLS WITH "1,S,16,45,0,15,0,Set EGA palette"
  128. CALL DBTOOLS WITH "6,27"
  129. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  130. CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
  131. CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
  132. CALL DBTOOLS WITH "1,S,16,12,0,14,0,Trap keystrokes unambiguously"
  133. CALL DBTOOLS WITH "6,27"
  134. CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  135. CALL DBTOOLS WITH "6,27"
  136.  
  137.  
  138. KOUNT = 1
  139. DO WHILE KOUNT < 6
  140.    CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
  141.    CALL DBTOOLS WITH "6,27"
  142.    KOUNT = KOUNT + 1
  143. ENDDO
  144. CALL DBTOOLS WITH "23,1"
  145. DO DBTMAIN
  146.