; COMPARE TWO DIRECTORIES AND LIST FILES FOUND WITH THE
; SAME FILENAME, EXTENSION, AND VERSION NUMBER.
; (ENTER ^Z TO EXIT).
.ENABLE SUBSTITUTION
.10:.ASKS AREA1 DISK AND UIC OF AREA 1
.ASKS AREA2 DISK AND UIC OF AREA 2
.ASKS OUT ENTER OUTPUT FILESPEC (<CR> = TI:)
.IF OUT = "" .SETS OUT "TI:"
PIP AREA1.DIR='AREA1'/BR
PIP AREA2.DIR='AREA2'/BR
MUN LB:[201,5]DIRCMP.TEC,'OUT'
PIP AREA1.DIR;*/DE,AREA2.DIR;*
.GOTO 10
