240 Buzzy Bee
870 SYMBOL 236,240,248,252,254,252,249,2 40,224
880 SYMBOL 237,1,62,71,68,68,66,65,48 890 SYMBOL 238,224,24,4,132,66,66,34,162 900 SYMBOL 239,0,64,68,136,144,160,160,1 60
910 SYMBOL 240,15,31,63,127,63,31,15,7 920 SYMBOL 241,85,85,85,85,85,85,85,85 930 SYMBOL 242,224,176,152,252,252,248,2 40,224
940 SYMBOL 243,96,224,224,112,120,60,30, 15
950 SYMBOL 244,6,6,7,15,30,60,120,240 960 SYMBOL 245,108,104,75,139,145,73,81,
970 SYMBOL 246,220,220,72,126,72,29,20,2 0
980 SYMBOL 247,15,7,3,1,0,0,0,0
990 SYMBOL 248,240,224,192,128,0,0,0,0 1000 RETURN
1010 PEN 2:FOR X=1 TO LEN(A$):IF MID$(A$ ,X,1)=" " THEN PRINT " "; ELSE PRINT CHR $(166+ASC(MID$(A$,X,1)));:SOUND 2,(X*3+1 00),5
1020 NEXT:PEN 1:RETURN
1030 FOR X=231 TO 254:PRINT CHR$(X);:NEX