program CRT002 { RTE200 fix verifier } ;
uses Crt ;
var Ch : char ;
BEGIN
Writeln('CRT002.PAS  www.merlyn.demon.co.uk  >=2000-07-11 ;') ;
Writeln('  CheckSnow ', CheckSnow, ' ;  ',
  {$IFDEF MSDOS} 'MSDOS' {$ENDIF} {$IFDEF DPMI} 'DPMI' {$ENDIF} ,
  ' ;  OK.') ;
repeat
  Write('  Press F11 then F9 then Enter : ') ;
  Ch := ReadKey until Ch=#0 ;
Ch := ReadKey ;
if Ch=#133 then Write(' F11 OK => Pedt''s fix applied') else
  Write('  #', Ord(Ch), ' : not F11') ;
repeat until ReadKey=#13 ;
Write(^M^J'  Delay check - ten dots at 1000 ms : '^G) ;
for Ch := #9 downto #0 do begin Delay(1000) ; Write('.') end ;
Writeln(^G) ;
END.