File names created with only upper case letters

The OPEN statement in TBGold 6.006 creates files with only upper case letters.

A workaround is to use the EXEC_RENAME routine.

I want to:
1. Write tens of thousands of files.
2. Not have Windows Explorer shout the file names at me (ALL CAPS)
3. Not have the disk drive worked extra hard to put file names in lower case letters.

Is there a better way to use lower case characters in file names?

Does the workaround below get the file name in the desired form before the disk write cache commits the file name to the disk? Or does closing the file before renaming it make two writes happen anyway? Renaming the file while it is open doesn't seem to be allowed.

TBeditor.exe was using 81-97% of the CPU just to display the program listing below. It makes my computer noisy when the fan is revved up to cool the processor at this level.

Also: It would be nice if the editor could move to the previous/next word with CTRL-left_/right_arrow_key.

===== begin code for workaround ====
LIBRARY "execlib.trc"
LET fname$= "test.txt"
LET rname$= "Test.txt"

WHEN error in
UNSAVE fname$
USE
END WHEN

PRINT "writing filename - "; fname$

OPEN #1: name fname$, create newold
! close immediately to rename before the write-cache commits
CLOSE #1

LET template$= fname$
DIM name$(0), size(0), dlm$(0), tlm$(0), type$(0)
CALL Exec_ReadDir (template$, name$(), size(), dlm$(), tlm$(), type$(), vname$)
PRINT "Found name - "; name$(1)

PRINT "renaming as - "; rname$
CALL exec_rename(fname$, rname$)
CALL Exec_ReadDir (template$, name$(), size(), dlm$(), tlm$(), type$(), vname$)
PRINT "Found name - "; name$(1)

OPEN #1: name fname$, create newold
! Now do what was wanted with the file.
CLOSE #1

PRINT "done"
END
===== end code for workaround ====