SCRIPT
DIM i,0
DIM j
DIM n
DIM k
DIMS t
OPENFILEOUT myf,a(n).txt
LABEL loop1
SET i,i+1
SET j,p(i)
SET n,j#
SET k,0
LABEL loop2
SET k,k+1
SETS t,%d,%d,%d\,;i;j;k
PRP k*n+1,t
IF ISPRP THEN GOTO b
GOTO loop2
LABEL b
WRITE myf,t
IF i>3099 THEN END
GOTO loop1