10 DIM MA(5),MX(5),MDX(5),MY(5),EA(5),EX(5),EY(5),ER(5),EDR(5):GR.5:POK.710,142:F.I=0TO5:MA(I)=0:EA(I)=0:N.I:X=39:Y=20:DO:CO.1:F.I=0 TO 5 20 IF MA(I):PL.MX(I),MY(I):MX(I)=MX(I)+MDX(I):MY(I)=MY(I)+1:H=0:F.J=0TO5:IF EA(J):IF (MX(I)>=EX(J)-ER(J))+(MX(I)<=EX(J)+ER(J))+(MY(I)>=EY(J)-ER(J))+(MY(I)<=EY(J)+ER(J))=4 40 IF (MX(I)-EX(J))*(MX(I)-EX(J))+(MY(I)-EY(J))*(MY(I)-EY(J))<=(ER(J)*ER(J)):H=1:END.:END.:END.:N.J 50 IF H OR MX(I)<0 OR MX(I)>79 OR MY(I)>39:MA(I)=0:CO.0:PL.MX(I)-MDX(I),MY(I)-1:DRAWTO MX(I)-(MY(I)*MDX(I)),0:CO.1:END.:IF H:X=MX(I):Y=MY(I):GOS.1000:GOS.2000:X=OX:Y=OY:END. 60 IF MY(I)>39:POK.710,PEEK(710)-2:IF PEEK(710)<=128:TEXT 28,16,"THE":TEXT 28,30,"END":?"{bell}";SC:END:END.:END. 70 ELSE:IF RAND(20)=0:MA(I)=1:MX(I)=RAND(40)+20:MY(I)=0:MDX(I)=(RAND(11)-5)/5:END.:END.:N.I:S=STICK(0):COL.0:PLOT X,Y:OX=X:OY=Y 80 X=X+4*(S>4 AND S<8)-4*(S>8 AND S<12):Y=Y+4*(S=9 OR S=13 OR S=5)-4*(S=10 OR S=14 OR S=6):IF X<10 OR X>69:X=OX:END.:IF Y<10 OR Y>30:Y=OY:END.:CO.3:PLOT X,Y 90 IF STRIG(0)=0:GOS.1000:END.:F.I=0TO5:IF EA(I):CO.2*(EDR(I)>0):CIR.EX(I),EY(I),ER(I):ER(I)=ER(I)+EDR(I):IF ER(I)<=0:EA(I)=0:END.:IF ER(I)>=10:EDR(I)=-2:END.:END.:N.I:LOOP 1000 F=-1:F.E=0TO5:IF EA(E)=0:F=E:END.:SOUND 0,200,0,15-E*3:N.E:IF F>=0:EA(F)=1:EX(F)=X:EY(F)=Y:ER(F)=1:EDR(F)=2:END.:RET. 2000 SC=SC+1:?SC:RET.