1060
------------------
Set Var( 0x0 ,  0x2000 )
Set Var( 0x1 ,  0x2001 )
02( 0x2 ,  0x1009 )
2A( 0x6016 )
Set Var( 0x4 ,  0x2002 )
0E( 0x4 ,  0x100e )
Multiply( 0x4 ,  0x2003 )
If( 0x1011 ,  0x6036 )
----- Set Var( 0x5 ,  0x2004 )
----- 0E( 0x5 ,  0x100e )
----- Multiply( 0x4 ,  0x5 )
End If( )
03( )
If( 0x1 )
----- || !Req( 0x101b )
----- Return( )
End If( )
Set Var( 0x5 ,  0x100c )
Multiply( 0x5 ,  0x2005 )
If( 0x1008 ,  0x5 ,  0x100b )
----- Return( )
End If( )
Set Var( 0x5 ,  0x1002 )
0E( 0x5 ,  0x1003 )
If( 0x1008 ,  0x5 ,  0x2001 )
----- Set Var( 0x1 ,  0x2006 )
Else( )
----- If( 0x1000 ,  0x2007 )
----- ----- Set Var( 0x5 ,  0x0 )
----- ----- Multiply( 0x5 ,  0x2008 )
----- ----- If( 0x1007 ,  0x1 ,  0x5 )
----- ----- ----- Set Var( 0x1 ,  0x5 )
----- ----- Else( )
----- ----- ----- If( 0x1007 ,  0x1 ,  0x2001 )
----- ----- ----- ----- Multiply( 0x1 ,  0x2008 )
----- ----- ----- End If( )
----- ----- ----- 2E( 0x2 ,  0x3 ,  0x2009 )
----- ----- ----- Divide( 0x3 ,  0x1027 )
----- ----- ----- If( 0x1008 ,  0x3 ,  0x4 )
----- ----- ----- ----- Call AI( )
----- ----- ----- End If( )
----- ----- Else( )
----- ----- ----- Multiply( 0x1 ,  0x200a )
----- ----- End If( )
----- ----- If( 0x1009 ,  0x1 ,  0x0 )
----- ----- ----- Set Var( 0x7 ,  0x200a )
----- ----- Else( )
----- ----- ----- Set Var( 0x5 ,  0x1 )
----- ----- ----- 0F( 0x5 ,  0x0 )
----- ----- ----- Set Var( 0x7 ,  0x5 )
----- ----- End If( )
----- ----- 0E( 0x7 ,  0x1003 )
----- ----- 1F( 0x7 )
----- ----- Goto?( )
----- ----- Goto?( )