Exemple
MACRO "directory.mac"
!
! Inputs the directory to be listed
INPUT "Directory ?",Cat$
OPEN DIR Cat$,"*",Err
IF Err THEN
ERROR "FALSE DIRECTORY"
STOP
END IF
! Modifies storage unit
MASS STORAGE IS Cat$
! Loads the number of inputs
GET DIR Nb
FOR I=1 TO Nb
READ DIR Nom$
STAT Nom$;Err,Type,Size,Date
TEXT DATE Date;Date$
TEXT TIME Date;Time$
PRINT USING Fmt;Name$,Size,Date$,Time$
NEXT I
! Print format
Fmt: IMAGE 14A,X,8D,10A,9A
! Closes directory
CLOSE DIR
! End of macro
END
END MACRO
|
