1: 'QBasic NoBreak v1.0a 2: 'Copyright (c)1995 by Daniel Trimble 3: 'Public Domain - use at your own risk. 4: 5: CLS 6: DO 7: KEY 15, CHR$(4 + 128 + 32 + 64) + CHR$(70) 8: ON KEY(15) GOSUB NoBreak: KEY(15) ON 9: KEY 16, CHR$(4 + 128) + CHR$(70): ON KEY(16) GOSUB NoBreak: KEY(16) ON 10: KEY 17, CHR$(4 + 128 + 32) + CHR$(70): ON KEY(17) GOSUB NoBreak 11: KEY(17) ON: KEY 18, CHR$(4 + 128 + 64) + CHR$(70): ON KEY(18) GOSUB NoBreak 12: KEY(18) ON: KEY 19, CHR$(4) + CHR$(70): ON KEY(21) GOSUB NoBreak 13: KEY(21) ON: KEY 22, CHR$(4 + 64) + CHR$(70) 14: ON KEY(22) GOSUB NoBreak: KEY(22) ON: KEY 23, CHR$(4 + 32) + CHR$(46) 15: ON KEY(23) GOSUB NoBreak: KEY(23) ON: KEY 24, CHR$(4 + 64) + CHR$(46) 16: ON KEY(24) GOSUB NoBreak: KEY(24) ON 17: KEY 25, CHR$(4 + 32 + 64) + CHR$(46): ON KEY(25) GOSUB NoBreak: KEY(25) ON 18: 19: LOCATE 1, 1, 0: PRINT "QBasic NoBreak v1.0a" 20: LOCATE 2, 1, 0: PRINT "Copyright (c)1995 by Daniel Trimble" 21: LOCATE 4, 1, 0: PRINT "This program and all source is public domain. I will not be held responsible" 22: LOCATE 5, 1, 0: PRINT "for any damage this program may cause. I am not at fault; use this at your" 23: LOCATE 6, 1, 0: PRINT "own risk - period!" 24: LOCATE 15, 1, 0: PRINT "Try pressing either CTRL-BREAK or CTRL-C. Nothing will happen!" 25: LOCATE 16, 1, 0: PRINT "To end the program, hit ENTER." 26: IF INKEY$ = CHR$(13) THEN END 27: LOOP 28: 29: NoBreak: RETURN 30: 31: 32: 'ctrl =4 extended keys=128 33: 'num lock=32 c=46 34: 'cap lock=64 35: |