Buzzy Bee 239
640 Y=0:X=15
650 F=21:6=15
660 A$(1)=CHR$(231)+CHR$(232)+CHR$(233): A$(2)=CHR$(234)+CHR$(235)+CHR$(236):A$(3 )=CHR$(237)+CHR$(238)+CHR$(239):A$(4)=CH R$(240)+CHR$(241)+CHR$(242):B$=A$(1):C$= A$(2)
670 Y1=Y:X1=X:F1=F:61=G
680 PEN 2:LOCATE G+1,F+2:PRINT CHR$(22); CHR$(1) CHR$(246);CHR$(22);CHR$(0):PEN 1
690 H1=20:H2=20:FL1=2:FL2=4
700 T=1
710 U=10
720 SOUND 1, 180,4
730 RETURN
740 REM
750 A$="AAA A A AAA AAA A A AAA AAA AAA AAAA A AAAAAA AAAAAA A A AAA AAA AAA AAAA A A A A A
A AAA A AAA AAA AAA AAA A AAA AAA AAA":GOSUB 1010
760 LOCATE 1,8:PRINT"A giant bee likes n
ectar from	giant flowers,but you have
to	stop it because you eat nectar as
well ! !"
770 PRINT:PRINT"Chop chunks out of the s talks with COPY KEY but note that once a piece has been cut out of one stalk yo u must cut the next one out of a differe nt stalk."
780 PEN 3:PRINT:PRINT "MOVE LEFT AND RIG HT WITH THE CURSOR ARROW KEYS":PEN 1 790 LOCATE 5,24:PRINT CHR$(24);" PRESS A NY KEY TO START ";CHR$(24)
800 IF INKEY$=""THEN 800 ELSE CLS:RETURN 810 SYMBOL AFTER 230
820 SYMBOL 231,0,2,34,17,9,5,5,5
830 SYMBOL 232,7,24,32,33,66,66,68,69 840 SYMBOL 233,128,124,226,34,34,66,130, 12
850 SYMBOL 234,7,13,25,63,63,31,15,7
860 SYMBOL 235,170,170,170,170,170,170,1 70,170