.type delete.tst
.type *** This generates 1 ERROR
.type
.first title DELETE TEST
.ps 20,70,0,0,1.header spacing 1
.nf .fl substitute
_.DEFINE SUBSTITUTE /AB/Test substitution
.DEFINE SUBSTITUTE /AB/Test substitution
_$AB
$AB
_$_$DATE
$$DATE
_.DELETE SUBSTITUTE /_$DATE/
.DELETE SUBSTITUTE /$DATE/
_$_$DATE
.type *** The following is undefined subs ERROR 1
$$DATE
.s
_.DEFINE SUBSTITUTE /_$DATE/4-July-1775
.DEFINE SUBSTITUTE /$DATE/4-July-1775
_$_$DATE
$$DATE (date=4-July-1775)
_$AB
$AB