If KeyHit(60) Then
 posxman=EntityX(man)
 posyman=EntityY(man)
 poszman=EntityZ(man)
 posxmon=EntityX(monster)
 posymon=EntityY(monster)
 poszmon=EntityZ(monster)
 speichern()
EndIf
If KeyHit(61) Then
 laden()
 PositionEntity man,posxman,posyman,poszman
 PositionEntity monster,posxmon,posymon,poszmon
EndIf
..............restliches zeugs...................
Function speichern()
 name$="save"
 save=WriteFile(name$+".dat")
  WriteInt save,posxman
  WriteInt save,posyman
  WriteInt save,poszman
  WriteByte save,h
  WriteByte save,k
  WriteByte save,l
  WriteByte save,qmon
  WriteByte save,qmon_done
  WriteByte save,qkraut
  WriteByte save,qkraut_done
  WriteByte save,qguy
  WriteByte save,qguy_done
  WriteShort save,leben_man
  WriteShort save,leben_man_max
  WriteByte save,level
  WriteByte save,lvldmg
  WriteByte save,lvlmon
  WriteInt save,erfahrung
  WriteByte save,rüssi
  WriteInt save,posxmon
  WriteInt save,posymon
  WriteInt save,poszmon
 CloseFile save
End Function

Function laden()
 name$="save"
 laden=ReadFile(name$+".dat")
  posxman=ReadInt(laden)
  posyman=ReadInt(laden)
  poszman=ReadInt(laden)
  h=ReadByte(laden)
  k=ReadByte(laden)
  l=ReadByte(laden)
  qmon=ReadByte(laden)
  qmon_done=ReadByte(laden)
  qkraut=ReadByte(laden)
  qkraut_done=ReadByte(laden)
  qguy=ReadByte(laden)
  qguy_done=ReadByte(laden)
  leben_man=ReadShort(laden)
  leben_man_max=ReadShort(laden)
  level=ReadByte(laden)
  lvldmg=ReadByte(laden)
  lvlmon=ReadByte(laden)
  erfahrung=ReadInt(laden)
  rüssi=ReadByte(laden)
  posxmon=ReadInt(laden)
  posymon=ReadInt(laden)
  poszmon=ReadInt(laden)
 CloseFile laden
End Function