*     INVNEXT.CMD
*
SKIP
IF EOF
   GOTO TOP
ENDIF
DO INVENT.GET

FOR author = fvalue
ENDCASE
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  do whil cont
STORE T TO fcont
DO WHILE fcont
DO INVENT.GET
@ 22, 5 SAY '(N)EXT  (B)ACK  (E)XIT ?                                       '
@ 22,30 SAY ' '
SET CONSOLE OFF
WAIT TO fchoice
STORE !(fchoice) TO fchoice
SET CONSOLE ON
@ 23,5 SAY '                                                         '
@ 22,78 SAY ' '
*
*     Check fo