.ENABLE SUBSTITUTION
.IF DIABLO
.VARIABLE SPACING
.flags special [ ] *
.COMMENT Superscript (paper down 1/2 space)
.define escape "^[",27,"D"
.comment Subscript (page up 1/2 space)
.define escape "^]",27,"U"
.comment Start and End Shadow printing for Diablo
.define escape "^*",CHR,LCK,27,"W"
.define escape "\*",CHR,LCK,27,"&"
.ENDIF DIABLO
.IF VIEW
.; Redefine escape sequences for VT100
.; Super/sub script defined as null escape sequences
.define escape "^[",27,"y"
.define escape "^]",27,"y"
.comment Shadow printing uses BOLD attribute
.define escape "^*",CHR,LCK,27,"[","1","m"
.define escape "\*",CHR,LCK,27,"[","0","m"
.; Underlining uses UNDERLINE attribute
.no flags underline
.define escape "^&",CHR,LCK,27,"[","4","m"
.define escape "\&",CHR,LCK,27,"[","0","m"
.ENDIF VIEW