MAIN

DEFINE i_bottle      SMALLINT, 
       i_bottle_str  CHAR(20),
       i_bottle_temp SMALLINT,
       s_bottle      CHAR(15),
       i_start       SMALLINT
       
       
LET i_start = 99       

FOR i_bottle = i_start TO 1 STEP -1

   LET i_bottle_temp = i_bottle -1
   
   
   IF i_bottle = 1 THEN
      LET s_bottle = "bottle"
   ELSE
      LET s_bottle = "bottles"
   END IF 
   
   LET i_bottle