.type comand.tst
.type *** This routine generates 3 error messages
.type
.first title COMMAND TEST
.subtitle Simple commands
.ps 40,70,0,0,1.header spacing 1
.nf
_.define command /block/.c;Block command
.define command /block/.c;Block command
.define command /bl/
_.define command /end   block/c;End Block command
.define command /end   block/c;End Block command
.define command /end block/*** ERROR #1
.define command /en dblock/*** ERROR #2
.s
_.block
.block
_.end  block
.end  block
_.end block
.end block
_.endblock
.endblock
.s2
.end blocks.;*** ERROR #3
.subtitle Test parameter passing
.page
.DEFINE command /Q/	 .s %.i %;
_.DEFINE command /Q/	 .s %.i %;
.Q 1,10 _.Q 1,10
.Q 2,5 _.Q 2,5
.Q 3,1 _.Q 3,1
.define command /p/.c
._P ;Centered text ?
.P;Skip + Indented 5 ?
.$P;Skip + Indented 5 ?
.enable command replacement
._P;Centered text ?
.P;Centered text ?
.$P;Skip + Indented 5 ?
.page
_.DEFINE command /PQ/.$p %,%,%,%
.DEFINE command /PQ/.$p %,%,%,%
.pq 10 1 ;_.pq 10 1
.pq 5,2 ;_.pq 5,2
.pq 1,3 ;_.pq 1,3