*-----------------------------データ出力用ファイルの新規作成 open(99,file="map01.dat") *---------------------------画像サイズの設定(50*20ピクセル) ix=50 iy=20 write(99,*) ix,iy *--------------------------------画像データ出力(赤色四角形) do 10 i=1,iy write(99,*) (1.0,j=1,ix) write(99,*) (0.0,j=1,ix) write(99,*) (0.0,j=1,ix) 10 continue close(99) stop end