Graphics 1050, 800, 0, 2
Dim karte$(31,31)
For j = 0 To 31
  For i = 0 To 31
    karte$(i,j) = 0
  Next
Next
font = LoadFont("Arial",27,1)
SetFont font
cursorx = 0
cursory = 0
SetBuffer BackBuffer()
While Not KeyHit(1)
  Cls
  Color 0,150,50
  Rect cursorx*25+1,cursory*25+1,23,23,1
  For j = 0 To 31
    For i = 0 To 31
      Color 0,200,80
      Rect i*25,j*25,25,25,0
      If Not karte(j,i) = 0
        If karte(j,i) = "B" Or karte(j,i) = "C" Then Color 255,255,255
        If karte(j,i) = "D" Then Color 255,255,0
        Text j*25+3,i*25, karte(j,i)
      EndIf
    Next
  Next
  Text 825, 25, "Mauer = 1"
  Text 825, 75, "Kleiner Punkt = 2"
  Text 825, 125, "Grosser Punkt = 3"
  Text 825, 175, "Muenze = 4"
  Text 825, 225, "Loeschen = 0"
  If KeyDown(203) Then cursorx = cursorx-1
  If KeyDown(205) Then cursorx = cursorx+1
  If KeyDown(200) Then cursory = cursory-1
  If KeyDown(208) Then cursory = cursory+1
  If cursorx < 0 Then cursorx = 0
  If cursorx > 31 Then cursorx = 31
  If cursory < 0 Then cursory=0
  If cursory > 31 Then cursory = 31
  If KeyDown(2)
    karte(cursorx,cursory) = "A"
  EndIf
  If KeyDown(3)
    karte(cursorx,cursory) = "B"
  EndIf
  If KeyDown(4)
    karte(cursorx,cursory) = "C"
  EndIf
  If KeyDown(5)
    karte(cursorx,cursory) = "D"
  EndIf
  ;If KeyDown(6)
   ; karte(cursorx,cursory) = "E"    ;FUNKTIONEN U: KOMMETARE FЬR FALLEN HINZUFЬGEN
  ;EndIf
  If KeyDown(11)
    karte(cursorx,cursory) = 0
  EndIf
  If KeyHit(15)
    Cls
    Color 255,255,255
    Locate 0,0
    filename$ = Input("Name der zu ladenden Datei? ")
    fileb = ReadFile(filename+".txt")
    For i = 1 To 32
      x$ = ReadLine(fileb)
      For j = 1 To 32
        karte(i-1, j-1) = Mid(x$, j, 1)
      Next
    Next
  EndIf
  If KeyHit(41)
    Cls
    FlushKeys
    Color 255,255,255
    Locate 0,0
    file$ = Input("Name der Datei in die gespeichert werden soll? ")
    WriteFile(file+".txt")
    fileb = OpenFile(file+".txt")
    Dim Stringline$(31)
    For j = 0 To 31
      For i = 0 To 31
        If karte(j,i) = 0
          stringline(j) = stringline(j)+" "
        Else
          Stringline(j) = stringline(j)+karte(j,i)
        EndIf
      Next
      WriteLine fileb,stringline(j)
    Next
  EndIf
  Delay(50)
  Flip
Wend 
End