window application view and layout

set window on
set window off
show window
hide window
maximize window
minimize window
restore window
set window title title_screen$
set window layout style,caption,icon_number
SET WINDOW POSITION x_ini, y_ini

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: window
Rem Created: 22/8/2004 6:52:45 μμ

Rem ***** Main Source File *****

global maxx,maxy,halfx,halfy

maxx=screen width()
maxy=screen height()
halfx=maxx/2
halfy=maxy/2

window_properties(1,1,0,40,40)
window("on","show","max","on","A Dark Basic Application Window")

do

loop
end


function window(activate$,view$,mize$,restore$,title_screen$)
if (activate$="on")then:set window on
if (activate$="off")then:set window off
if (view$="show")then:show window
if (view$="hide")then:hide window
if (mize$="max")then:maximize window
if (mize$="min")then:minimize window
if (restore$="on")then:restore window
set window title title_screen$
endfunction

function window_properties(style,caption,icon_number,x_ini,y_ini)
set window layout style,caption,icon_number
SET WINDOW POSITION x_ini, y_ini
endfunction