1 _MUSIC:DEFINTA-Z:KEYOFF:COLOR15,0,0:H=3:FORL=1TO9:C=0:SCREEN1:PRINT"SCORE:";P;CHR$(9);STRING$(H,79):LOCATE9,9:Q=2000
2 N=128:M=106:A=255:PLAY#2,"@8L8AFGFRR":A$="Level"+STR$(L):IFL>6ORH=0THENPLAY#2,"AG+GF+F","@48FC<F":A$="GAME OVER":F=1
3 PRINTA$:FORI=0TO1:I=-(INKEY$>""):NEXT:IFFTHENRUNELSE:SCREEN5:PLAY#2,"CG":DEFFNP(O,P)=POINT(X(E)+O,Y(E)+P)<8:FORE=1TOL
4 X(E)=25+RND(1)*200:Y(E)=40+RND(1)*50:D(E)=1+(RND(1)<.5)*2:NEXT:SPRITE$(0)=" P ":LINE(A,30)-(0,0),7,BF:LINE-(A,211),,B
5 FORZ=0TO1:TIME=0:Q=Q-1:FORE=1TOL:IFD(E)<>0THENIFPOINT(X(E),Y(E))=7THEND(E)=0:C=C+1:Y(E)=-9:PLAY#2,"CG>CG<":ELSEGOSUB9
6 PUTSPRITEE,(X(E)-2,Y(E)-1),3+E,0:NEXT:FORS=0TO4:PUTSPRITE9,(N-2,M-2),8,0:Z=PAD(12):N=N+PAD(13):M=M+PAD(14)' NYYRIKKI
7 N=(NOR(N>A))*-(N>0)ANDA:M=(M+(M>211)*(M-211))*-(M>0):Q=-Q*(INKEY$<>CHR$(27)):S=TIME:IFSTRIG(1)THENLINESTEP(2,2)-(N,M)
8 NEXT:IFQ>0THENIFC<LTHENNEXTELSEP=P+Q\2+(H+C)*100:H=H-(J<3000ANDP>2999):J=P:NEXTLELSEL=L-1:H=H-1:P=P+C*100:NEXTL
9 IFFNP(0,2)THENY(E)=Y(E)+1:RETURNELSEIFFNP(D(E),1)THENX(E)=X(E)+D(E):IFFNP(0,2)THENY(E)=Y(E)+1:RETURNELSERETURN :2017:
10 IFFNP(D(E),0)ANDFNP(0,0)THENY(E)=Y(E)-1:X(E)=X(E)+D(E):RETURNELSED(E)=-D(E):PLAY#2,"@56l32G":RETURN:SHEPHERD'S BALLS
