>>681 きちんと分かれていたのでちょっとびっくり（失礼）
main()内：atof(s)→strtod(s, NULL)
getop()内：構文チェックが甘くなるけれども、下記を２箇所とも変更
while(isdigit(s[++i] = c = getch()))→while(isalnum(s[++i] = c = getch()))