Пластиковые карты с открытой памятью. Востриков А.А - 103 стр.

UptoLike

103
Repeat
Check_Card(Card_In);
Writeln;
If Not Card_In Then
Begin
Write(‘Поместите смарт-карту в считыватель и нажмите
любую клавишу.’);
While Not KeyPressed Do;
End; { of If }
Until Card_In;
If (Not Card_Read(0, True)) or (Not Card_Read(1, True)) or
(Not Card_Read(2, True)) or (Not Card_Read(3, True)) Then
Begin
Writeln(‘ Ошибка! Не удалось прочитать смарт-карту!’);
Halt(1);
End { of If }
Else
Begin
Move(Dump[0], PPNum, SizeOf(PPNum));
Move(Dump[4], FIO[0], 60);
Move(Dump[64], Birthday[0], 64);
Move(Dump[128], Home[0], 64);
Move(Dump[192], Appendix[0], 64);
Writeln(‘Предъявлен паспорт ‘, PPNum);
Writeln(‘ ФИО владельца: ‘, FIO);
Writeln(‘ Дата и место рождения владельца: ‘, Birthday);
Writeln(‘ Место жительства владельца: ‘, Home);
Writeln(‘ Дополнительная информация: ‘, Appendix);
End; { of Else }
End;
End; { of Case }
Writeln; Write(‘ Нажмите любую клавишу...’);
While Not KeyPressed Do; {Ожидание нажатия любой клавиши}
End; { of While }
End. { ——————————————————————— }
Окончание прил.