STORE "LIST PO'S NOT RECEIVED" TO TOP1
DO TOP
STORE 70 TO ROW
SELECT 4
GOTO TOP
STORE 'Y' TO PPO
STORE 0 TO QPO
DO WHILE .NOT. EOF() 
IF ROW > 22
 IF ROW <> 70
  STORE ' ' TO SEL
  @ 24,0 CLEAR
  STORE 'Y' TO PPO
  @ 24,0 SAY 'SCREEN FULL - PRESS ANY KEY TO CONTINUE ' GET SEL
  READ
 ENDIF
 STORE 4 TO ROW
 @ ROW,0 CLEAR
 @ ROW,0 SAY ' PO   VEN #    NAME       DATE     PART          DESCRIPTION'
 STORE ROW+1 TO ROW
 @ ROW,0 SAY '------------------------------------------------------------'
 STORE ROW+1 TO ROW
ENDIF
IF DTOC(RECDATE) = '  /  /  '
 SELECT 4
 STORE PO TO MPO
 STORE TRIM(PNUM) TO MPNUM
 SELECT 2
 SEEK MPO
 IF EOF()
  STORE 0 TO MVNUM
  STORE CTOD('01/01/80') TO MDATE
 ELSE
  STORE VNUM TO MVNUM
  STORE DATE TO MDATE
 ENDIF
 SELECT 3
 SET ORDER TO 1
 SEEK MVNUM
 IF EOF()
  STORE 'NOT FOUND            ' TO MNAME
 ELSE
  STORE NAME TO MNAME
 ENDIF
 SELECT 4
 IF PPO = 'Y'
  @ ROW,0 SAY STR(MPO,4,0) + '  ' + STR(MVNUM,5,0) +  '  ' + SUBSTR(MNAME,1,10) + '  ' + DTOC(MDATE) + '  ' + MPNUM + '  ' + SUBSTR(DESC,1,30) 
 ELSE
  @ ROW,0 SAY '             ' + SUBSTR(MNAME,1,10) + '  ' + DTOC(MDATE) + '  ' + MPNUM + '  ' + SUBSTR(DESC,1,30) 
 ENDIF
 STORE ROW+1 TO ROW
ENDIF
STORE PO TO QPO
IF ROW = 21
 @ 23,0 SAY ' '
 WAIT
 @ 5,0 CLEAR
 STORE 5 TO ROW
ENDIF
SKIP
IF PO <> QPO
 STORE ROW+1 TO ROW
 STORE 'Y' TO PPO
ELSE
 STORE 'N' TO PPO
ENDIF
ENDDO
@ 23,0 SAY ' '
WAIT 'END OF LIST             '