'****************************************************************************
'
'   CNTRL-C Problem abschalten (nur) in PowerBASIC 3.0
'
'   entwickelt von / developed by   :  Thomas Gohel
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************


$COMPILE EXE
$OPTION CNTLBREAK OFF
SHARED BreakFlag%

BreakAus
Print BreakFlag%
BreakReset

FUNCTION BreakAus public
        'Controll-Break-Interrupt sichern und abschalten
        ! mov ax, &h3300
        ! int &h21
        ! mov BreakFlag%, dx
        ! mov ax, &h3301
        ! mov dx, 0
        ! int &h21
END FUNCTION

FUNCTION BreakReset public
         'Control-Break-Interrupt restaurieren
         ! mov ax, &h3301
         ! mov dx, BreakFlag%
         ! int &h21
END FUNCTION