home *** CD-ROM | disk | FTP | other *** search
- { --------------------------------------------------------------------------- }
- { }
- { BlueBEEP was planned, coded and developed by Onkel Dittmeyer. }
- { Copyright (C) 1993-1994 by Onkel Dittmeyer }
- { All rights reserved }
- { }
- { This project was started March 1, 1993 }
- { }
- { --------------------------------------------------------------------------- }
-
- { requires to compile: Turbo Pascal 6.0 or later, sys6a system.tpu, sostool
- overlay merger, optional lzexe or pklite.
- for compilation procedure see built.bat. }
-
- { requires to run: 286+ w/ 580k+ of available ram and approx. 1 mb disk
- space. optional: color display, mouse. to run properly,
- a adlib or (better) soundblaster card is suggested. }
-
- { PLEASE DO NOT CIRCULATE THIS SOURCE CODE WITHOUT PRIOR CONSENT OF ME OR GOD }
-
- {$F-} { declare calls to be NEAR }
- {$G+} { force gen. of 286 code }
- {$R-} { disable range checking }
- {$M 16384,0,640000} { 16k stack, 640k heap }
-
- uses
- bbp_vars, { Variables & Constants }
- bbp_init, { Initialization & Loading }
- bbp_set, { Setup functions, cfg file }
- bbp_tool, { Tools, file i/o }
- bbp_info, { Infomenu, documentation }
- bbp_pom, { Main Stuff, dialer iface }
- bbp_proc, { Procedures, Functions... }
- grmenus; { Green Menus --> curpos }
-
- { ******** CODE ************************************************************* }
-
- begin
- init('BlueBEEP');
- startup;
- repeat
- result:=hormenu(2);
- result:=curpos;
- case result of
- 1:setup;
- 2:tools;
- 3:phreakoutmenu;
- 4:info;
- 5:quit;
- end;
- until false;
- end.
-
- { ******** END OF SOURCE FILE *********************************************** }