home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
baslib2.zip
/
KEYOUT.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-26
|
1KB
|
49 lines
'Interrupting the keyboard functions, by Jeff Bretz & John Craig
'Converted to Quickbasic 2.01 by Dennis Dreyer 3/87
'KEYOUT.BAS
CLS
line input "Enter some text into the system - ";A$
locate 4,1
Print " First, the program will disable the keyboard"
Print " using - out 33,2."
out 33,2
locate 7,1
Print "Next, the keyboard input buffer will be cleared"
Print " using the code in lines 360 to 390."
a$=inkey$
while a$<>""
wend
locate 10,1
Print "At this time enter information into the program."
Print " As you can see, the program is not accepting"
Print " any input from the keyboard."
Print
Print "We will pause for about 20 secs for typing -"
For x= 1 to 30000:next
cls
Print "We will now enable the keyboard using - "
Print " Out 33,0."
out 33,0
Locate 4,1
Print "And last we will print out the information in the"
Print " buffer."
Print
Print "If the cursor is still on this line, press <ENTER> - ";
line input A$
print A$;
locate 10,1
Print "To verify correct keyboard operation, "
Print " enter a line of text -."
line input a$
print a$