/* Love is often unnecessarily complicated, just like this code! */ data _null_; retain SheLovesMe Valentine; input Kiss @@; length Valentine $20.; do Enamored = 1 to Kiss; Cupid + 1; Valentine = Cats( Valentine, SheLovesMe, SheLovesMe*3 ); if not mod( Cupid, 10 ) then do; call execute('%put ERROR-' || translate( Valentine, " < ", "01." ) || ';'); Valentine = ""; end; end; SheLovesMe = not SheLovesMe; cards; 1 3 2 3 1 30 1 8 3 6 5 4 7 2 14 ; run; ... View more