home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / EDOOR.ZIP / SAMPLE.PAS < prev   
Pascal/Delphi Source File  |  1996-02-11  |  496b  |  13 lines
  1. uses door;
  2. var
  3.   blah: string;
  4.   x: boolean;
  5.  
  6. begin
  7.   doorname:='Sample Door';       {Set the door name                   }
  8.   cfgfn:='Sample.cfg';           {Config File name = sample.cfg       }
  9.   loadcfg;                       {Load/Parse the config file/drop file}
  10.   dclrscr;                       {Clear screen                        }
  11.   TypeFile('blah.ans', false);   {display ansi                        }
  12. end.                             {end!                                }
  13.