edit "Block Mark Demo" nomods
ex [top][data cursor][unmark][mark line][bottom][mark line][delete mark]
set margins 10 40
ex [execute key zz-10] [execute key zz-10] [up 5]
ex [store cursor]
ex [display 4] 'The block mark is the most powerful editing feature of PTE.  ' [execute key zz-11]
ex [display 4] 'With this mark it is possible to manipulate rectangular blocks of text.  ' [update] [wait 10]
ex [store cursor] [recall cursor 2] [mark block] [update] [wait 10]
ex [down 2] [right 5] [re-mark block] [update] [wait 10]
ex [down 2] [right 5] [re-mark block] [update] [wait 10]
ex [down 2] [right 5] [re-mark block] [update] [wait 10]
ex [recall cursor line] [right margin] [re-mark block] [update] [wait 10]
set margins 10 70
ex [execute key zz-10]
ex [display 4] 'Then you can adjust the position of the block in character '
ex [display 4] 'increments.  ' [wait 10]
ex [store cursor] [recall cursor 3] [wait 5]
ex [up] [left] [transfer block] [update] [wait 2]
ex [right] [transfer block] [update] [wait 2]
ex [right] [transfer block] [update] [wait 2]
ex [right] [transfer block] [update] [wait 2]
ex [down] [left] [transfer block] [update] [wait 2]
ex [left] [transfer block] [update] [wait 2]
ex [recall cursor] [forget cursor] [forget cursor] [forget cursor]
ex [display 4] 'Or you can overlay the block anywhere, even on top of itself, '
ex [display 4] 'for special effects.  ' [wait 10] [store cursor]
ex [begin mark] [down 2] [right 4] [wait 10] [overlay block] [update] [wait 10]
ex [begin mark] [up 2] [left 4] [wait 10] [transfer block] [update] [wait 10]
ex [recall cursor] [display 4] 'Or you can use it to lay out multi-column text.  ' [wait 10]
ex [begin mark] [right 35] [store mark] [overlay block] [update] [wait 10]
ex [recall mark] [update] [wait 10]
ex [end mark] [down 2] [unmark] [mark line] [bottom] [mark line] [delete mark]
ex [recall mark] [begin mark] [end mark] [down]
ex [execute key zz-10]
ex [display 4] 'The text within the block may be right ' [wait 10] [right justify block] [update] [wait 10]
ex [display 4] 'or left justified, ' [wait 10] [left justify block] [update] [wait 10]
ex [display 4] 'centered, ' [wait 10] [center block] [update] [wait 10]
ex [display 4] 'or left-right justified. ' [wait 10] [justify block] [update] [wait 10]
set margins 20 70
ex [unmark] [execute key zz-10] [store cursor]
ex [display 4] 'London, England' [execute key zz-12]
ex [display 4] 'Ottawa, Canada' [execute key zz-12]
ex [display 4] 'Washington, United States' [execute key zz-12]
ex [display 4] 'Paris, France' [execute key zz-12]
ex [display 4] 'Rome, Italy' [recall cursor position] [right 10] [mark block] [execute key zz-12]
ex [recall cursor] [mark block] [end mark]
set margins 10 70
ex [down] [execute key zz-10] [up 2]
ex [display 4] 'The block mark may be used for sorting text in increasing ' [wait 10] [sort up] [update] [wait 10]
ex [display 4] 'or decreasing order. ' [wait 10] [sort down] [update] [wait 10]
ex [display 4] 'The top line of the block mark may be replicated through the whole block.  ' [wait 10] [execute key a-f5] [update] [wait 10]
ex [display 4] 'This greatly reduces the amount of redundant typing that has to be done.  ' [wait 10]
ex [display 4] 'The block may also be filled in with any string.  In this case \'*123\''[fill mark]'*123'[update][wait 10]
set margins 5 75
ex [execute key zz-11]
ex [display 4]'Alt-B      specifies diagonal corners of the BLOCK mark.'[execute key zz-12]
ex [display 4]'Alt-U      UNMARKS any existing mark.'[execute key zz-12]
ex [display 4]'Alt-D      DELETES existing mark.'[execute key zz-12]
ex [display 4]'Alt-O      OVERLAYS block on top of existing text.'[execute key zz-12]
ex [display 4]'Alt-T      TRANSFERS, overlays and fills old position with spaces.'[execute key zz-12]
ex [display 4]'Alt-M      MOVES existing mark to the cursor position.'[execute key zz-12]
ex [display 4]'Alt-Z      COPIES existing mark to the cursor position.'[execute key zz-12]
ex [execute key zz-12]