This short program will have you staring at your screen for hours.
Content
Image Gallery
Source Code
1 GO TO 200
60 FOR z=1 TO 200
62 PLOT A,B: DRAW X-A,Y-B
70 LET A=A+A1: LET B=B+B1
80 LET X=X+X1: LET Y=Y+Y1
100 IF A>=255 OR A<=0 THEN LET A1=-A1: LET A=A+A1
110 IF X>=255 OR X<=0 THEN LET X1=-X1: LET X=X+X1
120 IF B>=175 OR B<=0 THEN LET B1=-B1: LET B=B+B1
130 IF Y>=175 OR Y<=0 THEN LET Y1=-Y1: LET Y=Y+Y1
135 NEXT Z
136 PAUSE 300
137 CLS
140 GO TO 60
190 REM ART
191 REM SW NEWS,MAR-APR 85,P.17
200 PAPER 0: INK 7: CLS
210 LET A=INT (RND*255): LET B=INT (RND*175)
220 LET X=INT (RND*255): LET Y=INT (RND*175)
230 LET A1=2: LET B1=2: LET X1=4: LET Y1=4
240 GO TO 60
9998 SAVE "ART" LINE 1