:Disp "cranwell@yahoo.com" :Lbl CRANWELL :iPart 8rand+1üE :0üSCO:401üW :ClLCD:For(K,1,14) :Outpt(E,K,"+Ê"):End :Goto BOOM :Lbl A:getKyüX :If X:Goto MAN :If W<0:Goto ZEN ::W-1üW :iPart 3rand-1üQ :iPart 3rand-1üR :K+RüK:E+QüE :If E>8:8üE :If E<1:1üE :If K>21:21üK :If K<1:1üK :Outpt(I,J,"Ê") :Outpt(E,K," ") :Goto A :Lbl MAN:W-1üW :If X==24:J-1üJ :If X==25:I-1üI :If X==26:J+1üJ :If X==34:I+1üI :If J<1:21üJ :If I<1:8üI :If J>21:1üJ :If I>8:1üI :Outpt(G,M,"+") :Outpt(I,J,"Ê") :IüG:JüM :If K==J:Then :If E==I :Goto BOOM:End :Goto A :Lbl BOOM :If K÷1:2üK :If Kù20:20üK :For(S,1,4) :Outpt(E,K-1,"~*~") :For(Z,1,41):End :Outpt(E,K-1,"*¢*") :For(Z,1,41):End :End :iPart 8rand+1üE :iPart 21rand+1üK :iPart 8rand+1üI :iPart 21rand+1üJ :IüG:JüM:SCO+9üSCO :If W<0:Goto ZEN :Goto A :Lbl ZEN :Outpt(3,4," YOUR SCORE:") :Outpt(3,16,SCO) :If SCO>GRL :InpST "NAME=?",NM :If SCO>GRL:SCOüGRL :Outpt(5,5,NM+"'S ") :Outpt(6,4,"HIGH SCORE: ") :Outpt(6,16,GRL)