// 2011.07.10 # Doj

  :noname  pchar" data\sounds\newlevel.wav" sound ;init
  :noname  draw-finish-cell ;draw_ F
  :noname  COLOR 2dup PURPLES GEN[]2 ^ set-color draw-cell-rect ;draw_ #
  :noname  player-y! player-x! ;oninit_ S
  :noname  2drop ;enter_ #
  :noname  2dup maze-x @ lrot - swap maze[]@ 35 = if 2drop else passed then ;enter_  
  :noname  2dup maze-x @ lrot - swap maze[]@ 35 = if 2drop else passed then ;enter_ .
  :noname  2drop ;enter_ |
  :noname 
    maze-x @ player-last-x @ - x->global maze-x @ player-x @ - x->global
    delta-linear-comb
    player-last-y @ y->global player-y @ y->global delta-linear-comb
    do-player-render
  ;after-update
lab 
###################
#                 #
#                 #
#                 #
#                 #
#                 #
#                 #
*                S*
#                 #
#                 #
#                 #
#                 #
#                 #
#                 #
###################
\lab
maze!
16 cell-x! 16 cell-y!
centrize
