home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / GENUTIL / FKFOS102.ZIP / SAMPLES.ZIP / SIMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1994-12-27  |  942b  |  21 lines
  1. (* SIMPLE.PAS    -- A simple demonstration of how easy it is to create a
  2.                     fully functional door with the FKFOSSIL unit.          *)
  3.  
  4. Uses FKFOSSIL;                                            { Include library }
  5.  
  6. VAR ch : Char;
  7.  
  8. BEGIN
  9. fk_ReadDORINFO('');                             { Read in DORINFO1.DEF file }
  10. if fk_Host.Error <> 9 then                         { If successful, then... }
  11.    BEGIN
  12.    fk_Initfossil_DF(25);                       { Open Fossil, Statusline=25 }
  13.                                                           { Display strings }
  14.    fk_Writeln('',1);
  15.    fk_Writeln('This is a simple program demonstrating the ease of creating',1);
  16.    fk_Writeln('online doors with FKFOSSIL.  Press any key to continue...',1);
  17.    Ch:=fk_Read;                                              { Wait for key }
  18.    fk_DeInitfossil;                                          { Close Fossil }
  19.    END;
  20. END.
  21.