17 lines
459 B
QBasic
17 lines
459 B
QBasic
LowerCase$ = ENVIRON$("LOWERCASE")
|
|
LowerName$ = ""
|
|
NextLetter% = LEN(LowerCase$)
|
|
NewLetter$ = MID$(LowerCase$, NextLetter%, 1)
|
|
if instr(LowerCase$, "\") = 0 then
|
|
LowerName$ = LowerCase$
|
|
else
|
|
DO WHILE NewLetter$ <> "\"
|
|
LowerName$ = NewLetter$ + LowerName$
|
|
NextLetter% = NextLetter% - 1
|
|
NewLetter$ = MID$(LowerCase$, NextLetter%, 1)
|
|
LOOP
|
|
endif
|
|
LowerName$ = LCASE$(LowerName$)
|
|
PRINT "set LOWERCASE=" + LowerName$
|
|
SYSTEM
|