: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)

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)