Category : BASIC Source Code
Archive   : PWL521X.ZIP
Filename : WINDEMO4.BAS

 
Output of file : WINDEMO4.BAS contained in archive : PWL521X.ZIP
' WINDEMO4.BAS - ProWindows(tm) LITE Demo Program

REM $DYNAMIC ' <= SET UP QUICKBASIC FOR DYNAMIC MEMORY USAGE
DEFINT A-Z ' <= DEFAULT TO INTEGERS

REM $INCLUDE: 'LITE.BI' ' <= REQUIRED FOR WINDOW CALLS

' === DEFINE A FEW CONSTANTS

CONST WINMEMSIZE% = 8191 ' <= VIRTUAL WINDOW MEMORY SIZE
CONST SCRNMEMSIZE% = 4096 ' <= SCREEN BUFFER MEMORY SIZE
CONST MAXWINDOWS% = 30 ' <= MAXIMUM NUMBER OF WINDOWS

CLEAR , , 4096 ' <= SET ASIDE ADDITIONAL "STACK" SPACE

LOCATE 1, 1

PreInit ' <= PRE-INITIALIZE THE WINDOW MANAGER

' === DIMENSION GLOBAL ARRAYS WITH ABOVE DEFINED CONSTANTS

REDIM SHARED VirMem(WINMEMSIZE) AS INTEGER ' <= VIRTUAL MEMORY
REDIM SHARED scrn(SCRNMEMSIZE) AS INTEGER ' <= SCREEN MEMORY
REDIM SHARED vcb(MAXWINDOWS) AS vircb ' <= VIRTUAL WINDOW INFO
REDIM SHARED wcb(MAXWINDOWS) AS wincb ' <= DISPLAYED WINDOW INFO
REDIM SHARED cursor(MAXWINDOWS) AS cursorTYPE ' <= CURSOR CONTROL ARRAY
REDIM SHARED wcbndx(MAXWINDOWS) AS INTEGER ' <= LIST OF HANDLES

InitPro ' <= INITIALIZE THE WINDOW MANAGER

ReCycleMode 0 ' <= ENABLE "VIDEO RECYCLING"

UseDrivers 0, 0, 1 ' <= INSTALL ANY NEEDED DRIVERS

REM setBWmode 1 ' <= SWITCH TO MONOCHROME MODE

' === DEFINE THE "GLOBAL WINDOW OPTIONS"

GlobalOptions = SELECTABLE

FillScreen 1, 1, MAXROWS - 1, MAXCOLS, 23, 250, snow

Notice ' <= COPYRIGHT NOTICE (SHAREWARE VERSION ONLY)
Win1 = CurrentWindow ' <= GET THE WINDOW'S HANDLE

SoundMode = GLISANDO ' <= TURN ON CHIRP NOISE

FOR Handle = 1 TO 25

kolor = attr(RAND(16), RAND(8))

OpenWindow Handle, 5, 32, kolor, 1, 1, 0, SELECTABLE
wcprint 1, "ProWindows(tm)"
wcprint 2, "The World's Greatest Toolbox"
wcprint 3, "for QuickBASIC & PDS 7.1"
DisplayWindow Handle, RAND(20), RAND(50), 5, 32

NEXT

WHILE INKEY$ = ""
Handle = RAND(25) + 1
MainWindow Handle ' <= BRING A WINDOW TO THE TOP
WEND

FOR Handle = WI TO 2 STEP -1
CloseWindow wcbndx(Handle) ' <= CLOSE WINDOWS IN ORDER OF LEVEL
NEXT

LOCATE 24, 1



  3 Responses to “Category : BASIC Source Code
Archive   : PWL521X.ZIP
Filename : WINDEMO4.BAS

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

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

  3. 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/