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::")
  DO
    x$=DIR$("")
    PRINT x$
    IF x%=15
      GET
      CLS
      x%=-2
    ENDIF
    x%=x%+1
  UNTIL x$=""
  GET
ENDP