ERASE
? 'THIS PROCEEDURE IS FOR ENTERING NEW TITLES TO THE DATABASE'
WAIT TO CONTINUE
USE BOOKS
DO WHILE CONTINUE <> 'S' .AND. CONTINUE <> 's'
    APPEND BLANK
    ERASE
    DO ZBKSCRN
    READ
    ? '  S TO STOP THE PROCEEDURE'
    ? '  <ENTER> TO CONTINUE'
    WAIT TO CONTINUE
    ENDDO
ENDDO
INDEX ON TITLE TO TITLES
INDEX ON AUTHOR TO AUTHORS
RETURN

, 0 SAY "I                                                                              I"
@  5, 0 SAY "I AUTHOR:"
@  5,10 GET AUTHOR