\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=TP
\FILE=TP.85P
:ClLCD
:FnOff 
:0\->\S
:3\->\W
:1\->\H
:1\->\V
:getKy\->\G
:Lbl RST
:\(-)\V\->\V
:If W==0
:Then
:FnOn 
:Disp "Score:"
:Disp S
:Stop
:End
:AxesOff
:ClLCD
:(int (18*rand))+2\->\X
:4\->\Y
:11\->\A
:13\->\C
:Outpt(8,A,"X")
:Outpt(8,C-1,"X")
:Outpt(8,C,"X")
:Lbl ST
:Outpt(Y,X,"o")
:If Y==7 and (X==A or X==C or X==C-1)
:Then
:\(-)\V\->\V
:S+100\->\S
:End
:If Y==7 and X\<>\A and X\<>\C and X\<>\C-1
:Then
:W-1\->\W
:Goto RST
:End
:If Y==1
:\(-)\V\->\V
:If X==1 or X==21
:\(-)\H\->\H
:If G==24 and A==1
:Goto SKP
:If G==26 and C==21
:Goto SKP
:A\->\B
:C\->\D
:If G==24
:Then
:A-2\->\A
:C-2\->\C
:End
:If G==26
:Then
:A+2\->\A
:C+2\->\C
:End
:Outpt(8,B," ")
:Outpt(8,D-1," ")
:Outpt(8,D," ")
:Outpt(8,A,"X")
:Outpt(8,C-1,"X")
:Outpt(8,C,"X")
:Lbl SKP
:Outpt(Y,X," ")
:X+H\->\X
:Y+V\->\Y
:getKy\->\G
:Goto ST
\STOP85\