%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:302
File Name:PERMUTE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
\Int \Abs A\->F
\Int \Abs B\->G
\Seq(0,H,1,G,1)\->\List 1
\Seq(0,H,1,F,1)\->\List 2
1\->H
0\->I
\Do
\If I\<=0
\Then 1\->I
\Else 0\->\List 2[I]
I+1\->I
\IfEnd
\While 1
\If I>F
\Then \Break
\IfEnd
\If \List 2[I]=0
\Then \Break
\IfEnd
I+1\->I
\WhileEnd
\If I>F
\Then H-1\->H
\If H\>=1
\Then \List 1[H]\->I
\IfEnd
\Else I\->\List 1[H]
H\->A
\Prog "PERMPREF"
\If B\<>0
\Then \If H=G
\Then H\->A
\Prog "PERMITEM"
\If B=0
\Then \Break
\IfEnd
\Else 1\->\List 2[I]
H+1\->H
0\->I
\IfEnd
\IfEnd
\IfEnd
\LpWhile H>0
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:130
File Name:PERMTEST
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRPRE"
"Items"?\->F
"Size"?\->G
0\->K
0\->L
F\->A
G\->B
\Prog "PERMUTE"
0\->H
1\->I
\For 1\->J \To G
(F-J+1)I\->I
I+H\->H
\Next 
"Prefixes"
K\DispH\Disp"Permutations"
L\DispI
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:12
File Name:PERMPREF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
K+1\->K
1\->B
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:12
File Name:PERMITEM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
L+1\->L
1\->B
%End