// Testing SET

PROCEDURE Main()

   LOCAL n

   FOR n := 1 TO _SET_COUNT
      ? Set( n )
   NEXT

   RETURN