238 Buzzy Bee
420 NEXT I
430 FOR F=1 TO 600:NEXT
440 CLS:LOCATE 1,5:PRINT CHR$(24);"YOU S URVIVED FOR ";CHR$(24);TS;"SECONDS."
450 IF TS>HS THEN HS=TS:PEN 2:PRINT:PRIN T"WELL DONE! That's the longest	record
ed time!":PEN 1:GOTO 470
460 PEN 3: PRINT:PRINT"The longest recor ded time standsat ";hs;"seconds":PEN 1 470 LOCATE 4,17:PEN 2:PRINT"PRESS ANY KE Y TO START AGAIN"
480 IF INKEY$<>"" THEN 480
490 IF INKEY$="" THEN 490 ELSE CLS:GOTO 80
500 SOUND 1,80,4: IF G<>3 AND G<>9 AND G <>15 AND G<>21 AND G<>27 THEN RETURN
510 IF G=U*6-3 OR Y((G+3)/6)>15 THEN RET URN
520 U=(G+3)/6
530 Y(U)=Y(U)+2
540 PEN 2:LOCATE U*6-4,Y(U)-1:PRINT"
";:LOCATE U*6-4,Y(U):PRINT"	";:LOCA
TE U*6-4,Y(U)+1:PRINT CHR$(243);"	";CH
R$(244);:LOCATE U*6-4,Y(U)+2:PRINT" ";:LOCATE U*6-4,Y(U)+3:PRINT CHR$(247);"
";:PRINT CHR$(143);" ";CHR$(248);
550 LOCATE U*6-3,Y(U)+4:PRINT " ";CHR$(1 43);" ";:LOCATE U*6-2,Y(U)+2:PRINT CHR$( 245);
560 LOCATE U*6-3,Y(U)+4:PRINT" ";CHR$(24 5);:PEN 1
570 IF U=FL1 THEN IF Y(U)>H2 THEN H1=H2: FL1=FL2:FL2=U:H2=Y(U)
580 RETURN
590 FOR F=1 TO 5:Y(F)=18
600 PEN 2:LOCATE F*6-4,Y(F)+1:PRINT CHR$
(243);"	";CHR$(244);:LOCATE F*6-4,Y(F)
+2:PRINT"	";:LOCATE F*6-4,Y(F)+3:PRI
NT CHR$(247);" ";CHR$(143);" ";CHR$(248) ;:LOCATE F*6-2,Y(F)+4:PRINT CHR$(143);:L OCATE F*6-2,Y(F)+2
610 PRINT CHR$(245):PEN 1
620 NEXT F
630 FOR F=0 TO 3:LOCATE 1,F+1:PRINT STRI NG$(32," "):NEXT F