下面是近一年来实发工资计算税金的程序，并将计算结果填入税金字段(假定职工最高实发工资为难2500元)请填空。
****主程序MAIN.PRG****
SET TALK OFF
TAX=O
USE GZ
DO WHILE.NOT.EOF()
SHFGZ=实发工资
D0 SUB [8]
9TAX
RAPLACE税金WITH TAX [9]
ENDDO
USE
CANCEL
******子程序SUB.PRG********
[10]
X-O
DO CASE
CASE A>=800.AND.A<=1300
X=(A-800)*0.05
CASE A>1300.AND.A<1800
B=A-1300
CASE A>=1800.AND.A<=2300
B=A-1800
X=B*O 15+500.0.1+500*0.05
CASE A>=2300
B=A-230
X=B*O.2+500*0.15+500*0． 1+500*0.05
ENDCASE
RETURN
（）