'===========================================================================
' Subject: LINE BOUNCER                      Date: 03-18-96 (01:09)       
' Author:  Isaac Grover                      Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: EGAVGA.ABC
'===========================================================================
SCREEN 12: RANDOMIZE TIMER
Row1% = INT(RND * 473) + 1: Column1% = INT(RND * 633) + 1
Row2% = INT(RND * 473) + 1: Column2% = INT(RND * 633) + 1
ChangeInRow1% = 1: ChangeInColumn1% = 1
ChangeInRow2% = 1: ChangeInColumn2% = 1
DO UNTIL INKEY$ <> ""
  LINE (Column1%, Row1%)-(Column2%, Row2%), 10
  IF Row1% <= 0 THEN ChangeInRow1% = -ChangeInRow1%
  IF Row1% >= 480 THEN ChangeInRow1% = -ChangeInRow1%
  IF Row2% <= 0 THEN ChangeInRow2% = -ChangeInRow2%
  IF Row2% >= 474 THEN ChangeInRow2% = -ChangeInRow2%
  IF Column1% <= 0 THEN ChangeInColumn1% = -ChangeInColumn1%
  IF Column1% >= 634 THEN ChangeInColumn1% = -ChangeInColumn1%
  IF Column2% <= 0 THEN ChangeInColumn2% = -ChangeInColumn2%
  IF Column2% >= 634 THEN ChangeInColumn2% = -ChangeInColumn2%
  OldColumn1% = Column1%: OldRow1% = Row1%
  OldColumn2% = Column2%: OldRow2% = Row2%
  Column1% = Column1% + ChangeInColumn1%
  Row1% = Row1% + ChangeInRow1%
  Column2% = Column2% + ChangeInColumn2%
  Row2% = Row2% + ChangeInRow2%
  FOR Delay% = 1 TO 5000: NEXT
  LINE (OldColumn1%, OldRow1%)-(OldColumn2%, OldRow2%), 0
LOOP: SYSTEM