Select nextlevel
Case 1
 Restore level1
Case 2
 Restore level2
usw.

.level1
Data ...

.level2
Data ...

Dim map(0,0)

Global mapw,maph

While Not KeyHit(1)
   If KeyHit(31) Then ;s
      savemap("level.lvl")
   EndIf
   If KeyHit(38) Then ;l
      loadmap("level.lvl")
   EndIf
Wend

Function newmap(w,h,standart)
   Dim map(w,h)
   mapw=w : maph=h
   For x=0 To w
      For y=0 To h
         map(x,y)=standart
      Next
   Next
End Function

Function savemap(path$)
   file=WriteFile (path$)
   WriteShort file,mapw
   WriteShort file,maph
   For x=0 To mapw
      For y=0 To maph
         WriteShort file,map(x,y)
      Next
   Next
   CloseFile file
End Function

Function loadmap(path$)
   file=ReadFile (path$)
   mapw=ReadShort (file)
   maph=ReadShort (file)
   newmap(mapw,maph,0)
   For x=0 To mapw
      For y=0 To maph
         map(x,y)=ReadShort (file)
      Next
   Next
   CloseFile file
End Function