
Lib_rms
    (RMS)

---


OpenSuite(name, vendor, suite: string): RecordStore;
 -   
   name -  
   vendor -  ( )  
   suite -   
   (       )

SetMode(mode, write: integer);
 -      
   mode -        
   (0 -     , 1 - )
   write -     
   (0 -     , 1 - )

GetList: integer;
 -     ;
       ;
      

GetRec(i: integer): string;
 -      i   (. GetList)

AddString(rs: RecordStore; s: string): integer;
 -        ;
       -1   

AddPicture(rs: RecordStore; pic: image): integer;
 -       ;
       -1   

SaveString(rs: RecordStore; s: string; i: integer);
 -   s        i

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

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

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


---

by odd
