
Lib_rms -       (RMS)

---------------------------------------------------------------------------------------------------------------

RecordStore OpenSuite(name: string; vendor: string; suite: string) -   
    name -  
    vendor -  ( )  
    suite -   
              .
    
SetMode(mode: integer; write: integer) -      
    mode -        
    (0 -       , 1 -         )
    write -     
    0 -        
    1 -          ( )
    
integer GetList -      .      .
        .
    
string GetRec(i: integer) -      i   (. GetList)

integer AddString(rs: RecordStore; s: string) -         (  !)
         -1   
    
integer AddPicture(rs: RecordStore; pic: image) -       
         -1   
    
SaveString(rs: RecordStore; s: string; i: integer) -   s        i

SavePicture(rs: RecordStore; im: image; i: integer) -   im        i

string LoadString(rs: RecordStore; i: integer) -          i

image LoadPicture(rs: RecordStore; i: integer; w: integer; h: integer) -         i
    w  h -      

---------------------------------------------------------------------------------------------------------------

2008 (c) odd
