'===========================================================================
' Subject: BOUNCING TEXT AROUND SCREEN       Date: 11-24-98 (22:29)       
' Author:  Jeff Connelly                     Code: QB, QBasic, PDS        
' Origin:  shellreef@email.msn.com         Packet: MISC.ABC
'===========================================================================
'Created:02-21-98
'By Jeff Connelly
CONST ssaverspeed = 3000

        a = 0: b = 7: q = 1: w = 1
   DO WHILE INKEY$ = ""
        x = x + q
          IF x > 70 THEN q = -1
          IF x < 2 THEN q = 1
        y = y + w
          IF y > 20 THEN w = -1
          IF y < 2 THEN w = 1
        LOCATE y, x, 0:     PRINT "Hello!"
        FOR i = 1 TO ssaverspeed: NEXT
          LOCATE y, x, 0:     PRINT "          "
        cnt = cnt + 1
        dnt = dnt + 1
           IF cnt > 300 THEN cnt = 1: x = x + .1: y = y + .1
           IF dnt > 30 THEN dnt = 1: SWAP a, b:  CLS
   LOOP