BBS: Inland Empire Archive Date: 06-10-93 (00:49) Number: 268 From: TIM BENNETT Refer#: NONE To: EVANS MARTIN Recvd: NO Subj: (3 of 3) DIR$ to array Conf: (2) Quik_Bas
'>>> Start of page 3. END IF dirnum = dirnum + 1 dir$(dirnum) = FileTemp$ + FSize$ + " " + FDate$ + " "_ + FTime$ IF Buffer.Attributes = 4096 AND filedir = 1 THEN MID$(dir$(dirnum), 13, 9) = "<dir> " END IF Buffer.Attributes = 0 Buffer.AccessTime = 0 Buffer.AccessDate = 0 Buffer.FileSize = 0 Buffer.FileName = STRING$(13, 32) RETURN END SUB '________O_/________________________| SNIP |______________________\_O_______ ' O \ | HERE | / O $$ ... Grandma got run over by a reindeer... --- GEcho/beta * Origin: Home - FalconWorks SoftWare - Mail Only (1:362/466.0)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET