DEFには他にも便利な機能があります。それは、「DEF~END内で宣言した変数はそのDEF~END内専用の変数として扱われる」という機能です。なので、変数の被りを気にしなくて済みます。FOR~TO~NEXTでよく使われるIなんかが恩恵を受けます。
例
OPTION STRICT
OPTION DEFINT
VAR I
DEF POWER(N,M)
VAR ANS=1,I
FOR I=1 TO M
ANS=ANS*N
MEXT I
RETURN ANS
END
FOR I=0 TO 5
PRINT FORMAT$("%dの%d乗は%です。"6,I,POWER(6,I))
NEXT I
2つめの方法
IF B==1 THEN~ '上
IF B==2 THEN~ '下
IF B==4 THEN~ '左
IF B==8 THEN~ '右
IF B==5 THEN~ '左上
IF B==9 THEN~ '右上
IF B==6 THEN~ '左下
IF B==10 THEN~ '右下
のように全てのパターンで判定する方法
(分かりづらくてすみません)