home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / psionu_arc / FILES.OPL < prev    next >
Text File  |  1991-04-22  |  157b  |  15 lines
  1. FILES:
  2. LOCAL A$(16)
  3. A$=DIR$("A")
  4. PRINT A$
  5. WHILE LEN(A$)>0
  6.  A$=DIR$("")
  7.  IF LEN(A$)>0
  8.   PRINT A$
  9.  ELSE
  10.   PRINT".end.";
  11.  ENDIF
  12.  PAUSE -30
  13. ENDWH
  14.  
  15.