(4/4) Input routine

 BBS: Inland Empire Archive
Date: 06-14-93 (01:25)             Number: 330
From: JIM LITTLE                   Refer#: NONE
  To: ERIC LOW                      Recvd: NO  
Subj: (4/4) Input routine            Conf: (2) Quik_Bas

'>>> Start of page 4.

SUB GetStroke (keystroke AS INTEGER)
'waits for then returns single character as integer.  Extended keystrokes
' returned as a negative.  (See CONST definitions).

DIM k AS STRING                        'key inputted

DO
   k = INKEY$
LOOP UNTIL LEN(k)
IF LEFT$(k, 1) = CHR$(0) THEN
   keystroke = ASC(MID$(k, 2)) * -1
ELSE
   keystroke = ASC(k)
END IF

END SUB

DEFINT A-Z
SUB Printline (topletter AS INTEGER, text AS STRING, left AS_
 INTEGER, right AS INTEGER)
'prints a line of text, starting with topletter, within the
bounds of left and right

LOCATE , left
PRINT MID$(text, topletter, right - left + 1); SPC(right -_
 POS(0) + 2);

END SUB


'______O_/__________________| SNIP |__________________\_O______
'      O \                  | HERE |                  / O

$$
That's it!
-Jim

---
 * Origin: The Radix Point: Astoria, OR (1:105/330.9)