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

  1. { --------------------------------------------------------------------------- }
  2. {                                                                             }
  3. {        BlueBEEP was planned, coded and developed by Onkel Dittmeyer.        }
  4. {                 Copyright (C) 1993-1994 by Onkel Dittmeyer                  }
  5. {                            All rights reserved                              }
  6. {                                                                             }
  7. {                   This project was started March 1, 1993                    }
  8. {                                                                             }
  9. { --------------------------------------------------------------------------- }
  10.  
  11. { requires to compile: Turbo Pascal 6.0 or later, sys6a system.tpu, sostool
  12.                        overlay merger, optional lzexe or pklite.
  13.                        for compilation procedure see built.bat. }
  14.  
  15. { requires to run:     286+ w/ 580k+ of available ram and approx. 1 mb disk
  16.                        space. optional: color display, mouse. to run properly,
  17.                        a adlib or (better) soundblaster card is suggested. }
  18.  
  19. { PLEASE DO NOT CIRCULATE THIS SOURCE CODE WITHOUT PRIOR CONSENT OF ME OR GOD }
  20.  
  21. {$F-}                { declare calls to be NEAR }
  22. {$G+}                { force gen. of 286 code   }
  23. {$R-}                { disable range checking   }
  24. {$M 16384,0,640000}  { 16k stack, 640k heap     }
  25.  
  26. uses
  27.   bbp_vars,   { Variables & Constants     }
  28.   bbp_init,   { Initialization & Loading  }
  29.   bbp_set,    { Setup functions, cfg file }
  30.   bbp_tool,   { Tools, file i/o           }
  31.   bbp_info,   { Infomenu, documentation   }
  32.   bbp_pom,    { Main Stuff, dialer iface  }
  33.   bbp_proc,   { Procedures, Functions...  }
  34.   grmenus;    { Green Menus --> curpos    }
  35.  
  36. { ******** CODE ************************************************************* }
  37.  
  38. begin
  39.   init('BlueBEEP');
  40.   startup;
  41.   repeat
  42.     result:=hormenu(2);
  43.     result:=curpos;
  44.     case result of
  45.       1:setup;
  46.       2:tools;
  47.       3:phreakoutmenu;
  48.       4:info;
  49.       5:quit;
  50.     end;
  51.   until false;
  52. end.
  53.  
  54. { ******** END OF SOURCE FILE *********************************************** }
  55.