Compucolor.org – Virtual Media

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