%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:136
File Name:RANDOMNU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
\Abs \Int A\->F
65747\Int (F/1\EE5)+951(F-1\EE5\Int (F/1\EE5))\->G
1\EE5(G-1\EE5\Int (G/1\EE5))\->G
65747(F-1\EE5\Int (F/1\EE5))+G+198461\->G
G-1\EE10\Int (G/1\EE10)\->A
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:42
File Name:RANDSEQ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRPRE"
"Seed"?\->A
\While 1
\Prog "RANDOMNU"
A\Disp\WhileEnd
%End