%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:169
File Name:PERMPREF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
\List 1\->\List 3
0\->B
0\->H
\For 1\->F \To A
\For 1\->G \To A-F+1
\List 3[G]\->I
2^I\->I
\If \Frac (\Int (H/I)/2)\<>0
\Then \Prog "VRRESFJ"
\Return
\IfEnd
H+I\->H
\If G\<>A-F+1
\Then \Abs (\List 3[G]-\List 3[G+1])\->\List 3[G]
\IfEnd
\Next 
\Next 
1\->B
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:36
File Name:PERMITEM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
\List 1\->\List 4
0\->B
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:151
File Name:P080899
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRPRE"
\Seq(0,A,1,4,1)\->\List 3
10\->A
4\->B
\Prog "PERMUTE"
\List 4\->\List 3
\For 4\->A \To 1 \Step \(-)1
0\->B
\For 1\->C \To A
\List 3[C]+100B\->B
\Next 
B\Disp\For 1\->C \To A-1
\Abs (\List 3[C]-\List 3[C+1])\->\List 3[C]
\Next 
\Next 
"DONE"
%End