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