dkonerding@eagle.wesleyan.edu (08/11/89)
This is my two-line version of CHAOS. Do whatever you want with the program, so long as the credit line stays. Contact me at DKONERDIN@EAGLE.WESLEYAN.EDU or DKONERDING@WESLEYAN.BITNET 0 REM By David Konerding. DKONERDING@WESLEYAN.EDU/DKONERDING@WESLEYAN.BITNET 1 HGR2 : HCOLOR= 3:A(1) = 140:A(2) = 0:A(3) = 279:B(1) = 0:B(2) = 191:B(3) = 191: FOR I = 1 TO 3: HPLOT A(I),B(I): NEXT :Z = INT ( RND (1) * 3) + 1:X = A(Z):Y = B(Z): HPLOT X,Y 2 Z = INT ( RND (1) * 3) + 1:X1 = A(Z):Y1 = B(Z):Z1 = (X + X1) / 2:Z2 = (Y + Y1) / 2: HPLOT Z1,Z2:X = Z1:Y = Z2: GOTO 2