// 2011.07.10 # Doj

variable text-x variable text-y
:noname  COLOR YELLOW ^ set-color draw-cell-rect ;draw_ #
:noname  timer 1000 mod 500 div 
         if 2drop else 
             COLOR PINK ^ set-color draw-cell-rect 
         then ;draw_ T
:noname  player-y! player-x! ;oninit_ S
:noname  text-y ! text-x ! ;oninit_ a
:noname  ;init
lab 
                                         
            #######################            
            #S                    #            
            #                     #            
            #                     #            
            #          ##         #            
            #         ####        #            
            #         ####        #            
            #          ##         #            
            #                     #            
            #          ##         #            
            #          ##         #            
            #       ##    ##      #            
            #      ####  ####     #            
            #      ####  ####     #            
            #       ##    ##      #            
            #                     #            
            #                     #            
            #                     #            
            #                     F            
            #######################            
                                         
                a                        
                                         
                                         
                                         
                                         
                                         
                                         
                                         
                                         
                                         
\lab
text-x @ text-y @ " ÄÎÆ" common text
maze!
centrize
