===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-14-93 (09:01)             Number: 119
From: WALT MAYO                    Refer#: NONE
  To: DANNY HATT                    Recvd: NO  
Subj: FILE DATA 2/2                  Conf: (35) Quick Basi
---------------------------------------------------------------------------
And here's a sample program that uses the sub...

--------------------------------------- SNIP

REM Sample Usage of FileInfo Subprogram

DECLARE SUB FileInfo (FSp$, Nm$, FSz&, Yr%, Mon%, Dy%, Hr%, Min%, Sec%, Attr$)

DO
   PRINT "Enter FileSpec  (or [Enter] to end)"
   INPUT FSp$
   IF LEN(FSp$) = 0 THEN END
   CALL FileInfo(FSp$, Nm$, FSz&, Yr%, Mon%, Dy%, Hr%, Min%, Sec%, Attr$)
   IF FSz& < 0 THEN
      PRINT FSp$; " not found"
   ELSE
      PRINT "For FileSpec "; FSp$
      PRINT Nm$, "file name"
      PRINT FSz&, "bytes file size"
      PRINT LTRIM$(STR$(Yr%)); "-"; LTRIM$(STR$(Mon%)); "-";
      PRINT LTRIM$(STR$(Dy%)), "last update date"
      PRINT LTRIM$(STR$(Hr%)); ":"; LTRIM$(STR$(Min%)); ":";
      PRINT LTRIM$(STR$(Sec%)), "last update time"
      PRINT "Attributes = "; Attr$
   END IF
   PRINT "- - - - -"
LOOP


-----------------------------------------------SNIP

--- GoldED 2.40
 * Origin: Periscope! Home of the OPTOMETRY Echo! (1:3627/101)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20