This application makes a segment screen. Not an object.

There's no documentation.
There's executable.
Please feel free use other techniques as if the screen had segments or anything else that you feel posting on this website.
Thank you.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: Screen Segment
Rem Created: 2/2/2005 10:37:31 PM

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

Width=800
Height=600
Depth=32

SET DISPLAY MODE Width, Height, Depth

String$="IN"
TEXTHEIGHT=TEXT HEIGHT(String$)
SCREENWIDTH=SCREEN WIDTH()
SCREENHEIGHT=SCREEN HEIGHT()
SCREENDEPTH=SCREEN DEPTH()

type segment
x1
y1
x2
y2
endtype

dim screen(192) as segment

for i=0 to 15 step 1
   screen.x1=0
   screen.y1=0
   screen.x2=50
   screen.y2=50


do

cls
line screen.x1,screen.y1,screen.x2,screen.y2
if (mousex()>=0)
   if (mousey()>=0)
      if (mousex()<=100)
         if (mousey()<=100)
            CENTER TEXT screen.x2/2,(screen.y2/2)-(TEXTHEIGHT/2),String$
         endif
      endif
   endif
endif
loop
end