| Quintiq file version 2.0 | 
| #parent: #root | 
| Method WriteToAlgorithm (String id, String message) const | 
| { | 
|   Description: 'Write the given message to the `Algorithm` stored at the given id in the `AlgorithmStore`.' | 
|   TextBody: | 
|   [* | 
|     algorithm := this.Channel().GetAlgorithm( id ); | 
|      | 
|     count := RealToNumber::ISOConverter().Convert( algorithm.RetrieveReal( LibOpt_Channel::Algorithm_Count() ) ); | 
|      | 
|     index := LibOpt_Channel::Algorithm_Index( count ); | 
|     algorithm.StoreString( index, message ); | 
|     algorithm.StoreReal( LibOpt_Channel::Algorithm_Count(), NumberToReal::ISOConverter().Convert( count + 1 ) ); | 
|      | 
|     AlgorithmStore::Store( id, & algorithm ); | 
|   *] | 
|   InterfaceProperties { Accessibility: 'Module' } | 
| } |