home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / TPSQAPI1 / DEMOS / TESTADD.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1992-02-13  |  354 b   |  18 lines
  1. uses strings,msgtosq,fidofmt;
  2.  
  3. var sqfile  : string;
  4.     sdmfile : string;
  5.     newnum  : word;
  6.     res     : integer;
  7.     mrec    : _fidomsgtype;
  8.  
  9. begin
  10.  
  11. write('enter SDM file : ');    readln(sdmfile);
  12. write('enter squish file : '); readln(sqfile);
  13.  
  14. res := SDMToSQD(sdmfile,sqfile,mrec,newnum,True);
  15.  
  16. writeln('result code = ',res);
  17. end.
  18.