Прочитать из первого файла и записать во второй файл символы, исключая нижний регист - QBasic

CLS
DIM nam AS STRING
DIM nam1 AS STRING
DIM T AS STRING
DIM S AS STRING
INPUT "NAME = "; nam
 
OPEN nam + ".txt" FOR OUTPUT AS #1
 
INPUT "Vvod STRORI = "; T
PRINT #1, T
nam1 = nam + "1"
 
CLOSE #1
OPEN nam + ".txt" FOR INPUT AS #1
OPEN nam1 + ".txt" FOR OUTPUT AS #2
 
LINE INPUT #1, T
 
FOR i = 1 TO LEN(T)
   S = MID$(T, i, 1)
   IF "A" <= S AND S <= "Z" THEN PRINT #2, S;
NEXT i
END