1 INK 2,11:MODE 0:CLG 5:SYMBOL 255,96,124,62,44,124,60,24,60:SYMBOL 254,126,255,255,189,124,110,198,206:SYMBOL 253,126,126,239,223,60,110,118,238:SYMBOL 252,118,118,118,110,60,24,24,56:FOR a=0 TO 10:b=a*2:MOVE 200,248-b:DRAWR 196,-98,2:MOVE 376+b,140
2 DRAWR 0,154+a:MOVE 400+b,128+a:DRAWR 0,200,3:MOVE 244+b,250-a:DRAWR 156,78,3:MOVE 400+b,350-a:DRAWR-200+b,-100+a,4:DRAWR 172-a*4,-86+b:NEXT:PEN 4:WHILE 1:t=1+t MOD 3:LOCATE 11,10:PRINT CHR$(255)CHR$(8)CHR$(10)CHR$(251+t):SOUND t,99*RND+399,13:WEND