1 '*PB10
2 CLV
3 CLS:L=L+1:GSB7:H=200:I=100*L:LC1,6:?H:LC9,2:?CHR$(63+L):LC8,6:?I
4 X=0:Y=0:M=0:GSB14:M=1:GSB14:GSB8:IFI<=0BEEP10,30:WAIT60:GOTO3
5 GSB18:IFH<=0BEEP30,60:END
6 WAIT30:GOTO4
7 FORY=0TO4:FORX=0TO4:R=RND(13):GSB19:[A]=R:LCX,Y:?CHR$(224+R):NEXT:NEXT:GSB17:RTN
8 P=0:S=0:T=1:Q=0:FORY=0TO4:FORX=0TO4:GSB19:N=[A]:IFN>9N=0
9 IF[25+A]P=P+1:S=S+N:IF[A]=11T=T*2ELSEIF[A]=12Q=1
10 W=0:GSB16:NEXT:NEXT:IFS%10>0GSB17:RTN
11 S=(S+(P-1)*10)*T:LC8,7:?"-";S:LC9,2:?"*":BEEP:WAIT30:LC9,2:?CHR$(63+L):LC8,7:?"     ":I=I-S:LC8,6:?I;"  ":IFQBEEP20,30:GSB7:RTN
12 W=0:FORY=0TO4:FORX=0TO4:GSB19:IF[25+A][A]=RND(13):GSB16
13 NEXT:NEXT:GSB17:RTN
14 U=X-BTN(LEFT)+BTN(RIGHT):V=Y-BTN(UP)+BTN(DOWN):U=U+(U<0)-(U>4):V=V+(V<0)-(V>4):IF[U+V*5]=10U=X:V=Y
15 W=M:GSB16:X=U:Y=V:W=1:GSB16:[25+A]=M:WAIT7:IFBTN(SPACE)=!MRTNELSEGOTO14
16 GSB19:LCX,Y:?CHR$(224+16*W+[A]):RTN
17 FORY=0TO4:FORX=0TO4:GSB19:[25+A]=0:NEXT:NEXT:RTN
18 S=RND(30):LC1,7:?"-";S:BEEP30,10:LC1,7:?"     ":H=H-S:LC1,6:?H;"  ":RTN
19 A=X+Y*5:RTN