デモプログラム

FX-5800Pは、ファイルからコピーすることは出来ませんので、手入力して下さい。

Cls:ClrVar

1→X:1→Y:2→D
Locate X,Y,"O"

Lbl A
X→V:Y→W:D→C
If C=1:Then X+1→X:Y-1→Y:IfEnd
If C=2:Then X+1→X:Y+1→Y:IfEnd
If C=3:Then X-1→X:Y+1→Y:IfEnd
If C=4:Then X-1→X:Y-1→Y:IfEnd
0→I
If X<1 Or X>15:Then I+1→I:IfEnd
If Y<1 Or Y>4:Then I+2→I:IfEnd
If C=1:Then Goto 1:IfEnd
If C=2:Then Goto 2:IfEnd
If C=3:Then Goto 3:IfEnd
If C=4:Then Goto 4:IfEnd

Lbl B
Locate V,W," "
Locate X,Y,"O"
Goto A

Lbl 1
If I=1:Then X-2→X:4→D:IfEnd
If I=2:Then Y+2→Y:2→D:IfEnd
If I=3:Then X-2→X:Y+2→Y:3→D:IfEnd
Goto B

Lbl 2
If I=1:Then X-2→X:3→D:IfEnd
If I=2:Then Y-2→Y:1→D:IfEnd
If I=3:Then X-2→X:Y-2→Y:4→D:IfEnd
Goto B

Lbl 3
If I=1:Then X+2→X:2→D:IfEnd
If I=2:Then Y-2→Y:4→D:IfEnd
If I=3:Then X+2→X:Y-2→Y:1→D:IfEnd
Goto B

Lbl 4
If I=1:Then X+2→X:1→D:IfEnd
If I=2:Then Y+2→Y:3→D:IfEnd
If I=3:Then X+2→X:Y+2→Y:2→D:IfEnd
Goto B