home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTPAGE.PRG < prev    next >
Text File  |  1989-10-03  |  4KB  |  100 lines
  1. *=====================================================================
  2. *   DBTPAGE - activate screen page demo
  3. *             (c) 1989 BERNATH COMPUTER
  4. *             22:01:23  9/21/1989
  5. *=====================================================================
  6. CALL DBTOOLS WITH "15,3"                         && store existing screen
  7. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  8. CALL DBTOOLS WITH "3,1,5,9,50,14,1,1,0,1"        && draw box
  9. CALL DBTOOLS WITH "1,2,12,14,1,0,P A G E - function 22"   && title in box
  10. SET COLOR TO W/B                                 && display box text
  11. @ 3,8 SAY "PAGE allows you to set the active"
  12. @ 4,8 SAY "screen page. In conjunction with the"
  13. @ 5,8 say "ATSAY, BOX, and DITHER functions, you"
  14. @ 6,8 SAY "can draw screens invisibly and then"
  15. @ 7,8 SAY "pop them up instantly."
  16. CALL DBTOOLS WITH "10,8,13,14,1"                 && pause
  17. CALL DBTOOLS WITH "3,6,7,14,65,15,3,2,0,1"       && overlay another box
  18. SET COLOR TO +W/GB                               && display box text
  19. @ 7,9 SAY "Syntax:"
  20. mPARM="CALL DBTOOLS WITH "+CHR(34)+"22,pagenum"+CHR(34)
  21. @ 8,9 SAY mPARM
  22. SET COLOR TO B/GB
  23. @  10,11 SAY "In a color adapter there are four sections of video"
  24. @  11,11 SAY "memory numbered 0-3. These can be treated as separate"
  25. @  12,11 SAY CHR(34)+"windows"+CHR(34)+" to draw text to."
  26. CALL DBTOOLS WITH "10,13,30,15,3"
  27.  
  28. CALL DBTOOLS WITH "7,2,12,4,0"
  29. CALL DBTOOLS WITH "3,7,20,16,60,14,1,2,0,1"
  30. CALL DBTOOLS WITH "1,8,30,9,1,0,This is video page 0"
  31. SET COLOR TO +W/B
  32. @ 10,23 SAY "This is the standard video page. By"
  33. @ 11,23 SAY "the time you have finished reading"
  34. @ 12,23 SAY "this I'll have already drawn three"
  35. @ 13,23 SAY "other screens on other video pages,"
  36. @ 14,23 SAY "invisibly."
  37. CALL DBTOOLS WITH "10,15,23,14,1"
  38.  
  39. IF .NOT. ISCOLOR()
  40.    DO ERRMSG WITH "Sorry, PAGE only works with a color adapter."
  41. ELSE
  42.    CALL DBTOOLS WITH "4,0,0"
  43.    CALL DBTOOLS WITH "7,2,10,2,1"
  44.    CALL DBTOOLS WITH "3,7,20,16,60,15,5,2,1,1"
  45.    CALL DBTOOLS WITH "1,8,30,15,5,1,This is video page 1"
  46.    CALL DBTOOLS WITH "1,9,30,15,5,1,This is video page 1"
  47.    CALL DBTOOLS WITH "1,10,30,15,5,1,This is video page 1"
  48.    CALL DBTOOLS WITH "1,11,30,15,5,1,This is video page 1"
  49.    CALL DBTOOLS WITH "1,12,30,15,5,1,This is video page 1"
  50.    CALL DBTOOLS WITH "1,13,30,15,5,1,This is video page 1"
  51.    CALL DBTOOLS WITH "1,14,30,15,5,1,This is video page 1"
  52.    CALL DBTOOLS WITH "1,15,30,15,5,1,This is video page 1"
  53.  
  54.    CALL DBTOOLS WITH "7,1,8,7,2"
  55.    CALL DBTOOLS WITH "3,7,20,16,60,0,7,2,2,1"
  56.    CALL DBTOOLS WITH "1,8,30,0,7,2,This is video page 2"
  57.    CALL DBTOOLS WITH "1,9,30,0,7,2,This is video page 2"
  58.    CALL DBTOOLS WITH "1,10,30,0,7,2,This is video page 2"
  59.    CALL DBTOOLS WITH "1,11,30,0,7,2,This is video page 2"
  60.    CALL DBTOOLS WITH "1,12,30,0,7,2,This is video page 2"
  61.    CALL DBTOOLS WITH "1,13,30,0,7,2,This is video page 2"
  62.    CALL DBTOOLS WITH "1,14,30,0,7,2,This is video page 2"
  63.    CALL DBTOOLS WITH "1,15,30,0,7,2,This is video page 2"
  64.  
  65.    CALL DBTOOLS WITH "7,3,4,1,3"
  66.    CALL DBTOOLS WITH "3,7,20,16,60,11,3,2,3,1"
  67.    CALL DBTOOLS WITH "1,8,30,11,3,3,This is video page 3"
  68.    CALL DBTOOLS WITH "1,9,30,11,3,3,This is video page 3"
  69.    CALL DBTOOLS WITH "1,10,30,11,3,3,This is video page 3"
  70.    CALL DBTOOLS WITH "1,11,30,11,3,3,This is video page 3"
  71.    CALL DBTOOLS WITH "1,12,30,11,3,3,This is video page 3"
  72.    CALL DBTOOLS WITH "1,13,30,11,3,3,This is video page 3"
  73.    CALL DBTOOLS WITH "1,14,30,11,3,3,This is video page 3"
  74.    CALL DBTOOLS WITH "1,15,30,11,3,3,This is video page 3"
  75.  
  76.    KOUNT = 1
  77.    DO WHILE KOUNT < 4
  78.       mPARM = "22,"+STR(KOUNT,1)
  79.       CALL DBTOOLS WITH mPARM
  80.       CALL DBTOOLS WITH "6,48"
  81.       KOUNT = KOUNT + 1
  82.     ENDDO
  83.  
  84.    LOOPIT = 1
  85.    DO WHILE LOOPIT < 16
  86.       KOUNT = 0
  87.       DO WHILE KOUNT < 4
  88.          mPARM = "22,"+STR(KOUNT,1)
  89.          CALL DBTOOLS WITH mPARM
  90.          KOUNT = KOUNT + 1
  91.          CALL DBTOOLS WITH "6,2"
  92.       ENDDO
  93.       LOOPIT = LOOPIT + 1
  94.  
  95.    ENDDO
  96.    CALL DBTOOLS WITH "22,0"
  97.    CALL DBTOOLS WITH "4,1,0"
  98. ENDIF
  99. CALL DBTOOLS WITH "14,3,0"
  100. RETURN