program CRT003 { RTE200 fix verifier } ;
uses Crt ;
var T0, T1 : longint ; Ch : char ;
BEGIN
Writeln('CRT003.PAS  www.merlyn.demon.co.uk  >=2002-03-02 ;') ;
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) ;
T0 := MemL[Seg0040:$6C] ;
for Ch := #9 downto #0 do begin Delay(1000) ; Write('.') end ;
T1 := MemL[Seg0040:$6C] ;
Writeln(T1-T0:5, ' @ 18.2 Hz.'^G) ;
END.