#pas
procedure THiAsmClass.setOut;
// или функция 
begin
// здесь парсим rString и выводим на левые точки
end;

Procedure THiAsmClass.InexInList;
Begin
 ind:=toInteger(_Data);
// rString:= читаем из листа параметров;
   SetOut;
End;
Procedure THiAsmClass.IndexInData;
Begin
 ind:=toInteger(_Data);
// rString:= читаем из верхней точки
   SetOut;
End;
Procedure THiAsmClass.onInput;
Begin
 rString:=toString(_Data); // читаем строку со входа
 SetOut; 
End;

#pas
ReadXXXXX(_Data, _data_Parameters, _prop_Parameters);