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