home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTBOX.PRG < prev    next >
Text File  |  1989-10-03  |  4KB  |  86 lines
  1. *------------------------------------------------------------------
  2. *  DBTBOX.PRG - BOX demonstration
  3. *                (c) 1989 BERNATH COMPUTER
  4. *                6:44:34  9/20/1989
  5. *------------------------------------------------------------------
  6.  
  7. CALL DBTOOLS WITH "15,3"                         && store existing screen
  8. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  9. CALL DBTOOLS WITH "3,1,5,6,55,14,1,1,0,1"        && draw box
  10. CALL DBTOOLS WITH "1,2,15,14,1,0,B O X - function 3"   && title in box
  11. SET COLOR TO W/B                                 && display box text
  12. @ 3,8 SAY "BOX allows you to draw framed and shadowed"
  13. @ 4,8 SAY "boxes lightning fast, for attractive screens."
  14. CALL DBTOOLS WITH "10,5,13,14,1"                 && pause
  15. CALL DBTOOLS WITH "3,4,7,16,74,15,3,2,0,1"      && overlay another box
  16. SET COLOR TO +W/GB                               && display box text
  17. @ 5,11 SAY "Syntax:"
  18. mPARM="CALL DBTOOLS WITH "+CHR(34)+"3,ULR,ULC,LRR,LRC,FG,BG,frame,page,shadow"+CHR(34)
  19. @ 6,11 SAY mPARM
  20. SET COLOR TO B/BG
  21. @ 8,11 SAY "Size and location of the box is defined by specifying the"
  22. @ 9,11 SAY "coordinates of the four corners."
  23. @ 11,11 say "Frame and box colors are defined by FG and BG."
  24. @ 13,11 say "Six frame styles, 0-5"
  25. @ 15,11 say "Optional shadow by specifying shadow = 1"
  26.  
  27. CALL DBTOOLS WITH "10,24,25,0,7"
  28. CALL DBTOOLS WITH "3,8,10,12,75,12,4,1,0,1"
  29. CALL DBTOOLS WITH "3,4,50,19,70,15,5,2,0,0"
  30. CALL DBTOOLS WITH "1,5,51,15,5,0,dBTools dBTools dBT"
  31. CALL DBTOOLS WITH "1,6,51,15,5,0,dBTools dBTools dBT"
  32. CALL DBTOOLS WITH "1,7,51,15,5,0,dBTools dBTools dBT"
  33. CALL DBTOOLS WITH "1,8,51,15,5,0,dBTools dBTools dBT"
  34. CALL DBTOOLS WITH "1,9,51,15,5,0,dBTools dBTools dBT"
  35. CALL DBTOOLS WITH "1,10,51,15,5,0,dBTools dBTools dBT"
  36. CALL DBTOOLS WITH "1,11,51,15,5,0,dBTools dBTools dBT"
  37. CALL DBTOOLS WITH "1,12,51,15,5,0,dBTools dBTools dBT"
  38. CALL DBTOOLS WITH "1,13,51,15,5,0,dBTools dBTools dBT"
  39. CALL DBTOOLS WITH "1,14,51,15,5,0,dBTools dBTools dBT"
  40. CALL DBTOOLS WITH "1,15,51,15,5,0,dBTools dBTools dBT"
  41. CALL DBTOOLS WITH "1,16,51,15,5,0,dBTools dBTools dBT"
  42. CALL DBTOOLS WITH "1,17,51,15,5,0,dBTools dBTools dBT"
  43. CALL DBTOOLS WITH "1,18,51,15,5,0,dBTools dBTools dBT"
  44. CALL DBTOOLS WITH "3,19,20,22,45,10,1,0,0,1"
  45. CALL DBTOOLS WITH "3,6,30,14,60,14,6,3,0,1"
  46. CALL DBTOOLS WITH "3,5,18,8,55,15,7,4,0,1"
  47. CALL DBTOOLS WITH "3,16,4,20,30,14,0,5,0,1"
  48. CALL DBTOOLS WITH "1,18,6,14,0,0,fat fat fat fat fat fat"
  49. CALL DBTOOLS WITH "3,18,40,20,48,12,4,5,0,1"
  50. CALL DBTOOLS WITH "1,19,43,12,4,0,all"
  51. CALL DBTOOLS WITH "3,18,50,20,58,9,1,5,0,1"
  52. CALL DBTOOLS WITH "1,19,53,9,1,0,in"
  53. CALL DBTOOLS WITH "3,18,60,20,68,11,3,5,0,1"
  54. CALL DBTOOLS WITH "1,19,64,11,3,0,a"
  55. CALL DBTOOLS WITH "3,18,70,20,78,8,0,5,0,0"
  56. CALL DBTOOLS WITH "1,19,73,8,0,0,row!"
  57. CALL DBTOOLS WITH "1,6,22,0,7,0,All kinds of shapes and sizes!!"
  58. CALL DBTOOLS WITH "10,7,25,0,7"
  59.  
  60. CALL DBTOOLS WITH "7,0,0,3,0"
  61. CALL DBTOOLS WITH "4,0,0"
  62. CALL DBTOOLS WITH "1,S,1,30,15,4,0,FRAME Demonstration"
  63. CALL DBTOOLS WITH "3,5,10,9,45,15,1,0,0,1"
  64. CALL DBTOOLS WITH "1,6,15,15,1,0,No frame"
  65. CALL DBTOOLS WITH "6,30"
  66. CALL DBTOOLS WITH "3,7,15,11,50,12,4,1,0,1"
  67. CALL DBTOOLS WITH "1,8,20,12,4,0,Single line frame"
  68. CALL DBTOOLS WITH "6,30"
  69. CALL DBTOOLS WITH "3,9,20,13,55,10,2,2,0,1"
  70. CALL DBTOOLS WITH "1,10,25,10,2,0,Double line frame"
  71. CALL DBTOOLS WITH "6,30"
  72. CALL DBTOOLS WITH "3,11,25,15,60,1,7,3,0,1"
  73. CALL DBTOOLS WITH "1,12,30,1,7,0,Single line on vertical"
  74. CALL DBTOOLS WITH "1,13,30,1,7,0,Double line on horizontal"
  75. CALL DBTOOLS WITH "6,30"
  76. CALL DBTOOLS WITH "3,13,30,17,65,15,0,4,0,1"
  77. CALL DBTOOLS WITH "1,14,35,15,0,0,Double line on vertical"
  78. CALL DBTOOLS WITH "1,15,35,15,0,0,Single line on horizontal"
  79. CALL DBTOOLS WITH "6,30"
  80. CALL DBTOOLS WITH "3,15,35,19,70,14,6,5,0,1"
  81. CALL DBTOOLS WITH "1,17,40,14,6,0,Thick line frame"
  82. CALL DBTOOLS WITH "4,1,0"
  83. CALL DBTOOLS WITH "10,24,25,0,3"
  84. CALL DBTOOLS WITH "14,3,0"
  85. RETURN
  86.