This short program will have you staring at your screen for hours.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
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