g l o b a l 
 
         A   "Z 
 
 e n d g l o b a l 
 
 
 
 f u n c   F ( )   "R = 
 
 r e t   0 . 1 
 
 e n d f u n c 
 
 
 
 f u n c   m a i n ( )   = 
 
         a u t o 
 
                 t 1   "  Z 
 
                 t 2   "  Z 
 
                 t 3   "  Z 
 
                 r 1   "  R 
 
                 r 2   "  R 
 
                 r 3   "  R 
 
                 b 1   "  b o o l 
 
                 b 2   "  b o o l 
 
                 l   "  b o o l 
 
                 r e s   "  Z 
 
                 r e s '   "  Z 
 
                 t t t   "  Z 
 
 t f "R 
 
         e n d a u t o 
 
 
 
 g o t o   | g g g 
 
       r e t 
 
 | g g g 
 
         
 
         t f !F ( ) 
 
         r e s   !R 2 S t r ( t f ) 
 
         d o   D e b u g ( r e s ) 
 
         g o t o   | M a i n L o o p 
 
 
 
         r 1   !  2 . 0 
 
         r 2   !  2 . 0   ^   2 . 0 
 
         r 3   !  r 1   ^   r 2 
 
         t 1   !  1 0 
 
         t 2   !  2 0 
 
         t 3   !  M o d ( t 1 ,   3 )   / /    t 1 
 
         r e s   !  Z 2 S t r ( t 3 ) 
 
       / /   r e s '   !  R 2 S t r ( r 3 ) 
 
         r e s '   !  r e s 
 
 
 
         / / b   !  Y   ~   N 
 
 
 
       / /   b 2   !  1 2 3 4   e"  1 2 3 4 
 
   b 2   !  r 1   d"  r 2 
 
         i f   b 2   g o t o   | l b l 
 
         r e t 
 
 | l b l 
 
         t t t     !    f ( t 1 , t 2 ,   t 3 ) 
 
         r e s   !  Z 2 S t r ( t t t ) 
 
         d o   D e b u g ( r e s ' ) 
 
 
 
 | M a i n L o o p 
 
         d o   D o E v e n t s ( ) 
 
         l   !  L e f t ( ) 
 
       i f   l   g o t o   | E x i t 
 
       g o t o   | M a i n L o o p 
 
 | E x i t 
 
       d o   E n d ( ) 
 
 e n d f u n c 
 
 
 
 f u n c   f ( x   "  Z ,   y     "  Z ,   z   "Z )     "  Z = 
 
         a u t o 
 
                 t     "  Z 
 
                 s     "  Z 
 
                 r   "Z 
 
         e n d a u t o 
 
 
 
         t     !  x   +   y 
 
         s !  t +   z 
 
       r     !  s + A 
 
 
 
         r e t   r 
 
 e n d f u n c 