home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / pbvl010.zip / TUTOR1_1.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  2KB  |  39 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: TUTOR1_1.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. ' ─ ■ 1.1.1 - TELLING POWERBASIC THAT THIS IS A PROGRAM, NOT A UNIT ──────
  13.  
  14.     %ISPBU = 0                      ' This means it is a program, not a .PBU
  15.  
  16. ' ─ ■ 1.1.2 - MAKING OUR PROGRAMS WORK A WHOLE LOT FASTER ────────────────
  17.  
  18.     DEFINT A-Z                      ' Use high-speed integer variables
  19.     $DYNAMIC                        ' Use dynamic memory allocation
  20.  
  21. ' ─ ■ 1.1.3 - INCLUDING THE ROUTINE DEFINITIONS ──────────────────────────
  22.  
  23.     $INCLUDE ".\WINDOW.BI"          ' Every program requires this line
  24.  
  25. ' ─ ■ 1.1.4 - TURNING ON PB/VISION ───────────────────────────────────────
  26.  
  27.     APPINIT                                 ' Initialize PB/VISION desktop
  28.  
  29.     LOCATE 12, 30:  PRINT "Hello, World!"   ' just say "hi"
  30.  
  31.     WHILE INKEY$ = "": WEND                 ' Poll the keyboard
  32.  
  33. ' ─ ■ 1.1.5 - TURNING OFF PB/VISION───────────────────────────────────────
  34.  
  35.     APPCLOSE                        ' Close PB/VISION and remove desktop
  36.  
  37.     END
  38.  
  39.