Power-Programmierung/CD1.mdf/magazine/drdobbs/1991/09/bob/t.bob

Text File | 1991-07-10 | 199b | 11 lines

main()
{
    a = "ABCDabcd";
    for (i = 0; i < 8; ++i)
    print(a[i],"\n");
    for (i = 0; i < 8; ++i)
    if (a[i] >= 'a' && a[i] <= 'z')
        a[i] = a[i] - 'a' + 'A';
    print(a,"\n");
}