home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
BASIC
/
POWBASIC
/
LIBRARY4
/
TTDIR1.ZIP
/
TTD100.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-24
|
327b
|
22 lines
'
' Demo using PowerBasic 2.10 Directory command along with using the DTA
' area to get extended file information.
'
$LINK "TTDIR100.PBU"
DIM UDir$(255)
Path$ = COMMAND$
IF Path$ = "" THEN
Path$ = "*.*"
END IF
N% = 0
CALL GetDir100(Path$, UDir$(), N%)
FOR J% = 0 TO N%
PRINT UDir$(J%)
NEXT J%