1 _MUSIC
2 DEFINTA-Z
3 KEYOFF
4 COLOR15,0,0
5 H=3
6 FORL=1TO9
7 C=0
8 SCREEN1
9 PRINT"SCORE:";P;CHR$(9);STRING$(H,79)
10 LOCATE9,9
11 Q=2000
12 N=128
13 M=106
14 A=255
15 PLAY#2,"@8L8AFGFRR"
16 A$="Level"+STR$(L)
17 IFL>6ORH=0THENPLAY#2,"AG+GF+F","@48FC<F":A$="GAME OVER":F=1
18 PRINTA$
19 FORI=0TO1:I=-(INKEY$>"")
20 NEXT
21 IFFTHENRUN
22 SCREEN5
23 PLAY#2,"CG"
24 DEFFNP(O,P)=POINT(X(E)+O,Y(E)+P)<8
25 FORE=1TOL
26 X(E)=25+RND(1)*200
27 Y(E)=40+RND(1)*50
28 D(E)=1+(RND(1)<.5)*2
29 NEXT:SPRITE$(0)=" P "
30 LINE(A,30)-(0,0),7,BF:LINE-(A,211),,B
31 FORZ=0TO1
32 TIME=0:Q=Q-1
33 FORE=1TOL
34 IFD(E)<>0THENIFPOINT(X(E),Y(E))=7THEND(E)=0:C=C+1:Y(E)=-9:PLAY#2,"CG>CG<":ELSEGOSUB53
35 PUTSPRITEE,(X(E)-2,Y(E)-1),3+E,0
36 NEXT
37 FORS=0TO4
38 PUTSPRITE9,(N-2,M-2),8,0
39 Z=PAD(12)
40 N=N+PAD(13)
41 M=M+PAD(14)' NYYRIKKI
42 N=(NOR(N>A))*-(N>0)ANDA
43 M=(M+(M>211)*(M-211))*-(M>0)
44 Q=-Q*(INKEY$<>CHR$(27))
45 S=TIME
46 IFSTRIG(1)THENLINESTEP(2,2)-(N,M)
47 NEXT
48 IFQ>0THENIFC<LTHENNEXTELSEP=P+Q\2+(H+C)*100:H=H-(J<3000ANDP>2999):J=P:NEXTL
49 L=L-1
50 H=H-1
51 P=P+C*100
52 NEXTL
53 IFFNP(0,2)THENY(E)=Y(E)+1:RETURN
54 IFFNP(D(E),1)THENX(E)=X(E)+D(E):IFFNP(0,2)THENY(E)=Y(E)+1:RETURNELSERETURN :2017:
55 IFFNP(D(E),0)ANDFNP(0,0)THENY(E)=Y(E)-1:X(E)=X(E)+D(E):RETURN
56 D(E)=-D(E)
57 PLAY#2,"@56l32G"
58 RETURN
59 SHEPHERD'S BALLS
