Составители:
Рубрика:
101
If Not No_Address_Request(NoteType, NoteSN) Then
Begin
Writeln(‘Ошибка! Контроллер не обнаружен!’); Halt(1);
End { of If }
Else
Begin
Writeln(‘ Обнаружено устройство: тип = ‘, NoteType, ‘
серийный номер = ‘, NoteSN);
End; { of Else }
FillChar(Note.Address, SizeOf(Note.Address), 0);
Note.Address[1]:=1;
Writeln(‘Присвоение сетевого адреса...’);
If Not Set_Note_Address(NoteType, NoteSN, Note.Address) Then
Begin
Writeln(‘ Ошибка! Не удалось присвоить сетевой адрес!’);
Halt(1);
End { of If }
Else
Begin
Writeln(‘ Присвоен сетевой адрес = 0000000001’);
End; { of Else }
TickWait(36); {Ожидание около 2 с}
While True Do { Бесконечный цикл }
Begin
Repeat
ClrScr; Writeln;
Writeln(‘ Выбор:’);
Writeln(‘ 1. Создать новый паспорт.’);
Writeln(‘ 2. Прочитать паспорт.’);
Writeln(‘ 3. Выход.’);
Write(‘:’);
Readln(Action);
If Action=3 Then Halt(0);
Until (Action>0) and (Action<4);
Writeln;
Case Action of
1:
Продолжение прил.
