$dat=".dat" 
getstr "Name for level map (%s) (WITHOUT EXTENTION)","",$f 

$path="c:\\cadkey97\\not\\" 
call strcat,$path,$f 
call strcat,$path,$dat 
set devin,$path 

levels 0,1,256 
array v[256] 
read $path,0,v 
i=0 
:loop 
i=i+1 
if (i > @nread) 
goto exit 
levels 1,v[i-1] 
goto loop 
:exit 
redraw 
REM pause "Map was read" 
EXIT