:Start
>.v_exist[ r1# ] .else[.define[ r1# r2# r3# r4# r5# r# c# count# ] ]
>.margin[ top 1 bottom 1 left 1 right 1 ]
>r1#=^random# .beep[] .window[] .window[text center center 9 48 yellow]
Besides some other nice features, Iris offers
multi-sized windows with a variety of borders.

Some samples follow. The text displayed
in each window shows the instructions used to
create each window, including color and border.

Press <Enter> to continue ..
>.pause WindowsLeft

!-> A page for each 'column' is used just so
!-> users can "Escape" without waiting for
!-> all the windows to redisplay.

:WindowsLeft
>r2#=^random#
!
!-> Window1
!
>.cls
>.window[text top left 2 42 yellow.red]
>.bcolor[text yellow.red single] .clw
.window[text top left 2 42 yellow.red]
.bcolor[text yellow.red single]
>.pause[10]
!
!-> Window2
!
>.window[text center left 2 42 white.blue]
>.bcolor[text blue.lightgray vdouble] .clw
.window[text center left 2 42 white.blue]
.bcolor[text blue.lightgray vdouble]
>.pause[10]
!
!-> Window3
!
>.window[text bottom left 2 42 black.green]
>.bcolor[text black.green double] .clw
.window[text bottom left 2 42 black.green]
.bcolor[text black.green double]
>.pause[20] WindowsRight

:WindowsRight
>r3#=^random#
!
!-> Window4
!
>.window[text top right 2 42 yellow.magenta]
>.bcolor[text magenta.brown hdouble] .clw
.window[text top right 2 42 yellow.magenta]
.bcolor[text magenta.brown hdouble]
>.pause[10]
!
!-> Window5
!
>.window[text center right 2 42 cyan.blue]
>.bcolor[text magenta.blue thinsolid1] .clw
.window[text center right 2 42 cyan.blue]
.bcolor[text magenta.blue thinsolid1]
>.pause[10]
!
!-> Window6
!
>.window[text bottom right 2 42 white.brown]
>.bcolor[text white.brown thinsolid2] .clw
.window[text bottom right 2 42 white.brown]
.bcolor[text white.brown thinsolid2]
>.pause[20] WindowsCenter

:WindowsCenter
>r4#=^random#
!
!-> Window7
!
>.window[text top center 2 42 green.magenta]
>.bcolor[text magenta.green Lhatch] .clw
.window[text top center 2 42 green.magenta]
.bcolor[text magenta.green Lhatch]
>.pause[10]
!
!-> Window8
!
>.window[text center center 2 47 black.lightgray]
>.bcolor[text black.lightgray Mhatch] .clw
.window[text center center 2 47 black.lightgray]
.bcolor[text black.lightgray Mhatch]
>.pause[10]
!
!-> Window9
!
>.window[text bottom center 2 42 yellow.red]
>.bcolor[text yellow.red Hhatch] .clw
.window[text bottom center 2 42 yellow.red]
.bcolor[text yellow.red Hhatch]
>.pause[20] .beep[o0c]
*

:BootRandom
>.cls r5#=^random# .beep[l0t7o0] count#=0
>.window[] .window[text center center 9 44 yellow]
Just for fun, let's create a few windows and
display them at random locations, in random
colors, using random borders.

This routine will be a little different each
time you see it.

Press <Enter> to continue ..
>.pause[]
>.cls Random
*

:Random
>r1#=^r2#  r2#=^r3#  r3#=^r4#  r4#=^r5#  r5#=^random#
>r#=^r1#**^maxrow#  c#=^r2#**^maxcol#
>.window[text ^r# ^c# 3 15 ^r3# ^r4# ^r5# ] .clw
|random window
>.beep[c] Loop
*

:Loop
>count#+1 count#==24 .then[ menu ] .else[ random ]
*

:Menu
>.beep[] .beep[o0c] .pause[]
>.window .window[text bottom center 8 46 ] .window[menu bottom center 2 10 ]
|Now, you can either StartúOver from the
|beginning or run the Random routine again.

|Otherwise, press <Esc> and try another Book.
?Random BootRandom ?StartúOver Start
*
End of ~Window.PGE
*