Program ConvertFD.pas

Uses Crt,DOS;

{$I style.inc}
{$I upstr.inc}

Var
  IFS,OFS:Text;
  RCH:Char;
  SRC,TRG:String[80];
  TXT[255]:STRING;
  CTR,WTH:Integer;

Procedure Usage;
Begin
  Style(0,1);
  Style(1,1);
  Style(3,1);
  WriteLn('ConvertFD v1.00 by Zebedee ',#$a9,'1998 Area 51 (31-Jan-98)');
  Style(0,1);
  WriteLn;
  WriteLn('Usage: ConvertFD <source.fd> <target.txt>');
  Halt(10);
  WriteLn('$VER: ConvertFD v1.00 (31-Jan-98) ');
End;

Procedure GetParams;
Begin
  If ParamCount<>2 Then Usage;
  SRC:=UpStr(ParamStr(1));
  TRG:=UpStr(ParamStr(2));
  If SRC=TRG Then
  Begin
    WriteLn(ParamStr(0),': Filename and output cannot match');
    Halt(20);
  End;
End;

Procedure ExtractCommand();
Begin
  
End;

Procedure ConvertFile;
Begin
  CTR:=0;
  Assign(IFS,SRC);
  Reset(IFS);
  Assign(OFS,TRG);
  ReWrite(OFS);
  WriteF('Converting "',SRC,'" to "',TRG,'"...");
  ReadLn(IFS,TXT)
  Write(OFS,'File: ',TXT)
  While not Eof(IFS) Do
  Begin
    Read(IFS,TXT);
    IF TXT[1]='#' Then ExtractCommand()
  End;
  Close(OFS);
  Close(IFS);
End;

Begin
  GetParams;
  StripFile;
End.