home *** CD-ROM | disk | FTP | other *** search
-
- // examples: scanning
-
- // show first non-blank line of all
- // .TXT files in your windows directory
-
-
- // nb: you may have to change the next line :-
- for each file "*.TXT" in "c:\windows"
- input afile
- skip lines until (line<>"")
- write (afile ": " line)
-
- // comment out the next line to make the program run faster
- refresh
-
- next
-