【初稿】　224バイト

main=getLine>>=g.f
f(a:b:'x':c)=[read(a:b:"")-1,read c-1]
g[a,b]=mapM putStrLn[["+|-"!!h x y a b|x<-[0..a]]|y<-[0..b]]
y%b=min(max(y-1)0)(-y+b)
y#[a,b]=max(y+a-b)(-y+a)
h x y a b|x<y%b||x>y#[a,b]=1|x==y%b||x==y#[a,b]=0|1>0=2

アマゴルファーとしては、まずはこんなもの。
入力にｘの文字が入るため、その処理に打数が取られてしまう。。。
現在、プロゴルファーと約50打差だが、まだ　やりようはありそう。

【修正1】　215バイト

main=do a:b:c:d<-getLine;g[read(a:[b])-1,read d-1]
g[a,b]=mapM putStrLn[["+|-"!!h x y a b|x<-[0..a]]|y<-[0..b]]
y%b=min(max(y-1)0)(b-y)
y#[a,b]=max(y+a-b)(a-y)
h x y a b|x<y%b||x>y#[a,b]=1|x==y%b||x==y#[a,b]=0|1>0=2

プロゴルファーとの差は、66打差と引き離されたが
着実に縮められてきた。アマゴルとしては、200が目標ラインかな。

【修正2】　207バイト

main=do a:b:c:d<-getLine;g[read(a:[b])-1,read d-1]
g[a,b]=mapM putStrLn[["+|-"!!h x y a b|x<-[0..a]]|y<-[0..b]]
y%b=min(max(y-1)0)(b-y)
h x y a b|x<y%b||x>max(y+a-b)(a-y)=1|x==y%b||x==max(y+a-b)(a-y)=0|1>0=2

【修正3】　181バイト

main=do a:b:c:d<-getLine;f$map read[a:[b],d]
f[a,b]=mapM putStrLn[["+|-"!!h(max(y+a-b)(a-y+1))x(min(max(y-1)1)(b+1-y))y|x<-[1..a]]|y<-[1..b]]
h s x t y|x<t||x>s=1|x==t||x==s=0|1>0=2

【修正4】　179バイト

main=do a:b:c:d<-getLine;f$map read[a:[b],d]
f[a,b]=mapM putStrLn[["+|-"!!h(x-max(y+a-b)(a-y+1))(x-min(max(y-1)1)(b+1-y))|x<-[1..a]]|y<-[1..b]]
h a b|b<0||a>0=1|b==0||a==0=0|1>0=2

【修正5】　178バイト

main=do a:b:c:d<-getLine;f$map read[a:[b],d]
f[a,b]=mapM putStrLn[["+|-"!!h(max(y+a-b)(a-y+1))x(min(max(y-1)1)(b+1-y))|x<-[1..a]]|y<-[1..b]]
h s x t|x<t||x>s=1|x==t||x==s=0|1>0=2

小細工せずにyの引数を削ったら、178になった。
しかし、ここいらが限界ではないだろうか…
ここから29バイトとか、考え方が違うんじゃないかと思ってきた…

【修正5】　175バイト

main=do a:b:c:d<-getLine;f$map read[a:[b],d]
f[a,b]=mapM putStrLn[["+|-"!!h(x-max(y+a-b)(a-y+1))(x-min(max(y-1)1)(b+1-y))|x<-[1..a]]|y<-[1..b]]
h a b|a>0||b<0=1|a*b==0=0|1>0=2

俺頑張った感が出てきた。
あと２，３バイトは何とかなるかもしれないけど、その先はどうしようもなく手詰まりになりそう。。。

【修正6】　171バイト

main=do a:b:c:d<-getLine;read(a:[b])%read d
a%b=mapM putStrLn[["+|-"!!((x-max(y+a-b)(a+1-y))#(x-min(max(y-1)1)(b+1-y)))|x<-[1..a]]|y<-[1..b]]
a#b|a>0||b<0=1|a*b==0=0|1>0=2