1 POKE56,48:POKE55,0:CLR
5 POKE53280,2:POKE53281,0
10 DIMSP(8)
20 PRINT"[147]"
30 V=1:SC=0:CM=54272
40 GOSUB500:GOSUB800:GOSUB600
41 POKECM+24,15:POKECM+5,17:POKECM+6,241:POKECM,0:POKECM+12,17:POKECM+13,241
42 POKECM+7,0
45 GOSUB700
50 S=PEEK(56320):SW=(SAND4)/4:F=(SAND16)/16
60 SR=(SAND8)/8
70 IFF=1THEN130
80 I=1:A=SH-32:J=P1:POKECM+8,200:POKECM+11,129
90 J=J+SP(A):IFJ<SAORJ>2023THEN120
100 IFPEEK(J)<>32THENPOKEBN,32:GOSUB310:GOTO120
110 POKEBN,32:POKEJ,42:POKEBBN+CM,3:BN=J:I=I+1:IFI<8THEN90
120 POKEBN,32:POKECM+11,128
130 IFSW=1THENIFSR=1THEN200
140 CC=1:IFSW=0THENCC=-1
150 POKECM+1,50:POKECM+4,33:IFP1=P2THENJ=P1:GOSUB310
160 IFSH=40THENIFCC=1THENCC=-7
170 IFSH=33THENIFCC=-1THENCC=7
180 SH=SH+CC:POKEP1,SH:POKECM+4,32
200 A=SH-32:MN=P1:P1=P1+SP(A):IFP1<SAORP1>SETHENP1=MN
210 IFPEEK(P1)<>32THENJ=P1:POKEMN,32:GOSUB300
220 POKEMN,32:POKEP1,SH:IFW=1THEN250
230 P2=INT(RND(1)*21)+1783:MC=INT(RND(1)*6)+1:SX=41:SY=32:BC=3:W=1
240 IFMC=2THENSX=44:SY=43:BC=5
250 A=SGN(P2-P1):M0=P2:P2=P2-A*H:IFABS(P2-P1)>25THENP2=P2-A*40
260 IFP2<SAORP2>SETHENP2=M0
270 IFA=0THENJ=P2:GOSUB310:GOTO50
280 POKECM+P2,MC:POKEM0,SY:POKEP2,SX:POKECM+M0,BC:GOTO50
300 A=PEEK(J):IFA=43ORA<41THENP1=MN:GOTO480
310 FORI=1TO5:POKEJ,42:POKEJ+CM,2:POKECM+7,50:POKECM+11,129
311 POKECM+1,60:POKECM+4,33:POKEJ,32:NEXT
320 POKEJ+CM,3:N=SQ:IFJ=P2THENW=0:SC=SC+150
330 IFP1=P2ORA=41THENSQ=SQ-1:P1=1764:SH=39
340 IFJ>1903THENSC=SC+50:AQ=AQ-1
350 SC=SC+50:IFSC>HITHENHI=SC
370 PRINT"[158]SCORE:"SC;TAB(32)"SHIPS:"SQ:POKEP1+CM,3:POKEP1,SH:POKECM+11,128
380 IFSQ=NTHEN410
390 FORI=1TO5:FORS=10TO80STEP2:POKECM+1,S:POKECM+4,33:FORA=1TO10:NEXT:NEXT
400 POKECM+4,32:FORJ=1TO100:NEXT:NEXT
410 IFAQ=0THENV=V+1:PRINT"[147]SWARM"V:FORI=1TO4000:NEXT:GOTO45
420 IFSQ<>0THEN480
430 PRINT""SPC(14)"* GAME OVER *"
435 PRINTSPC(11)"TRY AGAIN? [Y OR N]"
440 GETA$:IFA$=""THEN440
450 IFA$="Y"THENRESTORE:GOTO20
460 IFA$<>"N"THEN440
470 PRINT"[147]":END
480 RETURN
500 PRINT"*[159]BEEKEEPER*"
510 PRINT"HI SCORE=[158]"HI
520 FORI=1TO3000:NEXT:RETURN
600 PRINT"[147]"SPC(10)"USE JOYSTICK TO PLAY"
605 PRINTSPC(10)"BEE"TAB(20)")"SPC(5)"100"
610 PRINTSPC(10)"CLOVER"TAB(20)"+"SPC(6)"50"
615 PRINTSPC(10)"CRAB"TAB(20)","SPC(5)"200"
620 PRINTSPC(10)"[158]HIVE"TAB(20)"@"SPC(6)"50"
625 PRINTSPC(10)"DIFFICULTY LEVELS..."
630 PRINTSPC(14)"[1] BEGINNER"
635 PRINTSPC(14)"[2] ADVANCED":PRINTSPC(14)"[3] MASTER"
640 PRINTSPC(11)"KEY IN YOUR LEVEL:"
650 GETA$:IFA$=""THEN650
660 H=VAL(A$):IFH<1ORH>3THEN650
670 RETURN
700 P1=1764:SH=39:SQ=8:SA=1064:SE=1823
710 CT=55296:CE=56295:AQ=66:BN=SA
720 PRINT"[147]":FORI=CTTOCE:POKEI,3:NEXT
730 FORI=1TO50:A=INT(RND(1)*758)+SA:POKECM+A,5:POKEA,43:NEXT
740 FORI=1824TO1903:POKEI+CM,7:POKEI,0:NEXT
750 FORI=1904TO2023:POKEI+CM,INT(RND(1)*6)+1:POKEI,41:NEXT
760 PRINT"[158]SCORE:"SC;TAB(32)"SHIPS:"SQ:POKEP1+CM,3:POKEP1,SH:RETURN
800 FORI=1TO8:READSP(I):NEXT:IFPEEK(251)=123THENPOKE53272,29:RETURN
805 PRINT"[145][145][145][145][145][145][145]REDEFINING CHARACTERS"
807 POKE251,123
810 DATA 1,41,40,39,-1,-41,-40,-39
815 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
816 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
820 FORI=12552TO12623:READA:POKEI,A:NEXT:FORI=12640TO12647:READA:POKEI,A:NEXT
830 FORI=12288TO12295:POKEI,255:NEXT:FORI=12632TO12639:READA:POKEI,A:NEXT
835 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
836 POKE53272,(PEEK(53272)AND240)+12
840 DATA0,96,112,120,207,120,112,96,8,92,60,108,244,126,6,1
850 DATA16,254,254,108,56,16,16,16,16,58,60,54,47,126,96,128
860 DATA0,6,14,30,243,30,14,6,128,96,126,47,54,60,58,16
870 DATA16,16,16,56,108,254,254,16,1,6,126,244,108,60,92,8
880 DATA195,231,231,126,60,219,189,36,66,102,129,189,126,219,189,36
885 DATA24,24,102,102,24,24,60,0
890 RETURN