わざわざすいません、おかげで助かりました。
一つ気になったんですがGRAPHICS_MODE_SET@の256って何を表しているんでしょうか。
16以下では描画がCALLしてないときと同じで、257以上では黒から赤のグラデーションに。
まあ一応やりたかったことはできそうなのであまり気にしないでおこう。
下のプログラムが私がやりたかったことの一部です。
INTEGER*4 IREG,IR,IG,IB,ERR
IR=57
IG=6
IB=6
CALL VGA@
CALL GRAPHICS_MODE_SET@(640,480,256,ERR)
DO IREG=0,255
CALL SET_VIDEO_DAC@(IREG,IR,IG,IB)
IF (IREG.LT.51) THEN
IG=IG+1
ELSE IF (IREG.LT.102) THEN
IR=IR-1
ELSE IF (IREG.LT.153) THEN
IB=IB+1
ELSE IF (IREG.LT.204) THEN
IG=IG-1
ELSE
IR=IR+1
END IF
END DO
DO IREG=0,255
CALL FILL_RECTANGLE@(IREG*2,0,IREG*2+1,479,IREG)
END DO
END