10 REM RECOIL/(C) 1989
20 POKE53281,.:POKE53280,.:PRINT"[147]":GOSUB750
25 FORX=52224TO52224+30:READD:POKEX,D:NEXT:CLR
30 DIM U,T,M,Z,B,CO,P,SS,S,C,V,D:U=1:T=2:M=3:Z=5:V=53248
40 DIMF,SC,S1,G,X,JY,SS,LV,Z1,EG,TT,J,A,OL,TB,L1,SS,J,A$
50 POKE53248+22,200:POKE214,7:PRINT:PRINTTAB(10)"[154][178][195][201] [178][195][174][213][195][201][213][195][201][176][178][174][178] "
60 PRINTTAB(10)"[154][219][195][177][201][171][179] [194]  [194] [194] [194] [194]":PRINTTAB(10)"[159][177]  [177][177][195][189][202][195][203][202][195][203][173][177][189][177][195][189]"
70 PRINTTAB(12)"[153]BY JEFF PANICI":J=56320:PRINT:PRINT:PRINT
90 POKE646,INT(RND(1)*16+1):PRINT"[145]"TAB(10)"PRESS FIRE TO BEGIN":IFPEEK(J)<>111THEN90
100 PRINTCHR$(147)
110 REM INITILAZATION
120 F=4:S=54272:D=3:CO=55297:SC=.:TI$="000000":S1=1024:CO=CO+39:S1=S1+40:G=40
130 FORX=1TO40:POKES1,87:POKECO,Z+Z+F:CO=CO+U:S1=S1+U:NEXT:FORX=1TO22:POKES1,87
140 POKES1+39,87:POKECO,Z+Z+F:POKECO+39,Z+Z+F:S1=S1+40:CO=CO+40:NEXT
150 FORX=1TO40:POKES1,87:S1=S1+U:POKECO,Z+Z+F:CO=CO+U:NEXT:JY=56320:SS=4
160 POKEV+34,11:POKEV+35,1:POKEV+22,216:PRINT"[158]RECOIL [159]- JEFF PANICI      ";
170 PRINT"   SCORE 00000":LV=1:DEFFNJ(X)=(JAND15)
190 REM RANDOMLY PLOT BRICKS
195 Z1=.:X=1
200 Z1=INT(RND(1)*936+1064):POKEZ1,87:X=X+1:ON-(X=30)GOTO210:GOTO200
210 REM DISTRIBUTE EGG'S
220 SYS52224,INT(RND(1)*(15-11)+11):X=1:
230 Z1=INT(RND(1)*936+1064):CE=PEEK(Z1):IFCE=42ORCE=87THENGOTO230
240 POKEZ1,42:ON-(X=LV+U)GOTO250:X=X+1:GOTO230
250 CO=55297+139:P=1164:POKECO,14:EG=.
260 POKEP,33:POKEV+34,11:C=.:GOSUB680:POKES+6,233:POKES+20,233:OL=.:X=.
300 REM MAIN LOOP
320 J=.:J=PEEK(JY):A=FNJ(.):IFA=15THEND=OL:GOTO390
330 IFA=11THEND=1:OL=D:C=C+U:GOTO400
340 IFA=7THEND=2:OL=D:C=C+U:GOTO400
350 IFA=13THEND=3:OL=D:C=C+U:GOTO400
360 IFA=14THEND=4:OL=D:C=C+U:GOTO400
370 IFA=10ORA=6ORA=5ORA=9THEND=OL:GOTO390
380 GOTO320
390 IFC>252THENC=1
400 ONDGOTO430,440,450,460
410 GOTO300
420 REM MOVE SNAKE IN PROPER DIRECTION
430 POKEP,81:P=P-U:CO=CO-U:GOTO470
440 POKEP,81:P=P+U:CO=CO+U:GOTO470
450 POKEP,81:P=P+G:CO=CO+G:GOTO470
460 POKEP,81:P=P-G:CO=CO-G:GOTO470
470 REM COLLISION DETECTION
480 IFPEEK(P)=87ORPEEK(P)=81THEN520
490 IFPEEK(P)=42THEN590
491 POKEP,33:POKECO,Z+Z+F
500 IFC>252THENC=1
510 POKES+24,15:POKES+U,C:POKES+4,129:POKES+4,128:GOTO300
520 REM LOSE A SNAKE
530 GOSUB680:POKES+5,15:POKES+23,239:POKES+24,47:POKES+4,33
540 FORSW=.TO180:POKEV+34,INT(RND(1)*16+1):POKES+22,SW:POKES+1,8:NEXT
550 POKES+4,32:TI$="000000":GOSUB700:POKE214,Z+M:SS=SS-U:L1=SS:TB=INT(40-L1)/2
560 IFSS=.THENGOSUB700:POKE214,9:PRINT:PRINTTAB(15)"[159]GAME OVER":FORP=1TO2000:NEXT:RUN
570 PRINT:PRINTTAB(TB);:FORX=1TOSS:PRINT"@ ";:NEXT:PRINT:PRINT""TAB(15);
580 PRINT"PRESS FIRE":J=56320:WAITJ,16,16:GOSUB700:GOTO190
590 REM CAPTURE EGG
600 POKES+24,15:POKES+15,35:POKES+18,128+1:POKES+18,128
610 POKECO,14:SC=SC+10:EG=EG+U:GOSUB730
620 IFEG=LV+UTHENLV=LV+U:GOTO640
630 POKES+6,233:POKES+20,233:GOTO300
640 GOSUB700:POKE214,Z+Z-U:PRINT:PRINTTAB(11)"[159]PREPARE FOR LEVEL ";LV
670 PRINT:PRINT:FORP=1TO2000:NEXT:GOSUB700:GOTO190
680 REM CLEAR SID CHIP
690 Q=.:FORQ=.TO23:POKES+Q,.:NEXT:POKES+24,15:RETURN
700 REM CLEAR GAME BOARD
710 POKE214,U:PRINT:FORX=1TO22:PRINT"                                      ":NEXT
720 RETURN
730 A$=STR$(SC):PRINT""TAB(35);:PRINTRIGHT$("00000"+(RIGHT$(A$,LEN(A$)-1)),5);
740 RETURN
750 REM REDEFINED CHARACTERS
760 POKE56334,.:POKE1,51:POKE781,9:POKE782,.:POKE90,.:POKE91,216:POKE88,.
770 POKE89,64:SYS41964:POKE1,55:POKE56334,1:POKE54272,216:POKE53272,30:RESTORE
780 READA:IFA=-1THENRETURN
790 FORX=.TO7:READD:POKE14336+A*8+X,D:NEXT:GOTO780
800 DATA 42,40,170,170,170,170,170,170,40
810 DATA 81,60,215,215,215,215,215,215,60
820 DATA 87,239,239,170,251,251,170,239,239
830 DATA 0,62,127,227,224,126,15,207,60
840 DATA 33,60,219,219,215,215,219,219,60
850 DATA -1
851 REM ML DATA
852 DATA32,155,183,138,162,,157,40,216,157,39,217,157,38,218,232,208,244,162,.
853 DATA157,37,219,232,224,195,240,2,208,246,96