'===========================================================================
' Subject: FALLING CHARACTERS                Date: 11-24-98 (22:29)       
' Author:  Jeff Connelly                     Code: QB, QBasic, PDS        
' Origin:  shellreef@email.msn.com         Packet: TEXT.ABC
'===========================================================================
DECLARE SUB falling (a!, b!)
'Created:03-27-98
'By Jeff Connelly

'Shows falling characters.

RANDOMIZE TIMER
DO WHILE INKEY$ = ""
  FOR i = -100 TO 100: NEXT
  j = 0
  DO
    a = INT(RND * 24) + 1
    b = INT(RND * 80) + 1
    j = j + 1
    IF j = 1000 THEN PRINT CHR$(a)
  LOOP WHILE CHR$(SCREEN(a, b)) = " "
  CALL falling(a, b)
LOOP
END

SUB falling (a, b)
DO
  c$ = CHR$(SCREEN(a, b))
  LOCATE a, b: PRINT c$;
  FOR i = -1300 TO 1300
    IF INKEY$ <> "" THEN SYSTEM
  NEXT
  LOCATE a, b: PRINT " ";
  a = a + 1
  IF a >= 24 THEN a = 1: EXIT DO
  LOCATE a, b: PRINT c$;
LOOP

END SUB