3 lines
83 B
Fortran
3 lines
83 B
Fortran
DO I = 1,LEN(TEXT)
|
|
TEXT(I:I) = XLATUC(ICHAR(TEXT(I:I)))
|
|
END DO
|