USE INV
DO WHILE .T.
GOTO TOP
STORE 'INVENTORY CHECK IN/OUT' TO TOP1
DO TOP
STORE ' ' TO SEL
STORE 6 TO ROW
STORE 0 TO COL
DO WHILE .NOT. EOF()
@ ROW,COL SAY STR(RECNO(),3,0) + ' ' + DESC
STORE ROW+1 TO ROW
IF ROW=22 
 STORE 6 TO ROW
 STORE COL+40 TO COL
ENDIF
SKIP
ENDDO
STORE '  ' TO SEL
@ 24,0 SAY 'ENTER SELECTION - ' GET SEL PICTURE '!!'
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 RETURN
ENDIF
GOTO VAL(SEL)
STORE DESC TO MDESC
STORE '          ' TO SN
STORE ' ' TO YN
@ 6,0 CLEAR
@ 6,0 SAY 'DESCRIPTION - ' + MDESC
@ 8,0 SAY 'SERIAL # - ' GET SN
@ 10,0 SAY 'ADD TO STOCK (Y/N) - ' GET YN PICTURE '!'
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 RETURN
ENDIF
IF YN <> 'Y'
 LOOP
ENDIF
STORE SN TO MSN
STORE 'Y' TO DNETAPPEND
STORE 'INVSTOCK' TO DNET
DO NETERROR
REPLACE DESC WITH MDESC
REPLACE SN WITH MSN
ENDDO