L O C A L   V E R : = " 1 . 3   g a m m a " , f n : = " b j w s f " ; 
 
 L O C A L   C L R : = { # F F 0 0 0 0 h , # F F 8 0 0 0 h , # F F F F 0 0 h , # 0 0 F F 0 0 h , # 0 0 F F F F h , # 0 0 0 0 F F h , # F F 0 0 F F h } ; 
 
 L O C A L   G E M S : = { { { } } } ; 
 
 L O C A L   S C O R E , A N I S ; 
 
 L O C A L   B S : = 8 , T S : = 2 6 , B L S : = 5 , F I N T : = 5 ; 
 
 L O C A L   T L , T T , G R A : = 1 0 0 0 ; 
 
 L O C A L   V M I N : = 5 0 , L E V , P T S T , M S C : = 0 ; 
 
 L O C A L   C S : = { 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 0 , 0 , 5 , 5 , 7 , 1 0 , 9 , 1 2 , 1 0 , 5 , 6 , 6 , 9 , 9 , 5 , 9 , 5 , 7 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 5 , 5 , 9 , 9 , 9 , 7 , 1 2 , 9 , 9 , 9 , 1 0 , 8 , 8 , 1 0 , 1 0 , 6 , 7 , 9 , 8 , 1 2 , 1 1 , 1 1 , 9 , 1 1 , 9 , 8 , 8 , 1 0 , 9 , 1 3 , 9 , 8 , 8 , 6 , 7 , 6 , 8 , 7 , 9 , 8 , 9 , 8 , 9 , 8 , 6 , 8 , 9 , 5 , 5 , 8 , 5 , 1 3 , 9 , 9 , 9 , 9 , 7 , 7 , 6 , 9 , 8 , 1 1 , 8 , 8 , 7 , 6 , 9 , 6 , 9 } ; 
 
 
 
 L O C A L   r s t ( ) 
 
 B E G I N 
 
   L E V : = 1 ; S C O R E : = 0 ; M S C : = 0 ; 
 
   M S G B O X ( " B a d   s a v e f i l e . " ) ; 
 
   / / C A S ( U F A C T O R ( 1 0 0 _ C , 1 _ A ) ) ; 
 
 E N D ; 
 
 
 
 L O C A L   l o a d ( ) 
 
 B E G I N 
 
   I F   N O T   P O S ( N o t e s , f n )   T H E N 
 
     L E V : = 1 ; S C O R E : = 0 ; 
 
     R E T U R N   0 ; 
 
   E N D ; 
 
   L O C A L   s t r : = N o t e s ( f n ) , n , i , t , f l a g , n o i n f o ; 
 
   L O C A L   I , J , K ; 
 
   F O R   i   F R O M   1   T O   D I M ( s t r ) - 2   D O 
 
     n : = n + i * s t r [ i ] ; 
 
     s t r [ i ] : = B I T X O R ( s t r [ i ] , s t r [ D I M ( s t r ) - 1 ] ) ; 
 
   E N D ; 
 
   f l a g : = 0 ; 
 
   I F   n   M O D   2 5 5 + 1 = = s t r [ D I M ( s t r ) ]   T H E N 
 
     I F E R R 
 
       t : = E X P R ( L E F T ( s t r , D I M ( s t r ) - 2 ) ) ; 
 
       S C O R E : = t [ 1 ] ; L E V : = t [ 2 ] ; G E M S : = t [ 3 ] ; M S C : = t [ 4 ] ; 
 
       I F   T Y P E ( G E M S ) = = 6   T H E N 
 
         P T S T : = ( 5 0 * L E V ^ 3 + 4 5 0 * L E V ^ 2 + 1 0 0 0 * L E V ) / 3 ; 
 
         f l a g : = 1 ; 
 
       E L S E 
 
         n o i n f o : = 1 ; 
 
       E N D ; 
 
     T H E N   E N D ; 
 
   E N D ; 
 
   I F   f l a g = = 0   T H E N 
 
     G E M S : = { { { } } } ; 
 
     F O R   I   F R O M   1   T O   B S   D O 
 
       F O R   J   F R O M   1   T O   B S   D O 
 
         F O R   K   F R O M   1   T O   4   D O 
 
           G E M S [ I , J , K ] : = 0 ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
     I F   N O T   n o i n f o   T H E N 
 
       r s t ( ) ; 
 
     E N D ; 
 
   E N D ; 
 
   R E T U R N   f l a g ;   
 
 E N D ; 
 
 
 
 L O C A L   s a v e ( ) 
 
 B E G I N 
 
   L O C A L   s t r , i , n , t ; 
 
   M S C : = M A X ( M S C , S C O R E ) ; 
 
   n : = 0 ; s t r : = S T R I N G ( { S C O R E , L E V , G E M S , M S C } ) ; 
 
   R E P E A T 
 
     t : = R A N D I N T ( 1 , 2 5 5 ) ; 
 
     F O R   i   F R O M   1   T O   D I M ( s t r )   D O 
 
       s t r [ i ] : = B I T X O R ( s t r [ i ] , t ) ; 
 
       I F   s t r [ i ] = = 0   T H E N 
 
         C O N T I N U E   2 ; 
 
       E N D ; 
 
       n : = n + i * s t r [ i ] ; 
 
     E N D ; 
 
     B R E A K ; 
 
   U N T I L   0 ; 
 
   N o t e s ( f n ) : = s t r + C H A R ( { t , n   M O D   2 5 5 + 1 } ) ;   
 
 E N D ; 
 
 
 
 L O C A L   I N I T ( ) 
 
 B E G I N 
 
   L O C A L   C L , W I D : = T S * ( B S - 2 ) + B L S , P , I ; 
 
   P T S T : = 5 0 0 ; 
 
   L E V : = 1 ; 
 
   D I M G R O B _ P ( G 1 , 3 2 0 , 2 4 0 ) ; 
 
   D I M G R O B _ P ( G 2 , 3 2 0 , 2 4 0 ) ; 
 
   D I M G R O B _ P ( G 3 , W I D , 2 4 0 - 2 * B L S - B S * T S ) ; 
 
   R E C T _ P ( G 0 , 0 ) ; 
 
   S C O R E : = 0 ; 
 
   A N I S : = 0 ; 
 
   L O C A L   I , J , K ; 
 
   F O R   I   F R O M   1   T O   B S   D O 
 
     F O R   J   F R O M   1   T O   B S   D O 
 
       F O R   K   F R O M   1   T O   4   D O 
 
         G E M S [ I , J , K ] : = 0 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   F O R   P   F R O M   0   T O   1   S T E P   0 . 0 0 1   D O 
 
     I F   P d"0 . 5   T H E N 
 
       C L : = R G B ( 2 5 5 , P * 5 1 0 , 0 ) ; 
 
     E L S E 
 
       C L : = R G B ( ( 1 - P ) * 5 1 0 , 2 5 5 , 0 ) ; 
 
     E N D ; 
 
     L I N E _ P ( G 3 , P * W I D - 1 , 0 , P * W I D , 2 4 0 - 2 * B L S - B S * T S , C L ) ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   S T R W ( S T ) 
 
 B E G I N 
 
   L O C A L   I , R E T : = 0 , A S C I : = A S C ( S T ) ; 
 
   F O R   I   F R O M   1   T O   D I M ( S T )   D O 
 
     R E T : = R E T + C S [ A S C I [ I ] ] ; 
 
   E N D ; 
 
   R E T U R N   R E T ; 
 
 E N D ; 
 
 
 
 L O C A L   D R A W P R O ( P ) 
 
 B E G I N 
 
   L O C A L   C L , W I D : = T S * ( B S - 2 ) + B L S ; 
 
   P : = M A X ( M I N ( P , 1 ) , 0 ) ; 
 
   I F   P d"0 . 5   T H E N   C L : = R G B ( 2 5 5 , P * 5 1 0 , 0 ) ; 
 
   E L S E   C L : = R G B ( ( 1 - P ) * 5 1 0 , 2 5 5 , 0 ) ;   E N D ; 
 
   R E C T _ P ( G 1 , 3 2 0 - T S * B S + T S - B L S , B S * T S + B L S , 3 2 0 - T S * B S + T S - B L S + W I D - 1 , 2 3 9 - B L S , 0 ) ; 
 
   I F   P   T H E N 
 
     B L I T _ P ( G 1 , 3 2 0 - T S * B S + T S - B L S , B S * T S + B L S , 3 2 0 - T S * B S + T S - B L S + P * W I D , 2 4 0 - B L S , G 3 , 0 , 0 , P * W I D , 2 3 9 - 2 * B L S - B S * T S ) ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   F A I L E D ( ) 
 
 B E G I N 
 
   L O C A L   I , J ; 
 
   F O R   I   F R O M   1   T O   B S - 2   D O 
 
     F O R   J   F R O M   1   T O   B S - 1   D O 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
             G E M S [ I , J , 1 ] = = G E M S [ I + 2 , J + 1 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J + 1 , 1 ]   A N D 
 
             G E M S [ I , J , 1 ] = = G E M S [ I + 2 , J , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
             G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 2 , J , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J + 1 , 1 ]   A N D 
 
             G E M S [ I , J , 1 ] = = G E M S [ I + 2 , J + 1 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
             G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 2 , J + 1 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 1 , J + 1 , 1 ]   A N D 
 
             G E M S [ I , J + 1 , 1 ] = = G E M S [ I + 2 , J , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J , I , 1 ] = = G E M S [ J , I + 1 , 1 ]   A N D 
 
             G E M S [ J , I , 1 ] = = G E M S [ J + 1 , I + 2 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J , I , 1 ] = = G E M S [ J , I + 2 , 1 ]   A N D 
 
             G E M S [ J , I , 1 ] = = G E M S [ J + 1 , I + 1 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J + 1 , I , 1 ] = = G E M S [ J , I + 1 , 1 ]   A N D 
 
             G E M S [ J + 1 , I , 1 ] = = G E M S [ J , I + 2 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J + 1 , I , 1 ] = = G E M S [ J + 1 , I + 1 , 1 ]   A N D 
 
             G E M S [ J + 1 , I , 1 ] = = G E M S [ J , I + 2 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J + 1 , I , 1 ] = = G E M S [ J , I + 1 , 1 ]   A N D 
 
             G E M S [ J + 1 , I , 1 ] = = G E M S [ J + 1 , I + 2 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J , I , 1 ] = = G E M S [ J + 1 , I + 1 , 1 ]   A N D 
 
             G E M S [ J , I , 1 ] = = G E M S [ J + 1 , I + 2 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   F O R   I   F R O M   1   T O   B S - 3   D O 
 
     F O R   J   F R O M   1   T O   B S   D O 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
             G E M S [ I , J , 1 ] = = G E M S [ I + 3 , J , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 2 , J , 1 ]   A N D 
 
             G E M S [ I , J , 1 ] = = G E M S [ I + 3 , J , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J , I , 1 ] = = G E M S [ J , I + 1 , 1 ]   A N D 
 
             G E M S [ J , I , 1 ] = = G E M S [ J , I + 3 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
       I F   G E M S [ J , I , 1 ] = = G E M S [ J , I + 2 , 1 ]   A N D 
 
             G E M S [ J , I , 1 ] = = G E M S [ J , I + 3 , 1 ]   T H E N 
 
         R E T U R N   0 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   R E T U R N   1 ; 
 
 E N D ; 
 
 
 
 L O C A L   F I L L ( ) 
 
 B E G I N 
 
   L O C A L   I , J , L A S T : = 0 , C N T , M I N P : = 0 ; 
 
   F O R   J   F R O M   1   T O   B S   D O 
 
     C N T : = 1 ; 
 
     F O R   I   F R O M   B S   D O W N T O   1   D O 
 
       I F   G E M S [ I , J , 4 ] = = 0   T H E N 
 
         G E M S [ I , J , 1 ] : = R A N D I N T ( 1 , 7 ) ; 
 
         G E M S [ I , J , 2 ] : = V M I N ; 
 
         G E M S [ I , J , 3 ] : = "( T S + F I N T ) * C N T + M I N P ; 
 
         G E M S [ I , J , 4 ] : = 1 ; 
 
         C N T : = C N T + 1 ; 
 
       E L S E 
 
         I F   M I N P > G E M S [ I , J , 3 ]   T H E N 
 
           M I N P : = G E M S [ I , K , 3 ] ; 
 
           C N T : = 1 ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   D R O P ( ) 
 
 B E G I N 
 
   L O C A L   I , J , P ; 
 
   F O R   J   F R O M   1   T O   B S   D O 
 
     P : = B S ; 
 
     F O R   I   F R O M   B S   D O W N T O   1   D O 
 
       I F   G E M S [ I , J , 4 ] = = 1   T H E N 
 
         G E M S [ P , J , 1 ] : = G E M S [ I , J , 1 ] ; 
 
         G E M S [ P , J , 2 ] : = G E M S [ I , J , 2 ] ; 
 
         G E M S [ P , J , 3 ] : = G E M S [ I , J , 3 ] ; 
 
         G E M S [ I , J , 4 ] : = 0 ; 
 
         G E M S [ I , J , 2 ] : = V M I N ; 
 
         G E M S [ P , J , 4 ] : = 1 ; 
 
         P : = P - 1 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   F I L L ( ) ; 
 
 E N D ; 
 
 
 
 L O C A L   F I L L _ N O _ 3 ( ) 
 
 B E G I N 
 
   L O C A L   I , J ; 
 
   L O C A L   F L A G : = 0 ; 
 
   R E P E A T 
 
     R E P E A T 
 
       D R O P ( ) ; 
 
       F L A G : = 1 ; 
 
       F O R   I   F R O M   1   T O   B S   D O 
 
         F O R   J   F R O M   1   T O   B S - 2   D O 
 
           I F   G E M S [ I , J , 1 ] = = G E M S [ I , J + 1 , 1 ]   A N D 
 
             G E M S [ I , J + 1 , 1 ] = = G E M S [ I , J + 2 , 1 ]   T H E N 
 
             G E M S [ I , J , 4 ] : = 0 ; 
 
             G E M S [ I , J + 1 , 4 ] : = 0 ; 
 
             G E M S [ I , J + 2 , 4 ] : = 0 ; 
 
             F L A G : = 0 ; 
 
           E N D ; 
 
         E N D ; 
 
       E N D ; 
 
       F O R   I   F R O M   1   T O   B S - 2   D O 
 
         F O R   J   F R O M   1   T O   B S   D O 
 
           I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
             G E M S [ I + 1 , J , 1 ] = = G E M S [ I + 2 , J , 1 ]   T H E N 
 
             G E M S [ I , J , 4 ] : = 0 ; 
 
             G E M S [ I + 1 , J , 4 ] : = 0 ; 
 
             G E M S [ I + 2 , J , 4 ] : = 0 ; 
 
             F L A G : = 0 ; 
 
           E N D ; 
 
         E N D ; 
 
       E N D ; 
 
     U N T I L   F L A G = = 1 ; 
 
   U N T I L   F A I L E D ( ) = = 0 ; 
 
   F O R   I   F R O M   1   T O   B S   D O 
 
     F O R   J   F R O M   1   T O   B S   D O 
 
       G E M S [ I , J , 3 ] : = ( I - 1 - B S ) * ( T S + F I N T ) ; 
 
       G E M S [ I , J , 2 ] : = 0 ; 
 
     E N D ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   C L E A R ( C ) 
 
 B E G I N 
 
   L O C A L   R E T : = 0 , C O M : = 0 , T M P ; 
 
   F O R   I   F R O M   1   T O   B S   D O 
 
     F O R   J   F R O M   1   T O   B S - 2   D O 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I , J + 1 , 1 ]   A N D 
 
         G E M S [ I , J + 1 , 1 ] = = G E M S [ I , J + 2 , 1 ]   T H E N 
 
         T M P : = G E M S [ I , J , 4 ] + G E M S [ I , J + 1 , 4 ] + G E M S [ I , J + 2 , 4 ] ;   
 
         G E M S [ I , J , 4 ] : = 0 ; 
 
         G E M S [ I , J + 1 , 4 ] : = 0 ; 
 
         G E M S [ I , J + 2 , 4 ] : = 0 ; 
 
         R E T : = 1 ; 
 
         I F   T M P = = 1   T H E N 
 
           C O M : = C O M - 1 ; 
 
         E N D ; 
 
         S C O R E : = S C O R E + 5 * ( L E V + 1 ) * ( C + C O M ) ; 
 
         C O M : = C O M + 1 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   F O R   I   F R O M   1   T O   B S - 2   D O 
 
     F O R   J   F R O M   1   T O   B S   D O 
 
       I F   G E M S [ I , J , 1 ] = = G E M S [ I + 1 , J , 1 ]   A N D 
 
         G E M S [ I + 1 , J , 1 ] = = G E M S [ I + 2 , J , 1 ]   T H E N 
 
         T M P : = G E M S [ I , J , 4 ] + G E M S [ I + 1 , J , 4 ] + G E M S [ I + 2 , J , 4 ] ; 
 
         G E M S [ I , J , 4 ] : = 0 ; 
 
         G E M S [ I + 1 , J , 4 ] : = 0 ; 
 
         G E M S [ I + 2 , J , 4 ] : = 0 ; 
 
         R E T : = 1 ; 
 
         I F   T M P = = 1   T H E N 
 
           C O M : = C O M - 1 ; 
 
         E N D ; 
 
         S C O R E : = S C O R E + 5 * ( L E V + 1 ) * ( C + C O M ) ; 
 
         C O M : = C O M + 1 ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   R E T U R N   R E T ; 
 
 E N D ; 
 
 
 
 L O C A L   D R A W ( ) 
 
 B E G I N 
 
   R E C T _ P ( G 1 , 0 , 0 , 3 1 9 , 2 3 9 , 0 ) ; 
 
   F O R   I   F R O M   1   T O   B S   D O 
 
     F O R   J   F R O M   1   T O   B S   D O 
 
       I F   G E M S [ I , J , 4 ] = = 1   T H E N 
 
         R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - J ) , G E M S [ I , J , 3 ] + B L S , 3 2 0 - B L S - 1 - T S * ( B S - J ) , G E M S [ I , J , 3 ] + T S - 1 , C L R [ G E M S [ I , J , 1 ] ] ) ; 
 
       E N D ;   
 
     E N D ; 
 
   E N D ; 
 
   L O C A L   L , R , T , B ; 
 
   L : = 3 2 0 - T S * B S ; 
 
   R : = 3 2 0 - T S ; 
 
   T : = B S * T S + B L S ; 
 
   B : = 2 3 9 - B L S ; 
 
   R E C T _ P ( G 1 , L , T , L + T S - 1 - B L S , B , # F F 0 0 0 0 h ) ; 
 
   R E C T _ P ( G 1 , R , T , 3 1 9 - B L S , B , # F F 0 0 h ) ; 
 
   A N I S : = A N I S + M A X ( ( S C O R E - A N I S ) / 5 , 1 ) ; 
 
   I F   A B S ( A N I S - S C O R E ) d"1   T H E N 
 
     A N I S : = S C O R E ; 
 
   E N D ; 
 
   M S C : = M A X ( M S C , A N I S ) ; 
 
   D R A W P R O ( A N I S / P T S T ) ; 
 
   W : = S T R W ( S T R I N G ( L E V , 1 ) ) ; 
 
   T E X T O U T _ P ( S T R I N G ( L E V , 1 ) , G 1 , L + ( T S - B L S ) / 2 - S T R W ( S T R I N G ( L E V , 1 ) ) / 2 , ( T + B ) / 2 - 7 , 3 , 1 6 7 7 7 2 1 5 , 3 2 0 , # F F 0 0 0 0 h ) ; 
 
   T E X T O U T _ P ( S T R I N G ( L E V + 1 , 1 ) , G 1 , R + ( T S - B L S ) / 2 - S T R W ( S T R I N G ( L E V + 1 , 1 ) ) / 2 , ( T + B ) / 2 - 7 , 3 , 0 , 3 2 0 , # F F 0 0 h ) ;   
 
   T E X T O U T _ P ( " B e j e w e l e d   " + V E R , G 1 , 0 , 2 2 8 , 1 , 1 6 7 7 7 2 1 5 ) ; 
 
   T E X T O U T _ P ( " s c o r e : " + F L O O R ( A N I S ) , G 1 , 2 7 , 5 0 , 2 , 1 6 7 7 7 2 1 5 ) ; 
 
   T E X T O U T _ P ( " b e s t s c o r e : " + F L O O R ( M S C ) , G 1 , 5 , 7 0 , 2 , 1 6 7 7 7 2 1 5 ) ; 
 
   B L I T _ P ( G 0 , G 1 ) ; 
 
 E N D ; 
 
 
 
 L O C A L   M O V E ( ) 
 
 B E G I N 
 
   L O C A L   I , J , F L A G ; 
 
   T T : = T I C K S ( ) ; 
 
   W H I L E   1   D O 
 
     T L : = T T ; 
 
     T T : = T I C K S ( ) ; 
 
     F L A G : = 0 ; 
 
     F O R   I   F R O M   1   T O   B S   D O 
 
       L O C A L   P : = ( I - 1 ) * T S ; 
 
       F O R   J   F R O M   1   T O   B S   D O 
 
         I F   G E M S [ I , J , 3 ] < P   T H E N 
 
           F L A G : = 1 ; 
 
           G E M S [ I , J , 2 ] : = G E M S [ I , J , 2 ] + ( T T - T L ) / 1 0 0 0 * G R A ;   
 
           G E M S [ I , J , 3 ] : = G E M S [ I , J , 3 ] + G E M S [ I , J , 2 ] * ( T T - T L ) / 1 0 0 0 ; 
 
           I F   G E M S [ I , J , 3 ] > P   T H E N 
 
             G E M S [ I , J , 3 ] : = P ; 
 
             G E M S [ I , J , 2 ] : = V M I N ; 
 
           E N D ; 
 
         E N D ; 
 
       E N D ; 
 
     E N D ; 
 
     D R A W ( ) ; 
 
     I F   F L A G = = 0   T H E N   B R E A K ;   E N D ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 L O C A L   L E V U ( ) 
 
 B E G I N 
 
   L O C A L   I , J , F L A G , T S T ; 
 
   T S T : = T I C K S ( ) ; 
 
   L O C A L   L ; 
 
   L : = 3 2 0 - T S * B S ; 
 
   L E V : = L E V + 1 ; 
 
   P T S T : = 5 0 * L E V * ( L E V + 4 ) * ( L E V + 5 ) / 3 ; 
 
   W H I L E   T T - T S T d"2 5 0 0   D O 
 
     T T : = T I C K S ( ) ; 
 
     R E C T _ P ( G 1 , L , 0 , 3 1 9 , ( T T - T S T ) / 2 5 0 0 * ( T S * B S ) , 0 ) ; 
 
     D R A W P R O ( 1 - ( T T - T S T ) * ( P T S T - S C O R E ) / P T S T / 2 5 0 0 ) ; 
 
     A N I S : = A N I S + M A X ( ( S C O R E - A N I S ) / 5 , 1 ) ; 
 
     I F   A B S ( A N I S - S C O R E ) d"1   T H E N 
 
       A N I S : = S C O R E ; 
 
     E N D ; 
 
     B L I T _ P ( G 0 , G 1 ) ; 
 
   E N D ; 
 
   R E C T _ P ( G 1 , L , T , L + T S - 1 - B L S , B , # F F 0 0 0 0 h ) ; 
 
   R E C T _ P ( G 1 , R , T , 3 1 9 - B L S , B , # F F 0 0 h ) ; 
 
   T E X T O U T _ P ( S T R I N G ( L E V , 1 ) , G 1 , L + ( T S - B L S ) / 2 - S T R W ( S T R I N G ( L E V , 1 ) ) / 2 , ( T + B ) / 2 - 7 , 3 , 1 6 7 7 7 2 1 5 , 3 2 0 , # F F 0 0 0 0 h ) ; 
 
   T E X T O U T _ P ( S T R I N G ( L E V + 1 , 1 ) , G 1 , R + ( T S - B L S ) / 2 - S T R W ( S T R I N G ( L E V + 1 , 1 ) ) / 2 , ( T + B ) / 2 - 7 , 3 , 0 , 3 2 0 , # F F 0 0 h ) ; 
 
   F I L L _ N O _ 3 ( ) ; 
 
   s a v e ( ) ; 
 
   M O V E ( ) ; 
 
 E N D ; 
 
 
 
 L O C A L   S W A P ( M R , M C , T R , T C ) 
 
 B E G I N 
 
   L O C A L   I : = T I C K S ( ) , T ; 
 
   T : = I ; 
 
   W H I L E   T - I d"1 5 0   D O 
 
     R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - M C ) , ( M R - 1 ) * T S + B L S , 3 2 0 - B L S - 1 - T S * ( B S - T C ) , T R * T S - 1 , 0 ) ; 
 
     T : = T I C K S ( ) ; 
 
     L O C A L   P : = ( T - I ) / 1 5 0 * T S ; 
 
     P : = M I N ( P , T S ) ; 
 
     I F   M R = = T R   T H E N 
 
       R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - M C ) + P , ( M R - 1 ) * T S + B L S , 3 2 0 - B L S - 1 - T S * ( B S - M C ) + P , M R * T S - 1 , C L R [ G E M S [ M R , M C , 1 ] ] ) ; 
 
       R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - T C ) - P , ( T R - 1 ) * T S + B L S , 3 2 0 - B L S - 1 - T S * ( B S - T C ) - P , T R * T S - 1 , C L R [ G E M S [ T R , T C , 1 ] ] ) ; 
 
     E L S E 
 
       R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - M C ) , ( M R - 1 ) * T S + B L S + P , 3 2 0 - B L S - 1 - T S * ( B S - M C ) , M R * T S - 1 + P , C L R [ G E M S [ M R , M C , 1 ] ] ) ; 
 
       R E C T _ P ( G 1 , 3 2 0 - T S * ( ( B S + 1 ) - T C ) , ( T R - 1 ) * T S + B L S - P , 3 2 0 - B L S - 1 - T S * ( B S - T C ) , T R * T S - 1 - P , C L R [ G E M S [ T R , T C , 1 ] ] ) ; 
 
     E N D ;   
 
     B L I T _ P ( G 0 , G 1 ) ; 
 
   E N D ; 
 
   L O C A L   V : = G E M S [ M R , M C ] ; 
 
   G E M S [ M R , M C ] : = G E M S [ T R , T C ] ; 
 
   G E M S [ T R , T C ] : = V ; 
 
   V : = G E M S [ M R , M C , 3 ] ; 
 
   G E M S [ M R , M C , 3 ] : = G E M S [ T R , T C , 3 ] ; 
 
   G E M S [ T R , T C , 3 ] : = V ; 
 
   D R A W ( ) ; 
 
 E N D ; 
 
 
 
 L O C A L   G A M E O V E R ( T X T ) 
 
 B E G I N 
 
   L O C A L   T S T : = T I C K S ( ) , W D H ; 
 
   W D H : = S T R W ( T X T ) / 7 * 1 0 ; 
 
   W H I L E   T T - T S T d"5 0 0   D O 
 
     T T : = T I C K S ( ) ; 
 
     R E C T _ P ( G 1 , 3 2 0 - T S * B S , 0 , 3 1 9 , T S * B S - 1 , { 0 , F L O O R ( ( T T - T S T ) / 5 0 0 * 1 0 ) } ) ; 
 
     B L I T _ P ( G 0 , G 1 ) ; 
 
   E N D ; 
 
   R E C T _ P ( G 1 , 3 2 0 - T S * B S , T S * 4 - 1 2 , 3 1 9 , T S * 4 + 1 3 , 0 ) ; 
 
   T E X T O U T _ P ( T X T , G 1 , 3 2 0 - B S * T S / 2 - W D H / 2 , T S * 4 - 1 0 , 6 , 1 6 7 7 7 2 1 5 , 3 2 0 , 0 ) ; 
 
   B L I T _ P ( G 0 , G 1 ) ; 
 
   G E M S : = - 1 ; 
 
   s a v e ( ) ; 
 
   W A I T ( 2 ) ; 
 
 E N D ; 
 
 
 
 L O C A L   G A M E ( ) 
 
 B E G I N 
 
   L O C A L   M T , M X , M Y , O X , O Y ; 
 
   L O C A L   A 1 , A 2 , A 3 , A 4 ; 
 
   M O V E ( ) ; 
 
   W H I L E   1   D O 
 
     D R A W ( ) ; 
 
     M T : = M O U S E ( ) ;   M T : = M T [ 1 ] ; 
 
     I F   S I Z E ( M T ) = = 0   T H E N   C O N T I N U E ;   E N D ; 
 
     M X : = M T [ 1 ] * 1 . 0 ;   M Y : = M T [ 2 ] * 1 . 0 ; 
 
     O X : = M T [ 3 ] * 1 . 0 ;   O Y : = M T [ 4 ] * 1 . 0 ; 
 
     M T : = M T [ 5 ] * 1 . 0 ; 
 
     L O C A L   F I ; 
 
     M X : = F L O O R ( ( M X - ( 3 2 0 - B S * T S - T S ) ) / T S ) ; 
 
     M Y : = F L O O R ( ( M Y + T S ) / T S ) ; 
 
     O X : = F L O O R ( ( O X - ( 3 2 0 - B S * T S - T S ) ) / T S ) ; 
 
     O Y : = F L O O R ( ( O Y + T S ) / T S ) ; 
 
     I F   M X d"0   O R   M X > B S   O R   M Y d"0   O R   
 
       M Y > B S   O R   O X d"0   O R   O X > B S   O R   O Y d"0   O R   O Y > B S   T H E N 
 
       C O N T I N U E ; 
 
     E N D ; 
 
     C A S E 
 
       I F   M X < O X   A N D   M X > 0   A N D   O X d"B S   T H E N 
 
         A 1 : = O Y ;     A 2 : = O X - 1 ; 
 
         A 3 : = O Y ;     A 4 : = O X ;   
 
       E N D ; 
 
       I F   M X > O X   A N D   M X d"B S   A N D   O X > 0   T H E N 
 
         A 1 : = O Y ;     A 2 : = O X ; 
 
         A 3 : = O Y ;     A 4 : = O X + 1 ; 
 
       E N D ; 
 
       I F   M Y < O Y   A N D   M Y > 0   A N D   O Y d"B S   T H E N 
 
         A 1 : = O Y - 1 ; A 2 : = O X ; 
 
         A 3 : = O Y ;     A 4 : = O X ; 
 
       E N D ; 
 
       I F   M Y > O Y   A N D   M Y d"B S   A N D   O Y > 0   T H E N 
 
         A 1 : = O Y ;     A 2 : = O X ; 
 
         A 3 : = O Y + 1 ; A 4 : = O X ; 
 
       E N D ; 
 
       D E F A U L T   C O N T I N U E ; 
 
     E N D ; 
 
     L O C A L   C A S C A D E : = 1 ; 
 
     S W A P ( A 1 , A 2 , A 3 , A 4 ) ; 
 
     W H I L E   C L E A R ( C A S C A D E ) = = 1   D O 
 
       D R A W ( ) ;   D R O P ( ) ;   M O V E ( ) ;   C A S C A D E : = C A S C A D E + 1 ; 
 
     E N D ; 
 
     D R A W ( ) ; 
 
     I F   C A S C A D E = = 1   T H E N 
 
       S W A P ( A 1 , A 2 , A 3 , A 4 ) ; 
 
     E L S E 
 
       s a v e ( ) ; 
 
     E N D ; 
 
     I F   S C O R E e"P T S T   T H E N 
 
       L E V U ( ) ; 
 
     E N D ; 
 
     I F   F A I L E D ( ) = = 1   T H E N 
 
       G A M E O V E R ( " N O   M O V E S ! " ) ; 
 
       R E T U R N ; 
 
     E N D ; 
 
   E N D ; 
 
 E N D ; 
 
 
 
 E X P O R T   B e j e w e l e d ( ) 
 
 B E G I N 
 
   I N I T ( ) ; 
 
   I F   N O T   l o a d ( )   T H E N 
 
     F I L L _ N O _ 3 ( ) ; 
 
   E N D ; 
 
   G A M E ( ) ; 
 
   F R E E Z E ( ) ; 
 
 E N D ; 
 
 