DO WHILE .T.
STORE 'RE-ORDER REPORT' TO TOP1
DO TOP
STORE 'S' TO PS
@ 5,0 SAY 'OUTPUT TO (P)RINTER OR (S)CREEN - ' GET PS PICTURE '!'
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
SELECT 5
GOTO TOP
STORE 70 TO ROW
STORE 0 TO MCOST
DO WHILE .NOT. EOF()
SELECT 5
IF LLEVEL = 0
 SKIP
 LOOP
ENDIF
IF PS = 'S'
 IF ROW > 22 .AND. ROW <> 70
  @ 23,0 CLEAR
  STORE ' ' TO SEL
  @ 24,0 SAY 'SCREEN FULL ... PRESS ANY KEY TO CONTINUE ' GET SEL
  READ
  STORE 4 TO ROW
  IF CL = 1
   PRESSED = LASTKEY()
   IF PRESSED = 27
    RETURN
   ENDIF
  ENDIF
  @ 4,0 CLEAR
 ENDIF 
ELSE
 IF ROW > 60 .AND. ROW <> 70
  EJECT
 ENDIF
 STORE 4 TO ROW
ENDIF
IF ROW = 70
 STORE 4 TO ROW
ENDIF
IF ROW = 4
 @ 0,0 CLEAR
 @ ROW-2,0 SAY 'PART #       DESC       VENDOR                 ONHAND  LOW LEV  REORDER     COST'
 @ ROW-1,0 SAY '--------------------------------------------------------------------------------'
ENDIF
@ ROW,0 SAY PNUM
@ ROW,8 SAY SUBSTR(PDESC,1,15)
STORE LVEN1 TO MVNUM
SELECT 3
SET ORDER TO 1
SEEK MVNUM
IF .NOT. EOF()
 STORE NAME TO MNAME
ELSE
 STORE 'NOT FOUND      ' TO MNAME
ENDIF
@ ROW,28 SAY SUBSTR(MNAME,1,15)
SELECT 5
@ ROW,46 SAY STR(ONHAND,8,2)
@ ROW,54 SAY STR(LLEVEL,8,2)
STORE LLEVEL TO MORDER
IF ORDERQTY <> 0
 DO WHILE MORDER < HLEVEL
  STORE MORDER + ORDERQTY TO MORDER
 ENDDO
ELSE
 STORE HLEVEL TO MORDER
ENDIF 
@ ROW,62 SAY STR(MORDER,8,2)
STORE LCOST1*MORDER TO MMCOST
@ ROW,71 SAY STR(MMCOST,9,2)
STORE MCOST + MMCOST TO MCOST
STORE ROW+1 TO ROW
SKIP
ENDDO 
@ ROW,71 SAY '----------'
@ ROW+1,71 SAY STR(MCOST,9,2)
IF PS = 'S'
 @ 24,0 CLEAR
 STORE ' ' TO SEL
 @ 24,0 SAY 'END OF LISTING ... PRESS RETURN TO CONTINUE ' GET SEL
 READ 
ELSE
 EJECT
ENDIF
ENDDO