8 lines
314 B
Text
8 lines
314 B
Text
|
procedure main()
|
||
|
|
delay(1000) # give user a chance to input
|
||
|
|
if kbhit() then # test for input
|
||
|
|
write("You entered ",x := getch()) # read w/o echo
|
||
|
|
else # use getche for echo
|
||
|
|
write("No input waiting")
|
||
|
|
end
|