100 '**SUB**
110 '= SAVE CONTROL BREAK POINTER =
120 '
130 DEF SEG = 0             'SET SEGMENT POINTER TO 0
140 OFF.LOW% = PEEK(&H6C)   'SAVE CTRL-BRK OFFSET LOW ORDER BYTE
150 OFF.HGH% = PEEK(&H6D)   'SAVE CTRL-BRK OFFSET HIGH ORDER BYTE
160 SEG.LOW% = PEEK(&H6E)   'SAVE CTRL-BRK SEGMENT LOW ORDR BYTE
170 SEG.HGH% = PEEK(&H6F)   'SAVE CTRL-BRK SEGMENT HIGH ORDR BYTE
171 DEF SEG                 'RESTORE SEGMENT POINTER
172 RETURN
180 '**SUB**
181 '==== DISABLE CONTROL BREAK ====
182 '
130 DEF SEG = 0             'SET SEGMENT POINTER TO 0
190 POKE &H6C,&H53          'SET NEW CTRL-BRK OFFSET LOW ORDR BYTE
200 POKE &H6D,&HFF          'SET NEW CTRL-BRK OFFSET HIGH ORDR BYTE
210 POKE &H6E,&H0           'SET NEW CTRL-BRK SEGMENT LOW ORDR BYTE
220 POKE &H6F,&HF0          'SET NEW CTRL-BRK SEGMENT HIGH ORDR BYTE
230 DEF SEG                 'RESTORE SEGMENT POINTER
240 RETURN
245 '**SUB**
250 '==== RESTORE CONTROL BREAK ====
260 '
270 DEF SEG = 0             'SET SEGMENT POINTER TO 0
280 POKE &H6C,OFF.LOW%      'RESTORE CTRL-BRK OFFSET LOW ORDER BYTE
290 POKE &H6D,OFF.HGH%      'RESTORE CTRL-BRK OFFSET HIGH ORDER BYTE
300 POKE &H6E,SEG.LOW%      'RESTORE CTRL-BRK SEGMENT LOW ORDER BYTE
310 POKE &H6F,SEG.HGH%      'RESTORE CTRL-BRK SEGMENT HIGH ORDER BYTE
320 DEF SEG                 'RESTORE SEGMENT POINTER
330 RETURN