+0URQR"E%R'QR< ! UPCASE.TEC -- change lowercase letters to upper ! ! case until a non-alpha character is encountered. ! ! Sequence above guarantees an argument of at least one to the main ! ! loop so that macro can be invoked with repeat count. ! < 0A"A ! Get character after pointer, test for alpha ! 0A"V ! Test same for lowercase alpha ! (0A-32)I ! Create uppercase of same and insert it ! D ! Delete the lowercase version ! |C' ! Not lowercase, move past it. ! |C0;' ! Not alphabetic, move pointer and exit from loop ! > ! End inner loop ! > ! End loop, end macro. !