.type *** This routine generates 2 error messages
.first title COMMAND TEST
.ps 20,70,0,0,1.header spacing 1
.nf
_.define command /block/c;Block command
.define command /block/c;Block command
_.define command /end   block/c;End Block command
.define command /end   block/c;End Block command
.define command /end block/*** ERROR #1
.s
_.block
.block
_.end  block
.end  block
_.end block
.end block
_.endblock
.endblock
.s2
.end blocks.;*** ERROR #2