Decision Computer International Watch dog 1 Operation Manual page 17

Operations Manual
INPUT "Press ENTER key to continue", temp
GOTO Inquire
END SELECT
2. EXAMPLE PROGRAM USING PASCAL
{
WDSimple.PAS -> Simple Program for Watchdog (I and II)
Program by Edgardo A Regodon Jr (SrSE) of Decision Asia Inc.
(Phil.)
Jan 1998
}
uses crt,dos;
label
Inquire;
var
UserChoice,ans:char;
WDAddress,Value:integer;
Status:Boolean;
BEGIN
Status := FALSE;
clrscr;
writeln('Please Enter the address of Watch Dog Card (I/II) in
hexadecimal');
writeln('Address Range from 0 decimal to 4094 decimal');
write('Wathc Dog address is: ');
read(WDAddress);
Repeat
DECISION Computer International
Watch dog timer card
17