getverify.pas

{GetVerify.PAS}
 
{ Пример программы для процедур GetVerify и SetVerify }
 
Uses WinDos, WinCrt;
 
Const OffOn : Array [Boolean] Of String[4] = ('выкл', 'вкл');
 
Var V : Boolean;
 
Begin
 GetVerify(V);
 WriteLn('Проверка записи : ', OffOn[V]);
 V:=Not(V);
 WriteLn('Проверку переключена на ', OffOn[V]);
 SetVerify(V);
End.