1 BORDER 0:q=RND*640:MODE 0:CLG 5:FOR a=6 TO 11:READ p:INK a,p:PAPER a-1:PEN a:PRINT STRING$(20,&CF);STRING$(20,&8F);:NEXT:FOR c=-30 TO 30:MOVE q-c*20,200:DRAW q-c*128,0,9:MOVE 0,200-2*c*c:DRAWR 640,0,8:NEXT:FOR i=5 TO 132:y=SQR(18000-i*i)::MOVE q+i,194+y
2 DRAWR-i*2,0,11+(i<70):NEXT:FOR i=3 TO 125:y=SQR(17000-i*i):MOVE q+i,176+y:DRAWR-i*2,0,4:MOVE q+i,192+y:DRAWR-i*2,0,1-3*(i<40):NEXT:WHILE z<160:h=RND*75:FOR l=1 TO RND*12:MOVE z*4,200:DRAWR 0,h,5+l/4:z=z+RND:NEXT:WEND:CALL &BB06:RUN:DATA 1,4,5,14,17,16