Decision Computer International Watch dog 1 Operation Manual page 18

Operations Manual
clrscr;
writeln('Menu Choices');
writeln('');
writeln('1] Enable/Disable');
writeln('2] Refresh');
writeln('3] Exit');
write('Please enter your choices: ');
UserChoice := readkey;
delay(70);
case UserChoice of
'1':
if (Status = FALSE) then
begin
Status := TRUE;
value:=port[WDAddress];
writeln('The Watch Dog has been enabled. . .');
ans := readkey;
end
else
begin
Status := FALSE;
value:=port[WDAddress+1];
writeln('The Watch Dog has been disabled. . .');
ans := readkey;
end;
'2':
if (Status = TRUE) then
begin
value:=port[WDAddress+1];
value:=port[WDAddress];
writeln('');
write('Watch Dog Refresh');
DECISION Computer International
Watch dog timer card
18