ERASE ? '********************** CARD FILE - VIEW BOOKS *********************' ? 'SEARCH BY ITLE OR UTHOR?' WAIT TO TA IF TA = 'T' .OR. TA = 't' DO TVIEW ELSE IF TA = 'A' .OR. TA = 'a' DO AVIEW ELSE ? 'ITLE OR UTHOR ONLY' WAIT TO TA ENDIF ENDIF RETURN