PROCEDURE nAndAHalf
   DIM i:INTEGER
   FOR i:=1 TO 10
      PRINT i;
   EXITIF i=10 THEN ENDEXIT
      PRINT ", ";
   NEXT i
   PRINT