Post #2097399

#bbcmicrobot MODE 2 DIM c%(4,15) I%=1 FOR F%=1 TO 4 FOR C%=0 TO 15 VDU 19,C%,0;0; c%(F%,C%)=7*((C% AND I%) DIV I%) NEXT C% I%=I%*2 NEXT F% FOR P%=1 TO 20 I%=1 X%=RND(1280) Y%=RND(1024) Z%=16+RND(48) FOR F%=0 TO 3 GCOL 1, I% MOVE X%,Y% R%=Z%*(1+F%) PLOT 153,0,R% I%=I%*2 NEXT, REPEAT FOR F%=1 TO 4 *FX19 FOR C%=0 TO 15 VDU 19,C%,c%(F%,C%);0; NEXT, FOR F%=3 TO 1 STEP -1 *FX19 FOR C%=0 TO 15 VDU 19,C%,c%(F%,C%);0; NEXT, UNTIL FALSE