Download 90Jun_Campbell - Calhoun: The NPS

if Copy(Choice,4,1) -,then
begin
Writein(F,Concat(Copy(ChoiceI ,3),'-#1'));
Writeln(F,Concat(Copy(Choice,1 ,3),'-#2'));
Writeln(F,Concat(Copy(Choice 1,3),'_#3'));
end
else
begin
Writeln(F,Concat(Copy(Choice, 1,4),'_#1'));
Writein(F,Concat(Copy(Choice, ) #')
Writeln(F,Concat(Copy(Choice,1 ,4),'_#3'));
end;
Writeln(f1 ,Choice);
for Counteri : I to Counter-i do
if ACArray[Counteri ] - Choice then
*
ACArray[CounterlJ ]
Assign(F2,'Aircraft.rec');
ReWrite(F2);
Writeln (F2, 'AIRC RAFT');
Write ln(F2,320);
Writeln(F2, 50);
Writeln(F2, 1);
for Counteri : 1 to Counter-i do
if ACArray[CounterlJ <> '' then
Writeln(F2,ACArray(Counterl1)
Close(F2);
ACMenu. lnt('Aircraft.rec');
Choice: ACMenu.GetChoice;
end;
DialogScreen.Hide;
Dialog Screen. Kill;
Close(F);
Close(F1);
end;
procedure AddAC;
const
ALPHA = '' ''''.Za..z,-J
var
ACName name;
Dirlnfo :SearchRec;
Counteri ,Counter2 :integer;
Size :word;
P pointer;
s string;
FileName :string;
F :file;
98