home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / hacking / phreak_utils_pc / bsli.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-04-01  |  1.7 KB  |  44 lines

  1. { --------------------------------------------------------------------------- }
  2. {                                                                             }
  3. {        BBP-BSLI was planned, coded and developed by Onkel Dittmeyer.        }
  4. {                    Copyright (C) 1993 by Onkel Dittmeyer                    }
  5. {                                                                             }
  6. {                   This project was started March 1, 1993                    }
  7. {                                                                             }
  8. { --------------------------------------------------------------------------- }
  9.  
  10. {$F-}                { declare calls to be NEAR }
  11. {$G+}                { force gen. of 286 code   }
  12. {$M 16384,0,640000}  { 16k stack, 640k heap     }
  13.  
  14. uses
  15.   bbp_vars,   { Variables & Constants     }
  16.   bbp_init,   { Initialization & Loading  }
  17.   bbp_bsli,   { BSL Interpreter           }
  18.   extras,     { EXIST() function etc      }
  19.   crt;        { clrscr                    }
  20.  
  21. { ******** CODE ************************************************************* }
  22.  
  23. begin
  24.   writeln;
  25.   writeln('BSLI v0.09ß - BlueBEEP Script Language Interpreter (C) 1993 by Onkel Dittmeyer');
  26.   writeln('              All rights reserved. May be distributed and used freely. AnnJoy!');
  27.   writeln;
  28.   if paramcount=0 then begin
  29.     writeln('Usage: BSLI <scriptfile.bsl>');
  30.     halt($ff);
  31.   end;
  32.   if not exist(paramstr(1)) then begin
  33.     writeln('ERROR: Script file ',paramstr(1),' not found.');
  34.     halt($ff);
  35.   end;
  36.   init('BSLI');
  37.   loadscript(paramstr(1));
  38.   for x:=1 to maxnums do dispose(numbers[x]);
  39.   clrscr;
  40.   halt(0);
  41. end.
  42.  
  43. { ******** END OF SOURCE FILE *********************************************** }
  44.