BBS: Inland Empire Archive
Date: 05-06-92 (12:16)             Number: 178
From: MICHAEL LOWE                 Refer#: NONE
  To: JERRY GUARDIANO               Recvd: NO  
Subj: Re: FORGOTTEN STATEMENT        Conf: (2) Quik_Bas
Another way to find out if a KEY is pressed, without disturbing that key...

if KeyPressed then call GetInput

Function Keypressed
        Def Seg = 0
        Keypressed = peek(1050)-peek(1052)
        ' Will be NON-ZERO when a key is pressed
        ' 1050 points to first character in keyboard buffer
        ' 1052 points to last character in keyboard buffer
        ' the difference between the two is the number of keys
        ' that have been pressed.

                        Mike Lowe

--- TBBS v2.1/NM
 * Origin: 20/20 TBBS * 312-769-2020 @2400bps 275-1785 @9600+  (1:115/769)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET