10 MODE 0:INK 5,18:INK 10,9:INK 13,0:PEN 13:WINDOW#2,10,19,3,11:LINE INPUT#2," MESSAGE :",a$:PRINT STRING$(240,207)STRING$(240,206):PRINT#2,a$;:FOR a=0 TO 8:x=184-a*4:MOVE x,399-a*4:DRAWR a*8,0,3:MOVE x,352+a*4:DRAWR a*8,0:NEXT:FOR l=1 TO 5:FOR c=l TO 5
20 x=86+c*40-l*20:y=74+l*60:FOR a=0 TO 32:MOVE x,y:DRAW x-60+4*a,y-70-RND*16,8+RND*2:DRAWR 0,4,l:NEXT a,c,l:FOR a=1 TO 13:l=44+8*RND*8:p=RND*600:h=40+RND*40:ORIGIN p-4,h-12,p,p+l,0,h:CLG 2+RND*9:DRAWR 199,0,1:MOVE l/2+8,-h:DRAWR 0,199:NEXT:CALL &BB06:RUN