unit revinit;

interface
uses  revconst,revrad;

Procedure InitAvail;
Procedure InitMusic;
Procedure InitSubScreen;
Procedure InitKey(speed:byte);
Procedure InitRadVol;
Procedure InitTag;

implementation

Procedure InitTag;
var i:integer;
begin
     for i:= 1 to 18 do
     begin
          tag[i]:=[];
     end;
end;

Procedure InitRadVol;
begin
     vol:=62;
     radvolume(vol);
     volu:=true;
end;


Procedure InitKey(speed:byte);
begin
Port[$60]:=$F3;
Port[$60]:=speed;
end;

{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
(****************************************************************************)
(* Reserved Words - Init Sub Files                                          *)
(****************************************************************************)

Procedure InitAvail;
begin
notavhelp:=[3,4,5,6,7,8];
notavarr[19]:=[7,8,10,13,14,15];
notavarr[1]:=[];
notavarr[2]:=[];
notavarr[3]:=[];
notavarr[4]:=[];
notavarr[5]:=[];
notavarr[6]:=[];
notavarr[7]:=[];
notavarr[8]:=[];
notavarr[9]:=[];
notavarr[10]:=[];
notavarr[11]:=[];
notavarr[12]:=[];
notavarr[13]:=[];
notavarr[14]:=[];
notavarr[15]:=[];
notavarr[16]:=[];
notavarr[17]:=[];
notavarr[18]:=[];
end;

Procedure InitMusic;
begin
lastmus:=11;
curmus:=musdef;
music[1,1]:='RASTER';music[1,2]:='RAD';music[1,3]:='Reality/Void';
music[2,1]:='CRYSTAL2';music[2,2]:='RAD';music[2,3]:='Neo SoftWare';
music[3,1]:='HANGOVER';music[3,2]:='RAD';music[3,3]:='Reality/Void';
music[4,1]:='HUBBARD';music[4,2]:='RAD'; music[4,3]:='Neo SoftWare';
music[5,1]:='NEOINTRO';music[5,2]:='RAD';music[5,3]:='Neo SoftWare';
music[6,1]:='ALLOYRUN';music[6,2]:='RAD';music[6,3]:='Reality/Void';
music[7,1]:='1';music[7,2]:='HSC';music[7,3]:='Neo SoftWare';
music[8,1]:='ZM2';music[8,2]:='HSC';music[8,3]:='DeadKrew';
music[9,1]:='SMJOOP';music[9,2]:='RAD';music[9,3]:='Neo SoftWare';
music[10,1]:='TERRANIA';music[10,2]:='RAD';music[10,3]:='Reality/Void';
music[11,1]:='INTRO';music[11,2]:='HSC';music[11,3]:='Reality/Void';
music[12,1]:='3';music[12,2]:='HSC';music[12,3]:='Neo SoftWare';
music[13,1]:='4';music[13,2]:='HSC';music[13,3]:='Neo SoftWare';
music[14,1]:='5';music[14,2]:='HSC';music[14,3]:='Neo SoftWare';
music[15,1]:='6';music[15,2]:='HSC';music[15,3]:='Neo SoftWare';
music[16,1]:='7';music[16,2]:='HSC';music[16,3]:='Neo SoftWare';
music[17,1]:='8';music[17,2]:='HSC';music[17,3]:='Neo SoftWare';
music[18,1]:='9';music[18,2]:='HSC';music[18,3]:='Neo SoftWare';
music[19,1]:='2';music[19,2]:='HSC';music[19,3]:='Neo SoftWare';
InstallRADTimer;
end;

Procedure InitSubScreen;
var subtemp:sub;
begin
getsubtopics(subscreen[19],subtemp,'mainm');
getsubtopics(subscreen[1],subfile[1],'intro');
getsubtopics(subscreen[2],subfile[2],'insid');
getsubtopics(subscreen[3],subfile[3],'artic');
getsubtopics(subscreen[4],subfile[4],'misc');
getsubtopics(subscreen[5],subfile[5],'revie');
getsubtopics(subscreen[6],subfile[6],'inter');
getsubtopics(subscreen[7],subfile[7],'scene');
getsubtopics(subscreen[8],subfile[8],'highs');
{getsubtopics(subscreen[9],subfile[9],'9'); 9 is group nfos}
getsubtopics(subscreen[10],subfile[10],'top10');
{getsubtopics(subscreen[11],subfile[11],'11'); 11 is game }
getsubtopics(subscreen[12],subfile[12],'secre');
{getsubtopics(subscreen[13],subfile[13],'gques');
getsubtopics(subscreen[14],subfile[14],'pques');}
{getsubtopics(subscreen[15],subfile[16],'16'); 16 is survay }
getsubtopics(subscreen[16],subfile[16],'jobsz');
getsubtopics(subscreen[17],subfile[17],'relat');
helpmenu:=help_menu;
end;

end.