HSPTV!掲示板

昔のBASIC(N88-BASIC)のソースをHSPへ移植しています。
昔のソースなのでIFを使わないで計算式として含めています。
そのままHSPに書くことは出来るのですが、正の場合の符号が反対のため
計算式が違ってしまいます。
条件成立の場合 HSP：1、N88-BASIC：-1
条件不成立の場合 HSP：0、N88-BASIC：0
マクロなどを使って元の計算式をなるべく変えないで上手く対応する方法ありませんか。
例えば以下の場合はN88-BASICと同じ計算結果としたいです。
mes (1=1) ⇒ 1（N88-BASIC ⇒ -1）
mes (1=1)+(1=0)+(1!=0) ⇒ 2（N88-BASIC ⇒ -2）

1を-1に変換するのであれば、こんな感じのマクロで行けませんか？

#define global ctype np(%1) ((%1)*-1)	//npはnegativeとpositiveの略

mes np(1=1)
mes np(1=1)+np(1=0)+np(1!=0)

おー、すごい、流石です。
こんな簡単な方法があるんですね。
これでやってみます。
ありがとうございます！

mes -(1=1)

()で囲って頭に-つけるだけだと思いましたが・・・
VBも-1でしたねぇ。