REM This example shows how you can read REM the contents of a directory. REM Currently it is set up to read the REM contents of the ROM drive. PROC FILE: LOCAL x%,x$(128) REM change the following line to change REM the directory looked at. PRINT DIR$("ROM::*.*") REM PRINT DIR$("LOC::M:\TST\*.*") DO x$=DIR$("") PRINT x$ IF x%=15 GET CLS x%=-2 ENDIF x%=x%+1 UNTIL x$="" GET REM COPY "ROM::Calc.app","M:\OPL\" ENDP