:Disp "cranwell@yahoo.com"
:Lbl Cranwell;ClLCD:1000üW
:9üK:KüH:9üM:MüS:1üE
:EüF:0üZ:1üC:1üB:BüG
:1üA:AüU:Goto F
:Lbl L:getKyüX:W-3üW
:If X==25:Goto F
:If G==8 and U==M;Goto Z
:If X:Goto M
:Lbl NOP:iPart 3rand-1üQ
:K+QüK:U+CüU:Z+1üZ
:If K>21:21üK
:If K<1:1üK
:If U>20:ú1üC
:If U<2:1üC
:If Z>19:Then
:0üZ:E+1üE
:If E>8:Goto Z:End
:Outpt(F,H," "):Outpt(E,K,"@")
:KüH:EüF
:If G>8:8üG
:Outpt(B,A,"~"):Outpt(G,U,"$")
:UüA:GüB:0üN:Goto L
:Lbl M:If X==24:ú1üN
:If X==26:1üN:M+NüM
:If M<1:1üM:If M>21:21üM
:If X==31:KüM
:Outpt(8,S," "):Outpt(8,M,"Ê")
:MüS:Goto L
:Lbl F;0üX:8üJ:8üL
:Repeat J÷E:J-1üJ
:Outpt(J,M,"|"):Outpt(L,M," ")
:JüL:End
:Outpt(J,M,"*"):Outpt(8,M,"Ê")
:If K==M:Then
:iPart 9rand+6üK
:If E÷1:G+1üG
:E-1üE:0üZ
:If G>8:Then
:Outpt(4,9,"BONUS")
:W+100üW:End:End
:If E<1:1üE
:If U==M and E÷G:EüG:Goto NOP
:Lbl Z:0üZ:Outpt(8,M,"%")
:" BUCKS "üB
:If E>8:" LOSER "üB:Repeat Z>41
:iPart 6rand+2üE:iPart 19rand+2üK
:Outpt(E,K,"$")
:Z+1üZ:End
:Outpt(2,9,W):Outpt(3,7,B)
:Outpt(5,8," BIG "):Outpt(6,7,B)
:If W>BUCK:WüBUCK
:Outpt(7,9,BUCK)

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

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