home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / pbvl010.zip / TUTOR1_2.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  2KB  |  49 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: TUTOR1_2.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Tutorial 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. %ISPBU = 0
  13.  
  14. DEFINT A-Z
  15. $DYNAMIC
  16.  
  17. $INCLUDE ".\WINDOW.BI"
  18.  
  19.     APPINIT
  20.  
  21. ' ─ ■ 1.2.1 to 1.2.6 - OPENING A NEW WINDOW ───────────────────────────────
  22.  
  23.     AuntEdna = WINOPEN(10, 40, &H10, 1, &H1F, "AUNT EDNA'S HOUSE", &HE0, %SHADOW)
  24.  
  25. ' ─ ■ 1.2.7 - DISPLAYING AN OPEN WINDOW ───────────────────────────────────
  26.  
  27.     WINSHOW AuntEdna, 0, 0, 25, 80
  28.  
  29. ' ─ ■ 1.2.8 - ANOTHER WAY OF OPENING AND DISPLAYING A WINDOW ──────────────
  30.  
  31.     UncleBob = WINPOPUP(15, 40, 5, 30, &H47, 1, &H4F, "UNCLE BOB'S HOUSE", &HF0, %SHADOW)
  32.  
  33. ' ─ ■ 1.2.9 - PRINTING TEXT IN A WINDOW ───────────────────────────────────
  34.  
  35.     WINPRINT AuntEdna, 5, 10, &H1E, "Hello Aunt Edna"
  36.     WINPRINT UncleBob, 2, 2, -1, "Yo! Uncle Bob"
  37.  
  38.     WHILE INKEY$ = "": WEND
  39.  
  40. ' ─ ■ 1.2.10 - CLOSING A WINDOW ───────────────────────────────────────────
  41.  
  42.     WINCLOSE AuntEdna
  43.     WINCLOSE UncleBob
  44.  
  45.     APPCLOSE
  46.  
  47.     END
  48.  
  49.