DIM VILLAGE[1] (処理) VILLAGE[1]=2 SAVE"DAT:SAVE",VILLAGE,0