// 2011.07.10 # Doj

variable text-x variable text-y
:noname  COLOR 2dup PURPLES GEN[]2 ^ set-color draw-cell-rect ;draw_ #
:noname  COLOR 2dup PURPLES GEN[]2 ^ set-color draw-cell-rect ;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
