'FULL SCREEN LAVA.BAS SMALLBASIC 0.12.0 2015-11-18 MGA/B+ 'MANY MODIFICATIONS TO LAVA FROM THE CODE LIBRARY DM=500 DIM CX(1 TO DM),CY(1 TO DM),CC(1 TO DM),COLR(100) RANDOMIZE TIMER FOR I=0 TO 100 R=RND IF I MOD 3=0 THEN COLR(I)=RGB(0,0,0) ELIF I MOD 3=1 COLR(I)=RGB(R*255,0,0) ELSE COLR(I)=RGB(R*127+128,R*127+64,0) FI NEXT FOR K = 1 TO DM CX(K) = INT(RND*XMAX) CY(K) = INT(RND*YMAX) CC(K)=COLR(INT(RND*41)) NEXT K REPEAT RECT 0,0,XMAX,YMAX,0 PAINT INT(RND*(XMAX-2))+1,INT(RND*(YMAX-2))+1, COLR(INT(RND*101)),0 FOR K=1 TO DM CIRCLE CX(K),CY(K),RND*8+2,RND*.6,CC(K) FILLED CX(K)=CX(K)+INT(RND*6) IF CX(K)>XMAX-10 THEN CX(K)=10 CY(K)=CY(K)+INT(RND*9)-4 IF CY(K)<5 OR CY(K)>YMAX-5 THEN CY(K)=RND*(YMAX-10)+5:CX(K)=10 NEXT K SHOWPAGE UNTIL LEN(INKEY$)