home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / bvdoor10.zip / TERMINAT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-12-19  |  1KB  |  47 lines
  1.  
  2. PROCEDURE terminate(haltcode : BYTE);
  3.     BEGIN
  4.         WRITELN('- ', productname, ' Terminating - ');
  5.         WRITE('Exit Type: ');
  6.         CASE haltcode OF
  7.                 0 : WRITELN('Normal');
  8.                 1 :
  9.                         BEGIN
  10.                             WRITELN('Carrier Lost');
  11.                             {Do what you want in here}
  12.                         END;
  13.                 2 :
  14.                         BEGIN
  15.                             WRITELN('Timelimit Exceeded');
  16.                             {Do what you want in here}
  17.                         END;
  18.                 3 :
  19.                         BEGIN
  20.                             WRITELN('Inactivity Timeout');
  21.                              {Do what you want in here}
  22.                         END;
  23.                 4 :
  24.                         BEGIN
  25.                             IF doorsys THEN
  26.                                 WRITELN('Can not find ', ckpath(exitinfopath), 'Door.Sys')
  27.                             ELSE IF sessioninfo THEN
  28.                                 WRITELN('Can not find ', ckpath(exitinfopath), 'Session.Info')
  29.                             ELSE
  30.                                 WRITELN('Can not find ', ckpath(exitinfopath), 'Dorinfo', getnode, '.Def');
  31.                         END;
  32.                 5 :
  33.                         BEGIN
  34.                             WRITELN('Can not find ', ckpath(exitinfopath), 'Exitinfo.BBS');
  35.                         END;
  36.                 6 :
  37.                         BEGIN
  38.                             WRITELN('Change Directory Error');
  39.                             {Should close all files}
  40.                         END;
  41.                 8 :
  42.                         BEGIN
  43.                             WRITELN('RAXIT Semaphore File Found');
  44.                         END;
  45.             END;
  46. END;
  47.