Category : BASIC Source Code
Archive   : PBVL010.ZIP
Filename : WINDEMO5.BAS

 
Output of file : WINDEMO5.BAS contained in archive : PBVL010.ZIP
'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'³ FILE: WINDEMO5.BAS ³
'³ PURPOSE: PB/VISION(tm) LITE Example Program ³
'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
'³ For instant help on any PB/VISION(tm) keyword, place the cursor on that ³
'³ keyword and press . The PB/VISION(tm) index can be accessed ³
'³ by pressing twice. The file "PBVLITE.PBH" _must_ be in the ³
'³ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work ³
'³ properly. ³
'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

' ==================================================
' BE SURE TO RUN "DEMO.EXE" FOR INFORMATION ON OTHER
' PowerBASIC 3.0 TOOLS FROM DSE SOFTWARE PUBLISHING.
' ==================================================

%ISPBU = 0

$INCLUDE ".\WINDOW.BI"
$INCLUDE ".\MOUSE.BI"
$INCLUDE ".\EVENT.BI"

DEFINT A-Z
$DYNAMIC

SHARED win1%

APPTITLE &HCF, "WINDEMO6.BAS - A PB/VISION(tm) LITE DEMO - PRESS TO QUIT"

APP.GraphicsMode = 1
APP.GraphicsMouse = 1

APPINIT

GottaMouse% = MOUSEINIT(buttons%)
MOUSECURSORON

winFlags = %DRAGBAR OR %SHADOW OR %RESIZE OR %MINMAX OR %VSCROLLBAR OR %HSCROLLBAR OR %AUTOSCROLL

win1% = WINOPEN (50, 128, &H9F, 1, &H9F, "WINDOW WITH AUTO-SCROLL ENABLED", &H8F, winFlags)

FOR row = 1 TO 50
FOR col = 1 TO 31
WINPRINT win1%, row, col * 4 - 3 , -1, USING$("####", row + col)
NEXT
NEXT

WINPRINT win1, 1, 1, -1, "Use cursor keys or mouse to scroll window."

WINSHOW win1%, 0, 0, 18, 70

DO
eventNo = GetEvent(0)

SELECT CASE eventNo

CASE 102 ' <=
EXIT LOOP

CASE 217
WINNORMALIZE win1%

CASE ELSE

END SELECT
LOOP

MOUSECURSOROFF
APPCLOSE
END


  3 Responses to “Category : BASIC Source Code
Archive   : PBVL010.ZIP
Filename : WINDEMO5.BAS
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/