SCRIPT
DIM i
DIM j,-1
DIM k
DIM n
DIM x
DIMS t
OPENFILEOUT myf,out.txt
LABEL loop
SET j,j+2
IF j>19999 THEN END
SET x,j
SET n,0
SET i,0
SET k,0
LABEL a
PRP x,k
IF ISPRP THEN GOTO ici
SET x,3*x+1
SET i,i+1
LABEL b
SET x,x/2
SET n,n+1
IF x%2==0 THEN GOTO b
IF x==1  OR x==1163 THEN GOTO la
GOTO a
LABEL ici
SET x,2*x+1
SET k,k+1
GOTO a
LABEL la
SETS t,%d,%d,%d,%d,%d\,;j;i;k;n;x
WRITE myf,t
PRINT t
GOTO loop



WRITE myf,t