===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-14-93 (01:25)             Number: 97
From: JIM LITTLE                   Refer#: NONE
  To: ERIC LOW                      Recvd: NO  
Subj: (4/4) Input routine            Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> 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 r
ight

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)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20