Listing of file='KALEID.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
1 REM KALEIDOSCOPE BY PATRICK LEABO 100 PLOT 6,6,12,15,27,24 120 DATA 1,0,1,1,0,1,-1,1,-1,0,-1,-1,0,-1,1,-1 140 DIM M(31,63) 160 FOR J= 1TO (PEEK (33209)+ 1)* (PEEK (33210)+ 1):X= RND (1):NEXT 170 PLOT 12 200 X1= 16:Y1= 8:RESTORE 220 FOR N= 0TO 7:READ X(N):READ Y(N):NEXT 240 FOR J= 1TO 100 260 I= INT (8* RND (1)) 280 IF RND (1)< .25THEN CC= INT (64* RND (1)):PLOT 6,CC 300 FOR K= 1TO INT (8* RND (1)+ 1) 320 X1= X1+ X(I):Y1= Y1+ Y(I) 340 IF X1< 0THEN X1= 31 360 IF X1> 31THEN X1= 0 380 IF Y1< 0THEN Y1= 15 400 IF Y1> 15THEN Y1= 0 420 X2= 63- X1:Y2= 31- Y1 440 PLOT 3,X1,Y1,96,8 460 PLOT 3,X1,Y2,96,8 480 PLOT 3,X2,Y1,96,8 500 PLOT 3,X2,Y2,96,8 520 M(Y1,X1)= 2* CC 540 M(Y2,X1)= 2* CC 560 M(Y1,X2)= 2* CC 580 M(Y2,X2)= 2* CC 600 NEXT K,J 620 PLOT 6,6 630 PLOT 12 640 PRINT "SLIGHT TIME DELAY" 650 GOTO 160