===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-03-93 (14:36)             Number: 30
From: CALVIN FRENCH                Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Stars part 2                   Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 2.

LOOP

KeyPressed:
SELECT CASE key$
     CASE ".", ">"
          FOR n = 1 TO 100
               star.speed(n) = star.speed(n) + 5
          NEXT n
     CASE ",", "<"
          FOR n = 1 TO 100
               star.speed(n) = star.speed(n) - 5
               IF star.speed(n) < 1 THEN star.speed(n) = 1
          NEXT n
     CASE "x", "X"
          END
END SELECT

WHILE INKEY$ <> "": WEND           'flushes keyboard for easier
' control

RETURN


'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                      / O

... OFFLINE 1.52  "Beer. It's not just for breakfast anymore."

--- Maximus 2.01wb
 * Origin: RJ's Byteline =[HST/DS]= Calgary (403)247-3180 CANADA (1:134/75)
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