%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:89
File Name:SRANSAMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SAMPLE SIZE"?\->N
N\->\Dim \List 6
\Dim \List 1\->M
\For 1\->K \To N
\List 1[\Int (M\Ran#+1)]\->\List 6[K]
\Next 
"SAMPLE MEAN"
\Mean\List 6)

%End