Subversion Repositories forest

rem Level einlesen
remstart
open to read 1, "zone\lev001.map"
  while file end(1) = 0
    read string 1, eingelesen$
    rem Baum
    if eingelesen$ = "Tree"
      rem Nix
    endif
  endwhile
close file 1
remend