RosettaCodeData/Task/Loops-N-plus-one-half/Basic09/loops-n-plus-one-half.basic

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