Buzzy Bee 237
180 PEN 2: LOCATE T*6-4,Y(T)+1:PRINT CHR $(243);" ";CHR$(244);:LOCATE T*6-4,Y(T) +2:PRINT" ";:LOCATE T*6-4,Y(T)+3:PRI NT CHR$(247);" ";CHR$(143);" ";CHR$(248) ;:LOCATE T*6-4,Y(T)+4:PRINT " "; CHR$(1 43);" ";:PEN 2:
190 LOCATE T*6-2,Y(T)+2:PRINT CHR$(245): PEN 1
200 IF X<FL1*6-4 THEN B$=A$(3):C$=A$(4): X=X+1
210 IF X>FL1*6-4 THEN B$=A$(1):C$=A$(2): X=X-1
220 GOTO 100
230 IF X=T*6-4 THEN 350
240 IF G=T*6-3 THEN LOCATE G+1,F+2:PEN 3 :PRINT CHR$(22);CHR$(1);CHR$(246);CHR$(2 2);CHR$(0);:PEN 1
250 FOR F=4 TO 17
260 PEN 2:LOCATE T*6-4,F+1:PRINT"	If a
5
:LOCATE T*6-4,F+2:PRINT CHR$(243);"	";
CHR$(244);:LOCATE T*6-4,F+3:PRINT" ;:LOCATE T*6-4,F+4:PRINT CHR$(247);" ";C HR$(143);" ";CHR$(248);:LOCATE T*6-3,F+5 :PRINT " ";CHR$(143);" ";:PEN 2:
270 LOCATE T*6-2,F+3:PRINT CHR$(245);:PE N
280 SOUND 2,(F+100),5
290 NEXT
300 F=21
310 Y(T)=18
320 IF T=FL1 THEN FL1=FL2:H1=H2
330 IF G=T*6-3 THEN LOCATE G+1,F+2:PEN 0 :PRINT CHR$(22);CHR$(1);CHR$(246);CHR$(2 2);CHR$(0);:PEN 1
340 RETURN
350 IF B$=A$(1) THEN D=X+1
360 IF B$=A$(3) THEN D=X
370 S=S+1
380 FOR I=0 TO 3:FOR G=1 TO 10
390 SOUND 1,(G+100),4:LOCATE D+1,I+1:PRI NT MID$(A$(1),2);:SOUND 1,180,4:LOCATE D +1,I+1:PRINT MID$(A$(3),1,2)
400 NEXT G
410 LOCATE X+1,I+1:PRINT"	";:LOCATE X+
1,I+2:PRINT B$;:LOCATE X+1,I+3:PRINT C$