10 ! PROGRAM NAME -AN BOOK-  BY BOB HUNTSMAN
300 OPEN "INDEX" AS FILE 1%:DIM #1%,I$(150%)=4%,I%(150%)
310 OPEN "PHONIC.AN" AS FILE 2%:DIM #2%,Z$(800%)=128%
320 A%=I%(I%(0%)+1%)
330 INPUT "BOOK";B$;"PAGE";P%:B$=B$+FNN$(P%)
340 I$(I%(0%)+1%)=B$
350 PRINT:PRINT
360 INPUT LINE A$:IF RIGHT(A$,LEN(A$))=CHR$(27%) GOTO 900
370 Z$(A%)=LEFT(A$,LEN(A$)-2%):A%=A%+1%:GOTO 360
900 I%(0%)=I%(0%)+1%:I%(I%(0%)+1%)=A%
910 CLOSE K% FOR K%=1% TO 12%:GOTO 32767
1000 DEF FNN$(V%)
1010 V$=NUM$(V%):FNN$=MID(V$,2%,LEN(V$)-2%)
1020 FNEND
32767 END