home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PBVL010.ZIP / WINDEMO3.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  2KB  |  65 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: WINDEMO3.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Example Program                             │
  4. '├─────────────────────────────────────────────────────────────────────────┤
  5. '│ For instant help on any PB/VISION(tm) keyword, place the cursor on that │
  6. '│ keyword and press <CTRL-F1>.  The PB/VISION(tm) index can be accessed   │
  7. '│ by pressing <SHIFT-F1> twice.  The file "PBVLITE.PBH" _must_ be in the  │
  8. '│ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work  │
  9. '│ properly.                                                               │
  10. '└─────────────────────────────────────────────────────────────────────────┘
  11.  
  12. '       ==================================================
  13. '       BE SURE TO RUN "DEMO.EXE" FOR INFORMATION ON OTHER
  14. '       PowerBASIC 3.0 TOOLS FROM DSE SOFTWARE PUBLISHING.
  15. '       ==================================================
  16.  
  17. %ISPBU = 0
  18.  
  19. $INCLUDE ".\WINDOW.BI"
  20. $INCLUDE ".\EVENT.BI"
  21.  
  22.     DEFINT A-Z
  23.     $DYNAMIC
  24.  
  25.     SHARED Win1%, Win2%, Win3%
  26.  
  27.     APPTITLE &HE0, "WINDEMO3.BAS - A PB/VISION(tm) LITE DEMO - PRESS <ESC> TO QUIT"
  28.  
  29.     APP.GraphicsMode = 1
  30.  
  31.     APPINIT
  32.  
  33.     winFlags = %SHADOW
  34.  
  35.     Win1 = WINOPEN(15, 46, &H47, 1, &H4F, "", &H4F, winFlags)
  36.     Win2 = WINOPEN(15, 46, &H70, 1, &H70, "", &H70, winFlags)
  37.     Win3 = WINOPEN(15, 46, &H17, 1, &H17, "", &H17, winFlags)
  38.     Win4 = WINOPEN(15, 46, &HE, 1, &HE, "", &HC, winFlags)
  39.  
  40.     WINSHOW Win1, 2, 3, 15, 46              ' <= DISPLAY WINDOW
  41.     WINSHOW Win2, 4, 13, 15, 46
  42.     WINSHOW Win3, 6, 23, 15, 46
  43.     WINSHOW Win4, 8, 33, 15, 46
  44.  
  45.     WHILE INKEY$ = ""
  46.  
  47.         Fore = Fore MOD 15 + 1        ' <= CALCULATE NEW COLOR
  48.  
  49.         WINCOLOR Win2, attr(Fore, 7)    ' <= CHANGE PRINT COLOR
  50.         WINCOLOR Win4, attr(Fore, 0)
  51.  
  52.         WINREFRESHMODE 0
  53.  
  54.         WINWRITE Win4, "Hello, World!  "
  55.         WINWRITELN Win3, STRING$(40, Fore + 64)
  56.         WINWRITELN Win2, " PB/VISION(tm) - Software Development System"    ' <= PRINT TO THE WINDOW
  57.  
  58.         WINREFRESHMODE 1
  59.  
  60.         WINWRITE Win1, "Hello, World!  "
  61.  
  62.     WEND
  63.  
  64.     APPCLOSE
  65.