home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / sysutl / offctrlc.lbr / OFFCTRLC.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-01-17  |  768 b   |  31 lines
  1. 10  REM OFFCTRLC.BAS
  2. 20  REM JANUARY 1988 
  3. 30  REM DISABLES "CONTROL C BREAK"
  4. 40  REM TO Enable after running
  5. 50  REM this routine POKE 11,201
  6. 100 ASSEMBLY = &H80
  7. 200 X = &HB
  8. 300 DATA &HFE,&H03,&HC2,&H11,&H00
  9. 310 DATA &H97,&HC9,&HFF
  10. 400 READ A
  11. 500 IF A = &HFF GOTO 900
  12. 600 POKE X,A
  13. 700 X=X+1
  14. 800 GOTO 400
  15. 900 POKE &H8,&HCD
  16. 1000 X=&H80
  17. 1100 DATA &H2A,&H01,&H00,&H3E,&H07
  18. 1110 DATA &H85,&H6F,&HEB,&H1A,&H32
  19. 1200 DATA &H09,&H00,&H13,&H1A,&H32
  20. 1210 DATA &H0A,&H00,&H2A,&H01,&H00
  21. 1300 DATA &H3E,&H07,&H85,&H6F,&H3E
  22. 1310 DATA &H08,&H77,&H23,&H3E,&H00
  23. 1320 DATA &H77,&HC9,&HFF
  24. 1400 READ A
  25. 1500 IF A = &HFF GOTO 1900
  26. 1600 POKE X,A
  27. 1700 X=X+1
  28. 1800 GOTO 1400
  29. 1900 CALL ASSEMBLY
  30. 2000 END
  31.