misc/INITNODE.PAS

Program initNode;
        uses crt,dos,genTypes,configRt,skaShit,genSubs;
{$I ANSIS.SKA}
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
procedure nDrawScreens(scrn : byte);
 begin
  if (scrn=1) then
   begin
   clrscr;
   move(header12,mem[$b800:0000],sizeOf(header12));
   window(22,9,76,20);
   skaWrite('|B0|07Infusion BBS Node Initialization Utility (c) skaboy101|CR');
   end;
 end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
procedure nGetInput;
 var newnode : byte;
 begin
 readCfg(false);
 newnode := cfg.totalNodes+1;
 skaWrite('|07total nodes found   |15:|07:|08: |03'+strr(cfg.totalNodes)+'|CR');
 skaWrite('|07initing node number |15:|07:|08: |03'+strr(newNode)+'|CR');
 skaWrite('|07select node type    |15:|07:|08: |03 ');
 end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
procedure nInitProc;
 begin
 nDrawScreens(1);
 nGetInput;
 end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
nInitProc;
end.