home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTWIND.PRG < prev    next >
Text File  |  1990-08-09  |  3KB  |  98 lines
  1. *====================================================================
  2. *   DBTWIND.PRG - Window Demonstration
  3. *                 (c) 1989 BERNATH COMPUTER
  4. *                 9:40:39  6/15/1990
  5. *====================================================================
  6.  
  7. CALL DBTOOLS WITH "15,3"
  8. CALL DBTOOLS WITH "7,0,0,7,0"
  9. CALL DBTOOLS WITH "23,1"
  10. CALL DBTOOLS WITH "1,S,0,28,15,4,0,W I N D O W  Demonstration"
  11. CALL DBTOOLS WITH "21,19,3,5,13,50,10,2,2,1"
  12. CALL DBTOOLS WITH "1,4,15,15,2,0,WINDOW - function 21"
  13. SET COLOR TO N/G
  14. @ 6,8 SAY "The WINDOW function allows you to popup"
  15. @ 7,8 SAY "boxed and framed windows, first saving"
  16. @ 8,8 SAY "the text area underneath. The area under-"
  17. @ 9,8 SAY "neath can then be restored using UNPOP"
  18. @ 10,8 SAY "function 19."
  19. CALL DBTOOLS WITH "10,12,15,15,2"
  20. CALL DBTOOLS WITH "21,21,6,10,19,70,10,0,2,1"
  21. SET COLOR TO +G/N
  22. CALL DBTOOLS WITH "1,7,13,10,0,0,Syntax:"
  23. mPARM = "CALL DBTOOLS WITH "+CHR(34)+"21,windownumber,ULR,ULC,LRR,LRC,"
  24. @ 8,13 SAY mPARM
  25. mPARM = "FG,BG,frame shadow"+CHR(34)
  26. @ 9,32 SAY mPARM
  27. SET COLOR TO G/N
  28. @ 10,13 SAY "Windownumber is a number between 1 and 24 used to"
  29. @ 11,13 say "reference a particular window. This number is used"
  30. @ 12,13 say "along with function 19 to restore the area underneath."
  31. SET COLOR TO +G/N
  32. @ 14,13 say "CALL DBTOOLS WITH "+CHR(34)+"21,22,12,50,17,75,15,4,3,1"+CHR(34)
  33. @ 15,30 SAY "."
  34. @ 16,30 SAY "."
  35. @ 17,13 SAY "CALL DBTOOLS WITH "+CHR(34)+"19,22"+CHR(34)
  36. CALL DBTOOLS WITH "10,18,20,14,0"
  37. CALL DBTOOLS WITH "5,18,20,18,50,0"
  38. CALL DBTOOLS WITH "1,18,20,14,8,0,Watch these commands execute:"
  39. CALL DBTOOLS WITH "4,0,0"
  40. CALL DBTOOLS WITH "6,48"
  41. CALL DBTOOLS WITH "21,22,12,50,17,75,15,4,3,1"
  42. CALL DBTOOLS WITH "1,14,58,15,4,0,Pop it up!"
  43. CALL DBTOOLS WITH "6,36"
  44. CALL DBTOOLS WITH "19,22"
  45. CALL DBTOOLS WITH "6,36"
  46.  
  47. KOUNT = 1
  48. mK=.T.
  49. DO WHILE KOUNT < 10
  50.    CALL DBTOOLS WITH "21,1,5,10,10,25,15,1,1,1"
  51.    IF mK
  52.        CALL DBTOOLS WITH "6,18"
  53.    ENDIF
  54.    CALL DBTOOLS WITH "21,2,7,20,14,35,15,6,1,1"
  55.    IF mK
  56.        CALL DBTOOLS WITH "6,18"
  57.    ENDIF
  58.    CALL DBTOOLS WITH "21,3,12,40,15,75,15,3,1,1"
  59.    IF mK
  60.        CALL DBTOOLS WITH "6,18"
  61.    ENDIF
  62.    CALL DBTOOLS WITH "21,4,2,55,18,65,15,4,1,1"
  63.    IF mK
  64.        CALL DBTOOLS WITH "6,18"
  65.    ENDIF
  66.    CALL DBTOOLS WITH "21,5,17,15,22,35,15,5,1,1"
  67.    IF mK
  68.       CALL DBTOOLS WITH "6,18"
  69.    ENDIF
  70.    CALL DBTOOLS WITH "21,6,1,5,5,75,15,0,5,1"
  71.    IF mK
  72.       CALL DBTOOLS WITH "6,18"
  73.    ENDIF
  74.    CALL DBTOOLS WITH "21,7,11,25,15,45,10,2,5,1"
  75.    IF mK
  76.       CALL DBTOOLS WITH "6,18"
  77.    ENDIF
  78.    mJ=7
  79.    DO WHILE mJ>0
  80.       mPARM="19,"+STR(mJ,1)
  81.       CALL DBTOOLS WITH mPARM
  82.       IF mK
  83.           CALL DBTOOLS WITH "6,18"
  84.       ENDIF
  85.       mJ=mJ-1
  86.    ENDDO
  87.    mK=.F.
  88.    KOUNT=KOUNT+1
  89. ENDDO
  90.  
  91. CALL DBTOOLS WITH "19,21"
  92. CALL DBTOOLS WITH "6,18"
  93. CALL DBTOOLS WITH "19,19"
  94. CALL DBTOOLS WITH "6,18"
  95. CALL DBTOOLS WITH "4,1,0"
  96. CALL DBTOOLS WITH "14,3,0"
  97. RETURN
  98.