\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Shift
\FILE=SHIFT.85P
:Float
:1\->\TR
:ClLCD
:{3,3}\->\dim B
:Fill(0,B)
:[[1,2,3][4,5,6][7,8,0]\->\W
:1\->\X
:Lbl HEY
:ClLCD
:Disp "LOADING..."
:Lbl OH
:int (3*(rand))+1\->\Y
:int (3*(rand))+1\->\Z
:If B(Y,Z)==0
:Then
:X\->\B(Y,Z)
:Else
:Goto OH
:End
:IS>(X,8)
:Goto HEY
:Lbl GO
:If B==W
:Goto TEND
:ClLCD
:Disp B
:Outpt(8,1,"Try")
:Outpt(8,5,TR)
:Input M
:If M<1 or M>9 or M\<>\(iPart M)
:Goto GO
:M\->\MM
:If M==1 or M==2 or M==3
:M+6\->\M
:If MM==7 or MM==8 or MM==9
:M-6\->\M
:(int ((M-1)/3))+1\->\A
:mod(M,3)\->\C
:If C==0
:3\->\C
:If A+1>3
:Goto P
:If B(A+1,C)==0
:Then
:B(A,C)\->\B(A+1,C)
:0\->\B(A,C)
:TR+1\->\TR
:Goto GO
:End
:Lbl P
:If A-1<1
:Goto Q
:If B(A-1,C)==0
:Then
:B(A,C)\->\B(A-1,C)
:0\->\B(A,C)
:TR+1\->\TR
:Goto GO
:End
:Lbl Q
:If C+1>3
:Goto R
:If B(A,C+1)==0
:Then
:B(A,C)\->\B(A,C+1)
:0\->\B(A,C)
:TR+1\->\TR
:Goto GO
:End
:Lbl R
:If C-1<1
:Goto GO
:If B(A,C-1)==0
:Then
:B(A,C)\->\B(A,C-1)
:0\->\B(A,C)
:TR+1\->\TR
:Goto GO
:End
:Goto GO
:Lbl TEND
:ClLCD
:Disp B
:Outpt(6,5,"YOU WIN")
:Stop
\STOP85\