DECLARE SUB MKFileName (Num&) COMMON SHARED Filename$ ON ERROR GOTO Errors MKDIR "TRASH" CHDIR "TRASH" FOR Num& = 1 TO 999999 'Filename$ = "NR" + LTRIM$(STR$(Num&)) + ".FIL" MKFileName (Num&) OPEN Filename$ FOR OUTPUT AS 1: PRINT Filename$ + " opened..."; PRINT "written to..."; : PRINT #1, "TRASH" CLOSE #1 PRINT "closed. " NEXT Errors: RESUME NEXT SUB MKFileName (Num&) Filename$ = "NR" FOR Count = 0 TO 5 - LEN(LTRIM$(STR$(Num&))) Filename$ = Filename$ + "0" NEXT Filename$ = Filename$ + LTRIM$(STR$(Num&)) + ".FIL" END SUB