STRPDM.COM
A* DSPF NAME:
SRCCMPD1
A
DSPSIZ(24 80 *DS3)
A
R SCREEN1
A
CA03(03 'EXIT')
A
1 2DATE
A
EDTCDE(Y)
A
1 71TIME
A
1 19'COMPARE MEMBERS OF 2 DIFFERENT SOU-
A
RCE FILES'
A
COLOR(WHT)
A
10 2'SOURCE FILE 1:'
A
11 2'SOURCE LIBRARY 1:'
A
12 2'SOURCE FILE 2:'
A
FILE1 10A B 10 20
A
LIB1 10A B 11 20
A
FILE2 10A B 12 20
A
23 2'F3=EXIT'
A
COLOR(BLU)
A
TEXT 75A O 22
2COLOR(WHT)
A
11 32'Name, *LIBL, *CURLIB'
A
10 32'Name'
A
12 32'Name'
A
13 2'SOURCE LIBRARY 2:'
A
LIB2 10A B 13 20
A
13 32'Name, *LIBL, *CURLIB'