ERASE
? 'FILE:TVIEW'
? '************************* CARD FILE - TITLE SEARCH ***********************'
?
ACCEPT 'ENTER TITLE: ' TO TSEARCH
USE BOOKS INDEX TITLES
LOCATE FOR TITLE = TSEARCH
    DO VIEWSCRN
    RETURN
? '<N>EXT? OR <CR> TO EXIT'
WAIT TO ANOTHER
IF ANOTHER = 'N'
    CONTINUE

                                                                                                                                                                        6       0       0       0 TV MOVIES