' $INCLUDE: 'DOORSORC.INT'
PROGNAME$ = "Window Demo"  ' Setup DS Program variables
RELEASE$ = "1.0"
CALL ClrScrn               ' Update screen and close config file
CLOSE #1

DIM TEXT$(10) ' MAKE SURE TO MAKE THE ARRAY AS LARGE AS THE WINDOW IS TALL!
    TEXT$(1) = "This is a demo of..."             ' Setup text to be printed
    TEXT$(2) = "WINDOWS in Door Source 2.0"
    TEXT$(3) = "This can be slow if it's a BIG window"

A$ = "And now for some WINDOWS!": CALL Center(A$) ' Print out a little
CALL Send(A$, No, Yes, 10)                        ' message

CALL Windows(10, 10, 14, 70, 12, 1, 14, 1, 1, Yes, TEXT$())
'           ULR,ULC,LRR,LRC,FORE,BACK|  |  |   |   Text to print in window
'                                    |  |  |   SHADOW
'                                    |  |  BORDER
'                                    |  TBACK
'                                    TFORE
I1$ = "PRESS": CALL ScriptCMD               ' Wait for a key to be pressed
CALL ExitDoor