'===========================================================================
' Subject: LINE CHAOS                        Date: 09-26-98 (17:29)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: GRAPHICS.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' LINE.BAS -- Written in QuickBasic 4.5
'
' Name: Line chaos
' Author: Alexander Meyer
' Date: 09-26-1998
' Description: Many little lines....
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

DEFINT A-Z
SCREEN 12
FOR z = 5 TO 25 STEP 5
  LOCATE z, 35: PRINT "Line chaos"
NEXT z
RANDOMIZE TIMER
a = 10
x = 200
y = 320
DO WHILE INKEY$ = ""
IF y < 1 THEN y = 1
IF y > 640 THEN y = 640
'IF X > 10 THEN X = a
IF x < 1 THEN x = 1
Dir = INT(RND * 4)
Col = INT(RND * 14 + 1)
'FOR I = 1 TO 500: NEXT I     '** IF THIS ROUTINE RUNS TOO FAST, **
                              '** PUT A DELAY HERE **
SELECT CASE Dir
  CASE 0
    FOR Set = x TO x + a
      PSET (Set, y), Col
    NEXT Set
    x = x + a
  CASE 1
    FOR Set = x - a TO x
      PSET (Set, y), Col
    NEXT Set
    x = x - a
  CASE 2
    FOR Set = y TO y + a
      PSET (x, Set), Col
    NEXT Set
    y = y + a
  CASE 3
    FOR Set = y - a TO y
      PSET (x, Set), Col
    NEXT Set
    y = y - a
END SELECT
LOOP
END