// Note that this coding should be put before the first "Screen" 
// command in your InputScript 
//
// We assume that the table title is  "All items", 
// and that we are interested in getting the value of column "Item"/ 


// Reset fields
Set V[index] 1
Set V[marked_item] ""
Set V[marked_item2] ""

label next_line

   // End of table?
   if not cell[All items,0,&[index]]
     goto end_of_table
  endif
 
   Set V[marked] "&cell[All items,0,&[index]]"
 
   // Marked?
   if V[marked=X]
     Set V[marked_item2] "&V[marked_item]"          // Only needed if you want to exclude multi-selection

     Set V[marked_item]  "&cell[All items,Item,&[index]]"
     // here you can include other columns as well
   endif
 
   // Next line
   Set V[index] &V[index] + 1
   goto next_line  
 

// Table completely processed
label end_of_table
    
   // Any line marked?
   if not V[marked_item]
     Message "Please mark a line"
     Leave
   endif

   // 2 or more lines marked?
   if V[marked_item2]
     Message "You marked ""&V[marked_item2]"" and  ""&V[marked_item]"" "   "Title=Please mark only one line"
     Leave
   endif

   Message "OK, you marked line ""&V[marked_item]"" "    // For tests only, now you can start your own logic