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

$path="c:\\cadkey97\\not\\" 
call strcat,$path,$f 
call strcat,$path,$dat 
set devout,$path 
c=1 
array v[256] 
rem goto one 
:one 
y=0 
z=0 
w=0 
m=1 
:two 
if ((@levels[y] & m) != 0) 
v[z]=1 
if (v[z] == 1) 
print "%d\n",z+1 
m=(m << 1) 
z=z+1 
w=w+1 
if (w > 15) 
goto ini 
goto two 
:ini 
y=y+1 
if (y > 15) 
goto exit 
m=1 
w=0 
goto two 
:exit 
clear m 
REM pause "Map was written" 
EXIT