Saving Types

oops, thats just me remmembering my code wrongly: Heres the actual code:

      (saving prep etc)
		For d.door=Each door
			WriteInt( savestate,d\open)
		Next
      (loading prep etc)
                For d.door=Each door
	                d\open=ReadInt(loadstate)
                Next