10 TEXT:NORMAL:HOME
15 Directory$= PREFIX$
20 OPEN#1 AS INPUT,Directory$
25 DIM Title$(54):REM May require increase for sub-directories.
30 ON EOF#1 OFF EOF#1:CLOSE#1:GOTO 45
35 Count=0:REM Initialize variable
40 INPUT#1;Title$(Count):Count=Count+1:GOTO 40
45 FOR Line=0 TO Count:PRINT Title$(Line):NEXT