GEMini Atari/GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso/files/language/isetl/map.t

Text File | 1987-08-20 | 297 b | 14 lines

program capitalize;
    little  := "abcdefghijklmnopqrstuvwxyz";
    capital := "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    cap_of  := { [a,capital(i)] : a=little(i) };
    read word;
    result := "";
    for a in word do
    result := result + cap_of(a) ? a;
    end;
    print result;
end;

"try This 123";