use msflib
type(qwinfo) winfo
type(wxycoord)xy
type(xycoord)origin
integer(2) result
real(8)x,y
real i
character c*4
winfo.type=qwin$max
result=setwsizeqq(0,winfo)
result=setwsizeqq(qwin$framewindow,winfo)
result=setbkcolorrgb(#ffffff)
call clearscreen($gclearscreen)
result=setcolorrgb(#000000)
result=setwindow(.true.,0,0,1.5,75)
call setvieworg(int2(0),int2(0),origin)
x=1.5
call moveto_w(0d0,0d0,xy)
result=lineto_w(x,0d0)
y=75
call moveto_w(0d0,0d0,xy)
result=lineto_w(0d0,d)
result=initializefonts()
result=setfont('h16w12i')
do i=0,0.99,0.2
   x=i
   call moveto_w(x,0d0,xy)
   write(c,"(i4)")i
   call outgtext(c)
   end do
do a=0,0.99,0.01
   x=a
   y=20*x
   result=setpixel_w(x,y)
end do
read(*,*)
end
这是我的原程序，我想用它来画一条直线，编译连接都没有错误，一旦运行，就弹出错误对话框：
F6206:WRITE0-E,F,DorG edit descrip to expected for real  
弄了很久都弄不出来，希望大家能帮帮我，谢谢了