cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
!DELETE
y
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
: showing window1
Windows Showing
'w1' at (R1, C1) - (R10, C15) form 'w1' form instance 'w1' has a box

: showing window2
Windows Showing
'w2' at (R5, C10) - (R11, C35) form 'w2' form instance 'w2' has a box
'w1' at (R1, C1) - (R10, C15) form 'w1' form instance 'w1' has a box

: showing window3 and testing current_window_name
database = 'DB'
error_string = ''
error_number = '0'
got_records = ''
insert_mode = '0'
interrupt_number = '0'
record_status = ''
records_selected = '0'
screen_row = '24'
screen_column = '80'
mouse_row = '0'
mouse_column = '0'
touch_row = '0'
touch_column = '0'
wind_name = 'w3'
Windows Showing
'w3' at (R13, C1) - (R20, C30) form 'w3' form instance 'w3' hasn't a box
'w2' at (R5, C10) - (R11, C35) form 'w2' form instance 'w2' has a box
'w1' at (R1, C1) - (R10, C15) form 'w1' form instance 'w1' has a box

: showing window4, current field is f42
'w4'@'f41'[1]:
'w4'@'f42'[1]: <Current Field>
'w4'@'f43'[1]:
'w4'@'f44'[1]:
Windows Showing
'w4' at (R4, C12) - (R22, C75) form 'w4' form instance 'w4' has a box
'w3' at (R13, C1) - (R20, C30) form 'w3' form instance 'w3' hasn't a box
'w2' at (R5, C10) - (R11, C35) form 'w2' form instance 'w2' has a box
'w1' at (R1, C1) - (R10, C15) form 'w1' form instance 'w1' has a box

: removing windows 4, 3, and 1
Windows Showing
'w2' at (R5, C10) - (R11, C35) form 'w2' form instance 'w2' has a box

: moving window +2, +5
Windows Showing
'w2' at (R7, C15) - (R13, C40) form 'w2' form instance 'w2' has a box

: moving window -1, -5
Windows Showing
'w2' at (R6, C10) - (R12, C35) form 'w2' form instance 'w2' has a box

: scrolling window +2, +3
Windows Showing
'w2' at (R6, C10) - (R12, C35) form 'w2' form instance 'w2' has a box

: scrolling window -2, -3
Windows Showing
'w2' at (R6, C10) - (R12, C35) form 'w2' form instance 'w2' has a box

: zooming window +5, +9
Windows Showing
'w2' at (R1, C1) - (R17, C44) form 'w2' form instance 'w2' has a box

: zooming window -4, -8
Windows Showing
'w2' at (R5, C9) - (R13, C36) form 'w2' form instance 'w2' has a box

: calling up temporary window
Windows Showing
'temp1' at (R20, C60) - (R24, C80) form 'temp1' form instance 'temp1' hasn't a box
'w2' at (R5, C9) - (R13, C36) form 'w2' form instance 'w2' has a box

+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
MB test of all window functions.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
