IF BT AND 1 THEN Y=Y-1
IF BT AND 2 THEN Y=Y+1
IF BT AND 4 THEN X=X-1
IF BT AND 8 THEN X=X+1
↓改良
Y=Y-(BT==1)+(BT==2)
X=X-(BT==4)+(BT==8)
前者88文字、後者28文字で後者が断然お得
DEFで引数や戻り値に配列が使えます。
DIM HAIRETSU[0],HIKISUU[8]
HIKISUU[5]=12
HAIRETSU=KANSU(HIKISUU)
PRINT HAIRETSU[3]
DEF KANSU(H)
DIM RET[8]
RET[3]=H[3]
RETURN RET
END