************ File DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;2 30 IF (ASTRING(24:27).EQ.'DERI') GOTO 55 31 IF (ASTRING(24:27).EQ.' ') GOTO 55 32 IF (ASTRING(6:18).EQ.' reflections ') goto 200 ****** File DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;1 30 IF (ASTRING(25:28).EQ.'DERI') GOTO 55 31 IF (ASTRING(25:28).EQ.' ') GOTO 55 32 IF (ASTRING(6:18).EQ.' reflections ') goto 200 ************ ************ File DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;2 35 DSTRING=ASTRING(24:27) 36 DERI=0 ****** File DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;1 35 DSTRING=ASTRING(25:28) 36 DERI=0 ************ Number of difference sections found: 2 Number of difference records found: 3 DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=DISK$XRAY2:[BERRY.FOR]DIF.DIF;1- DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;2- DISK$XRAY2:[BERRY.FOR]PRT2LCF.FOR;1