 A U T O M O D E 
 
 V A R I A B L E   i , j , k , m , l , n , p , G , s t o r y s t a g e 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - G A M E O V E R 
 
 
 
 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ S O U N D   L I S T 
 
 C O N S T ( I N T R O _ S O U N D , 1 ) 
 
 C O N S T ( S E L E C T _ S O U N D , 2 ) 
 
 C O N S T ( O K _ S O U N D , 8 ) 
 
 C O N S T ( F A I L _ S O U N D , 1 4 ) 
 
 C O N S T ( S O U N D _ P L A Y , 2 8 ) 
 
 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 
 
 
 
 C R E A T E S P R ( 1 , " g a m e o v e r . s p r " ) 
 
 L O A D I M G ( 2 , " s m a l l p o p u p . p n g " ) 
 
 
 
 C R E A T E S P R ( 3 , " y e s . s p r " ) 
 
 C R E A T E S P R ( 4 , " n o . s p r " ) 
 
 
 
 L O A D I M G ( 5 , " c t r g u i d e _ 2 _ 2 4 0 . p n g " ) 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - O B J 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - Y E S   N O   0 - 1 
 
 C R E A T E O B J ( 9 3 , 2 4 5 , 3 , 0 , 0 ) 
 
 C R E A T E O B J ( 1 2 8 , 2 4 5 , 4 , 0 , 0 ) 
 
 ~ 1 9 2 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - G A M E O V E R 
 
 C R E A T E O B J ( 0 , 1 4 0 , 1 , 0 , 0 ) 
 
 
 
 S E T R G B ( 7 3 , 7 3 , 8 5 ) 
 
 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - - - -ƴ  ¤ѱ 
 
 S O U N D P L A Y ( O K _ S O U N D , 2 ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - -ƴ  t 
 
 S O U N D P L A Y ( F A I L _ S O U N D , 0 ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 
 
 G R E A D ( s t o r y s t a g e , 2 0 ) 
 
 ~ P R I N T N U M ( 1 0 , 2 7 5 , " s t o r y s t a g e " , s t o r y s t a g e , 0 ) 
 
 
 
 P U T ( i , 0 ) 
 
 P U T ( j , 4 8 ) 
 
 P U T ( k , 9 6 ) 
 
 P U T ( m , 1 4 4 ) 
 
 P U T ( l , 1 9 2 ) 
 
 P U T ( n , 2 4 0 ) 
 
 P U T ( p , 2 8 8 ) 
 
 ~ M E N U S T O P 
 
 ~ S L O W C L E A R 
 
 L I N E ( 0 , 0 , 2 4 0 , 0 ) 
 
 @ 1 0 
 
 A D D ( i , 1 ) 
 
 A D D ( j , 1 ) 
 
 A D D ( k , 1 ) 
 
 A D D ( m , 1 ) 
 
 A D D ( l , 1 ) 
 
 A D D ( n , 1 ) 
 
 A D D ( p , 1 ) 
 
 L I N E ( 0 , i , 2 4 0 , i ) 
 
 L I N E ( 0 , j , 2 4 0 , j ) 
 
 L I N E ( 0 , k , 2 4 0 , k ) 
 
 L I N E ( 0 , m , 2 4 0 , m ) 
 
 L I N E ( 0 , l , 2 4 0 , l ) 
 
 L I N E ( 0 , n , 2 4 0 , n ) 
 
 L I N E ( 0 , p , 2 4 0 , p ) 
 
 I F ( i , > , 4 8 ) 
 
 	 P U T ( i , 0 ) 
 
 	 G O T O   3 0 
 
 E N D I F 
 
 G O T O   1 0 
 
 
 
 @ 3 0 
 
 S E T R G B ( 0 , 0 , 0 ) 
 
 
 
 D E L A Y ( 5 ) 
 
 
 
 S H O W ( 2 ) 
 
 M O T I O N ( 2 , 0 , F A L S E , 0 ) 
 
 D E L A Y ( 5 0 ) 
 
 D I S P L A Y I M G ( 5 , 5 , 2 9 6 , 4 1 , 1 5 , 0 , 0 ) 
 
 S Y N C 
 
 
 
 
 
 M E N U S T O P 
 
 C L E A R M E N U 
 
 M E N U ( 0 , 1 , 1 , 1 , 1 , " " , 1 0 0 , 0 , 0 , 0 , " " ) 
 
 M E N U ( 1 , 0 , 0 , 0 , 0 , " " , 2 0 0 , 0 , 0 , 0 , " " ) 
 
 T O U C H S E T ( 5 , 2 9 6 , 4 1 , 1 5 , " E N T E R " ) 
 
 T O U C H G O T O ( 9 3 , 2 4 5 , 2 9 , 1 4 , 1 0 0 ) 
 
 T O U C H G O T O ( 1 2 8 , 2 4 5 , 1 9 , 1 2 , 2 0 0 ) 
 
 M E N U S T A R T 
 
 
 
 
 
 @ 4 0 
 
 ~ D I S P L A Y I M G ( 2 , 7 2 , 1 4 1 , 1 0 3 , 9 7 , 0 , 0 ) 
 
 ~ P R I N T W R O W ( 8 6 , 1 6 2 , "Ǭ  `  p ? " , 0 , 7 5 , 5 ) 
 
 D I S P L A Y I M G ( 2 , 0 , 0 , 2 4 0 , 3 2 0 , 0 , 0 ) 
 
 P R I N T W R O W ( 2 0 , 3 0 , "ecbT ? " , 0 , 2 0 0 , 5 ) 
 
 S Y N C 
 
 T O U C H C H K 
 
 G O T O   4 0 
 
 
 
 
 
 @ 1 0 0 
 
 ~Ǭ  `ư 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - - - -ƴ8 
 
 S O U N D P L A Y ( S E L E C T _ S O U N D , 2 ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - -ƴ  t 
 
 S O U N D P L A Y ( O K _ S O U N D , 0 ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 E X T F U N C ( 9 , 0 ) 
 
 
 
 I F ( s t o r y s t a g e , = , 0 ) 
 
 G O N E X T ( 1 6 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 ) 
 
 G O N E X T ( 1 8 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 2 ) 
 
 G O N E X T ( 2 0 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 3 ) 
 
 G O N E X T ( 2 2 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 4 ) 
 
 G O N E X T ( 2 4 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 5 ) 
 
 G O N E X T ( 2 6 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 6 ) 
 
 G O N E X T ( 2 8 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 7 ) 
 
 G O N E X T ( 3 0 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 8 ) 
 
 G O N E X T ( 3 2 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 9 ) 
 
 G O N E X T ( 3 4 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 0 ) 
 
 G O N E X T ( 3 6 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 1 ) 
 
 G O N E X T ( 3 8 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 2 ) 
 
 ~ G O N E X T ( 4 0 ) 
 
 G O N E X T ( 4 2 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 3 ) 
 
 ~ G O N E X T ( 4 2 ) 
 
 G O N E X T ( 4 4 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 I F ( s t o r y s t a g e , = , 1 4 ) 
 
 G O N E X T ( 4 4 ) 
 
 G O T O   1 0 0 0 0 
 
 E N D I F 
 
 
 
 
 
 @ 2 0 0 
 
 ~Ǭ  H`ư   m a i n   m e n u\ 
 
 ~ - - - - - - - - - - - - - - - - - - - - -ƴ8 
 
 S O U N D P L A Y ( S E L E C T _ S O U N D , 2 ) 
 
 S O U N D P L A Y ( F A I L _ S O U N D , 2 ) 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - -ƴ  t 
 
 S O U N D P L A Y ( O K _ S O U N D , 0 ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ~ = = = = = = = = = = = = = = = = = =\)Tt   O N 
 
 	 M S G F U N C ( 0 , 1 , 0 ) 
 
 ~ = = = = = = = = = = = = = = = = = = 
 
 D E L A Y ( 1 5 ) 	 
 
 S O U N D P L A Y ( O K _ S O U N D , 2 ) 
 
 S Y N C 
 
 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - -ƴ  t 
 
 S O U N D P L A Y ( I N T R O _ S O U N D , 1 ) 
 
 G W R I T E ( S O U N D _ P L A Y , I N T R O _ S O U N D ) 
 
 ~ - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 ~ R E S U L T ( 0 , 1 ) 
 
 ~ R E S U L T ( 1 , 1 ) 
 
 R E S U L T ( 2 , 0 ) 
 
 R E S U L T ( 3 , 0 ) 
 
 A L L D E L S P R 
 
 E X I T 
 
 
 
 
 
 ~ s t o r y   #   s t a g e 
 
 @ 1 0 0 0 0 
 
 ~ R E S U L T ( 0 , 1 ) 
 
 ~ R E S U L T ( 1 , 1 ) 
 
 R E S U L T ( 2 , s t o r y s t a g e ) 
 
 R E S U L T ( 3 , 0 ) 
 
 ~ G O N E X T ( G ) 
 
 A L L D E L S P R 
 
 E X I T 
 
 
 
