home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / KEYOUT.BAS < prev    next >
BASIC Source File  |  1987-03-26  |  1KB  |  49 lines
  1. 'Interrupting the keyboard functions, by Jeff Bretz & John Craig
  2. 'Converted to Quickbasic 2.01 by Dennis Dreyer 3/87
  3.  
  4. 'KEYOUT.BAS
  5.  
  6. CLS
  7. line input "Enter some text into the system - ";A$
  8. locate 4,1
  9. Print " First, the program will disable the keyboard"
  10. Print "        using - out 33,2."
  11.  
  12. out 33,2
  13.  
  14. locate 7,1
  15. Print "Next, the keyboard input buffer will be cleared"
  16. Print "      using the code in lines 360 to 390."
  17. a$=inkey$
  18. while a$<>""
  19. wend
  20.  
  21. locate 10,1
  22. Print "At this time enter information into the program."
  23. Print "  As you can see, the program is not accepting"
  24. Print "  any input from the keyboard."
  25. Print
  26. Print "We will pause for about 20 secs for typing -"
  27.  
  28. For x= 1 to 30000:next
  29.  
  30. cls
  31. Print "We will now enable the keyboard using - "
  32. Print "  Out 33,0."
  33.  
  34. out 33,0
  35.  
  36. Locate 4,1
  37. Print "And last we will print out the information in the"
  38. Print "  buffer."
  39. Print
  40. Print "If the cursor is still on this line, press <ENTER> - ";
  41. line input A$
  42. print A$;
  43.  
  44. locate 10,1
  45. Print "To verify correct keyboard operation, "
  46. Print "  enter a line of text -."
  47. line input a$
  48. print a$
  49.