10  REM OFFCTRLC.BAS
20  REM JANUARY 1988 
30  REM DISABLES "CONTROL C BREAK"
40  REM TO Enable after running
50  REM this routine POKE 11,201
100 ASSEMBLY = &H80
200 X = &HB
300 DATA &HFE,&H03,&HC2,&H11,&H00
310 DATA &H97,&HC9,&HFF
400 READ A
500 IF A = &HFF GOTO 900
600 POKE X,A
700 X=X+1
800 GOTO 400
900 POKE &H8,&HCD
1000 X=&H80
1100 DATA &H2A,&H01,&H00,&H3E,&H07
1110 DATA &H85,&H6F,&HEB,&H1A,&H32
1200 DATA &H09,&H00,&H13,&H1A,&H32
1210 DATA &H0A,&H00,&H2A,&H01,&H00
1300 DATA &H3E,&H07,&H85,&H6F,&H3E
1310 DATA &H08,&H77,&H23,&H3E,&H00
1320 DATA &H77,&HC9,&HFF
1400 READ A
1500 IF A = &HFF GOTO 1900
1600 POKE X,A
1700 X=X+1
1800 GOTO 1400
1900 CALL ASSEMBLY
2000 END