@ 5,0 CLEAR
@ 5,0 SAY 'QTY  | PART# |                    DESC                    |  COST | PRICE | TX'
@ 6,0 SAY '-----|-------|--------------------------------------------|-------|-------|----'
@ 4,61 SAY 'QUOTE # -' + STR(RECNO(),8,0)
*STORE 7 TO ROW
*STORE 10 TO CCC
*DO WHILE CC <> 0
*STORE 'QQTY' + STR(CCC,2,0) TO Q1
*STORE 'QPART' + STR(CCC,2,0) TO Q2
*STORE 'QDESC' + STR(CCC,2,0) TO Q3
*STORE 'QCOST' + STR(CCC,2,0) TO Q4
*STORE 'QPRICE' + STR(CCC,2,0) TO Q5
*STORE 'QTAX' + STR(CCC,2,0) TO Q6
*SET DELIMITER ON
*@ ROW,0 GET &Q1
*@ ROW,5 GET &Q2
*@ ROW,13 GET &Q3
*@ ROW,58 GET &Q4
*@ ROW,66 GET &Q5
*@ ROW,76 GET &Q6
*STORE ROW+1 TO ROW
*STORE CC-1 TO CC
*STORE CCC+1 TO CCC
*ENDDO
@ 7,0 GET QQTY10
@ 7,6 GET QPART10
@ 7,14 GET QDESC10
IF MCAC = 'Y'
 @ 7,58 GET QCOST10
ENDIF
@ 7,66 GET QPRICE10
@ 7,76 GET QTAX10
@ 8,0 GET QQTY11
@ 8,6 GET QPART11
@ 8,14 GET QDESC11
IF MCAC = 'Y'
@ 8,58 GET QCOST11
ENDIF
@ 8,66 GET QPRICE11
@ 8,76 GET QTAX11
@ 9,0 GET QQTY12
@ 9,6 GET QPART12
@ 9,14 GET QDESC12
IF MCAC = 'Y'
@ 9,58 GET QCOST12
ENDIF
@ 9,66 GET QPRICE12
@ 9,76 GET QTAX12
@ 10,0 GET QQTY13
@ 10,6 GET QPART13
@ 10,14 GET QDESC13
IF MCAC = 'Y'
@ 10,58 GET QCOST13
ENDIF
@ 10,66 GET QPRICE13
@ 10,76 GET QTAX13
STORE 'N' TO REDO
IF CL = 1
 PRESSED = INKEY()
 IF PRESSED = 18 
  SKIP -1
  STORE RECNO() TO LLP
  STORE 'Y' TO REDO
  RETURN
 ENDIF
 IF PRESSED = 3 .AND. .NOT. EOF()
  SKIP 
  STORE RECNO() TO LLP
  STORE 'Y' TO REDO
  RETURN
 ENDIF
 IF PRESSED = 27 
  STORE 0 TO PRESSED
  STORE 'Y' TO REDO
  RETURN
 ENDIF
ENDIF
@ 11,0 GET QQTY14
@ 11,6 GET QPART14
@ 11,14 GET QDESC14
IF MCAC = 'Y'
@ 11,58 GET QCOST14
ENDIF
@ 11,66 GET QPRICE14
@ 11,76 GET QTAX14
@ 12,0 GET QQTY15
@ 12,6 GET QPART15
@ 12,14 GET QDESC15
IF MCAC = 'Y'
@ 12,58 GET QCOST15
ENDIF
@ 12,66 GET QPRICE15
@ 12,76 GET QTAX15
@ 13,0 GET QQTY16
@ 13,6 GET QPART16
@ 13,14 GET QDESC16
IF MCAC = 'Y'
@ 13,58 GET QCOST16
ENDIF
@ 13,66 GET QPRICE16
@ 13,76 GET QTAX16
@ 14,0 GET QQTY17
@ 14,6 GET QPART17
@ 14,14 GET QDESC17
IF MCAC = 'Y'
@ 14,58 GET QCOST17
ENDIF
@ 14,66 GET QPRICE17
@ 14,76 GET QTAX17
@ 15,0 GET QQTY18
@ 15,6 GET QPART18
@ 15,14 GET QDESC18
IF MCAC = 'Y'
@ 15,58 GET QCOST18
ENDIF
@ 15,66 GET QPRICE18
@ 15,76 GET QTAX18
@ 16,0 GET QQTY19
@ 16,6 GET QPART19
@ 16,14 GET QDESC19
IF MCAC = 'Y'
@ 16,58 GET QCOST19
ENDIF
@ 16,66 GET QPRICE19
@ 16,76 GET QTAX19
@ 17,0 GET QQTY20
@ 17,6 GET QPART20
@ 17,14 GET QDESC20
IF MCAC = 'Y'
@ 17,58 GET QCOST20
ENDIF
@ 17,66 GET QPRICE20
@ 17,76 GET QTAX20
SET DELIMITER ON
@ 18,0 SAY 'WORK ORDER # - ' GET WONUM
@ 19,0 GET COMMENTS
SET DELIMITER OFF
STORE ' ' TO SSS
*@ 22,0 SAY 'COMMENTS - ' GET QCOM
SET DELIMITER OFF
@ 23,0 SAY '3=Inv Cost,5=Ord Stat,6=Prt-File,7=Prt Ord,8=Prt Quo,9=Trans Inv,10=Calculate' GET SSS 
@ 24,0 SAY 'MU=MARK UP,INV=0,B=Bot,T=Top,Sxx=Search per,Cxx=Search co,M=Move quote,A=Add' 
RETURN
 GET QQTY20
@ 17,6 GET QPART20
@ 17,14 GET QDESC20
IF MCAC = 'Y'