SAVE SCREEN 
CLEAR GETS
@ 5,0 CLEAR
@ 5,0 SAY 'PART# |VEN1    COST1    DATE1 |VEN2    COST2    DATE2 |VEN3    COST3    DATE3|OR'
@ 6,0 SAY '------|-----------------------|-----------------------|----------------------|--'
STORE RECNO() TO LRRR
SELECT 1
GOTO LRRR
STORE 11 TO CC
STORE 10 TO CCC
STORE 0 TO Q5T,Q4T,TTAX
STORE 7 TO MMROW
DO WHILE CC <> 0
SELECT 1
STORE 'QPART' + STR(CCC,2,0) TO Q2
STORE 'QDESC' + STR(CCC,2,0) TO Q3
STORE CC-1 TO CC
STORE CCC+1 TO CCC
IF SUBSTR(&Q2,1,1) <> ' '
 STORE &Q2 TO LL 
 SELECT 2    
 GOTO TOP
 FIND &LL
 IF EOF()
  SELECT 1
  REPLACE &Q3 WITH 'NO FIND'   
 ELSE
  STORE LCOST1 TO MC1
  STORE LCOST2 TO MC2
  STORE LCOST3 TO MC3
  STORE LVENDOR1 TO MV1
  STORE LVENDOR2 TO MV2
  STORE LVENDOR3 TO MV3
  STORE LDATE1 TO MD1
  STORE LDATE2 TO MD2
  STORE LDATE3 TO MD3
  SELECT 1
  @ MMROW,0 SAY &Q2
  @ MMROW,8 SAY MV1
  @ MMROW,13 SAY STR(MC1,7,2)
  @ MMROW,22 SAY MD1
  @ MMROW,32 SAY MV2
  @ MMROW,37 SAY STR(MC2,7,2)
  @ MMROW,46 SAY MD2
  @ MMROW,56 SAY MV3
  @ MMROW,61 SAY STR(MC3,7,2)
  @ MMROW,70 SAY MD3
 ENDIF
ENDIF
STORE MMROW+1 TO MMROW
ENDDO
SELECT 1

SELECT 1
GOTO LRRR
RESTORE SCREEN
RETURN

MC3
  STORE LVENDOR1 TO MV1
  STORE LVENDOR2 TO MV2
  STORE LVENDOR3 TO MV3
  STORE LDATE1 TO MD1
  STORE LDATE2 TO MD2
  STORE LDATE3 TO MD3
  SELECT 1
  @ MMROW,0 SAY &Q2
  @ MMROW,8 SAY MV1
  @ MMROW,13 SAY STR(MC1,7,2)
  @ MMROW,22 SAY MD1
  @ MMROW,32 SAY MV2
  @ MMROW,37 SAY STR(MC2,7,2)
  @ MMROW,46 SAY MD2