gmacro 
testp
set 'terminal' c100;
nobs 2.
end
copy c100 k90 k89
let k88=c100(2)+2
let k80=mean(c1)
let k81=n(c1)
let k87=(k80-k90)/sqrt((k90*(1-k90)/k81))
cdf k87 k86
let k85=1-k86
let k83=absolute(k87)
cdf k83 k82
let k84=2*(1-k82)
copy k90 c98
copy k87 c97
copy k80 c95
copy k86 k84 k85 c96
set c93;
format (a6).
   <
 not=
   >
end
copy c93 c96 c93 c96;
use k88.
print c98 c93 c98 c95 c97 c96;
format ('H0: p =',f7.4,//,'HA: p',a6,f7.4,//,'p-hat =',f9.5,//,&
'z =',f9.5,//,'p-value =',f9.5).
erase c80-c99 c90-c100
endmacro