1 'Rainbow-Scape 2 'by Chris Wootton 3 ' 10 MODE 0:FOR a=0 TO 10:READ b:INK a,b:NEXT:ORIGIN 320,0 20 FOR r=150 TO 122 STEP -4:c=c+1:FOR y=2 TO r-2 STEP 2 30 x=SQR(r*r-y*y)*2.5:MOVE -x,y*2:DRAW x,y*2,c:MOVE -x,y*2+2 40 DRAW x,YPOS,c:NEXT y,r:FOR b=0 TO 1:RANDOMIZE 8.79+b/38 50 y=20:FOR a=-320 TO 320 STEP 4:y=y+INT(RND*8)-3:MOVE a,0 60 DRAW a,y,4-b:NEXT a,b:DATA 1,6,15,24,9,1,2,16,1,0,9