$IF 0
===================================================================
  PBWindow.Inc   for PowerBASIC version 2.1
 This $Include file is used with PBWindo2.Pbu to load Windows for use
 with PowerBasic. Routined in this $include, and in the Unit, PWindow.PBU
 are
 Copr. 1990 Barry Erick All Rights Reserved.
===================================================================
$ENDIF

' The declares are not necessary and are for your information.
DECLARE FUNCTION GetAttribute%(Integer,Integer)
DECLARE SUB Getforandback(Integer,integer,integer)
DECLARE SUB Prtbox(Integer,Integer,STRING)
DECLARE SUB Rackett()
DECLARE SUB RemoveBox()
DECLARE SUB BoxTitle(Integer,STRING,Integer,Integer)
DECLARE SUB MakeBox(Integer,Integer,Integer,Integer,Integer,Integer,_
		    Integer,Integer,Integer,Integer,Integer)
DECLARE SUB ZoomBox(Integer,Integer,Integer,Integer,Integer,Integer,_
		    Integer,Integer,Integer,Integer,Integer)
DECLARE SUB Boxscroll(Integer,Integer,Integer)
DECLARE SUB CtrBox(Integer,STRING)
DECLARE SUB CtrAllBox(Integer,Integer,STRING)
DECLARE SUB PrtEol(Integer,Integer)
DECLARE SUB PrtEolBox(Integer,Integer,String)
DECLARE SUB NewBoxColor(Integer,Integer)
DECLARE SUB PrtAttrBox(INTEGER,Integer,String,Integer,Integer)
DECLARE SUB BuildMenu(Integer,Integer,Integer,Integer,_
	    Integer,Integer,Integer,Integer,Integer,STRING ARRAY,Integer,_
	    Integer)
DECLARE SUB ClearBox(Integer,Integer)
DECLARE SUB Recolor(Integer,Integer,Integer,Integer)
DECLARE SUB WriteScreenArea(Integer,Integer,Integer,Integer,String,String)
DECLARE SUB PBWindowInit()
DECLARE SUB ScreenInit(Integer,Integer)
DECLARE SUB SaveScreenArea(Integer,Integer,Integer,_
	    Integer,String,String)
DECLARE FUNCTION WhatCpu%()


PUBLIC Max.Window%,AutoBuildTime%   'max num of windows, automatic time
PUBLIC Wpt%  'current window pointer
PUBLIC PBWr%(),PBWc%(),PBWh%(),PBWw%() 'row,colum, height, width
PUBLIC Shadows%() 'type of shadow for each (wpt%)
PUBLIC noise%(),boxkinw%() 'is noise active and type of box for each wpt%
PUBLIC vert$()     ' for parsing words for title
PUBLIC attrs%()    ' each wpt% attribute
PUBLIC boxborderattrs%()  'each wpt border attribute
PUBLIC mlist$()    'names of %MaxMenuList
PUBLIC NoNoise%    'True = do not make noise
PUBLIC mbc%        ' last windows background color
PUBLIC mfc%	   ' last windows foreground color
PUBLIC mbfc%,mbbc% ' last windows border foreground and background color
PUBLIC fc%,bc%,bfc%,bbc%
PUBLIC Backc%,Forec%
PUBLIC ScreenSEGMENT%,RetraceMode%  'users screen SEGMENT and snow check.
PUBLIC IsColr%,VidMode%
PUBLIC Bar3or4Off%, Bar0to2Off%
PUBLIC UnderDevelopment%
PUBLIC Module$

%MaxmenuList = 20 ' DO NOT CHANGE, It is 20 in the .PBU
		  ' and this is for the user's program and the two
		  'must match. This MAY change in future versions
Bar3or4Off% = 0   'default values
Bar0to2Off% = 3   'see doc file
UnderDevelopment% = 0  'this can be changed in your program while
		       'you are developing your program
$IF 0
		        DO NOT CHANGE IT HERE, but add it to
		        your program if you want to check for
		        parameter errors in makebox. This should
		        be after the $Include statement in your
		        program. When development is finished,
		        either remove the statement you added,
		        or make it %False. To make it work, use
		         UnderDevelopment% = %True in the program
			 or UnderDevelopment = -1
$ENDIF

CALL PbWindowInit   'call the initialization routine
$SEGMENT
$LINK "pbwobj.obj"
$SEGMENT

$IF 0
  Note.. the program is fully functionable and not cripled. The
 registered version allows a smaller version, however.
$ENDIF

$IF  %PBWSMALL      'avail with registered version only
 $INCLUDE "PBWSMALL.INC"
$ELSE               'default version with all versions
 $LINK "PBWindow.pbu"
$ENDIF