Removing next.prg -19990619:00:52

harbour/tests/working/next.prg

@@ -1,34 +0,0 @@
-//NOTEST
-// Using nExt variable name
-//DO NOT RUN THIS PROGRAM - ITS PURPOSE IS ONLY TO CHECK THE SYNTAX!
-
-Function Main()
-Local nExt, nExt7, nExtNEXT
-
-    For NExt := 1 To 10
-
-       OutStd( nExT ) // Actually this needs to use str()
-
-   Next /*next*/ nExt 	//next
-//NEXT
-
-   nExt := 10 //next
-
-   nExt++	/*n_ext*/	//---
-   --nExt	/*next*/
-   nExt7 :=7
-   nExtNEXT := nExt	//next
-
-   nExt[ nExt ] := NEXT( nExt[nExt+nExt] * nExt *(nExt+nExt*5) )
-
-Return( nExt * /*next*/ nExt )
-
-FUNCTION NeXT( nExt /*next next*/ )
-  IF( nExt > nExt+4 )
-    nExt =nExt +nExt * 5
-  ELSEIF( nExt > 0 )
-    nExt = nExt * 6 + nExt
-  ELSE
-    nExt +=5
-  ENDIF
-RETURN nExt * nExt