Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

  ◄Example► ◄Contents► ◄Index►                                    ◄Back►
 
PROGRAM states;
 
{ STATES.PAS uses the following procedures from the DOS unit:
 
      GetCBreak    GetVerify    SetCBreak
 
  It also uses the CheckBreak standard variable from the Crt unit.
  It does not use SetVerify, but its use is similar.
}
 
USES
    Crt, Dos;
 
CONST
    program_name = 'STATES ';
    program_desc = 'shows settings of DOS and Crt CTRL/BREAK checking'+
                   ' and the verify flag.';
 
VAR
    cbreak_state : Boolean;
    verify_flag  : Boolean;
 
BEGIN
 
    Writeln( program_name, program_desc );
    Writeln;
 
    { Show current settings. }
    GetVerify( verify_flag );
    GetCBreak( cbreak_state );
    Writeln( '     Initial Settings     ' );
    Writeln( '--------------------------' );
    Writeln( 'DOS verify flag    : ', verify_flag );
    Writeln( 'CTRL/BREAK checking: ', cbreak_state );
    Writeln( 'CheckBreak variable: ', CheckBreak );
    Writeln;
 
    { Toggle control-break setting in DOS. }
    SetCBreak( NOT cbreak_state );
    GetCBreak( cbreak_state );
    Writeln( 'After toggling DOS setting' );
    Writeln( '--------------------------' );
    Writeln( 'CTRL/BREAK checking: ', cbreak_state );
    Writeln( 'CheckBreak variable: ', CheckBreak );
    Writeln;
 
    { Toggle control-breaking checking in CRT. }
    CheckBreak := NOT CheckBreak;
    GetCBreak( cbreak_state );
    Writeln( 'After toggling Crt variable');
    Writeln( '---------------------------' );
    Writeln( 'CTRL/BREAK checking: ', cbreak_state );
    Writeln( 'CheckBreak variable: ', CheckBreak );
    Writeln;
 
    Writeln( 'Returning to initial settings.' );
    CheckBreak := NOT CheckBreak;
    SetCBreak ( NOT cbreak_state );
 
END.