misc/INFUPLAY.PAS

Program InfPlay;
        uses skaShit,playShit,crt,gensubs,genTypes;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure pDrawScreens(scrn : byte);
 var pCount : 1..80;
 begin
  if (scrn=1) then
   begin
   clrscr;
   skaWrite('|08-- |15INFUPLAY.EXE, Infusion BBS External Chat Paging Utility, ver '+versionNum+'|CR');
   skaWrite('|08-- |07(c)Copyright Grant Passmore (skaboy101) / avenge! 1998|CR');
   for pCount := 1 to 80 do skaWrite('|08─');
   end else
   begin
   skaWrite('|07Error, usage is '+paramStr(0)+' <chatpage.xxx>|CR');
   halt(5);
   end;
 end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure pPlayFile;
 var textF  : text;
     inShit : string;
 begin
 assign(textF,paramStr(1));
 reset(textF);
  repeat
  if (eof(textF)=true) then reset(textF);
  readln(textF,inShit);
  play(inShit);
  delay(50);
  until (keyPressed=true);
 close(textF);
 end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
pDrawScreens(1);
if exist(paramStr(1)) then pPlayFile else pDrawScreens(2);
end.