(****************************************************************************)
(*                                                                          *)
(* REV97.PAS - The Relativity Emag (coded in Borland Pascal 7.0)            *)
(*                                                                          *)
(* "The Relativity Emag" was originally written by En|{rypt, |MuadDib|.     *)
(* This source may not be copied, distributed or modified in any shape      *)
(* or form. Some of the code has been derived from various sources and      *)
(* units to help us produce a better quality electronic magazine to let     *)
(* the scene know that we are THE BOSS.                                     *)
(*                                                                          *)
(* Program Notes : This program presents "The Relativity Emag"              *)
(*                                                                          *)
(* ASM/BP70 Coder     : xxxxx xxxxxxxxx (MuadDib) - xxxxxx@xxxxxxxxxx.xxx   *)
(* ------------------------------------------------------------------------ *)
(* Older Coder : xxxxx xxxxxxxxx (En|{rypt)  - xxxxxx@xxxxxxxxxx.xxx :)))   *)
(*                                                                          *)
(****************************************************************************)
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
(****************************************************************************)
(* Reserved Words - The Heading Specifies The Program Name And Parameters.  *)
(****************************************************************************)

Program The_Relativity_Electronic_Magazine_issue_5;

{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
(****************************************************************************)
(* Compiler Directives - These Directives Are Not Meant To Be Modified.     *)
(****************************************************************************)
{$M 65320,000,653600}
{$S 65535}
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
(****************************************************************************)
(* Reserved Words - Statements To Be Executed When The Program Runs.        *)
(****************************************************************************)
{-plans for the future in the coding-
--------------------------------------
* compression
* f1 search in memory (bin)
* more command lines
* vga inroduction

cd player is bugged ... no disk recognize
and no drive recog

/cd    for cd player options..
/music for music options rad or mod..

REMOVE ALL HIDECURSOR !!!!!!!!!!!!!!! NO NEED !!!!!11

{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
(****************************************************************************)
(* Reserved Words - Each Identifier Names A Unit Used By The Program.       *)
(****************************************************************************)

{ i used the rev-non pointer dat.. .. i wonder.. pointers or not ???}

uses  Crt,Dos,revcom,
      revconst,revinit,revmenu,revint,revcfgr,
      revhelp,revpoint,revdos,detectso,revwin,
      revfnt,revrad,revtech,revgfx,revansi,
      revdat,revsmth,revhard,revmouse,revgame,arkanoid;

var beta:boolean;
    score:longint;


Begin {Begin The Best Emag In The Scene}
{---------------------------}
  checkbreak:=false;
  vercheck;
  checkfordat;
  ReadGlobalIndex;
  cc:=1; {menu option}
{-------------------------------------}
  if InstallMouse then mouse:=true
     else mouse:=false;
{-------------------------------------}
  if DetSoundBlaster then adlib:=true
     else adlib:=false;
  if not adlib then mustype:=2
     else mustype:=1;
  if adlib then InstallRADTimer;
{-------------------------------------}
  bar:=false;
  g:=true;
  hard:=true;
  beta:=true;
  if adlib then rand:=true
  else rand:=false;
{-------------------------------------}
  randomize;
  initconfigpointer;
  InitTag;
  read_config;
  DeleteDatFilesInDir;
  Initcommand;
  initprinter;
  RevCommand;
  fontload(config^.font[config^.curfnt]);
  initavail;
  InitradVol;
  Initcd;

if not mouse then
   config^.notavarr[19]:=config^.notavarr[19]+[11];

if beta then
begin
{ - - - - - - - - }
  adlib:=false;
  vga:=false;
  cd:=false;
{ - - - - - - - - }
end;


if hard then
   HardWareInit;

if not beta then
begin

  PhazePre;
  hidecursor;
{----------}
  textbackground(black);
  clrscr;
{----------}
  chbrght;
  ExtractFileFromDat('REVBDAY.BIN');
  smoothscroll('REVBDAY.BIN',0,0);
  deletedatfile('REVBDAY.BIN');
  if keypressed then
     readkey;
  FadedownRGBScreen;
  Reset80x25VideoScreen;
  HideCursor;

end;

  ExtractFileFromDat(config^.DEFMENUFILE);
  Displayansi(config^.DEFMENUFILE);
  initmouse;
  StartMainMenuPhase;
end.