Category : BASIC Source Code
Archive   : PWL521X.ZIP
Filename : WINDEMO4.BAS
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
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/