DO WHILE .T.
store 'Monitors, Network cards, Memory chips, DTK, Windows' TO QQQ
USE ISCAN
CLEAR
STORE 'SCAN INVENTORY ITEMS' TO TOP1
DO TOP
STORE ' ' TO SEL1
@ 8,30 SAY '1 - SCAN INVENTORY ITEMS '
@ 10,30 SAY '2 - LIST/EDIT SCANNED INVENTORY ITEMS'
@ 14,0 SAY 'Enter selection - ' get sel1 picture '!'
@ 20,0 say 'Scan ONLY the following items:'
@ 22,0 SAY QQQ
read
PRESSED = LASTKEY()
IF PRESSED = 27
 RETURN
ENDIF
IF SEL1 = '1'
 DO ISCAN1
ENDIF
IF SEL1 = '2'
 DO ISCAN2
ENDIF
ENDDO