Business BASIC III: Routine to read a SOS directory

Last Modified: October 23, 1984
Article: TA36524
Old Article: 210

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